100: BEGIN
101:
102: FND_MSG_PUB.INITIALIZE;
103:
104: l_return_status := FND_API.G_RET_STS_SUCCESS;
105:
106: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
107: THEN
108: fnd_log.string
166: );
167: END IF;
168:
169: resultout := 'COMPLETE:ERROR';
170: RAISE FND_API.G_EXC_ERROR;
171:
172: END IF;
173: CLOSE get_mel_cdl_details;
174:
364: x_approver_seq => l_approver_seq,
365: x_return_status => l_return_status
366: );
367:
368: IF l_return_status = FND_API.G_RET_STS_SUCCESS
369: THEN
370: wf_engine.setitemattrnumber
371: (
372: itemtype => itemtype,
406: resultout := 'COMPLETE:SUCCESS';
407: RETURN;
408: ELSE
409: resultout := 'COMPLETE:ERROR';
410: RAISE FND_API.G_EXC_ERROR;
411: END IF;
412: END IF;
413:
414: --
439: );
440: END IF;
441:
442: EXCEPTION
443: WHEN FND_API.G_EXC_ERROR THEN
444: FND_MSG_PUB.Count_And_Get
445: (
446: p_encoded => FND_API.G_FALSE,
447: p_count => l_msg_count,
442: EXCEPTION
443: WHEN FND_API.G_EXC_ERROR THEN
444: FND_MSG_PUB.Count_And_Get
445: (
446: p_encoded => FND_API.G_FALSE,
447: p_count => l_msg_count,
448: p_data => l_msg_data
449: );
450:
578: false
579: );
580: END IF;
581:
582: RAISE FND_API.G_EXC_ERROR;
583:
584: ELSE
585: CLOSE get_mel_cdl_details;
586:
618:
619: RETURN;
620:
621: EXCEPTION
622: WHEN FND_API.G_EXC_ERROR THEN
623: FND_MSG_PUB.Count_And_Get
624: (
625: p_encoded => FND_API.G_FALSE,
626: p_count => l_msg_count,
621: EXCEPTION
622: WHEN FND_API.G_EXC_ERROR THEN
623: FND_MSG_PUB.Count_And_Get
624: (
625: p_encoded => FND_API.G_FALSE,
626: p_count => l_msg_count,
627: p_data => l_msg_data
628: );
629:
751: false
752: );
753: END IF;
754:
755: RAISE FND_API.G_EXC_ERROR;
756:
757: ELSE
758: CLOSE get_mel_cdl_details;
759:
791:
792: RETURN;
793:
794: EXCEPTION
795: WHEN FND_API.G_EXC_ERROR THEN
796: FND_MSG_PUB.Count_And_Get
797: (
798: p_encoded => FND_API.G_FALSE,
799: p_count => l_msg_count,
794: EXCEPTION
795: WHEN FND_API.G_EXC_ERROR THEN
796: FND_MSG_PUB.Count_And_Get
797: (
798: p_encoded => FND_API.G_FALSE,
799: p_count => l_msg_count,
800: p_data => l_msg_data
801: );
802:
916: false
917: );
918: END IF;
919:
920: RAISE FND_API.G_EXC_ERROR;
921:
922: ELSE
923: CLOSE get_mel_cdl_details;
924:
955:
956: RETURN;
957:
958: EXCEPTION
959: WHEN FND_API.G_EXC_ERROR THEN
960: FND_MSG_PUB.Count_And_Get
961: (
962: p_encoded => FND_API.G_FALSE,
963: p_count => l_msg_count,
958: EXCEPTION
959: WHEN FND_API.G_EXC_ERROR THEN
960: FND_MSG_PUB.Count_And_Get
961: (
962: p_encoded => FND_API.G_FALSE,
963: p_count => l_msg_count,
964: p_data => l_msg_data
965: );
966:
1088: false
1089: );
1090: END IF;
1091:
1092: RAISE FND_API.G_EXC_ERROR;
1093:
1094: ELSE
1095: CLOSE get_mel_cdl_details;
1096:
1128:
1129: RETURN;
1130:
1131: EXCEPTION
1132: WHEN FND_API.G_EXC_ERROR THEN
1133: FND_MSG_PUB.Count_And_Get
1134: (
1135: p_encoded => FND_API.G_FALSE,
1136: p_count => l_msg_count,
1131: EXCEPTION
1132: WHEN FND_API.G_EXC_ERROR THEN
1133: FND_MSG_PUB.Count_And_Get
1134: (
1135: p_encoded => FND_API.G_FALSE,
1136: p_count => l_msg_count,
1137: p_data => l_msg_data
1138: );
1139:
1269: false
1270: );
1271: END IF;
1272:
1273: RAISE FND_API.G_EXC_ERROR;
1274:
1275: ELSE
1276: CLOSE get_mel_cdl_details;
1277:
1310:
1311: RETURN;
1312:
1313: EXCEPTION
1314: WHEN FND_API.G_EXC_ERROR THEN
1315: FND_MSG_PUB.Count_And_Get
1316: (
1317: p_encoded => FND_API.G_FALSE,
1318: p_count => l_msg_count,
1313: EXCEPTION
1314: WHEN FND_API.G_EXC_ERROR THEN
1315: FND_MSG_PUB.Count_And_Get
1316: (
1317: p_encoded => FND_API.G_FALSE,
1318: p_count => l_msg_count,
1319: p_data => l_msg_data
1320: );
1321:
1451: false
1452: );
1453: END IF;
1454:
1455: RAISE FND_API.G_EXC_ERROR;
1456:
1457: ELSE
1458: CLOSE get_mel_cdl_details;
1459:
1492:
1493: RETURN;
1494:
1495: EXCEPTION
1496: WHEN FND_API.G_EXC_ERROR THEN
1497: FND_MSG_PUB.Count_And_Get
1498: (
1499: p_encoded => FND_API.G_FALSE,
1500: p_count => l_msg_count,
1495: EXCEPTION
1496: WHEN FND_API.G_EXC_ERROR THEN
1497: FND_MSG_PUB.Count_And_Get
1498: (
1499: p_encoded => FND_API.G_FALSE,
1500: p_count => l_msg_count,
1501: p_data => l_msg_data
1502: );
1503:
1624: false
1625: );
1626: END IF;
1627:
1628: RAISE FND_API.G_EXC_ERROR;
1629:
1630: ELSE
1631: CLOSE get_mel_cdl_details;
1632:
1664:
1665: RETURN;
1666:
1667: EXCEPTION
1668: WHEN FND_API.G_EXC_ERROR THEN
1669: FND_MSG_PUB.Count_And_Get
1670: (
1671: p_encoded => FND_API.G_FALSE,
1672: p_count => l_msg_count,
1667: EXCEPTION
1668: WHEN FND_API.G_EXC_ERROR THEN
1669: FND_MSG_PUB.Count_And_Get
1670: (
1671: p_encoded => FND_API.G_FALSE,
1672: p_count => l_msg_count,
1673: p_data => l_msg_data
1674: );
1675:
1805: );
1806: END IF;
1807:
1808: resultout := 'COMPLETE:ERROR';
1809: RAISE FND_API.G_EXC_ERROR;
1810:
1811: END IF;
1812: CLOSE get_mel_cdl_details;
1813:
1887: );
1888: END IF;
1889:
1890: EXCEPTION
1891: WHEN FND_API.G_EXC_ERROR THEN
1892: FND_MSG_PUB.Count_And_Get
1893: (
1894: p_encoded => FND_API.G_FALSE,
1895: p_count => l_msg_count,
1890: EXCEPTION
1891: WHEN FND_API.G_EXC_ERROR THEN
1892: FND_MSG_PUB.Count_And_Get
1893: (
1894: p_encoded => FND_API.G_FALSE,
1895: p_count => l_msg_count,
1896: p_data => l_msg_data
1897: );
1898:
2015: );
2016: END IF;
2017:
2018: resultout := 'COMPLETE:ERROR';
2019: RAISE FND_API.G_EXC_ERROR;
2020:
2021: END IF;
2022: CLOSE get_mel_cdl_details;
2023:
2068: );
2069: END IF;
2070:
2071: EXCEPTION
2072: WHEN FND_API.G_EXC_ERROR THEN
2073: FND_MSG_PUB.Count_And_Get
2074: (
2075: p_encoded => FND_API.G_FALSE,
2076: p_count => l_msg_count,
2071: EXCEPTION
2072: WHEN FND_API.G_EXC_ERROR THEN
2073: FND_MSG_PUB.Count_And_Get
2074: (
2075: p_encoded => FND_API.G_FALSE,
2076: p_count => l_msg_count,
2077: p_data => l_msg_data
2078: );
2079:
2204: BEGIN
2205:
2206: FND_MSG_PUB.INITIALIZE;
2207:
2208: l_return_status := FND_API.G_RET_STS_SUCCESS;
2209:
2210: IF (l_debug_proc >= l_debug_runtime)
2211: THEN
2212: fnd_log.string
2270: );
2271: END IF;
2272:
2273: resultout := 'COMPLETE:ERROR';
2274: RAISE FND_API.G_EXC_ERROR;
2275:
2276: END IF;
2277: CLOSE get_nr_details_csr;
2278:
2491: x_approver_seq => l_approver_seq,
2492: x_return_status => l_return_status
2493: );
2494:
2495: IF l_return_status = FND_API.G_RET_STS_SUCCESS
2496: THEN
2497: wf_engine.setitemattrnumber
2498: (
2499: itemtype => itemtype,
2532:
2533: resultout := 'COMPLETE:SUCCESS';
2534: ELSE
2535: resultout := 'COMPLETE:ERROR';
2536: RAISE FND_API.G_EXC_ERROR;
2537: END IF;
2538: END IF;
2539:
2540: --
2565: );
2566: END IF;
2567:
2568: EXCEPTION
2569: WHEN FND_API.G_EXC_ERROR THEN
2570: FND_MSG_PUB.Count_And_Get
2571: (
2572: p_encoded => FND_API.G_FALSE,
2573: p_count => l_msg_count,
2568: EXCEPTION
2569: WHEN FND_API.G_EXC_ERROR THEN
2570: FND_MSG_PUB.Count_And_Get
2571: (
2572: p_encoded => FND_API.G_FALSE,
2573: p_count => l_msg_count,
2574: p_data => l_msg_data
2575: );
2576:
2737:
2738: RETURN;
2739:
2740: EXCEPTION
2741: WHEN FND_API.G_EXC_ERROR THEN
2742: FND_MSG_PUB.Count_And_Get
2743: (
2744: p_encoded => FND_API.G_FALSE,
2745: p_count => l_msg_count,
2740: EXCEPTION
2741: WHEN FND_API.G_EXC_ERROR THEN
2742: FND_MSG_PUB.Count_And_Get
2743: (
2744: p_encoded => FND_API.G_FALSE,
2745: p_count => l_msg_count,
2746: p_data => l_msg_data
2747: );
2748:
2903: END IF;
2904:
2905:
2906: EXCEPTION
2907: WHEN FND_API.G_EXC_ERROR THEN
2908: FND_MSG_PUB.Count_And_Get
2909: (
2910: p_encoded => FND_API.G_FALSE,
2911: p_count => l_msg_count,
2906: EXCEPTION
2907: WHEN FND_API.G_EXC_ERROR THEN
2908: FND_MSG_PUB.Count_And_Get
2909: (
2910: p_encoded => FND_API.G_FALSE,
2911: p_count => l_msg_count,
2912: p_data => l_msg_data
2913: );
2914:
3056:
3057: RETURN;
3058:
3059: EXCEPTION
3060: WHEN FND_API.G_EXC_ERROR THEN
3061: FND_MSG_PUB.Count_And_Get
3062: (
3063: p_encoded => FND_API.G_FALSE,
3064: p_count => l_msg_count,
3059: EXCEPTION
3060: WHEN FND_API.G_EXC_ERROR THEN
3061: FND_MSG_PUB.Count_And_Get
3062: (
3063: p_encoded => FND_API.G_FALSE,
3064: p_count => l_msg_count,
3065: p_data => l_msg_data
3066: );
3067:
3225: );
3226: END IF;
3227:
3228: EXCEPTION
3229: WHEN FND_API.G_EXC_ERROR THEN
3230: FND_MSG_PUB.Count_And_Get
3231: (
3232: p_encoded => FND_API.G_FALSE,
3233: p_count => l_msg_count,
3228: EXCEPTION
3229: WHEN FND_API.G_EXC_ERROR THEN
3230: FND_MSG_PUB.Count_And_Get
3231: (
3232: p_encoded => FND_API.G_FALSE,
3233: p_count => l_msg_count,
3234: p_data => l_msg_data
3235: );
3236:
3392: );
3393: END IF;
3394:
3395: EXCEPTION
3396: WHEN FND_API.G_EXC_ERROR THEN
3397: FND_MSG_PUB.Count_And_Get
3398: (
3399: p_encoded => FND_API.G_FALSE,
3400: p_count => l_msg_count,
3395: EXCEPTION
3396: WHEN FND_API.G_EXC_ERROR THEN
3397: FND_MSG_PUB.Count_And_Get
3398: (
3399: p_encoded => FND_API.G_FALSE,
3400: p_count => l_msg_count,
3401: p_data => l_msg_data
3402: );
3403:
3542: l_debug_module,
3543: false
3544: );
3545: END IF;
3546: RAISE FND_API.G_EXC_ERROR;
3547:
3548: END IF;
3549: CLOSE get_ue_mel_cdl_details;
3550:
3575: );
3576: END IF;
3577:
3578: EXCEPTION
3579: WHEN FND_API.G_EXC_ERROR THEN
3580: FND_MSG_PUB.Count_And_Get
3581: (
3582: p_encoded => FND_API.G_FALSE,
3583: p_count => l_msg_count,
3578: EXCEPTION
3579: WHEN FND_API.G_EXC_ERROR THEN
3580: FND_MSG_PUB.Count_And_Get
3581: (
3582: p_encoded => FND_API.G_FALSE,
3583: p_count => l_msg_count,
3584: p_data => l_msg_data
3585: );
3586:
3737:
3738: RETURN;
3739:
3740: EXCEPTION
3741: WHEN FND_API.G_EXC_ERROR THEN
3742: FND_MSG_PUB.Count_And_Get
3743: (
3744: p_encoded => FND_API.G_FALSE,
3745: p_count => l_msg_count,
3740: EXCEPTION
3741: WHEN FND_API.G_EXC_ERROR THEN
3742: FND_MSG_PUB.Count_And_Get
3743: (
3744: p_encoded => FND_API.G_FALSE,
3745: p_count => l_msg_count,
3746: p_data => l_msg_data
3747: );
3748:
3857: END IF;
3858:
3859: SAVEPOINT AHL_NR_UPDATE_STATUS;
3860:
3861: l_return_status := FND_API.G_RET_STS_SUCCESS;
3862:
3863: -- MOAC initialization.
3864: MO_GLOBAL.init('AHL');
3865:
3930: CLOSE ue_deferral_csr;
3931: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_NTF_ID_INVALID');
3932: FND_MESSAGE.Set_Token('HDR_ID',l_object_id);
3933: FND_MSG_PUB.ADD;
3934: RAISE FND_API.G_EXC_ERROR;
3935: END IF;
3936: CLOSE ue_deferral_csr;
3937:
3938: -- check deferral ovn.
3944: CLOSE unit_effect_csr;
3945: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_WF_UE_INVALID');
3946: FND_MESSAGE.Set_Token('UE_ID',l_deferral_rec.unit_effectivity_id);
3947: FND_MSG_PUB.ADD;
3948: RAISE FND_API.G_EXC_ERROR;
3949: END IF;
3950: CLOSE unit_effect_csr;
3951:
3952: -- Check ue status.
3954: -- Check Unit locked.
3955: IF AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => null,
3956: p_ue_id => l_deferral_rec.unit_effectivity_id,
3957: p_visit_id => null,
3958: p_item_instance_id => null) = FND_API.g_true THEN
3959: -- Unit is locked, therefore cannot proceed for approval.
3960: -- and cannot login to the workorder
3961: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UNITLCKED');
3962: FND_MESSAGE.set_token('UE_ID', l_deferral_rec.unit_effectivity_id);
3960: -- and cannot login to the workorder
3961: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UNITLCKED');
3962: FND_MESSAGE.set_token('UE_ID', l_deferral_rec.unit_effectivity_id);
3963: FND_MSG_PUB.ADD;
3964: RAISE FND_API.G_EXC_ERROR;
3965: END IF;
3966:
3967:
3968: -- process for M and O procedures.
4000: 'return status after process_approval_rejected API call : ' || l_return_status
4001: );
4002: END IF;
4003:
4004: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4005: RAISE FND_API.G_EXC_ERROR;
4006: ELSE
4007: COMMIT WORK;
4008: END IF;
4001: );
4002: END IF;
4003:
4004: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4005: RAISE FND_API.G_EXC_ERROR;
4006: ELSE
4007: COMMIT WORK;
4008: END IF;
4009: resultout := 'COMPLETE:';
4022: END IF;
4023:
4024:
4025: EXCEPTION
4026: WHEN fnd_api.G_EXC_ERROR OR FND_API.G_EXC_UNEXPECTED_ERROR THEN
4027: ROLLBACK TO AHL_NR_UPDATE_STATUS;
4028:
4029: FND_MSG_PUB.Count_And_Get (
4030: p_encoded => FND_API.G_FALSE,
4026: WHEN fnd_api.G_EXC_ERROR OR FND_API.G_EXC_UNEXPECTED_ERROR THEN
4027: ROLLBACK TO AHL_NR_UPDATE_STATUS;
4028:
4029: FND_MSG_PUB.Count_And_Get (
4030: p_encoded => FND_API.G_FALSE,
4031: p_count => l_msg_count,
4032: p_data => l_msg_data
4033: );
4034:
4214: );
4215: END IF;
4216:
4217: resultout := 'COMPLETE:ERROR';
4218: RAISE FND_API.G_EXC_ERROR;
4219:
4220: END IF;
4221: CLOSE get_ue_mel_cdl_details;
4222:
4236: 'return status after process_approval_rejected API call : ' || l_return_status
4237: );
4238: END IF;
4239:
4240: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4241: RAISE FND_API.G_EXC_ERROR;
4242: ELSE
4243: COMMIT WORK;
4244: END IF;
4237: );
4238: END IF;
4239:
4240: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4241: RAISE FND_API.G_EXC_ERROR;
4242: ELSE
4243: COMMIT WORK;
4244: END IF;
4245:
4273: );
4274: END IF;
4275:
4276: EXCEPTION
4277: WHEN FND_API.G_EXC_ERROR THEN
4278: ROLLBACK TO AHL_NR_REVERT_STATUS;
4279:
4280: FND_MSG_PUB.Count_And_Get
4281: (
4278: ROLLBACK TO AHL_NR_REVERT_STATUS;
4279:
4280: FND_MSG_PUB.Count_And_Get
4281: (
4282: p_encoded => FND_API.G_FALSE,
4283: p_count => l_msg_count,
4284: p_data => l_msg_data
4285: );
4286:
4418: 'return status after process_approval_rejected API call : ' || l_return_status
4419: );
4420: END IF;
4421:
4422: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4423: RAISE FND_API.G_EXC_ERROR;
4424: ELSE
4425: COMMIT WORK;
4426: END IF;
4419: );
4420: END IF;
4421:
4422: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4423: RAISE FND_API.G_EXC_ERROR;
4424: ELSE
4425: COMMIT WORK;
4426: END IF;
4427:
4426: END IF;
4427:
4428: EXCEPTION
4429:
4430: WHEN FND_API.G_EXC_ERROR THEN
4431: FND_MSG_PUB.Count_And_Get
4432: (
4433: p_encoded => FND_API.G_FALSE,
4434: p_count => l_msg_count,
4429:
4430: WHEN FND_API.G_EXC_ERROR THEN
4431: FND_MSG_PUB.Count_And_Get
4432: (
4433: p_encoded => FND_API.G_FALSE,
4434: p_count => l_msg_count,
4435: p_data => l_msg_data
4436: );
4437: