3:
4: /*** Globals ***/
5: -- CSP_RS_CUST_RELATIONS
6: g_acc_table_name1 CONSTANT VARCHAR2(30) := 'JTM_CSP_RS_CUST_RELATIONS_ACC';
7: g_publication_item_name1 CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
8: JTM_HOOK_UTIL_PKG.t_publication_item_list('CSP_RS_CUST_RELATIONS');
9: g_pk1_name1 CONSTANT VARCHAR2(30) := 'RS_CUST_RELATION_ID';
10: -- HZ_CUST_ACCT_SITES_ALL
11: g_acc_table_name2 CONSTANT VARCHAR2(30) := 'CSL_HZ_CUST_ACCT_SITES_ALL_ACC';
4: /*** Globals ***/
5: -- CSP_RS_CUST_RELATIONS
6: g_acc_table_name1 CONSTANT VARCHAR2(30) := 'JTM_CSP_RS_CUST_RELATIONS_ACC';
7: g_publication_item_name1 CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
8: JTM_HOOK_UTIL_PKG.t_publication_item_list('CSP_RS_CUST_RELATIONS');
9: g_pk1_name1 CONSTANT VARCHAR2(30) := 'RS_CUST_RELATION_ID';
10: -- HZ_CUST_ACCT_SITES_ALL
11: g_acc_table_name2 CONSTANT VARCHAR2(30) := 'CSL_HZ_CUST_ACCT_SITES_ALL_ACC';
12: g_publication_item_name2 CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
8: JTM_HOOK_UTIL_PKG.t_publication_item_list('CSP_RS_CUST_RELATIONS');
9: g_pk1_name1 CONSTANT VARCHAR2(30) := 'RS_CUST_RELATION_ID';
10: -- HZ_CUST_ACCT_SITES_ALL
11: g_acc_table_name2 CONSTANT VARCHAR2(30) := 'CSL_HZ_CUST_ACCT_SITES_ALL_ACC';
12: g_publication_item_name2 CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
13: JTM_HOOK_UTIL_PKG.t_publication_item_list('CSL_HZ_CUST_ACCT_SITES');
14: g_pk1_name2 CONSTANT VARCHAR2(30) := 'CUST_ACCT_SITE_ID';
15: -- HZ_CUST_SITE_USES_ALL
16: g_acc_table_name3 CONSTANT VARCHAR2(30) := 'CSL_HZ_CUST_SITE_USES_ALL_ACC';
9: g_pk1_name1 CONSTANT VARCHAR2(30) := 'RS_CUST_RELATION_ID';
10: -- HZ_CUST_ACCT_SITES_ALL
11: g_acc_table_name2 CONSTANT VARCHAR2(30) := 'CSL_HZ_CUST_ACCT_SITES_ALL_ACC';
12: g_publication_item_name2 CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
13: JTM_HOOK_UTIL_PKG.t_publication_item_list('CSL_HZ_CUST_ACCT_SITES');
14: g_pk1_name2 CONSTANT VARCHAR2(30) := 'CUST_ACCT_SITE_ID';
15: -- HZ_CUST_SITE_USES_ALL
16: g_acc_table_name3 CONSTANT VARCHAR2(30) := 'CSL_HZ_CUST_SITE_USES_ALL_ACC';
17: g_publication_item_name3 CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
13: JTM_HOOK_UTIL_PKG.t_publication_item_list('CSL_HZ_CUST_ACCT_SITES');
14: g_pk1_name2 CONSTANT VARCHAR2(30) := 'CUST_ACCT_SITE_ID';
15: -- HZ_CUST_SITE_USES_ALL
16: g_acc_table_name3 CONSTANT VARCHAR2(30) := 'CSL_HZ_CUST_SITE_USES_ALL_ACC';
17: g_publication_item_name3 CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
18: JTM_HOOK_UTIL_PKG.t_publication_item_list('CSL_HZ_CUST_SITE_USES');
19: g_pk1_name3 CONSTANT VARCHAR2(30) := 'SITE_USE_ID';
20: -- PO_LOCATION_ASSOCIATIONS_ALL
21: g_acc_table_name4 CONSTANT VARCHAR2(30) := 'JTM_PO_LOC_ASS_ALL_ACC';
14: g_pk1_name2 CONSTANT VARCHAR2(30) := 'CUST_ACCT_SITE_ID';
15: -- HZ_CUST_SITE_USES_ALL
16: g_acc_table_name3 CONSTANT VARCHAR2(30) := 'CSL_HZ_CUST_SITE_USES_ALL_ACC';
17: g_publication_item_name3 CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
18: JTM_HOOK_UTIL_PKG.t_publication_item_list('CSL_HZ_CUST_SITE_USES');
19: g_pk1_name3 CONSTANT VARCHAR2(30) := 'SITE_USE_ID';
20: -- PO_LOCATION_ASSOCIATIONS_ALL
21: g_acc_table_name4 CONSTANT VARCHAR2(30) := 'JTM_PO_LOC_ASS_ALL_ACC';
22: g_publication_item_name4 CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
18: JTM_HOOK_UTIL_PKG.t_publication_item_list('CSL_HZ_CUST_SITE_USES');
19: g_pk1_name3 CONSTANT VARCHAR2(30) := 'SITE_USE_ID';
20: -- PO_LOCATION_ASSOCIATIONS_ALL
21: g_acc_table_name4 CONSTANT VARCHAR2(30) := 'JTM_PO_LOC_ASS_ALL_ACC';
22: g_publication_item_name4 CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
23: JTM_HOOK_UTIL_PKG.t_publication_item_list('PO_LOC_ASS_ALL');
24: g_pk1_name4 CONSTANT VARCHAR2(30) := 'LOCATION_ID';
25:
26: g_table_name CONSTANT VARCHAR2(30) := 'PO_LOCATION_ASSOCIATIONS_ALL';
19: g_pk1_name3 CONSTANT VARCHAR2(30) := 'SITE_USE_ID';
20: -- PO_LOCATION_ASSOCIATIONS_ALL
21: g_acc_table_name4 CONSTANT VARCHAR2(30) := 'JTM_PO_LOC_ASS_ALL_ACC';
22: g_publication_item_name4 CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
23: JTM_HOOK_UTIL_PKG.t_publication_item_list('PO_LOC_ASS_ALL');
24: g_pk1_name4 CONSTANT VARCHAR2(30) := 'LOCATION_ID';
25:
26: g_table_name CONSTANT VARCHAR2(30) := 'PO_LOCATION_ASSOCIATIONS_ALL';
27: g_debug_level NUMBER; -- debug level
53: r_location c_location%ROWTYPE;
54:
55: BEGIN
56: /*** get debug level ***/
57: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
58:
59: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
60: jtm_message_log_pkg.Log_Msg
61: ( p_location_id
55: BEGIN
56: /*** get debug level ***/
57: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
58:
59: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
60: jtm_message_log_pkg.Log_Msg
61: ( p_location_id
62: , g_table_name
63: , 'Entering Replicate_Record'
60: jtm_message_log_pkg.Log_Msg
61: ( p_location_id
62: , g_table_name
63: , 'Entering Replicate_Record'
64: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
65: END IF;
66:
67: OPEN c_location( p_location_id );
68: FETCH c_location INTO r_location;
67: OPEN c_location( p_location_id );
68: FETCH c_location INTO r_location;
69: IF c_location%NOTFOUND THEN
70: /*** could not find location record -> exit ***/
71: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR THEN
72: jtm_message_log_pkg.Log_Msg
73: ( p_location_id
74: , g_table_name
75: , 'Replicate_Record error: Could not find record associated with PO_LOCATION_ASSOCIATIONS_ALL.LOCATION_ID '
73: ( p_location_id
74: , g_table_name
75: , 'Replicate_Record error: Could not find record associated with PO_LOCATION_ASSOCIATIONS_ALL.LOCATION_ID '
76: || p_location_id
77: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
78: END IF;
79:
80: CLOSE c_location;
81: RETURN FALSE;
83:
84: CLOSE c_location;
85:
86: /*** is resource a mobile user? ***/
87: IF NOT JTM_HOOK_UTIL_PKG.isMobileFSresource( r_location.resource_id ) THEN
88: /*** No -> exit ***/
89: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
90: jtm_message_log_pkg.Log_Msg
91: ( p_location_id
85:
86: /*** is resource a mobile user? ***/
87: IF NOT JTM_HOOK_UTIL_PKG.isMobileFSresource( r_location.resource_id ) THEN
88: /*** No -> exit ***/
89: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
90: jtm_message_log_pkg.Log_Msg
91: ( p_location_id
92: , g_table_name
93: , 'Replicate_Record returned FALSE' || fnd_global.local_chr(10) ||
91: ( p_location_id
92: , g_table_name
93: , 'Replicate_Record returned FALSE' || fnd_global.local_chr(10) ||
94: 'Resource_id ' || r_location.resource_id || ' is not a mobile user.'
95: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
96: END IF;
97:
98: RETURN FALSE;
99: END IF;
98: RETURN FALSE;
99: END IF;
100:
101:
102: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
103: jtm_message_log_pkg.Log_Msg
104: ( p_location_id
105: , g_table_name
106: , 'Replicate_Record returned TRUE'
103: jtm_message_log_pkg.Log_Msg
104: ( p_location_id
105: , g_table_name
106: , 'Replicate_Record returned TRUE'
107: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
108: END IF;
109:
110: /** Record matched criteria -> return true ***/
111: RETURN TRUE;
136: AND PLA.LOCATION_ID = b_location_id;
137: r_location_ids c_location_ids%ROWTYPE;
138: l_resource_id NUMBER;
139: BEGIN
140: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
141: jtm_message_log_pkg.Log_Msg
142: ( p_location_id
143: , g_table_name
144: , 'Entering Insert_ACC_Record'
141: jtm_message_log_pkg.Log_Msg
142: ( p_location_id
143: , g_table_name
144: , 'Entering Insert_ACC_Record'
145: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
146: END IF;
147:
148: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
149: jtm_message_log_pkg.Log_Msg
144: , 'Entering Insert_ACC_Record'
145: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
146: END IF;
147:
148: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
149: jtm_message_log_pkg.Log_Msg
150: ( p_location_id
151: , g_table_name
152: , 'Inserting ACC record'
149: jtm_message_log_pkg.Log_Msg
150: ( p_location_id
151: , g_table_name
152: , 'Inserting ACC record'
153: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
154: END IF;
155:
156: -- get all of the primary key values, these must be inserted into the ACC tables
157: OPEN c_location_ids( p_location_id );
157: OPEN c_location_ids( p_location_id );
158: FETCH c_location_ids INTO r_location_ids;
159: IF c_location_ids%NOTFOUND THEN
160: /*** could not find location record -> exit ***/
161: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR THEN
162: jtm_message_log_pkg.Log_Msg
163: ( p_location_id
164: , g_table_name
165: , 'Insert ACC Record error: Could not find record associated with PO_LOCATION_ASSOCIATIONS_ALL.LOCATION_ID ' || p_location_id
162: jtm_message_log_pkg.Log_Msg
163: ( p_location_id
164: , g_table_name
165: , 'Insert ACC Record error: Could not find record associated with PO_LOCATION_ASSOCIATIONS_ALL.LOCATION_ID ' || p_location_id
166: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
167: END IF;
168: ELSE
169:
170: l_resource_id := r_location_ids.RESOURCE_ID;
169:
170: l_resource_id := r_location_ids.RESOURCE_ID;
171:
172: -- CSP_RS_CUST_RELATIONS
173: JTM_HOOK_UTIL_PKG.Insert_Acc
174: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
175: , P_ACC_TABLE_NAME => g_acc_table_name1
176: , P_PK1_NAME => g_pk1_name1
177: , P_PK1_NUM_VALUE => r_location_ids.RCR_ID
177: , P_PK1_NUM_VALUE => r_location_ids.RCR_ID
178: , P_RESOURCE_ID => l_resource_id
179: );
180: -- HZ_CUST_ACCT_SITES_ALL
181: JTM_HOOK_UTIL_PKG.Insert_Acc
182: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name2
183: , P_ACC_TABLE_NAME => g_acc_table_name2
184: , P_PK1_NAME => g_pk1_name2
185: , P_PK1_NUM_VALUE => r_location_ids.CAS_ID
185: , P_PK1_NUM_VALUE => r_location_ids.CAS_ID
186: , P_RESOURCE_ID => l_resource_id
187: );
188: -- HZ_CUST_SITE_USES_ALL
189: JTM_HOOK_UTIL_PKG.Insert_Acc
190: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name3
191: , P_ACC_TABLE_NAME => g_acc_table_name3
192: , P_PK1_NAME => g_pk1_name3
193: , P_PK1_NUM_VALUE => r_location_ids.CSU_ID
193: , P_PK1_NUM_VALUE => r_location_ids.CSU_ID
194: , P_RESOURCE_ID => l_resource_id
195: );
196: -- PO_LOCATION_ASSOCIATIONS_ALL
197: JTM_HOOK_UTIL_PKG.Insert_Acc
198: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name4
199: , P_ACC_TABLE_NAME => g_acc_table_name4
200: , P_PK1_NAME => g_pk1_name4
201: , P_PK1_NUM_VALUE => p_location_id
206: CSL_HZ_PARTY_SITES_ACC_PKG.INSERT_PARTY_SITE( r_location_ids.HPS_ID, l_resource_id );
207: END IF;
208: CLOSE c_location_ids;
209:
210: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
211: jtm_message_log_pkg.Log_Msg
212: ( p_location_id
213: , g_table_name
214: , 'Leaving Insert_ACC_Record'
211: jtm_message_log_pkg.Log_Msg
212: ( p_location_id
213: , g_table_name
214: , 'Leaving Insert_ACC_Record'
215: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
216: END IF;
217: END Insert_ACC_Record;
218:
219: /*** Private procedure that re-sends given assignment to mobile ***/
251: l_hps_acc_id NUMBER;
252: l_hzl_acc_id NUMBER;
253: l_resource_id NUMBER;
254: BEGIN
255: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
256: jtm_message_log_pkg.Log_Msg
257: ( p_location_id
258: , g_table_name
259: , 'Entering Update_ACC_Record'
256: jtm_message_log_pkg.Log_Msg
257: ( p_location_id
258: , g_table_name
259: , 'Entering Update_ACC_Record'
260: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
261: END IF;
262:
263: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
264: jtm_message_log_pkg.Log_Msg
259: , 'Entering Update_ACC_Record'
260: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
261: END IF;
262:
263: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
264: jtm_message_log_pkg.Log_Msg
265: ( p_location_id
266: , g_table_name
267: , 'Updating ACC record(s)'
264: jtm_message_log_pkg.Log_Msg
265: ( p_location_id
266: , g_table_name
267: , 'Updating ACC record(s)'
268: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
269: END IF;
270:
271: -- get all of the primary key values, these must be inserted into the ACC tables
272: OPEN c_location_ids( p_location_id );
272: OPEN c_location_ids( p_location_id );
273: FETCH c_location_ids INTO r_location_ids;
274: IF c_location_ids%NOTFOUND THEN
275: /*** could not find location record -> exit ***/
276: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR THEN
277: jtm_message_log_pkg.Log_Msg
278: ( p_location_id
279: , g_table_name
280: , 'Update ACC Record error: Could not find record associated with PO_LOCATION_ASSOCIATIONS_ALL.LOCATION_ID '
278: ( p_location_id
279: , g_table_name
280: , 'Update ACC Record error: Could not find record associated with PO_LOCATION_ASSOCIATIONS_ALL.LOCATION_ID '
281: || p_location_id
282: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
283: END IF;
284: ELSE
285: l_resource_id := r_location_ids.RESOURCE_ID;
286:
284: ELSE
285: l_resource_id := r_location_ids.RESOURCE_ID;
286:
287: -- CSP_RS_CUST_RELATIONS
288: l_rcr_acc_id := JTM_HOOK_UTIL_PKG.Get_Acc_Id(
289: P_ACC_TABLE_NAME => g_acc_table_name1
290: , P_PK1_NAME => g_pk1_name1
291: , P_PK1_NUM_VALUE => r_location_ids.RCR_ID
292: , P_RESOURCE_ID => l_resource_id);
289: P_ACC_TABLE_NAME => g_acc_table_name1
290: , P_PK1_NAME => g_pk1_name1
291: , P_PK1_NUM_VALUE => r_location_ids.RCR_ID
292: , P_RESOURCE_ID => l_resource_id);
293: JTM_HOOK_UTIL_PKG.Update_Acc
294: ( g_publication_item_name1
295: ,g_acc_table_name1
296: ,l_resource_id
297: ,l_rcr_acc_id
296: ,l_resource_id
297: ,l_rcr_acc_id
298: );
299: -- HZ_CUST_ACCT_SITES_ALL
300: l_cas_acc_id := JTM_HOOK_UTIL_PKG.Get_Acc_Id(
301: P_ACC_TABLE_NAME => g_acc_table_name2
302: , P_PK1_NAME => g_pk1_name2
303: , P_PK1_NUM_VALUE => r_location_ids.CAS_ID
304: , P_RESOURCE_ID => l_resource_id);
301: P_ACC_TABLE_NAME => g_acc_table_name2
302: , P_PK1_NAME => g_pk1_name2
303: , P_PK1_NUM_VALUE => r_location_ids.CAS_ID
304: , P_RESOURCE_ID => l_resource_id);
305: JTM_HOOK_UTIL_PKG.Update_Acc
306: ( g_publication_item_name2
307: ,g_acc_table_name2
308: ,l_resource_id
309: ,l_cas_acc_id
308: ,l_resource_id
309: ,l_cas_acc_id
310: );
311: -- HZ_CUST_SITE_USES_ALL
312: l_csu_acc_id := JTM_HOOK_UTIL_PKG.Get_Acc_Id(
313: P_ACC_TABLE_NAME => g_acc_table_name3
314: , P_PK1_NAME => g_pk1_name3
315: , P_PK1_NUM_VALUE => r_location_ids.CSU_ID
316: , P_RESOURCE_ID => l_resource_id);
313: P_ACC_TABLE_NAME => g_acc_table_name3
314: , P_PK1_NAME => g_pk1_name3
315: , P_PK1_NUM_VALUE => r_location_ids.CSU_ID
316: , P_RESOURCE_ID => l_resource_id);
317: JTM_HOOK_UTIL_PKG.Update_Acc
318: ( g_publication_item_name3
319: ,g_acc_table_name3
320: ,l_resource_id
321: ,l_csu_acc_id
320: ,l_resource_id
321: ,l_csu_acc_id
322: );
323: -- PO_LOCATION_ASSOCIATIONS_ALL
324: l_pla_acc_id := JTM_HOOK_UTIL_PKG.Get_Acc_Id(
325: P_ACC_TABLE_NAME => g_acc_table_name4
326: , P_PK1_NAME => g_pk1_name4
327: , P_PK1_NUM_VALUE => p_location_id
328: , P_RESOURCE_ID => l_resource_id);
325: P_ACC_TABLE_NAME => g_acc_table_name4
326: , P_PK1_NAME => g_pk1_name4
327: , P_PK1_NUM_VALUE => p_location_id
328: , P_RESOURCE_ID => l_resource_id);
329: JTM_HOOK_UTIL_PKG.Update_Acc
330: ( g_publication_item_name4
331: ,g_acc_table_name4
332: ,l_resource_id
333: ,l_pla_acc_id
340: END IF;
341:
342: CLOSE c_location_ids;
343:
344: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
345: jtm_message_log_pkg.Log_Msg
346: ( p_location_id
347: , g_table_name
348: , 'Leaving Update_ACC_Record'
345: jtm_message_log_pkg.Log_Msg
346: ( p_location_id
347: , g_table_name
348: , 'Leaving Update_ACC_Record'
349: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
350: END IF;
351: END Update_ACC_Record;
352:
353: /*** Private procedure that deletes assignment for resource from acc table ***/
375: AND CAS.party_site_id = HPS.party_site_id
376: AND PLA.LOCATION_ID = b_location_id;
377: r_location_ids c_location_ids%ROWTYPE;
378: BEGIN
379: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
380: jtm_message_log_pkg.Log_Msg
381: ( p_location_id
382: , g_table_name
383: , 'Entering Delete_ACC_Record'
380: jtm_message_log_pkg.Log_Msg
381: ( p_location_id
382: , g_table_name
383: , 'Entering Delete_ACC_Record'
384: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
385: END IF;
386:
387: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
388: jtm_message_log_pkg.Log_Msg
383: , 'Entering Delete_ACC_Record'
384: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
385: END IF;
386:
387: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
388: jtm_message_log_pkg.Log_Msg
389: ( p_location_id
390: , g_table_name
391: , 'Deleting ACC record for resource_id = ' || p_resource_id
388: jtm_message_log_pkg.Log_Msg
389: ( p_location_id
390: , g_table_name
391: , 'Deleting ACC record for resource_id = ' || p_resource_id
392: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
393: END IF;
394:
395: -- No delete of the shipment addres is possible
396: -- get all of the primary key values, these must be inserted into the ACC tables
397: OPEN c_location_ids( p_location_id );
398: FETCH c_location_ids INTO r_location_ids;
399: IF c_location_ids%NOTFOUND THEN
400: /*** could not find location record -> exit ***/
401: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR THEN
402: jtm_message_log_pkg.Log_Msg
403: ( p_location_id
404: , g_table_name
405: , 'Delete ACC Record error: Could not find record for LOCATION_ID ' || p_location_id
402: jtm_message_log_pkg.Log_Msg
403: ( p_location_id
404: , g_table_name
405: , 'Delete ACC Record error: Could not find record for LOCATION_ID ' || p_location_id
406: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
407: END IF;
408: ELSE
409: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
410: jtm_message_log_pkg.Log_Msg
405: , 'Delete ACC Record error: Could not find record for LOCATION_ID ' || p_location_id
406: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
407: END IF;
408: ELSE
409: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
410: jtm_message_log_pkg.Log_Msg
411: ( p_resource_id
412: , g_table_name
413: , 'Delete CSP_RS_CUST_RELATIONS acc record for user: ' || p_resource_id
410: jtm_message_log_pkg.Log_Msg
411: ( p_resource_id
412: , g_table_name
413: , 'Delete CSP_RS_CUST_RELATIONS acc record for user: ' || p_resource_id
414: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
415: END IF;
416: JTM_HOOK_UTIL_PKG.Delete_Acc
417: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
418: , P_ACC_TABLE_NAME => g_acc_table_name1
412: , g_table_name
413: , 'Delete CSP_RS_CUST_RELATIONS acc record for user: ' || p_resource_id
414: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
415: END IF;
416: JTM_HOOK_UTIL_PKG.Delete_Acc
417: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name1
418: , P_ACC_TABLE_NAME => g_acc_table_name1
419: , P_PK1_NAME => g_pk1_name1
420: , P_PK1_NUM_VALUE => r_location_ids.RCR_ID
420: , P_PK1_NUM_VALUE => r_location_ids.RCR_ID
421: , P_RESOURCE_ID => p_resource_id
422: );
423:
424: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
425: jtm_message_log_pkg.Log_Msg
426: ( p_resource_id
427: , g_table_name
428: , 'Delete HZ_CUST_ACCT_SITES_ALL acc record for user: ' || p_resource_id
425: jtm_message_log_pkg.Log_Msg
426: ( p_resource_id
427: , g_table_name
428: , 'Delete HZ_CUST_ACCT_SITES_ALL acc record for user: ' || p_resource_id
429: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
430: END IF;
431: JTM_HOOK_UTIL_PKG.Delete_Acc
432: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name2
433: , P_ACC_TABLE_NAME => g_acc_table_name2
427: , g_table_name
428: , 'Delete HZ_CUST_ACCT_SITES_ALL acc record for user: ' || p_resource_id
429: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
430: END IF;
431: JTM_HOOK_UTIL_PKG.Delete_Acc
432: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name2
433: , P_ACC_TABLE_NAME => g_acc_table_name2
434: , P_PK1_NAME => g_pk1_name2
435: , P_PK1_NUM_VALUE => r_location_ids.CAS_ID
435: , P_PK1_NUM_VALUE => r_location_ids.CAS_ID
436: , P_RESOURCE_ID => p_resource_id
437: );
438:
439: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
440: jtm_message_log_pkg.Log_Msg
441: ( p_resource_id
442: , g_table_name
443: , 'Delete HZ_CUST_SITE_USES_ALL acc record for user: ' || p_resource_id
440: jtm_message_log_pkg.Log_Msg
441: ( p_resource_id
442: , g_table_name
443: , 'Delete HZ_CUST_SITE_USES_ALL acc record for user: ' || p_resource_id
444: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
445: END IF;
446: JTM_HOOK_UTIL_PKG.Delete_Acc
447: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name3
448: , P_ACC_TABLE_NAME => g_acc_table_name3
442: , g_table_name
443: , 'Delete HZ_CUST_SITE_USES_ALL acc record for user: ' || p_resource_id
444: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
445: END IF;
446: JTM_HOOK_UTIL_PKG.Delete_Acc
447: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name3
448: , P_ACC_TABLE_NAME => g_acc_table_name3
449: , P_PK1_NAME => g_pk1_name3
450: , P_PK1_NUM_VALUE => r_location_ids.CSU_ID
450: , P_PK1_NUM_VALUE => r_location_ids.CSU_ID
451: , P_RESOURCE_ID => p_resource_id
452: );
453:
454: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
455: jtm_message_log_pkg.Log_Msg
456: ( p_resource_id
457: , g_table_name
458: , 'Delete PO_LOCATION_ASSOCIATIONS_ALL acc record for user: ' || p_resource_id
455: jtm_message_log_pkg.Log_Msg
456: ( p_resource_id
457: , g_table_name
458: , 'Delete PO_LOCATION_ASSOCIATIONS_ALL acc record for user: ' || p_resource_id
459: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
460: END IF;
461: JTM_HOOK_UTIL_PKG.Delete_Acc
462: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name4
463: , P_ACC_TABLE_NAME => g_acc_table_name4
457: , g_table_name
458: , 'Delete PO_LOCATION_ASSOCIATIONS_ALL acc record for user: ' || p_resource_id
459: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
460: END IF;
461: JTM_HOOK_UTIL_PKG.Delete_Acc
462: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name4
463: , P_ACC_TABLE_NAME => g_acc_table_name4
464: , P_PK1_NAME => g_pk1_name4
465: , P_PK1_NUM_VALUE => p_location_id
465: , P_PK1_NUM_VALUE => p_location_id
466: , P_RESOURCE_ID => p_resource_id
467: );
468:
469: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
470: jtm_message_log_pkg.Log_Msg
471: ( p_resource_id
472: , g_table_name
473: , 'Calling CSL_HZ_PARTY_SITES_ACC_PKG.Delete_Party_Site'
470: jtm_message_log_pkg.Log_Msg
471: ( p_resource_id
472: , g_table_name
473: , 'Calling CSL_HZ_PARTY_SITES_ACC_PKG.Delete_Party_Site'
474: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
475: END IF;
476:
477: CSL_HZ_PARTY_SITES_ACC_PKG.Delete_Party_Site( r_location_ids.HPS_ID, p_resource_id );
478: END IF;
477: CSL_HZ_PARTY_SITES_ACC_PKG.Delete_Party_Site( r_location_ids.HPS_ID, p_resource_id );
478: END IF;
479: CLOSE c_location_ids;
480:
481: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
482: jtm_message_log_pkg.Log_Msg
483: ( p_location_id
484: , g_table_name
485: , 'Leaving Delete_ACC_Record'
482: jtm_message_log_pkg.Log_Msg
483: ( p_location_id
484: , g_table_name
485: , 'Leaving Delete_ACC_Record'
486: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
487: END IF;
488: END Delete_ACC_Record;
489:
490: /*** Called before location Insert ***/
512: /*** get location record details from public API ***/
513: l_location_id := csp_ship_to_address_pvt.g_inv_loc_id;
514:
515: /*** get debug level ***/
516: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
517: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
518: jtm_message_log_pkg.Log_Msg
519: ( l_location_id
520: , g_table_name
513: l_location_id := csp_ship_to_address_pvt.g_inv_loc_id;
514:
515: /*** get debug level ***/
516: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
517: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
518: jtm_message_log_pkg.Log_Msg
519: ( l_location_id
520: , g_table_name
521: , 'Entering POST_INSERT hook'
518: jtm_message_log_pkg.Log_Msg
519: ( l_location_id
520: , g_table_name
521: , 'Entering POST_INSERT hook'
522: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
523: END IF;
524:
525: /*** Insert record if applicable ***/
526: IF Replicate_Record(l_location_id) THEN
526: IF Replicate_Record(l_location_id) THEN
527: Insert_ACC_Record(l_location_id);
528: END IF;
529:
530: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
531: jtm_message_log_pkg.Log_Msg
532: ( l_location_id
533: , g_table_name
534: , 'Leaving POST_INSERT hook'
531: jtm_message_log_pkg.Log_Msg
532: ( l_location_id
533: , g_table_name
534: , 'Leaving POST_INSERT hook'
535: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
536: END IF;
537:
538: x_return_status := FND_API.G_RET_STS_SUCCESS;
539: RETURN;
539: RETURN;
540:
541: EXCEPTION WHEN OTHERS THEN
542: /*** hook failed -> log error ***/
543: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR THEN
544: jtm_message_log_pkg.Log_Msg
545: ( l_location_id
546: , g_table_name
547: , 'Caught exception in POST_INSERT hook:' || fnd_global.local_chr(10) || sqlerrm
544: jtm_message_log_pkg.Log_Msg
545: ( l_location_id
546: , g_table_name
547: , 'Caught exception in POST_INSERT hook:' || fnd_global.local_chr(10) || sqlerrm
548: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
549: END IF;
550: fnd_msg_pub.Add_Exc_Msg('CSL_CSP_LOCATIONS_ACC_PKG','POST_INSERT_SHIP_LOCATION',sqlerrm);
551: -- x_return_status := FND_API.G_RET_STS_ERROR;
552: x_return_status := FND_API.G_RET_STS_SUCCESS;
583: /*** get assignment record details from public API ***/
584: l_location_id := csp_ship_to_address_pvt.g_inv_loc_id;
585:
586: /*** get debug level ***/
587: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
588:
589: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
590: jtm_message_log_pkg.Log_Msg
591: ( l_location_id
585:
586: /*** get debug level ***/
587: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
588:
589: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
590: jtm_message_log_pkg.Log_Msg
591: ( l_location_id
592: , g_table_name
593: , 'Entering POST_UPDATE hook'
590: jtm_message_log_pkg.Log_Msg
591: ( l_location_id
592: , g_table_name
593: , 'Entering POST_UPDATE hook'
594: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
595: END IF;
596:
597: IF Replicate_Record( l_location_id ) THEN
598: Update_ACC_Record(l_location_id);
597: IF Replicate_Record( l_location_id ) THEN
598: Update_ACC_Record(l_location_id);
599: END IF;
600:
601: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
602: jtm_message_log_pkg.Log_Msg
603: ( l_location_id
604: , g_table_name
605: , 'Leaving POST_UPDATE hook'
602: jtm_message_log_pkg.Log_Msg
603: ( l_location_id
604: , g_table_name
605: , 'Leaving POST_UPDATE hook'
606: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
607: END IF;
608:
609: x_return_status := FND_API.G_RET_STS_SUCCESS;
610: EXCEPTION WHEN OTHERS THEN
608:
609: x_return_status := FND_API.G_RET_STS_SUCCESS;
610: EXCEPTION WHEN OTHERS THEN
611: /*** hook failed -> log error ***/
612: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR THEN
613: jtm_message_log_pkg.Log_Msg
614: ( l_location_id
615: , g_table_name
616: , 'Caught exception in POST_UPDATE hook:' || fnd_global.local_chr(10) || sqlerrm
613: jtm_message_log_pkg.Log_Msg
614: ( l_location_id
615: , g_table_name
616: , 'Caught exception in POST_UPDATE hook:' || fnd_global.local_chr(10) || sqlerrm
617: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR);
618: END IF;
619: fnd_msg_pub.Add_Exc_Msg('CSL_JTF_TASKS_ACC_PKG','POST_UPDATE_SHIP_LOCATION',sqlerrm);
620: -- x_return_status := FND_API.G_RET_STS_ERROR;
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
666: AND CAS.party_site_id = HPS.party_site_id
667: AND RCR.RESOURCE_ID = b_resource_id;
668: BEGIN
669: /*** get debug level ***/
670: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
671: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
672: jtm_message_log_pkg.Log_Msg
673: ( p_resource_id
674: , g_table_name
667: AND RCR.RESOURCE_ID = b_resource_id;
668: BEGIN
669: /*** get debug level ***/
670: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
671: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
672: jtm_message_log_pkg.Log_Msg
673: ( p_resource_id
674: , g_table_name
675: , 'Entering Delete_All_ACC_Records procedure for user: ' || p_resource_id
672: jtm_message_log_pkg.Log_Msg
673: ( p_resource_id
674: , g_table_name
675: , 'Entering Delete_All_ACC_Records procedure for user: ' || p_resource_id
676: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
677: END IF;
678:
679: FOR r_location IN c_location( p_resource_id ) LOOP
680: Delete_ACC_Record(r_location.location_id, p_resource_id );
679: FOR r_location IN c_location( p_resource_id ) LOOP
680: Delete_ACC_Record(r_location.location_id, p_resource_id );
681: END LOOP;
682:
683: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
684: jtm_message_log_pkg.Log_Msg
685: ( p_resource_id
686: , g_table_name
687: , 'Leaving Delete_All_ACC_Records procedure for user: ' || p_resource_id
684: jtm_message_log_pkg.Log_Msg
685: ( p_resource_id
686: , g_table_name
687: , 'Leaving Delete_All_ACC_Records procedure for user: ' || p_resource_id
688: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
689: END IF;
690:
691: x_return_status := FND_API.G_RET_STS_SUCCESS;
692: EXCEPTION WHEN OTHERS THEN
717: AND RCR.RESOURCE_ID = b_resource_id;
718:
719: BEGIN
720: /*** get debug level ***/
721: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
722: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
723: jtm_message_log_pkg.Log_Msg
724: ( p_resource_id
725: , g_table_name
718:
719: BEGIN
720: /*** get debug level ***/
721: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
722: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
723: jtm_message_log_pkg.Log_Msg
724: ( p_resource_id
725: , g_table_name
726: , 'Entering Insert_All_ACC_Records procedure for user: ' || p_resource_id
723: jtm_message_log_pkg.Log_Msg
724: ( p_resource_id
725: , g_table_name
726: , 'Entering Insert_All_ACC_Records procedure for user: ' || p_resource_id
727: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
728: END IF;
729:
730: FOR r_location IN c_location( p_resource_id ) LOOP
731: IF Replicate_Record(r_location.location_id) THEN
732: Insert_ACC_Record(r_location.location_id);
733: END IF;
734: END LOOP;
735:
736: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
737: jtm_message_log_pkg.Log_Msg
738: ( p_resource_id
739: , g_table_name
740: , 'Leaving Insert_All_ACC_Records procedure for user: ' || p_resource_id
737: jtm_message_log_pkg.Log_Msg
738: ( p_resource_id
739: , g_table_name
740: , 'Leaving Insert_All_ACC_Records procedure for user: ' || p_resource_id
741: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
742: END IF;
743:
744: x_return_status := FND_API.G_RET_STS_SUCCESS;
745: EXCEPTION WHEN OTHERS THEN