2: /* $Header: cslteacb.pls 115.6 2002/11/08 14:01:15 asiegers ship $ */
3:
4: /*** Globals ***/
5: g_acc_table_name CONSTANT VARCHAR2(30) := 'JTM_JTF_TASK_REFERENCES_ACC';
6: g_publication_item_name CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
7: JTM_HOOK_UTIL_PKG.t_publication_item_list('JTF_TASK_REFERENCES');
8: g_table_name CONSTANT VARCHAR2(30) := 'JTF_TASK_REFERENCES_B';
9: g_pk1_name CONSTANT VARCHAR2(30) := 'TASK_REFERENCE_ID';
10: g_debug_level NUMBER; -- debug level
3:
4: /*** Globals ***/
5: g_acc_table_name CONSTANT VARCHAR2(30) := 'JTM_JTF_TASK_REFERENCES_ACC';
6: g_publication_item_name CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
7: JTM_HOOK_UTIL_PKG.t_publication_item_list('JTF_TASK_REFERENCES');
8: g_table_name CONSTANT VARCHAR2(30) := 'JTF_TASK_REFERENCES_B';
9: g_pk1_name CONSTANT VARCHAR2(30) := 'TASK_REFERENCE_ID';
10: g_debug_level NUMBER; -- debug level
11:
54: l_last_rundate DATE;
55: l_return_status VARCHAR2(2000);
56: BEGIN
57: /*** get debug level ***/
58: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
59: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
60: jtm_message_log_pkg.Log_Msg
61: ( 0
62: , g_table_name
55: l_return_status VARCHAR2(2000);
56: BEGIN
57: /*** get debug level ***/
58: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
59: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
60: jtm_message_log_pkg.Log_Msg
61: ( 0
62: , g_table_name
63: , 'Entering CON_REQUEST_TASK_REFERENCES'
60: jtm_message_log_pkg.Log_Msg
61: ( 0
62: , g_table_name
63: , 'Entering CON_REQUEST_TASK_REFERENCES'
64: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
65: );
66: END IF;
67:
68: /*** First retrieve last run date of the conccurent program ***/
69: OPEN c_LastRundate;
70: FETCH c_LastRundate INTO r_LastRundate;
71: IF c_LastRundate%NOTFOUND THEN
72: /*ERROR package is not seeded*/
73: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR THEN
74: jtm_message_log_pkg.Log_Msg
75: ( 0
76: , g_table_name
77: , 'CON_REQUEST_TASK_REFERENCES called but not seeded'
74: jtm_message_log_pkg.Log_Msg
75: ( 0
76: , g_table_name
77: , 'CON_REQUEST_TASK_REFERENCES called but not seeded'
78: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_ERROR
79: );
80: END IF;
81: CLOSE c_LastRundate;
82: ROLLBACK;
85: l_last_rundate := r_LastRundate.last_run_date;
86: END IF;
87: CLOSE c_LastRundate;
88:
89: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
90: jtm_message_log_pkg.Log_Msg
91: ( 0
92: , g_table_name
93: , 'Updating LAST_RUN_DATE from '||r_LastRundate.LAST_RUN_DATE||' to '||sysdate
90: jtm_message_log_pkg.Log_Msg
91: ( 0
92: , g_table_name
93: , 'Updating LAST_RUN_DATE from '||r_LastRundate.LAST_RUN_DATE||' to '||sysdate
94: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
95: );
96: END IF;
97:
98: /*Update the last run date*/
105: /*Get all escaleted tasks not yet in the acc table*/
106: OPEN c_esc( r_task.task_id, r_task.resource_id, l_last_rundate );
107: FETCH c_esc INTO r_esc;
108: IF c_esc%FOUND THEN
109: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
110: jtm_message_log_pkg.Log_Msg
111: ( r_esc.task_reference_id
112: , g_table_name
113: , 'Inserting escalation '||r_esc.task_reference_id||' for resource '||r_task.resource_id
110: jtm_message_log_pkg.Log_Msg
111: ( r_esc.task_reference_id
112: , g_table_name
113: , 'Inserting escalation '||r_esc.task_reference_id||' for resource '||r_task.resource_id
114: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
115: );
116: END IF;
117:
118: JTM_HOOK_UTIL_PKG.Insert_Acc
114: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
115: );
116: END IF;
117:
118: JTM_HOOK_UTIL_PKG.Insert_Acc
119: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
120: ,P_ACC_TABLE_NAME => g_acc_table_name
121: ,P_RESOURCE_ID => r_task.resource_id
122: ,P_PK1_NAME => g_pk1_name
132: END LOOP;
133:
134: COMMIT;
135:
136: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
137: jtm_message_log_pkg.Log_Msg
138: ( 0
139: , g_table_name
140: , 'Leaving CON_REQUEST_TASK_REFERENCES'
137: jtm_message_log_pkg.Log_Msg
138: ( 0
139: , g_table_name
140: , 'Leaving CON_REQUEST_TASK_REFERENCES'
141: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
142: );
143: END IF;
144: EXCEPTION
145: WHEN OTHERS THEN
147: ( 0
148: , g_table_name
149: , 'CON_REQUEST_TASK_REFERENCES'||fnd_global.local_chr(10)||
150: 'Error: '||sqlerrm
151: , JTM_HOOK_UTIL_PKG.g_debug_level_error);
152: ROLLBACK;
153: RETURN;
154: END CON_REQUEST_TASK_REFERENCES;
155:
177: SELECT task_id
178: from csl_jtf_tasks_acc));
179: BEGIN
180: /*** get debug level ***/
181: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
182: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
183: jtm_message_log_pkg.Log_Msg
184: ( p_resource_id
185: , g_table_name
178: from csl_jtf_tasks_acc));
179: BEGIN
180: /*** get debug level ***/
181: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
182: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
183: jtm_message_log_pkg.Log_Msg
184: ( p_resource_id
185: , g_table_name
186: , 'Entering DELETE_ALL_ACC_RECORDS'
183: jtm_message_log_pkg.Log_Msg
184: ( p_resource_id
185: , g_table_name
186: , 'Entering DELETE_ALL_ACC_RECORDS'
187: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
188: );
189: END IF;
190:
191: FOR r_no_esc IN c_no_esc( p_resource_id ) LOOP
188: );
189: END IF;
190:
191: FOR r_no_esc IN c_no_esc( p_resource_id ) LOOP
192: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
193: jtm_message_log_pkg.Log_Msg
194: ( r_no_esc.task_reference_id
195: , g_table_name
196: , 'Removing escalation '||r_no_esc.task_reference_id||' for resource '||p_resource_id
193: jtm_message_log_pkg.Log_Msg
194: ( r_no_esc.task_reference_id
195: , g_table_name
196: , 'Removing escalation '||r_no_esc.task_reference_id||' for resource '||p_resource_id
197: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
198: );
199: END IF;
200: JTM_HOOK_UTIL_PKG.Delete_Acc
201: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
196: , 'Removing escalation '||r_no_esc.task_reference_id||' for resource '||p_resource_id
197: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
198: );
199: END IF;
200: JTM_HOOK_UTIL_PKG.Delete_Acc
201: ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
202: ,P_ACC_TABLE_NAME => g_acc_table_name
203: ,P_RESOURCE_ID => p_resource_id
204: ,P_PK1_NAME => g_pk1_name
207: END LOOP;
208:
209: x_return_status := FND_API.G_RET_STS_SUCCESS;
210:
211: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
212: jtm_message_log_pkg.Log_Msg
213: ( p_resource_id
214: , g_table_name
215: , 'Leaving DELETE_ALL_ACC_RECORDS'
212: jtm_message_log_pkg.Log_Msg
213: ( p_resource_id
214: , g_table_name
215: , 'Leaving DELETE_ALL_ACC_RECORDS'
216: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
217: );
218: END IF;
219: EXCEPTION
220: WHEN OTHERS THEN
224: ( p_resource_id
225: , g_table_name
226: , 'CON_REQUEST_TASK_REFERENCES'||fnd_global.local_chr(10)||
227: 'Error: '||sqlerrm
228: , JTM_HOOK_UTIL_PKG.g_debug_level_error);
229: ROLLBACK;
230: RAISE;
231: END DELETE_ALL_ACC_RECORDS;
232: