DBA Data[Home] [Help]

APPS.OKL_AM_TERMNT_VENDOR_PRG_PVT dependencies on OKL_AM_TERMNT_VENDOR_PRG_PVT

Line 1: PACKAGE BODY OKL_AM_TERMNT_VENDOR_PRG_PVT AS

1: PACKAGE BODY OKL_AM_TERMNT_VENDOR_PRG_PVT AS
2: /* $Header: OKLRTVPB.pls 120.3.12010000.2 2008/10/01 22:52:54 rkuttiya ship $ */
3:
4: -- *********************
5: -- GLOBAL DATASTRUCTURES

Line 54: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_TERMNT_VENDOR_PRG_PVT';

50:
51: -- *********************
52: -- GLOBAL VARIABLES
53: -- *********************
54: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_TERMNT_VENDOR_PRG_PVT';
55: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
56: G_APP_NAME_1 CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
57: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_UNEXP_ERROR;
58: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;

Line 503: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.val_pop_vendor_prg.',

499: -- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
500:
501: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
503: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.val_pop_vendor_prg.',
504: 'Begin(+)');
505: END IF;
506:
507: SAVEPOINT validate_va_trx;

Line 585: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.val_pop_vendor_prg.',

581: x_va_rec := l_va_rec;
582:
583: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
584: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
585: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.val_pop_vendor_prg.',
586: 'End(-)');
587: END IF;
588:
589: EXCEPTION

Line 598: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.val_pop_vendor_prg.',

594: x_va_rec := l_va_rec;
595:
596: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
597: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
598: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.val_pop_vendor_prg.',
599: 'EXP - G_EXCEPTION_ERROR');
600: END IF;
601:
602: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 609: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.val_pop_vendor_prg.',

605: x_va_rec := l_va_rec;
606:
607: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
608: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
609: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.val_pop_vendor_prg.',
610: 'EXP - G_EXCEPTION_UNEXPECTED_ERROR');
611: END IF;
612:
613: WHEN OTHERS THEN

Line 629: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.val_pop_vendor_prg.',

625: x_va_rec := l_va_rec;
626:
627: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
628: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
629: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.val_pop_vendor_prg.',
630: 'EXP - OTHERS');
631: END IF;
632:
633: END val_pop_vendor_prg;

Line 692: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.pop_or_insert_transaction.',

688: BEGIN
689:
690: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
691: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
692: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.pop_or_insert_transaction.',
693: 'Begin(+)');
694: END IF;
695:
696: SAVEPOINT pop_insert_trn_trx;

Line 800: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.pop_or_insert_transaction.',

796: x_trn_already_yn := l_trn_already_yn;
797:
798: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
799: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
800: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.pop_or_insert_transaction.',
801: 'End(-)');
802: END IF;
803:
804: EXCEPTION

Line 812: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.pop_or_insert_transaction.',

808: x_return_status := G_RET_STS_ERROR;
809:
810: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
811: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
812: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.pop_or_insert_transaction.',
813: 'EXP - G_EXCEPTION_ERROR');
814: END IF;
815:
816: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 822: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.pop_or_insert_transaction.',

818: x_return_status := G_RET_STS_UNEXP_ERROR;
819:
820: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
821: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
822: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.pop_or_insert_transaction.',
823: 'EXP - G_EXCEPTION_UNEXPECTED_ERROR');
824: END IF;
825:
826: WHEN OTHERS THEN

Line 842: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.pop_or_insert_transaction.',

838: x_return_status := G_RET_STS_UNEXP_ERROR;
839:
840: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
841: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
842: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.pop_or_insert_transaction.',
843: 'EXP - OTHERS');
844: END IF;
845:
846: END pop_or_insert_transaction;

Line 877: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',

873: BEGIN
874:
875: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
876: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
877: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',
878: 'Begin(+)');
879: END IF;
880:
881: SAVEPOINT update_transaction_trx;

Line 923: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',

919: x_tcnv_rec => lx_tcnv_rec);
920:
921: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
922: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
923: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',
924: 'l_return_status '||l_return_status);
925: END IF;
926:
927: -- Set msg if error

Line 950: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',

946: px_tcnv_rec := lx_tcnv_rec;
947:
948: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
949: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
950: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',
951: 'End(-)');
952: END IF;
953:
954: EXCEPTION

Line 962: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',

958: x_return_status := G_RET_STS_ERROR;
959:
960: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
961: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
962: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',
963: 'EXP - G_EXCEPTION_ERROR');
964: END IF;
965:
966: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 972: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',

968: x_return_status := G_RET_STS_UNEXP_ERROR;
969:
970: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
971: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
972: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',
973: 'EXP - G_EXCEPTION_UNEXPECTED_ERROR');
974: END IF;
975:
976: WHEN OTHERS THEN

Line 992: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',

988: x_return_status := G_RET_STS_UNEXP_ERROR;
989:
990: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
991: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
992: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_transaction.',
993: 'EXP - OTHERS');
994: END IF;
995:
996: END update_transaction;

Line 1028: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',

1024: BEGIN
1025:
1026: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1027: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1028: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',
1029: 'Begin(+)');
1030: END IF;
1031:
1032: SAVEPOINT update_vpa_trx;

Line 1055: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',

1051: x_khrv_rec => lx_khrv_rec);
1052:
1053: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1054: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1055: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',
1056: 'l_return_status '||l_return_status);
1057: END IF;
1058:
1059: IF l_return_status <> G_RET_STS_SUCCESS THEN

Line 1083: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',

1079: x_return_status := l_return_status;
1080:
1081: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1082: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1083: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',
1084: 'End(-)');
1085: END IF;
1086:
1087: EXCEPTION

Line 1095: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',

1091: x_return_status := G_RET_STS_ERROR;
1092:
1093: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1095: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',
1096: 'EXP - G_EXCEPTION_ERROR');
1097: END IF;
1098:
1099: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 1105: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',

1101: x_return_status := G_RET_STS_UNEXP_ERROR;
1102:
1103: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1104: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1105: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',
1106: 'EXP - G_EXCEPTION_UNEXPECTED_ERROR');
1107: END IF;
1108:
1109: WHEN OTHERS THEN

Line 1124: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',

1120: x_return_status := G_RET_STS_UNEXP_ERROR;
1121:
1122: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1123: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1124: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.update_vendor_prg.',
1125: 'EXP - OTHERS');
1126: END IF;
1127:
1128: END update_vendor_prg;

Line 1180: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',

1176: BEGIN
1177:
1178: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1179: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1180: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',
1181: 'Begin(+)');
1182: END IF;
1183:
1184: -- *************

Line 1216: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',

1212: x_return_status => l_return_status);
1213:
1214: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1215: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1216: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',
1217: 'val_pop_vendor_prg = '||l_return_status );
1218: END IF;
1219:
1220: -- Set Overall Status

Line 1249: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',

1245: x_return_status => l_return_status);
1246:
1247: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1248: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1249: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',
1250: 'pop_or_insert_transaction = '||l_return_status );
1251: END IF;
1252:
1253: -- raise exception if api failed

Line 1300: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',

1296: x_return_status => l_return_status);
1297:
1298: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1299: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1300: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',
1301: 'update_vendor_prg = '||l_return_status );
1302: END IF;
1303:
1304: -- raise exception if api failed

Line 1373: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',

1369: OKL_API.end_activity (x_msg_count, x_msg_data);
1370:
1371: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1372: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1373: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',
1374: 'End(-)');
1375: END IF;
1376:
1377: EXCEPTION

Line 1398: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',

1394: p_api_type => '_PVT');
1395:
1396: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1397: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1398: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',
1399: 'EXP - G_EXCEPTION_ERROR');
1400: END IF;
1401:
1402: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 1421: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',

1417: p_api_type => '_PVT');
1418:
1419: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1420: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1421: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',
1422: 'EXP - G_EXCEPTION_UNEXPECTED_ERROR');
1423: END IF;
1424:
1425: WHEN OTHERS THEN

Line 1444: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',

1440: p_api_type => '_PVT');
1441:
1442: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1443: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1444: 'OKL_AM_TERMNT_VENDOR_PRG_PVT.terminate_vendor_prog.',
1445: 'EXP - OTHERS');
1446: END IF;
1447:
1448: END terminate_vendor_prog;

Line 1570: END OKL_AM_TERMNT_VENDOR_PRG_PVT;

1566: p_token2_value => SQLERRM);
1567:
1568: END concurrent_expire_vend_prg;
1569:
1570: END OKL_AM_TERMNT_VENDOR_PRG_PVT;