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