[Home] [Help]
49: FROM csm_incidents_all_acc acc,
50: cs_incidents_all_b inc,
51: cs_incident_statuses_b ists
52: WHERE inc.incident_id = acc.incident_id
53: AND decode(CSM_UTIL_PKG.get_group_owner(inc.owner_group_id),
54: -1,
55: CSM_UTIL_PKG.get_owner(inc.created_by),
56: CSM_UTIL_PKG.get_group_owner(inc.owner_group_id)) = acc.user_id
57: AND (inc.creation_date < (SYSDATE - csm_profile_pkg.get_task_history_days(acc.user_id)))
51: cs_incident_statuses_b ists
52: WHERE inc.incident_id = acc.incident_id
53: AND decode(CSM_UTIL_PKG.get_group_owner(inc.owner_group_id),
54: -1,
55: CSM_UTIL_PKG.get_owner(inc.created_by),
56: CSM_UTIL_PKG.get_group_owner(inc.owner_group_id)) = acc.user_id
57: AND (inc.creation_date < (SYSDATE - csm_profile_pkg.get_task_history_days(acc.user_id)))
58: AND inc.INCIDENT_STATUS_ID = ists.INCIDENT_STATUS_ID
59: AND ists.CLOSE_FLAG = 'Y';
52: WHERE inc.incident_id = acc.incident_id
53: AND decode(CSM_UTIL_PKG.get_group_owner(inc.owner_group_id),
54: -1,
55: CSM_UTIL_PKG.get_owner(inc.created_by),
56: CSM_UTIL_PKG.get_group_owner(inc.owner_group_id)) = acc.user_id
57: AND (inc.creation_date < (SYSDATE - csm_profile_pkg.get_task_history_days(acc.user_id)))
58: AND inc.INCIDENT_STATUS_ID = ists.INCIDENT_STATUS_ID
59: AND ists.CLOSE_FLAG = 'Y';
60:
90:
91: FETCH l_purge_incidents_csr BULK COLLECT INTO l_incident_tbl,l_userid_tbl,l_cnt_tbl LIMIT 50;
92: EXIT WHEN l_incident_tbl.COUNT = 0;
93:
94: CSM_UTIL_PKG.LOG(TO_CHAR(l_incident_tbl.COUNT) || ' records sent for purge', 'CSM_SR_EVENT_PKG.PURGE_INCIDENTS_CONC',FND_LOG.LEVEL_EVENT);
95:
96: FOR I IN 1..l_incident_tbl.count
97: LOOP
98: l_incident_id:=l_incident_tbl(I);
131: l_error_msg := ' Exception in Purge_incidents_conc for incident_id:'
132: || to_char(l_incident_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
133: p_status := 'ERROR';
134: p_message := 'Error in CSM_SR_EVENT_PKG.PURGE_INCIDENTS_CONC: ' || l_error_msg;
135: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.PURGE_INCIDENTS_CONC',FND_LOG.LEVEL_EVENT);
136: -- x_return_status := FND_API.G_RET_STS_ERROR ;
137: -- RAISE;
138: END PURGE_INCIDENTS_CONC;
139:
156: AND tsk.SCHEDULED_END_DATE IS NOT NULL
157: ;
158:
159: BEGIN
160: CSM_UTIL_PKG.LOG('Entering CSM_SR_EVENT_PKG.IS_SR_TASK for task_id: ' || p_task_id,
161: 'CSM_SR_EVENT_PKG.IS_SR_TASK',FND_LOG.LEVEL_PROCEDURE);
162:
163: l_source_object_type_code := NULL;
164:
165: OPEN l_jtf_tasks_csr(p_task_id);
166: FETCH l_jtf_tasks_csr INTO l_source_object_type_code;
167: IF l_jtf_tasks_csr%NOTFOUND THEN
168: CLOSE l_jtf_tasks_csr;
169: CSM_UTIL_PKG.LOG('Not a mobile Task Type for task_id: ' || p_task_id,
170: 'CSM_SR_EVENT_PKG.IS_SR_TASK',FND_LOG.LEVEL_EXCEPTION);
171: RETURN FALSE;
172: END IF;
173: CLOSE l_jtf_tasks_csr;
172: END IF;
173: CLOSE l_jtf_tasks_csr;
174:
175: IF (l_source_object_type_code IN ('SR', 'TASK') OR l_source_object_type_code IS NULL) THEN
176: CSM_UTIL_PKG.LOG('Leaving CSM_SR_EVENT_PKG.IS_SR_TASK for task_id: ' || p_task_id,
177: 'CSM_SR_EVENT_PKG.IS_SR_TASK', FND_LOG.LEVEL_PROCEDURE);
178: RETURN TRUE;
179: ELSE
180: CSM_UTIL_PKG.LOG('Not a mobile Task Type for task_id: ' || p_task_id,
176: CSM_UTIL_PKG.LOG('Leaving CSM_SR_EVENT_PKG.IS_SR_TASK for task_id: ' || p_task_id,
177: 'CSM_SR_EVENT_PKG.IS_SR_TASK', FND_LOG.LEVEL_PROCEDURE);
178: RETURN TRUE;
179: ELSE
180: CSM_UTIL_PKG.LOG('Not a mobile Task Type for task_id: ' || p_task_id,
181: 'CSM_SR_EVENT_PKG.IS_SR_TASK',FND_LOG.LEVEL_EXCEPTION);
182: RETURN FALSE;
183: END IF;
184:
187: l_sqlerrno := to_char(SQLCODE);
188: l_sqlerrmsg := substr(SQLERRM, 1,2000);
189: l_error_msg := ' Exception in IS_SR_TASK for task_id:' || to_char(p_task_id)
190: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
191: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.IS_SR_TASK',FND_LOG.LEVEL_EXCEPTION);
192: RETURN FALSE;
193: END IS_SR_TASK;
194:
195: FUNCTION IS_TASK_STATUS_DOWNLOADABLE(p_task_id IN NUMBER)
213: OR jts.completed_flag = 'Y'
214: ));
215:
216: BEGIN
217: CSM_UTIL_PKG.LOG('Entering CSM_SR_EVENT_PKG.IS_TASK_STATUS_DOWNLOADABLE for task_id: ' || p_task_id,
218: 'CSM_SR_EVENT_PKG.IS_TASK_STATUS_DOWNLOADABLE',FND_LOG.LEVEL_PROCEDURE);
219:
220: OPEN l_jtf_task_status_csr(p_task_id);
221: FETCH l_jtf_task_status_csr INTO l_dummy;
220: OPEN l_jtf_task_status_csr(p_task_id);
221: FETCH l_jtf_task_status_csr INTO l_dummy;
222: IF l_jtf_task_status_csr%NOTFOUND THEN
223: CLOSE l_jtf_task_status_csr;
224: CSM_UTIL_PKG.LOG('Task Status not downloadable for task_id: ' || p_task_id,
225: 'CSM_SR_EVENT_PKG.IS_TASK_STATUS_DOWNLOADABLE',FND_LOG.LEVEL_EXCEPTION);
226: RETURN FALSE;
227: END IF;
228: CLOSE l_jtf_task_status_csr;
226: RETURN FALSE;
227: END IF;
228: CLOSE l_jtf_task_status_csr;
229:
230: CSM_UTIL_PKG.LOG('Leaving CSM_SR_EVENT_PKG.IS_TASK_STATUS_DOWNLOADABLE for task_id: ' || p_task_id,
231: 'CSM_SR_EVENT_PKG.IS_TASK_STATUS_DOWNLOADABLE',FND_LOG.LEVEL_PROCEDURE);
232:
233: RETURN TRUE;
234: EXCEPTION
236: l_sqlerrno := to_char(SQLCODE);
237: l_sqlerrmsg := substr(SQLERRM, 1,2000);
238: l_error_msg := ' Exception in IS_TASK_STATUS_DOWNLOADABLE for task_id:' || to_char(p_task_id)
239: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
240: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.IS_TASK_STATUS_DOWNLOADABLE',FND_LOG.LEVEL_EXCEPTION);
241: RETURN FALSE;
242: END IS_TASK_STATUS_DOWNLOADABLE;
243:
244: FUNCTION IS_ASSGN_STATUS_DOWNLOADABLE(p_task_assignment_id IN NUMBER)
264: OR jts.completed_flag = 'Y'
265: ));
266:
267: BEGIN
268: CSM_UTIL_PKG.LOG('Entering CSM_SR_EVENT_PKG.IS_ASSGN_STATUS_DOWNLOADABLE for task_assignment_id: ' || p_task_assignment_id,
269: 'CSM_SR_EVENT_PKG.IS_ASSGN_STATUS_DOWNLOADABLE',FND_LOG.LEVEL_PROCEDURE);
270:
271: OPEN l_jtf_task_assg_status_csr(p_task_assignment_id);
272: FETCH l_jtf_task_assg_status_csr INTO l_dummy;
271: OPEN l_jtf_task_assg_status_csr(p_task_assignment_id);
272: FETCH l_jtf_task_assg_status_csr INTO l_dummy;
273: IF l_jtf_task_assg_status_csr%NOTFOUND THEN
274: CLOSE l_jtf_task_assg_status_csr;
275: CSM_UTIL_PKG.LOG('Task Assignment Status not downloadable for task_assignment_id: ' || p_task_assignment_id,
276: 'CSM_SR_EVENT_PKG.IS_ASSGN_STATUS_DOWNLOADABLE',FND_LOG.LEVEL_EXCEPTION);
277: RETURN FALSE;
278: END IF;
279: CLOSE l_jtf_task_assg_status_csr;
277: RETURN FALSE;
278: END IF;
279: CLOSE l_jtf_task_assg_status_csr;
280:
281: CSM_UTIL_PKG.LOG('Leaving CSM_SR_EVENT_PKG.IS_ASSGN_STATUS_DOWNLOADABLE for task_assignment_id: ' || p_task_assignment_id,
282: 'CSM_SR_EVENT_PKG.IS_ASSGN_STATUS_DOWNLOADABLE',FND_LOG.LEVEL_PROCEDURE);
283:
284: RETURN TRUE;
285: EXCEPTION
287: l_sqlerrno := to_char(SQLCODE);
288: l_sqlerrmsg := substr(SQLERRM, 1,2000);
289: l_error_msg := ' Exception in IS_ASSGN_STATUS_DOWNLOADABLE for task_assignment_id:' || to_char(p_task_assignment_id)
290: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
291: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.IS_ASSGN_STATUS_DOWNLOADABLE',FND_LOG.LEVEL_EXCEPTION);
292: RETURN FALSE;
293: END IS_ASSGN_STATUS_DOWNLOADABLE;
294:
295: PROCEDURE SPAWN_SR_CONTACTS_INS(p_incident_id IN NUMBER, p_sr_contact_point_id IN NUMBER,
322: AND SYSDATE BETWEEN jtrs.start_date_active AND nvl(jtrs.end_date_active, SYSDATE)
323: ;
324:
325: BEGIN
326: CSM_UTIL_PKG.LOG('Entering CSM_SR_EVENT_PKG.SPAWN_SR_CONTACTS_INS for incident_id: ' || p_incident_id,
327: 'CSM_SR_EVENT_PKG.SPAWN_SR_CONTACTS_INS',FND_LOG.LEVEL_PROCEDURE);
328:
329: FOR r_srcontpts_rec IN l_srcontpts_csr(p_incident_id, p_sr_contact_point_id) LOOP
330: IF r_srcontpts_rec.contact_type = 'EMPLOYEE' THEN
349: csm_sr_contact_event_pkg.sr_cntact_mdirty_i(p_sr_contact_point_id=>r_srcontpts_rec.sr_contact_point_id,
350: p_user_id=>p_user_id);
351: END LOOP;
352:
353: CSM_UTIL_PKG.LOG('Leaving CSM_SR_EVENT_PKG.SPAWN_SR_CONTACTS_INS for task_assignment_id: ' || p_incident_id,
354: 'CSM_SR_EVENT_PKG.SPAWN_SR_CONTACTS_INS',FND_LOG.LEVEL_PROCEDURE);
355: EXCEPTION
356: WHEN OTHERS THEN
357: l_sqlerrno := to_char(SQLCODE);
357: l_sqlerrno := to_char(SQLCODE);
358: l_sqlerrmsg := substr(SQLERRM, 1,2000);
359: l_error_msg := ' Exception in SPAWN_SR_CONTACTS_INS for incident_id:' || to_char(p_incident_id)
360: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
361: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.SPAWN_SR_CONTACTS_INS',FND_LOG.LEVEL_EXCEPTION);
362: RAISE;
363: END SPAWN_SR_CONTACTS_INS;
364:
365: PROCEDURE SR_ITEM_INS_INIT(p_incident_id IN NUMBER, p_instance_id IN NUMBER, p_party_site_id IN NUMBER,
371: l_error_msg VARCHAR2(4000);
372: l_return_status VARCHAR2(2000);
373:
374: BEGIN
375: CSM_UTIL_PKG.LOG('Entering SR_ITEM_INS_INIT for incident_id: ' || p_incident_id ||
376: ' and instance_id: ' || p_instance_id,'CSM_SR_EVENT_PKG.SR_ITEM_INS_INIT',FND_LOG.LEVEL_PROCEDURE);
377:
378:
379: -- initialize count of IB items at location to 0;
382: -- item instances fork
383: csm_sr_event_pkg.spawn_item_instances_ins(p_instance_id=>p_instance_id,p_organization_id=>p_organization_id,
384: p_user_id=>p_user_id);
385:
386: IF NOT CSM_UTIL_PKG.IS_HTML5_USER(p_user_id ) THEN
387: -- get IB at location
388: csm_item_instance_event_pkg.get_ib_at_location(p_instance_id=>p_instance_id,p_party_site_id=>p_party_site_id,
389: p_party_id=>p_party_id,p_location_id=>p_location_id,
390: p_user_id=>p_user_id, p_flow_type=>p_flow_type);
400: x_return_status=>l_return_status);
401:
402: END IF;
403:
404: CSM_UTIL_PKG.LOG('Leaving SR_ITEM_INS_INIT for incident_id: ' || p_incident_id ||
405: ' and instance_id: ' || p_instance_id,'CSM_SR_EVENT_PKG.SR_ITEM_INS_INIT',FND_LOG.LEVEL_PROCEDURE);
406: EXCEPTION
407: WHEN OTHERS THEN
408: l_sqlerrno := to_char(SQLCODE);
408: l_sqlerrno := to_char(SQLCODE);
409: l_sqlerrmsg := substr(SQLERRM, 1,2000);
410: l_error_msg := ' Exception in SR_ITEM_INS_INIT for incident_id: ' || p_incident_id || ' and instance_id:'
411: || to_char(p_instance_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
412: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.SR_ITEM_INS_INIT',FND_LOG.LEVEL_EXCEPTION);
413: RAISE;
414: END SR_ITEM_INS_INIT;
415:
416: PROCEDURE SPAWN_ITEM_INSTANCES_INS (p_instance_id IN NUMBER, p_organization_id IN NUMBER, p_user_id IN NUMBER)
476: AND SYSDATE BETWEEN NVL(attrval.active_start_date, SYSDATE) AND NVL(attrval.active_end_date, SYSDATE)
477: AND SYSDATE BETWEEN NVL(attr.active_start_date, SYSDATE) AND NVL(attr.active_end_date, SYSDATE)
478: ;
479:
480: l_htm5_user BOOLEAN:=CSM_UTIL_PKG.IS_HTML5_USER(p_user_id );
481:
482: BEGIN
483: CSM_UTIL_PKG.LOG('Entering SPAWN_ITEM_INSTANCES_INS for instance_id: ' || p_instance_id,
484: 'CSM_SR_EVENT_PKG.SPAWN_ITEM_INSTANCES_INS',FND_LOG.LEVEL_PROCEDURE);
479:
480: l_htm5_user BOOLEAN:=CSM_UTIL_PKG.IS_HTML5_USER(p_user_id );
481:
482: BEGIN
483: CSM_UTIL_PKG.LOG('Entering SPAWN_ITEM_INSTANCES_INS for instance_id: ' || p_instance_id,
484: 'CSM_SR_EVENT_PKG.SPAWN_ITEM_INSTANCES_INS',FND_LOG.LEVEL_PROCEDURE);
485:
486: l_transaction_date := SYSDATE;
487: l_null_relationship_id := TO_NUMBER(NULL);
485:
486: l_transaction_date := SYSDATE;
487: l_null_relationship_id := TO_NUMBER(NULL);
488:
489: FOR l_instance_children_rec IN l_instance_children_csr(l_transaction_date,csm_util_pkg.bool2yn(l_htm5_user)) LOOP
490:
491: IF l_instance_children_rec.relationship_id IS NOT NULL THEN
492: csm_item_instance_event_pkg.ii_relationships_acc_i(l_instance_children_rec.relationship_id, p_user_id, l_error_msg, l_return_status);
493: END IF;
522: );
523: END LOOP;
524: END IF;
525:
526: CSM_UTIL_PKG.LOG('Leaving SPAWN_ITEM_INSTANCES_INS for instance_id: ' || p_instance_id,
527: 'CSM_SR_EVENT_PKG.SPAWN_ITEM_INSTANCES_INS',FND_LOG.LEVEL_PROCEDURE);
528: EXCEPTION
529: WHEN OTHERS THEN
530: l_sqlerrno := to_char(SQLCODE);
530: l_sqlerrno := to_char(SQLCODE);
531: l_sqlerrmsg := substr(SQLERRM, 1,2000);
532: l_error_msg := l_error_msg || '- Exception in SPAWN_ITEM_INSTANCES_INS for instance_id:'
533: || to_char(p_instance_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
534: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.SPAWN_ITEM_INSTANCES_INS',FND_LOG.LEVEL_EXCEPTION);
535: RAISE;
536: END SPAWN_ITEM_INSTANCES_INS;
537:
538: PROCEDURE INCIDENTS_ACC_I(p_incident_id IN NUMBER, p_user_id IN NUMBER)
542: l_error_msg VARCHAR2(4000);
543: l_return_status VARCHAR2(2000);
544:
545: BEGIN
546: CSM_UTIL_PKG.LOG('Entering INCIDENTS_ACC_I for incident_id: ' || p_incident_id,
547: 'CSM_SR_EVENT_PKG.INCIDENTS_ACC_I',FND_LOG.LEVEL_PROCEDURE);
548:
549: CSM_ACC_PKG.Insert_Acc
550: ( P_PUBLICATION_ITEM_NAMES => g_incidents_pubi_name
554: ,P_PK1_NUM_VALUE => p_incident_id
555: ,P_USER_ID => p_user_id
556: );
557:
558: CSM_UTIL_PKG.LOG('Leaving INCIDENTS_ACC_I for incident_id: ' || p_incident_id,
559: 'CSM_SR_EVENT_PKG.INCIDENTS_ACC_I',FND_LOG.LEVEL_PROCEDURE);
560: EXCEPTION
561: WHEN OTHERS THEN
562: l_sqlerrno := to_char(SQLCODE);
562: l_sqlerrno := to_char(SQLCODE);
563: l_sqlerrmsg := substr(SQLERRM, 1,2000);
564: l_error_msg := ' Exception in INCIDENTS_ACC_I for incident_id:'
565: || to_char(p_incident_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
566: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.INCIDENTS_ACC_I',FND_LOG.LEVEL_EXCEPTION);
567: RAISE;
568: END INCIDENTS_ACC_I;
569:
570: PROCEDURE SPAWN_SR_CONTACT_DEL(p_incident_id IN NUMBER, p_sr_contact_point_id IN NUMBER,
597: AND SYSDATE BETWEEN jtrs.start_date_active AND nvl(jtrs.end_date_active, SYSDATE)
598: ;
599:
600: BEGIN
601: CSM_UTIL_PKG.LOG('Entering CSM_SR_EVENT_PKG.SPAWN_SR_CONTACT_DEL for incident_id: ' || p_incident_id,
602: 'CSM_SR_EVENT_PKG.SPAWN_SR_CONTACT_DEL',FND_LOG.LEVEL_PROCEDURE);
603:
604: FOR r_srcontpts_rec IN l_srcontpts_csr(p_incident_id, p_sr_contact_point_id) LOOP
605: IF r_srcontpts_rec.contact_type = 'EMPLOYEE' THEN
625: csm_sr_contact_event_pkg.sr_cntact_mdirty_d(p_sr_contact_point_id=>r_srcontpts_rec.sr_contact_point_id,
626: p_user_id=>p_user_id);
627: END LOOP;
628:
629: CSM_UTIL_PKG.LOG('Leaving CSM_SR_EVENT_PKG.SPAWN_SR_CONTACT_DEL for incident_id: ' || p_incident_id,
630: 'CSM_SR_EVENT_PKG.SPAWN_SR_CONTACT_DEL',FND_LOG.LEVEL_PROCEDURE);
631: EXCEPTION
632: WHEN OTHERS THEN
633: l_sqlerrno := to_char(SQLCODE);
633: l_sqlerrno := to_char(SQLCODE);
634: l_sqlerrmsg := substr(SQLERRM, 1,2000);
635: l_error_msg := ' Exception in SPAWN_SR_CONTACT_DEL for incident_id:' || to_char(p_incident_id)
636: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
637: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.SPAWN_SR_CONTACT_DEL',FND_LOG.LEVEL_EXCEPTION);
638: RAISE;
639: END SPAWN_SR_CONTACT_DEL;
640:
641: PROCEDURE SR_ITEM_DEL_INIT(p_incident_id IN NUMBER, p_instance_id IN NUMBER, p_party_site_id IN NUMBER,
647: l_error_msg VARCHAR2(4000);
648: l_return_status VARCHAR2(2000);
649:
650: BEGIN
651: CSM_UTIL_PKG.LOG('Entering SR_ITEM_DEL_INIT for incident_id: ' || p_incident_id ||
652: ' and instance_id: ' || p_instance_id,'CSM_SR_EVENT_PKG.SR_ITEM_DEL_INIT',FND_LOG.LEVEL_PROCEDURE);
653:
654: -- spawn item instances del
655: csm_sr_event_pkg.spawn_item_instances_del(p_instance_id=>p_instance_id,p_organization_id=>p_organization_id,
654: -- spawn item instances del
655: csm_sr_event_pkg.spawn_item_instances_del(p_instance_id=>p_instance_id,p_organization_id=>p_organization_id,
656: p_user_id=>p_user_id);
657:
658: IF NOT CSM_UTIL_PKG.IS_HTML5_USER(p_user_id ) THEN
659:
660: -- delete IB at location (logic not correct)
661: -- csm_item_instance_event_pkg.delete_ib_at_location(p_incident_id => p_incident_id, p_instance_id=>p_instance_id,p_party_site_id=>p_party_site_id,
662: -- p_party_id=>p_party_id,p_location_id=>p_location_id,
672: p_error_msg=>l_error_msg,
673: x_return_status=>l_return_status);
674:
675: END IF;
676: CSM_UTIL_PKG.LOG('Leaving SR_ITEM_DEL_INIT for incident_id: ' || p_incident_id ||
677: ' and instance_id: ' || p_instance_id,'CSM_SR_EVENT_PKG.SR_ITEM_DEL_INIT',FND_LOG.LEVEL_PROCEDURE);
678: EXCEPTION
679: WHEN OTHERS THEN
680: l_sqlerrno := to_char(SQLCODE);
680: l_sqlerrno := to_char(SQLCODE);
681: l_sqlerrmsg := substr(SQLERRM, 1,2000);
682: l_error_msg := ' Exception in SR_ITEM_DEL_INIT for incident_id: ' || p_incident_id || ' and instance_id:'
683: || to_char(p_instance_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
684: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.SR_ITEM_DEL_INIT',FND_LOG.LEVEL_EXCEPTION);
685: RAISE;
686: END SR_ITEM_DEL_INIT;
687:
688: PROCEDURE SPAWN_ITEM_INSTANCES_DEL (p_instance_id IN NUMBER, p_organization_id IN NUMBER,p_user_id IN NUMBER)
746: AND EXISTS(SELECT 1 FROM CSM_CSI_ITEM_ATTR_ACC acc
747: WHERE acc.attribute_value_id = attrval.attribute_value_id
748: AND acc.USER_ID=p_user_id);
749:
750: l_htm5_user BOOLEAN:= CSM_UTIL_PKG.IS_HTML5_USER(p_user_id );
751: BEGIN
752: CSM_UTIL_PKG.LOG('Entering SPAWN_ITEM_INSTANCES_DEL for instance_id: ' || p_instance_id,
753: 'CSM_SR_EVENT_PKG.SPAWN_ITEM_INSTANCES_DEL',FND_LOG.LEVEL_PROCEDURE);
754:
748: AND acc.USER_ID=p_user_id);
749:
750: l_htm5_user BOOLEAN:= CSM_UTIL_PKG.IS_HTML5_USER(p_user_id );
751: BEGIN
752: CSM_UTIL_PKG.LOG('Entering SPAWN_ITEM_INSTANCES_DEL for instance_id: ' || p_instance_id,
753: 'CSM_SR_EVENT_PKG.SPAWN_ITEM_INSTANCES_DEL',FND_LOG.LEVEL_PROCEDURE);
754:
755: l_transaction_date := SYSDATE;
756: l_null_relationship_id := TO_NUMBER(NULL);
755: l_transaction_date := SYSDATE;
756: l_null_relationship_id := TO_NUMBER(NULL);
757:
758: -- get parent and all child instances
759: FOR l_parent_child_instance_rec IN l_parent_child_instance_csr(l_transaction_date,csm_util_pkg.bool2yn(l_htm5_user)) LOOP
760:
761: IF l_parent_child_instance_rec.relationship_id IS NOT NULL THEN
762: csm_item_instance_event_pkg.ii_relationships_acc_d(l_parent_child_instance_rec.relationship_id, p_user_id, l_error_msg, l_return_status);
763: END IF;
788: );
789: END LOOP;
790: END IF;
791:
792: CSM_UTIL_PKG.LOG('Leaving SPAWN_ITEM_INSTANCES_DEL for instance_id: ' || p_instance_id,
793: 'CSM_SR_EVENT_PKG.SPAWN_ITEM_INSTANCES_DEL',FND_LOG.LEVEL_PROCEDURE);
794: EXCEPTION
795: WHEN OTHERS THEN
796: l_sqlerrno := to_char(SQLCODE);
796: l_sqlerrno := to_char(SQLCODE);
797: l_sqlerrmsg := substr(SQLERRM, 1,2000);
798: l_error_msg := l_error_msg || '- Exception in SPAWN_ITEM_INSTANCES_DEL for instance_id:'
799: || to_char(p_instance_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
800: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.SPAWN_ITEM_INSTANCES_DEL',FND_LOG.LEVEL_EXCEPTION);
801: RAISE;
802: END SPAWN_ITEM_INSTANCES_DEL;
803:
804: PROCEDURE INCIDENTS_ACC_D(p_incident_id IN NUMBER, p_user_id IN NUMBER)
808: l_error_msg VARCHAR2(4000);
809: l_return_status VARCHAR2(2000);
810:
811: BEGIN
812: CSM_UTIL_PKG.LOG('Entering INCIDENTS_ACC_D for incident_id: ' || p_incident_id,
813: 'CSM_SR_EVENT_PKG.INCIDENTS_ACC_D',FND_LOG.LEVEL_PROCEDURE);
814:
815: CSM_ACC_PKG.Delete_Acc
816: ( P_PUBLICATION_ITEM_NAMES => g_incidents_pubi_name
819: ,P_PK1_NUM_VALUE => p_incident_id
820: ,P_USER_ID => p_user_id
821: );
822:
823: CSM_UTIL_PKG.LOG('Leaving INCIDENTS_ACC_D for incident_id: ' || p_incident_id,
824: 'CSM_SR_EVENT_PKG.INCIDENTS_ACC_D',FND_LOG.LEVEL_PROCEDURE);
825: EXCEPTION
826: WHEN OTHERS THEN
827: l_sqlerrno := to_char(SQLCODE);
827: l_sqlerrno := to_char(SQLCODE);
828: l_sqlerrmsg := substr(SQLERRM, 1,2000);
829: l_error_msg := ' Exception in INCIDENTS_ACC_D for incident_id:'
830: || to_char(p_incident_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
831: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.INCIDENTS_ACC_D',FND_LOG.LEVEL_EXCEPTION);
832: RAISE;
833: END INCIDENTS_ACC_D;
834:
835: --12.1XB6
853: OPEN c_sr_owner_group(p_task_id);
854: FETCH c_sr_owner_group INTO l_owner_group_id,l_created_by;
855: CLOSE c_sr_owner_group;
856:
857: IF CSM_UTIL_PKG.IS_HTML5_USER(CSM_UTIL_PKG.get_group_owner(l_owner_group_id)) AND CSM_UTIL_PKG.IS_HTML5_USER(l_created_by) THEN
858: RETURN FALSE;
859: END IF;
860:
861: RETURN CSM_UTIL_PKG.is_mfs_group(l_owner_group_id) OR CSM_UTIL_PKG.is_palm_user(l_created_by);
857: IF CSM_UTIL_PKG.IS_HTML5_USER(CSM_UTIL_PKG.get_group_owner(l_owner_group_id)) AND CSM_UTIL_PKG.IS_HTML5_USER(l_created_by) THEN
858: RETURN FALSE;
859: END IF;
860:
861: RETURN CSM_UTIL_PKG.is_mfs_group(l_owner_group_id) OR CSM_UTIL_PKG.is_palm_user(l_created_by);
862:
863: END;
864:
865: --12.1
902: /*AND NOT EXISTS
903: (SELECT 1
904: FROM csm_incidents_all_acc acc
905: WHERE acc.incident_id = csi.incident_id
906: AND acc.user_id = CSM_UTIL_PKG.get_group_owner(csi.owner_group_id));*/
907:
908:
909: CURSOR l_addr_id_csr (p_incident_id IN NUMBER)
910: IS
944:
945: l_assignee_user_id NUMBER;
946:
947: BEGIN
948: CSM_UTIL_PKG.LOG('Entering SR_INS_INIT for incident_id: ' || p_incident_id ,'CSM_SR_EVENT_PKG.SR_INS_INIT',FND_LOG.LEVEL_PROCEDURE);
949:
950: OPEN l_sr_csr(p_incident_id);
951: FETCH l_sr_csr INTO l_sr_rec;
952: IF l_sr_csr%NOTFOUND THEN
954: RETURN;
955: END IF;
956: CLOSE l_sr_csr;
957: --12.1XB6
958: IF ( NOT CSM_UTIL_PKG.is_mfs_group(l_sr_rec.owner_group_id)) THEN
959: IF ( NOT CSM_UTIL_PKG.is_palm_user(l_sr_rec.created_by)) THEN
960: CSM_UTIL_PKG.LOG('Leaving SR_INS_INIT because the Owner group of SR is not a mobile resource group
961: and also this SR , incident_id: ' || p_incident_id ||' is not created by a mobile user'
962: ,'CSM_SR_EVENT_PKG.SR_INS_INIT',FND_LOG.LEVEL_PROCEDURE);
955: END IF;
956: CLOSE l_sr_csr;
957: --12.1XB6
958: IF ( NOT CSM_UTIL_PKG.is_mfs_group(l_sr_rec.owner_group_id)) THEN
959: IF ( NOT CSM_UTIL_PKG.is_palm_user(l_sr_rec.created_by)) THEN
960: CSM_UTIL_PKG.LOG('Leaving SR_INS_INIT because the Owner group of SR is not a mobile resource group
961: and also this SR , incident_id: ' || p_incident_id ||' is not created by a mobile user'
962: ,'CSM_SR_EVENT_PKG.SR_INS_INIT',FND_LOG.LEVEL_PROCEDURE);
963: RETURN;
956: CLOSE l_sr_csr;
957: --12.1XB6
958: IF ( NOT CSM_UTIL_PKG.is_mfs_group(l_sr_rec.owner_group_id)) THEN
959: IF ( NOT CSM_UTIL_PKG.is_palm_user(l_sr_rec.created_by)) THEN
960: CSM_UTIL_PKG.LOG('Leaving SR_INS_INIT because the Owner group of SR is not a mobile resource group
961: and also this SR , incident_id: ' || p_incident_id ||' is not created by a mobile user'
962: ,'CSM_SR_EVENT_PKG.SR_INS_INIT',FND_LOG.LEVEL_PROCEDURE);
963: RETURN;
964: ELSE
961: and also this SR , incident_id: ' || p_incident_id ||' is not created by a mobile user'
962: ,'CSM_SR_EVENT_PKG.SR_INS_INIT',FND_LOG.LEVEL_PROCEDURE);
963: RETURN;
964: ELSE
965: l_owner_id := CSM_UTIL_PKG.get_owner(l_sr_rec.created_by);
966: END IF;
967: ELSE
968: l_owner_id := CSM_UTIL_PKG.get_group_owner(l_sr_rec.owner_group_id);
969: END IF;
964: ELSE
965: l_owner_id := CSM_UTIL_PKG.get_owner(l_sr_rec.created_by);
966: END IF;
967: ELSE
968: l_owner_id := CSM_UTIL_PKG.get_group_owner(l_sr_rec.owner_group_id);
969: END IF;
970:
971: IF CSM_UTIL_PKG.IS_HTML5_USER(l_owner_id) THEN --no download for owners/created by in htm5
972: CSM_UTIL_PKG.LOG('Leaving SR_INS_INIT as this SR is owned/created by HTML5 user','CSM_SR_EVENT_PKG.SR_INS_INIT',FND_LOG.LEVEL_PROCEDURE);
967: ELSE
968: l_owner_id := CSM_UTIL_PKG.get_group_owner(l_sr_rec.owner_group_id);
969: END IF;
970:
971: IF CSM_UTIL_PKG.IS_HTML5_USER(l_owner_id) THEN --no download for owners/created by in htm5
972: CSM_UTIL_PKG.LOG('Leaving SR_INS_INIT as this SR is owned/created by HTML5 user','CSM_SR_EVENT_PKG.SR_INS_INIT',FND_LOG.LEVEL_PROCEDURE);
973: RETURN;
974: END IF;
975:
968: l_owner_id := CSM_UTIL_PKG.get_group_owner(l_sr_rec.owner_group_id);
969: END IF;
970:
971: IF CSM_UTIL_PKG.IS_HTML5_USER(l_owner_id) THEN --no download for owners/created by in htm5
972: CSM_UTIL_PKG.LOG('Leaving SR_INS_INIT as this SR is owned/created by HTML5 user','CSM_SR_EVENT_PKG.SR_INS_INIT',FND_LOG.LEVEL_PROCEDURE);
973: RETURN;
974: END IF;
975:
976: -- not necessary as all DISPATCH Sr's need an install site id
1085: -- to download other grp's resource if required
1086: OPEN c_resource_id(l_owner_id);
1087: FETCH c_resource_id INTO l_owner_resource_id;
1088: CLOSE c_resource_id;
1089: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,assign_rec.resource_id) THEN
1090: --assignee bug
1091: OPEN c_user_id(assign_rec.resource_id);
1092: FETCH c_user_id INTO l_assignee_user_id;
1093: CLOSE c_user_id;
1099: end loop;
1100:
1101: END LOOP;
1102:
1103: CSM_UTIL_PKG.LOG('Leaving SR_INS_INIT for incident_id: ' || p_incident_id ,'CSM_SR_EVENT_PKG.SR_INS_INIT',FND_LOG.LEVEL_PROCEDURE);
1104: EXCEPTION
1105: WHEN OTHERS THEN
1106: l_sqlerrno := to_char(SQLCODE);
1107: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1106: l_sqlerrno := to_char(SQLCODE);
1107: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1108: l_error_msg := ' Exception in SR_INS_INIT for incident_id:'
1109: || to_char(p_incident_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1110: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.SR_INS_INIT',FND_LOG.LEVEL_EXCEPTION);
1111: RAISE;
1112: END SR_INS_INIT;
1113:
1114: --12.1
1149: AND EXISTS
1150: (SELECT 1
1151: FROM csm_incidents_all_acc acc
1152: WHERE acc.incident_id = csi.incident_id
1153: AND acc.user_id = NVL(b_user_id,decode(CSM_UTIL_PKG.get_group_owner(csi.owner_group_id),-1,csi.created_by,CSM_UTIL_PKG.get_group_owner(csi.owner_group_id)) ));
1154:
1155: l_sr_rec l_sr_csr%ROWTYPE;
1156:
1157: CURSOR c_tasks(b_incident_id NUMBER)
1183:
1184: l_assignee_user_id NUMBER;
1185:
1186: BEGIN
1187: CSM_UTIL_PKG.LOG('Entering SR_DEL_INIT for incident_id: ' || p_incident_id ,'CSM_SR_EVENT_PKG.SR_DEL_INIT',FND_LOG.LEVEL_PROCEDURE);
1188:
1189: OPEN l_sr_csr(p_incident_id,p_user_id);
1190: FETCH l_sr_csr INTO l_sr_rec;
1191: IF l_sr_csr%NOTFOUND THEN
1195: CLOSE l_sr_csr;
1196:
1197: --12.1XB6
1198: IF p_user_id IS NULL THEN
1199: IF ( NOT CSM_UTIL_PKG.is_mfs_group(l_sr_rec.owner_group_id)) THEN
1200: IF ( NOT CSM_UTIL_PKG.is_palm_user(l_sr_rec.created_by)) THEN
1201: CSM_UTIL_PKG.LOG('Leaving SR_DEL_INIT since the Owner group of SR is not a mobile resource group
1202: and also this SR , incident_id: ' || p_incident_id ||' is not created by a mobile user'
1203: ,'CSM_SR_EVENT_PKG.SR_DEL_INIT',FND_LOG.LEVEL_PROCEDURE);
1196:
1197: --12.1XB6
1198: IF p_user_id IS NULL THEN
1199: IF ( NOT CSM_UTIL_PKG.is_mfs_group(l_sr_rec.owner_group_id)) THEN
1200: IF ( NOT CSM_UTIL_PKG.is_palm_user(l_sr_rec.created_by)) THEN
1201: CSM_UTIL_PKG.LOG('Leaving SR_DEL_INIT since the Owner group of SR is not a mobile resource group
1202: and also this SR , incident_id: ' || p_incident_id ||' is not created by a mobile user'
1203: ,'CSM_SR_EVENT_PKG.SR_DEL_INIT',FND_LOG.LEVEL_PROCEDURE);
1204: RETURN;
1197: --12.1XB6
1198: IF p_user_id IS NULL THEN
1199: IF ( NOT CSM_UTIL_PKG.is_mfs_group(l_sr_rec.owner_group_id)) THEN
1200: IF ( NOT CSM_UTIL_PKG.is_palm_user(l_sr_rec.created_by)) THEN
1201: CSM_UTIL_PKG.LOG('Leaving SR_DEL_INIT since the Owner group of SR is not a mobile resource group
1202: and also this SR , incident_id: ' || p_incident_id ||' is not created by a mobile user'
1203: ,'CSM_SR_EVENT_PKG.SR_DEL_INIT',FND_LOG.LEVEL_PROCEDURE);
1204: RETURN;
1205: ELSE
1202: and also this SR , incident_id: ' || p_incident_id ||' is not created by a mobile user'
1203: ,'CSM_SR_EVENT_PKG.SR_DEL_INIT',FND_LOG.LEVEL_PROCEDURE);
1204: RETURN;
1205: ELSE
1206: l_owner_id := CSM_UTIL_PKG.get_owner(l_sr_rec.created_by);
1207: END IF;
1208: ELSE
1209: l_owner_id := CSM_UTIL_PKG.get_group_owner(l_sr_rec.owner_group_id);
1210: END IF;
1205: ELSE
1206: l_owner_id := CSM_UTIL_PKG.get_owner(l_sr_rec.created_by);
1207: END IF;
1208: ELSE
1209: l_owner_id := CSM_UTIL_PKG.get_group_owner(l_sr_rec.owner_group_id);
1210: END IF;
1211: ELSE
1212: l_owner_id:=p_user_id;
1213: END IF;
1314: /*Other grp's member Resource to be deleted from acc if assigned to him*/
1315: OPEN c_resource_id(l_owner_id);
1316: FETCH c_resource_id INTO l_owner_resource_id;
1317: CLOSE c_resource_id;
1318: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,assign_rec.resource_id) THEN
1319: --assignee bug
1320: OPEN c_user_id(assign_rec.resource_id);
1321: FETCH c_user_id INTO l_assignee_user_id;
1322: CLOSE c_user_id;
1327: end loop;
1328:
1329: END LOOP;
1330:
1331: CSM_UTIL_PKG.LOG('Leaving SR_DEL_INIT for incident_id: ' || p_incident_id ,'CSM_SR_EVENT_PKG.SR_DEL_INIT',FND_LOG.LEVEL_PROCEDURE);
1332: EXCEPTION
1333: WHEN OTHERS THEN
1334: l_sqlerrno := to_char(SQLCODE);
1335: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1334: l_sqlerrno := to_char(SQLCODE);
1335: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1336: l_error_msg := ' Exception in SR_DEL_INIT for incident_id:'
1337: || to_char(p_incident_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1338: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.SR_DEL_INIT',FND_LOG.LEVEL_EXCEPTION);
1339: RAISE;
1340: END SR_DEL_INIT;
1341:
1342: --12.1
1397: WHERE acc.incident_id = p_incident_id;
1398:
1399:
1400: BEGIN
1401: CSM_UTIL_PKG.LOG('Entering SR_UPD_INIT for incident_id: ' || p_incident_id ,'CSM_SR_EVENT_PKG.SR_UPD_INIT',FND_LOG.LEVEL_PROCEDURE);
1402:
1403: OPEN l_sr_csr(p_incident_id);
1404: FETCH l_sr_csr INTO l_sr_rec;
1405: IF l_sr_csr%NOTFOUND THEN
1538: );
1539:
1540: END LOOP;
1541:
1542: CSM_UTIL_PKG.LOG('Leaving SR_UPD_INIT for incident_id: ' || p_incident_id ,'CSM_SR_EVENT_PKG.SR_UPD_INIT',FND_LOG.LEVEL_PROCEDURE);
1543: EXCEPTION
1544: WHEN OTHERS THEN
1545: l_sqlerrno := to_char(SQLCODE);
1546: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1545: l_sqlerrno := to_char(SQLCODE);
1546: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1547: l_error_msg := ' Exception in SR_UPD_INIT for incident_id:'
1548: || to_char(p_incident_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1549: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.SR_UPD_INIT',FND_LOG.LEVEL_EXCEPTION);
1550: RAISE;
1551: END SR_UPD_INIT;
1552:
1553: --Function to find whether the SR associated with Task assignment id is open before purging.
1570: AND tsk.task_id = c_task_id
1571: AND tsk.source_object_id = inc.incident_id;
1572:
1573: BEGIN
1574: CSM_UTIL_PKG.LOG('Entering CSM_SR_EVENT_PKG.IS_SR_OPEN for task_id: ' || p_task_id,
1575: 'CSM_SR_EVENT_PKG.IS_SR_OPEN',FND_LOG.LEVEL_PROCEDURE);
1576:
1577: l_incident_id := NULL;
1578:
1580: FETCH l_is_sr_open_csr INTO l_incident_id;
1581: IF l_is_sr_open_csr%NOTFOUND THEN
1582:
1583: CLOSE l_is_sr_open_csr;
1584: CSM_UTIL_PKG.LOG('The SR is open for task_id : ' || p_task_id,
1585: 'CSM_SR_EVENT_PKG.IS_SR_OPEN',FND_LOG.LEVEL_EXCEPTION);
1586: RETURN TRUE;
1587: END IF;
1588: CLOSE l_is_sr_open_csr;
1586: RETURN TRUE;
1587: END IF;
1588: CLOSE l_is_sr_open_csr;
1589:
1590: CSM_UTIL_PKG.LOG('The SR is Closed for task_id : ' || p_task_id,
1591: 'CSM_SR_EVENT_PKG.IS_SR_OPEN',FND_LOG.LEVEL_EXCEPTION);
1592:
1593: RETURN FALSE;
1594:
1597: l_sqlerrno := to_char(SQLCODE);
1598: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1599: l_error_msg := ' Exception in IS_SR_OPEN for task_id:' || to_char(p_task_id)
1600: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1601: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.IS_SR_OPEN',FND_LOG.LEVEL_EXCEPTION);
1602: RAISE;
1603: END IS_SR_OPEN;
1604:
1605:
1666: l_INSTANCE_ID NUMBER;
1667: l_INCIDENT_NUM VARCHAR2(64);
1668:
1669: BEGIN
1670: CSM_UTIL_PKG.LOG('Entering CSM_SR_EVENT_PKG.GET_PROFORMA_INVOICE ',
1671: 'CSM_SR_EVENT_PKG.GET_PROFORMA_INVOICE',FND_LOG.LEVEL_PROCEDURE);
1672:
1673: IF (funcmode <> 'RUN')
1674: THEN
1684: FETCH c_get_sr_id INTO l_INCIDENT_ID;
1685: CLOSE c_get_sr_id;
1686:
1687: IF l_INCIDENT_ID IS NULL THEN
1688: CSM_UTIL_PKG.LOG('The Given SR number is Invalid : ' || l_INCIDENT_NUM,
1689: 'CSM_SR_EVENT_PKG.GET_PROFORMA_INVOICE',FND_LOG.LEVEL_PROCEDURE);
1690: RETURN;
1691: END IF;
1692:
1721:
1722: IF l_error_status = FND_API.G_RET_STS_SUCCESS THEN
1723: COMMIT;
1724: RESULT := 'COMPLETE:Y';
1725: CSM_UTIL_PKG.LOG('Proforma Invoice Generated sucessfully for Incident Number : ' || l_INCIDENT_NUM,
1726: 'CSM_SR_EVENT_PKG.GET_PROFORMA_INVOICE',FND_LOG.LEVEL_EXCEPTION);
1727:
1728: ELSE
1729: CSM_UTIL_PKG.LOG('ERROR IN CSM_SR_EVENT_PKG.GET_PROFORMA_INVOICE' || l_error_msg, 'CSM_SR_EVENT_PKG.GET_PROFORMA_INVOICE',FND_LOG.LEVEL_EXCEPTION);
1725: CSM_UTIL_PKG.LOG('Proforma Invoice Generated sucessfully for Incident Number : ' || l_INCIDENT_NUM,
1726: 'CSM_SR_EVENT_PKG.GET_PROFORMA_INVOICE',FND_LOG.LEVEL_EXCEPTION);
1727:
1728: ELSE
1729: CSM_UTIL_PKG.LOG('ERROR IN CSM_SR_EVENT_PKG.GET_PROFORMA_INVOICE' || l_error_msg, 'CSM_SR_EVENT_PKG.GET_PROFORMA_INVOICE',FND_LOG.LEVEL_EXCEPTION);
1730: ROLLBACK;
1731: RESULT := 'COMPLETE:N';
1732: END IF;
1733:
1736: l_sqlerrno := to_char(SQLCODE);
1737: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1738: l_error_msg := ' Exception in GET_PROFORMA_INVOICE for Incident Number:' || to_char(l_INCIDENT_NUM)
1739: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1740: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_SR_EVENT_PKG.GET_PROFORMA_INVOICE',FND_LOG.LEVEL_EXCEPTION);
1741: ROLLBACK;
1742: RESULT := 'COMPLETE:N';
1743: END GET_PROFORMA_INVOICE;
1744: