1 package body JTF_RS_ACTIVE_GRP_MBRS_PKG as
2 /* $Header: jtfrshab.pls 120.0 2005/05/11 08:20:05 appldev ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out nocopy VARCHAR2,
5 X_GROUP_MEMBER_ID in NUMBER,
6 X_GROUP_ID in NUMBER,
7 X_RESOURCE_ID in NUMBER,
8 X_PERSON_ID in NUMBER,
9 X_CREATION_DATE in DATE,
10 X_CREATED_BY in NUMBER,
11 X_LAST_UPDATE_DATE in DATE,
12 X_LAST_UPDATED_BY in NUMBER,
13 X_LAST_UPDATE_LOGIN in NUMBER
14 ) is
15 cursor C is select ROWID from JTF_RS_ACTIVE_GRP_MBRS
16 where GROUP_MEMBER_ID = X_GROUP_MEMBER_ID
17 ;
18 begin
19 insert into JTF_RS_ACTIVE_GRP_MBRS (
20 OBJECT_VERSION_NUMBER,
21 GROUP_MEMBER_ID,
22 GROUP_ID,
23 RESOURCE_ID,
24 PERSON_ID,
25 CREATION_DATE,
26 CREATED_BY,
27 LAST_UPDATE_DATE,
28 LAST_UPDATED_BY,
29 LAST_UPDATE_LOGIN
30 ) values (
31 1,
32 X_GROUP_MEMBER_ID,
33 X_GROUP_ID,
34 X_RESOURCE_ID,
35 X_PERSON_ID,
36 X_CREATION_DATE,
37 X_CREATED_BY,
38 X_LAST_UPDATE_DATE,
39 X_LAST_UPDATED_BY,
40 X_LAST_UPDATE_LOGIN
41 );
42
43 open c;
44 fetch c into X_ROWID;
45 if (c%notfound) then
46 close c;
47 raise no_data_found;
48 end if;
49 close c;
50
51 end INSERT_ROW;
52
53 procedure LOCK_ROW (
54 X_GROUP_MEMBER_ID in NUMBER,
55 X_OBJECT_VERSION_NUMBER in NUMBER
56 ) is
57 cursor c is select
58 OBJECT_VERSION_NUMBER,
59 GROUP_MEMBER_ID
60 from JTF_RS_ACTIVE_GRP_MBRS
61 where GROUP_MEMBER_ID = X_GROUP_MEMBER_ID
62 for update of GROUP_MEMBER_ID nowait;
63 recinfo c%rowtype;
64
65 begin
66 open c;
67 fetch c into recinfo;
68 if (c%notfound) then
69 close c;
70 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
71 app_exception.raise_exception;
72 end if;
73 close c;
74 if ( (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
75 AND (recinfo.GROUP_MEMBER_ID = X_GROUP_MEMBER_ID))
76 then
77 null;
78 else
79 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
80 app_exception.raise_exception;
81 end if;
82
83 return;
84 end LOCK_ROW;
85
86 procedure UPDATE_ROW (
87 X_GROUP_MEMBER_ID in NUMBER,
88 X_GROUP_ID in NUMBER,
89 X_OBJECT_VERSION_NUMBER in NUMBER,
90 X_RESOURCE_ID in NUMBER,
91 X_PERSON_ID in NUMBER,
92 X_LAST_UPDATE_DATE in DATE,
93 X_LAST_UPDATED_BY in NUMBER,
94 X_LAST_UPDATE_LOGIN in NUMBER
95 ) is
96 begin
97 update JTF_RS_ACTIVE_GRP_MBRS set
98 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
99 GROUP_MEMBER_ID = X_GROUP_MEMBER_ID,
100 RESOURCE_ID = X_RESOURCE_ID,
101 PERSON_ID = X_PERSON_ID,
102 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
103 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
104 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
105 where GROUP_MEMBER_ID = X_GROUP_MEMBER_ID;
106
107 if (sql%notfound) then
108 raise no_data_found;
109 end if;
110
111 end UPDATE_ROW;
112
113 procedure DELETE_ROW (
114 X_GROUP_MEMBER_ID in NUMBER
115 ) is
116 begin
117 delete from JTF_RS_ACTIVE_GRP_MBRS
118 where GROUP_MEMBER_ID = X_GROUP_MEMBER_ID;
119
120 if (sql%notfound) then
121 raise no_data_found;
122 end if;
123 end DELETE_ROW;
124
125 end JTF_RS_ACTIVE_GRP_MBRS_PKG;