374: FROM FND_LOOKUPS
375: WHERE LOOKUP_TYPE = 'OKL_PRICING_OBJECTS' AND LOOKUP_CODE = object_type;
376:
377: BEGIN
378: x_return_status := okl_api.start_activity(l_api_name,
379: g_pkg_name,
380: 'T',
381: l_api_version,
382: p_api_version,
382: p_api_version,
383: '_PVT',
384: x_return_status);
385:
386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
389: RAISE OKL_API.G_EXCEPTION_ERROR;
390: END IF;
383: '_PVT',
384: x_return_status);
385:
386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
389: RAISE OKL_API.G_EXCEPTION_ERROR;
390: END IF;
391:
384: x_return_status);
385:
386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
389: RAISE OKL_API.G_EXCEPTION_ERROR;
390: END IF;
391:
392: -- RUN mode
385:
386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
389: RAISE OKL_API.G_EXCEPTION_ERROR;
390: END IF;
391:
392: -- RUN mode
393:
505:
506: -- handle the exceptions
507:
508: WHEN OTHERS THEN
509: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name,
510: G_PKG_NAME,
511: 'OTHERS',
512: x_msg_count,
513: x_msg_data,
623: FROM FND_APPLICATION
624: WHERE APPLICATION_SHORT_NAME = G_APP_NAME;
625:
626: BEGIN
627: x_return_status := okl_api.start_activity(l_api_name,
628: g_pkg_name,
629: 'T',
630: l_api_version,
631: p_api_version,
631: p_api_version,
632: '_PVT',
633: x_return_status);
634:
635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_ERROR;
639: END IF;
632: '_PVT',
633: x_return_status);
634:
635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_ERROR;
639: END IF;
640:
633: x_return_status);
634:
635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_ERROR;
639: END IF;
640:
641: -- get the value of the version id from the workflow
634:
635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_ERROR;
639: END IF;
640:
641: -- get the value of the version id from the workflow
642:
710: G_WF_ITM_APPLICATION_ID,
711: l_application_id);
712: EXCEPTION
713: WHEN OTHERS THEN
714: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name,
715: G_PKG_NAME,
716: 'OTHERS',
717: x_msg_count,
718: x_msg_data,
728: l_srt_id NUMBER;
729: l_api_version NUMBER := 1.0;
730: l_api_name VARCHAR2(40) := 'handle_srt_approval';
731: p_init_msg_list VARCHAR2(1) := 'T';
732: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
733: lx_msg_count NUMBER;
734: l_result VARCHAR2(30);
735: lv_approval_status_ame VARCHAR2(30);
736: lx_msg_data VARCHAR2(32767);
760: lx_return_status,
761: lx_msg_count,
762: lx_msg_data,
763: l_srt_id);
764: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
765: RAISE OKL_API.G_EXCEPTION_ERROR;
766: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: END IF;
761: lx_msg_count,
762: lx_msg_data,
763: l_srt_id);
764: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
765: RAISE OKL_API.G_EXCEPTION_ERROR;
766: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: END IF;
769: ELSE
762: lx_msg_data,
763: l_srt_id);
764: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
765: RAISE OKL_API.G_EXCEPTION_ERROR;
766: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: END IF;
769: ELSE
770: l_srt_id := wf_engine.GetItemAttrText(itemtype,
763: l_srt_id);
764: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
765: RAISE OKL_API.G_EXCEPTION_ERROR;
766: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: END IF;
769: ELSE
770: l_srt_id := wf_engine.GetItemAttrText(itemtype,
771: itemkey,
784: lx_msg_count,
785: lx_msg_data,
786: l_srv_rec,
787: x_srv_rec);
788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
791: RAISE OKL_API.G_EXCEPTION_ERROR;
792: END IF;
785: lx_msg_data,
786: l_srv_rec,
787: x_srv_rec);
788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
791: RAISE OKL_API.G_EXCEPTION_ERROR;
792: END IF;
793: END IF;
786: l_srv_rec,
787: x_srv_rec);
788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
791: RAISE OKL_API.G_EXCEPTION_ERROR;
792: END IF;
793: END IF;
794: resultout := 'COMPLETE';
787: x_srv_rec);
788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
791: RAISE OKL_API.G_EXCEPTION_ERROR;
792: END IF;
793: END IF;
794: resultout := 'COMPLETE';
795: RETURN;
850: FROM FND_APPLICATION
851: WHERE APPLICATION_SHORT_NAME = G_APP_NAME;
852:
853: BEGIN
854: x_return_status := okl_api.start_activity(l_api_name,
855: g_pkg_name,
856: 'T',
857: l_api_version,
858: p_api_version,
858: p_api_version,
859: '_PVT',
860: x_return_status);
861:
862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
865: RAISE OKL_API.G_EXCEPTION_ERROR;
866: END IF;
859: '_PVT',
860: x_return_status);
861:
862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
865: RAISE OKL_API.G_EXCEPTION_ERROR;
866: END IF;
867:
860: x_return_status);
861:
862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
865: RAISE OKL_API.G_EXCEPTION_ERROR;
866: END IF;
867:
868: -- get the value of the version id from the workflow
861:
862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
865: RAISE OKL_API.G_EXCEPTION_ERROR;
866: END IF;
867:
868: -- get the value of the version id from the workflow
869:
933: G_WF_ITM_APPLICATION_ID,
934: l_application_id);
935: EXCEPTION
936: WHEN OTHERS THEN
937: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name,
938: G_PKG_NAME,
939: 'OTHERS',
940: x_msg_count,
941: x_msg_data,
950: resultout OUT NOCOPY varchar2) IS
951: l_api_version NUMBER := 1.0;
952: l_api_name VARCHAR2(40) := 'handle_pam_approval';
953: p_init_msg_list VARCHAR2(1) := 'T';
954: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
955: l_pam_id NUMBER;
956: lx_msg_count NUMBER;
957: l_result VARCHAR2(30);
958: lv_approval_status_ame VARCHAR2(30);
980: lx_return_status,
981: lx_msg_count,
982: lx_msg_data,
983: l_pam_id);
984: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
985: RAISE OKL_API.G_EXCEPTION_ERROR;
986: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
988: END IF;
981: lx_msg_count,
982: lx_msg_data,
983: l_pam_id);
984: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
985: RAISE OKL_API.G_EXCEPTION_ERROR;
986: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
988: END IF;
989: ELSE
982: lx_msg_data,
983: l_pam_id);
984: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
985: RAISE OKL_API.G_EXCEPTION_ERROR;
986: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
988: END IF;
989: ELSE
990: l_pam_id := wf_engine.GetItemAttrText(itemtype,
983: l_pam_id);
984: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
985: RAISE OKL_API.G_EXCEPTION_ERROR;
986: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
988: END IF;
989: ELSE
990: l_pam_id := wf_engine.GetItemAttrText(itemtype,
991: itemkey,
1004: lx_msg_count,
1005: lx_msg_data,
1006: l_pal_rec,
1007: x_pal_rec);
1008: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1011: RAISE OKL_API.G_EXCEPTION_ERROR;
1012: END IF;
1005: lx_msg_data,
1006: l_pal_rec,
1007: x_pal_rec);
1008: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1011: RAISE OKL_API.G_EXCEPTION_ERROR;
1012: END IF;
1013: END IF;
1006: l_pal_rec,
1007: x_pal_rec);
1008: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1011: RAISE OKL_API.G_EXCEPTION_ERROR;
1012: END IF;
1013: END IF;
1014: resultout := 'COMPLETE';
1007: x_pal_rec);
1008: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1010: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1011: RAISE OKL_API.G_EXCEPTION_ERROR;
1012: END IF;
1013: END IF;
1014: resultout := 'COMPLETE';
1015: RETURN;
1074: FROM FND_APPLICATION
1075: WHERE APPLICATION_SHORT_NAME = G_APP_NAME;
1076:
1077: BEGIN
1078: x_return_status := okl_api.start_activity(l_api_name,
1079: g_pkg_name,
1080: 'T',
1081: l_api_version,
1082: p_api_version,
1082: p_api_version,
1083: '_PVT',
1084: x_return_status);
1085:
1086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1089: RAISE OKL_API.G_EXCEPTION_ERROR;
1090: END IF;
1083: '_PVT',
1084: x_return_status);
1085:
1086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1089: RAISE OKL_API.G_EXCEPTION_ERROR;
1090: END IF;
1091:
1084: x_return_status);
1085:
1086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1089: RAISE OKL_API.G_EXCEPTION_ERROR;
1090: END IF;
1091:
1092: -- get the value of the version id from the workflow
1085:
1086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1089: RAISE OKL_API.G_EXCEPTION_ERROR;
1090: END IF;
1091:
1092: -- get the value of the version id from the workflow
1093:
1169: G_WF_ITM_APPLICATION_ID,
1170: l_application_id);
1171: EXCEPTION
1172: WHEN OTHERS THEN
1173: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name,
1174: G_PKG_NAME,
1175: 'OTHERS',
1176: x_msg_count,
1177: x_msg_data,
1186: resultout OUT NOCOPY varchar2) IS
1187: l_api_version NUMBER := 1.0;
1188: l_api_name VARCHAR2(40) := 'handle_eot_approval';
1189: p_init_msg_list VARCHAR2(1) := 'T';
1190: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1191: l_eot_id NUMBER;
1192: lx_msg_count NUMBER;
1193: l_result VARCHAR2(30);
1194: lv_approval_status_ame VARCHAR2(30);
1216: lx_return_status,
1217: lx_msg_count,
1218: lx_msg_data,
1219: l_eot_id);
1220: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: END IF;
1217: lx_msg_count,
1218: lx_msg_data,
1219: l_eot_id);
1220: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: END IF;
1225: ELSE
1218: lx_msg_data,
1219: l_eot_id);
1220: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: END IF;
1225: ELSE
1226: l_eot_id := wf_engine.GetItemAttrText(itemtype,
1219: l_eot_id);
1220: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1221: RAISE OKL_API.G_EXCEPTION_ERROR;
1222: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: END IF;
1225: ELSE
1226: l_eot_id := wf_engine.GetItemAttrText(itemtype,
1227: itemkey,
1240: lx_msg_count,
1241: lx_msg_data,
1242: l_eve_rec,
1243: x_eve_rec);
1244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_ERROR;
1248: END IF;
1241: lx_msg_data,
1242: l_eve_rec,
1243: x_eve_rec);
1244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_ERROR;
1248: END IF;
1249: END IF;
1242: l_eve_rec,
1243: x_eve_rec);
1244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_ERROR;
1248: END IF;
1249: END IF;
1250: resultout := 'COMPLETE';
1243: x_eve_rec);
1244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1247: RAISE OKL_API.G_EXCEPTION_ERROR;
1248: END IF;
1249: END IF;
1250: resultout := 'COMPLETE';
1251: RETURN;
1315: FROM FND_APPLICATION
1316: WHERE APPLICATION_SHORT_NAME = G_APP_NAME;
1317:
1318: BEGIN
1319: x_return_status := okl_api.start_activity(l_api_name,
1320: g_pkg_name,
1321: 'T',
1322: l_api_version,
1323: p_api_version,
1323: p_api_version,
1324: '_PVT',
1325: x_return_status);
1326:
1327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1330: RAISE OKL_API.G_EXCEPTION_ERROR;
1331: END IF;
1324: '_PVT',
1325: x_return_status);
1326:
1327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1330: RAISE OKL_API.G_EXCEPTION_ERROR;
1331: END IF;
1332:
1325: x_return_status);
1326:
1327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1330: RAISE OKL_API.G_EXCEPTION_ERROR;
1331: END IF;
1332:
1333: -- get the value of the version id from the workflow
1326:
1327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1330: RAISE OKL_API.G_EXCEPTION_ERROR;
1331: END IF;
1332:
1333: -- get the value of the version id from the workflow
1334:
1464: G_WF_ITM_APPLICATION_ID,
1465: l_application_id);
1466: EXCEPTION
1467: WHEN OTHERS THEN
1468: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name,
1469: G_PKG_NAME,
1470: 'OTHERS',
1471: x_msg_count,
1472: x_msg_data,
1481: resultout OUT NOCOPY varchar2) IS
1482: l_api_version NUMBER := 1.0;
1483: l_api_name VARCHAR2(40) := 'handle_lrs_approval';
1484: p_init_msg_list VARCHAR2(1) := 'T';
1485: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1486: l_rate_set_ver_id NUMBER;
1487: lx_msg_count NUMBER;
1488: lx_msg_data VARCHAR2(32767);
1489: lx_return_status VARCHAR2(1);
1515: lx_return_status,
1516: lx_msg_count,
1517: lx_msg_data,
1518: l_rate_set_ver_id);
1519: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1520: RAISE OKL_API.G_EXCEPTION_ERROR;
1521: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1523: END IF;
1516: lx_msg_count,
1517: lx_msg_data,
1518: l_rate_set_ver_id);
1519: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1520: RAISE OKL_API.G_EXCEPTION_ERROR;
1521: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1523: END IF;
1524: ELSE
1517: lx_msg_data,
1518: l_rate_set_ver_id);
1519: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1520: RAISE OKL_API.G_EXCEPTION_ERROR;
1521: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1523: END IF;
1524: ELSE
1525: l_rate_set_ver_id := wf_engine.GetItemAttrText(itemtype,
1518: l_rate_set_ver_id);
1519: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1520: RAISE OKL_API.G_EXCEPTION_ERROR;
1521: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1523: END IF;
1524: ELSE
1525: l_rate_set_ver_id := wf_engine.GetItemAttrText(itemtype,
1526: itemkey,
1539: lx_msg_count,
1540: lx_msg_data,
1541: l_lrvv_rec,
1542: x_lrvv_rec);
1543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_ERROR;
1547: END IF;
1540: lx_msg_data,
1541: l_lrvv_rec,
1542: x_lrvv_rec);
1543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_ERROR;
1547: END IF;
1548: END IF;
1541: l_lrvv_rec,
1542: x_lrvv_rec);
1543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_ERROR;
1547: END IF;
1548: END IF;
1549: resultout := 'COMPLETE';
1542: x_lrvv_rec);
1543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1546: RAISE OKL_API.G_EXCEPTION_ERROR;
1547: END IF;
1548: END IF;
1549: resultout := 'COMPLETE';
1550: RETURN;
1672: WHERE IRHV.ITEM_RESIDUAL_ID = ICPV.ITEM_RESIDUAL_ID
1673: AND ICPV.ID = p_item_resdl_version_id; -- Item residual version ID
1674:
1675: BEGIN
1676: x_return_status := okl_api.start_activity(l_api_name,
1677: g_pkg_name,
1678: 'T',
1679: l_api_version,
1680: p_api_version,
1680: p_api_version,
1681: '_PVT',
1682: x_return_status);
1683:
1684: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1681: '_PVT',
1682: x_return_status);
1683:
1684: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689:
1682: x_return_status);
1683:
1684: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689:
1690: -- get the value of the version id from the workflow
1683:
1684: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689:
1690: -- get the value of the version id from the workflow
1691:
1807: G_WF_ITM_APPLICATION_ID,
1808: l_application_id);
1809: EXCEPTION
1810: WHEN OTHERS THEN
1811: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name,
1812: G_PKG_NAME,
1813: 'OTHERS',
1814: x_msg_count,
1815: x_msg_data,
1824: resultout OUT NOCOPY varchar2) IS
1825: l_api_version NUMBER := 1.0;
1826: l_api_name VARCHAR2(40) := 'handle_irs_approval';
1827: p_init_msg_list VARCHAR2(1) := 'T';
1828: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1829: l_item_resdl_version_id NUMBER;
1830: lx_msg_count NUMBER;
1831: l_return_status VARCHAR2(1);
1832: l_result VARCHAR2(30);
1855: l_return_status,
1856: lx_msg_count,
1857: lx_msg_data,
1858: l_item_resdl_version_id);
1859: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1860: RAISE OKL_API.G_EXCEPTION_ERROR;
1861: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1863: END IF;
1856: lx_msg_count,
1857: lx_msg_data,
1858: l_item_resdl_version_id);
1859: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1860: RAISE OKL_API.G_EXCEPTION_ERROR;
1861: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1863: END IF;
1864: ELSE
1857: lx_msg_data,
1858: l_item_resdl_version_id);
1859: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1860: RAISE OKL_API.G_EXCEPTION_ERROR;
1861: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1863: END IF;
1864: ELSE
1865: l_item_resdl_version_id := wf_engine.GetItemAttrText(itemtype,
1858: l_item_resdl_version_id);
1859: IF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1860: RAISE OKL_API.G_EXCEPTION_ERROR;
1861: ELSIF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1863: END IF;
1864: ELSE
1865: l_item_resdl_version_id := wf_engine.GetItemAttrText(itemtype,
1866: itemkey,
1879: lx_msg_count,
1880: lx_msg_data,
1881: l_icpv_rec,
1882: x_icpv_rec);
1883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1886: RAISE OKL_API.G_EXCEPTION_ERROR;
1887: END IF;
1880: lx_msg_data,
1881: l_icpv_rec,
1882: x_icpv_rec);
1883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1886: RAISE OKL_API.G_EXCEPTION_ERROR;
1887: END IF;
1888: END IF;
1881: l_icpv_rec,
1882: x_icpv_rec);
1883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1886: RAISE OKL_API.G_EXCEPTION_ERROR;
1887: END IF;
1888: END IF;
1889: resultout := 'COMPLETE';
1882: x_icpv_rec);
1883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1886: RAISE OKL_API.G_EXCEPTION_ERROR;
1887: END IF;
1888: END IF;
1889: resultout := 'COMPLETE';
1890: RETURN;