PACKAGE BODY: APPS.GMS_AWARD_MANAGER_PKG

Source

1 PACKAGE BODY gms_award_manager_pkg as
2 -- $Header: gmsawamb.pls 115.3 2002/08/01 09:42:18 gnema ship $
3 
4 PROCEDURE insert_award_manager_id
5 (
6  x_AWARD_ID in number ,
7  x_qk_award_manager_id in number,
8  x_start_date_active in date
9 )
10 IS
11 personnel_id number;
12 x_last_update_date date;
13 x_last_updated_by number;
14 x_last_update_login number;
15 x_creation_date date;
16 x_created_by number;
17 BEGIN
18 x_last_update_date := sysdate;
19 x_last_updated_by := fnd_global.user_id;
20 x_last_update_login := fnd_global.user_id;
21 x_creation_date := sysdate;
22 x_created_by := fnd_global.user_id;
23 select gms_personnel_s.nextval
24 into personnel_id
25 from dual;
26 insert into gms_personnel
27 (AWARD_ID   ,
28 PERSON_ID    ,
29 AWARD_ROLE    ,
30 START_DATE_ACTIVE,
31 LAST_UPDATE_DATE       ,
32 LAST_UPDATED_BY        ,
33 CREATION_DATE          ,
34 CREATED_BY         ,
35 LAST_UPDATE_LOGIN   ,
36 PERSONNEL_ID )
37 values
38 (
39  x_AWARD_ID,
40  x_qk_award_manager_id,
41  'AM',
42  x_start_date_active,
43  x_last_update_date ,
44  x_last_updated_by,
45  x_creation_date ,
46  x_created_by ,
47  x_last_update_login ,
48  personnel_id
49 );
50 END;
51 END GMS_AWARD_MANAGER_PKG;