21: WHERE object_approval_id = P_Object_approval_id)
22: AND approval_status = 'PEND';
23:
24: BEGIN
25: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
26: aso_debug_pub.ADD (
27: 'Begin ASO_APR_WF_PVT package ',
28: 1,
29: 'N'
22: AND approval_status = 'PEND';
23:
24: BEGIN
25: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
26: aso_debug_pub.ADD (
27: 'Begin ASO_APR_WF_PVT package ',
28: 1,
29: 'N'
30: );
27: 'Begin ASO_APR_WF_PVT package ',
28: 1,
29: 'N'
30: );
31: aso_debug_pub.ADD (
32: 'Starting Approval Process for approval id ' || P_Object_approval_id,
33: 1,
34: 'N'
35: );
32: 'Starting Approval Process for approval id ' || P_Object_approval_id,
33: 1,
34: 'N'
35: );
36: aso_debug_pub.ADD (
37: 'Starting Approval Process for sender_name ' || P_sender_name,
38: 1,
39: 'N'
40: );
43: OPEN C_get_appr_id;
44: FETCH C_get_appr_id INTO l_object_approval_id;
45: CLOSE C_get_appr_id;
46:
47: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
48: aso_debug_pub.ADD('l_object_approval_id: '|| l_object_approval_id,1,'N');
49: END IF;
50:
51: IF (P_Object_approval_id = l_object_approval_id) THEN
44: FETCH C_get_appr_id INTO l_object_approval_id;
45: CLOSE C_get_appr_id;
46:
47: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
48: aso_debug_pub.ADD('l_object_approval_id: '|| l_object_approval_id,1,'N');
49: END IF;
50:
51: IF (P_Object_approval_id = l_object_approval_id) THEN
52:
98: itemkey => l_itemkey,
99: aname => 'REQUESTOR_DISPLAYNAME',
100: avalue => l_requestor_display_name
101: );
102: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
103: aso_debug_pub.ADD (
104: 'Requester DisplayName is :' || l_requestor_display_name,
105: 1,
106: 'N'
99: aname => 'REQUESTOR_DISPLAYNAME',
100: avalue => l_requestor_display_name
101: );
102: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
103: aso_debug_pub.ADD (
104: 'Requester DisplayName is :' || l_requestor_display_name,
105: 1,
106: 'N'
107: );
113: );
114:
115: ELSE -- approval_id and obj_approval_id are not the same
116:
117: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
118: aso_debug_pub.ADD('Skipping the create approval workflow',1,'N');
119: aso_debug_pub.ADD('***** NOTE: APPROVAL WORKFLOW PROCESS HAS NOT BEEN STARTED',1,'N');
120: END IF;
121: END IF;
114:
115: ELSE -- approval_id and obj_approval_id are not the same
116:
117: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
118: aso_debug_pub.ADD('Skipping the create approval workflow',1,'N');
119: aso_debug_pub.ADD('***** NOTE: APPROVAL WORKFLOW PROCESS HAS NOT BEEN STARTED',1,'N');
120: END IF;
121: END IF;
122:
115: ELSE -- approval_id and obj_approval_id are not the same
116:
117: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
118: aso_debug_pub.ADD('Skipping the create approval workflow',1,'N');
119: aso_debug_pub.ADD('***** NOTE: APPROVAL WORKFLOW PROCESS HAS NOT BEEN STARTED',1,'N');
120: END IF;
121: END IF;
122:
123:
121: END IF;
122:
123:
124:
125: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
126: aso_debug_pub.ADD (
127: 'End of Start_ASO_Approvals ',
128: 1,
129: 'N'
122:
123:
124:
125: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
126: aso_debug_pub.ADD (
127: 'End of Start_ASO_Approvals ',
128: 1,
129: 'N'
130: );
131: END IF;
132: EXCEPTION
133: WHEN OTHERS
134: THEN
135: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
136: aso_debug_pub.ADD (
137: 'Exception in Start_ASO_Approvals Proc SqlCode :' || SQLERRM,
138: 1,
139: 'N'
132: EXCEPTION
133: WHEN OTHERS
134: THEN
135: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
136: aso_debug_pub.ADD (
137: 'Exception in Start_ASO_Approvals Proc SqlCode :' || SQLERRM,
138: 1,
139: 'N'
140: );
172: WHERE object_approval_id = c_approval_id
173: AND approver_status = 'NOSUBMIT'
174: ORDER BY approver_sequence;
175: BEGIN
176: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
177: aso_debug_pub.ADD (
178: 'Begin Sumbit_Approval Process',
179: 1,
180: 'N'
173: AND approver_status = 'NOSUBMIT'
174: ORDER BY approver_sequence;
175: BEGIN
176: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
177: aso_debug_pub.ADD (
178: 'Begin Sumbit_Approval Process',
179: 1,
180: 'N'
181: );
200: 'REQUESTOR_DISPLAYNAME'
201: );
202:
203:
204: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
205: aso_debug_pub.ADD (
206: 'Object Approval ID is ' || l_approval_id,
207: 1,
208: 'N'
201: );
202:
203:
204: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
205: aso_debug_pub.ADD (
206: 'Object Approval ID is ' || l_approval_id,
207: 1,
208: 'N'
209: );
206: 'Object Approval ID is ' || l_approval_id,
207: 1,
208: 'N'
209: );
210: aso_debug_pub.ADD (
211: 'Requester UserName is ' || l_requestor_name,
212: 1,
213: 'N'
214: );
211: 'Requester UserName is ' || l_requestor_name,
212: 1,
213: 'N'
214: );
215: aso_debug_pub.ADD (
216: 'Requester DisplayName is :' || l_requestor_displayname,
217: 1,
218: 'N'
219: );
253: l_forward_displayname
254: );
255: END IF;
256:
257: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
258: aso_debug_pub.ADD (
259: 'Sumbit_Approval: RECEIVER USERNAME : ' || l_forward_user_name,
260: 1,
261: 'N'
254: );
255: END IF;
256:
257: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
258: aso_debug_pub.ADD (
259: 'Sumbit_Approval: RECEIVER USERNAME : ' || l_forward_user_name,
260: 1,
261: 'N'
262: );
259: 'Sumbit_Approval: RECEIVER USERNAME : ' || l_forward_user_name,
260: 1,
261: 'N'
262: );
263: aso_debug_pub.ADD (
264: 'Sumbit_Approval: RECEIVER_DISPLAYNAME : ' || l_forward_displayname,
265: 1,
266: 'N'
267: );
264: 'Sumbit_Approval: RECEIVER_DISPLAYNAME : ' || l_forward_displayname,
265: 1,
266: 'N'
267: );
268: aso_debug_pub.ADD (
269: 'Sumbit_Approval: Creating Individual_approval Process for Itemkey'
270: || l_itemkey,
271: 1,
272: 'N'
331: avalue => l_approval_id
332: );
333: -- Set the mesage name to copy submitter (FYI) message
334:
335: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
336: aso_debug_pub.ADD (
337: 'Setting the message name to OA_FYI_TO_REQUESTER',
338: 1,
339: 'N'
332: );
333: -- Set the mesage name to copy submitter (FYI) message
334:
335: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
336: aso_debug_pub.ADD (
337: 'Setting the message name to OA_FYI_TO_REQUESTER',
338: 1,
339: 'N'
340: );
357: wf_engine.startprocess (
358: itemtype => itemtype,
359: itemkey => l_itemkey
360: );
361: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
362: aso_debug_pub.ADD (
363: 'Updating the approver status to PEND for object approval id :'
364: || l_approval_id,
365: 1,
358: itemtype => itemtype,
359: itemkey => l_itemkey
360: );
361: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
362: aso_debug_pub.ADD (
363: 'Updating the approver status to PEND for object approval id :'
364: || l_approval_id,
365: 1,
366: 'N'
377: AND approver_sequence = next_seq;
378: END LOOP;
379:
380: resultout := 'COMPLETE' || ':' || wf_engine.eng_null;
381: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
382: aso_debug_pub.ADD (
383: 'End Sumbit_Approval Process',
384: 1,
385: 'N'
378: END LOOP;
379:
380: resultout := 'COMPLETE' || ':' || wf_engine.eng_null;
381: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
382: aso_debug_pub.ADD (
383: 'End Sumbit_Approval Process',
384: 1,
385: 'N'
386: );
390:
391: IF (funcmode = 'CANCEL')
392: THEN
393: resultout := 'COMPLETE';
394: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
395: aso_debug_pub.ADD (
396: 'End of Sumbit_Approval Process',
397: 1,
398: 'N'
391: IF (funcmode = 'CANCEL')
392: THEN
393: resultout := 'COMPLETE';
394: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
395: aso_debug_pub.ADD (
396: 'End of Sumbit_Approval Process',
397: 1,
398: 'N'
399: );
401: RETURN;
402: END IF;
403:
404: resultout := '';
405: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
406: aso_debug_pub.ADD (
407: 'End of Sumbit_Approval Process',
408: 1,
409: 'N'
402: END IF;
403:
404: resultout := '';
405: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
406: aso_debug_pub.ADD (
407: 'End of Sumbit_Approval Process',
408: 1,
409: 'N'
410: );
412: RETURN;
413: EXCEPTION
414: WHEN OTHERS
415: THEN
416: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
417: aso_debug_pub.ADD (
418: 'Exception in Submit_Approvals Proc SqlCode :' || SQLERRM,
419: 1,
420: 'N'
413: EXCEPTION
414: WHEN OTHERS
415: THEN
416: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
417: aso_debug_pub.ADD (
418: 'Exception in Submit_Approvals Proc SqlCode :' || SQLERRM,
419: 1,
420: 'N'
421: );
480: WHERE object_approval_id = c_approval_id
481: AND approver_status = 'TOUT'
482: AND approver_sequence = c_max_seq;
483: BEGIN
484: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
485: aso_debug_pub.ADD (
486: 'Begin Sumbit_Next_Batch Process',
487: 1,
488: 'N'
481: AND approver_status = 'TOUT'
482: AND approver_sequence = c_max_seq;
483: BEGIN
484: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
485: aso_debug_pub.ADD (
486: 'Begin Sumbit_Next_Batch Process',
487: 1,
488: 'N'
489: );
500: itemtype,
501: itemkey,
502: 'APPROVAL_DET_ID'
503: );
504: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
505: aso_debug_pub.ADD (
506: 'Approval ID is ' || l_approval_id,
507: 1,
508: 'N'
501: itemkey,
502: 'APPROVAL_DET_ID'
503: );
504: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
505: aso_debug_pub.ADD (
506: 'Approval ID is ' || l_approval_id,
507: 1,
508: 'N'
509: );
506: 'Approval ID is ' || l_approval_id,
507: 1,
508: 'N'
509: );
510: aso_debug_pub.ADD (
511: 'Approval Detail ID is ' || l_approval_det_id,
512: 1,
513: 'N'
514: );
511: 'Approval Detail ID is ' || l_approval_det_id,
512: 1,
513: 'N'
514: );
515: aso_debug_pub.ADD (
516: 'Calling the update approver list procedure ',
517: 1,
518: 'N'
519: );
529: CLOSE get_pend_sbmt_approvers;
530:
531: IF l_count > 0
532: THEN
533: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
534: aso_debug_pub.ADD (
535: 'Number of approvers who are in pending status are : ' || l_count,
536: 1,
537: 'N'
530:
531: IF l_count > 0
532: THEN
533: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
534: aso_debug_pub.ADD (
535: 'Number of approvers who are in pending status are : ' || l_count,
536: 1,
537: 'N'
538: );
539: END IF;
540: resultout := 'COMPLETE:T';
541: ELSE
542: -- Checking whether Last Approver timed OUT NOCOPY /* file.sql.39 change */ if so treated as rejected
543: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
544: aso_debug_pub.ADD (
545: 'NO approvers in pending status',
546: 1,
547: 'N'
540: resultout := 'COMPLETE:T';
541: ELSE
542: -- Checking whether Last Approver timed OUT NOCOPY /* file.sql.39 change */ if so treated as rejected
543: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
544: aso_debug_pub.ADD (
545: 'NO approvers in pending status',
546: 1,
547: 'N'
548: );
557: l_max_seq
558: );
559: FETCH get_tout_approvers INTO l_count;
560: CLOSE get_tout_approvers;
561: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
562: aso_debug_pub.ADD (
563: 'Number of approvers who have timed OUT NOCOPY /* file.sql.39 change */ are : ' || l_count,
564: 1,
565: 'N'
558: );
559: FETCH get_tout_approvers INTO l_count;
560: CLOSE get_tout_approvers;
561: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
562: aso_debug_pub.ADD (
563: 'Number of approvers who have timed OUT NOCOPY /* file.sql.39 change */ are : ' || l_count,
564: 1,
565: 'N'
566: );
568:
569: IF l_count > 0
570: THEN
571: -- Generate new list
572: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
573: aso_debug_pub.ADD (
574: 'Calling procedure last approver timeout check ',
575: 1,
576: 'N'
569: IF l_count > 0
570: THEN
571: -- Generate new list
572: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
573: aso_debug_pub.ADD (
574: 'Calling procedure last approver timeout check ',
575: 1,
576: 'N'
577: );
583: l_approval_id
584: );
585: FETCH get_pend_sbmt_approvers INTO l_count;
586: CLOSE get_pend_sbmt_approvers;
587: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
588: aso_debug_pub.ADD (
589: 'Number of approvers who are in pending status are : ' || l_count,
590: 1,
591: 'N'
584: );
585: FETCH get_pend_sbmt_approvers INTO l_count;
586: CLOSE get_pend_sbmt_approvers;
587: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
588: aso_debug_pub.ADD (
589: 'Number of approvers who are in pending status are : ' || l_count,
590: 1,
591: 'N'
592: );
596: THEN
597: resultout := 'COMPLETE:T';
598: RETURN;
599: ELSE
600: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
601: aso_debug_pub.ADD (
602: 'Seting the status to rejected',
603: 1,
604: 'N'
597: resultout := 'COMPLETE:T';
598: RETURN;
599: ELSE
600: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
601: aso_debug_pub.ADD (
602: 'Seting the status to rejected',
603: 1,
604: 'N'
605: );
606: END IF;
607: l_status := 'REJ';
608: -- set the message name to that of final rejection message
609:
610: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
611: aso_debug_pub.ADD (
612: 'Setting message name to OA_REQUEST_REJECTED',
613: 1,
614: 'N'
607: l_status := 'REJ';
608: -- set the message name to that of final rejection message
609:
610: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
611: aso_debug_pub.ADD (
612: 'Setting message name to OA_REQUEST_REJECTED',
613: 1,
614: 'N'
615: );
621: avalue => 'OA_REQUEST_REJECTED'
622: );
623: END IF;
624: ELSE
625: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
626: aso_debug_pub.ADD (
627: 'Seting the status to approved',
628: 1,
629: 'N'
622: );
623: END IF;
624: ELSE
625: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
626: aso_debug_pub.ADD (
627: 'Seting the status to approved',
628: 1,
629: 'N'
630: );
630: );
631: END IF;
632: l_status := 'APPR';
633: -- set the message name to that of final approval message
634: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
635: aso_debug_pub.ADD (
636: 'Setting message name to OA_REQ_APPR_BY_ALL_APPR',
637: 1,
638: 'N'
631: END IF;
632: l_status := 'APPR';
633: -- set the message name to that of final approval message
634: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
635: aso_debug_pub.ADD (
636: 'Setting message name to OA_REQ_APPR_BY_ALL_APPR',
637: 1,
638: 'N'
639: );
669: END;
670:
671: IF l_new_process_flag = 'N' THEN
672: -- Calling the procedure to update the quote status
673: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
674: aso_debug_pub.ADD (
675: 'Calling update entity procedure ',
676: 1,
677: 'N'
670:
671: IF l_new_process_flag = 'N' THEN
672: -- Calling the procedure to update the quote status
673: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
674: aso_debug_pub.ADD (
675: 'Calling update entity procedure ',
676: 1,
677: 'N'
678: );
688:
689: resultout := 'COMPLETE:F';
690: END IF;
691:
692: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
693: aso_debug_pub.ADD (
694: 'End of Sumbit_Next_Batch Process',
695: 1,
696: 'N'
689: resultout := 'COMPLETE:F';
690: END IF;
691:
692: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
693: aso_debug_pub.ADD (
694: 'End of Sumbit_Next_Batch Process',
695: 1,
696: 'N'
697: );
701:
702: IF (funcmode = 'CANCEL')
703: THEN
704: resultout := 'COMPLETE';
705: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
706: aso_debug_pub.ADD (
707: 'End of Sumbit_Next_Batch Process',
708: 1,
709: 'N'
702: IF (funcmode = 'CANCEL')
703: THEN
704: resultout := 'COMPLETE';
705: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
706: aso_debug_pub.ADD (
707: 'End of Sumbit_Next_Batch Process',
708: 1,
709: 'N'
710: );
712: RETURN;
713: END IF;
714:
715: resultout := '';
716: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
717: aso_debug_pub.ADD (
718: 'End of Sumbit_Next_Batch Process',
719: 1,
720: 'N'
713: END IF;
714:
715: resultout := '';
716: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
717: aso_debug_pub.ADD (
718: 'End of Sumbit_Next_Batch Process',
719: 1,
720: 'N'
721: );
723: RETURN;
724: EXCEPTION
725: WHEN OTHERS
726: THEN
727: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
728: aso_debug_pub.ADD (
729: 'Exception in Submit_next_batch Proc SqlCode :' || SQLERRM,
730: 1,
731: 'N'
724: EXCEPTION
725: WHEN OTHERS
726: THEN
727: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
728: aso_debug_pub.ADD (
729: 'Exception in Submit_next_batch Proc SqlCode :' || SQLERRM,
730: 1,
731: 'N'
732: );
735: p_encoded => 'F',
736: p_count => x_msg_count,
737: p_data => x_msg_data
738: );
739: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
740: aso_debug_pub.ADD (
741: 'no. of FND messages :' || x_msg_count,
742: 1,
743: 'N'
736: p_count => x_msg_count,
737: p_data => x_msg_data
738: );
739: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
740: aso_debug_pub.ADD (
741: 'no. of FND messages :' || x_msg_count,
742: 1,
743: 'N'
744: );
751: p_encoded => 'F'
752: );
753: END LOOP;
754:
755: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
756: aso_debug_pub.ADD (
757: 'Msg Data is' || x_msg_data,
758: 1,
759: 'N'
752: );
753: END LOOP;
754:
755: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
756: aso_debug_pub.ADD (
757: 'Msg Data is' || x_msg_data,
758: 1,
759: 'N'
760: );
795: FROM aso_apr_approval_details
796: WHERE object_approval_id = c_approval_id
797: AND approver_status = 'REJ';
798: BEGIN
799: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
800: aso_debug_pub.ADD (
801: 'Begin CHECK_REJECTED Procedure ',
802: 1,
803: 'N'
796: WHERE object_approval_id = c_approval_id
797: AND approver_status = 'REJ';
798: BEGIN
799: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
800: aso_debug_pub.ADD (
801: 'Begin CHECK_REJECTED Procedure ',
802: 1,
803: 'N'
804: );
810: itemtype,
811: itemkey,
812: 'APPROVALID'
813: );
814: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
815: aso_debug_pub.ADD (
816: 'Approval ID is ' || l_approval_id,
817: 1,
818: 'N'
811: itemkey,
812: 'APPROVALID'
813: );
814: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
815: aso_debug_pub.ADD (
816: 'Approval ID is ' || l_approval_id,
817: 1,
818: 'N'
819: );
822: l_approval_id
823: );
824: FETCH get_rej_approver_count INTO l_count;
825: CLOSE get_rej_approver_count;
826: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
827: aso_debug_pub.ADD (
828: 'Number of approvers who are in rejected status are : ' || l_count,
829: 1,
830: 'N'
823: );
824: FETCH get_rej_approver_count INTO l_count;
825: CLOSE get_rej_approver_count;
826: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
827: aso_debug_pub.ADD (
828: 'Number of approvers who are in rejected status are : ' || l_count,
829: 1,
830: 'N'
831: );
833:
834: IF l_count > 0
835: THEN
836: -- Calling the procedure to update the quote status
837: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
838: aso_debug_pub.ADD (
839: 'Calling update quote procedure with status = REJ and approval id = '
840: || l_approval_id,
841: 1,
834: IF l_count > 0
835: THEN
836: -- Calling the procedure to update the quote status
837: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
838: aso_debug_pub.ADD (
839: 'Calling update quote procedure with status = REJ and approval id = '
840: || l_approval_id,
841: 1,
842: 'N'
842: 'N'
843: );
844: END IF;
845: -- Set the message name to Final Rejection
846: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
847: aso_debug_pub.ADD (
848: 'Setting message name to OA_REQUEST_REJECTED',
849: 1,
850: 'N'
843: );
844: END IF;
845: -- Set the message name to Final Rejection
846: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
847: aso_debug_pub.ADD (
848: 'Setting message name to OA_REQUEST_REJECTED',
849: 1,
850: 'N'
851: );
880: END;
881:
882: IF l_new_process_flag = 'N' THEN
883: -- Calling the procedure to update the quote status
884: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
885: aso_debug_pub.ADD (
886: 'Calling update entity procedure ',
887: 1,
888: 'N'
881:
882: IF l_new_process_flag = 'N' THEN
883: -- Calling the procedure to update the quote status
884: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
885: aso_debug_pub.ADD (
886: 'Calling update entity procedure ',
887: 1,
888: 'N'
889: );
898: END IF;
899:
900: resultout := 'COMPLETE:T';
901: ELSE
902: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
903: aso_debug_pub.ADD (
904: 'Setting message name to OA_REQ_APPR_BY_ALL_APPR',
905: 1,
906: 'N'
899:
900: resultout := 'COMPLETE:T';
901: ELSE
902: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
903: aso_debug_pub.ADD (
904: 'Setting message name to OA_REQ_APPR_BY_ALL_APPR',
905: 1,
906: 'N'
907: );
914: );
915: resultout := 'COMPLETE:F';
916: END IF;
917:
918: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
919: aso_debug_pub.ADD (
920: 'End of CHECK_REJECTED Procedure',
921: 1,
922: 'N'
915: resultout := 'COMPLETE:F';
916: END IF;
917:
918: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
919: aso_debug_pub.ADD (
920: 'End of CHECK_REJECTED Procedure',
921: 1,
922: 'N'
923: );
927:
928: IF (funcmode = 'CANCEL')
929: THEN
930: resultout := 'COMPLETE';
931: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
932: aso_debug_pub.ADD (
933: 'End of CHECK_REJECTED Procedure',
934: 1,
935: 'N'
928: IF (funcmode = 'CANCEL')
929: THEN
930: resultout := 'COMPLETE';
931: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
932: aso_debug_pub.ADD (
933: 'End of CHECK_REJECTED Procedure',
934: 1,
935: 'N'
936: );
938: RETURN;
939: END IF;
940:
941: resultout := '';
942: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
943: aso_debug_pub.ADD (
944: 'End of CHECK_REJECTED Procedure',
945: 1,
946: 'N'
939: END IF;
940:
941: resultout := '';
942: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
943: aso_debug_pub.ADD (
944: 'End of CHECK_REJECTED Procedure',
945: 1,
946: 'N'
947: );
949: RETURN;
950: EXCEPTION
951: WHEN OTHERS
952: THEN
953: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
954: aso_debug_pub.ADD (
955: 'Exception in Check_rejected Procedure SqlCode :' || SQLERRM,
956: 1,
957: 'N'
950: EXCEPTION
951: WHEN OTHERS
952: THEN
953: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
954: aso_debug_pub.ADD (
955: 'Exception in Check_rejected Procedure SqlCode :' || SQLERRM,
956: 1,
957: 'N'
958: );
961: p_encoded => 'F',
962: p_count => x_msg_count,
963: p_data => x_msg_data
964: );
965: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
966: aso_debug_pub.ADD (
967: 'no. of FND messages :' || x_msg_count,
968: 1,
969: 'N'
962: p_count => x_msg_count,
963: p_data => x_msg_data
964: );
965: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
966: aso_debug_pub.ADD (
967: 'no. of FND messages :' || x_msg_count,
968: 1,
969: 'N'
970: );
977: p_encoded => 'F'
978: );
979: END LOOP;
980:
981: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
982: aso_debug_pub.ADD (
983: 'Msg Data is' || x_msg_data,
984: 1,
985: 'N'
978: );
979: END LOOP;
980:
981: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
982: aso_debug_pub.ADD (
983: 'Msg Data is' || x_msg_data,
984: 1,
985: 'N'
986: );
1007: ) IS
1008: l_approval_det_id NUMBER;
1009: l_note VARCHAR2 (4000);
1010: BEGIN
1011: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1012: aso_debug_pub.ADD (
1013: 'Begin APPROVED Procedure ',
1014: 1,
1015: 'N'
1008: l_approval_det_id NUMBER;
1009: l_note VARCHAR2 (4000);
1010: BEGIN
1011: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1012: aso_debug_pub.ADD (
1013: 'Begin APPROVED Procedure ',
1014: 1,
1015: 'N'
1016: );
1017: END IF;
1018:
1019: IF funcmode = 'RUN'
1020: THEN
1021: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1022: aso_debug_pub.ADD (
1023: 'Seting message name to OA_REQUEST_APPROVED_FYI',
1024: 1,
1025: 'N'
1018:
1019: IF funcmode = 'RUN'
1020: THEN
1021: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1022: aso_debug_pub.ADD (
1023: 'Seting message name to OA_REQUEST_APPROVED_FYI',
1024: 1,
1025: 'N'
1026: );
1035: itemtype,
1036: itemkey,
1037: 'APPROVAL_DET_ID'
1038: );
1039: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1040: aso_debug_pub.ADD (
1041: 'Approval detail ID is : ' || l_approval_det_id,
1042: 1,
1043: 'N'
1036: itemkey,
1037: 'APPROVAL_DET_ID'
1038: );
1039: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1040: aso_debug_pub.ADD (
1041: 'Approval detail ID is : ' || l_approval_det_id,
1042: 1,
1043: 'N'
1044: );
1047: itemtype,
1048: itemkey,
1049: 'NOTE'
1050: );
1051: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1052: aso_debug_pub.ADD (
1053: 'Approver comments are: ' || SUBSTR (
1054: l_note,
1055: 1,
1048: itemkey,
1049: 'NOTE'
1050: );
1051: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1052: aso_debug_pub.ADD (
1053: 'Approver comments are: ' || SUBSTR (
1054: l_note,
1055: 1,
1056: 32
1057: ),
1058: 1,
1059: 'N'
1060: );
1061: aso_debug_pub.ADD (
1062: 'Calling the update table procedure setting approver status to APPR',
1063: 1,
1064: 'N'
1065: );
1072: note => l_note);
1073:
1074:
1075: resultout := 'COMPLETE';
1076: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1077: aso_debug_pub.ADD (
1078: 'End of APPROVED Procedure',
1079: 1,
1080: 'N'
1073:
1074:
1075: resultout := 'COMPLETE';
1076: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1077: aso_debug_pub.ADD (
1078: 'End of APPROVED Procedure',
1079: 1,
1080: 'N'
1081: );
1085:
1086: IF (funcmode = 'CANCEL')
1087: THEN
1088: resultout := 'COMPLETE';
1089: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1090: aso_debug_pub.ADD (
1091: 'End of APPROVED Procedure',
1092: 1,
1093: 'N'
1086: IF (funcmode = 'CANCEL')
1087: THEN
1088: resultout := 'COMPLETE';
1089: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1090: aso_debug_pub.ADD (
1091: 'End of APPROVED Procedure',
1092: 1,
1093: 'N'
1094: );
1096: RETURN;
1097: END IF;
1098:
1099: resultout := '';
1100: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1101: aso_debug_pub.ADD (
1102: 'End of APPROVED Procedure',
1103: 1,
1104: 'N'
1097: END IF;
1098:
1099: resultout := '';
1100: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1101: aso_debug_pub.ADD (
1102: 'End of APPROVED Procedure',
1103: 1,
1104: 'N'
1105: );
1107: RETURN;
1108: EXCEPTION
1109: WHEN OTHERS
1110: THEN
1111: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1112: aso_debug_pub.ADD (
1113: 'Exception in Approved Procedure SqlCode :' || SQLERRM,
1114: 1,
1115: 'N'
1108: EXCEPTION
1109: WHEN OTHERS
1110: THEN
1111: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1112: aso_debug_pub.ADD (
1113: 'Exception in Approved Procedure SqlCode :' || SQLERRM,
1114: 1,
1115: 'N'
1116: );
1137: ) IS
1138: l_approval_det_id NUMBER;
1139: l_note VARCHAR2 (4000);
1140: BEGIN
1141: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1142: aso_debug_pub.ADD (
1143: 'Start of REJECTED Procedure',
1144: 1,
1145: 'N'
1138: l_approval_det_id NUMBER;
1139: l_note VARCHAR2 (4000);
1140: BEGIN
1141: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1142: aso_debug_pub.ADD (
1143: 'Start of REJECTED Procedure',
1144: 1,
1145: 'N'
1146: );
1147: END IF;
1148:
1149: IF funcmode = 'RUN'
1150: THEN
1151: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1152: aso_debug_pub.ADD (
1153: 'Seting message name to OA_REQUEST_REJECTED_FYI',
1154: 1,
1155: 'N'
1148:
1149: IF funcmode = 'RUN'
1150: THEN
1151: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1152: aso_debug_pub.ADD (
1153: 'Seting message name to OA_REQUEST_REJECTED_FYI',
1154: 1,
1155: 'N'
1156: );
1165: itemtype,
1166: itemkey,
1167: 'APPROVAL_DET_ID'
1168: );
1169: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1170: aso_debug_pub.ADD (
1171: 'Approval detail ID is : ' || l_approval_det_id,
1172: 1,
1173: 'N'
1166: itemkey,
1167: 'APPROVAL_DET_ID'
1168: );
1169: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1170: aso_debug_pub.ADD (
1171: 'Approval detail ID is : ' || l_approval_det_id,
1172: 1,
1173: 'N'
1174: );
1177: itemtype,
1178: itemkey,
1179: 'NOTE'
1180: );
1181: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1182: aso_debug_pub.ADD (
1183: 'Approver comments are: ' || SUBSTR (
1184: l_note,
1185: 1,
1178: itemkey,
1179: 'NOTE'
1180: );
1181: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1182: aso_debug_pub.ADD (
1183: 'Approver comments are: ' || SUBSTR (
1184: l_note,
1185: 1,
1186: 32
1187: ),
1188: 1,
1189: 'N'
1190: );
1191: aso_debug_pub.ADD (
1192: 'Calling the update table procedure setting approver status to REJ',
1193: 1,
1194: 'N'
1195: );
1209:
1210: IF (funcmode = 'CANCEL')
1211: THEN
1212: resultout := 'COMPLETE';
1213: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1214: aso_debug_pub.ADD (
1215: 'End of REJECTED Procedure',
1216: 1,
1217: 'N'
1210: IF (funcmode = 'CANCEL')
1211: THEN
1212: resultout := 'COMPLETE';
1213: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1214: aso_debug_pub.ADD (
1215: 'End of REJECTED Procedure',
1216: 1,
1217: 'N'
1218: );
1220: RETURN;
1221: END IF;
1222:
1223: resultout := '';
1224: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1225: aso_debug_pub.ADD (
1226: 'End of REJECTED Procedure',
1227: 1,
1228: 'N'
1221: END IF;
1222:
1223: resultout := '';
1224: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1225: aso_debug_pub.ADD (
1226: 'End of REJECTED Procedure',
1227: 1,
1228: 'N'
1229: );
1231: RETURN;
1232: EXCEPTION
1233: WHEN OTHERS
1234: THEN
1235: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1236: aso_debug_pub.ADD (
1237: 'Exception in Rejected Procedure SqlCode :' || SQLERRM,
1238: 1,
1239: 'N'
1232: EXCEPTION
1233: WHEN OTHERS
1234: THEN
1235: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1236: aso_debug_pub.ADD (
1237: 'Exception in Rejected Procedure SqlCode :' || SQLERRM,
1238: 1,
1239: 'N'
1240: );
1262: l_approval_det_id NUMBER;
1263: l_note VARCHAR2 (4000);
1264: l_notification_id NUMBER;
1265: BEGIN
1266: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1267: aso_debug_pub.ADD (
1268: 'begin TIMEDOUT Procedure',
1269: 1,
1270: 'N'
1263: l_note VARCHAR2 (4000);
1264: l_notification_id NUMBER;
1265: BEGIN
1266: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1267: aso_debug_pub.ADD (
1268: 'begin TIMEDOUT Procedure',
1269: 1,
1270: 'N'
1271: );
1277: itemtype,
1278: itemkey,
1279: 'NOTIFICATION_ID'
1280: );
1281: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1282: aso_debug_pub.ADD (
1283: 'Cancelling notification for notification ID : ' || l_notification_id,
1284: 1,
1285: 'N'
1278: itemkey,
1279: 'NOTIFICATION_ID'
1280: );
1281: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1282: aso_debug_pub.ADD (
1283: 'Cancelling notification for notification ID : ' || l_notification_id,
1284: 1,
1285: 'N'
1286: );
1288: wf_notification.CANCEL (
1289: nid => l_notification_id,
1290: cancel_comment => 'TIMEOUT'
1291: );
1292: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1293: aso_debug_pub.ADD (
1294: 'Seting message name to OA_REQUEST_TIMEDOUT_FYI',
1295: 1,
1296: 'N'
1289: nid => l_notification_id,
1290: cancel_comment => 'TIMEOUT'
1291: );
1292: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1293: aso_debug_pub.ADD (
1294: 'Seting message name to OA_REQUEST_TIMEDOUT_FYI',
1295: 1,
1296: 'N'
1297: );
1311: itemtype,
1312: itemkey,
1313: 'NOTE'
1314: );
1315: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1316: aso_debug_pub.ADD (
1317: 'Approver comments are: ' || SUBSTR (
1318: l_note,
1319: 1,
1312: itemkey,
1313: 'NOTE'
1314: );
1315: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1316: aso_debug_pub.ADD (
1317: 'Approver comments are: ' || SUBSTR (
1318: l_note,
1319: 1,
1320: 32
1321: ),
1322: 1,
1323: 'N'
1324: );
1325: aso_debug_pub.ADD (
1326: 'Calling the update table procedure setting approver status to TOUT',
1327: 1,
1328: 'N'
1329: );
1335: p_status => 'TOUT',
1336: note => l_note);
1337:
1338: resultout := 'COMPLETE';
1339: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1340: aso_debug_pub.ADD (
1341: 'End of TIMEDOUT Procedure',
1342: 1,
1343: 'N'
1336: note => l_note);
1337:
1338: resultout := 'COMPLETE';
1339: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1340: aso_debug_pub.ADD (
1341: 'End of TIMEDOUT Procedure',
1342: 1,
1343: 'N'
1344: );
1348:
1349: IF (funcmode = 'CANCEL')
1350: THEN
1351: resultout := 'COMPLETE';
1352: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1353: aso_debug_pub.ADD (
1354: 'End of TIMEDOUT Procedure',
1355: 1,
1356: 'N'
1349: IF (funcmode = 'CANCEL')
1350: THEN
1351: resultout := 'COMPLETE';
1352: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1353: aso_debug_pub.ADD (
1354: 'End of TIMEDOUT Procedure',
1355: 1,
1356: 'N'
1357: );
1359: RETURN;
1360: END IF;
1361:
1362: resultout := '';
1363: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1364: aso_debug_pub.ADD (
1365: 'End of TIMEDOUT Procedure',
1366: 1,
1367: 'N'
1360: END IF;
1361:
1362: resultout := '';
1363: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1364: aso_debug_pub.ADD (
1365: 'End of TIMEDOUT Procedure',
1366: 1,
1367: 'N'
1368: );
1370: RETURN;
1371: EXCEPTION
1372: WHEN OTHERS
1373: THEN
1374: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1375: aso_debug_pub.ADD (
1376: 'Exception in Approved Procedure SqlCode :' || SQLERRM,
1377: 1,
1378: 'N'
1371: EXCEPTION
1372: WHEN OTHERS
1373: THEN
1374: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1375: aso_debug_pub.ADD (
1376: 'Exception in Approved Procedure SqlCode :' || SQLERRM,
1377: 1,
1378: 'N'
1379: );
1436: FROM fnd_user
1437: WHERE user_id = l_user_id;
1438:
1439: BEGIN
1440: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1441: aso_debug_pub.ADD (
1442: 'Begin CancelApproval Procedure',
1443: 1,
1444: 'N'
1437: WHERE user_id = l_user_id;
1438:
1439: BEGIN
1440: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1441: aso_debug_pub.ADD (
1442: 'Begin CancelApproval Procedure',
1443: 1,
1444: 'N'
1445: );
1442: 'Begin CancelApproval Procedure',
1443: 1,
1444: 'N'
1445: );
1446: aso_debug_pub.ADD (
1447: 'Aborting process for approval ID :' || approval_id,
1448: 1,
1449: 'N'
1450: );
1449: 'N'
1450: );
1451: END IF;
1452: -- Updating the approval obj table status
1453: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1454: aso_debug_pub.ADD (
1455: 'Updating table aso_apr_obj_approvals, status is CAN and approval id :'
1456: || approval_id,
1457: 1,
1450: );
1451: END IF;
1452: -- Updating the approval obj table status
1453: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1454: aso_debug_pub.ADD (
1455: 'Updating table aso_apr_obj_approvals, status is CAN and approval id :'
1456: || approval_id,
1457: 1,
1458: 'N'
1504: l_requestor_displayname :=
1505: wf_directory.getroledisplayname (
1506: l_requestor_name
1507: );
1508: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1509: aso_debug_pub.ADD (
1510: 'Requester Displayname is :' || l_requestor_displayname,
1511: 1,
1512: 'N'
1505: wf_directory.getroledisplayname (
1506: l_requestor_name
1507: );
1508: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1509: aso_debug_pub.ADD (
1510: 'Requester Displayname is :' || l_requestor_displayname,
1511: 1,
1512: 'N'
1513: );
1523: l_cancellor_displayname :=
1524: wf_directory.getroledisplayname (
1525: l_cancellor_username
1526: );
1527: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1528: aso_debug_pub.ADD (
1529: 'Cancellor Displayname is :' || l_cancellor_displayname,
1530: 1,
1531: 'N'
1524: wf_directory.getroledisplayname (
1525: l_cancellor_username
1526: );
1527: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1528: aso_debug_pub.ADD (
1529: 'Cancellor Displayname is :' || l_cancellor_displayname,
1530: 1,
1531: 'N'
1532: );
1552: l_forward_displayname
1553: );
1554: END IF;
1555:
1556: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1557: aso_debug_pub.ADD (
1558: 'Completing Activity Notify Approve Requisition for approval detail ID :'
1559: || i.approval_det_id,
1560: 1,
1553: );
1554: END IF;
1555:
1556: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1557: aso_debug_pub.ADD (
1558: 'Completing Activity Notify Approve Requisition for approval detail ID :'
1559: || i.approval_det_id,
1560: 1,
1561: 'N'
1574: );
1575:
1576: EXCEPTION
1577: WHEN OTHERS THEN
1578: aso_debug_pub.ADD (
1579: SQLERRM,
1580: 1,
1581: 'N'
1582: );
1583: END;
1584:
1585: -- end fix for bug 3130487
1586:
1587: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1588: aso_debug_pub.ADD (
1589: 'Aborting process for approval detail ID :' || i.approval_det_id,
1590: 1,
1591: 'N'
1584:
1585: -- end fix for bug 3130487
1586:
1587: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1588: aso_debug_pub.ADD (
1589: 'Aborting process for approval detail ID :' || i.approval_det_id,
1590: 1,
1591: 'N'
1592: );
1598: ) || 'DET',
1599: process => '',
1600: result => 'CANCELLED'
1601: );
1602: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1603: aso_debug_pub.ADD (
1604: 'Starting process CANCEL_REQUISITION itemtype is '
1605: || l_itemtype
1606: || ' and itemkey is '
1599: process => '',
1600: result => 'CANCELLED'
1601: );
1602: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1603: aso_debug_pub.ADD (
1604: 'Starting process CANCEL_REQUISITION itemtype is '
1605: || l_itemtype
1606: || ' and itemkey is '
1607: || l_itemkey,
1642: itemkey => l_itemkey,
1643: aname => 'RECEIVER_USERNAME',
1644: avalue => l_forward_user_name
1645: );
1646: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1647: aso_debug_pub.ADD (
1648: 'Receiver username is ' || l_forward_user_name,
1649: 1,
1650: 'N'
1643: aname => 'RECEIVER_USERNAME',
1644: avalue => l_forward_user_name
1645: );
1646: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1647: aso_debug_pub.ADD (
1648: 'Receiver username is ' || l_forward_user_name,
1649: 1,
1650: 'N'
1651: );
1659: itemkey => l_itemkey,
1660: aname => 'RECEIVER_DISPLAYNAME',
1661: avalue => l_forward_displayname
1662: );
1663: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1664: aso_debug_pub.ADD (
1665: 'Receiver displayname is ' || l_forward_displayname,
1666: 1,
1667: 'N'
1660: aname => 'RECEIVER_DISPLAYNAME',
1661: avalue => l_forward_displayname
1662: );
1663: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1664: aso_debug_pub.ADD (
1665: 'Receiver displayname is ' || l_forward_displayname,
1666: 1,
1667: 'N'
1668: );
1672: itemkey => l_itemkey,
1673: aname => 'REQUEST_CANCELLOR_USERNAME',
1674: avalue => l_cancellor_username
1675: );
1676: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1677: aso_debug_pub.ADD (
1678: 'Cancellor username is ' || l_cancellor_username,
1679: 1,
1680: 'N'
1673: aname => 'REQUEST_CANCELLOR_USERNAME',
1674: avalue => l_cancellor_username
1675: );
1676: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1677: aso_debug_pub.ADD (
1678: 'Cancellor username is ' || l_cancellor_username,
1679: 1,
1680: 'N'
1681: );
1685: itemkey => l_itemkey,
1686: aname => 'REQUEST_CANCELLOR_DISPLAYNAME',
1687: avalue => l_cancellor_displayname
1688: );
1689: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1690: aso_debug_pub.ADD (
1691: 'Cancellor displayname is ' || l_cancellor_displayname,
1692: 1,
1693: 'N'
1686: aname => 'REQUEST_CANCELLOR_DISPLAYNAME',
1687: avalue => l_cancellor_displayname
1688: );
1689: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1690: aso_debug_pub.ADD (
1691: 'Cancellor displayname is ' || l_cancellor_displayname,
1692: 1,
1693: 'N'
1694: );
1703: wf_engine.startprocess (
1704: itemtype => l_itemtype,
1705: itemkey => l_itemkey
1706: );
1707: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1708: aso_debug_pub.ADD (
1709: 'Updating detail table setting approver status to cancelled where det id :'
1710: || i.approval_det_id,
1711: 1,
1704: itemtype => l_itemtype,
1705: itemkey => l_itemkey
1706: );
1707: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1708: aso_debug_pub.ADD (
1709: 'Updating detail table setting approver status to cancelled where det id :'
1710: || i.approval_det_id,
1711: 1,
1712: 'N'
1721: last_update_login = fnd_global.user_id
1722: WHERE approval_det_id = i.approval_det_id;
1723: END LOOP;
1724:
1725: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1726: aso_debug_pub.ADD (
1727: 'End of CancelApproval Procedure',
1728: 1,
1729: 'N'
1722: WHERE approval_det_id = i.approval_det_id;
1723: END LOOP;
1724:
1725: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1726: aso_debug_pub.ADD (
1727: 'End of CancelApproval Procedure',
1728: 1,
1729: 'N'
1730: );
1731: END IF;
1732: EXCEPTION
1733: WHEN OTHERS
1734: THEN
1735: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1736: aso_debug_pub.ADD (
1737: 'Exception in CancelApproval SqlCode :' || SQLERRM,
1738: 1,
1739: 'N'
1732: EXCEPTION
1733: WHEN OTHERS
1734: THEN
1735: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1736: aso_debug_pub.ADD (
1737: 'Exception in CancelApproval SqlCode :' || SQLERRM,
1738: 1,
1739: 'N'
1740: );
1743: p_encoded => 'F',
1744: p_count => x_msg_count,
1745: p_data => x_msg_data
1746: );
1747: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1748: aso_debug_pub.ADD (
1749: 'no. of FND messages :' || x_msg_count,
1750: 1,
1751: 'N'
1744: p_count => x_msg_count,
1745: p_data => x_msg_data
1746: );
1747: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1748: aso_debug_pub.ADD (
1749: 'no. of FND messages :' || x_msg_count,
1750: 1,
1751: 'N'
1752: );
1759: p_encoded => 'F'
1760: );
1761: END LOOP;
1762:
1763: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1764: aso_debug_pub.ADD (
1765: 'Msg Data is' || x_msg_data,
1766: 1,
1767: 'N'
1760: );
1761: END LOOP;
1762:
1763: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1764: aso_debug_pub.ADD (
1765: 'Msg Data is' || x_msg_data,
1766: 1,
1767: 'N'
1768: );
1800: get_message_error EXCEPTION;
1801: notif_not_enabled_error EXCEPTION;
1802:
1803: BEGIN
1804: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1805: aso_debug_pub.ADD (
1806: 'Start of SEND NOTIFICATION Procedure',
1807: 1,
1808: 'N'
1801: notif_not_enabled_error EXCEPTION;
1802:
1803: BEGIN
1804: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1805: aso_debug_pub.ADD (
1806: 'Start of SEND NOTIFICATION Procedure',
1807: 1,
1808: 'N'
1809: );
1806: 'Start of SEND NOTIFICATION Procedure',
1807: 1,
1808: 'N'
1809: );
1810: aso_debug_pub.ADD (
1811: 'actid is ' || TO_CHAR (
1812: actid
1813: ),
1814: 1,
1830:
1831: l_notifenabled := ibe_wf_notif_setup_pvt.check_notif_enabled (
1832: l_notifname
1833: );
1834: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1835: aso_debug_pub.ADD (
1836: 'Notification Name: ' || l_notifname || ' Enabled: ' || l_notifenabled,
1837: 1,
1838: 'N'
1831: l_notifenabled := ibe_wf_notif_setup_pvt.check_notif_enabled (
1832: l_notifname
1833: );
1834: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1835: aso_debug_pub.ADD (
1836: 'Notification Name: ' || l_notifname || ' Enabled: ' || l_notifenabled,
1837: 1,
1838: 'N'
1839: );
1846: itemtype,
1847: itemkey,
1848: 'APPROVALID'
1849: );
1850: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1851: aso_debug_pub.ADD (
1852: 'Approval ID :' || l_approval_id,
1853: 1,
1854: 'N'
1847: itemkey,
1848: 'APPROVALID'
1849: );
1850: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1851: aso_debug_pub.ADD (
1852: 'Approval ID :' || l_approval_id,
1853: 1,
1854: 'N'
1855: );
1866: itemkey,
1867: 'ORGID'
1868: );
1869:
1870: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1871: aso_debug_pub.ADD (
1872: 'Org Id is ' || l_orgid,
1873: 1,
1874: 'N'
1867: 'ORGID'
1868: );
1869:
1870: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1871: aso_debug_pub.ADD (
1872: 'Org Id is ' || l_orgid,
1873: 1,
1874: 'N'
1875: );
1888: x_return_status => x_return_status,
1889: x_msg_data => x_msg_data,
1890: x_msg_count => x_msg_count
1891: );
1892: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1893: aso_debug_pub.ADD (
1894: 'Message Name: ' || l_message || ' Enabled: ' || l_msgenabled,
1895: 1,
1896: 'N'
1889: x_msg_data => x_msg_data,
1890: x_msg_count => x_msg_count
1891: );
1892: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1893: aso_debug_pub.ADD (
1894: 'Message Name: ' || l_message || ' Enabled: ' || l_msgenabled,
1895: 1,
1896: 'N'
1897: );
1902: --IF ((x_msg_count > 0)
1903: -- OR (l_message IS NULL)
1904: -- )
1905: THEN
1906: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1907: aso_debug_pub.ADD (
1908: 'Message count is :' || x_msg_count,
1909: 1,
1910: 'N'
1903: -- OR (l_message IS NULL)
1904: -- )
1905: THEN
1906: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1907: aso_debug_pub.ADD (
1908: 'Message count is :' || x_msg_count,
1909: 1,
1910: 'N'
1911: );
1931: -- if the event is not enabled or message is not enabled
1932: -- if the notification requires a response
1933: IF ((l_message LIKE 'REQUEST_APPROVAL%') OR (l_message LIKE 'OA_REQUEST_APPROVAL%'))
1934: THEN
1935: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1936: aso_debug_pub.ADD (
1937: 'Notification not enabled for REQUEST_APPROVAL',
1938: 1,
1939: 'N'
1932: -- if the notification requires a response
1933: IF ((l_message LIKE 'REQUEST_APPROVAL%') OR (l_message LIKE 'OA_REQUEST_APPROVAL%'))
1934: THEN
1935: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1936: aso_debug_pub.ADD (
1937: 'Notification not enabled for REQUEST_APPROVAL',
1938: 1,
1939: 'N'
1940: );
1944: -- if the notification is a FYI
1945: -- Check for FYI Message and if so make the attribute as Approval Message
1946: IF ((l_message LIKE 'FYI_TO_REQUESTER%') OR (l_message LIKE 'OA_FYI_TO_REQUESTER%'))
1947: THEN
1948: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1949: aso_debug_pub.ADD (
1950: 'Setting the message name to OA_REQUEST_APPROVAL',
1951: 1,
1952: 'N'
1945: -- Check for FYI Message and if so make the attribute as Approval Message
1946: IF ((l_message LIKE 'FYI_TO_REQUESTER%') OR (l_message LIKE 'OA_FYI_TO_REQUESTER%'))
1947: THEN
1948: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1949: aso_debug_pub.ADD (
1950: 'Setting the message name to OA_REQUEST_APPROVAL',
1951: 1,
1952: 'N'
1953: );
1969: itemtype,
1970: itemkey,
1971: 'MESSAGE'
1972: );
1973: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1974: aso_debug_pub.ADD (
1975: 'Message is ' || l_message,
1976: 1,
1977: 'N'
1970: itemkey,
1971: 'MESSAGE'
1972: );
1973: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1974: aso_debug_pub.ADD (
1975: 'Message is ' || l_message,
1976: 1,
1977: 'N'
1978: );
1979: END IF;
1980:
1981: IF ((l_message LIKE 'REQUEST_APPROVAL_REMINDER%') OR (l_message LIKE 'OA_REQUEST_APPROVAL_REM%'))
1982: THEN
1983: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1984: aso_debug_pub.ADD (
1985: 'As Message is REQUEST_APPROVAL_REMINDER will cancel original approval notif',
1986: 1,
1987: 'N'
1980:
1981: IF ((l_message LIKE 'REQUEST_APPROVAL_REMINDER%') OR (l_message LIKE 'OA_REQUEST_APPROVAL_REM%'))
1982: THEN
1983: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1984: aso_debug_pub.ADD (
1985: 'As Message is REQUEST_APPROVAL_REMINDER will cancel original approval notif',
1986: 1,
1987: 'N'
1988: );
1991: itemtype,
1992: itemkey,
1993: 'NOTIFICATION_ID'
1994: );
1995: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1996: aso_debug_pub.ADD (
1997: 'Cancelling notification for notification ID :' || l_notification_id,
1998: 1,
1999: 'N'
1992: itemkey,
1993: 'NOTIFICATION_ID'
1994: );
1995: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1996: aso_debug_pub.ADD (
1997: 'Cancelling notification for notification ID :' || l_notification_id,
1998: 1,
1999: 'N'
2000: );
2011: actid,
2012: funcmode,
2013: resultout
2014: );
2015: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2016: aso_debug_pub.ADD (
2017: 'Calling the standard notify process for Itemtype :'
2018: || itemtype
2019: || ' and itemkey :'
2012: funcmode,
2013: resultout
2014: );
2015: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2016: aso_debug_pub.ADD (
2017: 'Calling the standard notify process for Itemtype :'
2018: || itemtype
2019: || ' and itemkey :'
2020: || itemkey,
2023: );
2024: END IF;
2025: -- Store the Notification id for timeout
2026:
2027: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2028: aso_debug_pub.ADD (
2029: 'Storing the notification id so as to be used in timeout case ',
2030: 1,
2031: 'N'
2024: END IF;
2025: -- Store the Notification id for timeout
2026:
2027: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2028: aso_debug_pub.ADD (
2029: 'Storing the notification id so as to be used in timeout case ',
2030: 1,
2031: 'N'
2032: );
2057: l_first_colon_pos + 1,
2058: l_second_colon_pos - l_first_colon_pos - 1
2059: )
2060: );
2061: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2062: aso_debug_pub.ADD (
2063: 'Notification id is ' || l_notification_id,
2064: 1,
2065: 'N'
2058: l_second_colon_pos - l_first_colon_pos - 1
2059: )
2060: );
2061: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2062: aso_debug_pub.ADD (
2063: 'Notification id is ' || l_notification_id,
2064: 1,
2065: 'N'
2066: );
2076:
2077: -- Check for FYI Message and if so make the attribute as Approval Message
2078: IF ((l_message LIKE 'FYI_TO_REQUESTER%') or (l_message LIKE 'OA_FYI_TO_REQUESTER%'))
2079: THEN
2080: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2081: aso_debug_pub.ADD (
2082: 'Setting the message name to OA_REQUEST_APPROVAL',
2083: 1,
2084: 'N'
2077: -- Check for FYI Message and if so make the attribute as Approval Message
2078: IF ((l_message LIKE 'FYI_TO_REQUESTER%') or (l_message LIKE 'OA_FYI_TO_REQUESTER%'))
2079: THEN
2080: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2081: aso_debug_pub.ADD (
2082: 'Setting the message name to OA_REQUEST_APPROVAL',
2083: 1,
2084: 'N'
2085: );
2091: avalue => 'OA_REQUEST_APPROVAL'
2092: );
2093: ELSIF ((l_message LIKE 'REQUEST_APPROVAL%') or (l_message LIKE 'OA_REQUEST_APPROVAL%'))
2094: THEN
2095: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2096: aso_debug_pub.ADD (
2097: 'Setting the message name to OA_REQUEST_APPROVAL_REM',
2098: 1,
2099: 'N'
2092: );
2093: ELSIF ((l_message LIKE 'REQUEST_APPROVAL%') or (l_message LIKE 'OA_REQUEST_APPROVAL%'))
2094: THEN
2095: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2096: aso_debug_pub.ADD (
2097: 'Setting the message name to OA_REQUEST_APPROVAL_REM',
2098: 1,
2099: 'N'
2100: );
2107: );
2108: END IF;
2109:
2110: -- resultout := 'COMPLETE';
2111: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2112: aso_debug_pub.ADD (
2113: 'End of SEND NOTIFICATION Procedure ',
2114: 1,
2115: 'N'
2108: END IF;
2109:
2110: -- resultout := 'COMPLETE';
2111: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2112: aso_debug_pub.ADD (
2113: 'End of SEND NOTIFICATION Procedure ',
2114: 1,
2115: 'N'
2116: );
2120:
2121: IF (funcmode = 'CANCEL')
2122: THEN
2123: resultout := 'COMPLETE';
2124: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2125: aso_debug_pub.ADD (
2126: 'End of SEND NOTIFICATION Procedure ',
2127: 1,
2128: 'N'
2121: IF (funcmode = 'CANCEL')
2122: THEN
2123: resultout := 'COMPLETE';
2124: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2125: aso_debug_pub.ADD (
2126: 'End of SEND NOTIFICATION Procedure ',
2127: 1,
2128: 'N'
2129: );
2131: RETURN;
2132: END IF;
2133:
2134: resultout := '';
2135: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2136: aso_debug_pub.ADD (
2137: 'End of SEND NOTIFICATION Procedure ',
2138: 1,
2139: 'N'
2132: END IF;
2133:
2134: resultout := '';
2135: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2136: aso_debug_pub.ADD (
2137: 'End of SEND NOTIFICATION Procedure ',
2138: 1,
2139: 'N'
2140: );
2142: RETURN;
2143: EXCEPTION
2144: WHEN notif_not_enabled_error
2145: THEN
2146: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2147: aso_debug_pub.ADD (
2148: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2149: 1,
2150: 'N'
2143: EXCEPTION
2144: WHEN notif_not_enabled_error
2145: THEN
2146: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2147: aso_debug_pub.ADD (
2148: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2149: 1,
2150: 'N'
2151: );
2157: );
2158: RAISE;
2159: WHEN get_message_error
2160: THEN
2161: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2162: aso_debug_pub.ADD (
2163: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2164: 1,
2165: 'N'
2158: RAISE;
2159: WHEN get_message_error
2160: THEN
2161: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2162: aso_debug_pub.ADD (
2163: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2164: 1,
2165: 'N'
2166: );
2173: );
2174: RAISE;
2175: WHEN OTHERS
2176: THEN
2177: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2178: aso_debug_pub.ADD (
2179: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2180: 1,
2181: 'N'
2174: RAISE;
2175: WHEN OTHERS
2176: THEN
2177: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2178: aso_debug_pub.ADD (
2179: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2180: 1,
2181: 'N'
2182: );
2287: resp_appl_id number;
2288: BEGIN
2289: -- Initialize the quote header record
2290:
2291: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2292: aso_debug_pub.ADD (
2293: 'Begin Update Entity Procedure ',
2294: 1,
2295: 'N'
2288: BEGIN
2289: -- Initialize the quote header record
2290:
2291: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2292: aso_debug_pub.ADD (
2293: 'Begin Update Entity Procedure ',
2294: 1,
2295: 'N'
2296: );
2314: ELSIF l_notifname = 'OA_REQ_APPR_BY_ALL_APPR' THEN
2315: l_status := 'APPR';
2316: END IF;
2317:
2318: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2319: aso_debug_pub.ADD (
2320: 'Object approval ID :' || l_object_approval_id,
2321: 1,
2322: 'N'
2315: l_status := 'APPR';
2316: END IF;
2317:
2318: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2319: aso_debug_pub.ADD (
2320: 'Object approval ID :' || l_object_approval_id,
2321: 1,
2322: 'N'
2323: );
2320: 'Object approval ID :' || l_object_approval_id,
2321: 1,
2322: 'N'
2323: );
2324: aso_debug_pub.ADD (
2325: 'Status :' || l_status,
2326: 1,
2327: 'N'
2328: );
2359: user_id := fnd_global.user_id;
2360: resp_id := fnd_global.RESP_ID;
2361: resp_appl_id := fnd_global.RESP_APPL_ID;
2362:
2363: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2364: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2365: aso_debug_pub.ADD( 'BEFORE resetting the original values ',1,'N');
2366: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2367: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2360: resp_id := fnd_global.RESP_ID;
2361: resp_appl_id := fnd_global.RESP_APPL_ID;
2362:
2363: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2364: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2365: aso_debug_pub.ADD( 'BEFORE resetting the original values ',1,'N');
2366: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2367: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2368: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2361: resp_appl_id := fnd_global.RESP_APPL_ID;
2362:
2363: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2364: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2365: aso_debug_pub.ADD( 'BEFORE resetting the original values ',1,'N');
2366: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2367: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2368: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2369: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2362:
2363: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2364: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2365: aso_debug_pub.ADD( 'BEFORE resetting the original values ',1,'N');
2366: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2367: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2368: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2369: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2370: END IF;
2363: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2364: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2365: aso_debug_pub.ADD( 'BEFORE resetting the original values ',1,'N');
2366: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2367: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2368: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2369: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2370: END IF;
2371: FND_GLOBAL.APPS_INITIALIZE(g_user_id,0,0,0);
2364: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2365: aso_debug_pub.ADD( 'BEFORE resetting the original values ',1,'N');
2366: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2367: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2368: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2369: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2370: END IF;
2371: FND_GLOBAL.APPS_INITIALIZE(g_user_id,0,0,0);
2372:
2365: aso_debug_pub.ADD( 'BEFORE resetting the original values ',1,'N');
2366: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2367: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2368: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2369: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2370: END IF;
2371: FND_GLOBAL.APPS_INITIALIZE(g_user_id,0,0,0);
2372:
2373: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2369: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2370: END IF;
2371: FND_GLOBAL.APPS_INITIALIZE(g_user_id,0,0,0);
2372:
2373: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2374: aso_debug_pub.ADD( 'After setting the global values ',1,'N');
2375: END IF;
2376:
2377: l_quote_header_rec := aso_quote_pub.g_miss_qte_header_rec;
2370: END IF;
2371: FND_GLOBAL.APPS_INITIALIZE(g_user_id,0,0,0);
2372:
2373: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2374: aso_debug_pub.ADD( 'After setting the global values ',1,'N');
2375: END IF;
2376:
2377: l_quote_header_rec := aso_quote_pub.g_miss_qte_header_rec;
2378:
2380: l_object_approval_id
2381: );
2382: FETCH get_quote_header_id INTO l_quote_header_rec.quote_header_id;
2383: CLOSE get_quote_header_id;
2384: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2385: aso_debug_pub.ADD (
2386: 'Quote Header ID :' || l_quote_header_rec.quote_header_id,
2387: 1,
2388: 'N'
2381: );
2382: FETCH get_quote_header_id INTO l_quote_header_rec.quote_header_id;
2383: CLOSE get_quote_header_id;
2384: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2385: aso_debug_pub.ADD (
2386: 'Quote Header ID :' || l_quote_header_rec.quote_header_id,
2387: 1,
2388: 'N'
2389: );
2400: THEN
2401: -- if contract is enabled, set status to contract enables
2402: IF l_contract_approval_level IS NOT NULL
2403: THEN
2404: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2405: aso_debug_pub.ADD (
2406: 'Setting Quote Status to CONTRACT REQUIRED',
2407: 1,
2408: 'N'
2401: -- if contract is enabled, set status to contract enables
2402: IF l_contract_approval_level IS NOT NULL
2403: THEN
2404: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2405: aso_debug_pub.ADD (
2406: 'Setting Quote Status to CONTRACT REQUIRED',
2407: 1,
2408: 'N'
2409: );
2414: FETCH get_quote_status_id INTO l_quote_header_rec.quote_status_id;
2415: CLOSE get_quote_status_id;
2416: ELSE
2417: -- otherwise set status to APPROVED
2418: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2419: aso_debug_pub.ADD (
2420: 'Setting Quote Status to APPROVED',
2421: 1,
2422: 'N'
2415: CLOSE get_quote_status_id;
2416: ELSE
2417: -- otherwise set status to APPROVED
2418: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2419: aso_debug_pub.ADD (
2420: 'Setting Quote Status to APPROVED',
2421: 1,
2422: 'N'
2423: );
2429: CLOSE get_quote_status_id;
2430: END IF;
2431: ELSIF l_status = 'REJ'
2432: THEN
2433: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2434: aso_debug_pub.ADD (
2435: 'Setting Quote Status to REJECTED',
2436: 1,
2437: 'N'
2430: END IF;
2431: ELSIF l_status = 'REJ'
2432: THEN
2433: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2434: aso_debug_pub.ADD (
2435: 'Setting Quote Status to REJECTED',
2436: 1,
2437: 'N'
2438: );
2443: FETCH get_quote_status_id INTO l_quote_header_rec.quote_status_id;
2444: CLOSE get_quote_status_id;
2445: ELSIF l_status = 'CAN'
2446: THEN
2447: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2448: aso_debug_pub.ADD (
2449: 'Setting Quote Status to APPROVAL CANCELLED ',
2450: 1,
2451: 'N'
2444: CLOSE get_quote_status_id;
2445: ELSIF l_status = 'CAN'
2446: THEN
2447: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2448: aso_debug_pub.ADD (
2449: 'Setting Quote Status to APPROVAL CANCELLED ',
2450: 1,
2451: 'N'
2452: );
2457: FETCH get_quote_status_id INTO l_quote_header_rec.quote_status_id;
2458: CLOSE get_quote_status_id;
2459: ELSIF l_status = 'PEND'
2460: THEN
2461: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2462: aso_debug_pub.ADD (
2463: 'Setting Quote Status to APPROVAL PENDING',
2464: 1,
2465: 'N'
2458: CLOSE get_quote_status_id;
2459: ELSIF l_status = 'PEND'
2460: THEN
2461: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2462: aso_debug_pub.ADD (
2463: 'Setting Quote Status to APPROVAL PENDING',
2464: 1,
2465: 'N'
2466: );
2480: -- Setting the auto version flag to true
2481: l_control_rec.auto_version_flag := fnd_api.g_true;
2482:
2483: -- set the org context , see bug 4731684
2484: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2485: aso_debug_pub.ADD (
2486: 'Before calling update quote: Setting the single org context to org_id: '|| l_quote_header_rec.org_id,
2487: 1,
2488: 'N'
2481: l_control_rec.auto_version_flag := fnd_api.g_true;
2482:
2483: -- set the org context , see bug 4731684
2484: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2485: aso_debug_pub.ADD (
2486: 'Before calling update quote: Setting the single org context to org_id: '|| l_quote_header_rec.org_id,
2487: 1,
2488: 'N'
2489: );
2492:
2493:
2494: -- Update the quote status by calling the update_quote API
2495:
2496: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2497: aso_debug_pub.ADD (
2498: 'Calling the update quote API in ASO_UPDATE_QUOTE_PUB package ',
2499: 1,
2500: 'N'
2493:
2494: -- Update the quote status by calling the update_quote API
2495:
2496: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2497: aso_debug_pub.ADD (
2498: 'Calling the update quote API in ASO_UPDATE_QUOTE_PUB package ',
2499: 1,
2500: 'N'
2501: );
2547: );
2548:
2549: IF x_return_status <> fnd_api.g_ret_sts_success
2550: THEN
2551: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2552: aso_debug_pub.ADD (
2553: 'Return Status from update quote API is :' || x_return_status,
2554: 1,
2555: 'N'
2548:
2549: IF x_return_status <> fnd_api.g_ret_sts_success
2550: THEN
2551: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2552: aso_debug_pub.ADD (
2553: 'Return Status from update quote API is :' || x_return_status,
2554: 1,
2555: 'N'
2556: );
2568:
2569: END IF;
2570:
2571: -- set the org context , see bug 4731684
2572: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2573: aso_debug_pub.ADD (
2574: 'After calling update quote Setting the org context to multi-org org_id:null',
2575: 1,
2576: 'N'
2569: END IF;
2570:
2571: -- set the org context , see bug 4731684
2572: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2573: aso_debug_pub.ADD (
2574: 'After calling update quote Setting the org context to multi-org org_id:null',
2575: 1,
2576: 'N'
2577: );
2581:
2582:
2583: FND_GLOBAL.APPS_INITIALIZE(user_id,resp_id,resp_appl_id,0);
2584:
2585: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2586: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2587: aso_debug_pub.ADD( 'After resetting back the original values ',1,'N');
2588: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2589: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2582:
2583: FND_GLOBAL.APPS_INITIALIZE(user_id,resp_id,resp_appl_id,0);
2584:
2585: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2586: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2587: aso_debug_pub.ADD( 'After resetting back the original values ',1,'N');
2588: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2589: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2590: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2583: FND_GLOBAL.APPS_INITIALIZE(user_id,resp_id,resp_appl_id,0);
2584:
2585: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2586: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2587: aso_debug_pub.ADD( 'After resetting back the original values ',1,'N');
2588: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2589: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2590: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2591: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2584:
2585: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2586: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2587: aso_debug_pub.ADD( 'After resetting back the original values ',1,'N');
2588: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2589: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2590: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2591: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2592: END IF;
2585: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2586: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2587: aso_debug_pub.ADD( 'After resetting back the original values ',1,'N');
2588: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2589: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2590: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2591: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2592: END IF;
2593: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2586: aso_debug_pub.ADD( 'new debug for bug 6072144 ',1,'N');
2587: aso_debug_pub.ADD( 'After resetting back the original values ',1,'N');
2588: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2589: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2590: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2591: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2592: END IF;
2593: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2594: aso_debug_pub.ADD (
2587: aso_debug_pub.ADD( 'After resetting back the original values ',1,'N');
2588: aso_debug_pub.ADD( 'fnd_global.user_id: '|| fnd_global.user_id,1,'N');
2589: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2590: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2591: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2592: END IF;
2593: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2594: aso_debug_pub.ADD (
2595: 'End update entity procedure ',
2589: aso_debug_pub.ADD( 'fnd_global.resp_id: '|| fnd_global.resp_id,1,'N');
2590: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2591: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2592: END IF;
2593: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2594: aso_debug_pub.ADD (
2595: 'End update entity procedure ',
2596: 1,
2597: 'N'
2590: aso_debug_pub.ADD( 'fnd_global.resp_appl_id: '|| fnd_global.resp_appl_id,1,'N');
2591: aso_debug_pub.ADD( 'end debug for bug 6072144 ',1,'N');
2592: END IF;
2593: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2594: aso_debug_pub.ADD (
2595: 'End update entity procedure ',
2596: 1,
2597: 'N'
2598: );
2603: EXCEPTION
2604:
2605: /*bug 3500380 */
2606: WHEN FND_API.G_EXC_ERROR THEN
2607: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2608: aso_debug_pub.ADD (
2609: 'Exception in update entity ',
2610: 1,
2611: 'N'
2604:
2605: /*bug 3500380 */
2606: WHEN FND_API.G_EXC_ERROR THEN
2607: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2608: aso_debug_pub.ADD (
2609: 'Exception in update entity ',
2610: 1,
2611: 'N'
2612: );
2620: funcmode);
2621: RAISE;
2622:
2623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2624: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2625: aso_debug_pub.ADD (
2626: 'Exception in update entity ',
2627: 1,
2628: 'N'
2621: RAISE;
2622:
2623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2624: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2625: aso_debug_pub.ADD (
2626: 'Exception in update entity ',
2627: 1,
2628: 'N'
2629: );
2637: funcmode);
2638: RAISE;
2639:
2640: WHEN OTHERS THEN
2641: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2642: aso_debug_pub.ADD (
2643: 'Exception in update entity ',
2644: 1,
2645: 'N'
2638: RAISE;
2639:
2640: WHEN OTHERS THEN
2641: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2642: aso_debug_pub.ADD (
2643: 'Exception in update entity ',
2644: 1,
2645: 'N'
2646: );
2744: where user_id = l_user_id;
2745:
2746:
2747: BEGIN
2748: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2749: aso_debug_pub.ADD (
2750: 'Begin update approver list procedure ',
2751: 1,
2752: 'N'
2745:
2746:
2747: BEGIN
2748: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2749: aso_debug_pub.ADD (
2750: 'Begin update approver list procedure ',
2751: 1,
2752: 'N'
2753: );
2757: OPEN get_object_id (
2758: p_object_approval_id
2759: );
2760: FETCH get_object_id INTO l_object_id, l_object_type, l_application_id;
2761: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2762: aso_debug_pub.ADD (
2763: 'Object ID :' || l_object_id,
2764: 1,
2765: 'N'
2758: p_object_approval_id
2759: );
2760: FETCH get_object_id INTO l_object_id, l_object_type, l_application_id;
2761: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2762: aso_debug_pub.ADD (
2763: 'Object ID :' || l_object_id,
2764: 1,
2765: 'N'
2766: );
2763: 'Object ID :' || l_object_id,
2764: 1,
2765: 'N'
2766: );
2767: aso_debug_pub.ADD (
2768: 'Object Type :' || l_object_type,
2769: 1,
2770: 'N'
2771: );
2768: 'Object Type :' || l_object_type,
2769: 1,
2770: 'N'
2771: );
2772: aso_debug_pub.ADD (
2773: 'application id :' || l_application_id,
2774: 1,
2775: 'N'
2776: );
2778: -- calling the get all approvers to get the latest list of approvers
2779: -- please note that we are passing the clear transaction flag as false
2780: -- this is to ensure that get all approvers does not clear transactions
2781:
2782: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2783: aso_debug_pub.ADD (
2784: 'Calling get_all_approvers',
2785: 1,
2786: 'N'
2779: -- please note that we are passing the clear transaction flag as false
2780: -- this is to ensure that get all approvers does not clear transactions
2781:
2782: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2783: aso_debug_pub.ADD (
2784: 'Calling get_all_approvers',
2785: 1,
2786: 'N'
2787: );
2804:
2805: -- Checking to find OUT NOCOPY /* file.sql.39 change */ if call to get_all_approvers was successfull
2806: IF l_return_status <> fnd_api.g_ret_sts_success
2807: THEN
2808: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2809: aso_debug_pub.ADD (
2810: 'Status returned from get_all_approvers procedure :' || l_return_status,
2811: 1,
2812: 'N'
2805: -- Checking to find OUT NOCOPY /* file.sql.39 change */ if call to get_all_approvers was successfull
2806: IF l_return_status <> fnd_api.g_ret_sts_success
2807: THEN
2808: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2809: aso_debug_pub.ADD (
2810: 'Status returned from get_all_approvers procedure :' || l_return_status,
2811: 1,
2812: 'N'
2813: );
2822:
2823: IF ((x_approvers_list(i).approver_person_id is null) or (x_approvers_list(i).approver_person_id = fnd_api.g_miss_num) and
2824: (x_approvers_list(i).approver_user_id is not null) and (x_approvers_list(i).approver_user_id <> fnd_api.g_miss_num)) then
2825:
2826: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2827: aso_debug_pub.ADD ('Person_id is null from AME Hence deriving it from user_id',1,'N');
2828: END IF;
2829:
2830: open get_employee_id(x_approvers_list(i).approver_user_id);
2823: IF ((x_approvers_list(i).approver_person_id is null) or (x_approvers_list(i).approver_person_id = fnd_api.g_miss_num) and
2824: (x_approvers_list(i).approver_user_id is not null) and (x_approvers_list(i).approver_user_id <> fnd_api.g_miss_num)) then
2825:
2826: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2827: aso_debug_pub.ADD ('Person_id is null from AME Hence deriving it from user_id',1,'N');
2828: END IF;
2829:
2830: open get_employee_id(x_approvers_list(i).approver_user_id);
2831: fetch get_employee_id into x_approvers_list(i).approver_person_id;
2830: open get_employee_id(x_approvers_list(i).approver_user_id);
2831: fetch get_employee_id into x_approvers_list(i).approver_person_id;
2832: close get_employee_id;
2833:
2834: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2835: aso_debug_pub.ADD ('Derived person_id is: '||to_char(x_approvers_list(i).approver_person_id),1,'N');
2836: END IF;
2837:
2838: END IF;
2831: fetch get_employee_id into x_approvers_list(i).approver_person_id;
2832: close get_employee_id;
2833:
2834: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2835: aso_debug_pub.ADD ('Derived person_id is: '||to_char(x_approvers_list(i).approver_person_id),1,'N');
2836: END IF;
2837:
2838: END IF;
2839: end loop;
2849:
2850: IF l_approver_count <> x_approvers_list.COUNT
2851: THEN
2852: l_approvers_changed_flag := 'Y';
2853: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2854: aso_debug_pub.ADD (
2855: 'The approvers list has changed ',
2856: 1,
2857: 'N'
2850: IF l_approver_count <> x_approvers_list.COUNT
2851: THEN
2852: l_approvers_changed_flag := 'Y';
2853: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2854: aso_debug_pub.ADD (
2855: 'The approvers list has changed ',
2856: 1,
2857: 'N'
2858: );
2857: 'N'
2858: );
2859: END IF;
2860: ELSE
2861: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2862: aso_debug_pub.ADD (
2863: 'Comparing the old list from table and the latest list ',
2864: 1,
2865: 'N'
2858: );
2859: END IF;
2860: ELSE
2861: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2862: aso_debug_pub.ADD (
2863: 'Comparing the old list from table and the latest list ',
2864: 1,
2865: 'N'
2866: );
2909: )
2910: )
2911: THEN
2912: l_approvers_changed_flag := 'Y';
2913: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2914: aso_debug_pub.ADD (
2915: 'The approvers list has changed ',
2916: 1,
2917: 'N'
2910: )
2911: THEN
2912: l_approvers_changed_flag := 'Y';
2913: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2914: aso_debug_pub.ADD (
2915: 'The approvers list has changed ',
2916: 1,
2917: 'N'
2918: );
2918: );
2919: END IF;
2920: EXIT;
2921: ELSE
2922: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2923: aso_debug_pub.ADD (
2924: 'The approvers list has not changed ',
2925: 1,
2926: 'N'
2919: END IF;
2920: EXIT;
2921: ELSE
2922: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2923: aso_debug_pub.ADD (
2924: 'The approvers list has not changed ',
2925: 1,
2926: 'N'
2927: );
2998: END IF;
2999: END LOOP;
3000: END LOOP;
3001:
3002: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3003: aso_debug_pub.ADD (
3004: 'Deleting approvers from detail table where object_approval_id :'
3005: || p_object_approval_id,
3006: 1,
2999: END LOOP;
3000: END LOOP;
3001:
3002: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3003: aso_debug_pub.ADD (
3004: 'Deleting approvers from detail table where object_approval_id :'
3005: || p_object_approval_id,
3006: 1,
3007: 'N'
3013:
3014: l_approver_status := NULL;
3015: -- third loop to insert the data
3016:
3017: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3018: aso_debug_pub.ADD (
3019: 'New Approver count is ' || TO_CHAR (
3020: l_new_approvers_tbl.COUNT
3021: ),
3014: l_approver_status := NULL;
3015: -- third loop to insert the data
3016:
3017: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3018: aso_debug_pub.ADD (
3019: 'New Approver count is ' || TO_CHAR (
3020: l_new_approvers_tbl.COUNT
3021: ),
3022: 1,
3229:
3230: IF l_rule_count <> x_rules_list.COUNT
3231: THEN
3232: l_rules_changed_flag := 'Y';
3233: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3234: aso_debug_pub.ADD (
3235: 'The rules have changed ',
3236: 1,
3237: 'N'
3230: IF l_rule_count <> x_rules_list.COUNT
3231: THEN
3232: l_rules_changed_flag := 'Y';
3233: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3234: aso_debug_pub.ADD (
3235: 'The rules have changed ',
3236: 1,
3237: 'N'
3238: );
3264: ).rule_id
3265: )
3266: THEN
3267: l_rules_changed_flag := 'Y';
3268: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3269: aso_debug_pub.ADD (
3270: 'The rules have changed ',
3271: 1,
3272: 'N'
3265: )
3266: THEN
3267: l_rules_changed_flag := 'Y';
3268: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3269: aso_debug_pub.ADD (
3270: 'The rules have changed ',
3271: 1,
3272: 'N'
3273: );
3273: );
3274: END IF;
3275: EXIT;
3276: ELSE
3277: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3278: aso_debug_pub.ADD (
3279: 'The rules have not changed ',
3280: 1,
3281: 'N'
3274: END IF;
3275: EXIT;
3276: ELSE
3277: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3278: aso_debug_pub.ADD (
3279: 'The rules have not changed ',
3280: 1,
3281: 'N'
3282: );
3295: -- delete the existing rules
3296: DELETE FROM aso_apr_rules
3297: WHERE object_approval_id = p_object_approval_id;
3298:
3299: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3300: aso_debug_pub.ADD (
3301: 'Inserting rows into the rule table ',
3302: 1,
3303: 'N'
3296: DELETE FROM aso_apr_rules
3297: WHERE object_approval_id = p_object_approval_id;
3298:
3299: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3300: aso_debug_pub.ADD (
3301: 'Inserting rows into the rule table ',
3302: 1,
3303: 'N'
3304: );
3374: END LOOP;
3375: END IF;
3376: -- commit the work
3377: COMMIT WORK;
3378: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3379: aso_debug_pub.ADD (
3380: 'End update_approver_list procedure ',
3381: 1,
3382: 'N'
3375: END IF;
3376: -- commit the work
3377: COMMIT WORK;
3378: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3379: aso_debug_pub.ADD (
3380: 'End update_approver_list procedure ',
3381: 1,
3382: 'N'
3383: );
3384: END IF;
3385: EXCEPTION
3386: WHEN get_all_approvers_failed
3387: THEN
3388: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3389: aso_debug_pub.ADD (
3390: 'Call to get_all_approvers failed in update_approver_list ',
3391: 1,
3392: 'N'
3385: EXCEPTION
3386: WHEN get_all_approvers_failed
3387: THEN
3388: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3389: aso_debug_pub.ADD (
3390: 'Call to get_all_approvers failed in update_approver_list ',
3391: 1,
3392: 'N'
3393: );
3396: p_encoded => 'F',
3397: p_count => l_msg_count,
3398: p_data => l_msg_data
3399: );
3400: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3401: aso_debug_pub.ADD (
3402: 'no. of FND messages :' || l_msg_count,
3403: 1,
3404: 'N'
3397: p_count => l_msg_count,
3398: p_data => l_msg_data
3399: );
3400: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3401: aso_debug_pub.ADD (
3402: 'no. of FND messages :' || l_msg_count,
3403: 1,
3404: 'N'
3405: );
3412: p_encoded => 'F'
3413: );
3414: END LOOP;
3415:
3416: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3417: aso_debug_pub.ADD (
3418: 'Msg Data is' || l_msg_data,
3419: 1,
3420: 'N'
3413: );
3414: END LOOP;
3415:
3416: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3417: aso_debug_pub.ADD (
3418: 'Msg Data is' || l_msg_data,
3419: 1,
3420: 'N'
3421: );
3427: );
3428: RAISE;
3429: WHEN OTHERS
3430: THEN
3431: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3432: aso_debug_pub.ADD (
3433: 'When others exception in update approver list procedure ',
3434: 1,
3435: 'N'
3428: RAISE;
3429: WHEN OTHERS
3430: THEN
3431: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3432: aso_debug_pub.ADD (
3433: 'When others exception in update approver list procedure ',
3434: 1,
3435: 'N'
3436: );
3479: SELECT DISTINCT object_id, object_type, application_id
3480: FROM aso_apr_obj_approvals aoa
3481: WHERE object_approval_id = c_object_approval_id;
3482: BEGIN
3483: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3484: aso_debug_pub.ADD (
3485: 'Begin the last_approver_timeout_check prcoedure ',
3486: 1,
3487: 'N'
3480: FROM aso_apr_obj_approvals aoa
3481: WHERE object_approval_id = c_object_approval_id;
3482: BEGIN
3483: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3484: aso_debug_pub.ADD (
3485: 'Begin the last_approver_timeout_check prcoedure ',
3486: 1,
3487: 'N'
3488: );
3492: p_object_approval_id
3493: );
3494: FETCH get_application_id INTO l_object_id, l_object_type, l_application_id;
3495: CLOSE get_application_id;
3496: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3497: aso_debug_pub.ADD (
3498: 'Object ID :' || l_object_id,
3499: 1,
3500: 'N'
3493: );
3494: FETCH get_application_id INTO l_object_id, l_object_type, l_application_id;
3495: CLOSE get_application_id;
3496: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3497: aso_debug_pub.ADD (
3498: 'Object ID :' || l_object_id,
3499: 1,
3500: 'N'
3501: );
3498: 'Object ID :' || l_object_id,
3499: 1,
3500: 'N'
3501: );
3502: aso_debug_pub.ADD (
3503: 'Object Type :' || l_object_type,
3504: 1,
3505: 'N'
3506: );
3503: 'Object Type :' || l_object_type,
3504: 1,
3505: 'N'
3506: );
3507: aso_debug_pub.ADD (
3508: 'application id :' || l_application_id,
3509: 1,
3510: 'N'
3511: );
3508: 'application id :' || l_application_id,
3509: 1,
3510: 'N'
3511: );
3512: aso_debug_pub.ADD (
3513: 'Calling the AME clearall approvals API',
3514: 1,
3515: 'N'
3516: );
3524: FOR i IN get_approvers (
3525: p_object_approval_id
3526: )
3527: LOOP
3528: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3529: aso_debug_pub.ADD (
3530: 'calling the AME get next approver API ',
3531: 1,
3532: 'N'
3525: p_object_approval_id
3526: )
3527: LOOP
3528: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3529: aso_debug_pub.ADD (
3530: 'calling the AME get next approver API ',
3531: 1,
3532: 'N'
3533: );
3537: transactionidin => l_object_id,
3538: transactiontypein => l_object_type,
3539: nextapproverout => new_approver_record
3540: );
3541: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3542: aso_debug_pub.ADD (
3543: 'New Approver Person ID :' || new_approver_record.person_id,
3544: 1,
3545: 'N'
3538: transactiontypein => l_object_type,
3539: nextapproverout => new_approver_record
3540: );
3541: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3542: aso_debug_pub.ADD (
3543: 'New Approver Person ID :' || new_approver_record.person_id,
3544: 1,
3545: 'N'
3546: );
3543: 'New Approver Person ID :' || new_approver_record.person_id,
3544: 1,
3545: 'N'
3546: );
3547: aso_debug_pub.ADD (
3548: 'Setting approval status to no response for previous approvers ',
3549: 1,
3550: 'N'
3551: );
3560: END LOOP;
3561:
3562: -- after getting all the approvers, try to get the next approver
3563:
3564: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3565: aso_debug_pub.ADD (
3566: 'calling the AME get next approver API ',
3567: 1,
3568: 'N'
3561:
3562: -- after getting all the approvers, try to get the next approver
3563:
3564: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3565: aso_debug_pub.ADD (
3566: 'calling the AME get next approver API ',
3567: 1,
3568: 'N'
3569: );
3573: transactionidin => l_object_id,
3574: transactiontypein => l_object_type,
3575: nextapproverout => new_approver_record
3576: );
3577: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3578: aso_debug_pub.ADD (
3579: 'New Approver Person ID :' || new_approver_record.person_id,
3580: 1,
3581: 'N'
3574: transactiontypein => l_object_type,
3575: nextapproverout => new_approver_record
3576: );
3577: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3578: aso_debug_pub.ADD (
3579: 'New Approver Person ID :' || new_approver_record.person_id,
3580: 1,
3581: 'N'
3582: );
3589: AND (new_approver_record.user_id <> fnd_api.g_miss_num)
3590: )
3591: )
3592: THEN
3593: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3594: aso_debug_pub.ADD (
3595: 'Additional Approver found ',
3596: 1,
3597: 'N'
3590: )
3591: )
3592: THEN
3593: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3594: aso_debug_pub.ADD (
3595: 'Additional Approver found ',
3596: 1,
3597: 'N'
3598: );
3601: p_object_approval_id
3602: );
3603: FETCH get_approver_sequence INTO l_approver_sequence;
3604: CLOSE get_approver_sequence;
3605: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3606: aso_debug_pub.ADD (
3607: 'Inserting the new approver into the detail table ',
3608: 1,
3609: 'N'
3602: );
3603: FETCH get_approver_sequence INTO l_approver_sequence;
3604: CLOSE get_approver_sequence;
3605: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3606: aso_debug_pub.ADD (
3607: 'Inserting the new approver into the detail table ',
3608: 1,
3609: 'N'
3610: );
3682: ,
3683: NULL -- p_OBJECT_VERSION_NUMBER
3684: );
3685: ELSE
3686: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3687: aso_debug_pub.ADD (
3688: 'No Additional Approvers found ',
3689: 1,
3690: 'N'
3683: NULL -- p_OBJECT_VERSION_NUMBER
3684: );
3685: ELSE
3686: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3687: aso_debug_pub.ADD (
3688: 'No Additional Approvers found ',
3689: 1,
3690: 'N'
3691: );
3692: END IF;
3693: RETURN;
3694: END IF;
3695:
3696: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3697: aso_debug_pub.ADD (
3698: 'End of last_approver_timeout_check procedure ',
3699: 1,
3700: 'N'
3693: RETURN;
3694: END IF;
3695:
3696: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3697: aso_debug_pub.ADD (
3698: 'End of last_approver_timeout_check procedure ',
3699: 1,
3700: 'N'
3701: );
3702: END IF;
3703: EXCEPTION
3704: WHEN OTHERS
3705: THEN
3706: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3707: aso_debug_pub.ADD (
3708: 'Exception in Last_Approver_Timeout_Check ',
3709: 1,
3710: 'N'
3703: EXCEPTION
3704: WHEN OTHERS
3705: THEN
3706: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3707: aso_debug_pub.ADD (
3708: 'Exception in Last_Approver_Timeout_Check ',
3709: 1,
3710: 'N'
3711: );
3732: l_notifname VARCHAR2 (240);
3733: get_message_error EXCEPTION;
3734:
3735: BEGIN
3736: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3737: aso_debug_pub.ADD (
3738: 'Begin SEND_CANCEL_NOTIFICATION Procedure',
3739: 1,
3740: 'N'
3733: get_message_error EXCEPTION;
3734:
3735: BEGIN
3736: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3737: aso_debug_pub.ADD (
3738: 'Begin SEND_CANCEL_NOTIFICATION Procedure',
3739: 1,
3740: 'N'
3741: );
3738: 'Begin SEND_CANCEL_NOTIFICATION Procedure',
3739: 1,
3740: 'N'
3741: );
3742: aso_debug_pub.ADD (
3743: 'actid is ' || TO_CHAR (
3744: actid
3745: ),
3746: 1,
3754: itemtype,
3755: itemkey,
3756: 'MESSAGE'
3757: );
3758: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3759: aso_debug_pub.ADD (
3760: 'Message is ' || l_message,
3761: 1,
3762: 'N'
3755: itemkey,
3756: 'MESSAGE'
3757: );
3758: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3759: aso_debug_pub.ADD (
3760: 'Message is ' || l_message,
3761: 1,
3762: 'N'
3763: );
3765:
3766: -- Check for FYI Cancel Message and if so make the attribute as Cancel Message to approver
3767: IF ((l_message LIKE 'REQUEST_CANCELLED_FYI%') or (l_message LIKE 'OA_REQUEST_CANCELLED_FYI%'))
3768: THEN
3769: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3770: aso_debug_pub.ADD (
3771: 'Setting message to OA_REQUEST_CANCEL_FYI_TO_APPR',
3772: 1,
3773: 'N'
3766: -- Check for FYI Cancel Message and if so make the attribute as Cancel Message to approver
3767: IF ((l_message LIKE 'REQUEST_CANCELLED_FYI%') or (l_message LIKE 'OA_REQUEST_CANCELLED_FYI%'))
3768: THEN
3769: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3770: aso_debug_pub.ADD (
3771: 'Setting message to OA_REQUEST_CANCEL_FYI_TO_APPR',
3772: 1,
3773: 'N'
3774: );
3774: );
3775: END IF;
3776: l_message := 'OA_REQ_CANCEL_FYI_TO_APPR';
3777: ELSE
3778: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3779: aso_debug_pub.ADD (
3780: 'Setting message to OA_REQUEST_CANCELLED_FYI',
3781: 1,
3782: 'N'
3775: END IF;
3776: l_message := 'OA_REQ_CANCEL_FYI_TO_APPR';
3777: ELSE
3778: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3779: aso_debug_pub.ADD (
3780: 'Setting message to OA_REQUEST_CANCELLED_FYI',
3781: 1,
3782: 'N'
3783: );
3801: l_notifname := 'ASO_' || l_notifname;
3802: l_notifenabled := ibe_wf_notif_setup_pvt.check_notif_enabled (
3803: l_notifname
3804: );
3805: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3806: aso_debug_pub.ADD (
3807: 'Notification Name: ' || l_notifname || ' Enabled: ' || l_notifenabled,
3808: 1,
3809: 'N'
3802: l_notifenabled := ibe_wf_notif_setup_pvt.check_notif_enabled (
3803: l_notifname
3804: );
3805: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3806: aso_debug_pub.ADD (
3807: 'Notification Name: ' || l_notifname || ' Enabled: ' || l_notifenabled,
3808: 1,
3809: 'N'
3810: );
3817: itemtype,
3818: itemkey,
3819: 'APPROVALID'
3820: );
3821: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3822: aso_debug_pub.ADD (
3823: 'Approval Id is ' || l_approval_id,
3824: 1,
3825: 'N'
3818: itemkey,
3819: 'APPROVALID'
3820: );
3821: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3822: aso_debug_pub.ADD (
3823: 'Approval Id is ' || l_approval_id,
3824: 1,
3825: 'N'
3826: );
3836: itemkey,
3837: 'ORGID'
3838: );
3839:
3840: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3841: aso_debug_pub.ADD (
3842: 'Org Id is ' || l_orgid,
3843: 1,
3844: 'N'
3837: 'ORGID'
3838: );
3839:
3840: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3841: aso_debug_pub.ADD (
3842: 'Org Id is ' || l_orgid,
3843: 1,
3844: 'N'
3845: );
3863: -- bug 3295179
3864: IF x_return_status <> fnd_api.g_ret_sts_success
3865: --IF x_msg_count > 0
3866: THEN
3867: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3868: aso_debug_pub.ADD (
3869: 'Message count from MSG mapping API :' || x_msg_count,
3870: 1,
3871: 'N'
3864: IF x_return_status <> fnd_api.g_ret_sts_success
3865: --IF x_msg_count > 0
3866: THEN
3867: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3868: aso_debug_pub.ADD (
3869: 'Message count from MSG mapping API :' || x_msg_count,
3870: 1,
3871: 'N'
3872: );
3877: -- If the notification is not enabled
3878: resultout := 'COMPLETE';
3879: END IF;
3880:
3881: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3882: aso_debug_pub.ADD (
3883: 'Calling the standard notify process ',
3884: 1,
3885: 'N'
3878: resultout := 'COMPLETE';
3879: END IF;
3880:
3881: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3882: aso_debug_pub.ADD (
3883: 'Calling the standard notify process ',
3884: 1,
3885: 'N'
3886: );
3891: actid,
3892: funcmode,
3893: resultout
3894: );
3895: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3896: aso_debug_pub.ADD (
3897: 'End SEND_CANCEL_NOTIFICATION Procedure',
3898: 1,
3899: 'N'
3892: funcmode,
3893: resultout
3894: );
3895: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3896: aso_debug_pub.ADD (
3897: 'End SEND_CANCEL_NOTIFICATION Procedure',
3898: 1,
3899: 'N'
3900: );
3904:
3905: IF (funcmode = 'CANCEL')
3906: THEN
3907: resultout := 'COMPLETE';
3908: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3909: aso_debug_pub.ADD (
3910: 'End of SEND_CANCEL_NOTIFICATION Procedure',
3911: 1,
3912: 'N'
3905: IF (funcmode = 'CANCEL')
3906: THEN
3907: resultout := 'COMPLETE';
3908: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3909: aso_debug_pub.ADD (
3910: 'End of SEND_CANCEL_NOTIFICATION Procedure',
3911: 1,
3912: 'N'
3913: );
3915: RETURN;
3916: END IF;
3917:
3918: resultout := '';
3919: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3920: aso_debug_pub.ADD (
3921: 'End of SEND_CANCEL_NOTIFICATION Procedure',
3922: 1,
3923: 'N'
3916: END IF;
3917:
3918: resultout := '';
3919: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3920: aso_debug_pub.ADD (
3921: 'End of SEND_CANCEL_NOTIFICATION Procedure',
3922: 1,
3923: 'N'
3924: );
3926: RETURN;
3927: EXCEPTION
3928: WHEN get_message_error
3929: THEN
3930: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3931: aso_debug_pub.ADD (
3932: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
3933: 1,
3934: 'N'
3927: EXCEPTION
3928: WHEN get_message_error
3929: THEN
3930: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3931: aso_debug_pub.ADD (
3932: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
3933: 1,
3934: 'N'
3935: );
3942: );
3943: RAISE;
3944: WHEN OTHERS
3945: THEN
3946: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3947: aso_debug_pub.ADD (
3948: 'Exception in SEND_CANCEL_NOTIFICATION Process SqlCode :' || SQLERRM,
3949: 1,
3950: 'N'
3943: RAISE;
3944: WHEN OTHERS
3945: THEN
3946: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3947: aso_debug_pub.ADD (
3948: 'Exception in SEND_CANCEL_NOTIFICATION Process SqlCode :' || SQLERRM,
3949: 1,
3950: 'N'
3951: );
3987: AND object_approval_id = c_object_approval_id
3988: AND fl.lookup_type = 'ASO_APPROVER_STATUS'
3989: ORDER BY approver_sequence;
3990: BEGIN
3991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3992: aso_debug_pub.ADD (
3993: 'Begin APPROVER_DETAILS_DOC procedure ',
3994: 1,
3995: 'N'
3988: AND fl.lookup_type = 'ASO_APPROVER_STATUS'
3989: ORDER BY approver_sequence;
3990: BEGIN
3991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3992: aso_debug_pub.ADD (
3993: 'Begin APPROVER_DETAILS_DOC procedure ',
3994: 1,
3995: 'N'
3996: );
4017: itemtype => itemtype,
4018: itemkey => itemkey,
4019: aname => 'APPROVALID'
4020: );
4021: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4022: aso_debug_pub.ADD (
4023: 'ItemType is:' || itemtype,
4024: 1,
4025: 'N'
4018: itemkey => itemkey,
4019: aname => 'APPROVALID'
4020: );
4021: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4022: aso_debug_pub.ADD (
4023: 'ItemType is:' || itemtype,
4024: 1,
4025: 'N'
4026: );
4023: 'ItemType is:' || itemtype,
4024: 1,
4025: 'N'
4026: );
4027: aso_debug_pub.ADD (
4028: 'ItemKey is :' || itemkey,
4029: 1,
4030: 'N'
4031: );
4028: 'ItemKey is :' || itemkey,
4029: 1,
4030: 'N'
4031: );
4032: aso_debug_pub.ADD (
4033: 'Approval ID :' || l_approval_id,
4034: 1,
4035: 'N'
4036: );
4035: 'N'
4036: );
4037: END IF;
4038: -- get the attribute label
4039: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4040: aso_debug_pub.ADD (
4041: 'Calling the get_attribute_label procedure',
4042: 1,
4043: 'N'
4036: );
4037: END IF;
4038: -- get the attribute label
4039: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4040: aso_debug_pub.ADD (
4041: 'Calling the get_attribute_label procedure',
4042: 1,
4043: 'N'
4044: );
4050:
4051: -- Create an html text buffer
4052: IF (display_type = 'text/html')
4053: THEN
4054: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4055: aso_debug_pub.ADD (
4056: 'Display type is text/html',
4057: 1,
4058: 'N'
4051: -- Create an html text buffer
4052: IF (display_type = 'text/html')
4053: THEN
4054: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4055: aso_debug_pub.ADD (
4056: 'Display type is text/html',
4057: 1,
4058: 'N'
4059: );
4090: aso_apr_int.get_approver_name (
4091: i.approver_user_id,
4092: i.approver_person_id
4093: );
4094: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4095: aso_debug_pub.ADD (
4096: 'Approver Name is ' || l_approver_display_name,
4097: 1,
4098: 'N'
4091: i.approver_user_id,
4092: i.approver_person_id
4093: );
4094: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4095: aso_debug_pub.ADD (
4096: 'Approver Name is ' || l_approver_display_name,
4097: 1,
4098: 'N'
4099: );
4117: -- Create a plain text buffer
4118:
4119: IF (display_type = 'text/plain')
4120: THEN
4121: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4122: aso_debug_pub.ADD (
4123: 'Display type is text/plain',
4124: 1,
4125: 'N'
4118:
4119: IF (display_type = 'text/plain')
4120: THEN
4121: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4122: aso_debug_pub.ADD (
4123: 'Display type is text/plain',
4124: 1,
4125: 'N'
4126: );
4165:
4166: document_type := 'text/plain';
4167: END IF;
4168:
4169: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4170: aso_debug_pub.ADD (
4171: 'End APPROVER_DETAILS_DOC procedure ',
4172: 1,
4173: 'N'
4166: document_type := 'text/plain';
4167: END IF;
4168:
4169: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4170: aso_debug_pub.ADD (
4171: 'End APPROVER_DETAILS_DOC procedure ',
4172: 1,
4173: 'N'
4174: );
4175: END IF;
4176: EXCEPTION
4177: WHEN OTHERS
4178: THEN
4179: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4180: aso_debug_pub.ADD (
4181: 'Exception in APPROVER_DETAILS_DOC SqlCode :' || SQLERRM,
4182: 1,
4183: 'N'
4176: EXCEPTION
4177: WHEN OTHERS
4178: THEN
4179: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4180: aso_debug_pub.ADD (
4181: 'Exception in APPROVER_DETAILS_DOC SqlCode :' || SQLERRM,
4182: 1,
4183: 'N'
4184: );
4277: AND qh.quote_header_id = aoa.object_id
4278: AND aoa.object_approval_id = c_approval_id;
4279:
4280: BEGIN
4281: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4282: aso_debug_pub.ADD (
4283: 'Begin QUOTE_SUMMARY_DOC procedure ',
4284: 1,
4285: 'N'
4278: AND aoa.object_approval_id = c_approval_id;
4279:
4280: BEGIN
4281: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4282: aso_debug_pub.ADD (
4283: 'Begin QUOTE_SUMMARY_DOC procedure ',
4284: 1,
4285: 'N'
4286: );
4307: itemtype => itemtype,
4308: itemkey => itemkey,
4309: aname => 'APPROVALID'
4310: );
4311: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4312: aso_debug_pub.ADD (
4313: 'ItemType is:' || itemtype,
4314: 1,
4315: 'N'
4308: itemkey => itemkey,
4309: aname => 'APPROVALID'
4310: );
4311: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4312: aso_debug_pub.ADD (
4313: 'ItemType is:' || itemtype,
4314: 1,
4315: 'N'
4316: );
4313: 'ItemType is:' || itemtype,
4314: 1,
4315: 'N'
4316: );
4317: aso_debug_pub.ADD (
4318: 'ItemKey is :' || itemkey,
4319: 1,
4320: 'N'
4321: );
4318: 'ItemKey is :' || itemkey,
4319: 1,
4320: 'N'
4321: );
4322: aso_debug_pub.ADD (
4323: 'Approval ID :' || l_approval_id,
4324: 1,
4325: 'N'
4326: );
4337: l_quote_header_id
4338: );
4339: FETCH get_customer_name INTO l_customer_name;
4340: CLOSE get_customer_name;
4341: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4342: aso_debug_pub.ADD (
4343: 'Customer Name is ' || l_customer_name,
4344: 1,
4345: 'N'
4338: );
4339: FETCH get_customer_name INTO l_customer_name;
4340: CLOSE get_customer_name;
4341: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4342: aso_debug_pub.ADD (
4343: 'Customer Name is ' || l_customer_name,
4344: 1,
4345: 'N'
4346: );
4349: l_quote_header_id
4350: );
4351: FETCH get_account_number INTO l_account_number;
4352: CLOSE get_account_number;
4353: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4354: aso_debug_pub.ADD (
4355: 'Customer Account Number is ' || l_account_number,
4356: 1,
4357: 'N'
4350: );
4351: FETCH get_account_number INTO l_account_number;
4352: CLOSE get_account_number;
4353: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4354: aso_debug_pub.ADD (
4355: 'Customer Account Number is ' || l_account_number,
4356: 1,
4357: 'N'
4358: );
4363: l_approval_id
4364: );
4365: FETCH get_opportunity_name INTO l_opportunity_name;
4366: CLOSE get_opportunity_name;
4367: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4368: aso_debug_pub.ADD (
4369: 'Opportunity Name :' || l_opportunity_name,
4370: 1,
4371: 'N'
4364: );
4365: FETCH get_opportunity_name INTO l_opportunity_name;
4366: CLOSE get_opportunity_name;
4367: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4368: aso_debug_pub.ADD (
4369: 'Opportunity Name :' || l_opportunity_name,
4370: 1,
4371: 'N'
4372: );
4383: );
4384: FETCH get_contact_name INTO l_contact_name;
4385: CLOSE get_contact_name;
4386: END IF;
4387: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4388: aso_debug_pub.ADD (
4389: 'Contact Name :' || l_contact_name,
4390: 1,
4391: 'N'
4384: FETCH get_contact_name INTO l_contact_name;
4385: CLOSE get_contact_name;
4386: END IF;
4387: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4388: aso_debug_pub.ADD (
4389: 'Contact Name :' || l_contact_name,
4390: 1,
4391: 'N'
4392: );
4392: );
4393: END IF;
4394: -- get the attribute labels
4395:
4396: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4397: aso_debug_pub.ADD (
4398: 'Calling the get_attribute_label proceure ',
4399: 1,
4400: 'N'
4393: END IF;
4394: -- get the attribute labels
4395:
4396: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4397: aso_debug_pub.ADD (
4398: 'Calling the get_attribute_label proceure ',
4399: 1,
4400: 'N'
4401: );
4407:
4408: -- Create an html text buffer
4409: IF (display_type = 'text/html')
4410: THEN
4411: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4412: aso_debug_pub.ADD (
4413: 'Display type is text/html',
4414: 1,
4415: 'N'
4408: -- Create an html text buffer
4409: IF (display_type = 'text/html')
4410: THEN
4411: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4412: aso_debug_pub.ADD (
4413: 'Display type is text/html',
4414: 1,
4415: 'N'
4416: );
4505: -- Create a plain text buffer
4506:
4507: IF (display_type = 'text/plain')
4508: THEN
4509: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4510: aso_debug_pub.ADD (
4511: 'Display type is text/plain',
4512: 1,
4513: 'N'
4506:
4507: IF (display_type = 'text/plain')
4508: THEN
4509: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4510: aso_debug_pub.ADD (
4511: 'Display type is text/plain',
4512: 1,
4513: 'N'
4514: );
4571: document := document || l_expiration_date;
4572: document_type := 'text/plain';
4573: END IF;
4574:
4575: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4576: aso_debug_pub.ADD (
4577: 'End QUOTE_SUMMARY_DOC procedure ',
4578: 1,
4579: 'N'
4572: document_type := 'text/plain';
4573: END IF;
4574:
4575: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4576: aso_debug_pub.ADD (
4577: 'End QUOTE_SUMMARY_DOC procedure ',
4578: 1,
4579: 'N'
4580: );
4581: END IF;
4582: EXCEPTION
4583: WHEN OTHERS
4584: THEN
4585: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4586: aso_debug_pub.ADD (
4587: 'Exception in QUOTE_SUMMARY_DOC SqlCode :' || SQLERRM,
4588: 1,
4589: 'N'
4582: EXCEPTION
4583: WHEN OTHERS
4584: THEN
4585: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4586: aso_debug_pub.ADD (
4587: 'Exception in QUOTE_SUMMARY_DOC SqlCode :' || SQLERRM,
4588: 1,
4589: 'N'
4590: );
4617: SELECT requester_comments
4618: FROM aso_apr_obj_approvals
4619: WHERE object_approval_id = c_approval_id;
4620: BEGIN
4621: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4622: aso_debug_pub.ADD (
4623: 'Begin REQUESTER_COMMENTS_DOC procedure ',
4624: 1,
4625: 'N'
4618: FROM aso_apr_obj_approvals
4619: WHERE object_approval_id = c_approval_id;
4620: BEGIN
4621: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4622: aso_debug_pub.ADD (
4623: 'Begin REQUESTER_COMMENTS_DOC procedure ',
4624: 1,
4625: 'N'
4626: );
4647: itemtype => itemtype,
4648: itemkey => itemkey,
4649: aname => 'APPROVALID'
4650: );
4651: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4652: aso_debug_pub.ADD (
4653: 'ItemType is:' || itemtype,
4654: 1,
4655: 'N'
4648: itemkey => itemkey,
4649: aname => 'APPROVALID'
4650: );
4651: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4652: aso_debug_pub.ADD (
4653: 'ItemType is:' || itemtype,
4654: 1,
4655: 'N'
4656: );
4653: 'ItemType is:' || itemtype,
4654: 1,
4655: 'N'
4656: );
4657: aso_debug_pub.ADD (
4658: 'ItemKey is :' || itemkey,
4659: 1,
4660: 'N'
4661: );
4658: 'ItemKey is :' || itemkey,
4659: 1,
4660: 'N'
4661: );
4662: aso_debug_pub.ADD (
4663: 'Approval ID :' || l_approval_id,
4664: 1,
4665: 'N'
4666: );
4666: );
4667: END IF;
4668: -- get the attribute labels
4669:
4670: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4671: aso_debug_pub.ADD (
4672: 'Calling the get_attribute_label procedure ',
4673: 1,
4674: 'N'
4667: END IF;
4668: -- get the attribute labels
4669:
4670: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4671: aso_debug_pub.ADD (
4672: 'Calling the get_attribute_label procedure ',
4673: 1,
4674: 'N'
4675: );
4681:
4682: -- Create an html text buffer
4683: IF (display_type = 'text/html')
4684: THEN
4685: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4686: aso_debug_pub.ADD (
4687: 'Display type is text/html',
4688: 1,
4689: 'N'
4682: -- Create an html text buffer
4683: IF (display_type = 'text/html')
4684: THEN
4685: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4686: aso_debug_pub.ADD (
4687: 'Display type is text/html',
4688: 1,
4689: 'N'
4690: );
4693: l_approval_id
4694: );
4695: FETCH get_requester_details INTO l_requester_comments;
4696: CLOSE get_requester_details;
4697: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4698: aso_debug_pub.ADD (
4699: 'Creating a text/html document ',
4700: 1,
4701: 'N'
4694: );
4695: FETCH get_requester_details INTO l_requester_comments;
4696: CLOSE get_requester_details;
4697: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4698: aso_debug_pub.ADD (
4699: 'Creating a text/html document ',
4700: 1,
4701: 'N'
4702: );
4719: -- Create a plain text buffer
4720:
4721: IF (display_type = 'text/plain')
4722: THEN
4723: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4724: aso_debug_pub.ADD (
4725: 'Display type is text/plain',
4726: 1,
4727: 'N'
4720:
4721: IF (display_type = 'text/plain')
4722: THEN
4723: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4724: aso_debug_pub.ADD (
4725: 'Display type is text/plain',
4726: 1,
4727: 'N'
4728: );
4749: );
4750: document_type := 'text/plain';
4751: END IF;
4752:
4753: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4754: aso_debug_pub.ADD (
4755: 'End REQUESTER_COMMENTS_DOC procedure ',
4756: 1,
4757: 'N'
4750: document_type := 'text/plain';
4751: END IF;
4752:
4753: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4754: aso_debug_pub.ADD (
4755: 'End REQUESTER_COMMENTS_DOC procedure ',
4756: 1,
4757: 'N'
4758: );
4759: END IF;
4760: EXCEPTION
4761: WHEN OTHERS
4762: THEN
4763: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4764: aso_debug_pub.ADD (
4765: 'Exception in REQUESTER_COMMENTS_DOC SqlCode :' || SQLERRM,
4766: 1,
4767: 'N'
4760: EXCEPTION
4761: WHEN OTHERS
4762: THEN
4763: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4764: aso_debug_pub.ADD (
4765: 'Exception in REQUESTER_COMMENTS_DOC SqlCode :' || SQLERRM,
4766: 1,
4767: 'N'
4768: );
4799: SELECT oam_rule_id
4800: FROM aso_apr_rules
4801: WHERE object_approval_id = c_approval_id;
4802: BEGIN
4803: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4804: aso_debug_pub.ADD (
4805: 'Begin RULE_DETAILS_DOC procedure ',
4806: 1,
4807: 'N'
4800: FROM aso_apr_rules
4801: WHERE object_approval_id = c_approval_id;
4802: BEGIN
4803: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4804: aso_debug_pub.ADD (
4805: 'Begin RULE_DETAILS_DOC procedure ',
4806: 1,
4807: 'N'
4808: );
4829: itemtype => itemtype,
4830: itemkey => itemkey,
4831: aname => 'APPROVALID'
4832: );
4833: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4834: aso_debug_pub.ADD (
4835: 'ItemType is:' || itemtype,
4836: 1,
4837: 'N'
4830: itemkey => itemkey,
4831: aname => 'APPROVALID'
4832: );
4833: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4834: aso_debug_pub.ADD (
4835: 'ItemType is:' || itemtype,
4836: 1,
4837: 'N'
4838: );
4835: 'ItemType is:' || itemtype,
4836: 1,
4837: 'N'
4838: );
4839: aso_debug_pub.ADD (
4840: 'ItemKey is :' || itemkey,
4841: 1,
4842: 'N'
4843: );
4840: 'ItemKey is :' || itemkey,
4841: 1,
4842: 'N'
4843: );
4844: aso_debug_pub.ADD (
4845: 'Approval ID :' || l_approval_id,
4846: 1,
4847: 'N'
4848: );
4848: );
4849: END IF;
4850: -- get the attribute label
4851:
4852: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4853: aso_debug_pub.ADD (
4854: 'Calling the get_attribute_label procedure ',
4855: 1,
4856: 'N'
4849: END IF;
4850: -- get the attribute label
4851:
4852: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4853: aso_debug_pub.ADD (
4854: 'Calling the get_attribute_label procedure ',
4855: 1,
4856: 'N'
4857: );
4863:
4864: -- Create an html text buffer
4865: IF (display_type = 'text/html')
4866: THEN
4867: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4868: aso_debug_pub.ADD (
4869: 'Display type is text/html',
4870: 1,
4871: 'N'
4864: -- Create an html text buffer
4865: IF (display_type = 'text/html')
4866: THEN
4867: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4868: aso_debug_pub.ADD (
4869: 'Display type is text/html',
4870: 1,
4871: 'N'
4872: );
4897: FOR i IN get_rule_details (
4898: l_approval_id
4899: )
4900: LOOP
4901: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4902: aso_debug_pub.ADD (
4903: 'Calling AME get applicable rules procedure',
4904: 1,
4905: 'N'
4898: l_approval_id
4899: )
4900: LOOP
4901: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4902: aso_debug_pub.ADD (
4903: 'Calling AME get applicable rules procedure',
4904: 1,
4905: 'N'
4906: );
4921: document := document
4922: || '
4922: || '
4927: 'Rule Description is ' || l_rule_description,
4928: 1,
4929: 'N'
4930: );
4931: aso_debug_pub.ADD (
4932: 'Approval level is ' || l_approval_level,
4933: 1,
4934: 'N'
4935: );
4943: -- Create a plain text buffer
4944:
4945: IF (display_type = 'text/plain')
4946: THEN
4947: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4948: aso_debug_pub.ADD (
4949: 'Display type is text/plain',
4950: 1,
4951: 'N'
4944:
4945: IF (display_type = 'text/plain')
4946: THEN
4947: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4948: aso_debug_pub.ADD (
4949: 'Display type is text/plain',
4950: 1,
4951: 'N'
4952: );
4964: FOR i IN get_rule_details (
4965: l_approval_id
4966: )
4967: LOOP
4968: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4969: aso_debug_pub.ADD (
4970: 'Calling AME get applicable rules procedure',
4971: 1,
4972: 'N'
4965: l_approval_id
4966: )
4967: LOOP
4968: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4969: aso_debug_pub.ADD (
4970: 'Calling AME get applicable rules procedure',
4971: 1,
4972: 'N'
4973: );
4998:
4999: document_type := 'text/plain';
5000: END IF;
5001:
5002: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5003: aso_debug_pub.ADD (
5004: 'End RULE_DETAILS_DOC procedure ',
5005: 1,
5006: 'N'
4999: document_type := 'text/plain';
5000: END IF;
5001:
5002: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5003: aso_debug_pub.ADD (
5004: 'End RULE_DETAILS_DOC procedure ',
5005: 1,
5006: 'N'
5007: );
5008: END IF;
5009: EXCEPTION
5010: WHEN OTHERS
5011: THEN
5012: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5013: aso_debug_pub.ADD (
5014: 'Exception in RULE_DETAILS_DOC SqlCode :' || SQLERRM,
5015: 1,
5016: 'N'
5009: EXCEPTION
5010: WHEN OTHERS
5011: THEN
5012: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5013: aso_debug_pub.ADD (
5014: 'Exception in RULE_DETAILS_DOC SqlCode :' || SQLERRM,
5015: 1,
5016: 'N'
5017: );
5068: AND nvl(qha.cust_account_id,0 ) = hca.cust_account_id (+)
5069: AND qha.cust_party_id = hp.party_id;
5070:
5071: BEGIN
5072: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5073: aso_debug_pub.ADD (
5074: 'Begin QUOTE_DETAIL_URL procedure ',
5075: 1,
5076: 'N'
5069: AND qha.cust_party_id = hp.party_id;
5070:
5071: BEGIN
5072: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5073: aso_debug_pub.ADD (
5074: 'Begin QUOTE_DETAIL_URL procedure ',
5075: 1,
5076: 'N'
5077: );
5098: itemtype => itemtype,
5099: itemkey => itemkey,
5100: aname => 'APPROVALID'
5101: );
5102: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5103: aso_debug_pub.ADD (
5104: 'ItemType is:' || itemtype,
5105: 1,
5106: 'N'
5099: itemkey => itemkey,
5100: aname => 'APPROVALID'
5101: );
5102: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5103: aso_debug_pub.ADD (
5104: 'ItemType is:' || itemtype,
5105: 1,
5106: 'N'
5107: );
5104: 'ItemType is:' || itemtype,
5105: 1,
5106: 'N'
5107: );
5108: aso_debug_pub.ADD (
5109: 'ItemKey is :' || itemkey,
5110: 1,
5111: 'N'
5112: );
5109: 'ItemKey is :' || itemkey,
5110: 1,
5111: 'N'
5112: );
5113: aso_debug_pub.ADD (
5114: 'Approval ID :' || l_approval_id,
5115: 1,
5116: 'N'
5117: );
5129: FETCH get_quote_details INTO l_cust_account_id,
5130: l_party_type;
5131: CLOSE get_quote_details;
5132:
5133: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5134: aso_debug_pub.ADD (
5135: 'Quote header ID is ' || l_quote_header_id,
5136: 1,
5137: 'N'
5130: l_party_type;
5131: CLOSE get_quote_details;
5132:
5133: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5134: aso_debug_pub.ADD (
5135: 'Quote header ID is ' || l_quote_header_id,
5136: 1,
5137: 'N'
5138: );
5139: END IF;
5140: -- get the server address
5141: l_url := fnd_web_config.jsp_agent (
5142: );
5143: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5144: aso_debug_pub.ADD (
5145: 'URL ID is ' || l_url,
5146: 1,
5147: 'N'
5140: -- get the server address
5141: l_url := fnd_web_config.jsp_agent (
5142: );
5143: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5144: aso_debug_pub.ADD (
5145: 'URL ID is ' || l_url,
5146: 1,
5147: 'N'
5148: );
5226:
5227: -- Create an html text buffer
5228: IF (display_type = 'text/html')
5229: THEN
5230: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5231: aso_debug_pub.ADD (
5232: 'Display type is text/html',
5233: 1,
5234: 'N'
5227: -- Create an html text buffer
5228: IF (display_type = 'text/html')
5229: THEN
5230: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5231: aso_debug_pub.ADD (
5232: 'Display type is text/html',
5233: 1,
5234: 'N'
5235: );
5248: -- Create a plain text buffer
5249:
5250: IF (display_type = 'text/plain')
5251: THEN
5252: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5253: aso_debug_pub.ADD (
5254: 'Display type is text/plain',
5255: 1,
5256: 'N'
5249:
5250: IF (display_type = 'text/plain')
5251: THEN
5252: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5253: aso_debug_pub.ADD (
5254: 'Display type is text/plain',
5255: 1,
5256: 'N'
5257: );
5259: NULL;
5260: document_type := 'text/plain';
5261: END IF;
5262:
5263: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5264: aso_debug_pub.ADD (
5265: 'End QUOTE_DETAIL_URL procedure ',
5266: 1,
5267: 'N'
5260: document_type := 'text/plain';
5261: END IF;
5262:
5263: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5264: aso_debug_pub.ADD (
5265: 'End QUOTE_DETAIL_URL procedure ',
5266: 1,
5267: 'N'
5268: );
5269: END IF;
5270: EXCEPTION
5271: WHEN OTHERS
5272: THEN
5273: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5274: aso_debug_pub.ADD (
5275: 'Exception in QUOTE_DETAIL_URL SqlCode :' || SQLERRM,
5276: 1,
5277: 'N'
5270: EXCEPTION
5271: WHEN OTHERS
5272: THEN
5273: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5274: aso_debug_pub.ADD (
5275: 'Exception in QUOTE_DETAIL_URL SqlCode :' || SQLERRM,
5276: 1,
5277: 'N'
5278: );
5311: AND AAT.ATTRIBUTE_CODE = ARA.ATTRIBUTE_CODE
5312: AND AAT.LANGUAGE = USERENV('LANG')
5313: ORDER by display_sequence;
5314: BEGIN
5315: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5316: aso_debug_pub.ADD (
5317: 'begin GET_ATTRIBUTE_LABEL procedure ',
5318: 1,
5319: 'N'
5312: AND AAT.LANGUAGE = USERENV('LANG')
5313: ORDER by display_sequence;
5314: BEGIN
5315: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5316: aso_debug_pub.ADD (
5317: 'begin GET_ATTRIBUTE_LABEL procedure ',
5318: 1,
5319: 'N'
5320: );
5324: p_approval_id
5325: );
5326: FETCH get_application_id INTO l_application_id;
5327: CLOSE get_application_id;
5328: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5329: aso_debug_pub.ADD (
5330: 'Application ID is ' || l_application_id,
5331: 1,
5332: 'N'
5325: );
5326: FETCH get_application_id INTO l_application_id;
5327: CLOSE get_application_id;
5328: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5329: aso_debug_pub.ADD (
5330: 'Application ID is ' || l_application_id,
5331: 1,
5332: 'N'
5333: );
5344: p_attribute_tbl.EXTEND;
5345: p_attribute_tbl (
5346: p_attribute_tbl.COUNT
5347: ) := i.attribute_label_long;
5348: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5349: aso_debug_pub.ADD (
5350: 'Label is ' || p_attribute_tbl (
5351: p_attribute_tbl.COUNT
5352: ),
5345: p_attribute_tbl (
5346: p_attribute_tbl.COUNT
5347: ) := i.attribute_label_long;
5348: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5349: aso_debug_pub.ADD (
5350: 'Label is ' || p_attribute_tbl (
5351: p_attribute_tbl.COUNT
5352: ),
5353: 1,
5355: );
5356: END IF;
5357: END LOOP;
5358:
5359: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5360: aso_debug_pub.ADD (
5361: 'Count of labels is ' || p_attribute_tbl.COUNT,
5362: 1,
5363: 'N'
5356: END IF;
5357: END LOOP;
5358:
5359: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5360: aso_debug_pub.ADD (
5361: 'Count of labels is ' || p_attribute_tbl.COUNT,
5362: 1,
5363: 'N'
5364: );
5361: 'Count of labels is ' || p_attribute_tbl.COUNT,
5362: 1,
5363: 'N'
5364: );
5365: aso_debug_pub.ADD (
5366: 'End GET_ATTRIBUTE_LABEL procedure ',
5367: 1,
5368: 'N'
5369: );
5370: END IF;
5371: EXCEPTION
5372: WHEN OTHERS
5373: THEN
5374: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5375: aso_debug_pub.ADD (
5376: 'Exception in GET_ATTRIBUTE_LABEL SqlCode :' || SQLERRM,
5377: 1,
5378: 'N'
5371: EXCEPTION
5372: WHEN OTHERS
5373: THEN
5374: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5375: aso_debug_pub.ADD (
5376: 'Exception in GET_ATTRIBUTE_LABEL SqlCode :' || SQLERRM,
5377: 1,
5378: 'N'
5379: );
5457: WHERE qha.quote_header_id = aoa.object_id
5458: AND aoa.object_approval_id = c_approval_id;
5459:
5460: BEGIN
5461: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5462: aso_debug_pub.ADD (
5463: 'Begin set attribute Process',
5464: 1,
5465: 'N'
5458: AND aoa.object_approval_id = c_approval_id;
5459:
5460: BEGIN
5461: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5462: aso_debug_pub.ADD (
5463: 'Begin set attribute Process',
5464: 1,
5465: 'N'
5466: );
5480: LOOP
5481: l_approval_object := i.quote_name;
5482: l_org_id := i.org_id;
5483:
5484: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5485: aso_debug_pub.ADD (
5486: 'Quote name :' || l_approval_object,
5487: 1,
5488: 'N'
5481: l_approval_object := i.quote_name;
5482: l_org_id := i.org_id;
5483:
5484: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5485: aso_debug_pub.ADD (
5486: 'Quote name :' || l_approval_object,
5487: 1,
5488: 'N'
5489: );
5527: p_parameters => l_ampsign||l_ampsign||'QotIntgEvtSrc=ApvlNotif'||l_ampsign||'QotIntgEvt=Event.QuoteDet'||l_ampsign||'QotIntgEvtVal='
5528: ||i.quote_header_id||l_ampsign||'QotIntgEvtVal1='||i.quote_number||l_ampsign||'addBreadCrumb=Y') ;
5529:
5530:
5531: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5532: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
5533: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
5534: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
5535: END IF;
5528: ||i.quote_header_id||l_ampsign||'QotIntgEvtVal1='||i.quote_number||l_ampsign||'addBreadCrumb=Y') ;
5529:
5530:
5531: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5532: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
5533: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
5534: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
5535: END IF;
5536:
5529:
5530:
5531: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5532: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
5533: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
5534: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
5535: END IF;
5536:
5537:
5530:
5531: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5532: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
5533: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
5534: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
5535: END IF;
5536:
5537:
5538: wf_engine.setitemattrtext (
5547: END IF;
5548: EXCEPTION
5549: WHEN OTHERS
5550: THEN
5551: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5552: aso_debug_pub.ADD (
5553: 'Exception in Set Attributes SqlCode :' || SQLERRM,
5554: 1,
5555: 'N'
5548: EXCEPTION
5549: WHEN OTHERS
5550: THEN
5551: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5552: aso_debug_pub.ADD (
5553: 'Exception in Set Attributes SqlCode :' || SQLERRM,
5554: 1,
5555: 'N'
5556: );
5572: p_status IN VARCHAR2,
5573: note IN VARCHAR2
5574: ) is
5575: begin
5576: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5577: aso_debug_pub.ADD (
5578: 'Start update_approval_status procedure ',
5579: 1,
5580: 'N'
5573: note IN VARCHAR2
5574: ) is
5575: begin
5576: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5577: aso_debug_pub.ADD (
5578: 'Start update_approval_status procedure ',
5579: 1,
5580: 'N'
5581: );
5579: 1,
5580: 'N'
5581: );
5582:
5583: aso_debug_pub.ADD (
5584: 'Flag is :' || p_update_header_or_detail_flag,
5585: 1,
5586: 'N'
5587: );
5584: 'Flag is :' || p_update_header_or_detail_flag,
5585: 1,
5586: 'N'
5587: );
5588: aso_debug_pub.ADD (
5589: 'Object Approval ID is :' || p_object_approval_id,
5590: 1,
5591: 'N'
5592: );
5589: 'Object Approval ID is :' || p_object_approval_id,
5590: 1,
5591: 'N'
5592: );
5593: aso_debug_pub.ADD (
5594: 'Approval Detail ID is :' || p_approval_det_id,
5595: 1,
5596: 'N'
5597: );
5594: 'Approval Detail ID is :' || p_approval_det_id,
5595: 1,
5596: 'N'
5597: );
5598: aso_debug_pub.ADD (
5599: 'Status is :' || p_status,
5600: 1,
5601: 'N'
5602: );
5634: last_update_login = fnd_global.user_id
5635: WHERE approval_det_id = p_approval_det_id;
5636: END IF;
5637:
5638: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5639: aso_debug_pub.ADD (
5640: 'End update_approval_status procedure ',
5641: 1,
5642: 'N'
5635: WHERE approval_det_id = p_approval_det_id;
5636: END IF;
5637:
5638: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5639: aso_debug_pub.ADD (
5640: 'End update_approval_status procedure ',
5641: 1,
5642: 'N'
5643: );