1: Package Body JTF_RS_GROUP_MEMBERS_AUD_PVT AS
2: /* $Header: jtfrsamb.pls 120.0 2005/05/11 08:19:09 appldev ship $ */
3: -- API Name : JTF_RS_GROUP_MEMBERS_AUD_PVT
4: -- Type : Private
5: -- Purpose : Inserts IN the JTF_RS_GROUPS_B_AUD
1: Package Body JTF_RS_GROUP_MEMBERS_AUD_PVT AS
2: /* $Header: jtfrsamb.pls 120.0 2005/05/11 08:19:09 appldev ship $ */
3: -- API Name : JTF_RS_GROUP_MEMBERS_AUD_PVT
4: -- Type : Private
5: -- Purpose : Inserts IN the JTF_RS_GROUPS_B_AUD
6: -- Modification History
7: -- DATE NAME PURPOSE
8: -- 20 JAN 2000 S Choudhury Created
9: -- Notes:
10: --
11:
12: g_pkg_name varchar2(30) := 'JTF_RS_GROUP_MEMBERS_AUD_PVT';
13:
14: /*FOR INSERT */
15: PROCEDURE INSERT_MEMBER(
16: P_API_VERSION IN NUMBER,
25: X_MSG_COUNT OUT NOCOPY NUMBER,
26: X_MSG_DATA OUT NOCOPY VARCHAR2)
27: IS
28:
29: l_group_member_audit_id jtf_rs_group_members_aud.group_member_audit_id%type;
30: l_row_id varchar2(24) := null;
31:
32: --other variables
33: l_api_name CONSTANT VARCHAR2(30) := 'INSERT_MEMBER';
61: l_login_id := NVL(FND_PROFILE.Value('LOGIN_ID'), -1);
62:
63:
64:
65: select jtf_rs_group_members_aud_s.nextval
66: into l_group_member_audit_id
67: from dual;
68:
69:
67: from dual;
68:
69:
70: /* CALL TABLE HANDLER */
71: JTF_RS_GROUP_MEMBERS_AUD_PKG.INSERT_ROW (
72: X_ROWID => l_row_id,
73: x_group_member_audit_id => l_group_member_audit_id,
74: x_group_member_id => p_group_member_id,
75: x_new_group_id => p_group_id,
72: X_ROWID => l_row_id,
73: x_group_member_audit_id => l_group_member_audit_id,
74: x_group_member_id => p_group_member_id,
75: x_new_group_id => p_group_id,
76: x_old_group_id => jtf_rs_group_members_pvt.g_moved_fr_group_id,
77: x_new_resource_id => P_resource_id,
78: x_old_resource_id => null,
79: x_new_person_id => P_person_id,
80: x_old_person_id => null,
127: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
128: X_MSG_COUNT OUT NOCOPY NUMBER,
129: X_MSG_DATA OUT NOCOPY VARCHAR2)
130: IS
131: CURSOR rr_old_cur(l_group_member_id JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE)
132: IS
133: SELECT b.group_id ,
134: b.resource_id ,
135: b.person_id ,
133: SELECT b.group_id ,
134: b.resource_id ,
135: b.person_id ,
136: b.object_version_number
137: FROM jtf_rs_group_members b
138: WHERE b.group_member_id = l_group_member_id;
139:
140:
141: --declare variables
139:
140:
141: --declare variables
142: --old value
143: l_group_id JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
144: l_resource_id JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
145: l_person_id JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
146: l_object_version_number JTF_RS_GROUP_MEMBERS.OBJECT_VERSION_NUMBER%TYPE;
147:
140:
141: --declare variables
142: --old value
143: l_group_id JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
144: l_resource_id JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
145: l_person_id JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
146: l_object_version_number JTF_RS_GROUP_MEMBERS.OBJECT_VERSION_NUMBER%TYPE;
147:
148:
141: --declare variables
142: --old value
143: l_group_id JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
144: l_resource_id JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
145: l_person_id JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
146: l_object_version_number JTF_RS_GROUP_MEMBERS.OBJECT_VERSION_NUMBER%TYPE;
147:
148:
149:
142: --old value
143: l_group_id JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
144: l_resource_id JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
145: l_person_id JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
146: l_object_version_number JTF_RS_GROUP_MEMBERS.OBJECT_VERSION_NUMBER%TYPE;
147:
148:
149:
150: --old values
147:
148:
149:
150: --old values
151: l_group_id_n JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
152: l_resource_id_n JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
153: l_person_id_n JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
154: l_object_version_number_n JTF_RS_GROUP_MEMBERS.OBJECT_VERSION_NUMBER%TYPE;
155:
148:
149:
150: --old values
151: l_group_id_n JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
152: l_resource_id_n JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
153: l_person_id_n JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
154: l_object_version_number_n JTF_RS_GROUP_MEMBERS.OBJECT_VERSION_NUMBER%TYPE;
155:
156:
149:
150: --old values
151: l_group_id_n JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
152: l_resource_id_n JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
153: l_person_id_n JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
154: l_object_version_number_n JTF_RS_GROUP_MEMBERS.OBJECT_VERSION_NUMBER%TYPE;
155:
156:
157:
150: --old values
151: l_group_id_n JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
152: l_resource_id_n JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
153: l_person_id_n JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
154: l_object_version_number_n JTF_RS_GROUP_MEMBERS.OBJECT_VERSION_NUMBER%TYPE;
155:
156:
157:
158:
156:
157:
158:
159: rr_old_rec rr_old_cur%rowtype;
160: l_group_member_audit_id jtf_rs_group_members_aud.group_member_audit_id%type;
161: l_row_id varchar2(24) := null;
162:
163: --other variables
164: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_MEMBER';
218: end if;
219:
220:
221:
222: select jtf_rs_group_members_aud_s.nextval
223: into l_group_member_audit_id
224: from dual;
225:
226:
224: from dual;
225:
226:
227: /* CALL TABLE HANDLER */
228: JTF_RS_GROUP_MEMBERS_AUD_PKG.INSERT_ROW (
229: X_ROWID => l_row_id,
230: x_group_member_audit_id => l_group_member_audit_id,
231: x_group_member_id => p_group_member_id,
232: x_new_group_id => l_group_id_n,
281: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
282: X_MSG_COUNT OUT NOCOPY NUMBER,
283: X_MSG_DATA OUT NOCOPY VARCHAR2 )
284: IS
285: CURSOR rr_old_cur(l_group_member_id JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE)
286: IS
287: SELECT b.group_id ,
288: b.resource_id ,
289: b.person_id ,
287: SELECT b.group_id ,
288: b.resource_id ,
289: b.person_id ,
290: b.object_version_number
291: FROM jtf_rs_group_members b
292: WHERE b.group_member_id = l_group_member_id;
293:
294:
295: --declare variables
293:
294:
295: --declare variables
296: --old value
297: l_group_id JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
298: l_resource_id JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
299: l_person_id JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
300: l_object_version_number JTF_RS_GROUP_MEMBERS.object_version_number%TYPE;
301:
294:
295: --declare variables
296: --old value
297: l_group_id JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
298: l_resource_id JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
299: l_person_id JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
300: l_object_version_number JTF_RS_GROUP_MEMBERS.object_version_number%TYPE;
301:
302:
295: --declare variables
296: --old value
297: l_group_id JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
298: l_resource_id JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
299: l_person_id JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
300: l_object_version_number JTF_RS_GROUP_MEMBERS.object_version_number%TYPE;
301:
302:
303:
296: --old value
297: l_group_id JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE;
298: l_resource_id JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE;
299: l_person_id JTF_RS_GROUP_MEMBERS.PERSON_ID%TYPE;
300: l_object_version_number JTF_RS_GROUP_MEMBERS.object_version_number%TYPE;
301:
302:
303:
304:
302:
303:
304:
305: rr_old_rec rr_old_cur%rowtype;
306: l_group_member_audit_id jtf_rs_group_members_aud.group_member_audit_id%type;
307: l_row_id varchar2(24) := null;
308:
309: --other variables
310: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_MEMBER';
349:
350:
351:
352:
353: select jtf_rs_group_members_aud_s.nextval
354: into l_group_member_audit_id
355: from dual;
356:
357:
355: from dual;
356:
357:
358: /* CALL TABLE HANDLER */
359: JTF_RS_GROUP_MEMBERS_AUD_PKG.INSERT_ROW (
360: X_ROWID => l_row_id,
361: x_group_member_audit_id => l_group_member_audit_id,
362: x_group_member_id => p_group_member_id,
363: x_new_group_id => NULL,
400: FND_MSG_PUB.add;
401: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
402:
403: END delete_member;
404: END; -- Package Body JTF_RS_GROUP_MEMBERS_AUD_PVT