2: /* $Header: cslusacb.pls 115.3 2002/08/21 07:49:22 rrademak ship $ */
3:
4: /*** Globals ***/
5: g_acc_table_name CONSTANT VARCHAR2(30) := 'JTM_FND_USER_ACC';
6: g_publication_item_name CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
7: JTM_HOOK_UTIL_PKG.t_publication_item_list('FND_USER');
8: g_table_name CONSTANT VARCHAR2(30) := 'FND_USER';
9: g_pk_name CONSTANT VARCHAR2(30) := 'USER_ID';
10:
3:
4: /*** Globals ***/
5: g_acc_table_name CONSTANT VARCHAR2(30) := 'JTM_FND_USER_ACC';
6: g_publication_item_name CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
7: JTM_HOOK_UTIL_PKG.t_publication_item_list('FND_USER');
8: g_table_name CONSTANT VARCHAR2(30) := 'FND_USER';
9: g_pk_name CONSTANT VARCHAR2(30) := 'USER_ID';
10:
11: g_debug_level NUMBER; -- debug level
23: r_user c_user%ROWTYPE;
24:
25: BEGIN
26: /*** get debug level ***/
27: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
28:
29: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
30: jtm_message_log_pkg.Log_Msg
31: ( p_user_id
25: BEGIN
26: /*** get debug level ***/
27: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
28:
29: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
30: jtm_message_log_pkg.Log_Msg
31: ( p_user_id
32: , g_table_name
33: , 'Entering Replicate_Record'
30: jtm_message_log_pkg.Log_Msg
31: ( p_user_id
32: , g_table_name
33: , 'Entering Replicate_Record'
34: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
35: END IF;
36:
37: OPEN c_user( p_user_id );
38: FETCH c_user INTO r_user;
37: OPEN c_user( p_user_id );
38: FETCH c_user INTO r_user;
39: IF c_user%NOTFOUND THEN
40: /*** could not find user record -> exit ***/
41: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR THEN
42: jtm_message_log_pkg.Log_Msg
43: ( p_user_id
44: , g_table_name
45: , 'Replicate_Record error: Could not find user_id ' || p_user_id
42: jtm_message_log_pkg.Log_Msg
43: ( p_user_id
44: , g_table_name
45: , 'Replicate_Record error: Could not find user_id ' || p_user_id
46: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
47: END IF;
48:
49: CLOSE c_user;
50: RETURN FALSE;
50: RETURN FALSE;
51: END IF;
52: CLOSE c_user;
53:
54: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
55: jtm_message_log_pkg.Log_Msg
56: ( p_user_id
57: , g_table_name
58: , 'Replicate_Record returned TRUE'
55: jtm_message_log_pkg.Log_Msg
56: ( p_user_id
57: , g_table_name
58: , 'Replicate_Record returned TRUE'
59: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
60: END IF;
61:
62: /** Record matched criteria -> return true ***/
63: RETURN TRUE;
70: ,p_resource_id IN NUMBER
71: )
72: IS
73: BEGIN
74: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
75: jtm_message_log_pkg.Log_Msg
76: ( p_user_id
77: , g_table_name
78: , 'Entering Insert_ACC_Record'
75: jtm_message_log_pkg.Log_Msg
76: ( p_user_id
77: , g_table_name
78: , 'Entering Insert_ACC_Record'
79: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
80: END IF;
81:
82: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
83: jtm_message_log_pkg.Log_Msg
78: , 'Entering Insert_ACC_Record'
79: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
80: END IF;
81:
82: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
83: jtm_message_log_pkg.Log_Msg
84: ( p_user_id
85: , g_table_name
86: , 'Inserting ACC record for resource_id = ' || p_resource_id
83: jtm_message_log_pkg.Log_Msg
84: ( p_user_id
85: , g_table_name
86: , 'Inserting ACC record for resource_id = ' || p_resource_id
87: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
88: END IF;
89:
90: /*** Insert user ACC record ***/
91: JTM_HOOK_UTIL_PKG.Insert_Acc
87: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
88: END IF;
89:
90: /*** Insert user ACC record ***/
91: JTM_HOOK_UTIL_PKG.Insert_Acc
92: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
93: ,P_ACC_TABLE_NAME => g_acc_table_name
94: ,P_PK1_NAME => g_pk_name
95: ,P_PK1_NUM_VALUE => p_user_id
95: ,P_PK1_NUM_VALUE => p_user_id
96: ,P_RESOURCE_ID => p_resource_id
97: );
98:
99: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
100: jtm_message_log_pkg.Log_Msg
101: ( p_user_id
102: , g_table_name
103: , 'Leaving Insert_ACC_Record'
100: jtm_message_log_pkg.Log_Msg
101: ( p_user_id
102: , g_table_name
103: , 'Leaving Insert_ACC_Record'
104: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
105: END IF;
106: END Insert_ACC_Record;
107:
108: /*** Private procedure that re-sends given user to mobile ***/
112: ,p_acc_id IN NUMBER
113: )
114: IS
115: BEGIN
116: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
117: jtm_message_log_pkg.Log_Msg
118: ( p_user_id
119: , g_table_name
120: , 'Entering Update_ACC_Record'
117: jtm_message_log_pkg.Log_Msg
118: ( p_user_id
119: , g_table_name
120: , 'Entering Update_ACC_Record'
121: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
122: END IF;
123:
124: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
125: jtm_message_log_pkg.Log_Msg
120: , 'Entering Update_ACC_Record'
121: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
122: END IF;
123:
124: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
125: jtm_message_log_pkg.Log_Msg
126: ( p_user_id
127: , g_table_name
128: , 'Updating ACC record for resource_id = ' || p_resource_id || fnd_global.local_chr(10) || 'access_id = ' || p_acc_id
125: jtm_message_log_pkg.Log_Msg
126: ( p_user_id
127: , g_table_name
128: , 'Updating ACC record for resource_id = ' || p_resource_id || fnd_global.local_chr(10) || 'access_id = ' || p_acc_id
129: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
130: END IF;
131:
132: /*** Update user ACC record ***/
133: JTM_HOOK_UTIL_PKG.Update_Acc
129: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
130: END IF;
131:
132: /*** Update user ACC record ***/
133: JTM_HOOK_UTIL_PKG.Update_Acc
134: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
135: ,P_ACC_TABLE_NAME => g_acc_table_name
136: ,P_RESOURCE_ID => p_resource_id
137: ,P_ACCESS_ID => p_acc_id
136: ,P_RESOURCE_ID => p_resource_id
137: ,P_ACCESS_ID => p_acc_id
138: );
139:
140: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
141: jtm_message_log_pkg.Log_Msg
142: ( p_user_id
143: , g_table_name
144: , 'Leaving Update_ACC_Record'
141: jtm_message_log_pkg.Log_Msg
142: ( p_user_id
143: , g_table_name
144: , 'Leaving Update_ACC_Record'
145: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
146: END IF;
147: END Update_ACC_Record;
148:
149: /*** Private procedure that deletes user for resource from acc table ***/
152: ,p_resource_id IN NUMBER
153: )
154: IS
155: BEGIN
156: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
157: jtm_message_log_pkg.Log_Msg
158: ( p_user_id
159: , g_table_name
160: , 'Entering Delete_ACC_Record'
157: jtm_message_log_pkg.Log_Msg
158: ( p_user_id
159: , g_table_name
160: , 'Entering Delete_ACC_Record'
161: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
162: END IF;
163:
164: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
165: jtm_message_log_pkg.Log_Msg
160: , 'Entering Delete_ACC_Record'
161: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
162: END IF;
163:
164: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
165: jtm_message_log_pkg.Log_Msg
166: ( p_user_id
167: , g_table_name
168: , 'Deleting ACC record for resource_id = ' || p_resource_id
165: jtm_message_log_pkg.Log_Msg
166: ( p_user_id
167: , g_table_name
168: , 'Deleting ACC record for resource_id = ' || p_resource_id
169: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
170: END IF;
171:
172: /*** Delete user ACC record ***/
173: JTM_HOOK_UTIL_PKG.Delete_Acc
169: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
170: END IF;
171:
172: /*** Delete user ACC record ***/
173: JTM_HOOK_UTIL_PKG.Delete_Acc
174: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
175: ,P_ACC_TABLE_NAME => g_acc_table_name
176: ,P_PK1_NAME => g_pk_name
177: ,P_PK1_NUM_VALUE => p_user_id
177: ,P_PK1_NUM_VALUE => p_user_id
178: ,P_RESOURCE_ID => p_resource_id
179: );
180:
181: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
182: jtm_message_log_pkg.Log_Msg
183: ( p_user_id
184: , g_table_name
185: , 'Leaving Delete_ACC_Record'
182: jtm_message_log_pkg.Log_Msg
183: ( p_user_id
184: , g_table_name
185: , 'Leaving Delete_ACC_Record'
186: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
187: END IF;
188: END Delete_ACC_Record;
189:
190: /***
196: )
197: IS
198: BEGIN
199: /*** get debug level ***/
200: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
201:
202: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
203: jtm_message_log_pkg.Log_Msg
204: ( p_user_id
198: BEGIN
199: /*** get debug level ***/
200: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
201:
202: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
203: jtm_message_log_pkg.Log_Msg
204: ( p_user_id
205: , g_table_name
206: , 'Entering Insert_User procedure'
203: jtm_message_log_pkg.Log_Msg
204: ( p_user_id
205: , g_table_name
206: , 'Entering Insert_User procedure'
207: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
208: END IF;
209:
210: /*** does record match criteria? ***/
211: IF Replicate_Record( p_user_id ) THEN
216: );
217:
218: END IF;
219:
220: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
221: jtm_message_log_pkg.Log_Msg
222: ( p_user_id
223: , g_table_name
224: , 'Leaving Insert_User procedure'
221: jtm_message_log_pkg.Log_Msg
222: ( p_user_id
223: , g_table_name
224: , 'Leaving Insert_User procedure'
225: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
226: END IF;
227:
228: END Insert_User;
229:
238: l_acc_id NUMBER;
239: l_success BOOLEAN;
240: BEGIN
241: /*** get debug level ***/
242: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
243:
244: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
245: jtm_message_log_pkg.Log_Msg
246: ( p_user_id
240: BEGIN
241: /*** get debug level ***/
242: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
243:
244: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
245: jtm_message_log_pkg.Log_Msg
246: ( p_user_id
247: , g_table_name
248: , 'Entering Update_User'
245: jtm_message_log_pkg.Log_Msg
246: ( p_user_id
247: , g_table_name
248: , 'Entering Update_User'
249: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
250: END IF;
251:
252: l_acc_id := JTM_HOOK_UTIL_PKG.Get_Acc_Id(
253: P_ACC_TABLE_NAME => g_acc_table_name
248: , 'Entering Update_User'
249: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
250: END IF;
251:
252: l_acc_id := JTM_HOOK_UTIL_PKG.Get_Acc_Id(
253: P_ACC_TABLE_NAME => g_acc_table_name
254: ,P_PK1_NAME => g_pk_name
255: ,P_PK1_NUM_VALUE => p_user_id
256: ,P_RESOURCE_ID => p_resource_id);
268:
269: END IF;
270: END IF;
271:
272: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
273: jtm_message_log_pkg.Log_Msg
274: ( p_user_id
275: , g_table_name
276: , 'Leaving Update_User'
273: jtm_message_log_pkg.Log_Msg
274: ( p_user_id
275: , g_table_name
276: , 'Leaving Update_User'
277: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
278: END IF;
279: END Update_User;
280:
281: /***
289: l_acc_id NUMBER;
290: l_success BOOLEAN;
291: BEGIN
292: /*** get debug level ***/
293: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
294:
295: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
296: jtm_message_log_pkg.Log_Msg
297: ( p_user_id
291: BEGIN
292: /*** get debug level ***/
293: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
294:
295: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
296: jtm_message_log_pkg.Log_Msg
297: ( p_user_id
298: , g_table_name
299: , 'Entering Delete_User'
296: jtm_message_log_pkg.Log_Msg
297: ( p_user_id
298: , g_table_name
299: , 'Entering Delete_User'
300: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
301: END IF;
302:
303: l_acc_id := JTM_HOOK_UTIL_PKG.Get_Acc_Id(
304: P_ACC_TABLE_NAME => g_acc_table_name
299: , 'Entering Delete_User'
300: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
301: END IF;
302:
303: l_acc_id := JTM_HOOK_UTIL_PKG.Get_Acc_Id(
304: P_ACC_TABLE_NAME => g_acc_table_name
305: ,P_PK1_NAME => g_pk_name
306: ,P_PK1_NUM_VALUE => p_user_id
307: ,P_RESOURCE_ID => p_resource_id);
315: );
316:
317: END IF;
318:
319: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
320: jtm_message_log_pkg.Log_Msg
321: ( p_user_id
322: , g_table_name
323: , 'Leaving Delete_User'
320: jtm_message_log_pkg.Log_Msg
321: ( p_user_id
322: , g_table_name
323: , 'Leaving Delete_User'
324: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
325: END IF;
326: END Delete_User;
327:
328: END CSL_FND_USER_ACC_PKG;