28: WHERE object_approval_id = P_Object_approval_id)
29: AND approval_status = 'PEND';
30:
31: BEGIN
32: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
33: aso_debug_pub.ADD (
34: 'Begin ASO_PA_APR_WF_PVT package ',
35: 1,
36: 'N'
29: AND approval_status = 'PEND';
30:
31: BEGIN
32: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
33: aso_debug_pub.ADD (
34: 'Begin ASO_PA_APR_WF_PVT package ',
35: 1,
36: 'N'
37: );
34: 'Begin ASO_PA_APR_WF_PVT package ',
35: 1,
36: 'N'
37: );
38: aso_debug_pub.ADD (
39: 'Starting Approval Process for approval id ' || P_Object_approval_id,
40: 1,
41: 'N'
42: );
39: 'Starting Approval Process for approval id ' || P_Object_approval_id,
40: 1,
41: 'N'
42: );
43: aso_debug_pub.ADD (
44: 'Starting Approval Process for sender_name ' || P_sender_name,
45: 1,
46: 'N'
47: );
50: OPEN C_get_appr_id;
51: FETCH C_get_appr_id INTO l_object_approval_id;
52: CLOSE C_get_appr_id;
53:
54: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
55: aso_debug_pub.ADD('l_object_approval_id: '|| l_object_approval_id,1,'N');
56: END IF;
57:
58: IF (P_Object_approval_id = l_object_approval_id) THEN
51: FETCH C_get_appr_id INTO l_object_approval_id;
52: CLOSE C_get_appr_id;
53:
54: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
55: aso_debug_pub.ADD('l_object_approval_id: '|| l_object_approval_id,1,'N');
56: END IF;
57:
58: IF (P_Object_approval_id = l_object_approval_id) THEN
59:
105: itemkey => l_itemkey,
106: aname => 'REQUESTOR_DISPLAYNAME',
107: avalue => l_requestor_display_name
108: );
109: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
110: aso_debug_pub.ADD (
111: 'Requester DisplayName is :' || l_requestor_display_name,
112: 1,
113: 'N'
106: aname => 'REQUESTOR_DISPLAYNAME',
107: avalue => l_requestor_display_name
108: );
109: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
110: aso_debug_pub.ADD (
111: 'Requester DisplayName is :' || l_requestor_display_name,
112: 1,
113: 'N'
114: );
120: );
121:
122: ELSE -- approval_id and obj_approval_id are not the same
123:
124: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
125: aso_debug_pub.ADD('Skipping the create approval workflow',1,'N');
126: aso_debug_pub.ADD('***** NOTE: APPROVAL WORKFLOW PROCESS HAS NOT BEEN STARTED',1,'N');
127: END IF;
128: END IF;
121:
122: ELSE -- approval_id and obj_approval_id are not the same
123:
124: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
125: aso_debug_pub.ADD('Skipping the create approval workflow',1,'N');
126: aso_debug_pub.ADD('***** NOTE: APPROVAL WORKFLOW PROCESS HAS NOT BEEN STARTED',1,'N');
127: END IF;
128: END IF;
129:
122: ELSE -- approval_id and obj_approval_id are not the same
123:
124: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
125: aso_debug_pub.ADD('Skipping the create approval workflow',1,'N');
126: aso_debug_pub.ADD('***** NOTE: APPROVAL WORKFLOW PROCESS HAS NOT BEEN STARTED',1,'N');
127: END IF;
128: END IF;
129:
130:
128: END IF;
129:
130:
131:
132: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
133: aso_debug_pub.ADD (
134: 'End of Start_ASO_Approvals ',
135: 1,
136: 'N'
129:
130:
131:
132: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
133: aso_debug_pub.ADD (
134: 'End of Start_ASO_Approvals ',
135: 1,
136: 'N'
137: );
138: END IF;
139: EXCEPTION
140: WHEN OTHERS
141: THEN
142: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
143: aso_debug_pub.ADD (
144: 'Exception in Start_ASO_Approvals Proc SqlCode :' || SQLERRM,
145: 1,
146: 'N'
139: EXCEPTION
140: WHEN OTHERS
141: THEN
142: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
143: aso_debug_pub.ADD (
144: 'Exception in Start_ASO_Approvals Proc SqlCode :' || SQLERRM,
145: 1,
146: 'N'
147: );
165: ) is
166: pragma AUTONOMOUS_TRANSACTION;
167: l_object_version_number number;
168: begin
169: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
170: aso_debug_pub.ADD (
171: 'Start update_approval_status procedure ',
172: 1,
173: 'N'
166: pragma AUTONOMOUS_TRANSACTION;
167: l_object_version_number number;
168: begin
169: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
170: aso_debug_pub.ADD (
171: 'Start update_approval_status procedure ',
172: 1,
173: 'N'
174: );
172: 1,
173: 'N'
174: );
175:
176: aso_debug_pub.ADD (
177: 'Flag is :' || p_update_header_or_detail_flag,
178: 1,
179: 'N'
180: );
177: 'Flag is :' || p_update_header_or_detail_flag,
178: 1,
179: 'N'
180: );
181: aso_debug_pub.ADD (
182: 'Object Approval ID is :' || p_object_approval_id,
183: 1,
184: 'N'
185: );
182: 'Object Approval ID is :' || p_object_approval_id,
183: 1,
184: 'N'
185: );
186: aso_debug_pub.ADD (
187: 'Approval Detail ID is :' || p_approval_det_id,
188: 1,
189: 'N'
190: );
187: 'Approval Detail ID is :' || p_approval_det_id,
188: 1,
189: 'N'
190: );
191: aso_debug_pub.ADD (
192: 'Status is :' || p_status,
193: 1,
194: 'N'
195: );
234: last_update_login = fnd_global.user_id
235: WHERE approval_det_id = p_approval_det_id;
236: END IF;
237:
238: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
239: aso_debug_pub.ADD (
240: 'End update_approval_status procedure ',
241: 1,
242: 'N'
235: WHERE approval_det_id = p_approval_det_id;
236: END IF;
237:
238: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
239: aso_debug_pub.ADD (
240: 'End update_approval_status procedure ',
241: 1,
242: 'N'
243: );
290:
291: Begin
292:
293: --pp_debug('Entered Get next approvers');
294: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
295: aso_debug_pub.ADD (
296: 'Start Get_Next_Approvers procedure '||funcmode,
297: 1,
298: 'N'
291: Begin
292:
293: --pp_debug('Entered Get next approvers');
294: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
295: aso_debug_pub.ADD (
296: 'Start Get_Next_Approvers procedure '||funcmode,
297: 1,
298: 'N'
299: );
466:
467: BEGIN
468:
469: --pp_debug('Entered Get attributes');
470: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
471: aso_debug_pub.ADD (
472: 'Begin set attribute Process',
473: 1,
474: 'N'
467: BEGIN
468:
469: --pp_debug('Entered Get attributes');
470: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
471: aso_debug_pub.ADD (
472: 'Begin set attribute Process',
473: 1,
474: 'N'
475: );
493: l_org_id := i.org_id;
494:
495: --pp_debug('Inside set attributes lloop');
496:
497: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
498: aso_debug_pub.ADD (
499: 'Quote name :' || l_approval_object,
500: 1,
501: 'N'
494:
495: --pp_debug('Inside set attributes lloop');
496:
497: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
498: aso_debug_pub.ADD (
499: 'Quote name :' || l_approval_object,
500: 1,
501: 'N'
502: );
540: p_parameters => l_ampsign||l_ampsign||'QotIntgEvtSrc=ApvlNotif'||l_ampsign||'QotIntgEvt=Event.QuoteDet'||l_ampsign||'QotIntgEvtVal='
541: ||i.quote_header_id||l_ampsign||'QotIntgEvtVal1='||i.quote_number||l_ampsign||'addBreadCrumb=Y') ;
542:
543:
544: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
545: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
546: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
547: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
548: END IF;
541: ||i.quote_header_id||l_ampsign||'QotIntgEvtVal1='||i.quote_number||l_ampsign||'addBreadCrumb=Y') ;
542:
543:
544: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
545: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
546: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
547: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
548: END IF;
549:
542:
543:
544: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
545: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
546: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
547: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
548: END IF;
549:
550:
543:
544: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
545: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
546: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
547: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
548: END IF;
549:
550:
551: wf_engine.setitemattrtext (
562: EXCEPTION
563: WHEN OTHERS
564: THEN
565: --pp_debug('Inside exception set attributes');
566: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
567: aso_debug_pub.ADD (
568: 'Exception in Set Attributes SqlCode :' || SQLERRM,
569: 1,
570: 'N'
563: WHEN OTHERS
564: THEN
565: --pp_debug('Inside exception set attributes');
566: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
567: aso_debug_pub.ADD (
568: 'Exception in Set Attributes SqlCode :' || SQLERRM,
569: 1,
570: 'N'
571: );
638:
639: begin
640: IF (funcmode='RUN') THEN
641:
642: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
643: aso_debug_pub.ADD (
644: 'Begin Lauch Approval Process',
645: 1,
646: 'N'
639: begin
640: IF (funcmode='RUN') THEN
641:
642: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
643: aso_debug_pub.ADD (
644: 'Begin Lauch Approval Process',
645: 1,
646: 'N'
647: );
673: --pp_debug ('Begin Lauch Approval Process Launch_Parallel_Approval l_requestor_name'||l_requestor_name);
674: --pp_debug ('Begin Lauch Approval Process Launch_Parallel_Approval l_requestor_displayname'||l_requestor_displayname);
675:
676:
677: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
678: aso_debug_pub.ADD (
679: 'Object Approval ID is ' || l_approval_id,
680: 1,
681: 'N'
674: --pp_debug ('Begin Lauch Approval Process Launch_Parallel_Approval l_requestor_displayname'||l_requestor_displayname);
675:
676:
677: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
678: aso_debug_pub.ADD (
679: 'Object Approval ID is ' || l_approval_id,
680: 1,
681: 'N'
682: );
679: 'Object Approval ID is ' || l_approval_id,
680: 1,
681: 'N'
682: );
683: aso_debug_pub.ADD (
684: 'Requester UserName is ' || l_requestor_name,
685: 1,
686: 'N'
687: );
684: 'Requester UserName is ' || l_requestor_name,
685: 1,
686: 'N'
687: );
688: aso_debug_pub.ADD (
689: 'Requester DisplayName is :' || l_requestor_displayname,
690: 1,
691: 'N'
692: );
697: itemkey,
698: 'ORGID'
699: );
700:
701: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
702: aso_debug_pub.ADD (
703: 'Org Id is ' || l_orgid,
704: 1,
705: 'N'
698: 'ORGID'
699: );
700:
701: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
702: aso_debug_pub.ADD (
703: 'Org Id is ' || l_orgid,
704: 1,
705: 'N'
706: );
713: --pp_debug ('Begin Lauch Approval Process Launch_Parallel_Approval l_approver_index'||l_approver_index);
714: while ( l_approver_index is not null ) loop
715:
716: --pp_debug ('Begin Lauch Approval Process Launch_Parallel_Approval approver name'||g_next_approvers(l_approver_index).name);
717: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
718: aso_debug_pub.ADD (
719: 'Begin Launch_Parallel_Approval: 002 -- Next Approver :' || g_next_approvers(l_approver_index).name,
720: 1,
721: 'N'
714: while ( l_approver_index is not null ) loop
715:
716: --pp_debug ('Begin Lauch Approval Process Launch_Parallel_Approval approver name'||g_next_approvers(l_approver_index).name);
717: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
718: aso_debug_pub.ADD (
719: 'Begin Launch_Parallel_Approval: 002 -- Next Approver :' || g_next_approvers(l_approver_index).name,
720: 1,
721: 'N'
722: );
891:
892: exception
893: WHEN OTHERS
894: THEN
895: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
896: aso_debug_pub.ADD (
897: 'Exception in Launch Parallel Approval Proc SqlCode :' || SQLERRM,
898: 1,
899: 'N'
892: exception
893: WHEN OTHERS
894: THEN
895: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
896: aso_debug_pub.ADD (
897: 'Exception in Launch Parallel Approval Proc SqlCode :' || SQLERRM,
898: 1,
899: 'N'
900: );
1008: ) IS
1009: l_approval_det_id NUMBER;
1010: l_note VARCHAR2 (4000);
1011: BEGIN
1012: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1013: aso_debug_pub.ADD (
1014: 'Begin update_Action_history_approve Procedure ',
1015: 1,
1016: 'N'
1009: l_approval_det_id NUMBER;
1010: l_note VARCHAR2 (4000);
1011: BEGIN
1012: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1013: aso_debug_pub.ADD (
1014: 'Begin update_Action_history_approve Procedure ',
1015: 1,
1016: 'N'
1017: );
1029: itemtype,
1030: itemkey,
1031: 'APPROVAL_DET_ID'
1032: );
1033: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1034: aso_debug_pub.ADD (
1035: 'Approval detail ID is : ' || l_approval_det_id,
1036: 1,
1037: 'N'
1030: itemkey,
1031: 'APPROVAL_DET_ID'
1032: );
1033: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1034: aso_debug_pub.ADD (
1035: 'Approval detail ID is : ' || l_approval_det_id,
1036: 1,
1037: 'N'
1038: );
1043: itemtype,
1044: itemkey,
1045: 'NOTE'
1046: );
1047: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1048: aso_debug_pub.ADD (
1049: 'Approver comments are: ' || SUBSTR (
1050: l_note,
1051: 1,
1044: itemkey,
1045: 'NOTE'
1046: );
1047: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1048: aso_debug_pub.ADD (
1049: 'Approver comments are: ' || SUBSTR (
1050: l_note,
1051: 1,
1052: 32
1053: ),
1054: 1,
1055: 'N'
1056: );
1057: aso_debug_pub.ADD (
1058: 'Calling the update table procedure setting approver status to APPR',
1059: 1,
1060: 'N'
1061: );
1077: );
1078:
1079: resultout := wf_engine.eng_completed|| ':' ||'ACTIVITY_PERFORMED';
1080: --pp_debug('update_Action_history_approve resultout'||resultout);
1081: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1082: aso_debug_pub.ADD (
1083: 'End of APPROVED Procedure',
1084: 1,
1085: 'N'
1078:
1079: resultout := wf_engine.eng_completed|| ':' ||'ACTIVITY_PERFORMED';
1080: --pp_debug('update_Action_history_approve resultout'||resultout);
1081: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1082: aso_debug_pub.ADD (
1083: 'End of APPROVED Procedure',
1084: 1,
1085: 'N'
1086: );
1092: EXCEPTION
1093: WHEN OTHERS
1094: THEN
1095: --pp_debug('Exception in update_Action_history_approve ');
1096: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1097: aso_debug_pub.ADD (
1098: 'Exception in update_Action_history_approve Procedure SqlCode :' || SQLERRM,
1099: 1,
1100: 'N'
1093: WHEN OTHERS
1094: THEN
1095: --pp_debug('Exception in update_Action_history_approve ');
1096: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1097: aso_debug_pub.ADD (
1098: 'Exception in update_Action_history_approve Procedure SqlCode :' || SQLERRM,
1099: 1,
1100: 'N'
1101: );
1122: ) IS
1123: l_approval_det_id NUMBER;
1124: l_note VARCHAR2 (4000);
1125: BEGIN
1126: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1127: aso_debug_pub.ADD (
1128: 'Start of update_Action_history_REJECTED Procedure',
1129: 1,
1130: 'N'
1123: l_approval_det_id NUMBER;
1124: l_note VARCHAR2 (4000);
1125: BEGIN
1126: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1127: aso_debug_pub.ADD (
1128: 'Start of update_Action_history_REJECTED Procedure',
1129: 1,
1130: 'N'
1131: );
1137: END IF;
1138:
1139: IF funcmode = 'RUN'
1140: THEN
1141: /* IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1142: aso_debug_pub.ADD (
1143: 'Seting message name to OA_REQUEST_REJECTED_FYI',
1144: 1,
1145: 'N'
1138:
1139: IF funcmode = 'RUN'
1140: THEN
1141: /* IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1142: aso_debug_pub.ADD (
1143: 'Seting message name to OA_REQUEST_REJECTED_FYI',
1144: 1,
1145: 'N'
1146: );
1156: itemtype,
1157: itemkey,
1158: 'APPROVAL_DET_ID'
1159: );
1160: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1161: aso_debug_pub.ADD (
1162: 'Approval detail ID is : ' || l_approval_det_id,
1163: 1,
1164: 'N'
1157: itemkey,
1158: 'APPROVAL_DET_ID'
1159: );
1160: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1161: aso_debug_pub.ADD (
1162: 'Approval detail ID is : ' || l_approval_det_id,
1163: 1,
1164: 'N'
1165: );
1168: itemtype,
1169: itemkey,
1170: 'NOTE'
1171: );
1172: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1173: aso_debug_pub.ADD (
1174: 'Approver comments are: ' || SUBSTR (
1175: l_note,
1176: 1,
1169: itemkey,
1170: 'NOTE'
1171: );
1172: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1173: aso_debug_pub.ADD (
1174: 'Approver comments are: ' || SUBSTR (
1175: l_note,
1176: 1,
1177: 32
1178: ),
1179: 1,
1180: 'N'
1181: );
1182: aso_debug_pub.ADD (
1183: 'Calling the update table procedure setting approver status to REJ',
1184: 1,
1185: 'N'
1186: );
1207: RETURN;
1208: END IF;
1209:
1210:
1211: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1212: aso_debug_pub.ADD (
1213: 'End of update_Action_history_rejected Procedure',
1214: 1,
1215: 'N'
1208: END IF;
1209:
1210:
1211: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1212: aso_debug_pub.ADD (
1213: 'End of update_Action_history_rejected Procedure',
1214: 1,
1215: 'N'
1216: );
1218: RETURN;
1219: EXCEPTION
1220: WHEN OTHERS
1221: THEN
1222: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1223: aso_debug_pub.ADD (
1224: 'Exception in Rejected Procedure SqlCode :' || SQLERRM,
1225: 1,
1226: 'N'
1219: EXCEPTION
1220: WHEN OTHERS
1221: THEN
1222: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1223: aso_debug_pub.ADD (
1224: 'Exception in Rejected Procedure SqlCode :' || SQLERRM,
1225: 1,
1226: 'N'
1227: );
1249: l_approval_det_id NUMBER;
1250: l_note VARCHAR2 (4000);
1251: l_notification_id NUMBER;
1252: BEGIN
1253: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1254: aso_debug_pub.ADD (
1255: 'begin update_action_history_timedout Procedure',
1256: 1,
1257: 'N'
1250: l_note VARCHAR2 (4000);
1251: l_notification_id NUMBER;
1252: BEGIN
1253: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1254: aso_debug_pub.ADD (
1255: 'begin update_action_history_timedout Procedure',
1256: 1,
1257: 'N'
1258: );
1268: itemtype,
1269: itemkey,
1270: 'NOTIFICATION_ID'
1271: );
1272: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1273: aso_debug_pub.ADD (
1274: 'Cancelling notification for notification ID : ' || l_notification_id,
1275: 1,
1276: 'N'
1269: itemkey,
1270: 'NOTIFICATION_ID'
1271: );
1272: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1273: aso_debug_pub.ADD (
1274: 'Cancelling notification for notification ID : ' || l_notification_id,
1275: 1,
1276: 'N'
1277: );
1279: wf_notification.CANCEL (
1280: nid => l_notification_id,
1281: cancel_comment => 'TIMEOUT'
1282: );
1283: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1284: aso_debug_pub.ADD (
1285: 'Seting message name to OA_REQUEST_TIMEDOUT_FYI',
1286: 1,
1287: 'N'
1280: nid => l_notification_id,
1281: cancel_comment => 'TIMEOUT'
1282: );
1283: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1284: aso_debug_pub.ADD (
1285: 'Seting message name to OA_REQUEST_TIMEDOUT_FYI',
1286: 1,
1287: 'N'
1288: );
1302: itemtype,
1303: itemkey,
1304: 'NOTE'
1305: );
1306: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1307: aso_debug_pub.ADD (
1308: 'Approver comments are: ' || SUBSTR (
1309: l_note,
1310: 1,
1303: itemkey,
1304: 'NOTE'
1305: );
1306: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1307: aso_debug_pub.ADD (
1308: 'Approver comments are: ' || SUBSTR (
1309: l_note,
1310: 1,
1311: 32
1312: ),
1313: 1,
1314: 'N'
1315: );
1316: aso_debug_pub.ADD (
1317: 'Calling the update table procedure setting approver status to TOUT',
1318: 1,
1319: 'N'
1320: );
1326: p_status => 'TOUT',
1327: note => l_note);
1328:
1329: resultout := wf_engine.eng_completed|| ':' ||'ACTIVITY_PERFORMED'; -- bug 16764591
1330: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1331: aso_debug_pub.ADD (
1332: 'End of TIMEDOUT Procedure',
1333: 1,
1334: 'N'
1327: note => l_note);
1328:
1329: resultout := wf_engine.eng_completed|| ':' ||'ACTIVITY_PERFORMED'; -- bug 16764591
1330: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1331: aso_debug_pub.ADD (
1332: 'End of TIMEDOUT Procedure',
1333: 1,
1334: 'N'
1335: );
1336: END IF;
1337: RETURN;
1338: END IF;
1339:
1340: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1341: aso_debug_pub.ADD (
1342: 'End of update_action_history_timedout Procedure',
1343: 1,
1344: 'N'
1337: RETURN;
1338: END IF;
1339:
1340: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1341: aso_debug_pub.ADD (
1342: 'End of update_action_history_timedout Procedure',
1343: 1,
1344: 'N'
1345: );
1347: RETURN;
1348: EXCEPTION
1349: WHEN OTHERS
1350: THEN
1351: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1352: aso_debug_pub.ADD (
1353: 'Exception in Approved Procedure SqlCode :' || SQLERRM,
1354: 1,
1355: 'N'
1348: EXCEPTION
1349: WHEN OTHERS
1350: THEN
1351: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1352: aso_debug_pub.ADD (
1353: 'Exception in Approved Procedure SqlCode :' || SQLERRM,
1354: 1,
1355: 'N'
1356: );
1461: );
1462:
1463: exception
1464: when others then
1465: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1466: aso_debug_pub.ADD (' Exception in AME when updating approval status'||itemtype||' ,key'||itemkey, 1, 'N' );
1467: end if;
1468: null;
1469: /* wf_engine.setitemattrtext (itemtype,
1462:
1463: exception
1464: when others then
1465: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1466: aso_debug_pub.ADD (' Exception in AME when updating approval status'||itemtype||' ,key'||itemkey, 1, 'N' );
1467: end if;
1468: null;
1469: /* wf_engine.setitemattrtext (itemtype,
1470: itemkey,
1868: exception
1869: WHEN OTHERS
1870: THEN
1871: --pp_debug('Exception in process response Approve');
1872: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1873: aso_debug_pub.ADD (
1874: 'Exception in process_response_Approve Procedure SqlCode :' || SQLERRM,
1875: 1,
1876: 'N'
1869: WHEN OTHERS
1870: THEN
1871: --pp_debug('Exception in process response Approve');
1872: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1873: aso_debug_pub.ADD (
1874: 'Exception in process_response_Approve Procedure SqlCode :' || SQLERRM,
1875: 1,
1876: 'N'
1877: );
1986: RETURN;
1987: exception
1988: WHEN OTHERS
1989: THEN
1990: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1991: aso_debug_pub.ADD (
1992: 'Exception in PROCESS_RESPONSE_REJECT Procedure SqlCode :' || SQLERRM,
1993: 1,
1994: 'N'
1987: exception
1988: WHEN OTHERS
1989: THEN
1990: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1991: aso_debug_pub.ADD (
1992: 'Exception in PROCESS_RESPONSE_REJECT Procedure SqlCode :' || SQLERRM,
1993: 1,
1994: 'N'
1995: );
2108: RETURN;
2109: exception
2110: WHEN OTHERS
2111: THEN
2112: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2113: aso_debug_pub.ADD (
2114: 'Exception in Process_Response_timedout Procedure SqlCode :' || SQLERRM,
2115: 1,
2116: 'N'
2109: exception
2110: WHEN OTHERS
2111: THEN
2112: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2113: aso_debug_pub.ADD (
2114: 'Exception in Process_Response_timedout Procedure SqlCode :' || SQLERRM,
2115: 1,
2116: 'N'
2117: );
2209: exception
2210: WHEN OTHERS
2211: THEN
2212: -- pp_debug('Inside exception block update_Action_history_pending');
2213: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2214: aso_debug_pub.ADD (
2215: 'Exception in update_Action_history_pending Procedure SqlCode :' || SQLERRM,
2216: 1,
2217: 'N'
2210: WHEN OTHERS
2211: THEN
2212: -- pp_debug('Inside exception block update_Action_history_pending');
2213: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2214: aso_debug_pub.ADD (
2215: 'Exception in update_Action_history_pending Procedure SqlCode :' || SQLERRM,
2216: 1,
2217: 'N'
2218: );
2296: exception
2297: WHEN OTHERS
2298: THEN
2299: --pp_debug('Inside exception block update_Action_history_fyi');
2300: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2301: aso_debug_pub.ADD (
2302: 'Exception in update_Action_history_fyi Procedure SqlCode :' || SQLERRM,
2303: 1,
2304: 'N'
2297: WHEN OTHERS
2298: THEN
2299: --pp_debug('Inside exception block update_Action_history_fyi');
2300: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2301: aso_debug_pub.ADD (
2302: 'Exception in update_Action_history_fyi Procedure SqlCode :' || SQLERRM,
2303: 1,
2304: 'N'
2305: );
2409:
2410: BEGIN
2411: -- Initialize the quote header record
2412:
2413: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2414: aso_debug_pub.ADD (
2415: 'Begin Update Entity Procedure ',
2416: 1,
2417: 'N'
2410: BEGIN
2411: -- Initialize the quote header record
2412:
2413: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2414: aso_debug_pub.ADD (
2415: 'Begin Update Entity Procedure ',
2416: 1,
2417: 'N'
2418: );
2424: ELSIF p_status = 'APPROVE' THEN
2425: l_status := 'APPR';
2426: END IF;
2427:
2428: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2429: aso_debug_pub.ADD (
2430: 'Object approval ID :' || p_object_approval_id,
2431: 1,
2432: 'N'
2425: l_status := 'APPR';
2426: END IF;
2427:
2428: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2429: aso_debug_pub.ADD (
2430: 'Object approval ID :' || p_object_approval_id,
2431: 1,
2432: 'N'
2433: );
2430: 'Object approval ID :' || p_object_approval_id,
2431: 1,
2432: 'N'
2433: );
2434: aso_debug_pub.ADD (
2435: 'Status :' || l_status,
2436: 1,
2437: 'N'
2438: );
2481: p_object_approval_id
2482: );
2483: FETCH get_quote_header_id INTO l_quote_header_rec.quote_header_id;
2484: CLOSE get_quote_header_id;
2485: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2486: aso_debug_pub.ADD (
2487: 'Quote Header ID :' || l_quote_header_rec.quote_header_id,
2488: 1,
2489: 'N'
2482: );
2483: FETCH get_quote_header_id INTO l_quote_header_rec.quote_header_id;
2484: CLOSE get_quote_header_id;
2485: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2486: aso_debug_pub.ADD (
2487: 'Quote Header ID :' || l_quote_header_rec.quote_header_id,
2488: 1,
2489: 'N'
2490: );
2501: THEN
2502: -- if contract is enabled, set status to contract enables
2503: IF l_contract_approval_level IS NOT NULL
2504: THEN
2505: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2506: aso_debug_pub.ADD (
2507: 'Setting Quote Status to CONTRACT REQUIRED',
2508: 1,
2509: 'N'
2502: -- if contract is enabled, set status to contract enables
2503: IF l_contract_approval_level IS NOT NULL
2504: THEN
2505: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2506: aso_debug_pub.ADD (
2507: 'Setting Quote Status to CONTRACT REQUIRED',
2508: 1,
2509: 'N'
2510: );
2515: FETCH get_quote_status_id INTO l_quote_header_rec.quote_status_id;
2516: CLOSE get_quote_status_id;
2517: ELSE
2518: -- otherwise set status to APPROVED
2519: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2520: aso_debug_pub.ADD (
2521: 'Setting Quote Status to APPROVED',
2522: 1,
2523: 'N'
2516: CLOSE get_quote_status_id;
2517: ELSE
2518: -- otherwise set status to APPROVED
2519: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2520: aso_debug_pub.ADD (
2521: 'Setting Quote Status to APPROVED',
2522: 1,
2523: 'N'
2524: );
2530: CLOSE get_quote_status_id;
2531: END IF;
2532: ELSIF l_status = 'REJ'
2533: THEN
2534: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2535: aso_debug_pub.ADD (
2536: 'Setting Quote Status to REJECTED',
2537: 1,
2538: 'N'
2531: END IF;
2532: ELSIF l_status = 'REJ'
2533: THEN
2534: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2535: aso_debug_pub.ADD (
2536: 'Setting Quote Status to REJECTED',
2537: 1,
2538: 'N'
2539: );
2544: FETCH get_quote_status_id INTO l_quote_header_rec.quote_status_id;
2545: CLOSE get_quote_status_id;
2546: ELSIF l_status = 'CAN'
2547: THEN
2548: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2549: aso_debug_pub.ADD (
2550: 'Setting Quote Status to APPROVAL CANCELLED ',
2551: 1,
2552: 'N'
2545: CLOSE get_quote_status_id;
2546: ELSIF l_status = 'CAN'
2547: THEN
2548: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2549: aso_debug_pub.ADD (
2550: 'Setting Quote Status to APPROVAL CANCELLED ',
2551: 1,
2552: 'N'
2553: );
2558: FETCH get_quote_status_id INTO l_quote_header_rec.quote_status_id;
2559: CLOSE get_quote_status_id;
2560: ELSIF l_status = 'PEND'
2561: THEN
2562: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2563: aso_debug_pub.ADD (
2564: 'Setting Quote Status to APPROVAL PENDING',
2565: 1,
2566: 'N'
2559: CLOSE get_quote_status_id;
2560: ELSIF l_status = 'PEND'
2561: THEN
2562: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2563: aso_debug_pub.ADD (
2564: 'Setting Quote Status to APPROVAL PENDING',
2565: 1,
2566: 'N'
2567: );
2581: -- Setting the auto version flag to true
2582: l_control_rec.auto_version_flag := fnd_api.g_true;
2583:
2584: -- set the org context , see bug 4731684
2585: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2586: aso_debug_pub.ADD (
2587: 'Before calling update quote: Setting the single org context to org_id: '|| l_quote_header_rec.org_id,
2588: 1,
2589: 'N'
2582: l_control_rec.auto_version_flag := fnd_api.g_true;
2583:
2584: -- set the org context , see bug 4731684
2585: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2586: aso_debug_pub.ADD (
2587: 'Before calling update quote: Setting the single org context to org_id: '|| l_quote_header_rec.org_id,
2588: 1,
2589: 'N'
2590: );
2593:
2594:
2595: -- Update the quote status by calling the update_quote API
2596:
2597: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2598: aso_debug_pub.ADD (
2599: 'Calling the update quote API in ASO_UPDATE_QUOTE_PUB package ',
2600: 1,
2601: 'N'
2594:
2595: -- Update the quote status by calling the update_quote API
2596:
2597: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2598: aso_debug_pub.ADD (
2599: 'Calling the update quote API in ASO_UPDATE_QUOTE_PUB package ',
2600: 1,
2601: 'N'
2602: );
2648: );
2649:
2650: IF x_return_status <> fnd_api.g_ret_sts_success
2651: THEN
2652: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2653: aso_debug_pub.ADD (
2654: 'Return Status from update quote API is :' || x_return_status,
2655: 1,
2656: 'N'
2649:
2650: IF x_return_status <> fnd_api.g_ret_sts_success
2651: THEN
2652: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2653: aso_debug_pub.ADD (
2654: 'Return Status from update quote API is :' || x_return_status,
2655: 1,
2656: 'N'
2657: );
2669:
2670: END IF;
2671:
2672: -- set the org context , see bug 4731684
2673: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2674: aso_debug_pub.ADD (
2675: 'After calling update quote Setting the org context to multi-org org_id:null',
2676: 1,
2677: 'N'
2670: END IF;
2671:
2672: -- set the org context , see bug 4731684
2673: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2674: aso_debug_pub.ADD (
2675: 'After calling update quote Setting the org context to multi-org org_id:null',
2676: 1,
2677: 'N'
2678: );
2680:
2681: mo_global.set_policy_context('M',null);
2682:
2683:
2684: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2685: aso_debug_pub.ADD (
2686: 'End update entity procedure ',
2687: 1,
2688: 'N'
2681: mo_global.set_policy_context('M',null);
2682:
2683:
2684: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2685: aso_debug_pub.ADD (
2686: 'End update entity procedure ',
2687: 1,
2688: 'N'
2689: );
2693: EXCEPTION
2694:
2695: /*bug 3500380 */
2696: WHEN FND_API.G_EXC_ERROR THEN
2697: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2698: aso_debug_pub.ADD (
2699: 'Exception in update entity ',
2700: 1,
2701: 'N'
2694:
2695: /*bug 3500380 */
2696: WHEN FND_API.G_EXC_ERROR THEN
2697: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2698: aso_debug_pub.ADD (
2699: 'Exception in update entity ',
2700: 1,
2701: 'N'
2702: );
2704:
2705: RAISE;
2706:
2707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2708: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2709: aso_debug_pub.ADD (
2710: 'Exception in update entity ',
2711: 1,
2712: 'N'
2705: RAISE;
2706:
2707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2708: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2709: aso_debug_pub.ADD (
2710: 'Exception in update entity ',
2711: 1,
2712: 'N'
2713: );
2715:
2716: RAISE;
2717:
2718: WHEN OTHERS THEN
2719: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2720: aso_debug_pub.ADD (
2721: 'Exception in update entity ',
2722: 1,
2723: 'N'
2716: RAISE;
2717:
2718: WHEN OTHERS THEN
2719: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2720: aso_debug_pub.ADD (
2721: 'Exception in update entity ',
2722: 1,
2723: 'N'
2724: );
2798:
2799: BEGIN
2800:
2801: --pp_debug('Begin CancelApproval Procedure approval_id::'||approval_id);
2802: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2803: aso_debug_pub.ADD (
2804: 'Begin CancelApproval Procedure',
2805: 1,
2806: 'N'
2799: BEGIN
2800:
2801: --pp_debug('Begin CancelApproval Procedure approval_id::'||approval_id);
2802: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2803: aso_debug_pub.ADD (
2804: 'Begin CancelApproval Procedure',
2805: 1,
2806: 'N'
2807: );
2812: from aso_apr_obj_approvals
2813: where object_approval_id=approval_id
2814: and approval_Status='PEND';
2815:
2816: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN -- bug 16699364
2817:
2818: aso_debug_pub.ADD (
2819: 'Aborting process for approval ID :' || approval_id,
2820: 1,
2814: and approval_Status='PEND';
2815:
2816: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN -- bug 16699364
2817:
2818: aso_debug_pub.ADD (
2819: 'Aborting process for approval ID :' || approval_id,
2820: 1,
2821: 'N'
2822: );
2821: 'N'
2822: );
2823: END IF;
2824: -- Updating the approval obj table status
2825: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2826: aso_debug_pub.ADD (
2827: 'Updating table aso_apr_obj_approvals, status is CAN and approval id :'
2828: || approval_id,
2829: 1,
2822: );
2823: END IF;
2824: -- Updating the approval obj table status
2825: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2826: aso_debug_pub.ADD (
2827: 'Updating table aso_apr_obj_approvals, status is CAN and approval id :'
2828: || approval_id,
2829: 1,
2830: 'N'
2889: l_requestor_displayname :=
2890: wf_directory.getroledisplayname (
2891: l_requestor_name
2892: );
2893: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2894: aso_debug_pub.ADD (
2895: 'Requester Displayname is :' || l_requestor_displayname,
2896: 1,
2897: 'N'
2890: wf_directory.getroledisplayname (
2891: l_requestor_name
2892: );
2893: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2894: aso_debug_pub.ADD (
2895: 'Requester Displayname is :' || l_requestor_displayname,
2896: 1,
2897: 'N'
2898: );
2910: l_cancellor_displayname :=
2911: wf_directory.getroledisplayname (
2912: l_cancellor_username
2913: );
2914: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2915: aso_debug_pub.ADD (
2916: 'Cancellor Displayname is :' || l_cancellor_displayname,
2917: 1,
2918: 'N'
2911: wf_directory.getroledisplayname (
2912: l_cancellor_username
2913: );
2914: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2915: aso_debug_pub.ADD (
2916: 'Cancellor Displayname is :' || l_cancellor_displayname,
2917: 1,
2918: 'N'
2919: );
2958:
2959:
2960:
2961:
2962: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2963: aso_debug_pub.ADD (
2964: 'Aborting process for approval detail ID :' || l_approval_det_id,
2965: 1,
2966: 'N'
2959:
2960:
2961:
2962: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2963: aso_debug_pub.ADD (
2964: 'Aborting process for approval detail ID :' || l_approval_det_id,
2965: 1,
2966: 'N'
2967: );
2988: END ;
2989: END LOOP;
2990:
2991: --pp_debug('In CancelApproval Procedure approver table count::'||appr_tbl.count);
2992: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2993: aso_debug_pub.ADD (
2994: 'Starting process CANCEL_REQUISITION itemtype is '
2995: || l_itemtype
2996: || ' and itemkey is '
2989: END LOOP;
2990:
2991: --pp_debug('In CancelApproval Procedure approver table count::'||appr_tbl.count);
2992: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2993: aso_debug_pub.ADD (
2994: 'Starting process CANCEL_REQUISITION itemtype is '
2995: || l_itemtype
2996: || ' and itemkey is '
2997: || l_itemkey,
3032: itemkey => l_itemkey,
3033: aname => 'RECEIVER_USERNAME',
3034: avalue => l_forward_user_name
3035: );
3036: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3037: aso_debug_pub.ADD (
3038: 'Receiver username is ' || l_forward_user_name,
3039: 1,
3040: 'N'
3033: aname => 'RECEIVER_USERNAME',
3034: avalue => l_forward_user_name
3035: );
3036: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3037: aso_debug_pub.ADD (
3038: 'Receiver username is ' || l_forward_user_name,
3039: 1,
3040: 'N'
3041: );
3049: itemkey => l_itemkey,
3050: aname => 'RECEIVER_DISPLAYNAME',
3051: avalue => l_forward_displayname
3052: );
3053: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3054: aso_debug_pub.ADD (
3055: 'Receiver displayname is ' || l_forward_displayname,
3056: 1,
3057: 'N'
3050: aname => 'RECEIVER_DISPLAYNAME',
3051: avalue => l_forward_displayname
3052: );
3053: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3054: aso_debug_pub.ADD (
3055: 'Receiver displayname is ' || l_forward_displayname,
3056: 1,
3057: 'N'
3058: );
3062: itemkey => l_itemkey,
3063: aname => 'REQUEST_CANCELLOR_USERNAME',
3064: avalue => l_cancellor_username
3065: );
3066: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3067: aso_debug_pub.ADD (
3068: 'Cancellor username is ' || l_cancellor_username,
3069: 1,
3070: 'N'
3063: aname => 'REQUEST_CANCELLOR_USERNAME',
3064: avalue => l_cancellor_username
3065: );
3066: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3067: aso_debug_pub.ADD (
3068: 'Cancellor username is ' || l_cancellor_username,
3069: 1,
3070: 'N'
3071: );
3075: itemkey => l_itemkey,
3076: aname => 'REQUEST_CANCELLOR_DISPLAYNAME',
3077: avalue => l_cancellor_displayname
3078: );
3079: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3080: aso_debug_pub.ADD (
3081: 'Cancellor displayname is ' || l_cancellor_displayname,
3082: 1,
3083: 'N'
3076: aname => 'REQUEST_CANCELLOR_DISPLAYNAME',
3077: avalue => l_cancellor_displayname
3078: );
3079: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3080: aso_debug_pub.ADD (
3081: 'Cancellor displayname is ' || l_cancellor_displayname,
3082: 1,
3083: 'N'
3084: );
3098: );
3099:
3100: --pp_debug('After the cancel WF process');
3101:
3102: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3103: aso_debug_pub.ADD (
3104: 'Updating detail table setting approver status to cancelled where det id :'
3105: || l_approval_det_id,
3106: 1,
3099:
3100: --pp_debug('After the cancel WF process');
3101:
3102: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3103: aso_debug_pub.ADD (
3104: 'Updating detail table setting approver status to cancelled where det id :'
3105: || l_approval_det_id,
3106: 1,
3107: 'N'
3122:
3123: END ;
3124: END LOOP; */
3125:
3126: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3127: aso_debug_pub.ADD ('Sending notification to all approvers count'||appr_tbl.count,1,'N' );
3128: END IF;
3129: --pp_debug('Sending notification to cancelled approvers '||appr_tbl.count);
3130: for i in 1..appr_tbl.count loop
3123: END ;
3124: END LOOP; */
3125:
3126: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3127: aso_debug_pub.ADD ('Sending notification to all approvers count'||appr_tbl.count,1,'N' );
3128: END IF;
3129: --pp_debug('Sending notification to cancelled approvers '||appr_tbl.count);
3130: for i in 1..appr_tbl.count loop
3131: -- Sending mail to approver for cancel
3153: transactionidin => l_object_id,
3154: transactiontypein => 'Quote'
3155: );
3156:
3157: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3158: aso_debug_pub.ADD (
3159: 'End of CancelApproval Procedure',
3160: 1,
3161: 'N'
3154: transactiontypein => 'Quote'
3155: );
3156:
3157: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3158: aso_debug_pub.ADD (
3159: 'End of CancelApproval Procedure',
3160: 1,
3161: 'N'
3162: );
3163: END IF;
3164: EXCEPTION
3165: WHEN OTHERS
3166: THEN
3167: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3168: aso_debug_pub.ADD (
3169: 'Exception in CancelApproval SqlCode :' || SQLERRM,
3170: 1,
3171: 'N'
3164: EXCEPTION
3165: WHEN OTHERS
3166: THEN
3167: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3168: aso_debug_pub.ADD (
3169: 'Exception in CancelApproval SqlCode :' || SQLERRM,
3170: 1,
3171: 'N'
3172: );
3175: p_encoded => 'F',
3176: p_count => x_msg_count,
3177: p_data => x_msg_data
3178: );
3179: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3180: aso_debug_pub.ADD (
3181: 'no. of FND messages :' || x_msg_count,
3182: 1,
3183: 'N'
3176: p_count => x_msg_count,
3177: p_data => x_msg_data
3178: );
3179: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3180: aso_debug_pub.ADD (
3181: 'no. of FND messages :' || x_msg_count,
3182: 1,
3183: 'N'
3184: );
3191: p_encoded => 'F'
3192: );
3193: END LOOP;
3194:
3195: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3196: aso_debug_pub.ADD (
3197: 'Msg Data is' || x_msg_data,
3198: 1,
3199: 'N'
3192: );
3193: END LOOP;
3194:
3195: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3196: aso_debug_pub.ADD (
3197: 'Msg Data is' || x_msg_data,
3198: 1,
3199: 'N'
3200: );
3218: ) IS
3219: l_approval_id NUMBER;
3220:
3221: BEGIN
3222: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3223: aso_debug_pub.ADD (
3224: 'Begin UPDATE_ENTITY_REJECT Procedure ',
3225: 1,
3226: 'N'
3219: l_approval_id NUMBER;
3220:
3221: BEGIN
3222: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3223: aso_debug_pub.ADD (
3224: 'Begin UPDATE_ENTITY_REJECT Procedure ',
3225: 1,
3226: 'N'
3227: );
3239: itemtype,
3240: itemkey,
3241: 'APPROVALID'
3242: );
3243: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3244: aso_debug_pub.ADD ('Approval ID is : ' || l_approval_id,1,'N');
3245:
3246: aso_debug_pub.ADD ('Calling the update entity procedure setting quote status to REJECTED',1,'N' );
3247: END IF;
3240: itemkey,
3241: 'APPROVALID'
3242: );
3243: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3244: aso_debug_pub.ADD ('Approval ID is : ' || l_approval_id,1,'N');
3245:
3246: aso_debug_pub.ADD ('Calling the update entity procedure setting quote status to REJECTED',1,'N' );
3247: END IF;
3248: -- updating the ASO_APR_OBJ_APPROVALS
3242: );
3243: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3244: aso_debug_pub.ADD ('Approval ID is : ' || l_approval_id,1,'N');
3245:
3246: aso_debug_pub.ADD ('Calling the update entity procedure setting quote status to REJECTED',1,'N' );
3247: END IF;
3248: -- updating the ASO_APR_OBJ_APPROVALS
3249: update_approval_status (
3250: p_update_header_or_detail_flag => 'HEADER' ,
3259: -- p_approval_det_id => NULL,
3260: p_status => 'REJECT');
3261:
3262:
3263: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3264: aso_debug_pub.ADD ('End of UPDATE_ENTITY_REJECT Procedure',1,'N');
3265: END IF;
3266:
3267: resultout := wf_engine.eng_completed;
3260: p_status => 'REJECT');
3261:
3262:
3263: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3264: aso_debug_pub.ADD ('End of UPDATE_ENTITY_REJECT Procedure',1,'N');
3265: END IF;
3266:
3267: resultout := wf_engine.eng_completed;
3268: RETURN;
3271:
3272: EXCEPTION
3273: WHEN OTHERS
3274: THEN
3275: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3276: aso_debug_pub.ADD (
3277: 'Exception in UPDATE_ENTITY_REJECT Procedure SqlCode :' || SQLERRM,
3278: 1,
3279: 'N'
3272: EXCEPTION
3273: WHEN OTHERS
3274: THEN
3275: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3276: aso_debug_pub.ADD (
3277: 'Exception in UPDATE_ENTITY_REJECT Procedure SqlCode :' || SQLERRM,
3278: 1,
3279: 'N'
3280: );
3304: l_approval_id NUMBER;
3305: l_apr_count NUMBER;
3306:
3307: BEGIN
3308: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3309: aso_debug_pub.ADD (
3310: 'Begin update_Action_history_approved Procedure ',
3311: 1,
3312: 'N'
3305: l_apr_count NUMBER;
3306:
3307: BEGIN
3308: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3309: aso_debug_pub.ADD (
3310: 'Begin update_Action_history_approved Procedure ',
3311: 1,
3312: 'N'
3313: );
3325: itemtype,
3326: itemkey,
3327: 'APPROVALID'
3328: );
3329: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3330: aso_debug_pub.ADD ('Approval ID is : ' || l_approval_id,1,'N');
3331:
3332: aso_debug_pub.ADD ('Calling the update entity procedure setting quote status to APPROVED',1,'N' );
3333: END IF;
3326: itemkey,
3327: 'APPROVALID'
3328: );
3329: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3330: aso_debug_pub.ADD ('Approval ID is : ' || l_approval_id,1,'N');
3331:
3332: aso_debug_pub.ADD ('Calling the update entity procedure setting quote status to APPROVED',1,'N' );
3333: END IF;
3334:
3328: );
3329: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3330: aso_debug_pub.ADD ('Approval ID is : ' || l_approval_id,1,'N');
3331:
3332: aso_debug_pub.ADD ('Calling the update entity procedure setting quote status to APPROVED',1,'N' );
3333: END IF;
3334:
3335: -- updating the ASO_APR_OBJ_APPROVALS
3336: update_approval_status (
3353: p_status => 'APPROVE');
3354: end if;
3355:
3356:
3357: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3358: aso_debug_pub.ADD ('End of UPDATE_ENTITY_approve Procedure',1,'N');
3359: END IF;
3360:
3361: resultout := wf_engine.eng_completed;
3354: end if;
3355:
3356:
3357: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3358: aso_debug_pub.ADD ('End of UPDATE_ENTITY_approve Procedure',1,'N');
3359: END IF;
3360:
3361: resultout := wf_engine.eng_completed;
3362: RETURN;
3365:
3366: EXCEPTION
3367: WHEN OTHERS
3368: THEN
3369: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3370: aso_debug_pub.ADD (
3371: 'Exception in UPDATE_ENTITY_approve Procedure SqlCode :' || SQLERRM,
3372: 1,
3373: 'N'
3366: EXCEPTION
3367: WHEN OTHERS
3368: THEN
3369: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3370: aso_debug_pub.ADD (
3371: 'Exception in UPDATE_ENTITY_approve Procedure SqlCode :' || SQLERRM,
3372: 1,
3373: 'N'
3374: );
3694: p_parameters => l_ampsign||l_ampsign||'QotIntgEvtSrc=ApvlNotif'||l_ampsign||'QotIntgEvt=Event.QuoteDet'||l_ampsign||'QotIntgEvtVal='
3695: ||l_qte_header_id||l_ampsign||'QotIntgEvtVal1='||l_qte_number||l_ampsign||'addBreadCrumb=Y') ;
3696:
3697:
3698: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3699: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
3700: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
3701: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
3702: END IF;
3695: ||l_qte_header_id||l_ampsign||'QotIntgEvtVal1='||l_qte_number||l_ampsign||'addBreadCrumb=Y') ;
3696:
3697:
3698: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3699: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
3700: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
3701: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
3702: END IF;
3703:
3696:
3697:
3698: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3699: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
3700: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
3701: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
3702: END IF;
3703:
3704: --pp_debug('l_url: '||l_url);
3697:
3698: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3699: aso_debug_pub.ADD ('RESP_APPL_ID: ' || l_resp_appl_id,1,'N'); -- bug 7657061
3700: aso_debug_pub.ADD ('RESP_ID: ' || l_resp_id,1,'N'); -- bug 7657061
3701: aso_debug_pub.ADD ('l_url: '||substr(l_url,1,240),1,'N');
3702: END IF;
3703:
3704: --pp_debug('l_url: '||l_url);
3705:
3709: avalue => l_url
3710: );
3711:
3712:
3713: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3714: aso_debug_pub.ADD ('Sending notification ' || l_notification_id ||' to ' || p_role, 1,'N');
3715:
3716: end if;
3717: --pp_debug('Notification has been sent. Notification ID:' || l_notification_id);
3710: );
3711:
3712:
3713: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3714: aso_debug_pub.ADD ('Sending notification ' || l_notification_id ||' to ' || p_role, 1,'N');
3715:
3716: end if;
3717: --pp_debug('Notification has been sent. Notification ID:' || l_notification_id);
3718:
3723:
3724: WHEN OTHERS THEN
3725: ROLLBACK;
3726: --pp_debug('Exception ' || SQLERRM || ' while sending notification to ' || p_role);
3727: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3728: aso_debug_pub.ADD ('Exception ' || SQLERRM || ' while sending notification to ' || p_role, 1,'N');
3729:
3730: end if;
3731: end cancel_notify_approver;
3724: WHEN OTHERS THEN
3725: ROLLBACK;
3726: --pp_debug('Exception ' || SQLERRM || ' while sending notification to ' || p_role);
3727: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3728: aso_debug_pub.ADD ('Exception ' || SQLERRM || ' while sending notification to ' || p_role, 1,'N');
3729:
3730: end if;
3731: end cancel_notify_approver;
3732: