[Home] [Help]
114: OR jts.CLOSED_FLAG = 'Y');
115:
116: l_status_id NUMBER;
117: BEGIN
118: -- CSM_UTIL_PKG.pvt_log('Enter IS_TASK_STATUS_DOWNLOADABLE ' || p_status_id);
119: OPEN c_task_status(p_task_id, p_status_id);
120: FETCH c_task_status INTO l_status_id;
121: IF c_task_status%FOUND THEN
122: CLOSE c_task_status;
174: FETCH c_task_status INTO l_temp;
175: CLOSE c_task_status;
176:
177: IF l_temp IS NULL THEN
178: -- CSM_UTIL_PKG.pvt_log('IS_TASK_STATUS_DOWNLOADABLE(' || p_status_id || ') = FALSE' );
179: RETURN FALSE;
180: END IF;
181:
182: l_temp := NULL;
185: CLOSE c_task_type;
186:
187: -- IF c_task_type%NOTFOUND THEN
188: IF l_temp IS NULL THEN
189: -- CSM_UTIL_PKG.pvt_log('IS_TASK_TYPE_DOWNLOADABLE(' || p_type_id || ') = FALSE' );
190: RETURN FALSE;
191: END IF;
192: IF ( p_schedule_start_date IS NULL OR p_schedule_end_date IS NULL ) THEN
193: -- CSM_UTIL_PKG.pvt_log('IS_TASK_SCHEDULED_DATE_DOWNLOADABLE(' || p_schedule_start_date || ', ' || p_schedule_end_date || ') = FALSE' );
189: -- CSM_UTIL_PKG.pvt_log('IS_TASK_TYPE_DOWNLOADABLE(' || p_type_id || ') = FALSE' );
190: RETURN FALSE;
191: END IF;
192: IF ( p_schedule_start_date IS NULL OR p_schedule_end_date IS NULL ) THEN
193: -- CSM_UTIL_PKG.pvt_log('IS_TASK_SCHEDULED_DATE_DOWNLOADABLE(' || p_schedule_start_date || ', ' || p_schedule_end_date || ') = FALSE' );
194: RETURN FALSE;
195: END IF;
196:
197: -- CSM_UTIL_PKG.pvt_log('IS_TASK_DOWNLOADABLE = TRUE' );
193: -- CSM_UTIL_PKG.pvt_log('IS_TASK_SCHEDULED_DATE_DOWNLOADABLE(' || p_schedule_start_date || ', ' || p_schedule_end_date || ') = FALSE' );
194: RETURN FALSE;
195: END IF;
196:
197: -- CSM_UTIL_PKG.pvt_log('IS_TASK_DOWNLOADABLE = TRUE' );
198: RETURN TRUE;
199:
200: EXCEPTION
201: WHEN OTHERS THEN
198: RETURN TRUE;
199:
200: EXCEPTION
201: WHEN OTHERS THEN
202: -- CSM_UTIL_PKG.pvt_log('EXCEPTION IN IS_TASK_DOWNLOADABLE. Return FALSE' );
203: RETURN FALSE;
204: END IS_TASK_DOWNLOADABLE;
205:
206: /*
257: l_task_id := jtf_tasks_pub.p_task_user_hooks.task_id;
258:
259: x_return_status := FND_API.G_RET_STS_SUCCESS;
260:
261: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
262: RETURN;
263: END IF;
264:
265: IF CSM_SR_EVENT_PKG.is_sr_downloaded_to_owner(l_task_id) THEN
266: OPEN c_sr_grp_owner(l_task_id);
267: FETCH c_sr_grp_owner INTO l_user_id;
268: CLOSE c_sr_grp_owner;
269:
270: IF NOT CSM_UTIL_PKG.IS_HTML5_USER(l_user_id) THEN
271: csm_task_event_pkg.acc_insert(p_task_id=>l_task_id,p_user_id=>l_user_id);
272: END IF;
273: END IF;
274:
280: l_sqlerrno := to_char(SQLCODE);
281: l_sqlerrmsg := substr(SQLERRM, 1,2000);
282: l_error_msg := ' Exception in TASK_POST_INS for task_id:'
283: || to_char(l_task_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
284: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.TASK_POST_INS',FND_LOG.LEVEL_EXCEPTION);
285: END TASK_POST_INS;
286:
287:
288: /* Starts TASK_DEL workflow, Should be called when new SR is created */
299:
300: BEGIN
301: x_return_status := FND_API.G_RET_STS_SUCCESS;
302:
303: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
304: RETURN;
305: END IF;
306:
307: l_task_id := jtf_tasks_pub.p_task_user_hooks.task_id;
314: l_sqlerrno := to_char(SQLCODE);
315: l_sqlerrmsg := substr(SQLERRM, 1,2000);
316: l_error_msg := ' Exception in TASK_POST_DEL for task_id:'
317: || to_char(l_task_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
318: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.TASK_POST_DEL',FND_LOG.LEVEL_EXCEPTION);
319: END TASK_POST_DEL;
320:
321: /* Task_Assignment_Post_Ins
322: */
383: l_task_assignment_id := jtf_task_assignments_pub.p_task_assignments_user_hooks.task_assignment_id;
384:
385: x_return_status := FND_API.G_RET_STS_SUCCESS;
386:
387: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
388: RETURN;
389: END IF;
390:
391: open c_task(l_task_assignment_id);
396: OPEN c_sr_grp_owner(l_task_id);
397: FETCH c_sr_grp_owner INTO l_user_id;
398: CLOSE c_sr_grp_owner;
399:
400: IF NOT CSM_UTIL_PKG.IS_HTML5_USER(l_user_id) THEN
401:
402: csm_task_assignment_event_pkg.acc_insert(p_task_assignment_id=>l_task_assignment_id,p_user_id=>l_user_id);
403:
404: -- to download other grp's resource if required
404: -- to download other grp's resource if required
405: OPEN c_resource_id(l_user_id);
406: FETCH c_resource_id INTO l_owner_resource_id;
407: CLOSE c_resource_id;
408: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,l_assignee_id) THEN
409: --assignee bug
410: OPEN c_user_id(l_assignee_id);
411: FETCH c_user_id INTO l_assignee_user_id;
412: CLOSE c_user_id;
430: l_sqlerrno := to_char(SQLCODE);
431: l_sqlerrmsg := substr(SQLERRM, 1,2000);
432: l_error_msg := l_error_msg || '-Exception for Task_Assignment_Post_Ins :' || TO_CHAR(l_task_assignment_id)
433: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
434: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.Task_Assignment_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
435: END Task_Assignment_Post_Ins;
436:
437: /*-----------------------------------------------------------------
438: Description:
467:
468: BEGIN
469: x_return_status := FND_API.G_RET_STS_SUCCESS;
470:
471: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
472: RETURN;
473: END IF;
474:
475: l_task_assignment_id := jtf_task_assignments_pub.p_task_assignments_user_hooks.task_assignment_id;
487: END IF;
488: CLOSE l_task_ass_pre_csr;
489:
490: -- if old_resource_id and new resource_id are not mobile users then return
491: IF (( NOT CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id)) AND
492: ( NOT CSM_UTIL_PKG.is_palm_resource(jtf_task_assignments_pub.p_task_assignments_user_hooks.resource_id))) THEN
493: RETURN;
494: END IF;
495:
488: CLOSE l_task_ass_pre_csr;
489:
490: -- if old_resource_id and new resource_id are not mobile users then return
491: IF (( NOT CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id)) AND
492: ( NOT CSM_UTIL_PKG.is_palm_resource(jtf_task_assignments_pub.p_task_assignments_user_hooks.resource_id))) THEN
493: RETURN;
494: END IF;
495:
496: -- And check if resource id has changed
496: -- And check if resource id has changed
497: IF NVL(g_task_ass_pre_upd_rec.resource_id, -1) <> NVL(jtf_task_assignments_pub.p_task_assignments_user_hooks.resource_id, -1)
498: THEN
499: -- do the purge for the old resource in the pre-hook if its a mobile resource
500: IF CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id) THEN
501: csm_task_assignment_event_pkg.TASK_ASSIGNMENT_PURGE_INIT(p_task_assignment_id=>l_task_assignment_id,
502: p_error_msg=>l_error_msg,
503: x_return_status=>l_return_status);
504: END IF;
510: l_sqlerrno := to_char(SQLCODE);
511: l_sqlerrmsg := substr(SQLERRM, 1,2000);
512: l_error_msg := l_error_msg || '-Exception for Task_Assignment_Pre_Upd :' || TO_CHAR(l_task_assignment_id)
513: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
514: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.Task_Assignment_Pre_Upd',FND_LOG.LEVEL_EXCEPTION);
515: END Task_Assignment_Pre_Upd;
516:
517: PROCEDURE Task_Assignment_Post_Upd(
518: x_return_status OUT NOCOPY VARCHAR2
605: l_task_assignment_id := jtf_task_assignments_pub.p_task_assignments_user_hooks.task_assignment_id;
606:
607: x_return_status := FND_API.G_RET_STS_SUCCESS;
608:
609: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
610: RETURN;
611: END IF;
612:
613: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.Task_Assignment_Post_Upd for task_assg_id:' || l_task_assignment_id ,
609: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
610: RETURN;
611: END IF;
612:
613: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.Task_Assignment_Post_Upd for task_assg_id:' || l_task_assignment_id ,
614: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
615:
616: -- initialise the flags
617: l_is_resource_updated := 'N';
639: OPEN c_sr_grp_owner(l_task_id);
640: FETCH c_sr_grp_owner INTO l_owner_id;
641: CLOSE c_sr_grp_owner;
642:
643: IF NOT CSM_UTIL_PKG.IS_HTML5_USER(l_owner_id) THEN
644:
645: IF g_task_ass_pre_upd_rec.resource_id<>l_task_ass_post_upd_rec.resource_id THEN
646: -- delete old resource_id from acc if he's not in any of his grp.
647: OPEN c_resource_id(l_owner_id);
647: OPEN c_resource_id(l_owner_id);
648: FETCH c_resource_id INTO l_owner_resource_id;
649: CLOSE c_resource_id;
650: --old assignee
651: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,g_task_ass_pre_upd_rec.resource_id) THEN
652: --assignee bug
653: l_assignee_user_id:=NULL;
654: OPEN c_user_id(g_task_ass_pre_upd_rec.resource_id);
655: FETCH c_user_id INTO l_assignee_user_id;
659: END IF;
660: END IF;
661:
662: --new assignee
663: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,l_task_ass_post_upd_rec.resource_id) THEN
664: --assignee bug
665: l_assignee_user_id:=NULL;
666: OPEN c_user_id(l_task_ass_post_upd_rec.resource_id);
667: FETCH c_user_id INTO l_assignee_user_id;
675: OPEN c_access(l_task_assignment_id,l_owner_id);
676: FETCH c_access INTO l_access_id;
677: CLOSE c_access;
678:
679: l_markdirty:=CSM_UTIL_PKG.MakeDirtyForUser('CSM_TASK_ASSIGNMENTS',l_access_id,l_owner_id,'U',sysdate);
680: END IF; --htm5
681:
682: END IF;
683:
684: /******** FOR SR GROUP OWNER - END of PROCESSING******/
685:
686:
687: -- if old_resource_id and new resource_id are not mobile users then return
688: IF (( NOT CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id)) AND
689: ( NOT CSM_UTIL_PKG.is_palm_resource(l_task_ass_post_upd_rec.resource_id))) THEN
690: CSM_UTIL_PKG.LOG('No mobile resource for task_assg_id:' || l_task_assignment_id ,
691: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
692: RETURN;
685:
686:
687: -- if old_resource_id and new resource_id are not mobile users then return
688: IF (( NOT CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id)) AND
689: ( NOT CSM_UTIL_PKG.is_palm_resource(l_task_ass_post_upd_rec.resource_id))) THEN
690: CSM_UTIL_PKG.LOG('No mobile resource for task_assg_id:' || l_task_assignment_id ,
691: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
692: RETURN;
693: END IF;
686:
687: -- if old_resource_id and new resource_id are not mobile users then return
688: IF (( NOT CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id)) AND
689: ( NOT CSM_UTIL_PKG.is_palm_resource(l_task_ass_post_upd_rec.resource_id))) THEN
690: CSM_UTIL_PKG.LOG('No mobile resource for task_assg_id:' || l_task_assignment_id ,
691: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
692: RETURN;
693: END IF;
694:
694:
695: -- And check if resource id has changed
696: IF g_task_ass_pre_upd_rec.resource_id <> l_task_ass_post_upd_rec.resource_id
697: THEN
698: CSM_UTIL_PKG.LOG('Resource updated for task_assg_id:' || l_task_assignment_id ,
699: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
700:
701: l_is_resource_updated := 'Y';
702: OPEN l_check_acc_exists(l_task_assignment_id);
720:
721: -- And check if task_assignment_status has changed
722: IF g_task_ass_pre_upd_rec.assignment_status_id <> l_task_ass_post_upd_rec.assignment_status_id
723: THEN
724: CSM_UTIL_PKG.LOG('Status updated for task_assg_id:' || l_task_assignment_id ,
725: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
726:
727: l_is_assg_status_updated := 'Y';
728:
732: -- if l_is_resource_updated := 'Y', UPDATE process which will call INSERT process
733: IF ( ( NOT IS_TASK_STATUS_DOWNLOADABLE(g_task_ass_pre_upd_rec.task_id, g_task_ass_pre_upd_rec.assignment_status_id))
734: AND IS_TASK_STATUS_DOWNLOADABLE(l_task_ass_post_upd_rec.task_id, l_task_ass_post_upd_rec.assignment_status_id)
735: AND l_is_resource_updated = 'N') THEN
736: CSM_UTIL_PKG.LOG('Status updated to downloadable for task_assg_id:' || l_task_assignment_id ,
737: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
738:
739: -- Task_Assignment_Post_Ins( x_return_status );
740: csm_task_assignment_event_pkg.task_assignment_initializer(p_task_assignment_id=>l_task_assignment_id,
749: -- if l_is_resource_updated := 'Y', UPDATE process which will call PURGE process
750: IF ( IS_TASK_STATUS_DOWNLOADABLE(g_task_ass_pre_upd_rec.task_id, g_task_ass_pre_upd_rec.assignment_status_id )
751: AND (NOT IS_TASK_STATUS_DOWNLOADABLE(l_task_ass_post_upd_rec.task_id, l_task_ass_post_upd_rec.assignment_status_id))
752: AND l_is_resource_updated = 'N') THEN
753: CSM_UTIL_PKG.LOG('Status updated to non-downloadable for task_assg_id:' || l_task_assignment_id ,
754: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
755:
756: Task_Assignment_Post_Del( x_return_status );
757: RETURN;
769: CLOSE l_check_acc_exists;
770: RETURN;
771: END IF;
772: CLOSE l_check_acc_exists;
773: l_markdirty := csm_util_pkg.MakeDirtyForResource(l_publicationitemname,
774: l_access_id,
775: l_task_ass_post_upd_rec.resource_id,
776: l_dml,
777: sysdate);
779:
780: ELSIF l_is_resource_updated = 'Y' THEN
781: -- check if the new resource is a mobile resource; if it is then do a insert
782: -- the old resource is dropped in the pre-upd hook
783: IF CSM_UTIL_PKG.is_palm_resource(l_task_ass_post_upd_rec.resource_id) THEN
784: -- csm_wf_pkg.Task_Assignment_Post_Ins(l_return_status);
785: csm_task_assignment_event_pkg.task_assignment_initializer(p_task_assignment_id=>l_task_assignment_id,
786: p_error_msg=>l_error_msg,
787: x_return_status=>l_return_status);
788: RAISE_START_AUTO_SYNC_EVENT('CSM_TASK_ASSIGNMENTS',to_char(l_task_assignment_id),'NEW');
789: END IF;
790: END IF;
791:
792: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.Task_Assignment_Post_Upd for task_assg_id:' || l_task_assignment_id ,
793: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
794:
795: EXCEPTION
796: WHEN OTHERS THEN
798: l_sqlerrno := to_char(SQLCODE);
799: l_sqlerrmsg := substr(SQLERRM, 1,2000);
800: l_error_msg := l_error_msg || '-Exception for Task_Assignment_Post_Upd :' || TO_CHAR(l_task_assignment_id)
801: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
802: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_EXCEPTION);
803: END Task_Assignment_Post_Upd;
804:
805: /*--------------------------------------------------------
806: Description:
827: l_task_assignment_id := jtf_task_assignments_pub.p_task_assignments_user_hooks.task_assignment_id;
828:
829: x_return_status := FND_API.G_RET_STS_SUCCESS;
830:
831: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
832: RETURN;
833: END IF;
834:
835: csm_task_assignment_event_pkg.TASK_ASSIGNMENT_PURGE_INIT(p_task_assignment_id=>l_task_assignment_id,
841: l_sqlerrno := to_char(SQLCODE);
842: l_sqlerrmsg := substr(SQLERRM, 1,2000);
843: l_error_msg := l_error_msg || '-Exception for Task_Assignment_Post_Del :' || TO_CHAR(l_task_assignment_id)
844: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
845: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.Task_Assignment_Post_Del',FND_LOG.LEVEL_EXCEPTION);
846: END Task_Assignment_Post_Del;
847:
848: /*-----------------------------------------------------------------
849: Description:
884:
885: BEGIN
886: x_return_status := FND_API.G_RET_STS_SUCCESS;
887:
888: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
889: RETURN;
890: END IF;
891:
892: l_jtf_task_id := jtf_tasks_pub.p_task_user_hooks.task_id;
914: l_sqlerrno := to_char(SQLCODE);
915: l_sqlerrmsg := substr(SQLERRM, 1,2000);
916: l_error_msg := 'Exception in Task_Pre_Upd for task_id:' || TO_CHAR(l_jtf_task_id)
917: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
918: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.Task_Pre_Upd',FND_LOG.LEVEL_EXCEPTION);
919: END Task_Pre_Upd;
920:
921: Procedure Task_Post_Upd (
922: x_return_status OUT NOCOPY VARCHAR2
994: l_jtf_task_id := jtf_tasks_pub.p_task_user_hooks.task_id;
995:
996: x_return_status := FND_API.G_RET_STS_SUCCESS;
997:
998: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
999: RETURN;
1000: END IF;
1001:
1002: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.Task_Post_Upd for task_id:' || l_jtf_task_id ,
998: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
999: RETURN;
1000: END IF;
1001:
1002: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.Task_Post_Upd for task_id:' || l_jtf_task_id ,
1003: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1004:
1005: /*12.1: TASK_TYPE CHANGE should be captured*/
1006: l_task_downloadable_to_owner := CSM_SR_EVENT_PKG.is_sr_downloaded_to_owner(l_jtf_task_id);
1010: OPEN c_sr_grp_owner(l_jtf_task_id);
1011: FETCH c_sr_grp_owner INTO l_owner_id;
1012: CLOSE c_sr_grp_owner;
1013:
1014: IF NOT CSM_UTIL_PKG.IS_HTML5_USER(l_owner_id) THEN
1015: csm_task_event_pkg.acc_insert(p_task_id=>l_jtf_task_id,p_user_id=>l_owner_id);
1016:
1017: for assign_rec in c_task_assignments(l_jtf_task_id)
1018: loop
1021: -- to download other grp's resource if required
1022: OPEN c_resource_id(l_owner_id);
1023: FETCH c_resource_id INTO l_owner_resource_id;
1024: CLOSE c_resource_id;
1025: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,assign_rec.resource_id) THEN
1026: --assignee bug
1027: OPEN c_user_id(assign_rec.resource_id);
1028: FETCH c_user_id INTO l_assignee_user_id;
1029: CLOSE c_user_id;
1038: OPEN c_sr_grp_owner(l_jtf_task_id);
1039: FETCH c_sr_grp_owner INTO l_owner_id;
1040: CLOSE c_sr_grp_owner;
1041:
1042: IF NOT CSM_UTIL_PKG.IS_HTML5_USER(l_owner_id) THEN
1043:
1044: csm_task_event_pkg.acc_delete(p_task_id=>l_jtf_task_id,p_user_id=>l_owner_id);
1045:
1046: for assign_rec in c_task_assignments(l_jtf_task_id)
1051: /*Other grp's member Resource to be deleted from acc if assigned to him*/
1052: OPEN c_resource_id(l_owner_id);
1053: FETCH c_resource_id INTO l_owner_resource_id;
1054: CLOSE c_resource_id;
1055: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,assign_rec.resource_id) THEN
1056: --assignee bug
1057: OPEN c_user_id(assign_rec.resource_id);
1058: FETCH c_user_id INTO l_assignee_user_id;
1059: CLOSE c_user_id;
1097: old new both not downloadable, do nothing
1098: old new both downloadable, (if acc record exists) do UPDATE
1099: -- old NOT, new downloadable, TASK_ASSIGNMENT_INS
1100: */
1101: -- CSM_UTIL_PKG.pvt_log('Compare old and new data');
1102: -- old NOT downloadable, new downloadable, TASK_ASSIGNMENT_INS
1103: IF ( ( NOT IS_TASK_DOWNLOADABLE(g_task_pre_upd_rec.task_id,
1104: g_task_pre_upd_rec.task_status_id,
1105: g_task_pre_upd_rec.task_type_id,
1113: l_task_post_upd_rec.scheduled_start_date,
1114: l_task_post_upd_rec.scheduled_end_date)
1115: )
1116: THEN
1117: CSM_UTIL_PKG.LOG('old NOT downloadable, new downloadable for task_id:' || l_jtf_task_id ,
1118: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1119:
1120: FOR i IN l_task_assignment_list.FIRST..l_task_assignment_list.LAST LOOP
1121: IF (CSM_UTIL_PKG.is_palm_resource(l_resource_list(i))) THEN
1117: CSM_UTIL_PKG.LOG('old NOT downloadable, new downloadable for task_id:' || l_jtf_task_id ,
1118: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1119:
1120: FOR i IN l_task_assignment_list.FIRST..l_task_assignment_list.LAST LOOP
1121: IF (CSM_UTIL_PKG.is_palm_resource(l_resource_list(i))) THEN
1122: csm_task_assignment_event_pkg.task_assignment_initializer(p_task_assignment_id=>l_task_assignment_list(i),
1123: p_error_msg=>l_error_msg,
1124: x_return_status=>l_return_status);
1125: /*call Start Sync event - NOTIFY CLIENT*/
1141: g_task_pre_upd_rec.scheduled_start_date,
1142: g_task_pre_upd_rec.scheduled_end_date)
1143: )
1144: THEN
1145: CSM_UTIL_PKG.LOG('old downloadable, new NOT downloadable for task_id:' || l_jtf_task_id ,
1146: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1147:
1148: FOR i IN l_task_assignment_list.FIRST..l_task_assignment_list.LAST LOOP
1149: IF (CSM_UTIL_PKG.is_palm_resource(l_resource_list(i))) THEN
1145: CSM_UTIL_PKG.LOG('old downloadable, new NOT downloadable for task_id:' || l_jtf_task_id ,
1146: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1147:
1148: FOR i IN l_task_assignment_list.FIRST..l_task_assignment_list.LAST LOOP
1149: IF (CSM_UTIL_PKG.is_palm_resource(l_resource_list(i))) THEN
1150: csm_task_assignment_event_pkg.TASK_ASSIGNMENT_PURGE_INIT
1151: (p_task_assignment_id=>l_task_assignment_list(i),
1152: p_error_msg=>l_error_msg,
1153: x_return_status=>l_return_status);
1157: END IF;
1158: END IF ; -- count > 0
1159:
1160: --do the updates for the task
1161: CSM_UTIL_PKG.LOG('Do updates for task_id:' || l_jtf_task_id ,
1162: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1163:
1164: csm_task_event_pkg.TASK_MAKE_DIRTY_U_FOREACHUSER(l_jtf_task_id,l_error_msg, l_return_status);
1165: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1162: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1163:
1164: csm_task_event_pkg.TASK_MAKE_DIRTY_U_FOREACHUSER(l_jtf_task_id,l_error_msg, l_return_status);
1165: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1166: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.Task_Pre_Upd', FND_LOG.LEVEL_ERROR);
1167: END IF;
1168:
1169: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.Task_Post_Upd for task_id:' || l_jtf_task_id ,
1170: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1165: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1166: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.Task_Pre_Upd', FND_LOG.LEVEL_ERROR);
1167: END IF;
1168:
1169: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.Task_Post_Upd for task_id:' || l_jtf_task_id ,
1170: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1171:
1172: /*call Start Sync event - NOTIFY CLIENT*/
1173: RAISE_START_AUTO_SYNC_EVENT('CSM_TASKS',to_char(l_jtf_task_id),'UPDATE');
1179: l_sqlerrno := to_char(SQLCODE);
1180: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1181: l_error_msg := l_error_msg || '-' || 'Exception in Task_Post_Upd for task_id:' || l_jtf_task_id
1182: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1183: csm_util_pkg.LOG(l_error_msg,'CSM_WF_PKG.Task_Post_Upd', FND_LOG.LEVEL_EXCEPTION);
1184: END Task_Post_Upd;
1185:
1186: /********************************************************
1187: Starts the USER_RESP_INS workflow. Should be called when new
1198: l_error_msg VARCHAR2(4000);
1199: l_return_status VARCHAR2(2000);
1200:
1201: BEGIN
1202: CSM_UTIL_PKG.LOG('Entering User_Resp_Post_Ins for user_id:' || p_user_id,
1203: 'csm_wf_pkg.User_Resp_Post_Ins',FND_LOG.LEVEL_PROCEDURE);
1204:
1205: csm_user_event_pkg.user_resp_ins_initializer(p_user_id=>p_user_id,
1206: p_responsibility_id=>p_responsibility_id);
1204:
1205: csm_user_event_pkg.user_resp_ins_initializer(p_user_id=>p_user_id,
1206: p_responsibility_id=>p_responsibility_id);
1207:
1208: CSM_UTIL_PKG.LOG('Leaving User_Resp_Post_Ins for user_id:' || p_user_id,
1209: 'csm_wf_pkg.User_Resp_Post_Ins',FND_LOG.LEVEL_PROCEDURE);
1210: EXCEPTION
1211: WHEN OTHERS THEN
1212: l_sqlerrno := to_char(SQLCODE);
1212: l_sqlerrno := to_char(SQLCODE);
1213: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1214: l_error_msg := ' Exception in User_Resp_Post_Ins for user_id:'
1215: || to_char(p_user_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1216: CSM_UTIL_PKG.LOG(l_error_msg, 'csm_wf_pkg.User_Resp_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
1217: RAISE;
1218: END User_Resp_Post_Ins;
1219:
1220: --12.1XB6
1242: l_incident_id := cs_servicerequest_pvt.user_hooks_rec.request_id;
1243:
1244: x_return_status := FND_API.G_RET_STS_SUCCESS;
1245:
1246: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1247: RETURN;
1248: END IF;
1249:
1250:
1251:
1252: OPEN l_sr_csr(l_incident_id);
1253: FETCH l_sr_csr INTO l_owner_group_id,l_user_id;
1254: IF l_sr_csr%FOUND THEN
1255: IF ( NOT CSM_UTIL_PKG.is_mfs_group(l_owner_group_id) AND NOT CSM_UTIL_PKG.is_palm_user(l_user_id)) THEN
1256: CLOSE l_sr_csr;
1257: RETURN;
1258: END IF;
1259: END IF;
1267: l_sqlerrno := to_char(SQLCODE);
1268: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1269: l_error_msg := l_error_msg || '- Exception in SR_Post_Ins for incident_id:'
1270: || TO_CHAR(l_incident_id) || l_sqlerrno || ':' || l_sqlerrmsg;
1271: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.SR_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
1272: END SR_Post_Ins;
1273:
1274: /*
1275: * The user hook interface for SR pre_update
1336:
1337: BEGIN
1338: x_return_status := FND_API.G_RET_STS_SUCCESS;
1339:
1340: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1341: RETURN;
1342: END IF;
1343:
1344: l_incident_id := cs_servicerequest_pvt.user_hooks_rec.request_id;
1398: l_sqlerrno := to_char(SQLCODE);
1399: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1400: l_error_msg := 'Exception in sr_pre_upd for incident_id:' || TO_CHAR(l_incident_id)
1401: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1402: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.sr_pre_upd',FND_LOG.LEVEL_EXCEPTION);
1403: END sr_pre_upd;
1404:
1405: /********************************************************
1406: Starts the SR_UPD workflow. Should be called when new
1528:
1529: x_return_status := FND_API.G_RET_STS_SUCCESS;
1530:
1531:
1532: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1533: RETURN;
1534: END IF;
1535:
1536: --owner change SHD BE CAPTURED TO DOWNLOAD ONCE THE COLUMN OWNER_GRP_ID IS ADDED
1545:
1546: OPEN l_sr_post_upd_csr(l_incident_id);
1547: FETCH l_sr_post_upd_csr INTO l_sr_post_upd_rec;
1548:
1549: l_old_owner :=CSM_UTIL_PKG.get_group_owner(g_sr_pre_upd_rec.owner_group_id);
1550: l_current_owner:=CSM_UTIL_PKG.get_group_owner(l_sr_post_upd_rec.owner_group_id);
1551:
1552: --12.1XB6 --to avoid update if created_by and group owner are from same group
1553: -- and owner_group_id in SR is updated from NULL
1546: OPEN l_sr_post_upd_csr(l_incident_id);
1547: FETCH l_sr_post_upd_csr INTO l_sr_post_upd_rec;
1548:
1549: l_old_owner :=CSM_UTIL_PKG.get_group_owner(g_sr_pre_upd_rec.owner_group_id);
1550: l_current_owner:=CSM_UTIL_PKG.get_group_owner(l_sr_post_upd_rec.owner_group_id);
1551:
1552: --12.1XB6 --to avoid update if created_by and group owner are from same group
1553: -- and owner_group_id in SR is updated from NULL
1554: IF l_old_owner=-1 THEN
1551:
1552: --12.1XB6 --to avoid update if created_by and group owner are from same group
1553: -- and owner_group_id in SR is updated from NULL
1554: IF l_old_owner=-1 THEN
1555: l_old_owner :=csm_util_pkg.get_owner(l_sr_post_upd_rec.created_by);
1556: END IF;
1557: IF l_current_owner = -1 THEN
1558: l_current_owner :=csm_util_pkg.get_owner(l_sr_post_upd_rec.created_by);
1559: END IF;
1554: IF l_old_owner=-1 THEN
1555: l_old_owner :=csm_util_pkg.get_owner(l_sr_post_upd_rec.created_by);
1556: END IF;
1557: IF l_current_owner = -1 THEN
1558: l_current_owner :=csm_util_pkg.get_owner(l_sr_post_upd_rec.created_by);
1559: END IF;
1560:
1561: IF l_old_owner <> l_current_owner THEN
1562: CSM_SR_EVENT_PKG.sr_del_init(l_incident_id,l_old_owner);
1723: l_sqlerrno := to_char(SQLCODE);
1724: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1725: l_error_msg := 'Exception in sr_post_upd for incident_id:' || TO_CHAR(l_incident_id)
1726: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1727: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.sr_post_upd',FND_LOG.LEVEL_EXCEPTION);
1728: END sr_post_upd;
1729:
1730: /*--------------------------------------------------
1731: Description:
1749:
1750: BEGIN
1751: x_return_status := FND_API.G_RET_STS_SUCCESS;
1752:
1753: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1754: RETURN;
1755: END IF;
1756:
1757: csm_resource_extns_event_pkg.rs_group_members_ins_init(p_resource_id=>p_resource_id,
1761: WHEN OTHERS THEN
1762: x_return_status := FND_API.G_RET_STS_ERROR;
1763: l_sqlerrno := to_char(SQLCODE);
1764: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1765: CSM_UTIL_PKG.LOG('Exception in JTF_RS_Group_Member_Post_Ins for resource_id: ' || TO_CHAR(p_resource_id)
1766: || ' and group_id: ' || TO_CHAR(p_group_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
1767: 'CSM_WF_PKG.JTF_RS_Group_Member_Post_Ins', FND_LOG.LEVEL_EXCEPTION);
1768: END JTF_RS_Group_Member_Post_Ins;
1769:
1802: BEGIN
1803:
1804: x_return_status := FND_API.G_RET_STS_SUCCESS;
1805:
1806: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1807: RETURN;
1808: END IF;
1809:
1810: csm_resource_extns_event_pkg.rs_group_members_del_init(p_resource_id=>p_resource_id,
1814: WHEN OTHERS THEN
1815: x_return_status := FND_API.G_RET_STS_ERROR;
1816: l_sqlerrno := to_char(SQLCODE);
1817: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1818: CSM_UTIL_PKG.LOG('Exception in JTF_RS_Group_Member_Pre_Del for resource_id: ' || TO_CHAR(p_resource_id)
1819: || ' and group_id: ' || TO_CHAR(p_group_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
1820: 'CSM_WF_PKG.JTF_RS_Group_Member_Pre_Del', FND_LOG.LEVEL_EXCEPTION);
1821: END JTF_RS_Group_Member_Pre_Del;
1822:
1840: l_debrief_header_id := CSF_DEBRIEF_HEADERS_PKG.user_hooks_rec.debrief_header_id;
1841:
1842: x_return_status := FND_API.G_RET_STS_SUCCESS;
1843:
1844: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1845: RETURN;
1846: END IF;
1847:
1848: csm_debrief_header_event_pkg.debrief_header_ins_init(p_debrief_header_id=>l_debrief_header_id,
1854: l_sqlerrno := to_char(SQLCODE);
1855: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1856: l_error_msg := 'Exception in CSF_Debrief_Header_Post_Ins for debrief_header_id:' || TO_CHAR(l_debrief_header_id)
1857: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1858: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Header_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
1859: END CSF_Debrief_Header_Post_Ins;
1860:
1861: PROCEDURE CSF_Debrief_Header_Pre_Upd(x_return_status OUT NOCOPY VARCHAR2)
1862: IS
1883: x_return_status := FND_API.G_RET_STS_SUCCESS;
1884:
1885: l_debrief_header_id := CSF_DEBRIEF_Headers_PKG.user_hooks_rec.debrief_header_id;
1886:
1887: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1888: RETURN;
1889: END IF;
1890:
1891: CSM_UTIL_PKG.LOG('CSM_WF_PKG.CSF_Debrief_Header_Post_Upd: IS_FIELD_SERVICE_PALM_ENABLED' );
1887: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1888: RETURN;
1889: END IF;
1890:
1891: CSM_UTIL_PKG.LOG('CSM_WF_PKG.CSF_Debrief_Header_Post_Upd: IS_FIELD_SERVICE_PALM_ENABLED' );
1892:
1893: FOR r_debrief_hdr_rec IN l_debrief_hdr_csr(l_debrief_header_id) LOOP
1894: csm_debrief_header_event_pkg.debrief_header_mdirty_u(p_debrief_header_id=>l_debrief_header_id,
1895: p_user_id=>r_debrief_hdr_rec.user_id);
1901: l_sqlerrno := to_char(SQLCODE);
1902: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1903: l_error_msg := 'Exception in CSF_Debrief_Header_Post_Upd for debrief_header_id:' || TO_CHAR(l_debrief_header_id)
1904: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1905: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Header_Post_Upd',FND_LOG.LEVEL_EXCEPTION);
1906: END CSF_Debrief_Header_Post_Upd;
1907:
1908: PROCEDURE CSF_Debrief_Header_Post_Del(x_return_status OUT NOCOPY VARCHAR2)
1909: IS
1941: x_return_status := FND_API.G_RET_STS_SUCCESS;
1942:
1943: l_debrief_header_id := CSF_DEBRIEF_HEADERS_PKG.user_hooks_rec.debrief_header_id;
1944:
1945: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1946: RETURN;
1947: END IF;
1948:
1949: OPEN l_csm_debrfHdDel_csr(l_debrief_header_id);
1963: l_sqlerrno := to_char(SQLCODE);
1964: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1965: l_error_msg := 'Exception in CSF_Debrief_Header_Post_Del for debrief_header_id:' || TO_CHAR(l_debrief_header_id)
1966: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1967: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Header_Post_Del',FND_LOG.LEVEL_EXCEPTION);
1968: END CSF_Debrief_Header_Post_Del;
1969:
1970: /********************************************************
1971: Starts the DEBRIEF_LINE_INS workflow. Should be called when new
1986: x_return_status := FND_API.G_RET_STS_SUCCESS;
1987:
1988: l_debrief_line_id := CSF_DEBRIEF_LINES_PKG.user_hooks_rec.debrief_line_id;
1989:
1990: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1991: RETURN;
1992: END IF;
1993:
1994: csm_debrief_event_pkg.debrief_line_ins_init(p_debrief_line_id=>l_debrief_line_id,
2001: l_sqlerrno := to_char(SQLCODE);
2002: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2003: l_error_msg := 'Exception in CSF_Debrief_Line_Post_Ins for debrief_Line_id:' || TO_CHAR(l_debrief_line_id)
2004: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
2005: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Line_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
2006: END CSF_Debrief_Line_Post_Ins;
2007:
2008: /********************************************************
2009: Captures the old inventory_item_id before the upd
2028:
2029: BEGIN
2030: x_return_status := FND_API.G_RET_STS_SUCCESS;
2031:
2032: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2033: RETURN;
2034: END IF;
2035:
2036: l_debrief_line_id := CSF_DEBRIEF_LINES_PKG.user_hooks_rec.debrief_line_id;
2049: l_sqlerrno := to_char(SQLCODE);
2050: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2051: l_error_msg := 'Exception in CSF_Debrief_Line_Pre_Upd for debrief_Line_id:' || TO_CHAR(l_debrief_line_id)
2052: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
2053: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Line_Pre_Upd',FND_LOG.LEVEL_EXCEPTION);
2054: END CSF_Debrief_Line_Pre_Upd;
2055:
2056:
2057: Procedure CSF_Debrief_Line_Post_Upd(x_return_status OUT NOCOPY VARCHAR2)
2078: x_return_status := FND_API.G_RET_STS_SUCCESS;
2079:
2080: l_debrief_line_id := CSF_DEBRIEF_LINES_PKG.user_hooks_rec.debrief_line_id;
2081:
2082: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2083: RETURN;
2084: END IF;
2085:
2086: l_is_inventory_item_updated := 'N';
2117: l_sqlerrno := to_char(SQLCODE);
2118: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2119: l_error_msg := 'Exception in CSF_Debrief_Line_Post_Upd for debrief_Line_id:' || TO_CHAR(l_debrief_line_id)
2120: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
2121: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Line_Post_Upd',FND_LOG.LEVEL_EXCEPTION);
2122: END CSF_Debrief_Line_Post_Upd;
2123:
2124:
2125: /*
2147: x_return_status := FND_API.G_RET_STS_SUCCESS;
2148:
2149: l_debrief_line_id := CSF_DEBRIEF_LINES_PKG.user_hooks_rec.debrief_line_id;
2150:
2151: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2152: RETURN;
2153: END IF;
2154:
2155: OPEN l_csm_debrfLnDel_csr(l_debrief_line_id);
2169: l_sqlerrno := to_char(SQLCODE);
2170: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2171: l_error_msg := 'Exception in CSF_Debrief_Line_Post_Del for debrief_Line_id:' || TO_CHAR(l_debrief_line_id)
2172: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
2173: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Line_Post_Del',FND_LOG.LEVEL_EXCEPTION);
2174: END CSF_Debrief_Line_Post_Del;
2175:
2176: PROCEDURE CSP_Inv_Loc_Assignmnt_Post_Ins(x_return_status OUT NOCOPY VARCHAR2)
2177: IS
2181:
2182: BEGIN
2183: x_return_status := FND_API.G_RET_STS_SUCCESS;
2184:
2185: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2186: RETURN;
2187: END IF;
2188:
2189: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2187: END IF;
2188:
2189: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2190:
2191: CSM_UTIL_PKG.LOG('Entering CSP_Inv_Loc_Assignmnt_Post_Ins for csp_inv_loc_assignment_id: ' || TO_CHAR(l_csp_inv_loc_assignment_id),
2192: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Post_Ins', FND_LOG.LEVEL_PROCEDURE );
2193:
2194: CSM_INV_LOC_ASS_EVENT_PKG.INV_LOC_ASSIGNMENT_INS_INIT(p_csp_inv_loc_assignment_id=>l_csp_inv_loc_assignment_id);
2195:
2192: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Post_Ins', FND_LOG.LEVEL_PROCEDURE );
2193:
2194: CSM_INV_LOC_ASS_EVENT_PKG.INV_LOC_ASSIGNMENT_INS_INIT(p_csp_inv_loc_assignment_id=>l_csp_inv_loc_assignment_id);
2195:
2196: CSM_UTIL_PKG.LOG('Leaving CSP_Inv_Loc_Assignmnt_Post_Ins for csp_inv_loc_assignment_id: ' || TO_CHAR(l_csp_inv_loc_assignment_id),
2197: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Post_Ins', FND_LOG.LEVEL_PROCEDURE );
2198:
2199: EXCEPTION
2200: WHEN OTHERS THEN
2200: WHEN OTHERS THEN
2201: x_return_status := FND_API.G_RET_STS_ERROR;
2202: l_sqlerrno := to_char(SQLCODE);
2203: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2204: CSM_UTIL_PKG.LOG('Exception in CSP_Inv_Loc_Assignmnt_Post_Ins for csp_inv_loc_assignment_id: ' || TO_CHAR(l_csp_inv_loc_assignment_id)
2205: || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
2206: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Post_Ins', FND_LOG.LEVEL_EXCEPTION);
2207: END CSP_Inv_Loc_Assignmnt_Post_Ins;
2208:
2231:
2232: BEGIN
2233: x_return_status := FND_API.G_RET_STS_SUCCESS;
2234:
2235: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2236: RETURN;
2237: END IF;
2238:
2239: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2237: END IF;
2238:
2239: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2240:
2241: CSM_UTIL_PKG.LOG('Entering CSP_Inv_Loc_Assignmnt_Pre_Upd for csp_inv_loc_assignment_id: ' || TO_CHAR(l_csp_inv_loc_assignment_id),
2242: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Pre_Upd', FND_LOG.LEVEL_PROCEDURE );
2243:
2244: g_old_subinventory_code := NULL;
2245: g_old_organization_id := NULL;
2262: g_old_default_code := l_old_default_code;
2263: END IF;
2264: CLOSE l_cila_pre_upd_csr;
2265:
2266: CSM_UTIL_PKG.LOG('Leaving CSP_Inv_Loc_Assignmnt_Pre_Upd for csp_inv_loc_assignment_id: ' || TO_CHAR(l_csp_inv_loc_assignment_id),
2267: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Pre_Upd', FND_LOG.LEVEL_PROCEDURE );
2268: EXCEPTION
2269: WHEN OTHERS THEN
2270: x_return_status := FND_API.G_RET_STS_ERROR;
2269: WHEN OTHERS THEN
2270: x_return_status := FND_API.G_RET_STS_ERROR;
2271: l_sqlerrno := to_char(SQLCODE);
2272: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2273: CSM_UTIL_PKG.LOG('Exception in CSP_Inv_Loc_Assignmnt_Pre_Upd for csp_inv_loc_assignment_id: ' || TO_CHAR(l_csp_inv_loc_assignment_id)
2274: || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
2275: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Pre_Upd', FND_LOG.LEVEL_EXCEPTION);
2276: END CSP_Inv_Loc_Assignmnt_Pre_Upd;
2277:
2304:
2305: BEGIN
2306: x_return_status := FND_API.G_RET_STS_SUCCESS;
2307:
2308: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2309: RETURN;
2310: END IF;
2311:
2312: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2342: WHEN OTHERS THEN
2343: x_return_status := FND_API.G_RET_STS_ERROR;
2344: l_sqlerrno := to_char(SQLCODE);
2345: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2346: CSM_UTIL_PKG.LOG('Exception in CSP_Inv_Loc_Assignmnt_Post_Upd for csp_inv_loc_assignment_id: ' || TO_CHAR(l_csp_inv_loc_assignment_id)
2347: || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
2348: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Post_Upd', FND_LOG.LEVEL_EXCEPTION);
2349: END CSP_Inv_Loc_Assignmnt_Post_Upd;
2350:
2356:
2357: BEGIN
2358: x_return_status := FND_API.G_RET_STS_SUCCESS;
2359:
2360: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2361: RETURN;
2362: END IF;
2363:
2364: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2362: END IF;
2363:
2364: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2365:
2366: CSM_UTIL_PKG.LOG('Entering CSP_Inv_Loc_Assg_Post_Del for csp_inv_loc_assignment_id: ' || TO_CHAR(l_csp_inv_loc_assignment_id),
2367: 'CSM_WF_PKG.CSP_Inv_Loc_Assg_Post_Del', FND_LOG.LEVEL_PROCEDURE );
2368:
2369: CSM_INV_LOC_ASS_EVENT_PKG.INV_LOC_ASSIGNMENT_DEL_INIT(p_csp_inv_loc_assignment_id=>l_csp_inv_loc_assignment_id);
2370:
2367: 'CSM_WF_PKG.CSP_Inv_Loc_Assg_Post_Del', FND_LOG.LEVEL_PROCEDURE );
2368:
2369: CSM_INV_LOC_ASS_EVENT_PKG.INV_LOC_ASSIGNMENT_DEL_INIT(p_csp_inv_loc_assignment_id=>l_csp_inv_loc_assignment_id);
2370:
2371: CSM_UTIL_PKG.LOG('Leaving CSP_Inv_Loc_Assg_Post_Del for csp_inv_loc_assignment_id: ' || TO_CHAR(l_csp_inv_loc_assignment_id),
2372: 'CSM_WF_PKG.CSP_Inv_Loc_Assg_Post_Del', FND_LOG.LEVEL_PROCEDURE );
2373:
2374: EXCEPTION
2375: WHEN OTHERS THEN
2375: WHEN OTHERS THEN
2376: x_return_status := FND_API.G_RET_STS_ERROR;
2377: l_sqlerrno := to_char(SQLCODE);
2378: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2379: CSM_UTIL_PKG.LOG('Exception in CSP_Inv_Loc_Assg_Post_Del for csp_inv_loc_assignment_id: ' || TO_CHAR(l_csp_inv_loc_assignment_id)
2380: || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
2381: 'CSM_WF_PKG.CSP_Inv_Loc_Assg_Post_Del', FND_LOG.LEVEL_EXCEPTION);
2382: END CSP_Inv_Loc_Assg_Post_Del;
2383:
2422: x_return_status := FND_API.G_RET_STS_SUCCESS;
2423:
2424: l_location_id := csp_ship_to_address_pvt.g_inv_loc_id;
2425:
2426: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2427: RETURN;
2428: END IF;
2429:
2430: FOR r_ship_locations_ins_rec IN l_ship_locations_ins_csr(l_location_id) LOOP
2440: p_org_id=>r_ship_locations_ins_rec.org_id,
2441: p_res_type=>r_ship_locations_ins_rec.resource_type,
2442: p_user_id=>r_ship_locations_ins_rec.user_id);
2443: END LOOP;
2444: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS', 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS',
2445: FND_LOG.LEVEL_PROCEDURE );
2446:
2447: EXCEPTION
2448: WHEN OTHERS THEN
2448: WHEN OTHERS THEN
2449: x_return_status := FND_API.G_RET_STS_ERROR;
2450: l_sqlerrno := to_char(SQLCODE);
2451: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2452: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS:' || l_sqlerrno || ':' || l_sqlerrmsg,
2453: 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS', FND_LOG.LEVEL_EXCEPTION);
2454: END CSP_SHIP_TO_ADDRESS_POST_INS;
2455:
2456: PROCEDURE CSP_SHIP_TO_ADDRESS_POST_UPD(x_return_status OUT NOCOPY varchar2)
2471:
2472: BEGIN
2473: x_return_status := FND_API.G_RET_STS_SUCCESS;
2474:
2475: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2476: RETURN;
2477: END IF;
2478:
2479: l_location_id := csp_ship_to_address_pvt.g_inv_loc_id;
2477: END IF;
2478:
2479: l_location_id := csp_ship_to_address_pvt.g_inv_loc_id;
2480:
2481: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS', 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD',
2482: FND_LOG.LEVEL_PROCEDURE );
2483:
2484: FOR r_ship_locations_upd_rec IN l_ship_locations_upd_csr(l_location_id) LOOP
2485:
2497: p_res_type=>r_ship_locations_upd_rec.resource_type,
2498: p_user_id=>r_ship_locations_upd_rec.user_id);
2499: END LOOP;
2500:
2501: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD', 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD',
2502: FND_LOG.LEVEL_PROCEDURE );
2503:
2504: EXCEPTION
2505: WHEN OTHERS THEN
2505: WHEN OTHERS THEN
2506: x_return_status := FND_API.G_RET_STS_ERROR;
2507: l_sqlerrno := to_char(SQLCODE);
2508: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2509: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD:' || l_sqlerrno || ':' || l_sqlerrmsg,
2510: 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD', FND_LOG.LEVEL_EXCEPTION);
2511: END CSP_SHIP_TO_ADDRESS_POST_UPD;
2512:
2513: PROCEDURE CSP_REQ_HEADERS_POST_INS(x_return_status OUT NOCOPY varchar2)
2538:
2539: BEGIN
2540: x_return_status := FND_API.G_RET_STS_SUCCESS;
2541:
2542: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2543: RETURN;
2544: END IF;
2545:
2546: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS',
2542: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2543: RETURN;
2544: END IF;
2545:
2546: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS',
2547: FND_LOG.LEVEL_PROCEDURE );
2548:
2549: l_req_header_id := CSP_REQUIREMENT_HEADERS_PKG.user_hooks_rec.REQUIREMENT_HEADER_ID;
2550:
2548:
2549: l_req_header_id := CSP_REQUIREMENT_HEADERS_PKG.user_hooks_rec.REQUIREMENT_HEADER_ID;
2550:
2551: FOR r_req_hdr_rec IN l_req_hdr_csr(l_req_header_id) LOOP
2552: IF csm_util_pkg.is_palm_resource(r_req_hdr_rec.resource_id) THEN
2553: csm_csp_req_headers_event_pkg.csp_req_headers_mdirty_i(p_requirement_header_id=>l_req_header_id,
2554: p_user_id=>r_req_hdr_rec.user_id);
2555: ELSE
2556: CSM_UTIL_PKG.LOG('Resource:' || r_req_hdr_rec.resource_id || ' not a mobile resource',
2552: IF csm_util_pkg.is_palm_resource(r_req_hdr_rec.resource_id) THEN
2553: csm_csp_req_headers_event_pkg.csp_req_headers_mdirty_i(p_requirement_header_id=>l_req_header_id,
2554: p_user_id=>r_req_hdr_rec.user_id);
2555: ELSE
2556: CSM_UTIL_PKG.LOG('Resource:' || r_req_hdr_rec.resource_id || ' not a mobile resource',
2557: 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', FND_LOG.LEVEL_ERROR );
2558: END IF;
2559:
2560: END LOOP;
2557: 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', FND_LOG.LEVEL_ERROR );
2558: END IF;
2559:
2560: END LOOP;
2561: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS',
2562: FND_LOG.LEVEL_PROCEDURE );
2563:
2564: EXCEPTION
2565: WHEN OTHERS THEN
2565: WHEN OTHERS THEN
2566: x_return_status := FND_API.G_RET_STS_ERROR;
2567: l_sqlerrno := to_char(SQLCODE);
2568: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2569: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS:' || l_sqlerrno || ':' || l_sqlerrmsg,
2570: 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', FND_LOG.LEVEL_EXCEPTION);
2571: END CSP_REQ_HEADERS_POST_INS;
2572:
2573: PROCEDURE CSP_REQ_HEADERS_POST_UPD(x_return_status OUT NOCOPY varchar2)
2585:
2586: BEGIN
2587: x_return_status := FND_API.G_RET_STS_SUCCESS;
2588:
2589: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2590: RETURN;
2591: END IF;
2592:
2593: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD',
2589: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2590: RETURN;
2591: END IF;
2592:
2593: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD',
2594: FND_LOG.LEVEL_PROCEDURE );
2595:
2596: l_req_header_id := CSP_REQUIREMENT_HEADERS_PKG.user_hooks_rec.REQUIREMENT_HEADER_ID;
2597:
2599: csm_csp_req_headers_event_pkg.csp_req_headers_mdirty_u(p_requirement_header_id=>l_req_header_id,
2600: p_user_id=>r_req_hdr_rec.user_id);
2601:
2602: END LOOP;
2603: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD',
2604: FND_LOG.LEVEL_PROCEDURE );
2605:
2606: EXCEPTION
2607: WHEN OTHERS THEN
2607: WHEN OTHERS THEN
2608: x_return_status := FND_API.G_RET_STS_ERROR;
2609: l_sqlerrno := to_char(SQLCODE);
2610: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2611: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD:' || l_sqlerrno || ':' || l_sqlerrmsg,
2612: 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD', FND_LOG.LEVEL_EXCEPTION);
2613: END CSP_REQ_HEADERS_POST_UPD;
2614:
2615: PROCEDURE CSP_REQ_HEADERS_POST_DEL(x_return_status OUT NOCOPY varchar2)
2626:
2627: BEGIN
2628: x_return_status := FND_API.G_RET_STS_SUCCESS;
2629:
2630: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2631: RETURN;
2632: END IF;
2633:
2634: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL',
2630: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2631: RETURN;
2632: END IF;
2633:
2634: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL',
2635: FND_LOG.LEVEL_PROCEDURE );
2636:
2637: l_req_header_id := CSP_REQUIREMENT_HEADERS_PKG.user_hooks_rec.REQUIREMENT_HEADER_ID;
2638:
2640: csm_csp_req_headers_event_pkg.csp_req_headers_mdirty_d(p_requirement_header_id=>l_req_header_id,
2641: p_user_id=>r_req_hdr_acc_rec.user_id);
2642:
2643: END LOOP;
2644: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL',
2645: FND_LOG.LEVEL_PROCEDURE );
2646:
2647: EXCEPTION
2648: WHEN OTHERS THEN
2648: WHEN OTHERS THEN
2649: x_return_status := FND_API.G_RET_STS_ERROR;
2650: l_sqlerrno := to_char(SQLCODE);
2651: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2652: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL:' || l_sqlerrno || ':' || l_sqlerrmsg,
2653: 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL', FND_LOG.LEVEL_EXCEPTION);
2654: END CSP_REQ_HEADERS_POST_DEL;
2655:
2656: PROCEDURE CSP_REQ_LINES_POST_INS(x_return_status OUT NOCOPY varchar2)
2687:
2688: BEGIN
2689: x_return_status := FND_API.G_RET_STS_SUCCESS;
2690:
2691: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2692: RETURN;
2693: END IF;
2694:
2695: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS',
2691: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2692: RETURN;
2693: END IF;
2694:
2695: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS',
2696: FND_LOG.LEVEL_PROCEDURE );
2697:
2698: l_req_line_id := CSP_REQUIREMENT_LINES_PKG.user_hook_rec.REQUIREMENT_LINE_ID;
2699:
2697:
2698: l_req_line_id := CSP_REQUIREMENT_LINES_PKG.user_hook_rec.REQUIREMENT_LINE_ID;
2699:
2700: FOR r_req_line_rec IN l_req_line_csr(l_req_line_id) LOOP
2701: IF csm_util_pkg.is_palm_resource(r_req_line_rec.resource_id) THEN
2702: csm_csp_req_lines_event_pkg.csp_req_lines_mdirty_i(p_requirement_line_id=>l_req_line_id,
2703: p_user_id=>r_req_line_rec.user_id);
2704: ELSE
2705: CSM_UTIL_PKG.LOG('Resource:' || r_req_line_rec.resource_id || ' not a mobile resource',
2701: IF csm_util_pkg.is_palm_resource(r_req_line_rec.resource_id) THEN
2702: csm_csp_req_lines_event_pkg.csp_req_lines_mdirty_i(p_requirement_line_id=>l_req_line_id,
2703: p_user_id=>r_req_line_rec.user_id);
2704: ELSE
2705: CSM_UTIL_PKG.LOG('Resource:' || r_req_line_rec.resource_id || ' not a mobile resource',
2706: 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS', FND_LOG.LEVEL_ERROR );
2707: END IF;
2708:
2709: END LOOP;
2706: 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS', FND_LOG.LEVEL_ERROR );
2707: END IF;
2708:
2709: END LOOP;
2710: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINES_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS',
2711: FND_LOG.LEVEL_PROCEDURE );
2712:
2713: EXCEPTION
2714: WHEN OTHERS THEN
2714: WHEN OTHERS THEN
2715: x_return_status := FND_API.G_RET_STS_ERROR;
2716: l_sqlerrno := to_char(SQLCODE);
2717: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2718: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINES_POST_INS:' || l_sqlerrno || ':' || l_sqlerrmsg,
2719: 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS', FND_LOG.LEVEL_EXCEPTION);
2720: END CSP_REQ_LINES_POST_INS;
2721:
2722: PROCEDURE CSP_REQ_LINES_POST_UPD(x_return_status OUT NOCOPY varchar2)
2733:
2734: BEGIN
2735: x_return_status := FND_API.G_RET_STS_SUCCESS;
2736:
2737: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2738: RETURN;
2739: END IF;
2740:
2741: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINES_POST_UPD',
2737: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2738: RETURN;
2739: END IF;
2740:
2741: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINES_POST_UPD',
2742: FND_LOG.LEVEL_PROCEDURE );
2743:
2744: l_req_line_id := CSP_REQUIREMENT_LINES_PKG.user_hook_rec.REQUIREMENT_LINE_ID;
2745:
2747: csm_csp_req_lines_event_pkg.csp_req_lines_mdirty_u(p_requirement_line_id=>l_req_line_id,
2748: p_user_id=>r_req_line_rec.user_id);
2749: END LOOP;
2750:
2751: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINES_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINES_POST_UPD',
2752: FND_LOG.LEVEL_PROCEDURE );
2753:
2754: EXCEPTION
2755: WHEN OTHERS THEN
2755: WHEN OTHERS THEN
2756: x_return_status := FND_API.G_RET_STS_ERROR;
2757: l_sqlerrno := to_char(SQLCODE);
2758: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2759: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINES_POST_UPD:' || l_sqlerrno || ':' || l_sqlerrmsg,
2760: 'CSM_WF_PKG.CSP_REQ_LINES_POST_UPD', FND_LOG.LEVEL_EXCEPTION);
2761: END CSP_REQ_LINES_POST_UPD;
2762:
2763: PROCEDURE CSP_REQ_LINES_POST_DEL(x_return_status OUT NOCOPY varchar2)
2774:
2775: BEGIN
2776: x_return_status := FND_API.G_RET_STS_SUCCESS;
2777:
2778: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2779: RETURN;
2780: END IF;
2781:
2782: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_DEL', 'CSM_WF_PKG.CSP_REQ_LINES_POST_DEL',
2778: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2779: RETURN;
2780: END IF;
2781:
2782: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_DEL', 'CSM_WF_PKG.CSP_REQ_LINES_POST_DEL',
2783: FND_LOG.LEVEL_PROCEDURE );
2784:
2785: l_req_line_id := CSP_REQUIREMENT_LINES_PKG.user_hook_rec.REQUIREMENT_LINE_ID;
2786:
2789: p_user_id=>r_req_line_acc_rec.user_id);
2790:
2791: END LOOP;
2792:
2793: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINES_POST_DEL', 'CSM_WF_PKG.CSP_REQ_LINES_POST_DEL',
2794: FND_LOG.LEVEL_PROCEDURE );
2795: EXCEPTION
2796: WHEN OTHERS THEN
2797: x_return_status := FND_API.G_RET_STS_ERROR;
2796: WHEN OTHERS THEN
2797: x_return_status := FND_API.G_RET_STS_ERROR;
2798: l_sqlerrno := to_char(SQLCODE);
2799: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2800: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINES_POST_DEL:' || l_sqlerrno || ':' || l_sqlerrmsg,
2801: 'CSM_WF_PKG.CSP_REQ_LINES_POST_DEL', FND_LOG.LEVEL_EXCEPTION);
2802: END CSP_REQ_LINES_POST_DEL;
2803:
2804: PROCEDURE CSP_REQ_LINE_DETAILS_POST_INS(x_return_status OUT NOCOPY varchar2)
2810:
2811: BEGIN
2812: x_return_status := FND_API.G_RET_STS_SUCCESS;
2813:
2814: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2815: RETURN;
2816: END IF;
2817:
2818: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS',
2814: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2815: RETURN;
2816: END IF;
2817:
2818: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS',
2819: FND_LOG.LEVEL_PROCEDURE );
2820:
2821: l_req_line_id :=CSP_REQ_LINE_DETAILS_PKG.user_hook_rec.REQUIREMENT_LINE_ID; --CSF tech portal seems to pass this wrongly
2822: l_req_line_detail_id := CSP_REQ_LINE_DETAILS_PKG.user_hook_rec.req_line_detail_id; --only this is passed correctly from all src
2828:
2829: --Notify User of new Order placed
2830: RAISE_START_AUTO_SYNC_EVENT('CSM_REQ_LINE_DETAILS',to_char(l_req_line_detail_id),'NEW');
2831:
2832: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS',
2833: FND_LOG.LEVEL_PROCEDURE );
2834:
2835: EXCEPTION
2836: WHEN OTHERS THEN
2836: WHEN OTHERS THEN
2837: x_return_status := FND_API.G_RET_STS_ERROR;
2838: l_sqlerrno := to_char(SQLCODE);
2839: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2840: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS:' || l_sqlerrno || ':' || l_sqlerrmsg,
2841: 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS', FND_LOG.LEVEL_EXCEPTION);
2842: x_return_status := FND_API.G_RET_STS_ERROR;
2843: END CSP_REQ_LINE_DETAILS_POST_INS;
2844:
2851:
2852: BEGIN
2853: x_return_status := FND_API.G_RET_STS_SUCCESS;
2854:
2855: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2856: RETURN;
2857: END IF;
2858:
2859: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD',
2855: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2856: RETURN;
2857: END IF;
2858:
2859: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD',
2860: FND_LOG.LEVEL_PROCEDURE );
2861:
2862: l_req_line_id :=CSP_REQ_LINE_DETAILS_PKG.user_hook_rec.REQUIREMENT_LINE_ID; --CSF tech portal seems to pass this wrongly
2863: l_req_line_detail_id := CSP_REQ_LINE_DETAILS_PKG.user_hook_rec.req_line_detail_id; --only this is passed correctly from all src
2863: l_req_line_detail_id := CSP_REQ_LINE_DETAILS_PKG.user_hook_rec.req_line_detail_id; --only this is passed correctly from all src
2864:
2865: csm_csp_req_lines_event_pkg.REQ_LINE_DTL_IUD(l_req_line_detail_id,'U');
2866:
2867: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD',
2868: FND_LOG.LEVEL_PROCEDURE );
2869:
2870: EXCEPTION
2871: WHEN OTHERS THEN
2871: WHEN OTHERS THEN
2872: x_return_status := FND_API.G_RET_STS_ERROR;
2873: l_sqlerrno := to_char(SQLCODE);
2874: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2875: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD:' || l_sqlerrno || ':' || l_sqlerrmsg,
2876: 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD', FND_LOG.LEVEL_EXCEPTION);
2877: x_return_status := FND_API.G_RET_STS_ERROR;
2878: END CSP_REQ_LINE_DETAILS_POST_UPD;
2879:
2886:
2887: BEGIN
2888: x_return_status := FND_API.G_RET_STS_SUCCESS;
2889:
2890: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2891: RETURN;
2892: END IF;
2893:
2894: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL',
2890: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2891: RETURN;
2892: END IF;
2893:
2894: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL',
2895: FND_LOG.LEVEL_PROCEDURE );
2896:
2897: l_req_line_id :=CSP_REQ_LINE_DETAILS_PKG.user_hook_rec.REQUIREMENT_LINE_ID; --CSF tech portal seems to pass this wrongly
2898: l_req_line_detail_id := CSP_REQ_LINE_DETAILS_PKG.user_hook_rec.req_line_detail_id; --only this is passed correctly from all src
2898: l_req_line_detail_id := CSP_REQ_LINE_DETAILS_PKG.user_hook_rec.req_line_detail_id; --only this is passed correctly from all src
2899:
2900: csm_csp_req_lines_event_pkg.REQ_LINE_DTL_IUD(l_req_line_detail_id,'D');
2901:
2902: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL',
2903: FND_LOG.LEVEL_PROCEDURE );
2904:
2905: EXCEPTION
2906: WHEN OTHERS THEN
2906: WHEN OTHERS THEN
2907: x_return_status := FND_API.G_RET_STS_ERROR;
2908: l_sqlerrno := to_char(SQLCODE);
2909: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2910: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL:' || l_sqlerrno || ':' || l_sqlerrmsg,
2911: 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL', FND_LOG.LEVEL_EXCEPTION);
2912: END CSP_REQ_LINE_DETAILS_PRE_DEL;
2913:
2914: /*--------------------------------------------------
2942:
2943: BEGIN
2944: x_return_status := FND_API.G_RET_STS_SUCCESS;
2945:
2946: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2947: RETURN;
2948: END IF;
2949:
2950: csm_notes_event_pkg.notes_make_dirty_i_foreachuser(p_jtf_note_id,l_error_msg,l_return_status);
2948: END IF;
2949:
2950: csm_notes_event_pkg.notes_make_dirty_i_foreachuser(p_jtf_note_id,l_error_msg,l_return_status);
2951: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2952: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.JTF_Note_Post_Ins', FND_LOG.LEVEL_ERROR);
2953: END IF;
2954:
2955: EXCEPTION
2956: WHEN OTHERS THEN
2958: l_sqlerrno := to_char(SQLCODE);
2959: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2960: l_error_msg := l_error_msg || '- Exception in JTF_Note_Post_Ins for note_id:'
2961: || TO_CHAR(p_jtf_note_id) || l_sqlerrno || ':' || l_sqlerrmsg;
2962: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.JTF_Note_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
2963: END JTF_Note_Post_Ins;
2964:
2965: /*--------------------------------------------------
2966: Description:
2993:
2994: BEGIN
2995: x_return_status := FND_API.G_RET_STS_SUCCESS;
2996:
2997: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2998: RETURN;
2999: END IF;
3000:
3001: csm_notes_event_pkg.notes_make_dirty_i_foreachuser(p_jtf_note_id, l_error_msg, l_return_status);
2999: END IF;
3000:
3001: csm_notes_event_pkg.notes_make_dirty_i_foreachuser(p_jtf_note_id, l_error_msg, l_return_status);
3002: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3003: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.JTF_Note_Pre_Upd', FND_LOG.LEVEL_ERROR);
3004: END IF;
3005:
3006: EXCEPTION
3007: WHEN OTHERS THEN
3009: l_sqlerrno := to_char(SQLCODE);
3010: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3011: l_error_msg := l_error_msg || '- Exception in JTF_Note_PRE_Upd for note_id:'
3012: || TO_CHAR(p_jtf_note_id) || l_sqlerrno || ':' || l_sqlerrmsg;
3013: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.JTF_Note_PRE_Upd',FND_LOG.LEVEL_EXCEPTION);
3014: END JTF_Note_PRE_Upd;
3015:
3016: PROCEDURE JTF_Note_POST_Upd(p_api_version IN NUMBER
3017: , p_init_msg_list IN VARCHAR2
3034: l_sqlerrno := to_char(SQLCODE);
3035: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3036: l_error_msg := l_error_msg || '- Exception in JTF_Note_POST_Upd for note_id:'
3037: || TO_CHAR(p_jtf_note_id) || l_sqlerrno || ':' || l_sqlerrmsg;
3038: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.JTF_Note_POST_Upd',FND_LOG.LEVEL_EXCEPTION);
3039: END JTF_Note_POST_Upd;
3040:
3041: Procedure CSI_Item_Instance_Post_Ins(p_api_version IN NUMBER
3042: , p_init_msg_list IN VARCHAR2
3086: wf_engine.threshold := l_old_wf_threshold;
3087: */
3088: EXCEPTION
3089: WHEN OTHERS THEN
3090: csm_util_pkg.log('ERROR: CSI_ITEM_INSTANCE_POST_INS => '
3091: || to_char(p_instance_id));
3092: END CSI_Item_Instance_Post_Ins;
3093:
3094: Procedure CSI_Item_Instance_Pre_Upd(p_api_version IN NUMBER
3108:
3109: BEGIN
3110: x_return_status := FND_API.G_RET_STS_SUCCESS;
3111:
3112: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3113: RETURN;
3114: END IF;
3115:
3116: CSM_ITEM_INSTANCE_EVENT_PKG.ITEM_INSTANCE_MDIRTY_U_ECHUSER(p_instance_id, l_error_msg, l_return_status);
3114: END IF;
3115:
3116: CSM_ITEM_INSTANCE_EVENT_PKG.ITEM_INSTANCE_MDIRTY_U_ECHUSER(p_instance_id, l_error_msg, l_return_status);
3117: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3118: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CSI_Item_Instance_Pre_Upd', FND_LOG.LEVEL_ERROR);
3119: END IF;
3120:
3121: EXCEPTION
3122: WHEN OTHERS THEN
3124: l_sqlerrno := to_char(SQLCODE);
3125: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3126: l_error_msg := 'Exception in CSI_Item_Instance_Pre_Upd for instance_id:' || TO_CHAR(p_instance_id)
3127: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3128: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSI_Item_Instance_Pre_Upd',FND_LOG.LEVEL_EXCEPTION);
3129: END CSI_Item_Instance_Pre_Upd;
3130:
3131: Procedure CS_Counter_Post_Ins(
3132: P_Api_Version IN NUMBER,
3148:
3149: BEGIN
3150: x_return_status := FND_API.G_RET_STS_SUCCESS;
3151:
3152: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3153: RETURN;
3154: END IF;
3155:
3156: csm_counter_event_pkg.CTR_MAKE_DIRTY_I_FOREACHUSER(p_counter_id, l_error_msg, l_return_status);
3154: END IF;
3155:
3156: csm_counter_event_pkg.CTR_MAKE_DIRTY_I_FOREACHUSER(p_counter_id, l_error_msg, l_return_status);
3157: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3158: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Post_Ins', FND_LOG.LEVEL_ERROR);
3159: END IF;
3160:
3161: EXCEPTION
3162: WHEN OTHERS THEN
3164: l_sqlerrno := to_char(SQLCODE);
3165: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3166: l_error_msg := 'Exception in CS_Counter_Post_Ins for counter_id:' || TO_CHAR(p_counter_id)
3167: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3168: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
3169: END CS_Counter_Post_Ins;
3170:
3171: Procedure CS_Counter_Pre_Del(
3172: P_Api_Version IN NUMBER,
3185:
3186: BEGIN
3187: x_return_status := FND_API.G_RET_STS_SUCCESS;
3188:
3189: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3190: RETURN;
3191: END IF;
3192:
3193: csm_counter_event_pkg.COUNTER_MDIRTY_D(p_counter_id, l_error_msg, l_return_status);
3191: END IF;
3192:
3193: csm_counter_event_pkg.COUNTER_MDIRTY_D(p_counter_id, l_error_msg, l_return_status);
3194: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3195: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Pre_Del', FND_LOG.LEVEL_ERROR);
3196: END IF;
3197:
3198: EXCEPTION
3199: WHEN OTHERS THEN
3201: l_sqlerrno := to_char(SQLCODE);
3202: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3203: l_error_msg := 'Exception in CS_Counter_Pre_Del for counter_id:' || TO_CHAR(p_counter_id)
3204: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3205: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Pre_Del',FND_LOG.LEVEL_EXCEPTION);
3206: END CS_Counter_Pre_Del;
3207:
3208: PROCEDURE CS_CTR_GRP_INSTANCE_CRE_POST(
3209: P_Api_Version IN NUMBER,
3249:
3250: BEGIN
3251: x_return_status := FND_API.G_RET_STS_SUCCESS;
3252:
3253: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3254: RETURN;
3255: END IF;
3256:
3257: IF p_source_object_cd <> 'CP' THEN
3289: l_sqlerrno := to_char(SQLCODE);
3290: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3291: l_error_msg := 'Exception in CS_CTR_GRP_INSTANCE_CRE_POST for COUNTER_GROUP_ID:' || TO_CHAR(p_ctr_grp_id)
3292: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3293: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_CTR_GRP_INSTANCE_CRE_POST',FND_LOG.LEVEL_EXCEPTION);
3294: END CS_CTR_GRP_INSTANCE_CRE_POST;
3295:
3296: PROCEDURE CS_CTR_GRP_INSTANCE_PRE_DEL(
3297: P_Api_Version IN NUMBER,
3324:
3325: BEGIN
3326: x_return_status := FND_API.G_RET_STS_SUCCESS;
3327:
3328: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3329: RETURN;
3330: END IF;
3331:
3332: IF p_source_object_cd <> 'CP' THEN
3351: l_sqlerrno := to_char(SQLCODE);
3352: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3353: l_error_msg := 'Exception in CS_CTR_GRP_INSTANCE_PRE_DEL for source_object_id:' || TO_CHAR(p_source_object_id)
3354: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3355: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_CTR_GRP_INSTANCE_PRE_DEL',FND_LOG.LEVEL_EXCEPTION);
3356: END CS_CTR_GRP_INSTANCE_PRE_DEL;
3357:
3358: PROCEDURE CS_COUNTER_GRP_Post_Upd( P_Api_Version IN NUMBER
3359: , P_Init_Msg_List IN VARCHAR2
3384:
3385: BEGIN
3386: x_return_status := FND_API.G_RET_STS_SUCCESS;
3387:
3388: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3389: RETURN;
3390: END IF;
3391:
3392: FOR r_counter_csr IN l_counter_csr(p_ctr_grp_id) LOOP
3409: l_sqlerrno := to_char(SQLCODE);
3410: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3411: l_error_msg := 'Exception in CS_COUNTER_GRP_Post_Upd for counter_grp_id:' || TO_CHAR(p_ctr_grp_id)
3412: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3413: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_COUNTER_GRP_Post_Upd',FND_LOG.LEVEL_EXCEPTION);
3414: END CS_COUNTER_GRP_Post_Upd;
3415:
3416: PROCEDURE CS_COUNTERS_INSTANTIATE_POST(
3417: P_Api_Version IN NUMBER,
3445: );
3446: EXCEPTION
3447: --log the error
3448: WHEN OTHERS THEN
3449: csm_util_pkg.log('ERROR: COUNTER_GROUP_ID => ' || to_char(p_ctr_grp_id));
3450: END CS_COUNTERS_INSTANTIATE_POST;
3451:
3452:
3453:
3499: SELECT CSM_ACTIVITY_SEQ.nextval
3500: FROM dual;
3501:
3502: BEGIN
3503: -- csm_util_pkg.log('csm_wf_pkg.cs_counter_pre_upd eneterd');
3504: x_return_status := FND_API.G_RET_STS_SUCCESS;
3505:
3506: EXCEPTION
3507: --log the error
3505:
3506: EXCEPTION
3507: --log the error
3508: WHEN OTHERS THEN
3509: csm_util_pkg.log('ERROR: COUNTER_ID => ' || to_char(p_counter_id));
3510: END CS_Counter_Pre_Upd;
3511:
3512: PROCEDURE CS_Counter_Post_Upd(
3513: P_Api_Version IN NUMBER,
3540:
3541: BEGIN
3542: x_return_status := FND_API.G_RET_STS_SUCCESS;
3543:
3544: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3545: RETURN;
3546: END IF;
3547:
3548: -- check if the p_counter_id is belongs to a mobile item_instance.
3556: CLOSE l_acc_csr;
3557:
3558: csm_counter_event_pkg.CTR_MAKE_DIRTY_U_FOREACHUSER(p_counter_id, l_error_msg, l_return_status);
3559: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3560: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Post_Upd', FND_LOG.LEVEL_ERROR);
3561: END IF;
3562:
3563: EXCEPTION
3564: WHEN OTHERS THEN
3566: l_sqlerrno := to_char(SQLCODE);
3567: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3568: l_error_msg := 'Exception in CS_Counter_Post_Upd for counter_id:' || TO_CHAR(p_counter_id)
3569: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3570: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Post_Upd',FND_LOG.LEVEL_EXCEPTION);
3571: END CS_Counter_Post_Upd;
3572:
3573:
3574: /********************************************************
3596:
3597: BEGIN
3598: x_return_status := FND_API.G_RET_STS_SUCCESS;
3599:
3600: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3601: RETURN;
3602: END IF;
3603:
3604: l_counter_grp_log_id := p_counter_grp_log_id;
3604: l_counter_grp_log_id := p_counter_grp_log_id;
3605:
3606: csm_counter_event_pkg.CTR_VAL_MAKE_DIRTY_FOREACHUSER(l_counter_grp_log_id, l_error_msg, l_return_status);
3607: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3608: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Value_Post_Ins', FND_LOG.LEVEL_ERROR);
3609: END IF;
3610:
3611: EXCEPTION
3612: WHEN OTHERS THEN
3614: l_sqlerrno := to_char(SQLCODE);
3615: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3616: l_error_msg := 'Exception in CS_Counter_Value_Post_Ins for counter_grp_log_id:' || TO_CHAR(l_counter_grp_log_id)
3617: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3618: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Value_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
3619: END CS_Counter_Value_Post_Ins;
3620:
3621: /********************************************************
3622: Starts the COUNTER_VALUE_UPD_USERLOOP workflow. Should be called when new
3642:
3643: BEGIN
3644: x_return_status := FND_API.G_RET_STS_SUCCESS;
3645:
3646: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3647: RETURN;
3648: END IF;
3649:
3650: l_counter_grp_log_id := p_counter_grp_log_id;
3650: l_counter_grp_log_id := p_counter_grp_log_id;
3651:
3652: csm_counter_event_pkg.CTR_VAL_MAKE_DIRTY_FOREACHUSER(l_counter_grp_log_id, l_error_msg, l_return_status);
3653: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3654: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Value_Pre_Upd', FND_LOG.LEVEL_ERROR);
3655: END IF;
3656:
3657: EXCEPTION
3658: WHEN OTHERS THEN
3660: l_sqlerrno := to_char(SQLCODE);
3661: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3662: l_error_msg := 'Exception in CS_Counter_Value_Pre_Upd for counter_grp_log_id:' || TO_CHAR(l_counter_grp_log_id)
3663: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3664: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Value_Pre_Upd',FND_LOG.LEVEL_EXCEPTION);
3665: END CS_Counter_Value_Pre_Upd;
3666:
3667: Procedure CS_Counter_Property_Post_Ins(p_user_id in number,
3668: p_cs_counter_prop cs_counter_properties%rowtype)
3706: l_error_msg VARCHAR2(4000);
3707: l_return_status VARCHAR2(2000);
3708:
3709: BEGIN
3710: CSM_UTIL_PKG.LOG('Entering User_Del for user_id: ' || p_user_id, 'csm_wf_pkg.User_Del',FND_LOG.LEVEL_PROCEDURE);
3711:
3712: csm_user_event_pkg.user_del_init(p_user_id=>p_user_id);
3713:
3714: CSM_UTIL_PKG.LOG('Leaving User_Del for user_id: ' || p_user_id, 'csm_wf_pkg.User_Del',FND_LOG.LEVEL_PROCEDURE);
3710: CSM_UTIL_PKG.LOG('Entering User_Del for user_id: ' || p_user_id, 'csm_wf_pkg.User_Del',FND_LOG.LEVEL_PROCEDURE);
3711:
3712: csm_user_event_pkg.user_del_init(p_user_id=>p_user_id);
3713:
3714: CSM_UTIL_PKG.LOG('Leaving User_Del for user_id: ' || p_user_id, 'csm_wf_pkg.User_Del',FND_LOG.LEVEL_PROCEDURE);
3715: EXCEPTION
3716: WHEN OTHERS THEN
3717: l_sqlerrno := to_char(SQLCODE);
3718: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3717: l_sqlerrno := to_char(SQLCODE);
3718: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3719: l_error_msg := ' Exception in User_Del for user_id:'
3720: || to_char(p_user_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3721: CSM_UTIL_PKG.LOG(l_error_msg, 'csm_wf_pkg.User_Del',FND_LOG.LEVEL_EXCEPTION);
3722: RAISE;
3723: END User_Del;
3724:
3725: PROCEDURE RAISE_START_AUTO_SYNC_EVENT(l_entity VARCHAR2 , l_pk_value VARCHAR2, l_mode VARCHAR2)
3741: fetch c_access into l_e;
3742: close c_access;
3743:
3744: IF l_e is NULL OR (l_e < 0) THEN
3745: CSM_UTIL_PKG.LOG('Returning since Task Assignment Id '||l_pk_value ||' is not downloaded to any mfs user',
3746: 'CSM_WF_PKG.RAISE_START_AUTO_SYNC_EVENT',FND_LOG.LEVEL_PROCEDURE);
3747: RETURN;
3748: END IF;
3749: END IF;
3757: wf_event.raise(p_event_name=>'oracle.apps.csm.download.startsync',
3758: p_event_key=>l_pk_value,p_parameters=>l_wf_param.getParameterList,
3759: p_event_data=>null,p_send_date=>null);
3760:
3761: CSM_UTIL_PKG.LOG('Raised auto sync event for : '||l_entity||'-'||l_pk_value||'-'||l_mode, 'CSM_WF_PKG.RAISE_START_AUTO_SYNC_EVENT',FND_LOG.LEVEL_PROCEDURE);
3762: EXCEPTION
3763: WHEN Others THEN
3764: CSM_UTIL_PKG.LOG('Returning with exception:'||substr(SQLERRM, 1,2000),'CSM_WF_PKG.RAISE_START_AUTO_SYNC_EVENT',FND_LOG.LEVEL_PROCEDURE);
3765: END RAISE_START_AUTO_SYNC_EVENT;
3760:
3761: CSM_UTIL_PKG.LOG('Raised auto sync event for : '||l_entity||'-'||l_pk_value||'-'||l_mode, 'CSM_WF_PKG.RAISE_START_AUTO_SYNC_EVENT',FND_LOG.LEVEL_PROCEDURE);
3762: EXCEPTION
3763: WHEN Others THEN
3764: CSM_UTIL_PKG.LOG('Returning with exception:'||substr(SQLERRM, 1,2000),'CSM_WF_PKG.RAISE_START_AUTO_SYNC_EVENT',FND_LOG.LEVEL_PROCEDURE);
3765: END RAISE_START_AUTO_SYNC_EVENT;
3766:
3767: END CSM_WF_PKG;