1 package body HR_ASSIGNMENT_SETS_PKG as
2 /* $Header: pyass01t.pkb 115.0 99/07/17 05:43:21 porting ship $ */
3 --
4 procedure insert_row(p_rowid in out varchar2,
5 p_assignment_set_id in number,
6 p_business_group_id in number,
7 p_payroll_id in number,
8 p_assignment_set_name in varchar2,
9 p_formula_id in number) is
10
11 --
12 begin
13 --
14 insert into HR_ASSIGNMENT_SETS
15 ( ASSIGNMENT_SET_ID,
16 BUSINESS_GROUP_ID,
17 PAYROLL_ID,
18 ASSIGNMENT_SET_NAME,
19 FORMULA_ID)
20 values
21 ( p_assignment_set_id,
22 p_business_group_id,
23 p_payroll_id,
24 p_assignment_set_name,
25 p_formula_id);
26
27 --
28 select rowid
29 into p_rowid
30 from HR_ASSIGNMENT_SETS
31 where ASSIGNMENT_SET_ID = p_assignment_set_id;
32 --
33 end insert_row;
34 --
35 procedure update_row(p_rowid in varchar2,
36 p_assignment_set_id in number,
37 p_business_group_id in number,
38 p_payroll_id in number,
39 p_assignment_set_name in varchar2,
40 p_formula_id in number) is
41
42 begin
43 --
44 update HR_ASSIGNMENT_SETS
45 set ASSIGNMENT_SET_ID = p_assignment_set_id,
46 BUSINESS_GROUP_ID = p_business_group_id,
47 PAYROLL_ID = p_payroll_id,
48 ASSIGNMENT_SET_NAME = p_assignment_set_name,
49 FORMULA_ID = p_formula_id
50 where ROWID = p_rowid;
51 --
52 end update_row;
53 --
54 procedure delete_row(p_rowid in varchar2) is
55 --
56 begin
57 --
58 delete from HR_ASSIGNMENT_SETS
59 where ROWID = p_rowid;
60 --
61 end delete_row;
62 --
63 procedure lock_row(p_rowid in varchar2,
64 p_assignment_set_id in number,
65 p_business_group_id in number,
66 p_payroll_id in number,
67 p_assignment_set_name in varchar2,
68 p_formula_id in number) is
69
70 --
71 cursor C is select *
72 from HR_ASSIGNMENT_SETS
73 where rowid = p_rowid
74 for update of ASSIGNMENT_SET_ID nowait;
75 --
76 rowinfo C%rowtype;
77 --
78 begin
79 --
80 open C;
81 fetch C into rowinfo;
82 close C;
83 --
84 rowinfo.assignment_set_name := rtrim(rowinfo.assignment_set_name);
85 --
86 if ( ( (rowinfo.ASSIGNMENT_SET_ID = p_assignment_set_id)
87 or (rowinfo.ASSIGNMENT_SET_ID is null and p_assignment_set_id is null))
88 and ( (rowinfo.BUSINESS_GROUP_ID = p_business_group_id)
89 or (rowinfo.BUSINESS_GROUP_ID is null and p_business_group_id is null))
90 and ( (rowinfo.PAYROLL_ID = p_payroll_id)
91 or (rowinfo.PAYROLL_ID is null and p_payroll_id is null))
92 and ( (rowinfo.ASSIGNMENT_SET_NAME = p_assignment_set_name)
93 or (rowinfo.ASSIGNMENT_SET_NAME is null and p_assignment_set_name is null))
94 and ( (rowinfo.FORMULA_ID = p_formula_id)
95 or (rowinfo.FORMULA_ID is null and p_formula_id
96 is null))) then
97 return;
98 else
99 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
100 app_exception.raise_exception;
101 end if;
102 end lock_row;
103 --
104 end HR_ASSIGNMENT_SETS_PKG;