[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:
261:
262: BEGIN
263: x_return_status := FND_API.G_RET_STS_SUCCESS;
264:
265: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
266: RETURN;
267: END IF;
268:
269: l_task_id := jtf_tasks_pub.p_task_user_hooks.task_id;
284: l_sqlerrno := to_char(SQLCODE);
285: l_sqlerrmsg := substr(SQLERRM, 1,2000);
286: l_error_msg := ' Exception in TASK_POST_INS for task_id:'
287: || to_char(l_task_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
288: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.TASK_POST_INS',FND_LOG.LEVEL_EXCEPTION);
289: END TASK_POST_INS;
290:
291:
292: /* Starts TASK_DEL workflow, Should be called when new SR is created */
303:
304: BEGIN
305: x_return_status := FND_API.G_RET_STS_SUCCESS;
306:
307: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
308: RETURN;
309: END IF;
310:
311: l_task_id := jtf_tasks_pub.p_task_user_hooks.task_id;
318: l_sqlerrno := to_char(SQLCODE);
319: l_sqlerrmsg := substr(SQLERRM, 1,2000);
320: l_error_msg := ' Exception in TASK_POST_DEL for task_id:'
321: || to_char(l_task_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
322: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.TASK_POST_DEL',FND_LOG.LEVEL_EXCEPTION);
323: END TASK_POST_DEL;
324:
325: /* Task_Assignment_Post_Ins
326: */
390:
391: BEGIN
392: x_return_status := FND_API.G_RET_STS_SUCCESS;
393:
394: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
395: RETURN;
396: END IF;
397:
398: l_task_assignment_id := jtf_task_assignments_pub.p_task_assignments_user_hooks.task_assignment_id;
412: -- to download other grp's resource if required
413: OPEN c_resource_id(l_user_id);
414: FETCH c_resource_id INTO l_owner_resource_id;
415: CLOSE c_resource_id;
416: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,l_assignee_id) THEN
417: --assignee bug
418: OPEN c_user_id(l_assignee_id);
419: FETCH c_user_id INTO l_assignee_user_id;
420: CLOSE c_user_id;
434: l_sqlerrno := to_char(SQLCODE);
435: l_sqlerrmsg := substr(SQLERRM, 1,2000);
436: l_error_msg := l_error_msg || '-Exception for Task_Assignment_Post_Ins :' || TO_CHAR(l_task_assignment_id)
437: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
438: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.Task_Assignment_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
439: END Task_Assignment_Post_Ins;
440:
441: /*-----------------------------------------------------------------
442: Description:
471:
472: BEGIN
473: x_return_status := FND_API.G_RET_STS_SUCCESS;
474:
475: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
476: RETURN;
477: END IF;
478:
479: l_task_assignment_id := jtf_task_assignments_pub.p_task_assignments_user_hooks.task_assignment_id;
491: END IF;
492: CLOSE l_task_ass_pre_csr;
493:
494: -- if old_resource_id and new resource_id are not mobile users then return
495: IF (( NOT CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id)) AND
496: ( NOT CSM_UTIL_PKG.is_palm_resource(jtf_task_assignments_pub.p_task_assignments_user_hooks.resource_id))) THEN
497: RETURN;
498: END IF;
499:
492: CLOSE l_task_ass_pre_csr;
493:
494: -- if old_resource_id and new resource_id are not mobile users then return
495: IF (( NOT CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id)) AND
496: ( NOT CSM_UTIL_PKG.is_palm_resource(jtf_task_assignments_pub.p_task_assignments_user_hooks.resource_id))) THEN
497: RETURN;
498: END IF;
499:
500: -- And check if resource id has changed
500: -- And check if resource id has changed
501: IF NVL(g_task_ass_pre_upd_rec.resource_id, -1) <> NVL(jtf_task_assignments_pub.p_task_assignments_user_hooks.resource_id, -1)
502: THEN
503: -- do the purge for the old resource in the pre-hook if its a mobile resource
504: IF CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id) THEN
505: csm_task_assignment_event_pkg.TASK_ASSIGNMENT_PURGE_INIT(p_task_assignment_id=>l_task_assignment_id,
506: p_error_msg=>l_error_msg,
507: x_return_status=>l_return_status);
508: END IF;
514: l_sqlerrno := to_char(SQLCODE);
515: l_sqlerrmsg := substr(SQLERRM, 1,2000);
516: l_error_msg := l_error_msg || '-Exception for Task_Assignment_Pre_Upd :' || TO_CHAR(l_task_assignment_id)
517: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
518: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.Task_Assignment_Pre_Upd',FND_LOG.LEVEL_EXCEPTION);
519: END Task_Assignment_Pre_Upd;
520:
521: PROCEDURE Task_Assignment_Post_Upd(
522: x_return_status OUT NOCOPY VARCHAR2
612:
613: BEGIN
614: x_return_status := FND_API.G_RET_STS_SUCCESS;
615:
616: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
617: RETURN;
618: END IF;
619:
620: l_task_assignment_id := jtf_task_assignments_pub.p_task_assignments_user_hooks.task_assignment_id;
618: END IF;
619:
620: l_task_assignment_id := jtf_task_assignments_pub.p_task_assignments_user_hooks.task_assignment_id;
621:
622: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.Task_Assignment_Post_Upd for task_assg_id:' || l_task_assignment_id ,
623: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
624:
625: -- initialise the flags
626: l_is_resource_updated := 'N';
656: OPEN c_resource_id(l_owner_id);
657: FETCH c_resource_id INTO l_owner_resource_id;
658: CLOSE c_resource_id;
659: --old assignee
660: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,g_task_ass_pre_upd_rec.resource_id) THEN
661: --assignee bug
662: l_assignee_user_id:=NULL;
663: OPEN c_user_id(g_task_ass_pre_upd_rec.resource_id);
664: FETCH c_user_id INTO l_assignee_user_id;
668: END IF;
669: END IF;
670:
671: --new assignee
672: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,l_task_ass_post_upd_rec.resource_id) THEN
673: --assignee bug
674: l_assignee_user_id:=NULL;
675: OPEN c_user_id(l_task_ass_post_upd_rec.resource_id);
676: FETCH c_user_id INTO l_assignee_user_id;
685: OPEN c_access(l_task_assignment_id,l_owner_id);
686: FETCH c_access INTO l_access_id;
687: CLOSE c_access;
688:
689: l_markdirty:=CSM_UTIL_PKG.MakeDirtyForUser('CSM_TASK_ASSIGNMENTS',l_access_id,l_owner_id,'U',sysdate);
690:
691: END IF;
692:
693: /******** FOR SR GROUP OWNER - END of PROCESSING******/
695:
696:
697:
698: -- if old_resource_id and new resource_id are not mobile users then return
699: IF (( NOT CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id)) AND
700: ( NOT CSM_UTIL_PKG.is_palm_resource(l_task_ass_post_upd_rec.resource_id))) THEN
701: CSM_UTIL_PKG.LOG('No mobile resource for task_assg_id:' || l_task_assignment_id ,
702: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
703: RETURN;
696:
697:
698: -- if old_resource_id and new resource_id are not mobile users then return
699: IF (( NOT CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id)) AND
700: ( NOT CSM_UTIL_PKG.is_palm_resource(l_task_ass_post_upd_rec.resource_id))) THEN
701: CSM_UTIL_PKG.LOG('No mobile resource for task_assg_id:' || l_task_assignment_id ,
702: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
703: RETURN;
704: END IF;
697:
698: -- if old_resource_id and new resource_id are not mobile users then return
699: IF (( NOT CSM_UTIL_PKG.is_palm_resource(g_task_ass_pre_upd_rec.resource_id)) AND
700: ( NOT CSM_UTIL_PKG.is_palm_resource(l_task_ass_post_upd_rec.resource_id))) THEN
701: CSM_UTIL_PKG.LOG('No mobile resource for task_assg_id:' || l_task_assignment_id ,
702: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
703: RETURN;
704: END IF;
705:
705:
706: -- And check if resource id has changed
707: IF g_task_ass_pre_upd_rec.resource_id <> l_task_ass_post_upd_rec.resource_id
708: THEN
709: CSM_UTIL_PKG.LOG('Resource updated for task_assg_id:' || l_task_assignment_id ,
710: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
711:
712: l_is_resource_updated := 'Y';
713: OPEN l_check_acc_exists(l_task_assignment_id);
727:
728: -- And check if task_assignment_status has changed
729: IF g_task_ass_pre_upd_rec.assignment_status_id <> l_task_ass_post_upd_rec.assignment_status_id
730: THEN
731: CSM_UTIL_PKG.LOG('Status updated for task_assg_id:' || l_task_assignment_id ,
732: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
733:
734: l_is_assg_status_updated := 'Y';
735:
739: -- if l_is_resource_updated := 'Y', UPDATE process which will call INSERT process
740: IF ( ( NOT IS_TASK_STATUS_DOWNLOADABLE(g_task_ass_pre_upd_rec.task_id, g_task_ass_pre_upd_rec.assignment_status_id))
741: AND IS_TASK_STATUS_DOWNLOADABLE(l_task_ass_post_upd_rec.task_id, l_task_ass_post_upd_rec.assignment_status_id)
742: AND l_is_resource_updated = 'N') THEN
743: CSM_UTIL_PKG.LOG('Status updated to downloadable for task_assg_id:' || l_task_assignment_id ,
744: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
745:
746: -- Task_Assignment_Post_Ins( x_return_status );
747: csm_task_assignment_event_pkg.task_assignment_initializer(p_task_assignment_id=>l_task_assignment_id,
755: -- if l_is_resource_updated := 'Y', UPDATE process which will call PURGE process
756: IF ( IS_TASK_STATUS_DOWNLOADABLE(g_task_ass_pre_upd_rec.task_id, g_task_ass_pre_upd_rec.assignment_status_id )
757: AND (NOT IS_TASK_STATUS_DOWNLOADABLE(l_task_ass_post_upd_rec.task_id, l_task_ass_post_upd_rec.assignment_status_id))
758: AND l_is_resource_updated = 'N') THEN
759: CSM_UTIL_PKG.LOG('Status updated to non-downloadable for task_assg_id:' || l_task_assignment_id ,
760: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
761:
762: Task_Assignment_Post_Del( x_return_status );
763: RETURN;
775: CLOSE l_check_acc_exists;
776: RETURN;
777: END IF;
778: CLOSE l_check_acc_exists;
779: l_markdirty := csm_util_pkg.MakeDirtyForResource(l_publicationitemname,
780: l_access_id,
781: l_task_ass_post_upd_rec.resource_id,
782: l_dml,
783: sysdate);
783: sysdate);
784: ELSIF l_is_resource_updated = 'Y' THEN
785: -- check if the new resource is a mobile resource; if it is then do a insert
786: -- the old resource is dropped in the pre-upd hook
787: IF CSM_UTIL_PKG.is_palm_resource(l_task_ass_post_upd_rec.resource_id) THEN
788: -- csm_wf_pkg.Task_Assignment_Post_Ins(l_return_status);
789: csm_task_assignment_event_pkg.task_assignment_initializer(p_task_assignment_id=>l_task_assignment_id,
790: p_error_msg=>l_error_msg,
791: x_return_status=>l_return_status);
791: x_return_status=>l_return_status);
792: END IF;
793: END IF;
794:
795: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.Task_Assignment_Post_Upd for task_assg_id:' || l_task_assignment_id ,
796: 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
797:
798: EXCEPTION
799: WHEN OTHERS THEN
801: l_sqlerrno := to_char(SQLCODE);
802: l_sqlerrmsg := substr(SQLERRM, 1,2000);
803: l_error_msg := l_error_msg || '-Exception for Task_Assignment_Post_Upd :' || TO_CHAR(l_task_assignment_id)
804: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
805: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.Task_Assignment_Post_Upd',FND_LOG.LEVEL_EXCEPTION);
806: END Task_Assignment_Post_Upd;
807:
808: /*--------------------------------------------------------
809: Description:
827:
828: BEGIN
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: l_task_assignment_id := jtf_task_assignments_pub.p_task_assignments_user_hooks.task_assignment_id;
843: l_sqlerrno := to_char(SQLCODE);
844: l_sqlerrmsg := substr(SQLERRM, 1,2000);
845: l_error_msg := l_error_msg || '-Exception for Task_Assignment_Post_Del :' || TO_CHAR(l_task_assignment_id)
846: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
847: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.Task_Assignment_Post_Del',FND_LOG.LEVEL_EXCEPTION);
848: END Task_Assignment_Post_Del;
849:
850: /*-----------------------------------------------------------------
851: Description:
886:
887: BEGIN
888: x_return_status := FND_API.G_RET_STS_SUCCESS;
889:
890: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
891: RETURN;
892: END IF;
893:
894: l_jtf_task_id := jtf_tasks_pub.p_task_user_hooks.task_id;
916: l_sqlerrno := to_char(SQLCODE);
917: l_sqlerrmsg := substr(SQLERRM, 1,2000);
918: l_error_msg := 'Exception in Task_Pre_Upd for task_id:' || TO_CHAR(l_jtf_task_id)
919: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
920: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.Task_Pre_Upd',FND_LOG.LEVEL_EXCEPTION);
921: END Task_Pre_Upd;
922:
923: Procedure Task_Post_Upd (
924: x_return_status OUT NOCOPY VARCHAR2
999: l_owner_resource_id NUMBER;
1000: BEGIN
1001: x_return_status := FND_API.G_RET_STS_SUCCESS;
1002:
1003: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1004: RETURN;
1005: END IF;
1006:
1007: l_jtf_task_id := jtf_tasks_pub.p_task_user_hooks.task_id;
1005: END IF;
1006:
1007: l_jtf_task_id := jtf_tasks_pub.p_task_user_hooks.task_id;
1008:
1009: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.Task_Post_Upd for task_id:' || l_jtf_task_id ,
1010: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1011:
1012: /*12.1: TASK_TYPE CHANGE should be captured*/
1013: l_task_downloadable_to_owner := CSM_SR_EVENT_PKG.is_sr_downloaded_to_owner(l_jtf_task_id);
1027: -- to download other grp's resource if required
1028: OPEN c_resource_id(l_owner_id);
1029: FETCH c_resource_id INTO l_owner_resource_id;
1030: CLOSE c_resource_id;
1031: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,assign_rec.resource_id) THEN
1032: --assignee bug
1033: OPEN c_user_id(assign_rec.resource_id);
1034: FETCH c_user_id INTO l_assignee_user_id;
1035: CLOSE c_user_id;
1055: /*Other grp's member Resource to be deleted from acc if assigned to him*/
1056: OPEN c_resource_id(l_owner_id);
1057: FETCH c_resource_id INTO l_owner_resource_id;
1058: CLOSE c_resource_id;
1059: IF NOT CSM_UTIL_PKG.from_same_group(l_owner_resource_id,assign_rec.resource_id) THEN
1060: --assignee bug
1061: OPEN c_user_id(assign_rec.resource_id);
1062: FETCH c_user_id INTO l_assignee_user_id;
1063: CLOSE c_user_id;
1100: old new both not downloadable, do nothing
1101: old new both downloadable, (if acc record exists) do UPDATE
1102: -- old NOT, new downloadable, TASK_ASSIGNMENT_INS
1103: */
1104: -- CSM_UTIL_PKG.pvt_log('Compare old and new data');
1105: -- old NOT downloadable, new downloadable, TASK_ASSIGNMENT_INS
1106: IF ( ( NOT IS_TASK_DOWNLOADABLE(g_task_pre_upd_rec.task_id,
1107: g_task_pre_upd_rec.task_status_id,
1108: g_task_pre_upd_rec.task_type_id,
1116: l_task_post_upd_rec.scheduled_start_date,
1117: l_task_post_upd_rec.scheduled_end_date)
1118: )
1119: THEN
1120: CSM_UTIL_PKG.LOG('old NOT downloadable, new downloadable for task_id:' || l_jtf_task_id ,
1121: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1122:
1123: FOR i IN l_task_assignment_list.FIRST..l_task_assignment_list.LAST LOOP
1124: IF (CSM_UTIL_PKG.is_palm_resource(l_resource_list(i))) THEN
1120: CSM_UTIL_PKG.LOG('old NOT downloadable, new downloadable for task_id:' || l_jtf_task_id ,
1121: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1122:
1123: FOR i IN l_task_assignment_list.FIRST..l_task_assignment_list.LAST LOOP
1124: IF (CSM_UTIL_PKG.is_palm_resource(l_resource_list(i))) THEN
1125: csm_task_assignment_event_pkg.task_assignment_initializer(p_task_assignment_id=>l_task_assignment_list(i),
1126: p_error_msg=>l_error_msg,
1127: x_return_status=>l_return_status);
1128:
1142: g_task_pre_upd_rec.scheduled_start_date,
1143: g_task_pre_upd_rec.scheduled_end_date)
1144: )
1145: THEN
1146: CSM_UTIL_PKG.LOG('old downloadable, new NOT downloadable for task_id:' || l_jtf_task_id ,
1147: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1148:
1149: FOR i IN l_task_assignment_list.FIRST..l_task_assignment_list.LAST LOOP
1150: IF (CSM_UTIL_PKG.is_palm_resource(l_resource_list(i))) THEN
1146: CSM_UTIL_PKG.LOG('old downloadable, new NOT downloadable for task_id:' || l_jtf_task_id ,
1147: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1148:
1149: FOR i IN l_task_assignment_list.FIRST..l_task_assignment_list.LAST LOOP
1150: IF (CSM_UTIL_PKG.is_palm_resource(l_resource_list(i))) THEN
1151: csm_task_assignment_event_pkg.TASK_ASSIGNMENT_PURGE_INIT
1152: (p_task_assignment_id=>l_task_assignment_list(i),
1153: p_error_msg=>l_error_msg,
1154: x_return_status=>l_return_status);
1158: END IF;
1159: END IF ; -- count > 0
1160:
1161: --do the updates for the task
1162: CSM_UTIL_PKG.LOG('Do updates for task_id:' || l_jtf_task_id ,
1163: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1164:
1165: csm_task_event_pkg.TASK_MAKE_DIRTY_U_FOREACHUSER(l_jtf_task_id,l_error_msg, l_return_status);
1166: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1163: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1164:
1165: csm_task_event_pkg.TASK_MAKE_DIRTY_U_FOREACHUSER(l_jtf_task_id,l_error_msg, l_return_status);
1166: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1167: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.Task_Pre_Upd', FND_LOG.LEVEL_ERROR);
1168: END IF;
1169:
1170: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.Task_Post_Upd for task_id:' || l_jtf_task_id ,
1171: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1166: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1167: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.Task_Pre_Upd', FND_LOG.LEVEL_ERROR);
1168: END IF;
1169:
1170: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.Task_Post_Upd for task_id:' || l_jtf_task_id ,
1171: 'CSM_WF_PKG.Task_Post_Upd',FND_LOG.LEVEL_PROCEDURE);
1172:
1173: EXCEPTION
1174: WHEN OTHERS THEN
1176: l_sqlerrno := to_char(SQLCODE);
1177: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1178: l_error_msg := l_error_msg || '-' || 'Exception in Task_Post_Upd for task_id:' || l_jtf_task_id
1179: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1180: csm_util_pkg.LOG(l_error_msg,'CSM_WF_PKG.Task_Post_Upd', FND_LOG.LEVEL_EXCEPTION);
1181: END Task_Post_Upd;
1182:
1183: /********************************************************
1184: Starts the USER_RESP_INS workflow. Should be called when new
1195: l_error_msg VARCHAR2(4000);
1196: l_return_status VARCHAR2(2000);
1197:
1198: BEGIN
1199: CSM_UTIL_PKG.LOG('Entering User_Resp_Post_Ins for user_id:' || p_user_id,
1200: 'csm_wf_pkg.User_Resp_Post_Ins',FND_LOG.LEVEL_PROCEDURE);
1201:
1202: csm_user_event_pkg.user_resp_ins_initializer(p_user_id=>p_user_id,
1203: p_responsibility_id=>p_responsibility_id);
1201:
1202: csm_user_event_pkg.user_resp_ins_initializer(p_user_id=>p_user_id,
1203: p_responsibility_id=>p_responsibility_id);
1204:
1205: CSM_UTIL_PKG.LOG('Leaving User_Resp_Post_Ins for user_id:' || p_user_id,
1206: 'csm_wf_pkg.User_Resp_Post_Ins',FND_LOG.LEVEL_PROCEDURE);
1207: EXCEPTION
1208: WHEN OTHERS THEN
1209: l_sqlerrno := to_char(SQLCODE);
1209: l_sqlerrno := to_char(SQLCODE);
1210: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1211: l_error_msg := ' Exception in User_Resp_Post_Ins for user_id:'
1212: || to_char(p_user_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1213: CSM_UTIL_PKG.LOG(l_error_msg, 'csm_wf_pkg.User_Resp_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
1214: RAISE;
1215: END User_Resp_Post_Ins;
1216:
1217: --12.1XB6
1236:
1237: BEGIN
1238: x_return_status := FND_API.G_RET_STS_SUCCESS;
1239:
1240: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1241: RETURN;
1242: END IF;
1243:
1244: l_incident_id := cs_servicerequest_pvt.user_hooks_rec.request_id;
1245:
1246: OPEN l_sr_csr(l_incident_id);
1247: FETCH l_sr_csr INTO l_owner_group_id,l_user_id;
1248: IF l_sr_csr%FOUND THEN
1249: IF ( NOT CSM_UTIL_PKG.is_mfs_group(l_owner_group_id) AND NOT CSM_UTIL_PKG.is_palm_user(l_user_id)) THEN
1250: CLOSE l_sr_csr;
1251: RETURN;
1252: END IF;
1253: END IF;
1261: l_sqlerrno := to_char(SQLCODE);
1262: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1263: l_error_msg := l_error_msg || '- Exception in SR_Post_Ins for incident_id:'
1264: || TO_CHAR(l_incident_id) || l_sqlerrno || ':' || l_sqlerrmsg;
1265: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.SR_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
1266: END SR_Post_Ins;
1267:
1268: /*
1269: * The user hook interface for SR pre_update
1330:
1331: BEGIN
1332: x_return_status := FND_API.G_RET_STS_SUCCESS;
1333:
1334: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1335: RETURN;
1336: END IF;
1337:
1338: l_incident_id := cs_servicerequest_pvt.user_hooks_rec.request_id;
1392: l_sqlerrno := to_char(SQLCODE);
1393: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1394: l_error_msg := 'Exception in sr_pre_upd for incident_id:' || TO_CHAR(l_incident_id)
1395: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1396: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.sr_pre_upd',FND_LOG.LEVEL_EXCEPTION);
1397: END sr_pre_upd;
1398:
1399: /********************************************************
1400: Starts the SR_UPD workflow. Should be called when new
1517:
1518: BEGIN
1519: x_return_status := FND_API.G_RET_STS_SUCCESS;
1520:
1521: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1522: RETURN;
1523: END IF;
1524:
1525: l_incident_id := cs_servicerequest_pvt.user_hooks_rec.request_id;
1535:
1536: OPEN l_sr_post_upd_csr(l_incident_id);
1537: FETCH l_sr_post_upd_csr INTO l_sr_post_upd_rec;
1538:
1539: l_old_owner :=CSM_UTIL_PKG.get_group_owner(g_sr_pre_upd_rec.owner_group_id);
1540: l_current_owner:=CSM_UTIL_PKG.get_group_owner(l_sr_post_upd_rec.owner_group_id);
1541:
1542: --12.1XB6 --to avoid update if created_by and group owner are from same group
1543: -- and owner_group_id in SR is updated from NULL
1536: OPEN l_sr_post_upd_csr(l_incident_id);
1537: FETCH l_sr_post_upd_csr INTO l_sr_post_upd_rec;
1538:
1539: l_old_owner :=CSM_UTIL_PKG.get_group_owner(g_sr_pre_upd_rec.owner_group_id);
1540: l_current_owner:=CSM_UTIL_PKG.get_group_owner(l_sr_post_upd_rec.owner_group_id);
1541:
1542: --12.1XB6 --to avoid update if created_by and group owner are from same group
1543: -- and owner_group_id in SR is updated from NULL
1544: IF l_old_owner=-1 THEN
1541:
1542: --12.1XB6 --to avoid update if created_by and group owner are from same group
1543: -- and owner_group_id in SR is updated from NULL
1544: IF l_old_owner=-1 THEN
1545: l_old_owner :=csm_util_pkg.get_owner(l_sr_post_upd_rec.created_by);
1546: END IF;
1547: IF l_current_owner = -1 THEN
1548: l_current_owner :=csm_util_pkg.get_owner(l_sr_post_upd_rec.created_by);
1549: END IF;
1544: IF l_old_owner=-1 THEN
1545: l_old_owner :=csm_util_pkg.get_owner(l_sr_post_upd_rec.created_by);
1546: END IF;
1547: IF l_current_owner = -1 THEN
1548: l_current_owner :=csm_util_pkg.get_owner(l_sr_post_upd_rec.created_by);
1549: END IF;
1550:
1551: IF l_old_owner <> l_current_owner THEN
1552: CSM_SR_EVENT_PKG.sr_del_init(l_incident_id,l_old_owner);
1710: l_sqlerrno := to_char(SQLCODE);
1711: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1712: l_error_msg := 'Exception in sr_post_upd for incident_id:' || TO_CHAR(l_incident_id)
1713: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1714: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.sr_post_upd',FND_LOG.LEVEL_EXCEPTION);
1715: END sr_post_upd;
1716:
1717: /*--------------------------------------------------
1718: Description:
1736:
1737: BEGIN
1738: x_return_status := FND_API.G_RET_STS_SUCCESS;
1739:
1740: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1741: RETURN;
1742: END IF;
1743:
1744: csm_resource_extns_event_pkg.rs_group_members_ins_init(p_resource_id=>p_resource_id,
1747: WHEN OTHERS THEN
1748: x_return_status := FND_API.G_RET_STS_ERROR;
1749: l_sqlerrno := to_char(SQLCODE);
1750: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1751: CSM_UTIL_PKG.LOG('Exception in JTF_RS_Group_Member_Post_Ins for resource_id: ' || TO_CHAR(p_resource_id)
1752: || ' and group_id: ' || TO_CHAR(p_group_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
1753: 'CSM_WF_PKG.JTF_RS_Group_Member_Post_Ins', FND_LOG.LEVEL_EXCEPTION);
1754: END JTF_RS_Group_Member_Post_Ins;
1755:
1787:
1788: BEGIN
1789: x_return_status := FND_API.G_RET_STS_SUCCESS;
1790:
1791: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1792: RETURN;
1793: END IF;
1794:
1795: csm_resource_extns_event_pkg.rs_group_members_del_init(p_resource_id=>p_resource_id,
1798: WHEN OTHERS THEN
1799: x_return_status := FND_API.G_RET_STS_ERROR;
1800: l_sqlerrno := to_char(SQLCODE);
1801: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1802: CSM_UTIL_PKG.LOG('Exception in JTF_RS_Group_Member_Pre_Del for resource_id: ' || TO_CHAR(p_resource_id)
1803: || ' and group_id: ' || TO_CHAR(p_group_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
1804: 'CSM_WF_PKG.JTF_RS_Group_Member_Pre_Del', FND_LOG.LEVEL_EXCEPTION);
1805: END JTF_RS_Group_Member_Pre_Del;
1806:
1822:
1823: BEGIN
1824: x_return_status := FND_API.G_RET_STS_SUCCESS;
1825:
1826: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1827: RETURN;
1828: END IF;
1829:
1830: l_debrief_header_id := CSF_DEBRIEF_HEADERS_PKG.user_hooks_rec.debrief_header_id;
1838: l_sqlerrno := to_char(SQLCODE);
1839: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1840: l_error_msg := 'Exception in CSF_Debrief_Header_Post_Ins for debrief_header_id:' || TO_CHAR(l_debrief_header_id)
1841: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1842: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Header_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
1843: END CSF_Debrief_Header_Post_Ins;
1844:
1845: PROCEDURE CSF_Debrief_Header_Pre_Upd(x_return_status OUT NOCOPY VARCHAR2)
1846: IS
1865:
1866: BEGIN
1867: x_return_status := FND_API.G_RET_STS_SUCCESS;
1868:
1869: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1870: RETURN;
1871: END IF;
1872:
1873: CSM_UTIL_PKG.LOG('CSM_WF_PKG.CSF_Debrief_Header_Post_Upd: IS_FIELD_SERVICE_PALM_ENABLED' );
1869: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1870: RETURN;
1871: END IF;
1872:
1873: CSM_UTIL_PKG.LOG('CSM_WF_PKG.CSF_Debrief_Header_Post_Upd: IS_FIELD_SERVICE_PALM_ENABLED' );
1874:
1875: l_debrief_header_id := CSF_DEBRIEF_Headers_PKG.user_hooks_rec.debrief_header_id;
1876:
1877: FOR r_debrief_hdr_rec IN l_debrief_hdr_csr(l_debrief_header_id) LOOP
1885: l_sqlerrno := to_char(SQLCODE);
1886: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1887: l_error_msg := 'Exception in CSF_Debrief_Header_Post_Upd for debrief_header_id:' || TO_CHAR(l_debrief_header_id)
1888: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1889: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Header_Post_Upd',FND_LOG.LEVEL_EXCEPTION);
1890: END CSF_Debrief_Header_Post_Upd;
1891:
1892: PROCEDURE CSF_Debrief_Header_Post_Del(x_return_status OUT NOCOPY VARCHAR2)
1893: IS
1923:
1924: BEGIN
1925: x_return_status := FND_API.G_RET_STS_SUCCESS;
1926:
1927: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1928: RETURN;
1929: END IF;
1930:
1931: l_debrief_header_id := CSF_DEBRIEF_HEADERS_PKG.user_hooks_rec.debrief_header_id;
1947: l_sqlerrno := to_char(SQLCODE);
1948: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1949: l_error_msg := 'Exception in CSF_Debrief_Header_Post_Del for debrief_header_id:' || TO_CHAR(l_debrief_header_id)
1950: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1951: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Header_Post_Del',FND_LOG.LEVEL_EXCEPTION);
1952: END CSF_Debrief_Header_Post_Del;
1953:
1954: /********************************************************
1955: Starts the DEBRIEF_LINE_INS workflow. Should be called when new
1968:
1969: BEGIN
1970: x_return_status := FND_API.G_RET_STS_SUCCESS;
1971:
1972: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
1973: RETURN;
1974: END IF;
1975:
1976: l_debrief_line_id := CSF_DEBRIEF_LINES_PKG.user_hooks_rec.debrief_line_id;
1985: l_sqlerrno := to_char(SQLCODE);
1986: l_sqlerrmsg := substr(SQLERRM, 1,2000);
1987: l_error_msg := 'Exception in CSF_Debrief_Line_Post_Ins for debrief_Line_id:' || TO_CHAR(l_debrief_line_id)
1988: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
1989: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Line_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
1990: END CSF_Debrief_Line_Post_Ins;
1991:
1992: /********************************************************
1993: Captures the old inventory_item_id before the upd
2012:
2013: BEGIN
2014: x_return_status := FND_API.G_RET_STS_SUCCESS;
2015:
2016: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2017: RETURN;
2018: END IF;
2019:
2020: l_debrief_line_id := CSF_DEBRIEF_LINES_PKG.user_hooks_rec.debrief_line_id;
2033: l_sqlerrno := to_char(SQLCODE);
2034: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2035: l_error_msg := 'Exception in CSF_Debrief_Line_Pre_Upd for debrief_Line_id:' || TO_CHAR(l_debrief_line_id)
2036: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
2037: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Line_Pre_Upd',FND_LOG.LEVEL_EXCEPTION);
2038: END CSF_Debrief_Line_Pre_Upd;
2039:
2040:
2041: Procedure CSF_Debrief_Line_Post_Upd(x_return_status OUT NOCOPY VARCHAR2)
2060:
2061: BEGIN
2062: x_return_status := FND_API.G_RET_STS_SUCCESS;
2063:
2064: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2065: RETURN;
2066: END IF;
2067:
2068: l_debrief_line_id := CSF_DEBRIEF_LINES_PKG.user_hooks_rec.debrief_line_id;
2101: l_sqlerrno := to_char(SQLCODE);
2102: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2103: l_error_msg := 'Exception in CSF_Debrief_Line_Post_Upd for debrief_Line_id:' || TO_CHAR(l_debrief_line_id)
2104: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
2105: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Line_Post_Upd',FND_LOG.LEVEL_EXCEPTION);
2106: END CSF_Debrief_Line_Post_Upd;
2107:
2108:
2109: /*
2129:
2130: BEGIN
2131: x_return_status := FND_API.G_RET_STS_SUCCESS;
2132:
2133: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2134: RETURN;
2135: END IF;
2136:
2137: l_debrief_line_id := CSF_DEBRIEF_LINES_PKG.user_hooks_rec.debrief_line_id;
2153: l_sqlerrno := to_char(SQLCODE);
2154: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2155: l_error_msg := 'Exception in CSF_Debrief_Line_Post_Del for debrief_Line_id:' || TO_CHAR(l_debrief_line_id)
2156: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
2157: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSF_Debrief_Line_Post_Del',FND_LOG.LEVEL_EXCEPTION);
2158: END CSF_Debrief_Line_Post_Del;
2159:
2160: PROCEDURE CSP_Inv_Loc_Assignmnt_Post_Ins(x_return_status OUT NOCOPY VARCHAR2)
2161: IS
2165:
2166: BEGIN
2167: x_return_status := FND_API.G_RET_STS_SUCCESS;
2168:
2169: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2170: RETURN;
2171: END IF;
2172:
2173: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2171: END IF;
2172:
2173: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2174:
2175: 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),
2176: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Post_Ins', FND_LOG.LEVEL_PROCEDURE );
2177:
2178: CSM_INV_LOC_ASS_EVENT_PKG.INV_LOC_ASSIGNMENT_INS_INIT(p_csp_inv_loc_assignment_id=>l_csp_inv_loc_assignment_id);
2179:
2176: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Post_Ins', FND_LOG.LEVEL_PROCEDURE );
2177:
2178: CSM_INV_LOC_ASS_EVENT_PKG.INV_LOC_ASSIGNMENT_INS_INIT(p_csp_inv_loc_assignment_id=>l_csp_inv_loc_assignment_id);
2179:
2180: 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),
2181: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Post_Ins', FND_LOG.LEVEL_PROCEDURE );
2182:
2183: EXCEPTION
2184: WHEN OTHERS THEN
2184: WHEN OTHERS THEN
2185: x_return_status := FND_API.G_RET_STS_ERROR;
2186: l_sqlerrno := to_char(SQLCODE);
2187: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2188: 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)
2189: || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
2190: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Post_Ins', FND_LOG.LEVEL_EXCEPTION);
2191: END CSP_Inv_Loc_Assignmnt_Post_Ins;
2192:
2215:
2216: BEGIN
2217: x_return_status := FND_API.G_RET_STS_SUCCESS;
2218:
2219: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2220: RETURN;
2221: END IF;
2222:
2223: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2221: END IF;
2222:
2223: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2224:
2225: 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),
2226: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Pre_Upd', FND_LOG.LEVEL_PROCEDURE );
2227:
2228: g_old_subinventory_code := NULL;
2229: g_old_organization_id := NULL;
2246: g_old_default_code := l_old_default_code;
2247: END IF;
2248: CLOSE l_cila_pre_upd_csr;
2249:
2250: 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),
2251: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Pre_Upd', FND_LOG.LEVEL_PROCEDURE );
2252: EXCEPTION
2253: WHEN OTHERS THEN
2254: x_return_status := FND_API.G_RET_STS_ERROR;
2253: WHEN OTHERS THEN
2254: x_return_status := FND_API.G_RET_STS_ERROR;
2255: l_sqlerrno := to_char(SQLCODE);
2256: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2257: 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)
2258: || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
2259: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Pre_Upd', FND_LOG.LEVEL_EXCEPTION);
2260: END CSP_Inv_Loc_Assignmnt_Pre_Upd;
2261:
2288:
2289: BEGIN
2290: x_return_status := FND_API.G_RET_STS_SUCCESS;
2291:
2292: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2293: RETURN;
2294: END IF;
2295:
2296: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2326: WHEN OTHERS THEN
2327: x_return_status := FND_API.G_RET_STS_ERROR;
2328: l_sqlerrno := to_char(SQLCODE);
2329: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2330: 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)
2331: || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
2332: 'CSM_WF_PKG.CSP_Inv_Loc_Assignmnt_Post_Upd', FND_LOG.LEVEL_EXCEPTION);
2333: END CSP_Inv_Loc_Assignmnt_Post_Upd;
2334:
2340:
2341: BEGIN
2342: x_return_status := FND_API.G_RET_STS_SUCCESS;
2343:
2344: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2345: RETURN;
2346: END IF;
2347:
2348: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2346: END IF;
2347:
2348: l_csp_inv_loc_assignment_id := CSP_INV_LOC_ASSIGNMENTS_PKG.user_hooks_rec.CSP_INV_LOC_ASSIGNMENT_ID;
2349:
2350: 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),
2351: 'CSM_WF_PKG.CSP_Inv_Loc_Assg_Post_Del', FND_LOG.LEVEL_PROCEDURE );
2352:
2353: CSM_INV_LOC_ASS_EVENT_PKG.INV_LOC_ASSIGNMENT_DEL_INIT(p_csp_inv_loc_assignment_id=>l_csp_inv_loc_assignment_id);
2354:
2351: 'CSM_WF_PKG.CSP_Inv_Loc_Assg_Post_Del', FND_LOG.LEVEL_PROCEDURE );
2352:
2353: CSM_INV_LOC_ASS_EVENT_PKG.INV_LOC_ASSIGNMENT_DEL_INIT(p_csp_inv_loc_assignment_id=>l_csp_inv_loc_assignment_id);
2354:
2355: 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),
2356: 'CSM_WF_PKG.CSP_Inv_Loc_Assg_Post_Del', FND_LOG.LEVEL_PROCEDURE );
2357:
2358: EXCEPTION
2359: WHEN OTHERS THEN
2359: WHEN OTHERS THEN
2360: x_return_status := FND_API.G_RET_STS_ERROR;
2361: l_sqlerrno := to_char(SQLCODE);
2362: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2363: 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)
2364: || ':' || l_sqlerrno || ':' || l_sqlerrmsg,
2365: 'CSM_WF_PKG.CSP_Inv_Loc_Assg_Post_Del', FND_LOG.LEVEL_EXCEPTION);
2366: END CSP_Inv_Loc_Assg_Post_Del;
2367:
2407: x_return_status := FND_API.G_RET_STS_SUCCESS;
2408:
2409: l_location_id := csp_ship_to_address_pvt.g_inv_loc_id;
2410:
2411: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2412: RETURN;
2413: END IF;
2414:
2415: FOR r_ship_locations_ins_rec IN l_ship_locations_ins_csr(l_location_id) LOOP
2412: RETURN;
2413: END IF;
2414:
2415: FOR r_ship_locations_ins_rec IN l_ship_locations_ins_csr(l_location_id) LOOP
2416: IF csm_util_pkg.is_palm_resource(r_ship_locations_ins_rec.resource_id) THEN
2417: csm_party_site_event_pkg.party_sites_acc_i
2418: (p_party_site_id=>r_ship_locations_ins_rec.party_site_id,
2419: p_user_id=>r_ship_locations_ins_rec.user_id,
2420: p_flowtype=>NULL,
2425: (p_location_id=>r_ship_locations_ins_rec.location_id,
2426: p_site_use_id=>r_ship_locations_ins_rec.site_use_id,
2427: p_user_id=>r_ship_locations_ins_rec.user_id);
2428: ELSE
2429: CSM_UTIL_PKG.LOG('Resource:' || r_ship_locations_ins_rec.resource_id || ' not a mobile resource', 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS',
2430: FND_LOG.LEVEL_ERROR );
2431: END IF;
2432:
2433: END LOOP;
2430: FND_LOG.LEVEL_ERROR );
2431: END IF;
2432:
2433: END LOOP;
2434: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS', 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS',
2435: FND_LOG.LEVEL_PROCEDURE );
2436:
2437: EXCEPTION
2438: WHEN OTHERS THEN
2438: WHEN OTHERS THEN
2439: x_return_status := FND_API.G_RET_STS_ERROR;
2440: l_sqlerrno := to_char(SQLCODE);
2441: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2442: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS:' || l_sqlerrno || ':' || l_sqlerrmsg,
2443: 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS', FND_LOG.LEVEL_EXCEPTION);
2444: END CSP_SHIP_TO_ADDRESS_POST_INS;
2445:
2446: PROCEDURE CSP_SHIP_TO_ADDRESS_POST_UPD(x_return_status OUT NOCOPY varchar2)
2476:
2477: BEGIN
2478: x_return_status := FND_API.G_RET_STS_SUCCESS;
2479:
2480: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2481: RETURN;
2482: END IF;
2483:
2484: l_location_id := csp_ship_to_address_pvt.g_inv_loc_id;
2482: END IF;
2483:
2484: l_location_id := csp_ship_to_address_pvt.g_inv_loc_id;
2485:
2486: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS', 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD',
2487: FND_LOG.LEVEL_PROCEDURE );
2488:
2489: FOR r_ship_locations_upd_rec IN l_ship_locations_upd_csr(l_location_id) LOOP
2490: IF csm_util_pkg.is_palm_resource(r_ship_locations_upd_rec.resource_id) THEN
2486: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_INS', 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD',
2487: FND_LOG.LEVEL_PROCEDURE );
2488:
2489: FOR r_ship_locations_upd_rec IN l_ship_locations_upd_csr(l_location_id) LOOP
2490: IF csm_util_pkg.is_palm_resource(r_ship_locations_upd_rec.resource_id) THEN
2491: csm_party_site_event_pkg.party_sites_acc_u
2492: (p_party_site_id=>r_ship_locations_upd_rec.party_site_id,
2493: p_user_id=>r_ship_locations_upd_rec.user_id,
2494: p_error_msg=>l_error_msg,
2499: (p_location_id=>r_ship_locations_upd_rec.location_id,
2500: p_site_use_id=>r_ship_locations_upd_rec.site_use_id,
2501: p_user_id=>r_ship_locations_upd_rec.user_id);
2502: ELSE
2503: CSM_UTIL_PKG.LOG('Resource:' || r_ship_locations_upd_rec.resource_id || ' not a mobile resource', 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD',
2504: FND_LOG.LEVEL_ERROR );
2505: END IF;
2506:
2507: END LOOP;
2505: END IF;
2506:
2507: END LOOP;
2508:
2509: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD', 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD',
2510: FND_LOG.LEVEL_PROCEDURE );
2511:
2512: EXCEPTION
2513: WHEN OTHERS THEN
2513: WHEN OTHERS THEN
2514: x_return_status := FND_API.G_RET_STS_ERROR;
2515: l_sqlerrno := to_char(SQLCODE);
2516: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2517: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD:' || l_sqlerrno || ':' || l_sqlerrmsg,
2518: 'CSM_WF_PKG.CSP_SHIP_TO_ADDRESS_POST_UPD', FND_LOG.LEVEL_EXCEPTION);
2519: END CSP_SHIP_TO_ADDRESS_POST_UPD;
2520:
2521: PROCEDURE CSP_REQ_HEADERS_POST_INS(x_return_status OUT NOCOPY varchar2)
2546:
2547: BEGIN
2548: x_return_status := FND_API.G_RET_STS_SUCCESS;
2549:
2550: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2551: RETURN;
2552: END IF;
2553:
2554: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS',
2550: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2551: RETURN;
2552: END IF;
2553:
2554: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS',
2555: FND_LOG.LEVEL_PROCEDURE );
2556:
2557: l_req_header_id := CSP_REQUIREMENT_HEADERS_PKG.user_hooks_rec.REQUIREMENT_HEADER_ID;
2558:
2556:
2557: l_req_header_id := CSP_REQUIREMENT_HEADERS_PKG.user_hooks_rec.REQUIREMENT_HEADER_ID;
2558:
2559: FOR r_req_hdr_rec IN l_req_hdr_csr(l_req_header_id) LOOP
2560: IF csm_util_pkg.is_palm_resource(r_req_hdr_rec.resource_id) THEN
2561: csm_csp_req_headers_event_pkg.csp_req_headers_mdirty_i(p_requirement_header_id=>l_req_header_id,
2562: p_user_id=>r_req_hdr_rec.user_id);
2563: ELSE
2564: CSM_UTIL_PKG.LOG('Resource:' || r_req_hdr_rec.resource_id || ' not a mobile resource',
2560: IF csm_util_pkg.is_palm_resource(r_req_hdr_rec.resource_id) THEN
2561: csm_csp_req_headers_event_pkg.csp_req_headers_mdirty_i(p_requirement_header_id=>l_req_header_id,
2562: p_user_id=>r_req_hdr_rec.user_id);
2563: ELSE
2564: CSM_UTIL_PKG.LOG('Resource:' || r_req_hdr_rec.resource_id || ' not a mobile resource',
2565: 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', FND_LOG.LEVEL_ERROR );
2566: END IF;
2567:
2568: END LOOP;
2565: 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', FND_LOG.LEVEL_ERROR );
2566: END IF;
2567:
2568: END LOOP;
2569: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS',
2570: FND_LOG.LEVEL_PROCEDURE );
2571:
2572: EXCEPTION
2573: WHEN OTHERS THEN
2573: WHEN OTHERS THEN
2574: x_return_status := FND_API.G_RET_STS_ERROR;
2575: l_sqlerrno := to_char(SQLCODE);
2576: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2577: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS:' || l_sqlerrno || ':' || l_sqlerrmsg,
2578: 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_INS', FND_LOG.LEVEL_EXCEPTION);
2579: END CSP_REQ_HEADERS_POST_INS;
2580:
2581: PROCEDURE CSP_REQ_HEADERS_POST_UPD(x_return_status OUT NOCOPY varchar2)
2593:
2594: BEGIN
2595: x_return_status := FND_API.G_RET_STS_SUCCESS;
2596:
2597: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2598: RETURN;
2599: END IF;
2600:
2601: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD',
2597: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2598: RETURN;
2599: END IF;
2600:
2601: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD',
2602: FND_LOG.LEVEL_PROCEDURE );
2603:
2604: l_req_header_id := CSP_REQUIREMENT_HEADERS_PKG.user_hooks_rec.REQUIREMENT_HEADER_ID;
2605:
2607: csm_csp_req_headers_event_pkg.csp_req_headers_mdirty_u(p_requirement_header_id=>l_req_header_id,
2608: p_user_id=>r_req_hdr_rec.user_id);
2609:
2610: END LOOP;
2611: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD',
2612: FND_LOG.LEVEL_PROCEDURE );
2613:
2614: EXCEPTION
2615: WHEN OTHERS THEN
2615: WHEN OTHERS THEN
2616: x_return_status := FND_API.G_RET_STS_ERROR;
2617: l_sqlerrno := to_char(SQLCODE);
2618: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2619: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD:' || l_sqlerrno || ':' || l_sqlerrmsg,
2620: 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_UPD', FND_LOG.LEVEL_EXCEPTION);
2621: END CSP_REQ_HEADERS_POST_UPD;
2622:
2623: PROCEDURE CSP_REQ_HEADERS_POST_DEL(x_return_status OUT NOCOPY varchar2)
2634:
2635: BEGIN
2636: x_return_status := FND_API.G_RET_STS_SUCCESS;
2637:
2638: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2639: RETURN;
2640: END IF;
2641:
2642: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL',
2638: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2639: RETURN;
2640: END IF;
2641:
2642: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL',
2643: FND_LOG.LEVEL_PROCEDURE );
2644:
2645: l_req_header_id := CSP_REQUIREMENT_HEADERS_PKG.user_hooks_rec.REQUIREMENT_HEADER_ID;
2646:
2648: csm_csp_req_headers_event_pkg.csp_req_headers_mdirty_d(p_requirement_header_id=>l_req_header_id,
2649: p_user_id=>r_req_hdr_acc_rec.user_id);
2650:
2651: END LOOP;
2652: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL', 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL',
2653: FND_LOG.LEVEL_PROCEDURE );
2654:
2655: EXCEPTION
2656: WHEN OTHERS THEN
2656: WHEN OTHERS THEN
2657: x_return_status := FND_API.G_RET_STS_ERROR;
2658: l_sqlerrno := to_char(SQLCODE);
2659: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2660: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL:' || l_sqlerrno || ':' || l_sqlerrmsg,
2661: 'CSM_WF_PKG.CSP_REQ_HEADERS_POST_DEL', FND_LOG.LEVEL_EXCEPTION);
2662: END CSP_REQ_HEADERS_POST_DEL;
2663:
2664: PROCEDURE CSP_REQ_LINES_POST_INS(x_return_status OUT NOCOPY varchar2)
2695:
2696: BEGIN
2697: x_return_status := FND_API.G_RET_STS_SUCCESS;
2698:
2699: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2700: RETURN;
2701: END IF;
2702:
2703: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS',
2699: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2700: RETURN;
2701: END IF;
2702:
2703: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS',
2704: FND_LOG.LEVEL_PROCEDURE );
2705:
2706: l_req_line_id := CSP_REQUIREMENT_LINES_PKG.user_hook_rec.REQUIREMENT_LINE_ID;
2707:
2705:
2706: l_req_line_id := CSP_REQUIREMENT_LINES_PKG.user_hook_rec.REQUIREMENT_LINE_ID;
2707:
2708: FOR r_req_line_rec IN l_req_line_csr(l_req_line_id) LOOP
2709: IF csm_util_pkg.is_palm_resource(r_req_line_rec.resource_id) THEN
2710: csm_csp_req_lines_event_pkg.csp_req_lines_mdirty_i(p_requirement_line_id=>l_req_line_id,
2711: p_user_id=>r_req_line_rec.user_id);
2712: ELSE
2713: CSM_UTIL_PKG.LOG('Resource:' || r_req_line_rec.resource_id || ' not a mobile resource',
2709: IF csm_util_pkg.is_palm_resource(r_req_line_rec.resource_id) THEN
2710: csm_csp_req_lines_event_pkg.csp_req_lines_mdirty_i(p_requirement_line_id=>l_req_line_id,
2711: p_user_id=>r_req_line_rec.user_id);
2712: ELSE
2713: CSM_UTIL_PKG.LOG('Resource:' || r_req_line_rec.resource_id || ' not a mobile resource',
2714: 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS', FND_LOG.LEVEL_ERROR );
2715: END IF;
2716:
2717: END LOOP;
2714: 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS', FND_LOG.LEVEL_ERROR );
2715: END IF;
2716:
2717: END LOOP;
2718: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINES_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS',
2719: FND_LOG.LEVEL_PROCEDURE );
2720:
2721: EXCEPTION
2722: WHEN OTHERS THEN
2722: WHEN OTHERS THEN
2723: x_return_status := FND_API.G_RET_STS_ERROR;
2724: l_sqlerrno := to_char(SQLCODE);
2725: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2726: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINES_POST_INS:' || l_sqlerrno || ':' || l_sqlerrmsg,
2727: 'CSM_WF_PKG.CSP_REQ_LINES_POST_INS', FND_LOG.LEVEL_EXCEPTION);
2728: END CSP_REQ_LINES_POST_INS;
2729:
2730: PROCEDURE CSP_REQ_LINES_POST_UPD(x_return_status OUT NOCOPY varchar2)
2741:
2742: BEGIN
2743: x_return_status := FND_API.G_RET_STS_SUCCESS;
2744:
2745: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2746: RETURN;
2747: END IF;
2748:
2749: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINES_POST_UPD',
2745: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2746: RETURN;
2747: END IF;
2748:
2749: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINES_POST_UPD',
2750: FND_LOG.LEVEL_PROCEDURE );
2751:
2752: l_req_line_id := CSP_REQUIREMENT_LINES_PKG.user_hook_rec.REQUIREMENT_LINE_ID;
2753:
2755: csm_csp_req_lines_event_pkg.csp_req_lines_mdirty_u(p_requirement_line_id=>l_req_line_id,
2756: p_user_id=>r_req_line_rec.user_id);
2757: END LOOP;
2758:
2759: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINES_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINES_POST_UPD',
2760: FND_LOG.LEVEL_PROCEDURE );
2761:
2762: EXCEPTION
2763: WHEN OTHERS THEN
2763: WHEN OTHERS THEN
2764: x_return_status := FND_API.G_RET_STS_ERROR;
2765: l_sqlerrno := to_char(SQLCODE);
2766: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2767: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINES_POST_UPD:' || l_sqlerrno || ':' || l_sqlerrmsg,
2768: 'CSM_WF_PKG.CSP_REQ_LINES_POST_UPD', FND_LOG.LEVEL_EXCEPTION);
2769: END CSP_REQ_LINES_POST_UPD;
2770:
2771: PROCEDURE CSP_REQ_LINES_POST_DEL(x_return_status OUT NOCOPY varchar2)
2782:
2783: BEGIN
2784: x_return_status := FND_API.G_RET_STS_SUCCESS;
2785:
2786: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2787: RETURN;
2788: END IF;
2789:
2790: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_DEL', 'CSM_WF_PKG.CSP_REQ_LINES_POST_DEL',
2786: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2787: RETURN;
2788: END IF;
2789:
2790: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINES_POST_DEL', 'CSM_WF_PKG.CSP_REQ_LINES_POST_DEL',
2791: FND_LOG.LEVEL_PROCEDURE );
2792:
2793: l_req_line_id := CSP_REQUIREMENT_LINES_PKG.user_hook_rec.REQUIREMENT_LINE_ID;
2794:
2797: p_user_id=>r_req_line_acc_rec.user_id);
2798:
2799: END LOOP;
2800:
2801: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINES_POST_DEL', 'CSM_WF_PKG.CSP_REQ_LINES_POST_DEL',
2802: FND_LOG.LEVEL_PROCEDURE );
2803: EXCEPTION
2804: WHEN OTHERS THEN
2805: x_return_status := FND_API.G_RET_STS_ERROR;
2804: WHEN OTHERS THEN
2805: x_return_status := FND_API.G_RET_STS_ERROR;
2806: l_sqlerrno := to_char(SQLCODE);
2807: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2808: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINES_POST_DEL:' || l_sqlerrno || ':' || l_sqlerrmsg,
2809: 'CSM_WF_PKG.CSP_REQ_LINES_POST_DEL', FND_LOG.LEVEL_EXCEPTION);
2810: END CSP_REQ_LINES_POST_DEL;
2811:
2812: PROCEDURE CSP_REQ_LINE_DETAILS_POST_INS(x_return_status OUT NOCOPY varchar2)
2830:
2831: BEGIN
2832: x_return_status := FND_API.G_RET_STS_SUCCESS;
2833:
2834: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2835: RETURN;
2836: END IF;
2837:
2838: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS',
2834: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2835: RETURN;
2836: END IF;
2837:
2838: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS',
2839: FND_LOG.LEVEL_PROCEDURE );
2840:
2841: l_req_line_detail_id := CSP_REQ_LINE_DETAILS_PKG.user_hook_rec.req_line_detail_id;
2842:
2847: FOR r_req_line_rec IN l_req_line_csr(l_req_line_id) LOOP
2848: csm_csp_req_lines_event_pkg.csp_req_lines_mdirty_u(p_requirement_line_id=>l_req_line_id,
2849: p_user_id=>r_req_line_rec.user_id);
2850: END LOOP;
2851: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS',
2852: FND_LOG.LEVEL_PROCEDURE );
2853:
2854: EXCEPTION
2855: WHEN OTHERS THEN
2855: WHEN OTHERS THEN
2856: x_return_status := FND_API.G_RET_STS_ERROR;
2857: l_sqlerrno := to_char(SQLCODE);
2858: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2859: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS:' || l_sqlerrno || ':' || l_sqlerrmsg,
2860: 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_INS', FND_LOG.LEVEL_EXCEPTION);
2861: x_return_status := FND_API.G_RET_STS_ERROR;
2862: END CSP_REQ_LINE_DETAILS_POST_INS;
2863:
2882:
2883: BEGIN
2884: x_return_status := FND_API.G_RET_STS_SUCCESS;
2885:
2886: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2887: RETURN;
2888: END IF;
2889:
2890: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD',
2886: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2887: RETURN;
2888: END IF;
2889:
2890: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD',
2891: FND_LOG.LEVEL_PROCEDURE );
2892:
2893: l_req_line_detail_id := CSP_REQ_LINE_DETAILS_PKG.user_hook_rec.req_line_detail_id;
2894:
2900: csm_csp_req_lines_event_pkg.csp_req_lines_mdirty_u(p_requirement_line_id=>l_req_line_id,
2901: p_user_id=>r_req_line_rec.user_id);
2902: END LOOP;
2903:
2904: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD',
2905: FND_LOG.LEVEL_PROCEDURE );
2906:
2907: EXCEPTION
2908: WHEN OTHERS THEN
2908: WHEN OTHERS THEN
2909: x_return_status := FND_API.G_RET_STS_ERROR;
2910: l_sqlerrno := to_char(SQLCODE);
2911: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2912: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD:' || l_sqlerrno || ':' || l_sqlerrmsg,
2913: 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_POST_UPD', FND_LOG.LEVEL_EXCEPTION);
2914: x_return_status := FND_API.G_RET_STS_ERROR;
2915: END CSP_REQ_LINE_DETAILS_POST_UPD;
2916:
2935:
2936: BEGIN
2937: x_return_status := FND_API.G_RET_STS_SUCCESS;
2938:
2939: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2940: RETURN;
2941: END IF;
2942:
2943: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL',
2939: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
2940: RETURN;
2941: END IF;
2942:
2943: CSM_UTIL_PKG.LOG('Entering CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL',
2944: FND_LOG.LEVEL_PROCEDURE );
2945:
2946: l_req_line_detail_id := CSP_REQ_LINE_DETAILS_PKG.user_hook_rec.req_line_detail_id;
2947:
2953: csm_csp_req_lines_event_pkg.csp_req_lines_mdirty_u(p_requirement_line_id=>l_req_line_id,
2954: p_user_id=>r_req_line_rec.user_id);
2955: END LOOP;
2956:
2957: CSM_UTIL_PKG.LOG('Leaving CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL', 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL',
2958: FND_LOG.LEVEL_PROCEDURE );
2959:
2960: EXCEPTION
2961: WHEN OTHERS THEN
2961: WHEN OTHERS THEN
2962: x_return_status := FND_API.G_RET_STS_ERROR;
2963: l_sqlerrno := to_char(SQLCODE);
2964: l_sqlerrmsg := substr(SQLERRM, 1,2000);
2965: CSM_UTIL_PKG.LOG('Exception in CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL:' || l_sqlerrno || ':' || l_sqlerrmsg,
2966: 'CSM_WF_PKG.CSP_REQ_LINE_DETAILS_PRE_DEL', FND_LOG.LEVEL_EXCEPTION);
2967: END CSP_REQ_LINE_DETAILS_PRE_DEL;
2968:
2969: /*--------------------------------------------------
2997:
2998: BEGIN
2999: x_return_status := FND_API.G_RET_STS_SUCCESS;
3000:
3001: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3002: RETURN;
3003: END IF;
3004:
3005: csm_notes_event_pkg.notes_make_dirty_i_foreachuser(p_jtf_note_id,l_error_msg,l_return_status);
3003: END IF;
3004:
3005: csm_notes_event_pkg.notes_make_dirty_i_foreachuser(p_jtf_note_id,l_error_msg,l_return_status);
3006: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3007: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.JTF_Note_Post_Ins', FND_LOG.LEVEL_ERROR);
3008: END IF;
3009:
3010: EXCEPTION
3011: WHEN OTHERS THEN
3013: l_sqlerrno := to_char(SQLCODE);
3014: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3015: l_error_msg := l_error_msg || '- Exception in JTF_Note_Post_Ins for note_id:'
3016: || TO_CHAR(p_jtf_note_id) || l_sqlerrno || ':' || l_sqlerrmsg;
3017: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.JTF_Note_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
3018: END JTF_Note_Post_Ins;
3019:
3020: /*--------------------------------------------------
3021: Description:
3048:
3049: BEGIN
3050: x_return_status := FND_API.G_RET_STS_SUCCESS;
3051:
3052: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3053: RETURN;
3054: END IF;
3055:
3056: csm_notes_event_pkg.notes_make_dirty_i_foreachuser(p_jtf_note_id, l_error_msg, l_return_status);
3054: END IF;
3055:
3056: csm_notes_event_pkg.notes_make_dirty_i_foreachuser(p_jtf_note_id, l_error_msg, l_return_status);
3057: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3058: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.JTF_Note_Pre_Upd', FND_LOG.LEVEL_ERROR);
3059: END IF;
3060:
3061: EXCEPTION
3062: WHEN OTHERS THEN
3064: l_sqlerrno := to_char(SQLCODE);
3065: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3066: l_error_msg := l_error_msg || '- Exception in JTF_Note_PRE_Upd for note_id:'
3067: || TO_CHAR(p_jtf_note_id) || l_sqlerrno || ':' || l_sqlerrmsg;
3068: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.JTF_Note_PRE_Upd',FND_LOG.LEVEL_EXCEPTION);
3069: END JTF_Note_PRE_Upd;
3070:
3071: Procedure CSI_Item_Instance_Post_Ins(p_api_version IN NUMBER
3072: , p_init_msg_list IN VARCHAR2
3116: wf_engine.threshold := l_old_wf_threshold;
3117: */
3118: EXCEPTION
3119: WHEN OTHERS THEN
3120: csm_util_pkg.log('ERROR: CSI_ITEM_INSTANCE_POST_INS => '
3121: || to_char(p_instance_id));
3122: END CSI_Item_Instance_Post_Ins;
3123:
3124: Procedure CSI_Item_Instance_Pre_Upd(p_api_version IN NUMBER
3138:
3139: BEGIN
3140: x_return_status := FND_API.G_RET_STS_SUCCESS;
3141:
3142: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3143: RETURN;
3144: END IF;
3145:
3146: CSM_ITEM_INSTANCE_EVENT_PKG.ITEM_INSTANCE_MDIRTY_U_ECHUSER(p_instance_id, l_error_msg, l_return_status);
3144: END IF;
3145:
3146: CSM_ITEM_INSTANCE_EVENT_PKG.ITEM_INSTANCE_MDIRTY_U_ECHUSER(p_instance_id, l_error_msg, l_return_status);
3147: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3148: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CSI_Item_Instance_Pre_Upd', FND_LOG.LEVEL_ERROR);
3149: END IF;
3150:
3151: EXCEPTION
3152: WHEN OTHERS THEN
3154: l_sqlerrno := to_char(SQLCODE);
3155: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3156: l_error_msg := 'Exception in CSI_Item_Instance_Pre_Upd for instance_id:' || TO_CHAR(p_instance_id)
3157: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3158: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CSI_Item_Instance_Pre_Upd',FND_LOG.LEVEL_EXCEPTION);
3159: END CSI_Item_Instance_Pre_Upd;
3160:
3161: Procedure CS_Counter_Post_Ins(
3162: P_Api_Version IN NUMBER,
3178:
3179: BEGIN
3180: x_return_status := FND_API.G_RET_STS_SUCCESS;
3181:
3182: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3183: RETURN;
3184: END IF;
3185:
3186: csm_counter_event_pkg.CTR_MAKE_DIRTY_I_FOREACHUSER(p_counter_id, l_error_msg, l_return_status);
3184: END IF;
3185:
3186: csm_counter_event_pkg.CTR_MAKE_DIRTY_I_FOREACHUSER(p_counter_id, l_error_msg, l_return_status);
3187: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3188: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Post_Ins', FND_LOG.LEVEL_ERROR);
3189: END IF;
3190:
3191: EXCEPTION
3192: WHEN OTHERS THEN
3194: l_sqlerrno := to_char(SQLCODE);
3195: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3196: l_error_msg := 'Exception in CS_Counter_Post_Ins for counter_id:' || TO_CHAR(p_counter_id)
3197: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3198: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
3199: END CS_Counter_Post_Ins;
3200:
3201: Procedure CS_Counter_Pre_Del(
3202: P_Api_Version IN NUMBER,
3215:
3216: BEGIN
3217: x_return_status := FND_API.G_RET_STS_SUCCESS;
3218:
3219: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3220: RETURN;
3221: END IF;
3222:
3223: csm_counter_event_pkg.COUNTER_MDIRTY_D(p_counter_id, l_error_msg, l_return_status);
3221: END IF;
3222:
3223: csm_counter_event_pkg.COUNTER_MDIRTY_D(p_counter_id, l_error_msg, l_return_status);
3224: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3225: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Pre_Del', FND_LOG.LEVEL_ERROR);
3226: END IF;
3227:
3228: EXCEPTION
3229: WHEN OTHERS THEN
3231: l_sqlerrno := to_char(SQLCODE);
3232: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3233: l_error_msg := 'Exception in CS_Counter_Pre_Del for counter_id:' || TO_CHAR(p_counter_id)
3234: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3235: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Pre_Del',FND_LOG.LEVEL_EXCEPTION);
3236: END CS_Counter_Pre_Del;
3237:
3238: PROCEDURE CS_CTR_GRP_INSTANCE_CRE_POST(
3239: P_Api_Version IN NUMBER,
3279:
3280: BEGIN
3281: x_return_status := FND_API.G_RET_STS_SUCCESS;
3282:
3283: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3284: RETURN;
3285: END IF;
3286:
3287: IF p_source_object_cd <> 'CP' THEN
3319: l_sqlerrno := to_char(SQLCODE);
3320: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3321: l_error_msg := 'Exception in CS_CTR_GRP_INSTANCE_CRE_POST for COUNTER_GROUP_ID:' || TO_CHAR(p_ctr_grp_id)
3322: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3323: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_CTR_GRP_INSTANCE_CRE_POST',FND_LOG.LEVEL_EXCEPTION);
3324: END CS_CTR_GRP_INSTANCE_CRE_POST;
3325:
3326: PROCEDURE CS_CTR_GRP_INSTANCE_PRE_DEL(
3327: P_Api_Version IN NUMBER,
3354:
3355: BEGIN
3356: x_return_status := FND_API.G_RET_STS_SUCCESS;
3357:
3358: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3359: RETURN;
3360: END IF;
3361:
3362: IF p_source_object_cd <> 'CP' THEN
3381: l_sqlerrno := to_char(SQLCODE);
3382: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3383: l_error_msg := 'Exception in CS_CTR_GRP_INSTANCE_PRE_DEL for source_object_id:' || TO_CHAR(p_source_object_id)
3384: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3385: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_CTR_GRP_INSTANCE_PRE_DEL',FND_LOG.LEVEL_EXCEPTION);
3386: END CS_CTR_GRP_INSTANCE_PRE_DEL;
3387:
3388: PROCEDURE CS_COUNTER_GRP_Post_Upd( P_Api_Version IN NUMBER
3389: , P_Init_Msg_List IN VARCHAR2
3414:
3415: BEGIN
3416: x_return_status := FND_API.G_RET_STS_SUCCESS;
3417:
3418: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3419: RETURN;
3420: END IF;
3421:
3422: FOR r_counter_csr IN l_counter_csr(p_ctr_grp_id) LOOP
3439: l_sqlerrno := to_char(SQLCODE);
3440: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3441: l_error_msg := 'Exception in CS_COUNTER_GRP_Post_Upd for counter_grp_id:' || TO_CHAR(p_ctr_grp_id)
3442: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3443: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_COUNTER_GRP_Post_Upd',FND_LOG.LEVEL_EXCEPTION);
3444: END CS_COUNTER_GRP_Post_Upd;
3445:
3446: PROCEDURE CS_COUNTERS_INSTANTIATE_POST(
3447: P_Api_Version IN NUMBER,
3475: );
3476: EXCEPTION
3477: --log the error
3478: WHEN OTHERS THEN
3479: csm_util_pkg.log('ERROR: COUNTER_GROUP_ID => ' || to_char(p_ctr_grp_id));
3480: END CS_COUNTERS_INSTANTIATE_POST;
3481:
3482:
3483:
3529: SELECT CSM_ACTIVITY_SEQ.nextval
3530: FROM dual;
3531:
3532: BEGIN
3533: -- csm_util_pkg.log('csm_wf_pkg.cs_counter_pre_upd eneterd');
3534: x_return_status := FND_API.G_RET_STS_SUCCESS;
3535:
3536: EXCEPTION
3537: --log the error
3535:
3536: EXCEPTION
3537: --log the error
3538: WHEN OTHERS THEN
3539: csm_util_pkg.log('ERROR: COUNTER_ID => ' || to_char(p_counter_id));
3540: END CS_Counter_Pre_Upd;
3541:
3542: PROCEDURE CS_Counter_Post_Upd(
3543: P_Api_Version IN NUMBER,
3570:
3571: BEGIN
3572: x_return_status := FND_API.G_RET_STS_SUCCESS;
3573:
3574: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3575: RETURN;
3576: END IF;
3577:
3578: -- check if the p_counter_id is belongs to a mobile item_instance.
3586: CLOSE l_acc_csr;
3587:
3588: csm_counter_event_pkg.CTR_MAKE_DIRTY_U_FOREACHUSER(p_counter_id, l_error_msg, l_return_status);
3589: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3590: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Post_Upd', FND_LOG.LEVEL_ERROR);
3591: END IF;
3592:
3593: EXCEPTION
3594: WHEN OTHERS THEN
3596: l_sqlerrno := to_char(SQLCODE);
3597: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3598: l_error_msg := 'Exception in CS_Counter_Post_Upd for counter_id:' || TO_CHAR(p_counter_id)
3599: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3600: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Post_Upd',FND_LOG.LEVEL_EXCEPTION);
3601: END CS_Counter_Post_Upd;
3602:
3603:
3604: /********************************************************
3626:
3627: BEGIN
3628: x_return_status := FND_API.G_RET_STS_SUCCESS;
3629:
3630: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3631: RETURN;
3632: END IF;
3633:
3634: l_counter_grp_log_id := p_counter_grp_log_id;
3634: l_counter_grp_log_id := p_counter_grp_log_id;
3635:
3636: csm_counter_event_pkg.CTR_VAL_MAKE_DIRTY_FOREACHUSER(l_counter_grp_log_id, l_error_msg, l_return_status);
3637: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3638: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Value_Post_Ins', FND_LOG.LEVEL_ERROR);
3639: END IF;
3640:
3641: EXCEPTION
3642: WHEN OTHERS THEN
3644: l_sqlerrno := to_char(SQLCODE);
3645: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3646: l_error_msg := 'Exception in CS_Counter_Value_Post_Ins for counter_grp_log_id:' || TO_CHAR(l_counter_grp_log_id)
3647: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3648: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Value_Post_Ins',FND_LOG.LEVEL_EXCEPTION);
3649: END CS_Counter_Value_Post_Ins;
3650:
3651: /********************************************************
3652: Starts the COUNTER_VALUE_UPD_USERLOOP workflow. Should be called when new
3672:
3673: BEGIN
3674: x_return_status := FND_API.G_RET_STS_SUCCESS;
3675:
3676: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
3677: RETURN;
3678: END IF;
3679:
3680: l_counter_grp_log_id := p_counter_grp_log_id;
3680: l_counter_grp_log_id := p_counter_grp_log_id;
3681:
3682: csm_counter_event_pkg.CTR_VAL_MAKE_DIRTY_FOREACHUSER(l_counter_grp_log_id, l_error_msg, l_return_status);
3683: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3684: csm_util_pkg.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Value_Pre_Upd', FND_LOG.LEVEL_ERROR);
3685: END IF;
3686:
3687: EXCEPTION
3688: WHEN OTHERS THEN
3690: l_sqlerrno := to_char(SQLCODE);
3691: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3692: l_error_msg := 'Exception in CS_Counter_Value_Pre_Upd for counter_grp_log_id:' || TO_CHAR(l_counter_grp_log_id)
3693: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3694: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_WF_PKG.CS_Counter_Value_Pre_Upd',FND_LOG.LEVEL_EXCEPTION);
3695: END CS_Counter_Value_Pre_Upd;
3696:
3697: Procedure CS_Counter_Property_Post_Ins(p_user_id in number,
3698: p_cs_counter_prop cs_counter_properties%rowtype)
3736: l_error_msg VARCHAR2(4000);
3737: l_return_status VARCHAR2(2000);
3738:
3739: BEGIN
3740: CSM_UTIL_PKG.LOG('Entering User_Del for user_id: ' || p_user_id, 'csm_wf_pkg.User_Del',FND_LOG.LEVEL_PROCEDURE);
3741:
3742: csm_user_event_pkg.user_del_init(p_user_id=>p_user_id);
3743:
3744: CSM_UTIL_PKG.LOG('Leaving User_Del for user_id: ' || p_user_id, 'csm_wf_pkg.User_Del',FND_LOG.LEVEL_PROCEDURE);
3740: CSM_UTIL_PKG.LOG('Entering User_Del for user_id: ' || p_user_id, 'csm_wf_pkg.User_Del',FND_LOG.LEVEL_PROCEDURE);
3741:
3742: csm_user_event_pkg.user_del_init(p_user_id=>p_user_id);
3743:
3744: CSM_UTIL_PKG.LOG('Leaving User_Del for user_id: ' || p_user_id, 'csm_wf_pkg.User_Del',FND_LOG.LEVEL_PROCEDURE);
3745: EXCEPTION
3746: WHEN OTHERS THEN
3747: l_sqlerrno := to_char(SQLCODE);
3748: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3747: l_sqlerrno := to_char(SQLCODE);
3748: l_sqlerrmsg := substr(SQLERRM, 1,2000);
3749: l_error_msg := ' Exception in User_Del for user_id:'
3750: || to_char(p_user_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
3751: CSM_UTIL_PKG.LOG(l_error_msg, 'csm_wf_pkg.User_Del',FND_LOG.LEVEL_EXCEPTION);
3752: RAISE;
3753: END User_Del;
3754:
3755: END CSM_WF_PKG;