1: PACKAGE BODY AHL_PRD_DF_APPR_PVT AS
2: /* $Header: AHLVPDAB.pls 120.2 2008/04/28 23:57:48 sikumar ship $ */
3: G_PKG_NAME CONSTANT VARCHAR(30) := 'AHL_PRD_DF_APPR_PVT';
4: G_APP_NAME CONSTANT VARCHAR2(3) := 'AHL';
5: G_WORKFLOW_OBJECT_KEY CONSTANT VARCHAR2(30) := 'PRDWF';
1: PACKAGE BODY AHL_PRD_DF_APPR_PVT AS
2: /* $Header: AHLVPDAB.pls 120.2 2008/04/28 23:57:48 sikumar ship $ */
3: G_PKG_NAME CONSTANT VARCHAR(30) := 'AHL_PRD_DF_APPR_PVT';
4: G_APP_NAME CONSTANT VARCHAR2(3) := 'AHL';
5: G_WORKFLOW_OBJECT_KEY CONSTANT VARCHAR2(30) := 'PRDWF';
6:
7: FUNCTION getRequesterNote(
57: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
58: fnd_log.string
59: (
60: fnd_log.level_procedure,
61: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details.begin',
62: 'At the start of PLSQL procedure'
63: );
64:
65: END IF;
77: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
78: fnd_log.string
79: (
80: fnd_log.level_event,
81: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
82: 'Starting workflow for unit_deferral_id : ' || l_object_id
83: );
84: END IF;
85:
97: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
98: fnd_log.string
99: (
100: fnd_log.level_unexpected,
101: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
102: 'Unit effectivity record not found for unit deferral id : ' || l_object_id
103: );
104: END IF;
105: CLOSE unit_effectivity_id_csr;
120: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
121: fnd_log.string
122: (
123: fnd_log.level_unexpected,
124: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
125: 'Deferral record details not found for unit deferral id : ' || l_object_id
126: );
127: END IF;
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
141: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
142: fnd_log.string
143: (
144: fnd_log.level_statement,
145: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
146: 'getting requester note'
147: );
148: END IF;
149: l_requester_note := getRequesterNote(l_df_header_info_rec, l_df_schedules_tbl);
150: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
151: fnd_log.string
152: (
153: fnd_log.level_statement,
154: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
155: 'got requester note'
156: );
157: END IF;
158: END IF;
163: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
164: fnd_log.string
165: (
166: fnd_log.level_unexpected,
167: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
168: 'Could not set activity details for deferral workflow of unit deferral id : ' || l_object_id
169: );
170: END IF;
171: RAISE FND_API.G_EXC_ERROR;
174: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
175: fnd_log.string
176: (
177: fnd_log.level_statement,
178: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
179: 'SUBJECT : ' || l_temp_subject
180: );
181: fnd_log.string
182: (
180: );
181: fnd_log.string
182: (
183: fnd_log.level_statement,
184: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
185: 'REQUESTER NOTE : ' || l_requester_note
186: );
187: END IF;
188:
295: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
296: fnd_log.string
297: (
298: fnd_log.level_unexpected,
299: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details',
300: 'Could not set activity details for deferral workflow of unit deferral id : ' || l_object_id
301: );
302: END IF;
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
309: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
310: fnd_log.string
311: (
312: fnd_log.level_procedure,
313: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Set_Activity_Details.end',
314: 'At the end of PLSQL procedure'
315: );
316: END IF;
317:
367: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
368: fnd_log.string
369: (
370: fnd_log.level_procedure,
371: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI.begin',
372: 'At the start of PLSQL procedure'
373: );
374: END IF;
375: document_type := 'text/plain';
392: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
393: fnd_log.string
394: (
395: fnd_log.level_statement,
396: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI',
397: 'Deferral Approval Request has been forwarded for unit_deferral_id : ' || l_object_id
398: );
399: END IF;
400:
418: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
419: fnd_log.string
420: (
421: fnd_log.level_statement,
422: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI',
423: 'Forward FYI Body : ' || document
424: );
425: END IF;
426: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
426: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
427: fnd_log.string
428: (
429: fnd_log.level_procedure,
430: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Forward_FYI.end',
431: 'At the end of PLSQL procedure'
432: );
433: END IF;
434:
479: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
480: fnd_log.string
481: (
482: fnd_log.level_procedure,
483: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI.begin',
484: 'At the start of PLSQL procedure'
485: );
486: END IF;
487: document_type := 'text/plain';
504: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
505: fnd_log.string
506: (
507: fnd_log.level_event,
508: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI',
509: 'Sending FYI for approval of unit_deferral_id : ' || l_object_id
510: );
511: END IF;
512:
530: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
531: fnd_log.string
532: (
533: fnd_log.level_statement,
534: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI',
535: 'Approved FYI Body : ' || document
536: );
537: END IF;
538:
539: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
540: fnd_log.string
541: (
542: fnd_log.level_procedure,
543: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approved_FYI.end',
544: 'At the end of PLSQL procedure'
545: );
546: END IF;
547:
592: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
593: fnd_log.string
594: (
595: fnd_log.level_procedure,
596: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI.begin',
597: 'At the start of PLSQL procedure'
598: );
599: END IF;
600: document_type := 'text/plain';
617: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
618: fnd_log.string
619: (
620: fnd_log.level_event,
621: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI',
622: 'Deferral finally approved for unit_deferral_id : ' || l_object_id
623: );
624: END IF;
625:
636: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
637: fnd_log.string
638: (
639: fnd_log.level_statement,
640: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI',
641: 'Final Approval FYI Body : ' || document
642: );
643: END IF;
644:
645: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
646: fnd_log.string
647: (
648: fnd_log.level_procedure,
649: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Final_Approval_FYI.end',
650: 'At the end of PLSQL procedure'
651: );
652: END IF;
653:
699: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
700: fnd_log.string
701: (
702: fnd_log.level_procedure,
703: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI.begin',
704: 'At the start of PLSQL procedure'
705: );
706: END IF;
707: document_type := 'text/plain';
724: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
725: fnd_log.string
726: (
727: fnd_log.level_event,
728: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI',
729: 'Sending FYI for Deferral Rejection of unit_deferral_id : ' || l_object_id
730: );
731: END IF;
732:
750: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
751: fnd_log.string
752: (
753: fnd_log.level_statement,
754: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI',
755: 'Rejected FYI Body : ' || document
756: );
757: END IF;
758:
759: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
760: fnd_log.string
761: (
762: fnd_log.level_procedure,
763: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Rejected_FYI.end',
764: 'At the end of PLSQL procedure'
765: );
766: END IF;
767:
814: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
815: fnd_log.string
816: (
817: fnd_log.level_procedure,
818: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval.begin',
819: 'At the start of PLSQL procedure'
820: );
821: END IF;
822: document_type := 'text/plain';
839: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
840: fnd_log.string
841: (
842: fnd_log.level_event,
843: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval',
844: 'Sending notfication to approver for unit_deferral_id : ' || l_object_id
845: );
846: END IF;
847:
865: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
866: fnd_log.string
867: (
868: fnd_log.level_statement,
869: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval',
870: 'Approval Body : ' || document
871: );
872: END IF;
873:
874: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
875: fnd_log.string
876: (
877: fnd_log.level_procedure,
878: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval.end',
879: 'At the end of PLSQL procedure'
880: );
881: END IF;
882:
931: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
932: fnd_log.string
933: (
934: fnd_log.level_procedure,
935: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder.begin',
936: 'At the start of PLSQL procedure'
937: );
938: END IF;
939: document_type := 'text/plain';
956: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
957: fnd_log.string
958: (
959: fnd_log.level_event,
960: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder',
961: 'Sending reminder to approver for unit_deferral_id : ' || l_object_id
962: );
963: END IF;
964:
982: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
983: fnd_log.string
984: (
985: fnd_log.level_statement,
986: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder',
987: 'Approval Reminder Body : ' || document
988: );
989: END IF;
990:
991: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
992: fnd_log.string
993: (
994: fnd_log.level_procedure,
995: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Approval_Reminder.end',
996: 'At the end of PLSQL procedure'
997: );
998: END IF;
999:
1044: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1045: fnd_log.string
1046: (
1047: fnd_log.level_procedure,
1048: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act.begin',
1049: 'At the start of PLSQL procedure'
1050: );
1051: END IF;
1052: document_type := 'text/plain';
1070: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
1071: fnd_log.string
1072: (
1073: fnd_log.level_event,
1074: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1075: 'Error in approval workflow process for unit_deferral_id : ' || l_object_id
1076: );
1077: END IF;
1078:
1085: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1086: fnd_log.string
1087: (
1088: fnd_log.level_error,
1089: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1090: 'Error Message : ' || l_error_msg
1091: );
1092: END IF;
1093: l_requester_note := wf_engine.getitemattrtext(
1104: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1105: fnd_log.string
1106: (
1107: fnd_log.level_statement,
1108: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act',
1109: 'Approval Error Body : ' || document
1110: );
1111: END IF;
1112:
1113: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1114: fnd_log.string
1115: (
1116: fnd_log.level_procedure,
1117: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Ntf_Error_Act.end',
1118: 'At the end of PLSQL procedure'
1119: );
1120: END IF;
1121:
1163: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1164: fnd_log.string
1165: (
1166: fnd_log.level_procedure,
1167: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.begin',
1168: 'At the start of PLSQL procedure'
1169: );
1170: END IF;
1171: SAVEPOINT AHL_DEF_UPDATE_STATUS;
1207: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1208: fnd_log.string
1209: (
1210: fnd_log.level_statement,
1211: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1212: 'unit_deferral_id : ' || l_object_id
1213: );
1214: fnd_log.string
1215: (
1213: );
1214: fnd_log.string
1215: (
1216: fnd_log.level_statement,
1217: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1218: 'object_version_number : ' || l_object_version_number
1219: );
1220: fnd_log.string
1221: (
1219: );
1220: fnd_log.string
1221: (
1222: fnd_log.level_statement,
1223: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1224: 'approval status : ' || l_approval_status
1225: );
1226:
1227: END IF;
1256: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1257: fnd_log.string
1258: (
1259: fnd_log.level_statement,
1260: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1261: 'new status : ' || l_new_status
1262: );
1263: fnd_log.string
1264: (
1262: );
1263: fnd_log.string
1264: (
1265: fnd_log.level_statement,
1266: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
1267: 'return status after process_approval_rejected API call : ' || l_return_status
1268: );
1269: END IF;
1270:
1281: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1282: fnd_log.string
1283: (
1284: fnd_log.level_procedure,
1285: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.end',
1286: 'At the end of PLSQL procedure'
1287: );
1288: END IF;
1289:
1299: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1300: fnd_log.string
1301: (
1302: fnd_log.level_unexpected,
1303: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1304: ' Error Message : l_msg_data : ' || l_msg_data
1305: );
1306: END IF;
1307: ahl_generic_aprv_pvt.Handle_Error
1317: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1318: fnd_log.string
1319: (
1320: fnd_log.level_unexpected,
1321: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
1322: ' Error Message : l_error_msg : ' || l_error_msg
1323: );
1324: END IF;
1325:
1386: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1387: fnd_log.string
1388: (
1389: fnd_log.level_procedure,
1390: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.begin',
1391: 'At the start of PLSQL procedure'
1392: );
1393: END IF;
1394: SAVEPOINT AHL_DEF_REVT_STATUS;
1419: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1420: fnd_log.string
1421: (
1422: fnd_log.level_statement,
1423: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1424: 'unit_deferral_id : ' || l_object_id
1425: );
1426: fnd_log.string
1427: (
1425: );
1426: fnd_log.string
1427: (
1428: fnd_log.level_statement,
1429: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1430: 'object_version_number : ' || l_object_version_number
1431: );
1432: fnd_log.string
1433: (
1431: );
1432: fnd_log.string
1433: (
1434: fnd_log.level_statement,
1435: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1436: 'Original status : ' || l_orig_status
1437: );
1438:
1439: END IF;
1447: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1448: fnd_log.string
1449: (
1450: fnd_log.level_statement,
1451: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status',
1452: 'return status after process_approval_rejected API call : ' || l_return_status
1453: );
1454: END IF;
1455:
1466: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1467: fnd_log.string
1468: (
1469: fnd_log.level_procedure,
1470: 'ahl.plsql.AHL_PRD_DF_APPR_PVT.Revert_Status.end',
1471: 'At the end of PLSQL procedure'
1472: );
1473: END IF;
1474: EXCEPTION
1672: RETURN l_return_meaning;
1673:
1674: END getReasonCode;
1675:
1676: END AHL_PRD_DF_APPR_PVT;--end package body