[Home] [Help]
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: );
1799: get_message_error EXCEPTION;
1800: notif_not_enabled_error EXCEPTION;
1801:
1802: BEGIN
1803: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1804: aso_debug_pub.ADD (
1805: 'Start of SEND NOTIFICATION Procedure',
1806: 1,
1807: 'N'
1800: notif_not_enabled_error EXCEPTION;
1801:
1802: BEGIN
1803: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1804: aso_debug_pub.ADD (
1805: 'Start of SEND NOTIFICATION Procedure',
1806: 1,
1807: 'N'
1808: );
1805: 'Start of SEND NOTIFICATION Procedure',
1806: 1,
1807: 'N'
1808: );
1809: aso_debug_pub.ADD (
1810: 'actid is ' || TO_CHAR (
1811: actid
1812: ),
1813: 1,
1829:
1830: l_notifenabled := ibe_wf_notif_setup_pvt.check_notif_enabled (
1831: l_notifname
1832: );
1833: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1834: aso_debug_pub.ADD (
1835: 'Notification Name: ' || l_notifname || ' Enabled: ' || l_notifenabled,
1836: 1,
1837: 'N'
1830: l_notifenabled := ibe_wf_notif_setup_pvt.check_notif_enabled (
1831: l_notifname
1832: );
1833: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1834: aso_debug_pub.ADD (
1835: 'Notification Name: ' || l_notifname || ' Enabled: ' || l_notifenabled,
1836: 1,
1837: 'N'
1838: );
1845: itemtype,
1846: itemkey,
1847: 'APPROVALID'
1848: );
1849: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1850: aso_debug_pub.ADD (
1851: 'Approval ID :' || l_approval_id,
1852: 1,
1853: 'N'
1846: itemkey,
1847: 'APPROVALID'
1848: );
1849: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1850: aso_debug_pub.ADD (
1851: 'Approval ID :' || l_approval_id,
1852: 1,
1853: 'N'
1854: );
1865: itemkey,
1866: 'ORGID'
1867: );
1868:
1869: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1870: aso_debug_pub.ADD (
1871: 'Org Id is ' || l_orgid,
1872: 1,
1873: 'N'
1866: 'ORGID'
1867: );
1868:
1869: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1870: aso_debug_pub.ADD (
1871: 'Org Id is ' || l_orgid,
1872: 1,
1873: 'N'
1874: );
1887: x_return_status => x_return_status,
1888: x_msg_data => x_msg_data,
1889: x_msg_count => x_msg_count
1890: );
1891: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1892: aso_debug_pub.ADD (
1893: 'Message Name: ' || l_message || ' Enabled: ' || l_msgenabled,
1894: 1,
1895: 'N'
1888: x_msg_data => x_msg_data,
1889: x_msg_count => x_msg_count
1890: );
1891: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1892: aso_debug_pub.ADD (
1893: 'Message Name: ' || l_message || ' Enabled: ' || l_msgenabled,
1894: 1,
1895: 'N'
1896: );
1901: --IF ((x_msg_count > 0)
1902: -- OR (l_message IS NULL)
1903: -- )
1904: THEN
1905: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1906: aso_debug_pub.ADD (
1907: 'Message count is :' || x_msg_count,
1908: 1,
1909: 'N'
1902: -- OR (l_message IS NULL)
1903: -- )
1904: THEN
1905: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1906: aso_debug_pub.ADD (
1907: 'Message count is :' || x_msg_count,
1908: 1,
1909: 'N'
1910: );
1930: -- if the event is not enabled or message is not enabled
1931: -- if the notification requires a response
1932: IF ((l_message LIKE 'REQUEST_APPROVAL%') OR (l_message LIKE 'OA_REQUEST_APPROVAL%'))
1933: THEN
1934: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1935: aso_debug_pub.ADD (
1936: 'Notification not enabled for REQUEST_APPROVAL',
1937: 1,
1938: 'N'
1931: -- if the notification requires a response
1932: IF ((l_message LIKE 'REQUEST_APPROVAL%') OR (l_message LIKE 'OA_REQUEST_APPROVAL%'))
1933: THEN
1934: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1935: aso_debug_pub.ADD (
1936: 'Notification not enabled for REQUEST_APPROVAL',
1937: 1,
1938: 'N'
1939: );
1943: -- if the notification is a FYI
1944: -- Check for FYI Message and if so make the attribute as Approval Message
1945: IF ((l_message LIKE 'FYI_TO_REQUESTER%') OR (l_message LIKE 'OA_FYI_TO_REQUESTER%'))
1946: THEN
1947: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1948: aso_debug_pub.ADD (
1949: 'Setting the message name to OA_REQUEST_APPROVAL',
1950: 1,
1951: 'N'
1944: -- Check for FYI Message and if so make the attribute as Approval Message
1945: IF ((l_message LIKE 'FYI_TO_REQUESTER%') OR (l_message LIKE 'OA_FYI_TO_REQUESTER%'))
1946: THEN
1947: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1948: aso_debug_pub.ADD (
1949: 'Setting the message name to OA_REQUEST_APPROVAL',
1950: 1,
1951: 'N'
1952: );
1968: itemtype,
1969: itemkey,
1970: 'MESSAGE'
1971: );
1972: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1973: aso_debug_pub.ADD (
1974: 'Message is ' || l_message,
1975: 1,
1976: 'N'
1969: itemkey,
1970: 'MESSAGE'
1971: );
1972: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1973: aso_debug_pub.ADD (
1974: 'Message is ' || l_message,
1975: 1,
1976: 'N'
1977: );
1978: END IF;
1979:
1980: IF ((l_message LIKE 'REQUEST_APPROVAL_REMINDER%') OR (l_message LIKE 'OA_REQUEST_APPROVAL_REM%'))
1981: THEN
1982: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1983: aso_debug_pub.ADD (
1984: 'As Message is REQUEST_APPROVAL_REMINDER will cancel original approval notif',
1985: 1,
1986: 'N'
1979:
1980: IF ((l_message LIKE 'REQUEST_APPROVAL_REMINDER%') OR (l_message LIKE 'OA_REQUEST_APPROVAL_REM%'))
1981: THEN
1982: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1983: aso_debug_pub.ADD (
1984: 'As Message is REQUEST_APPROVAL_REMINDER will cancel original approval notif',
1985: 1,
1986: 'N'
1987: );
1990: itemtype,
1991: itemkey,
1992: 'NOTIFICATION_ID'
1993: );
1994: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1995: aso_debug_pub.ADD (
1996: 'Cancelling notification for notification ID :' || l_notification_id,
1997: 1,
1998: 'N'
1991: itemkey,
1992: 'NOTIFICATION_ID'
1993: );
1994: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1995: aso_debug_pub.ADD (
1996: 'Cancelling notification for notification ID :' || l_notification_id,
1997: 1,
1998: 'N'
1999: );
2010: actid,
2011: funcmode,
2012: resultout
2013: );
2014: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2015: aso_debug_pub.ADD (
2016: 'Calling the standard notify process for Itemtype :'
2017: || itemtype
2018: || ' and itemkey :'
2011: funcmode,
2012: resultout
2013: );
2014: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2015: aso_debug_pub.ADD (
2016: 'Calling the standard notify process for Itemtype :'
2017: || itemtype
2018: || ' and itemkey :'
2019: || itemkey,
2022: );
2023: END IF;
2024: -- Store the Notification id for timeout
2025:
2026: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2027: aso_debug_pub.ADD (
2028: 'Storing the notification id so as to be used in timeout case ',
2029: 1,
2030: 'N'
2023: END IF;
2024: -- Store the Notification id for timeout
2025:
2026: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2027: aso_debug_pub.ADD (
2028: 'Storing the notification id so as to be used in timeout case ',
2029: 1,
2030: 'N'
2031: );
2056: l_first_colon_pos + 1,
2057: l_second_colon_pos - l_first_colon_pos - 1
2058: )
2059: );
2060: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2061: aso_debug_pub.ADD (
2062: 'Notification id is ' || l_notification_id,
2063: 1,
2064: 'N'
2057: l_second_colon_pos - l_first_colon_pos - 1
2058: )
2059: );
2060: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2061: aso_debug_pub.ADD (
2062: 'Notification id is ' || l_notification_id,
2063: 1,
2064: 'N'
2065: );
2075:
2076: -- Check for FYI Message and if so make the attribute as Approval Message
2077: IF ((l_message LIKE 'FYI_TO_REQUESTER%') or (l_message LIKE 'OA_FYI_TO_REQUESTER%'))
2078: THEN
2079: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2080: aso_debug_pub.ADD (
2081: 'Setting the message name to OA_REQUEST_APPROVAL',
2082: 1,
2083: 'N'
2076: -- Check for FYI Message and if so make the attribute as Approval Message
2077: IF ((l_message LIKE 'FYI_TO_REQUESTER%') or (l_message LIKE 'OA_FYI_TO_REQUESTER%'))
2078: THEN
2079: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2080: aso_debug_pub.ADD (
2081: 'Setting the message name to OA_REQUEST_APPROVAL',
2082: 1,
2083: 'N'
2084: );
2090: avalue => 'OA_REQUEST_APPROVAL'
2091: );
2092: ELSIF ((l_message LIKE 'REQUEST_APPROVAL%') or (l_message LIKE 'OA_REQUEST_APPROVAL%'))
2093: THEN
2094: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2095: aso_debug_pub.ADD (
2096: 'Setting the message name to OA_REQUEST_APPROVAL_REM',
2097: 1,
2098: 'N'
2091: );
2092: ELSIF ((l_message LIKE 'REQUEST_APPROVAL%') or (l_message LIKE 'OA_REQUEST_APPROVAL%'))
2093: THEN
2094: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2095: aso_debug_pub.ADD (
2096: 'Setting the message name to OA_REQUEST_APPROVAL_REM',
2097: 1,
2098: 'N'
2099: );
2106: );
2107: END IF;
2108:
2109: -- resultout := 'COMPLETE';
2110: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2111: aso_debug_pub.ADD (
2112: 'End of SEND NOTIFICATION Procedure ',
2113: 1,
2114: 'N'
2107: END IF;
2108:
2109: -- resultout := 'COMPLETE';
2110: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2111: aso_debug_pub.ADD (
2112: 'End of SEND NOTIFICATION Procedure ',
2113: 1,
2114: 'N'
2115: );
2119:
2120: IF (funcmode = 'CANCEL')
2121: THEN
2122: resultout := 'COMPLETE';
2123: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2124: aso_debug_pub.ADD (
2125: 'End of SEND NOTIFICATION Procedure ',
2126: 1,
2127: 'N'
2120: IF (funcmode = 'CANCEL')
2121: THEN
2122: resultout := 'COMPLETE';
2123: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2124: aso_debug_pub.ADD (
2125: 'End of SEND NOTIFICATION Procedure ',
2126: 1,
2127: 'N'
2128: );
2130: RETURN;
2131: END IF;
2132:
2133: resultout := '';
2134: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2135: aso_debug_pub.ADD (
2136: 'End of SEND NOTIFICATION Procedure ',
2137: 1,
2138: 'N'
2131: END IF;
2132:
2133: resultout := '';
2134: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2135: aso_debug_pub.ADD (
2136: 'End of SEND NOTIFICATION Procedure ',
2137: 1,
2138: 'N'
2139: );
2141: RETURN;
2142: EXCEPTION
2143: WHEN notif_not_enabled_error
2144: THEN
2145: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2146: aso_debug_pub.ADD (
2147: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2148: 1,
2149: 'N'
2142: EXCEPTION
2143: WHEN notif_not_enabled_error
2144: THEN
2145: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2146: aso_debug_pub.ADD (
2147: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2148: 1,
2149: 'N'
2150: );
2156: );
2157: RAISE;
2158: WHEN get_message_error
2159: THEN
2160: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2161: aso_debug_pub.ADD (
2162: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2163: 1,
2164: 'N'
2157: RAISE;
2158: WHEN get_message_error
2159: THEN
2160: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2161: aso_debug_pub.ADD (
2162: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2163: 1,
2164: 'N'
2165: );
2172: );
2173: RAISE;
2174: WHEN OTHERS
2175: THEN
2176: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2177: aso_debug_pub.ADD (
2178: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2179: 1,
2180: 'N'
2173: RAISE;
2174: WHEN OTHERS
2175: THEN
2176: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2177: aso_debug_pub.ADD (
2178: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
2179: 1,
2180: 'N'
2181: );
2283:
2284: BEGIN
2285: -- Initialize the quote header record
2286:
2287: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2288: aso_debug_pub.ADD (
2289: 'Begin Update Entity Procedure ',
2290: 1,
2291: 'N'
2284: BEGIN
2285: -- Initialize the quote header record
2286:
2287: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2288: aso_debug_pub.ADD (
2289: 'Begin Update Entity Procedure ',
2290: 1,
2291: 'N'
2292: );
2310: ELSIF l_notifname = 'OA_REQ_APPR_BY_ALL_APPR' THEN
2311: l_status := 'APPR';
2312: END IF;
2313:
2314: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2315: aso_debug_pub.ADD (
2316: 'Object approval ID :' || l_object_approval_id,
2317: 1,
2318: 'N'
2311: l_status := 'APPR';
2312: END IF;
2313:
2314: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2315: aso_debug_pub.ADD (
2316: 'Object approval ID :' || l_object_approval_id,
2317: 1,
2318: 'N'
2319: );
2316: 'Object approval ID :' || l_object_approval_id,
2317: 1,
2318: 'N'
2319: );
2320: aso_debug_pub.ADD (
2321: 'Status :' || l_status,
2322: 1,
2323: 'N'
2324: );
2361: l_object_approval_id
2362: );
2363: FETCH get_quote_header_id INTO l_quote_header_rec.quote_header_id;
2364: CLOSE get_quote_header_id;
2365: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2366: aso_debug_pub.ADD (
2367: 'Quote Header ID :' || l_quote_header_rec.quote_header_id,
2368: 1,
2369: 'N'
2362: );
2363: FETCH get_quote_header_id INTO l_quote_header_rec.quote_header_id;
2364: CLOSE get_quote_header_id;
2365: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2366: aso_debug_pub.ADD (
2367: 'Quote Header ID :' || l_quote_header_rec.quote_header_id,
2368: 1,
2369: 'N'
2370: );
2381: THEN
2382: -- if contract is enabled, set status to contract enables
2383: IF l_contract_approval_level IS NOT NULL
2384: THEN
2385: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2386: aso_debug_pub.ADD (
2387: 'Setting Quote Status to CONTRACT REQUIRED',
2388: 1,
2389: 'N'
2382: -- if contract is enabled, set status to contract enables
2383: IF l_contract_approval_level IS NOT NULL
2384: THEN
2385: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2386: aso_debug_pub.ADD (
2387: 'Setting Quote Status to CONTRACT REQUIRED',
2388: 1,
2389: 'N'
2390: );
2395: FETCH get_quote_status_id INTO l_quote_header_rec.quote_status_id;
2396: CLOSE get_quote_status_id;
2397: ELSE
2398: -- otherwise set status to APPROVED
2399: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2400: aso_debug_pub.ADD (
2401: 'Setting Quote Status to APPROVED',
2402: 1,
2403: 'N'
2396: CLOSE get_quote_status_id;
2397: ELSE
2398: -- otherwise set status to APPROVED
2399: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2400: aso_debug_pub.ADD (
2401: 'Setting Quote Status to APPROVED',
2402: 1,
2403: 'N'
2404: );
2410: CLOSE get_quote_status_id;
2411: END IF;
2412: ELSIF l_status = 'REJ'
2413: THEN
2414: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2415: aso_debug_pub.ADD (
2416: 'Setting Quote Status to REJECTED',
2417: 1,
2418: 'N'
2411: END IF;
2412: ELSIF l_status = 'REJ'
2413: THEN
2414: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2415: aso_debug_pub.ADD (
2416: 'Setting Quote Status to REJECTED',
2417: 1,
2418: 'N'
2419: );
2424: FETCH get_quote_status_id INTO l_quote_header_rec.quote_status_id;
2425: CLOSE get_quote_status_id;
2426: ELSIF l_status = 'CAN'
2427: THEN
2428: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2429: aso_debug_pub.ADD (
2430: 'Setting Quote Status to APPROVAL CANCELLED ',
2431: 1,
2432: 'N'
2425: CLOSE get_quote_status_id;
2426: ELSIF l_status = 'CAN'
2427: THEN
2428: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2429: aso_debug_pub.ADD (
2430: 'Setting Quote Status to APPROVAL CANCELLED ',
2431: 1,
2432: 'N'
2433: );
2438: FETCH get_quote_status_id INTO l_quote_header_rec.quote_status_id;
2439: CLOSE get_quote_status_id;
2440: ELSIF l_status = 'PEND'
2441: THEN
2442: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2443: aso_debug_pub.ADD (
2444: 'Setting Quote Status to APPROVAL PENDING',
2445: 1,
2446: 'N'
2439: CLOSE get_quote_status_id;
2440: ELSIF l_status = 'PEND'
2441: THEN
2442: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2443: aso_debug_pub.ADD (
2444: 'Setting Quote Status to APPROVAL PENDING',
2445: 1,
2446: 'N'
2447: );
2461: -- Setting the auto version flag to true
2462: l_control_rec.auto_version_flag := fnd_api.g_true;
2463:
2464: -- set the org context , see bug 4731684
2465: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2466: aso_debug_pub.ADD (
2467: 'Before calling update quote: Setting the single org context to org_id: '|| l_quote_header_rec.org_id,
2468: 1,
2469: 'N'
2462: l_control_rec.auto_version_flag := fnd_api.g_true;
2463:
2464: -- set the org context , see bug 4731684
2465: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2466: aso_debug_pub.ADD (
2467: 'Before calling update quote: Setting the single org context to org_id: '|| l_quote_header_rec.org_id,
2468: 1,
2469: 'N'
2470: );
2473:
2474:
2475: -- Update the quote status by calling the update_quote API
2476:
2477: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2478: aso_debug_pub.ADD (
2479: 'Calling the update quote API in ASO_UPDATE_QUOTE_PUB package ',
2480: 1,
2481: 'N'
2474:
2475: -- Update the quote status by calling the update_quote API
2476:
2477: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2478: aso_debug_pub.ADD (
2479: 'Calling the update quote API in ASO_UPDATE_QUOTE_PUB package ',
2480: 1,
2481: 'N'
2482: );
2528: );
2529:
2530: IF x_return_status <> fnd_api.g_ret_sts_success
2531: THEN
2532: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2533: aso_debug_pub.ADD (
2534: 'Return Status from update quote API is :' || x_return_status,
2535: 1,
2536: 'N'
2529:
2530: IF x_return_status <> fnd_api.g_ret_sts_success
2531: THEN
2532: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2533: aso_debug_pub.ADD (
2534: 'Return Status from update quote API is :' || x_return_status,
2535: 1,
2536: 'N'
2537: );
2549:
2550: END IF;
2551:
2552: -- set the org context , see bug 4731684
2553: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2554: aso_debug_pub.ADD (
2555: 'After calling update quote Setting the org context to multi-org org_id:null',
2556: 1,
2557: 'N'
2550: END IF;
2551:
2552: -- set the org context , see bug 4731684
2553: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2554: aso_debug_pub.ADD (
2555: 'After calling update quote Setting the org context to multi-org org_id:null',
2556: 1,
2557: 'N'
2558: );
2560:
2561: mo_global.set_policy_context('M',null);
2562:
2563:
2564: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2565: aso_debug_pub.ADD (
2566: 'End update entity procedure ',
2567: 1,
2568: 'N'
2561: mo_global.set_policy_context('M',null);
2562:
2563:
2564: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2565: aso_debug_pub.ADD (
2566: 'End update entity procedure ',
2567: 1,
2568: 'N'
2569: );
2574: EXCEPTION
2575:
2576: /*bug 3500380 */
2577: WHEN FND_API.G_EXC_ERROR THEN
2578: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2579: aso_debug_pub.ADD (
2580: 'Exception in update entity ',
2581: 1,
2582: 'N'
2575:
2576: /*bug 3500380 */
2577: WHEN FND_API.G_EXC_ERROR THEN
2578: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2579: aso_debug_pub.ADD (
2580: 'Exception in update entity ',
2581: 1,
2582: 'N'
2583: );
2591: funcmode);
2592: RAISE;
2593:
2594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2595: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2596: aso_debug_pub.ADD (
2597: 'Exception in update entity ',
2598: 1,
2599: 'N'
2592: RAISE;
2593:
2594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2595: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2596: aso_debug_pub.ADD (
2597: 'Exception in update entity ',
2598: 1,
2599: 'N'
2600: );
2608: funcmode);
2609: RAISE;
2610:
2611: WHEN OTHERS THEN
2612: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2613: aso_debug_pub.ADD (
2614: 'Exception in update entity ',
2615: 1,
2616: 'N'
2609: RAISE;
2610:
2611: WHEN OTHERS THEN
2612: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2613: aso_debug_pub.ADD (
2614: 'Exception in update entity ',
2615: 1,
2616: 'N'
2617: );
2715: where user_id = l_user_id;
2716:
2717:
2718: BEGIN
2719: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2720: aso_debug_pub.ADD (
2721: 'Begin update approver list procedure ',
2722: 1,
2723: 'N'
2716:
2717:
2718: BEGIN
2719: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2720: aso_debug_pub.ADD (
2721: 'Begin update approver list procedure ',
2722: 1,
2723: 'N'
2724: );
2728: OPEN get_object_id (
2729: p_object_approval_id
2730: );
2731: FETCH get_object_id INTO l_object_id, l_object_type, l_application_id;
2732: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2733: aso_debug_pub.ADD (
2734: 'Object ID :' || l_object_id,
2735: 1,
2736: 'N'
2729: p_object_approval_id
2730: );
2731: FETCH get_object_id INTO l_object_id, l_object_type, l_application_id;
2732: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2733: aso_debug_pub.ADD (
2734: 'Object ID :' || l_object_id,
2735: 1,
2736: 'N'
2737: );
2734: 'Object ID :' || l_object_id,
2735: 1,
2736: 'N'
2737: );
2738: aso_debug_pub.ADD (
2739: 'Object Type :' || l_object_type,
2740: 1,
2741: 'N'
2742: );
2739: 'Object Type :' || l_object_type,
2740: 1,
2741: 'N'
2742: );
2743: aso_debug_pub.ADD (
2744: 'application id :' || l_application_id,
2745: 1,
2746: 'N'
2747: );
2749: -- calling the get all approvers to get the latest list of approvers
2750: -- please note that we are passing the clear transaction flag as false
2751: -- this is to ensure that get all approvers does not clear transactions
2752:
2753: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2754: aso_debug_pub.ADD (
2755: 'Calling get_all_approvers',
2756: 1,
2757: 'N'
2750: -- please note that we are passing the clear transaction flag as false
2751: -- this is to ensure that get all approvers does not clear transactions
2752:
2753: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2754: aso_debug_pub.ADD (
2755: 'Calling get_all_approvers',
2756: 1,
2757: 'N'
2758: );
2775:
2776: -- Checking to find OUT NOCOPY /* file.sql.39 change */ if call to get_all_approvers was successfull
2777: IF l_return_status <> fnd_api.g_ret_sts_success
2778: THEN
2779: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2780: aso_debug_pub.ADD (
2781: 'Status returned from get_all_approvers procedure :' || l_return_status,
2782: 1,
2783: 'N'
2776: -- Checking to find OUT NOCOPY /* file.sql.39 change */ if call to get_all_approvers was successfull
2777: IF l_return_status <> fnd_api.g_ret_sts_success
2778: THEN
2779: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2780: aso_debug_pub.ADD (
2781: 'Status returned from get_all_approvers procedure :' || l_return_status,
2782: 1,
2783: 'N'
2784: );
2793:
2794: IF ((x_approvers_list(i).approver_person_id is null) or (x_approvers_list(i).approver_person_id = fnd_api.g_miss_num) and
2795: (x_approvers_list(i).approver_user_id is not null) and (x_approvers_list(i).approver_user_id <> fnd_api.g_miss_num)) then
2796:
2797: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2798: aso_debug_pub.ADD ('Person_id is null from AME Hence deriving it from user_id',1,'N');
2799: END IF;
2800:
2801: open get_employee_id(x_approvers_list(i).approver_user_id);
2794: IF ((x_approvers_list(i).approver_person_id is null) or (x_approvers_list(i).approver_person_id = fnd_api.g_miss_num) and
2795: (x_approvers_list(i).approver_user_id is not null) and (x_approvers_list(i).approver_user_id <> fnd_api.g_miss_num)) then
2796:
2797: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2798: aso_debug_pub.ADD ('Person_id is null from AME Hence deriving it from user_id',1,'N');
2799: END IF;
2800:
2801: open get_employee_id(x_approvers_list(i).approver_user_id);
2802: fetch get_employee_id into x_approvers_list(i).approver_person_id;
2801: open get_employee_id(x_approvers_list(i).approver_user_id);
2802: fetch get_employee_id into x_approvers_list(i).approver_person_id;
2803: close get_employee_id;
2804:
2805: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2806: aso_debug_pub.ADD ('Derived person_id is: '||to_char(x_approvers_list(i).approver_person_id),1,'N');
2807: END IF;
2808:
2809: END IF;
2802: fetch get_employee_id into x_approvers_list(i).approver_person_id;
2803: close get_employee_id;
2804:
2805: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2806: aso_debug_pub.ADD ('Derived person_id is: '||to_char(x_approvers_list(i).approver_person_id),1,'N');
2807: END IF;
2808:
2809: END IF;
2810: end loop;
2820:
2821: IF l_approver_count <> x_approvers_list.COUNT
2822: THEN
2823: l_approvers_changed_flag := 'Y';
2824: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2825: aso_debug_pub.ADD (
2826: 'The approvers list has changed ',
2827: 1,
2828: 'N'
2821: IF l_approver_count <> x_approvers_list.COUNT
2822: THEN
2823: l_approvers_changed_flag := 'Y';
2824: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2825: aso_debug_pub.ADD (
2826: 'The approvers list has changed ',
2827: 1,
2828: 'N'
2829: );
2828: 'N'
2829: );
2830: END IF;
2831: ELSE
2832: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2833: aso_debug_pub.ADD (
2834: 'Comparing the old list from table and the latest list ',
2835: 1,
2836: 'N'
2829: );
2830: END IF;
2831: ELSE
2832: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2833: aso_debug_pub.ADD (
2834: 'Comparing the old list from table and the latest list ',
2835: 1,
2836: 'N'
2837: );
2880: )
2881: )
2882: THEN
2883: l_approvers_changed_flag := 'Y';
2884: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2885: aso_debug_pub.ADD (
2886: 'The approvers list has changed ',
2887: 1,
2888: 'N'
2881: )
2882: THEN
2883: l_approvers_changed_flag := 'Y';
2884: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2885: aso_debug_pub.ADD (
2886: 'The approvers list has changed ',
2887: 1,
2888: 'N'
2889: );
2889: );
2890: END IF;
2891: EXIT;
2892: ELSE
2893: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2894: aso_debug_pub.ADD (
2895: 'The approvers list has not changed ',
2896: 1,
2897: 'N'
2890: END IF;
2891: EXIT;
2892: ELSE
2893: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2894: aso_debug_pub.ADD (
2895: 'The approvers list has not changed ',
2896: 1,
2897: 'N'
2898: );
2969: END IF;
2970: END LOOP;
2971: END LOOP;
2972:
2973: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2974: aso_debug_pub.ADD (
2975: 'Deleting approvers from detail table where object_approval_id :'
2976: || p_object_approval_id,
2977: 1,
2970: END LOOP;
2971: END LOOP;
2972:
2973: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2974: aso_debug_pub.ADD (
2975: 'Deleting approvers from detail table where object_approval_id :'
2976: || p_object_approval_id,
2977: 1,
2978: 'N'
2984:
2985: l_approver_status := NULL;
2986: -- third loop to insert the data
2987:
2988: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2989: aso_debug_pub.ADD (
2990: 'New Approver count is ' || TO_CHAR (
2991: l_new_approvers_tbl.COUNT
2992: ),
2985: l_approver_status := NULL;
2986: -- third loop to insert the data
2987:
2988: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2989: aso_debug_pub.ADD (
2990: 'New Approver count is ' || TO_CHAR (
2991: l_new_approvers_tbl.COUNT
2992: ),
2993: 1,
3200:
3201: IF l_rule_count <> x_rules_list.COUNT
3202: THEN
3203: l_rules_changed_flag := 'Y';
3204: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3205: aso_debug_pub.ADD (
3206: 'The rules have changed ',
3207: 1,
3208: 'N'
3201: IF l_rule_count <> x_rules_list.COUNT
3202: THEN
3203: l_rules_changed_flag := 'Y';
3204: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3205: aso_debug_pub.ADD (
3206: 'The rules have changed ',
3207: 1,
3208: 'N'
3209: );
3235: ).rule_id
3236: )
3237: THEN
3238: l_rules_changed_flag := 'Y';
3239: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3240: aso_debug_pub.ADD (
3241: 'The rules have changed ',
3242: 1,
3243: 'N'
3236: )
3237: THEN
3238: l_rules_changed_flag := 'Y';
3239: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3240: aso_debug_pub.ADD (
3241: 'The rules have changed ',
3242: 1,
3243: 'N'
3244: );
3244: );
3245: END IF;
3246: EXIT;
3247: ELSE
3248: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3249: aso_debug_pub.ADD (
3250: 'The rules have not changed ',
3251: 1,
3252: 'N'
3245: END IF;
3246: EXIT;
3247: ELSE
3248: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3249: aso_debug_pub.ADD (
3250: 'The rules have not changed ',
3251: 1,
3252: 'N'
3253: );
3266: -- delete the existing rules
3267: DELETE FROM aso_apr_rules
3268: WHERE object_approval_id = p_object_approval_id;
3269:
3270: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3271: aso_debug_pub.ADD (
3272: 'Inserting rows into the rule table ',
3273: 1,
3274: 'N'
3267: DELETE FROM aso_apr_rules
3268: WHERE object_approval_id = p_object_approval_id;
3269:
3270: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3271: aso_debug_pub.ADD (
3272: 'Inserting rows into the rule table ',
3273: 1,
3274: 'N'
3275: );
3345: END LOOP;
3346: END IF;
3347: -- commit the work
3348: COMMIT WORK;
3349: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3350: aso_debug_pub.ADD (
3351: 'End update_approver_list procedure ',
3352: 1,
3353: 'N'
3346: END IF;
3347: -- commit the work
3348: COMMIT WORK;
3349: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3350: aso_debug_pub.ADD (
3351: 'End update_approver_list procedure ',
3352: 1,
3353: 'N'
3354: );
3355: END IF;
3356: EXCEPTION
3357: WHEN get_all_approvers_failed
3358: THEN
3359: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3360: aso_debug_pub.ADD (
3361: 'Call to get_all_approvers failed in update_approver_list ',
3362: 1,
3363: 'N'
3356: EXCEPTION
3357: WHEN get_all_approvers_failed
3358: THEN
3359: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3360: aso_debug_pub.ADD (
3361: 'Call to get_all_approvers failed in update_approver_list ',
3362: 1,
3363: 'N'
3364: );
3367: p_encoded => 'F',
3368: p_count => l_msg_count,
3369: p_data => l_msg_data
3370: );
3371: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3372: aso_debug_pub.ADD (
3373: 'no. of FND messages :' || l_msg_count,
3374: 1,
3375: 'N'
3368: p_count => l_msg_count,
3369: p_data => l_msg_data
3370: );
3371: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3372: aso_debug_pub.ADD (
3373: 'no. of FND messages :' || l_msg_count,
3374: 1,
3375: 'N'
3376: );
3383: p_encoded => 'F'
3384: );
3385: END LOOP;
3386:
3387: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3388: aso_debug_pub.ADD (
3389: 'Msg Data is' || l_msg_data,
3390: 1,
3391: 'N'
3384: );
3385: END LOOP;
3386:
3387: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3388: aso_debug_pub.ADD (
3389: 'Msg Data is' || l_msg_data,
3390: 1,
3391: 'N'
3392: );
3398: );
3399: RAISE;
3400: WHEN OTHERS
3401: THEN
3402: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3403: aso_debug_pub.ADD (
3404: 'When others exception in update approver list procedure ',
3405: 1,
3406: 'N'
3399: RAISE;
3400: WHEN OTHERS
3401: THEN
3402: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3403: aso_debug_pub.ADD (
3404: 'When others exception in update approver list procedure ',
3405: 1,
3406: 'N'
3407: );
3450: SELECT DISTINCT object_id, object_type, application_id
3451: FROM aso_apr_obj_approvals aoa
3452: WHERE object_approval_id = c_object_approval_id;
3453: BEGIN
3454: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3455: aso_debug_pub.ADD (
3456: 'Begin the last_approver_timeout_check prcoedure ',
3457: 1,
3458: 'N'
3451: FROM aso_apr_obj_approvals aoa
3452: WHERE object_approval_id = c_object_approval_id;
3453: BEGIN
3454: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3455: aso_debug_pub.ADD (
3456: 'Begin the last_approver_timeout_check prcoedure ',
3457: 1,
3458: 'N'
3459: );
3463: p_object_approval_id
3464: );
3465: FETCH get_application_id INTO l_object_id, l_object_type, l_application_id;
3466: CLOSE get_application_id;
3467: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3468: aso_debug_pub.ADD (
3469: 'Object ID :' || l_object_id,
3470: 1,
3471: 'N'
3464: );
3465: FETCH get_application_id INTO l_object_id, l_object_type, l_application_id;
3466: CLOSE get_application_id;
3467: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3468: aso_debug_pub.ADD (
3469: 'Object ID :' || l_object_id,
3470: 1,
3471: 'N'
3472: );
3469: 'Object ID :' || l_object_id,
3470: 1,
3471: 'N'
3472: );
3473: aso_debug_pub.ADD (
3474: 'Object Type :' || l_object_type,
3475: 1,
3476: 'N'
3477: );
3474: 'Object Type :' || l_object_type,
3475: 1,
3476: 'N'
3477: );
3478: aso_debug_pub.ADD (
3479: 'application id :' || l_application_id,
3480: 1,
3481: 'N'
3482: );
3479: 'application id :' || l_application_id,
3480: 1,
3481: 'N'
3482: );
3483: aso_debug_pub.ADD (
3484: 'Calling the AME clearall approvals API',
3485: 1,
3486: 'N'
3487: );
3495: FOR i IN get_approvers (
3496: p_object_approval_id
3497: )
3498: LOOP
3499: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3500: aso_debug_pub.ADD (
3501: 'calling the AME get next approver API ',
3502: 1,
3503: 'N'
3496: p_object_approval_id
3497: )
3498: LOOP
3499: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3500: aso_debug_pub.ADD (
3501: 'calling the AME get next approver API ',
3502: 1,
3503: 'N'
3504: );
3508: transactionidin => l_object_id,
3509: transactiontypein => l_object_type,
3510: nextapproverout => new_approver_record
3511: );
3512: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3513: aso_debug_pub.ADD (
3514: 'New Approver Person ID :' || new_approver_record.person_id,
3515: 1,
3516: 'N'
3509: transactiontypein => l_object_type,
3510: nextapproverout => new_approver_record
3511: );
3512: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3513: aso_debug_pub.ADD (
3514: 'New Approver Person ID :' || new_approver_record.person_id,
3515: 1,
3516: 'N'
3517: );
3514: 'New Approver Person ID :' || new_approver_record.person_id,
3515: 1,
3516: 'N'
3517: );
3518: aso_debug_pub.ADD (
3519: 'Setting approval status to no response for previous approvers ',
3520: 1,
3521: 'N'
3522: );
3531: END LOOP;
3532:
3533: -- after getting all the approvers, try to get the next approver
3534:
3535: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3536: aso_debug_pub.ADD (
3537: 'calling the AME get next approver API ',
3538: 1,
3539: 'N'
3532:
3533: -- after getting all the approvers, try to get the next approver
3534:
3535: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3536: aso_debug_pub.ADD (
3537: 'calling the AME get next approver API ',
3538: 1,
3539: 'N'
3540: );
3544: transactionidin => l_object_id,
3545: transactiontypein => l_object_type,
3546: nextapproverout => new_approver_record
3547: );
3548: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3549: aso_debug_pub.ADD (
3550: 'New Approver Person ID :' || new_approver_record.person_id,
3551: 1,
3552: 'N'
3545: transactiontypein => l_object_type,
3546: nextapproverout => new_approver_record
3547: );
3548: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3549: aso_debug_pub.ADD (
3550: 'New Approver Person ID :' || new_approver_record.person_id,
3551: 1,
3552: 'N'
3553: );
3560: AND (new_approver_record.user_id <> fnd_api.g_miss_num)
3561: )
3562: )
3563: THEN
3564: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3565: aso_debug_pub.ADD (
3566: 'Additional Approver found ',
3567: 1,
3568: 'N'
3561: )
3562: )
3563: THEN
3564: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3565: aso_debug_pub.ADD (
3566: 'Additional Approver found ',
3567: 1,
3568: 'N'
3569: );
3572: p_object_approval_id
3573: );
3574: FETCH get_approver_sequence INTO l_approver_sequence;
3575: CLOSE get_approver_sequence;
3576: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3577: aso_debug_pub.ADD (
3578: 'Inserting the new approver into the detail table ',
3579: 1,
3580: 'N'
3573: );
3574: FETCH get_approver_sequence INTO l_approver_sequence;
3575: CLOSE get_approver_sequence;
3576: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3577: aso_debug_pub.ADD (
3578: 'Inserting the new approver into the detail table ',
3579: 1,
3580: 'N'
3581: );
3653: ,
3654: NULL -- p_OBJECT_VERSION_NUMBER
3655: );
3656: ELSE
3657: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3658: aso_debug_pub.ADD (
3659: 'No Additional Approvers found ',
3660: 1,
3661: 'N'
3654: NULL -- p_OBJECT_VERSION_NUMBER
3655: );
3656: ELSE
3657: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3658: aso_debug_pub.ADD (
3659: 'No Additional Approvers found ',
3660: 1,
3661: 'N'
3662: );
3663: END IF;
3664: RETURN;
3665: END IF;
3666:
3667: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3668: aso_debug_pub.ADD (
3669: 'End of last_approver_timeout_check procedure ',
3670: 1,
3671: 'N'
3664: RETURN;
3665: END IF;
3666:
3667: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3668: aso_debug_pub.ADD (
3669: 'End of last_approver_timeout_check procedure ',
3670: 1,
3671: 'N'
3672: );
3673: END IF;
3674: EXCEPTION
3675: WHEN OTHERS
3676: THEN
3677: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3678: aso_debug_pub.ADD (
3679: 'Exception in Last_Approver_Timeout_Check ',
3680: 1,
3681: 'N'
3674: EXCEPTION
3675: WHEN OTHERS
3676: THEN
3677: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3678: aso_debug_pub.ADD (
3679: 'Exception in Last_Approver_Timeout_Check ',
3680: 1,
3681: 'N'
3682: );
3702: l_notifname VARCHAR2 (240);
3703: get_message_error EXCEPTION;
3704:
3705: BEGIN
3706: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3707: aso_debug_pub.ADD (
3708: 'Begin SEND_CANCEL_NOTIFICATION Procedure',
3709: 1,
3710: 'N'
3703: get_message_error EXCEPTION;
3704:
3705: BEGIN
3706: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3707: aso_debug_pub.ADD (
3708: 'Begin SEND_CANCEL_NOTIFICATION Procedure',
3709: 1,
3710: 'N'
3711: );
3708: 'Begin SEND_CANCEL_NOTIFICATION Procedure',
3709: 1,
3710: 'N'
3711: );
3712: aso_debug_pub.ADD (
3713: 'actid is ' || TO_CHAR (
3714: actid
3715: ),
3716: 1,
3724: itemtype,
3725: itemkey,
3726: 'MESSAGE'
3727: );
3728: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3729: aso_debug_pub.ADD (
3730: 'Message is ' || l_message,
3731: 1,
3732: 'N'
3725: itemkey,
3726: 'MESSAGE'
3727: );
3728: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3729: aso_debug_pub.ADD (
3730: 'Message is ' || l_message,
3731: 1,
3732: 'N'
3733: );
3735:
3736: -- Check for FYI Cancel Message and if so make the attribute as Cancel Message to approver
3737: IF ((l_message LIKE 'REQUEST_CANCELLED_FYI%') or (l_message LIKE 'OA_REQUEST_CANCELLED_FYI%'))
3738: THEN
3739: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3740: aso_debug_pub.ADD (
3741: 'Setting message to OA_REQUEST_CANCEL_FYI_TO_APPR',
3742: 1,
3743: 'N'
3736: -- Check for FYI Cancel Message and if so make the attribute as Cancel Message to approver
3737: IF ((l_message LIKE 'REQUEST_CANCELLED_FYI%') or (l_message LIKE 'OA_REQUEST_CANCELLED_FYI%'))
3738: THEN
3739: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3740: aso_debug_pub.ADD (
3741: 'Setting message to OA_REQUEST_CANCEL_FYI_TO_APPR',
3742: 1,
3743: 'N'
3744: );
3744: );
3745: END IF;
3746: l_message := 'OA_REQ_CANCEL_FYI_TO_APPR';
3747: ELSE
3748: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3749: aso_debug_pub.ADD (
3750: 'Setting message to OA_REQUEST_CANCELLED_FYI',
3751: 1,
3752: 'N'
3745: END IF;
3746: l_message := 'OA_REQ_CANCEL_FYI_TO_APPR';
3747: ELSE
3748: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3749: aso_debug_pub.ADD (
3750: 'Setting message to OA_REQUEST_CANCELLED_FYI',
3751: 1,
3752: 'N'
3753: );
3771: l_notifname := 'ASO_' || l_notifname;
3772: l_notifenabled := ibe_wf_notif_setup_pvt.check_notif_enabled (
3773: l_notifname
3774: );
3775: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3776: aso_debug_pub.ADD (
3777: 'Notification Name: ' || l_notifname || ' Enabled: ' || l_notifenabled,
3778: 1,
3779: 'N'
3772: l_notifenabled := ibe_wf_notif_setup_pvt.check_notif_enabled (
3773: l_notifname
3774: );
3775: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3776: aso_debug_pub.ADD (
3777: 'Notification Name: ' || l_notifname || ' Enabled: ' || l_notifenabled,
3778: 1,
3779: 'N'
3780: );
3787: itemtype,
3788: itemkey,
3789: 'APPROVALID'
3790: );
3791: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3792: aso_debug_pub.ADD (
3793: 'Approval Id is ' || l_approval_id,
3794: 1,
3795: 'N'
3788: itemkey,
3789: 'APPROVALID'
3790: );
3791: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3792: aso_debug_pub.ADD (
3793: 'Approval Id is ' || l_approval_id,
3794: 1,
3795: 'N'
3796: );
3806: itemkey,
3807: 'ORGID'
3808: );
3809:
3810: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3811: aso_debug_pub.ADD (
3812: 'Org Id is ' || l_orgid,
3813: 1,
3814: 'N'
3807: 'ORGID'
3808: );
3809:
3810: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3811: aso_debug_pub.ADD (
3812: 'Org Id is ' || l_orgid,
3813: 1,
3814: 'N'
3815: );
3833: -- bug 3295179
3834: IF x_return_status <> fnd_api.g_ret_sts_success
3835: --IF x_msg_count > 0
3836: THEN
3837: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3838: aso_debug_pub.ADD (
3839: 'Message count from MSG mapping API :' || x_msg_count,
3840: 1,
3841: 'N'
3834: IF x_return_status <> fnd_api.g_ret_sts_success
3835: --IF x_msg_count > 0
3836: THEN
3837: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3838: aso_debug_pub.ADD (
3839: 'Message count from MSG mapping API :' || x_msg_count,
3840: 1,
3841: 'N'
3842: );
3847: -- If the notification is not enabled
3848: resultout := 'COMPLETE';
3849: END IF;
3850:
3851: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3852: aso_debug_pub.ADD (
3853: 'Calling the standard notify process ',
3854: 1,
3855: 'N'
3848: resultout := 'COMPLETE';
3849: END IF;
3850:
3851: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3852: aso_debug_pub.ADD (
3853: 'Calling the standard notify process ',
3854: 1,
3855: 'N'
3856: );
3861: actid,
3862: funcmode,
3863: resultout
3864: );
3865: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3866: aso_debug_pub.ADD (
3867: 'End SEND_CANCEL_NOTIFICATION Procedure',
3868: 1,
3869: 'N'
3862: funcmode,
3863: resultout
3864: );
3865: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3866: aso_debug_pub.ADD (
3867: 'End SEND_CANCEL_NOTIFICATION Procedure',
3868: 1,
3869: 'N'
3870: );
3874:
3875: IF (funcmode = 'CANCEL')
3876: THEN
3877: resultout := 'COMPLETE';
3878: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3879: aso_debug_pub.ADD (
3880: 'End of SEND_CANCEL_NOTIFICATION Procedure',
3881: 1,
3882: 'N'
3875: IF (funcmode = 'CANCEL')
3876: THEN
3877: resultout := 'COMPLETE';
3878: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3879: aso_debug_pub.ADD (
3880: 'End of SEND_CANCEL_NOTIFICATION Procedure',
3881: 1,
3882: 'N'
3883: );
3885: RETURN;
3886: END IF;
3887:
3888: resultout := '';
3889: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3890: aso_debug_pub.ADD (
3891: 'End of SEND_CANCEL_NOTIFICATION Procedure',
3892: 1,
3893: 'N'
3886: END IF;
3887:
3888: resultout := '';
3889: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3890: aso_debug_pub.ADD (
3891: 'End of SEND_CANCEL_NOTIFICATION Procedure',
3892: 1,
3893: 'N'
3894: );
3896: RETURN;
3897: EXCEPTION
3898: WHEN get_message_error
3899: THEN
3900: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3901: aso_debug_pub.ADD (
3902: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
3903: 1,
3904: 'N'
3897: EXCEPTION
3898: WHEN get_message_error
3899: THEN
3900: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3901: aso_debug_pub.ADD (
3902: 'Exception in SEND_NOTIFICATION Proc SqlCode :' || SQLERRM,
3903: 1,
3904: 'N'
3905: );
3912: );
3913: RAISE;
3914: WHEN OTHERS
3915: THEN
3916: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3917: aso_debug_pub.ADD (
3918: 'Exception in SEND_CANCEL_NOTIFICATION Process SqlCode :' || SQLERRM,
3919: 1,
3920: 'N'
3913: RAISE;
3914: WHEN OTHERS
3915: THEN
3916: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3917: aso_debug_pub.ADD (
3918: 'Exception in SEND_CANCEL_NOTIFICATION Process SqlCode :' || SQLERRM,
3919: 1,
3920: 'N'
3921: );
3957: AND object_approval_id = c_object_approval_id
3958: AND fl.lookup_type = 'ASO_APPROVER_STATUS'
3959: ORDER BY approver_sequence;
3960: BEGIN
3961: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3962: aso_debug_pub.ADD (
3963: 'Begin APPROVER_DETAILS_DOC procedure ',
3964: 1,
3965: 'N'
3958: AND fl.lookup_type = 'ASO_APPROVER_STATUS'
3959: ORDER BY approver_sequence;
3960: BEGIN
3961: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3962: aso_debug_pub.ADD (
3963: 'Begin APPROVER_DETAILS_DOC procedure ',
3964: 1,
3965: 'N'
3966: );
3987: itemtype => itemtype,
3988: itemkey => itemkey,
3989: aname => 'APPROVALID'
3990: );
3991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3992: aso_debug_pub.ADD (
3993: 'ItemType is:' || itemtype,
3994: 1,
3995: 'N'
3988: itemkey => itemkey,
3989: aname => 'APPROVALID'
3990: );
3991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3992: aso_debug_pub.ADD (
3993: 'ItemType is:' || itemtype,
3994: 1,
3995: 'N'
3996: );
3993: 'ItemType is:' || itemtype,
3994: 1,
3995: 'N'
3996: );
3997: aso_debug_pub.ADD (
3998: 'ItemKey is :' || itemkey,
3999: 1,
4000: 'N'
4001: );
3998: 'ItemKey is :' || itemkey,
3999: 1,
4000: 'N'
4001: );
4002: aso_debug_pub.ADD (
4003: 'Approval ID :' || l_approval_id,
4004: 1,
4005: 'N'
4006: );
4005: 'N'
4006: );
4007: END IF;
4008: -- get the attribute label
4009: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4010: aso_debug_pub.ADD (
4011: 'Calling the get_attribute_label procedure',
4012: 1,
4013: 'N'
4006: );
4007: END IF;
4008: -- get the attribute label
4009: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4010: aso_debug_pub.ADD (
4011: 'Calling the get_attribute_label procedure',
4012: 1,
4013: 'N'
4014: );
4020:
4021: -- Create an html text buffer
4022: IF (display_type = 'text/html')
4023: THEN
4024: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4025: aso_debug_pub.ADD (
4026: 'Display type is text/html',
4027: 1,
4028: 'N'
4021: -- Create an html text buffer
4022: IF (display_type = 'text/html')
4023: THEN
4024: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4025: aso_debug_pub.ADD (
4026: 'Display type is text/html',
4027: 1,
4028: 'N'
4029: );
4060: aso_apr_int.get_approver_name (
4061: i.approver_user_id,
4062: i.approver_person_id
4063: );
4064: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4065: aso_debug_pub.ADD (
4066: 'Approver Name is ' || l_approver_display_name,
4067: 1,
4068: 'N'
4061: i.approver_user_id,
4062: i.approver_person_id
4063: );
4064: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4065: aso_debug_pub.ADD (
4066: 'Approver Name is ' || l_approver_display_name,
4067: 1,
4068: 'N'
4069: );
4087: -- Create a plain text buffer
4088:
4089: IF (display_type = 'text/plain')
4090: THEN
4091: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4092: aso_debug_pub.ADD (
4093: 'Display type is text/plain',
4094: 1,
4095: 'N'
4088:
4089: IF (display_type = 'text/plain')
4090: THEN
4091: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4092: aso_debug_pub.ADD (
4093: 'Display type is text/plain',
4094: 1,
4095: 'N'
4096: );
4135:
4136: document_type := 'text/plain';
4137: END IF;
4138:
4139: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4140: aso_debug_pub.ADD (
4141: 'End APPROVER_DETAILS_DOC procedure ',
4142: 1,
4143: 'N'
4136: document_type := 'text/plain';
4137: END IF;
4138:
4139: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4140: aso_debug_pub.ADD (
4141: 'End APPROVER_DETAILS_DOC procedure ',
4142: 1,
4143: 'N'
4144: );
4145: END IF;
4146: EXCEPTION
4147: WHEN OTHERS
4148: THEN
4149: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4150: aso_debug_pub.ADD (
4151: 'Exception in APPROVER_DETAILS_DOC SqlCode :' || SQLERRM,
4152: 1,
4153: 'N'
4146: EXCEPTION
4147: WHEN OTHERS
4148: THEN
4149: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4150: aso_debug_pub.ADD (
4151: 'Exception in APPROVER_DETAILS_DOC SqlCode :' || SQLERRM,
4152: 1,
4153: 'N'
4154: );
4247: AND qh.quote_header_id = aoa.object_id
4248: AND aoa.object_approval_id = c_approval_id;
4249:
4250: BEGIN
4251: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4252: aso_debug_pub.ADD (
4253: 'Begin QUOTE_SUMMARY_DOC procedure ',
4254: 1,
4255: 'N'
4248: AND aoa.object_approval_id = c_approval_id;
4249:
4250: BEGIN
4251: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4252: aso_debug_pub.ADD (
4253: 'Begin QUOTE_SUMMARY_DOC procedure ',
4254: 1,
4255: 'N'
4256: );
4277: itemtype => itemtype,
4278: itemkey => itemkey,
4279: aname => 'APPROVALID'
4280: );
4281: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4282: aso_debug_pub.ADD (
4283: 'ItemType is:' || itemtype,
4284: 1,
4285: 'N'
4278: itemkey => itemkey,
4279: aname => 'APPROVALID'
4280: );
4281: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4282: aso_debug_pub.ADD (
4283: 'ItemType is:' || itemtype,
4284: 1,
4285: 'N'
4286: );
4283: 'ItemType is:' || itemtype,
4284: 1,
4285: 'N'
4286: );
4287: aso_debug_pub.ADD (
4288: 'ItemKey is :' || itemkey,
4289: 1,
4290: 'N'
4291: );
4288: 'ItemKey is :' || itemkey,
4289: 1,
4290: 'N'
4291: );
4292: aso_debug_pub.ADD (
4293: 'Approval ID :' || l_approval_id,
4294: 1,
4295: 'N'
4296: );
4307: l_quote_header_id
4308: );
4309: FETCH get_customer_name INTO l_customer_name;
4310: CLOSE get_customer_name;
4311: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4312: aso_debug_pub.ADD (
4313: 'Customer Name is ' || l_customer_name,
4314: 1,
4315: 'N'
4308: );
4309: FETCH get_customer_name INTO l_customer_name;
4310: CLOSE get_customer_name;
4311: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4312: aso_debug_pub.ADD (
4313: 'Customer Name is ' || l_customer_name,
4314: 1,
4315: 'N'
4316: );
4319: l_quote_header_id
4320: );
4321: FETCH get_account_number INTO l_account_number;
4322: CLOSE get_account_number;
4323: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4324: aso_debug_pub.ADD (
4325: 'Customer Account Number is ' || l_account_number,
4326: 1,
4327: 'N'
4320: );
4321: FETCH get_account_number INTO l_account_number;
4322: CLOSE get_account_number;
4323: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4324: aso_debug_pub.ADD (
4325: 'Customer Account Number is ' || l_account_number,
4326: 1,
4327: 'N'
4328: );
4333: l_approval_id
4334: );
4335: FETCH get_opportunity_name INTO l_opportunity_name;
4336: CLOSE get_opportunity_name;
4337: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4338: aso_debug_pub.ADD (
4339: 'Opportunity Name :' || l_opportunity_name,
4340: 1,
4341: 'N'
4334: );
4335: FETCH get_opportunity_name INTO l_opportunity_name;
4336: CLOSE get_opportunity_name;
4337: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4338: aso_debug_pub.ADD (
4339: 'Opportunity Name :' || l_opportunity_name,
4340: 1,
4341: 'N'
4342: );
4353: );
4354: FETCH get_contact_name INTO l_contact_name;
4355: CLOSE get_contact_name;
4356: END IF;
4357: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4358: aso_debug_pub.ADD (
4359: 'Contact Name :' || l_contact_name,
4360: 1,
4361: 'N'
4354: FETCH get_contact_name INTO l_contact_name;
4355: CLOSE get_contact_name;
4356: END IF;
4357: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4358: aso_debug_pub.ADD (
4359: 'Contact Name :' || l_contact_name,
4360: 1,
4361: 'N'
4362: );
4362: );
4363: END IF;
4364: -- get the attribute labels
4365:
4366: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4367: aso_debug_pub.ADD (
4368: 'Calling the get_attribute_label proceure ',
4369: 1,
4370: 'N'
4363: END IF;
4364: -- get the attribute labels
4365:
4366: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4367: aso_debug_pub.ADD (
4368: 'Calling the get_attribute_label proceure ',
4369: 1,
4370: 'N'
4371: );
4377:
4378: -- Create an html text buffer
4379: IF (display_type = 'text/html')
4380: THEN
4381: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4382: aso_debug_pub.ADD (
4383: 'Display type is text/html',
4384: 1,
4385: 'N'
4378: -- Create an html text buffer
4379: IF (display_type = 'text/html')
4380: THEN
4381: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4382: aso_debug_pub.ADD (
4383: 'Display type is text/html',
4384: 1,
4385: 'N'
4386: );
4475: -- Create a plain text buffer
4476:
4477: IF (display_type = 'text/plain')
4478: THEN
4479: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4480: aso_debug_pub.ADD (
4481: 'Display type is text/plain',
4482: 1,
4483: 'N'
4476:
4477: IF (display_type = 'text/plain')
4478: THEN
4479: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4480: aso_debug_pub.ADD (
4481: 'Display type is text/plain',
4482: 1,
4483: 'N'
4484: );
4541: document := document || l_expiration_date;
4542: document_type := 'text/plain';
4543: END IF;
4544:
4545: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4546: aso_debug_pub.ADD (
4547: 'End QUOTE_SUMMARY_DOC procedure ',
4548: 1,
4549: 'N'
4542: document_type := 'text/plain';
4543: END IF;
4544:
4545: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4546: aso_debug_pub.ADD (
4547: 'End QUOTE_SUMMARY_DOC procedure ',
4548: 1,
4549: 'N'
4550: );
4551: END IF;
4552: EXCEPTION
4553: WHEN OTHERS
4554: THEN
4555: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4556: aso_debug_pub.ADD (
4557: 'Exception in QUOTE_SUMMARY_DOC SqlCode :' || SQLERRM,
4558: 1,
4559: 'N'
4552: EXCEPTION
4553: WHEN OTHERS
4554: THEN
4555: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4556: aso_debug_pub.ADD (
4557: 'Exception in QUOTE_SUMMARY_DOC SqlCode :' || SQLERRM,
4558: 1,
4559: 'N'
4560: );
4587: SELECT requester_comments
4588: FROM aso_apr_obj_approvals
4589: WHERE object_approval_id = c_approval_id;
4590: BEGIN
4591: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4592: aso_debug_pub.ADD (
4593: 'Begin REQUESTER_COMMENTS_DOC procedure ',
4594: 1,
4595: 'N'
4588: FROM aso_apr_obj_approvals
4589: WHERE object_approval_id = c_approval_id;
4590: BEGIN
4591: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4592: aso_debug_pub.ADD (
4593: 'Begin REQUESTER_COMMENTS_DOC procedure ',
4594: 1,
4595: 'N'
4596: );
4617: itemtype => itemtype,
4618: itemkey => itemkey,
4619: aname => 'APPROVALID'
4620: );
4621: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4622: aso_debug_pub.ADD (
4623: 'ItemType is:' || itemtype,
4624: 1,
4625: 'N'
4618: itemkey => itemkey,
4619: aname => 'APPROVALID'
4620: );
4621: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4622: aso_debug_pub.ADD (
4623: 'ItemType is:' || itemtype,
4624: 1,
4625: 'N'
4626: );
4623: 'ItemType is:' || itemtype,
4624: 1,
4625: 'N'
4626: );
4627: aso_debug_pub.ADD (
4628: 'ItemKey is :' || itemkey,
4629: 1,
4630: 'N'
4631: );
4628: 'ItemKey is :' || itemkey,
4629: 1,
4630: 'N'
4631: );
4632: aso_debug_pub.ADD (
4633: 'Approval ID :' || l_approval_id,
4634: 1,
4635: 'N'
4636: );
4636: );
4637: END IF;
4638: -- get the attribute labels
4639:
4640: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4641: aso_debug_pub.ADD (
4642: 'Calling the get_attribute_label procedure ',
4643: 1,
4644: 'N'
4637: END IF;
4638: -- get the attribute labels
4639:
4640: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4641: aso_debug_pub.ADD (
4642: 'Calling the get_attribute_label procedure ',
4643: 1,
4644: 'N'
4645: );
4651:
4652: -- Create an html text buffer
4653: IF (display_type = 'text/html')
4654: THEN
4655: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4656: aso_debug_pub.ADD (
4657: 'Display type is text/html',
4658: 1,
4659: 'N'
4652: -- Create an html text buffer
4653: IF (display_type = 'text/html')
4654: THEN
4655: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4656: aso_debug_pub.ADD (
4657: 'Display type is text/html',
4658: 1,
4659: 'N'
4660: );
4663: l_approval_id
4664: );
4665: FETCH get_requester_details INTO l_requester_comments;
4666: CLOSE get_requester_details;
4667: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4668: aso_debug_pub.ADD (
4669: 'Creating a text/html document ',
4670: 1,
4671: 'N'
4664: );
4665: FETCH get_requester_details INTO l_requester_comments;
4666: CLOSE get_requester_details;
4667: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4668: aso_debug_pub.ADD (
4669: 'Creating a text/html document ',
4670: 1,
4671: 'N'
4672: );
4689: -- Create a plain text buffer
4690:
4691: IF (display_type = 'text/plain')
4692: THEN
4693: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4694: aso_debug_pub.ADD (
4695: 'Display type is text/plain',
4696: 1,
4697: 'N'
4690:
4691: IF (display_type = 'text/plain')
4692: THEN
4693: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4694: aso_debug_pub.ADD (
4695: 'Display type is text/plain',
4696: 1,
4697: 'N'
4698: );
4719: );
4720: document_type := 'text/plain';
4721: END IF;
4722:
4723: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4724: aso_debug_pub.ADD (
4725: 'End REQUESTER_COMMENTS_DOC procedure ',
4726: 1,
4727: 'N'
4720: document_type := 'text/plain';
4721: END IF;
4722:
4723: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4724: aso_debug_pub.ADD (
4725: 'End REQUESTER_COMMENTS_DOC procedure ',
4726: 1,
4727: 'N'
4728: );
4729: END IF;
4730: EXCEPTION
4731: WHEN OTHERS
4732: THEN
4733: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4734: aso_debug_pub.ADD (
4735: 'Exception in REQUESTER_COMMENTS_DOC SqlCode :' || SQLERRM,
4736: 1,
4737: 'N'
4730: EXCEPTION
4731: WHEN OTHERS
4732: THEN
4733: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4734: aso_debug_pub.ADD (
4735: 'Exception in REQUESTER_COMMENTS_DOC SqlCode :' || SQLERRM,
4736: 1,
4737: 'N'
4738: );
4769: SELECT oam_rule_id
4770: FROM aso_apr_rules
4771: WHERE object_approval_id = c_approval_id;
4772: BEGIN
4773: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4774: aso_debug_pub.ADD (
4775: 'Begin RULE_DETAILS_DOC procedure ',
4776: 1,
4777: 'N'
4770: FROM aso_apr_rules
4771: WHERE object_approval_id = c_approval_id;
4772: BEGIN
4773: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4774: aso_debug_pub.ADD (
4775: 'Begin RULE_DETAILS_DOC procedure ',
4776: 1,
4777: 'N'
4778: );
4799: itemtype => itemtype,
4800: itemkey => itemkey,
4801: aname => 'APPROVALID'
4802: );
4803: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4804: aso_debug_pub.ADD (
4805: 'ItemType is:' || itemtype,
4806: 1,
4807: 'N'
4800: itemkey => itemkey,
4801: aname => 'APPROVALID'
4802: );
4803: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4804: aso_debug_pub.ADD (
4805: 'ItemType is:' || itemtype,
4806: 1,
4807: 'N'
4808: );
4805: 'ItemType is:' || itemtype,
4806: 1,
4807: 'N'
4808: );
4809: aso_debug_pub.ADD (
4810: 'ItemKey is :' || itemkey,
4811: 1,
4812: 'N'
4813: );
4810: 'ItemKey is :' || itemkey,
4811: 1,
4812: 'N'
4813: );
4814: aso_debug_pub.ADD (
4815: 'Approval ID :' || l_approval_id,
4816: 1,
4817: 'N'
4818: );
4818: );
4819: END IF;
4820: -- get the attribute label
4821:
4822: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4823: aso_debug_pub.ADD (
4824: 'Calling the get_attribute_label procedure ',
4825: 1,
4826: 'N'
4819: END IF;
4820: -- get the attribute label
4821:
4822: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4823: aso_debug_pub.ADD (
4824: 'Calling the get_attribute_label procedure ',
4825: 1,
4826: 'N'
4827: );
4833:
4834: -- Create an html text buffer
4835: IF (display_type = 'text/html')
4836: THEN
4837: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4838: aso_debug_pub.ADD (
4839: 'Display type is text/html',
4840: 1,
4841: 'N'
4834: -- Create an html text buffer
4835: IF (display_type = 'text/html')
4836: THEN
4837: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4838: aso_debug_pub.ADD (
4839: 'Display type is text/html',
4840: 1,
4841: 'N'
4842: );
4867: FOR i IN get_rule_details (
4868: l_approval_id
4869: )
4870: LOOP
4871: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4872: aso_debug_pub.ADD (
4873: 'Calling AME get applicable rules procedure',
4874: 1,
4875: 'N'
4868: l_approval_id
4869: )
4870: LOOP
4871: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4872: aso_debug_pub.ADD (
4873: 'Calling AME get applicable rules procedure',
4874: 1,
4875: 'N'
4876: );
4891: document := document
4892: || '
4892: || '
4897: 'Rule Description is ' || l_rule_description,
4898: 1,
4899: 'N'
4900: );
4901: aso_debug_pub.ADD (
4902: 'Approval level is ' || l_approval_level,
4903: 1,
4904: 'N'
4905: );
4913: -- Create a plain text buffer
4914:
4915: IF (display_type = 'text/plain')
4916: THEN
4917: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4918: aso_debug_pub.ADD (
4919: 'Display type is text/plain',
4920: 1,
4921: 'N'
4914:
4915: IF (display_type = 'text/plain')
4916: THEN
4917: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4918: aso_debug_pub.ADD (
4919: 'Display type is text/plain',
4920: 1,
4921: 'N'
4922: );
4934: FOR i IN get_rule_details (
4935: l_approval_id
4936: )
4937: LOOP
4938: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4939: aso_debug_pub.ADD (
4940: 'Calling AME get applicable rules procedure',
4941: 1,
4942: 'N'
4935: l_approval_id
4936: )
4937: LOOP
4938: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4939: aso_debug_pub.ADD (
4940: 'Calling AME get applicable rules procedure',
4941: 1,
4942: 'N'
4943: );
4968:
4969: document_type := 'text/plain';
4970: END IF;
4971:
4972: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4973: aso_debug_pub.ADD (
4974: 'End RULE_DETAILS_DOC procedure ',
4975: 1,
4976: 'N'
4969: document_type := 'text/plain';
4970: END IF;
4971:
4972: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4973: aso_debug_pub.ADD (
4974: 'End RULE_DETAILS_DOC procedure ',
4975: 1,
4976: 'N'
4977: );
4978: END IF;
4979: EXCEPTION
4980: WHEN OTHERS
4981: THEN
4982: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4983: aso_debug_pub.ADD (
4984: 'Exception in RULE_DETAILS_DOC SqlCode :' || SQLERRM,
4985: 1,
4986: 'N'
4979: EXCEPTION
4980: WHEN OTHERS
4981: THEN
4982: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4983: aso_debug_pub.ADD (
4984: 'Exception in RULE_DETAILS_DOC SqlCode :' || SQLERRM,
4985: 1,
4986: 'N'
4987: );
5038: AND nvl(qha.cust_account_id,0 ) = hca.cust_account_id (+)
5039: AND qha.cust_party_id = hp.party_id;
5040:
5041: BEGIN
5042: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5043: aso_debug_pub.ADD (
5044: 'Begin QUOTE_DETAIL_URL procedure ',
5045: 1,
5046: 'N'
5039: AND qha.cust_party_id = hp.party_id;
5040:
5041: BEGIN
5042: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5043: aso_debug_pub.ADD (
5044: 'Begin QUOTE_DETAIL_URL procedure ',
5045: 1,
5046: 'N'
5047: );
5068: itemtype => itemtype,
5069: itemkey => itemkey,
5070: aname => 'APPROVALID'
5071: );
5072: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5073: aso_debug_pub.ADD (
5074: 'ItemType is:' || itemtype,
5075: 1,
5076: 'N'
5069: itemkey => itemkey,
5070: aname => 'APPROVALID'
5071: );
5072: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5073: aso_debug_pub.ADD (
5074: 'ItemType is:' || itemtype,
5075: 1,
5076: 'N'
5077: );
5074: 'ItemType is:' || itemtype,
5075: 1,
5076: 'N'
5077: );
5078: aso_debug_pub.ADD (
5079: 'ItemKey is :' || itemkey,
5080: 1,
5081: 'N'
5082: );
5079: 'ItemKey is :' || itemkey,
5080: 1,
5081: 'N'
5082: );
5083: aso_debug_pub.ADD (
5084: 'Approval ID :' || l_approval_id,
5085: 1,
5086: 'N'
5087: );
5099: FETCH get_quote_details INTO l_cust_account_id,
5100: l_party_type;
5101: CLOSE get_quote_details;
5102:
5103: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5104: aso_debug_pub.ADD (
5105: 'Quote header ID is ' || l_quote_header_id,
5106: 1,
5107: 'N'
5100: l_party_type;
5101: CLOSE get_quote_details;
5102:
5103: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5104: aso_debug_pub.ADD (
5105: 'Quote header ID is ' || l_quote_header_id,
5106: 1,
5107: 'N'
5108: );
5109: END IF;
5110: -- get the server address
5111: l_url := fnd_web_config.jsp_agent (
5112: );
5113: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5114: aso_debug_pub.ADD (
5115: 'URL ID is ' || l_url,
5116: 1,
5117: 'N'
5110: -- get the server address
5111: l_url := fnd_web_config.jsp_agent (
5112: );
5113: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5114: aso_debug_pub.ADD (
5115: 'URL ID is ' || l_url,
5116: 1,
5117: 'N'
5118: );
5196:
5197: -- Create an html text buffer
5198: IF (display_type = 'text/html')
5199: THEN
5200: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5201: aso_debug_pub.ADD (
5202: 'Display type is text/html',
5203: 1,
5204: 'N'
5197: -- Create an html text buffer
5198: IF (display_type = 'text/html')
5199: THEN
5200: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5201: aso_debug_pub.ADD (
5202: 'Display type is text/html',
5203: 1,
5204: 'N'
5205: );
5218: -- Create a plain text buffer
5219:
5220: IF (display_type = 'text/plain')
5221: THEN
5222: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5223: aso_debug_pub.ADD (
5224: 'Display type is text/plain',
5225: 1,
5226: 'N'
5219:
5220: IF (display_type = 'text/plain')
5221: THEN
5222: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5223: aso_debug_pub.ADD (
5224: 'Display type is text/plain',
5225: 1,
5226: 'N'
5227: );
5229: NULL;
5230: document_type := 'text/plain';
5231: END IF;
5232:
5233: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5234: aso_debug_pub.ADD (
5235: 'End QUOTE_DETAIL_URL procedure ',
5236: 1,
5237: 'N'
5230: document_type := 'text/plain';
5231: END IF;
5232:
5233: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5234: aso_debug_pub.ADD (
5235: 'End QUOTE_DETAIL_URL procedure ',
5236: 1,
5237: 'N'
5238: );
5239: END IF;
5240: EXCEPTION
5241: WHEN OTHERS
5242: THEN
5243: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5244: aso_debug_pub.ADD (
5245: 'Exception in QUOTE_DETAIL_URL SqlCode :' || SQLERRM,
5246: 1,
5247: 'N'
5240: EXCEPTION
5241: WHEN OTHERS
5242: THEN
5243: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5244: aso_debug_pub.ADD (
5245: 'Exception in QUOTE_DETAIL_URL SqlCode :' || SQLERRM,
5246: 1,
5247: 'N'
5248: );
5281: AND AAT.ATTRIBUTE_CODE = ARA.ATTRIBUTE_CODE
5282: AND AAT.LANGUAGE = USERENV('LANG')
5283: ORDER by display_sequence;
5284: BEGIN
5285: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5286: aso_debug_pub.ADD (
5287: 'begin GET_ATTRIBUTE_LABEL procedure ',
5288: 1,
5289: 'N'
5282: AND AAT.LANGUAGE = USERENV('LANG')
5283: ORDER by display_sequence;
5284: BEGIN
5285: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5286: aso_debug_pub.ADD (
5287: 'begin GET_ATTRIBUTE_LABEL procedure ',
5288: 1,
5289: 'N'
5290: );
5294: p_approval_id
5295: );
5296: FETCH get_application_id INTO l_application_id;
5297: CLOSE get_application_id;
5298: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5299: aso_debug_pub.ADD (
5300: 'Application ID is ' || l_application_id,
5301: 1,
5302: 'N'
5295: );
5296: FETCH get_application_id INTO l_application_id;
5297: CLOSE get_application_id;
5298: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5299: aso_debug_pub.ADD (
5300: 'Application ID is ' || l_application_id,
5301: 1,
5302: 'N'
5303: );
5314: p_attribute_tbl.EXTEND;
5315: p_attribute_tbl (
5316: p_attribute_tbl.COUNT
5317: ) := i.attribute_label_long;
5318: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5319: aso_debug_pub.ADD (
5320: 'Label is ' || p_attribute_tbl (
5321: p_attribute_tbl.COUNT
5322: ),
5315: p_attribute_tbl (
5316: p_attribute_tbl.COUNT
5317: ) := i.attribute_label_long;
5318: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5319: aso_debug_pub.ADD (
5320: 'Label is ' || p_attribute_tbl (
5321: p_attribute_tbl.COUNT
5322: ),
5323: 1,
5325: );
5326: END IF;
5327: END LOOP;
5328:
5329: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5330: aso_debug_pub.ADD (
5331: 'Count of labels is ' || p_attribute_tbl.COUNT,
5332: 1,
5333: 'N'
5326: END IF;
5327: END LOOP;
5328:
5329: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5330: aso_debug_pub.ADD (
5331: 'Count of labels is ' || p_attribute_tbl.COUNT,
5332: 1,
5333: 'N'
5334: );
5331: 'Count of labels is ' || p_attribute_tbl.COUNT,
5332: 1,
5333: 'N'
5334: );
5335: aso_debug_pub.ADD (
5336: 'End GET_ATTRIBUTE_LABEL procedure ',
5337: 1,
5338: 'N'
5339: );
5340: END IF;
5341: EXCEPTION
5342: WHEN OTHERS
5343: THEN
5344: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5345: aso_debug_pub.ADD (
5346: 'Exception in GET_ATTRIBUTE_LABEL SqlCode :' || SQLERRM,
5347: 1,
5348: 'N'
5341: EXCEPTION
5342: WHEN OTHERS
5343: THEN
5344: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5345: aso_debug_pub.ADD (
5346: 'Exception in GET_ATTRIBUTE_LABEL SqlCode :' || SQLERRM,
5347: 1,
5348: 'N'
5349: );
5424: WHERE qha.quote_header_id = aoa.object_id
5425: AND aoa.object_approval_id = c_approval_id;
5426:
5427: BEGIN
5428: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5429: aso_debug_pub.ADD (
5430: 'Begin set attribute Process',
5431: 1,
5432: 'N'
5425: AND aoa.object_approval_id = c_approval_id;
5426:
5427: BEGIN
5428: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5429: aso_debug_pub.ADD (
5430: 'Begin set attribute Process',
5431: 1,
5432: 'N'
5433: );
5447: LOOP
5448: l_approval_object := i.quote_name;
5449: l_org_id := i.org_id;
5450:
5451: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5452: aso_debug_pub.ADD (
5453: 'Quote name :' || l_approval_object,
5454: 1,
5455: 'N'
5448: l_approval_object := i.quote_name;
5449: l_org_id := i.org_id;
5450:
5451: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5452: aso_debug_pub.ADD (
5453: 'Quote name :' || l_approval_object,
5454: 1,
5455: 'N'
5456: );
5492: p_parameters => l_ampsign||l_ampsign||'QotIntgEvtSrc=ApvlNotif'||l_ampsign||'QotIntgEvt=Event.QuoteDet'||l_ampsign||'QotIntgEvtVal='
5493: ||i.quote_header_id||l_ampsign||'QotIntgEvtVal1='||i.quote_number||l_ampsign||'addBreadCrumb=Y') ;
5494:
5495:
5496: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5497: aso_debug_pub.ADD ('RESP_APPL_ID: ' || FND_GLOBAL.RESP_APPL_ID,1,'N');
5498: aso_debug_pub.ADD ('RESP_ID: ' || FND_GLOBAL.RESP_ID,1,'N');
5499: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
5500: END IF;
5493: ||i.quote_header_id||l_ampsign||'QotIntgEvtVal1='||i.quote_number||l_ampsign||'addBreadCrumb=Y') ;
5494:
5495:
5496: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5497: aso_debug_pub.ADD ('RESP_APPL_ID: ' || FND_GLOBAL.RESP_APPL_ID,1,'N');
5498: aso_debug_pub.ADD ('RESP_ID: ' || FND_GLOBAL.RESP_ID,1,'N');
5499: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
5500: END IF;
5501:
5494:
5495:
5496: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5497: aso_debug_pub.ADD ('RESP_APPL_ID: ' || FND_GLOBAL.RESP_APPL_ID,1,'N');
5498: aso_debug_pub.ADD ('RESP_ID: ' || FND_GLOBAL.RESP_ID,1,'N');
5499: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
5500: END IF;
5501:
5502:
5495:
5496: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5497: aso_debug_pub.ADD ('RESP_APPL_ID: ' || FND_GLOBAL.RESP_APPL_ID,1,'N');
5498: aso_debug_pub.ADD ('RESP_ID: ' || FND_GLOBAL.RESP_ID,1,'N');
5499: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
5500: END IF;
5501:
5502:
5503: wf_engine.setitemattrtext (
5512: END IF;
5513: EXCEPTION
5514: WHEN OTHERS
5515: THEN
5516: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5517: aso_debug_pub.ADD (
5518: 'Exception in Set Attributes SqlCode :' || SQLERRM,
5519: 1,
5520: 'N'
5513: EXCEPTION
5514: WHEN OTHERS
5515: THEN
5516: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5517: aso_debug_pub.ADD (
5518: 'Exception in Set Attributes SqlCode :' || SQLERRM,
5519: 1,
5520: 'N'
5521: );
5537: p_status IN VARCHAR2,
5538: note IN VARCHAR2
5539: ) is
5540: begin
5541: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5542: aso_debug_pub.ADD (
5543: 'Start update_approval_status procedure ',
5544: 1,
5545: 'N'
5538: note IN VARCHAR2
5539: ) is
5540: begin
5541: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5542: aso_debug_pub.ADD (
5543: 'Start update_approval_status procedure ',
5544: 1,
5545: 'N'
5546: );
5544: 1,
5545: 'N'
5546: );
5547:
5548: aso_debug_pub.ADD (
5549: 'Flag is :' || p_update_header_or_detail_flag,
5550: 1,
5551: 'N'
5552: );
5549: 'Flag is :' || p_update_header_or_detail_flag,
5550: 1,
5551: 'N'
5552: );
5553: aso_debug_pub.ADD (
5554: 'Object Approval ID is :' || p_object_approval_id,
5555: 1,
5556: 'N'
5557: );
5554: 'Object Approval ID is :' || p_object_approval_id,
5555: 1,
5556: 'N'
5557: );
5558: aso_debug_pub.ADD (
5559: 'Approval Detail ID is :' || p_approval_det_id,
5560: 1,
5561: 'N'
5562: );
5559: 'Approval Detail ID is :' || p_approval_det_id,
5560: 1,
5561: 'N'
5562: );
5563: aso_debug_pub.ADD (
5564: 'Status is :' || p_status,
5565: 1,
5566: 'N'
5567: );
5599: last_update_login = fnd_global.user_id
5600: WHERE approval_det_id = p_approval_det_id;
5601: END IF;
5602:
5603: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5604: aso_debug_pub.ADD (
5605: 'End update_approval_status procedure ',
5606: 1,
5607: 'N'
5600: WHERE approval_det_id = p_approval_det_id;
5601: END IF;
5602:
5603: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5604: aso_debug_pub.ADD (
5605: 'End update_approval_status procedure ',
5606: 1,
5607: 'N'
5608: );