HPMS - HR -MODULE -PROBLE-NEW CREATE DESIGNATION

Read More

Update hr_employee table

First Delete specific column then

add this script

ALTER TABLE BPH_UAT.MM_RECONAUDITVFY
ADD (VC_FLAG CHAR(2 BYTE));

Read More

Trigger for hr_employee table

CREATE OR REPLACE TRIGGER TRG_synch_hpms_doctor
after update or delete of emp_name, job_id on hr_employee
for each row
declare

    /*
    Purpose : This trigger synchronize the Doctor Name and Designation between HR_EMPLOYEE and HPMS_DOCTOR
    Created By: Kazi Mokarem;
    Date: 20/03/2011
    */
   
    cursor cur_hpms_doctor is
        select doctor_no,doctor_name,designation
        from hpms_doctor
        where doctor_no   = :new.emp_no
        ;
     crDoctor cur_hpms_doctor%rowtype;
     
    cursor cur_dr_desig is
       select job_desc,job_type_id
       from hr_jobcode
       where job_id = :new.job_id
       and rownum=1;
     
      vDesignation    hr_jobcode.job_desc%type;
      vJobTypeId      hr_jobtype.job_type_id%type;
 
   cursor cur_hr_job_type(cpJobTypeId  hr_jobtype.job_type_id%type)is
          select job_short_desc
          from   hr_jobtype
          where  job_type_id =cpJobTypeId
          and rownum=1;
    vJobShortDesc  hr_jobtype.job_short_desc%type;
    vActiveStatus varchar2(1);      
begin
 
  if updating then
 
         Begin
         update hpms_doctor
          set ACTIVE_FLAG=nvl(:New.active_status,:old.active_status)
          where doctor_no =nvl(:new.emp_no,:old.emp_no);
         exception when others then
         null;
         end;
      if :new.emp_name = :old.emp_name and :new.job_id = :old.job_id then
        return;
      end if;
     
           
      open cur_hpms_doctor;fetch cur_hpms_doctor into crDoctor;
 
      if cur_hpms_doctor%found then
     
          /*
          if :new.job_id is null then
             delete from hpms_doctor
             where doctor_no = :new.emp_no;
             return;
          end if;
          */
         
          if :new.job_id <> :old.job_id then
            open cur_dr_desig;fetch cur_dr_desig into vDesignation,vJobTypeId;close  cur_dr_desig;
          end if;
         
       
         
          /*
          if :new.job_id is not null then
           open  cur_hr_job_type(vJobTypeId);fetch  cur_hr_job_type into vJobShortDesc; close    cur_hr_job_type;
           if  nvl(vJobShortDesc,'#') <> 'DOC' then
             delete from hpms_doctor
             where doctor_no = :new.emp_no;
             return;
           end if;  
          end if;
          */
         
         
          if upper(crDoctor.doctor_name) <> upper(nvl(:new.emp_name,:old.emp_name))
             and upper(crDoctor.designation) <> upper(vDesignation) then
           
             update hpms_doctor
             set doctor_name = nvl(:new.emp_name,:old.emp_name),
                 designation = vDesignation
             where doctor_no = nvl(:new.emp_no,:old.emp_no);
           
          elsif upper(crDoctor.doctor_name) <> upper(nvl(:new.emp_name,:old.emp_name)) then
             update hpms_doctor
             set    doctor_name = nvl(:new.emp_name,:old.emp_name)
             where  doctor_no   = nvl(:new.emp_no,:old.emp_no);  
          elsif upper(crDoctor.designation) <> upper(vDesignation)      then
             update hpms_doctor
             set designation = vDesignation
             where doctor_no = nvl(:new.emp_no,:old.emp_no);
          end if;
         
       --if upper(crDoctor.active_flag)<>upper(nvl(:New.active_status,:old.active_status)) then
          update hpms_doctor
          set ACTIVE_FLAG=nvl(:New.active_status,:old.active_status)--vActiveStatus
          where doctor_no =nvl(:new.emp_no,:old.emp_no);
        --end if;
         
         
      end if;  
      close cur_hpms_doctor;
  elsif deleting then
      --delete from hpms_doctor
      --where doctor_no = nvl(:new.emp_no,:old.emp_no);
      null;
  end if;
 
  exception
    when others then null;
 end;
/

Read More

Wish to data correction for issue, requisation, verify important table and view

mm_irmst
mm_irchd
mm_issuemst
mm_issuechd
mm_receivemst
mm_receivechd
pr_invoicechd
pr_invoicemst
mm_obverify
mmv_itemstocktrns(view) for internal requisation and receive qty.

mm_itemstock
PR_INVOICEMST
PR_INVOICECHD

Read More

HPMS

Read More

Oracle Forms Designer has stopped working

When you install Oracle Developer Suite 10g Release 2 on windows 7 and try to open any form within the builder, you may face the following issues..

Oracle Forms Designer Has stopped Working

Windows can check online for a solution to the problem.

---> Check online for a solution and close the program
----> close the program

What is the solution ? 

There is two solution for this issue.

Solution # 1

1. Open form builder.
2.  Make connection with database.
3.  Now open the form.

If solution # 1 doesn't work in your case then your need metalink (support.oracle.com) access which required valid support account.

 Solution #2

1. Download Patchset no. 7047034
2. Extract in root drive like C:\ 7047034
3. open command prompt with admin previlage (@ write cmd)
4. set oracle_home like (C:\Users\Administrator>set oracle_home=C:\DevSuiteHome_1)
5. set PATH=%ORACLE_HOME%\OPatch;%PATH% like (C:\Users\Administrator>set PATH=%ORACLE_HOME%\OPatch;%PATH%)
6. go to patchset folder like (C:\Users\Administrator>cd c:\7047034)
7. write opatch apply like (c:\7047034>opatch apply)

8. When your see >>Is this system ready for updating?
   Please respond Y|N > << Type Y and press Enter Key

9. at finishing you will see >>OPatch succeeded.
   OPatch returns with error code = 0 <<

10. write cscript //nologo remove_demo.js like (c:\7047034>cscript //nologo remove_demo.js)

Your are done. ;)

Now open form builder and open any form without error.

Enjoy Oracle Forms Developing..

If it helps, Leave your message.

Read More

Doctor's Schedule

Title: How can you set up your doctor's name for schedule.

1'st  Part

2'nd Part

This part is for 4'th tab name: Doctor service schedule

Read More