eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.CSTPSMUT dependencies on CSTPSMUT

Line 1: PACKAGE BODY CSTPSMUT AS

1: PACKAGE BODY CSTPSMUT AS
2: /* $Header: CSTSMUTB.pls 120.9.12010000.2 2008/12/16 21:39:30 hyu ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(240) := 'CSTPSMUT';
5: l_debug_flag CONSTANT VARCHAR2(1) := FND_PROFILE.VALUE('MRP_DEBUG');

Line 4: G_PKG_NAME CONSTANT VARCHAR2(240) := 'CSTPSMUT';

1: PACKAGE BODY CSTPSMUT AS
2: /* $Header: CSTSMUTB.pls 120.9.12010000.2 2008/12/16 21:39:30 hyu ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(240) := 'CSTPSMUT';
5: l_debug_flag CONSTANT VARCHAR2(1) := FND_PROFILE.VALUE('MRP_DEBUG');
6:
7: ----------------------------------------------------------------------------
8: -- FUNCTION --

Line 346: FND_FILE.put_line(fnd_file.log, 'CSTPSMUT.COST_SPLIT_TXN <<<');

342: /* Check API Compatibility */
343: l_stmt_num := 10;
344:
345: IF(l_debug_flag = 'Y') THEN
346: FND_FILE.put_line(fnd_file.log, 'CSTPSMUT.COST_SPLIT_TXN <<<');
347: fnd_file.put_line(fnd_file.log, 'Costing Transaction: '||to_char(p_transaction_id));
348: END IF;
349:
350: IF NOT FND_API.COMPATIBLE_API_CALL (

Line 432: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,

428: /* Get the Job Charges */
429:
430: l_stmt_num := 70;
431:
432: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,
433: p_lot_size => l_job_start_quantity,
434: p_run_mode => 1, -- CHARGE
435: p_entity_id => l_rep_wip_entity_id,
436: p_intraop_step => l_intraoperation_step,

Line 458: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,

454:
455: /* Get the Costs Relieved from the job */
456: l_stmt_num := 80;
457:
458: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,
459: p_lot_size => l_job_start_quantity,
460: p_run_mode => 2, -- SCRAP
461: p_entity_id => l_rep_wip_entity_id,
462: p_intraop_step => l_intraoperation_step,

Line 507: CSTPSMUT.INSERT_MAT_TXN_ACCT(

503: IF (l_rep_wip_entity_id <> c_result.wip_entity_id) THEN
504:
505: l_stmt_num := 90;
506:
507: CSTPSMUT.INSERT_MAT_TXN_ACCT(
508: l_transaction_date,
509: l_min_acct_unit,
510: l_ext_prec,
511: l_transaction_type,

Line 540: CSTPSMUT.INSERT_WIP_TXN_ACCT(

536: /* Insert into WTA */
537:
538: l_stmt_num := 110;
539:
540: CSTPSMUT.INSERT_WIP_TXN_ACCT(
541: l_transaction_date,
542: l_min_acct_unit,
543: l_ext_prec,
544: p_transaction_id,

Line 574: CSTPSMUT.RESULT_LOT(

570: /* Update WPB of resulting Lot */
571:
572: l_stmt_num := 120;
573:
574: CSTPSMUT.RESULT_LOT(
575: p_mmt_transaction_id,
576: l_wip_transaction_id,
577: c_result.wip_entity_id,
578: l_acct_period_id,

Line 626: CSTPSMUT.INSERT_MAT_TXN_ACCT(

622: l_stmt_num := 140;
623:
624: /* Insert into MTA for Representative Lot */
625:
626: CSTPSMUT.INSERT_MAT_TXN_ACCT(
627: l_transaction_date,
628: l_min_acct_unit,
629: l_ext_prec,
630: l_transaction_type,

Line 659: CSTPSMUT.INSERT_WIP_TXN_ACCT(

655: l_stmt_num := 150;
656:
657: /* Insert TL Accounting into WTA */
658:
659: CSTPSMUT.INSERT_WIP_TXN_ACCT(
660: l_transaction_date,
661: l_min_acct_unit,
662: l_ext_prec,
663: p_transaction_id,

Line 692: CSTPSMUT.INSERT_WIP_TXN(

688:
689: /* Insert Transaction into WT */
690:
691: l_stmt_num := 160;
692: CSTPSMUT.INSERT_WIP_TXN(
693: l_transaction_date,
694: p_transaction_id,
695: l_wip_transaction_id,
696: l_acct_period_id,

Line 719: CSTPSMUT.BALANCE_ACCOUNTING(p_mmt_transaction_id,

715: /* Make sure the Debit/Credit for Representative Lot and Resulting Lots
716: are balanced */
717:
718: l_stmt_num := 170;
719: CSTPSMUT.BALANCE_ACCOUNTING(p_mmt_transaction_id,
720: l_wip_transaction_id,
721: l_transaction_type,
722: x_err_msg,
723: x_err_code,

Line 731: CSTPSMUT.START_LOT(

727: END IF;
728:
729: /* Update WPB of Representative Lot */
730: l_stmt_num := 180;
731: CSTPSMUT.START_LOT(
732: p_mmt_transaction_id,
733: l_wip_transaction_id,
734: c_start.wip_entity_id,
735: l_acct_period_id,

Line 803: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_SPLIT_TXN >>>');

799: END IF;
800:
801: END IF;
802: IF(l_debug_flag = 'Y') THEN
803: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_SPLIT_TXN >>>');
804: END IF;
805:
806:
807: EXCEPTION

Line 811: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

807: EXCEPTION
808: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
809: x_err_num := -1;
810: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
811: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
812: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
813: WHEN GET_JOB_VALUE_FAILURE THEN
814: x_err_num := -1;
815: x_err_code := 'Error getting Job Charges/Scrap';

Line 816: x_err_msg := 'Error getting Job Charges/Scrap: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

812: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
813: WHEN GET_JOB_VALUE_FAILURE THEN
814: x_err_num := -1;
815: x_err_code := 'Error getting Job Charges/Scrap';
816: x_err_msg := 'Error getting Job Charges/Scrap: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
817: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
818: WHEN FAILED_INSERTING_START_LOT THEN
819: x_err_num := -1;
820: x_err_code := 'Error Inserting WPB Information for Starting Lot';

Line 821: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

817: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
818: WHEN FAILED_INSERTING_START_LOT THEN
819: x_err_num := -1;
820: x_err_code := 'Error Inserting WPB Information for Starting Lot';
821: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
822: WHEN FAILED_BALANCING_ACCT THEN
823: x_err_num := -1;
824: x_err_code := 'Error Balancing Accounts';
825: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 825: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

821: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
822: WHEN FAILED_BALANCING_ACCT THEN
823: x_err_num := -1;
824: x_err_code := 'Error Balancing Accounts';
825: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
826: WHEN FAILED_INSERTING_WT THEN
827: x_err_num := -1;
828: x_err_code := 9999;
829: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 829: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

825: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
826: WHEN FAILED_INSERTING_WT THEN
827: x_err_num := -1;
828: x_err_code := 9999;
829: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
830: WHEN FAILED_INSERTING_WTA THEN
831: x_err_num := -1;
832: x_err_code := 'Error inserting into Wip Transaction Accounts';
833: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 833: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

829: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
830: WHEN FAILED_INSERTING_WTA THEN
831: x_err_num := -1;
832: x_err_code := 'Error inserting into Wip Transaction Accounts';
833: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
834: WHEN FAILED_INSERTING_MTA THEN
835: x_err_num := -1;
836: x_err_code := 'Error inserting into MTL Transaction Accounts';
837: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 837: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

833: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
834: WHEN FAILED_INSERTING_MTA THEN
835: x_err_num := -1;
836: x_err_code := 'Error inserting into MTL Transaction Accounts';
837: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
838: WHEN FAILED_INSERTING_RESULT_LOT THEN
839: x_err_num := -1;
840: x_err_code := 'Error inserting into WPB for Resulting Lot';
841: x_err_msg := 'Error inserting into WPB for Resulting Lot: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 841: x_err_msg := 'Error inserting into WPB for Resulting Lot: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

837: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
838: WHEN FAILED_INSERTING_RESULT_LOT THEN
839: x_err_num := -1;
840: x_err_code := 'Error inserting into WPB for Resulting Lot';
841: x_err_msg := 'Error inserting into WPB for Resulting Lot: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
842:
843: WHEN INSERT_WOO_ERROR THEN
844: x_err_num := -1;
845: x_err_code := 'Error inserting into WOO';

Line 846: x_err_msg := 'Error inserting into WOO: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

842:
843: WHEN INSERT_WOO_ERROR THEN
844: x_err_num := -1;
845: x_err_code := 'Error inserting into WOO';
846: x_err_msg := 'Error inserting into WOO: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
847: WHEN OTHERS THEN
848: x_err_num := -1;
849: x_err_code := 'Error in CSTPSMUT.COST_SPLIT_TXN';
850: x_err_msg := 'Error in CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 849: x_err_code := 'Error in CSTPSMUT.COST_SPLIT_TXN';

845: x_err_code := 'Error inserting into WOO';
846: x_err_msg := 'Error inserting into WOO: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
847: WHEN OTHERS THEN
848: x_err_num := -1;
849: x_err_code := 'Error in CSTPSMUT.COST_SPLIT_TXN';
850: x_err_msg := 'Error in CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
851: END COST_SPLIT_TXN;
852:
853:

Line 850: x_err_msg := 'Error in CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

846: x_err_msg := 'Error inserting into WOO: CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
847: WHEN OTHERS THEN
848: x_err_num := -1;
849: x_err_code := 'Error in CSTPSMUT.COST_SPLIT_TXN';
850: x_err_msg := 'Error in CSTPSMUT.COST_SPLIT_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
851: END COST_SPLIT_TXN;
852:
853:
854:

Line 1039: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_MERGE_TXN ... <<< ');

1035: /* Check API Compatibility */
1036: l_stmt_num := 10;
1037:
1038: IF(l_debug_flag = 'Y') THEN
1039: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_MERGE_TXN ... <<< ');
1040: fnd_file.put_line(fnd_file.log, 'Costing Transaction: '||to_char(p_transaction_id));
1041: END IF;
1042:
1043: IF NOT FND_API.COMPATIBLE_API_CALL (

Line 1119: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,

1115: /* Get the Job Charges */
1116:
1117: l_stmt_num := 60;
1118:
1119: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,
1120: p_lot_size => l_job_start_quantity,
1121: p_run_mode => 1, -- CHARGE
1122: p_entity_id => l_rep_wip_entity_id,
1123: p_intraop_step => l_intraoperation_step,

Line 1147: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,

1143:
1144: /* Get the Costs Relieved from the job */
1145: l_stmt_num := 70;
1146:
1147: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,
1148: p_lot_size => l_job_start_quantity,
1149: p_run_mode => 2, -- SCRAP
1150: p_entity_id => l_rep_wip_entity_id,
1151: p_intraop_step => l_intraoperation_step,

Line 1198: CSTPSMUT.INSERT_MAT_TXN_ACCT(

1194: IF(l_debug_flag = 'Y') THEN
1195: fnd_file.put_line(fnd_file.log, 'Processing Job: '||to_char(c_start.wip_entity_id));
1196: END IF;
1197:
1198: CSTPSMUT.INSERT_MAT_TXN_ACCT(
1199: l_transaction_date,
1200: l_min_acct_unit,
1201: l_ext_prec,
1202: l_transaction_type,

Line 1231: CSTPSMUT.INSERT_WIP_TXN_ACCT(

1227: /* Insert into WTA */
1228:
1229: l_stmt_num := 110;
1230:
1231: CSTPSMUT.INSERT_WIP_TXN_ACCT(
1232: l_transaction_date,
1233: l_min_acct_unit,
1234: l_ext_prec,
1235: p_transaction_id,

Line 1265: CSTPSMUT.START_LOT(

1261: /* Update WPB */
1262:
1263: l_stmt_num := 120;
1264:
1265: CSTPSMUT.START_LOT(
1266: p_mmt_transaction_id,
1267: l_wip_transaction_id,
1268: c_start.wip_entity_id,
1269: l_acct_period_id,

Line 1314: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,

1310: /* Get the Job Charges */
1311:
1312: l_stmt_num := 140;
1313:
1314: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,
1315: p_lot_size => l_job_start_quantity,
1316: p_run_mode => 1, -- CHARGE
1317: p_entity_id => l_rep_wip_entity_id,
1318: p_intraop_step => l_intraoperation_step,

Line 1342: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,

1338:
1339: /* Get the Costs Relieved from the job */
1340: l_stmt_num := 150;
1341:
1342: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,
1343: p_lot_size => l_job_start_quantity,
1344: p_run_mode => 2, -- SCRAP
1345: p_entity_id => l_rep_wip_entity_id,
1346: p_intraop_step => l_intraoperation_step,

Line 1366: CSTPSMUT.INSERT_MAT_TXN_ACCT(

1362:
1363: /* Update MTA and WTA for representative start lot */
1364: /* Relieve everything that has been charged */
1365:
1366: CSTPSMUT.INSERT_MAT_TXN_ACCT(
1367: l_transaction_date,
1368: l_min_acct_unit,
1369: l_ext_prec,
1370: l_transaction_type,

Line 1399: CSTPSMUT.INSERT_WIP_TXN_ACCT(

1395: /* Insert into WTA */
1396:
1397: l_stmt_num := 160;
1398:
1399: CSTPSMUT.INSERT_WIP_TXN_ACCT(
1400: l_transaction_date,
1401: l_min_acct_unit,
1402: l_ext_prec,
1403: p_transaction_id,

Line 1433: CSTPSMUT.START_LOT(

1429: /* Update WPB */
1430:
1431: l_stmt_num := 170;
1432:
1433: CSTPSMUT.START_LOT(
1434: p_mmt_transaction_id,
1435: l_wip_transaction_id,
1436: l_rep_wip_entity_id,
1437: l_acct_period_id,

Line 1483: CSTPSMUT.INSERT_MAT_TXN_ACCT(

1479: fnd_file.put_line(fnd_file.log, 'Processing Result Lot: '||to_char(l_result_wip_entity_id));
1480: END IF;
1481:
1482: /* Insert into MTA for Result Lot */
1483: CSTPSMUT.INSERT_MAT_TXN_ACCT(
1484: l_transaction_date,
1485: l_min_acct_unit,
1486: l_ext_prec,
1487: l_transaction_type,

Line 1516: CSTPSMUT.INSERT_WIP_TXN_ACCT(

1512: l_stmt_num := 210;
1513:
1514: /* Insert TL Accounting into WTA */
1515:
1516: CSTPSMUT.INSERT_WIP_TXN_ACCT(
1517: l_transaction_date,
1518: l_min_acct_unit,
1519: l_ext_prec,
1520: p_transaction_id,

Line 1549: CSTPSMUT.INSERT_WIP_TXN(

1545:
1546: /* Insert Transaction into WT */
1547:
1548: l_stmt_num := 220;
1549: CSTPSMUT.INSERT_WIP_TXN(
1550: l_transaction_date,
1551: p_transaction_id,
1552: l_wip_transaction_id,
1553: l_acct_period_id,

Line 1576: CSTPSMUT.BALANCE_ACCOUNTING(p_mmt_transaction_id,

1572: /* Make sure the Debit/Credit for Representative Lot and Resulting Lots
1573: are balanced */
1574:
1575: l_stmt_num := 190;
1576: CSTPSMUT.BALANCE_ACCOUNTING(p_mmt_transaction_id,
1577: l_wip_transaction_id,
1578: l_transaction_type,
1579: x_err_msg,
1580: x_err_code,

Line 1589: CSTPSMUT.RESULT_LOT(

1585:
1586: /* Update WPB of Result Lot */
1587:
1588: l_stmt_num := 200;
1589: CSTPSMUT.RESULT_LOT(
1590: p_mmt_transaction_id,
1591: l_wip_transaction_id,
1592: l_result_wip_entity_id,
1593: l_acct_period_id,

Line 1661: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_MERGE_TXN ... >>> ');

1657: END IF;
1658:
1659:
1660: IF(l_debug_flag = 'Y') THEN
1661: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_MERGE_TXN ... >>> ');
1662: END IF;
1663:
1664: EXCEPTION
1665:

Line 1669: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

1665:
1666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1667: x_err_num := -1;
1668: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
1669: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1670: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
1671: WHEN GET_JOB_VALUE_FAILURE THEN
1672: x_err_num := -1;
1673: x_err_code := 'Error getting Job Charges/Scrap';

Line 1674: x_err_msg := 'Error getting Job Charges/Scrap: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

1670: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
1671: WHEN GET_JOB_VALUE_FAILURE THEN
1672: x_err_num := -1;
1673: x_err_code := 'Error getting Job Charges/Scrap';
1674: x_err_msg := 'Error getting Job Charges/Scrap: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1675: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
1676: WHEN FAILED_INSERTING_START_LOT THEN
1677: x_err_num := -1;
1678: x_err_code := 'Error Inserting WPB Information for Starting Lot';

Line 1679: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

1675: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
1676: WHEN FAILED_INSERTING_START_LOT THEN
1677: x_err_num := -1;
1678: x_err_code := 'Error Inserting WPB Information for Starting Lot';
1679: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1680: WHEN FAILED_BALANCING_ACCT THEN
1681: x_err_num := -1;
1682: x_err_code := 'Error Balancing Accounts';
1683: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 1683: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

1679: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1680: WHEN FAILED_BALANCING_ACCT THEN
1681: x_err_num := -1;
1682: x_err_code := 'Error Balancing Accounts';
1683: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1684: WHEN FAILED_INSERTING_WT THEN
1685: x_err_num := -1;
1686: x_err_code := 'Error inserting into Wip Transactions';
1687: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 1687: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

1683: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1684: WHEN FAILED_INSERTING_WT THEN
1685: x_err_num := -1;
1686: x_err_code := 'Error inserting into Wip Transactions';
1687: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1688: WHEN FAILED_INSERTING_WTA THEN
1689: x_err_num := -1;
1690: x_err_code := 'Error inserting into Wip Transaction Accounts';
1691: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 1691: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

1687: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1688: WHEN FAILED_INSERTING_WTA THEN
1689: x_err_num := -1;
1690: x_err_code := 'Error inserting into Wip Transaction Accounts';
1691: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1692: WHEN FAILED_INSERTING_MTA THEN
1693: x_err_num := -1;
1694: x_err_code := 'Error inserting into MTL Transaction Accounts';
1695: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 1695: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

1691: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1692: WHEN FAILED_INSERTING_MTA THEN
1693: x_err_num := -1;
1694: x_err_code := 'Error inserting into MTL Transaction Accounts';
1695: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1696: WHEN FAILED_INSERTING_RESULT_LOT THEN
1697: x_err_num := -1;
1698: x_err_code := 'Error inserting into WPB for Resulting Lot';
1699: x_err_msg := 'Error inserting into WPB for Resulting Lot: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 1699: x_err_msg := 'Error inserting into WPB for Resulting Lot: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

1695: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1696: WHEN FAILED_INSERTING_RESULT_LOT THEN
1697: x_err_num := -1;
1698: x_err_code := 'Error inserting into WPB for Resulting Lot';
1699: x_err_msg := 'Error inserting into WPB for Resulting Lot: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1700:
1701: WHEN INSERT_WOO_ERROR THEN
1702: x_err_num := -1;
1703: x_err_code := 'Error inserting into WOO';

Line 1704: x_err_msg := 'Error inserting into WOO: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

1700:
1701: WHEN INSERT_WOO_ERROR THEN
1702: x_err_num := -1;
1703: x_err_code := 'Error inserting into WOO';
1704: x_err_msg := 'Error inserting into WOO: CSTPSMUT.COST_MERGE_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
1705:
1706: END COST_MERGE_TXN;
1707:
1708:

Line 1920: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,

1916: /* Get the Job Charges */
1917:
1918: l_stmt_num := 70;
1919:
1920: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,
1921: p_lot_size => l_start_quantity,
1922: p_run_mode => 1, -- CHARGE
1923: p_entity_id => l_wip_entity_id,
1924: p_intraop_step => l_intraoperation_step,

Line 1950: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,

1946: /* Job Relief */
1947:
1948: l_stmt_num := 75;
1949:
1950: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,
1951: p_lot_size => l_start_quantity,
1952: p_run_mode => 2, -- SCRAP
1953: p_entity_id => l_wip_entity_id,
1954: p_intraop_step => l_intraoperation_step,

Line 1991: CSTPSMUT.INSERT_MAT_TXN_ACCT(

1987: l_stmt_num := 80;
1988:
1989: l_factor := (l_start_quantity - l_available_quantity)/l_available_quantity;
1990:
1991: CSTPSMUT.INSERT_MAT_TXN_ACCT(
1992: l_transaction_date,
1993: l_min_acct_unit,
1994: l_ext_prec,
1995: l_transaction_type,

Line 2031: CSTPSMUT.INSERT_WIP_TXN_ACCT(

2027: /* Insert into MTA */
2028:
2029: l_stmt_num := 100;
2030:
2031: CSTPSMUT.INSERT_WIP_TXN_ACCT(
2032: l_transaction_date,
2033: l_min_acct_unit,
2034: l_ext_prec,
2035: p_transaction_id,

Line 2066: CSTPSMUT.INSERT_WIP_TXN(

2062: /* Insert Transaction into WT */
2063:
2064: l_stmt_num := 110;
2065:
2066: CSTPSMUT.INSERT_WIP_TXN(
2067: l_transaction_date,
2068: p_transaction_id,
2069: l_wip_transaction_id,
2070: l_acct_period_id,

Line 2093: CSTPSMUT.BONUS_MAT_TXN_ACCT(

2089: /* Insert credit into Bonus Account */
2090:
2091: l_stmt_num := 120;
2092:
2093: CSTPSMUT.BONUS_MAT_TXN_ACCT(
2094: l_transaction_date,
2095: l_ext_prec,
2096: l_min_acct_unit,
2097: l_transaction_type,

Line 2127: CSTPSMUT.BONUS_WIP_TXN_ACCT(

2123: /* Insert credit into Bonus Account */
2124:
2125: l_stmt_num := 130;
2126:
2127: CSTPSMUT.BONUS_WIP_TXN_ACCT(
2128: l_transaction_date,
2129: l_ext_prec,
2130: l_min_acct_unit,
2131: p_transaction_id,

Line 2157: CSTPSMUT.BALANCE_ACCOUNTING(p_mmt_transaction_id,

2153: /* Make sure the Debit/Credit for Representative Lot and Resulting Lots
2154: are balanced */
2155:
2156: l_stmt_num := 140;
2157: CSTPSMUT.BALANCE_ACCOUNTING(p_mmt_transaction_id,
2158: l_wip_transaction_id,
2159: l_transaction_type,
2160: x_err_msg,
2161: x_err_code,

Line 2170: CSTPSMUT.RESULT_LOT(

2166:
2167: /* Update WPB of Representative Lot */
2168:
2169: l_stmt_num := 150;
2170: CSTPSMUT.RESULT_LOT(
2171: p_mmt_transaction_id,
2172: l_wip_transaction_id,
2173: l_wip_entity_id,
2174: l_acct_period_id,

Line 2229: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2225:
2226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2227: x_err_num := -1;
2228: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
2229: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2230: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2231: WHEN GET_JOB_VALUE_FAILURE THEN
2232: x_err_num := -1;
2233: x_err_code := 'Error getting Job Charges/Scrap';

Line 2234: x_err_msg := 'Error getting Job Charges/Scrap: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2230: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2231: WHEN GET_JOB_VALUE_FAILURE THEN
2232: x_err_num := -1;
2233: x_err_code := 'Error getting Job Charges/Scrap';
2234: x_err_msg := 'Error getting Job Charges/Scrap: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2235: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2236: WHEN FAILED_INSERTING_START_LOT THEN
2237: x_err_num := -1;
2238: x_err_code := 'Error Inserting WPB Information for Starting Lot';

Line 2239: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2235: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2236: WHEN FAILED_INSERTING_START_LOT THEN
2237: x_err_num := -1;
2238: x_err_code := 'Error Inserting WPB Information for Starting Lot';
2239: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2240: WHEN FAILED_BALANCING_ACCT THEN
2241: x_err_num := -1;
2242: x_err_code := 'Error Balancing Accounts';
2243: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2243: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2239: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2240: WHEN FAILED_BALANCING_ACCT THEN
2241: x_err_num := -1;
2242: x_err_code := 'Error Balancing Accounts';
2243: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2244: WHEN FAILED_INSERTING_WT THEN
2245: x_err_num := -1;
2246: x_err_code := 'Error inserting into Wip Transactions';
2247: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2247: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2243: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2244: WHEN FAILED_INSERTING_WT THEN
2245: x_err_num := -1;
2246: x_err_code := 'Error inserting into Wip Transactions';
2247: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2248: WHEN FAILED_INSERTING_WTA THEN
2249: x_err_num := -1;
2250: x_err_code := 'Error inserting into Wip Transaction Accounts';
2251: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2251: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2247: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2248: WHEN FAILED_INSERTING_WTA THEN
2249: x_err_num := -1;
2250: x_err_code := 'Error inserting into Wip Transaction Accounts';
2251: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2252: WHEN FAILED_INSERTING_MTA THEN
2253: x_err_num := -1;
2254: x_err_code := 'Error inserting into MTL Transaction Accounts';
2255: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2255: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2251: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2252: WHEN FAILED_INSERTING_MTA THEN
2253: x_err_num := -1;
2254: x_err_code := 'Error inserting into MTL Transaction Accounts';
2255: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2256: WHEN FAILED_INSERTING_BONUS_MTA THEN
2257: x_err_num := -1;
2258: x_err_code := 'Error inserting into MTL Bonus Accounts';
2259: x_err_msg := 'Error inserting into MTL Bonus Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2259: x_err_msg := 'Error inserting into MTL Bonus Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2255: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2256: WHEN FAILED_INSERTING_BONUS_MTA THEN
2257: x_err_num := -1;
2258: x_err_code := 'Error inserting into MTL Bonus Accounts';
2259: x_err_msg := 'Error inserting into MTL Bonus Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2260: WHEN FAILED_INSERTING_BONUS_WTA THEN
2261: x_err_num := -1;
2262: x_err_code := 'Error inserting into WIP Bonus Accounts';
2263: x_err_msg := 'Error inserting into WIP Bonus Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2263: x_err_msg := 'Error inserting into WIP Bonus Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2259: x_err_msg := 'Error inserting into MTL Bonus Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2260: WHEN FAILED_INSERTING_BONUS_WTA THEN
2261: x_err_num := -1;
2262: x_err_code := 'Error inserting into WIP Bonus Accounts';
2263: x_err_msg := 'Error inserting into WIP Bonus Accounts: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2264:
2265: WHEN FAILED_INSERTING_RESULT_LOT THEN
2266: x_err_num := -1;
2267: x_err_code := 'Error inserting into WPB for Resulting Lot';

Line 2268: x_err_msg := 'Error inserting into WPB for Resulting Lot: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2264:
2265: WHEN FAILED_INSERTING_RESULT_LOT THEN
2266: x_err_num := -1;
2267: x_err_code := 'Error inserting into WPB for Resulting Lot';
2268: x_err_msg := 'Error inserting into WPB for Resulting Lot: CSTPSMUT.COST_UPDATE_QTY_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2269:
2270: END COST_UPDATE_QTY_TXN;
2271:
2272:

Line 2381: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_BONUS_TXN <<<');

2377: BEGIN
2378: /* Check API Compatibility */
2379: l_stmt_num := 10;
2380: IF (l_debug_flag = 'Y') THEN
2381: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_BONUS_TXN <<<');
2382: END IF;
2383:
2384: IF NOT FND_API.COMPATIBLE_API_CALL (
2385: l_api_version,

Line 2505: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,

2501: /* Get the Job Charges */
2502:
2503: l_stmt_num := 60;
2504:
2505: CSTPSMUT.GET_JOB_VALUE ( p_api_version => 1.0,
2506: p_lot_size => l_start_quantity,
2507: p_run_mode => 1, -- CHARGE
2508: p_entity_id => l_wip_entity_id,
2509: p_intraop_step => l_intraoperation_step,

Line 2533: CSTPSMUT.INSERT_MAT_TXN_ACCT(

2529: END IF;
2530:
2531: l_stmt_num := 70;
2532:
2533: CSTPSMUT.INSERT_MAT_TXN_ACCT(
2534: l_transaction_date,
2535: l_min_acct_unit,
2536: l_ext_prec,
2537: l_transaction_type,

Line 2575: CSTPSMUT.INSERT_WIP_TXN_ACCT(

2571: /* Insert into MTA */
2572:
2573: l_stmt_num := 90;
2574:
2575: CSTPSMUT.INSERT_WIP_TXN_ACCT(
2576: l_transaction_date,
2577: l_min_acct_unit,
2578: l_ext_prec,
2579: p_transaction_id,

Line 2609: CSTPSMUT.INSERT_WIP_TXN(

2605:
2606: /* Insert Transaction into WT */
2607:
2608: l_stmt_num := 100;
2609: CSTPSMUT.INSERT_WIP_TXN(
2610: l_transaction_date,
2611: p_transaction_id,
2612: l_wip_transaction_id,
2613: l_acct_period_id,

Line 2636: CSTPSMUT.BONUS_MAT_TXN_ACCT(

2632: /* Insert Credit Information */
2633:
2634: l_stmt_num := 110;
2635:
2636: CSTPSMUT.BONUS_MAT_TXN_ACCT(
2637: l_transaction_date,
2638: l_ext_prec,
2639: l_min_acct_unit,
2640: l_transaction_type,

Line 2672: CSTPSMUT.BONUS_WIP_TXN_ACCT(

2668:
2669:
2670: l_stmt_num := 120;
2671:
2672: CSTPSMUT.BONUS_WIP_TXN_ACCT(
2673: l_transaction_date,
2674: l_ext_prec,
2675: l_min_acct_unit,
2676: p_transaction_id,

Line 2705: CSTPSMUT.BALANCE_ACCOUNTING(p_mmt_transaction_id,

2701: /* Make sure the Debit/Credit for Representative Lot and Resulting Lots
2702: are balanced */
2703:
2704: l_stmt_num := 130;
2705: CSTPSMUT.BALANCE_ACCOUNTING(p_mmt_transaction_id,
2706: l_wip_transaction_id,
2707: l_transaction_type,
2708: x_err_msg,
2709: x_err_code,

Line 2718: CSTPSMUT.RESULT_LOT(

2714:
2715: /* Update WPB of Representative Lot */
2716:
2717: l_stmt_num := 140;
2718: CSTPSMUT.RESULT_LOT(
2719: p_mmt_transaction_id,
2720: l_wip_transaction_id,
2721: l_wip_entity_id,
2722: l_acct_period_id,

Line 2787: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_BONUS_TXN >>>');

2783: END IF;
2784: END IF;
2785:
2786: IF (l_debug_flag = 'Y') THEN
2787: fnd_file.put_line(fnd_file.log, 'CSTPSMUT.COST_BONUS_TXN >>>');
2788: END IF;
2789:
2790: EXCEPTION
2791:

Line 2795: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2791:
2792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2793: x_err_num := -1;
2794: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
2795: x_err_msg := 'Inconsistent API Version: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2796: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2797: WHEN GET_JOB_VALUE_FAILURE THEN
2798: x_err_num := -1;
2799: x_err_code := 'Error getting Job Charges/Scrap';

Line 2800: x_err_msg := 'Error getting Job Charges/Scrap: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2796: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2797: WHEN GET_JOB_VALUE_FAILURE THEN
2798: x_err_num := -1;
2799: x_err_code := 'Error getting Job Charges/Scrap';
2800: x_err_msg := 'Error getting Job Charges/Scrap: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2801: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2802: WHEN FAILED_INSERTING_START_LOT THEN
2803: x_err_num := -1;
2804: x_err_code := 'Error Inserting WPB Information for Starting Lot';

Line 2805: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2801: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
2802: WHEN FAILED_INSERTING_START_LOT THEN
2803: x_err_num := -1;
2804: x_err_code := 'Error Inserting WPB Information for Starting Lot';
2805: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2806: WHEN FAILED_BALANCING_ACCT THEN
2807: x_err_num := -1;
2808: x_err_code := 'Error Balancing Accounts';
2809: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2809: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2805: x_err_msg := 'Error Inserting WPB Information for Starting Lot: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2806: WHEN FAILED_BALANCING_ACCT THEN
2807: x_err_num := -1;
2808: x_err_code := 'Error Balancing Accounts';
2809: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2810: WHEN FAILED_INSERTING_WT THEN
2811: x_err_num := -1;
2812: x_err_code := 'Error inserting into Wip Transactions';
2813: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2813: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2809: x_err_msg := 'Error Balancing Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2810: WHEN FAILED_INSERTING_WT THEN
2811: x_err_num := -1;
2812: x_err_code := 'Error inserting into Wip Transactions';
2813: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2814: WHEN FAILED_INSERTING_WTA THEN
2815: x_err_num := -1;
2816: x_err_code := 'Error inserting into Wip Transaction Accounts';
2817: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2817: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2813: x_err_msg := 'Error inserting into Wip Transactions: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2814: WHEN FAILED_INSERTING_WTA THEN
2815: x_err_num := -1;
2816: x_err_code := 'Error inserting into Wip Transaction Accounts';
2817: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2818: WHEN FAILED_INSERTING_MTA THEN
2819: x_err_num := -1;
2820: x_err_code := 'Error inserting into MTL Transaction Accounts';
2821: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2821: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2817: x_err_msg := 'Error inserting into Wip Transaction Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2818: WHEN FAILED_INSERTING_MTA THEN
2819: x_err_num := -1;
2820: x_err_code := 'Error inserting into MTL Transaction Accounts';
2821: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2822: WHEN FAILED_INSERTING_BONUS_MTA THEN
2823: x_err_num := -1;
2824: x_err_code := 'Error inserting into MTL Bonus Accounts';
2825: x_err_msg := 'Error inserting into MTL Bonus Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2825: x_err_msg := 'Error inserting into MTL Bonus Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2821: x_err_msg := 'Error inserting into MTL Transaction Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2822: WHEN FAILED_INSERTING_BONUS_MTA THEN
2823: x_err_num := -1;
2824: x_err_code := 'Error inserting into MTL Bonus Accounts';
2825: x_err_msg := 'Error inserting into MTL Bonus Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2826: WHEN FAILED_INSERTING_BONUS_WTA THEN
2827: x_err_num := -1;
2828: x_err_code := 'Error inserting into WIP Bonus Accounts';
2829: x_err_msg := 'Error inserting into WIP Bonus Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2829: x_err_msg := 'Error inserting into WIP Bonus Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2825: x_err_msg := 'Error inserting into MTL Bonus Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2826: WHEN FAILED_INSERTING_BONUS_WTA THEN
2827: x_err_num := -1;
2828: x_err_code := 'Error inserting into WIP Bonus Accounts';
2829: x_err_msg := 'Error inserting into WIP Bonus Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2830: WHEN FAILED_INSERTING_RESULT_LOT THEN
2831: x_err_num := -1;
2832: x_err_code := 'Error inserting into WPB for Resulting Lot';
2833: x_err_msg := 'Error inserting into WPB for Resulting Lot: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2833: x_err_msg := 'Error inserting into WPB for Resulting Lot: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2829: x_err_msg := 'Error inserting into WIP Bonus Accounts: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2830: WHEN FAILED_INSERTING_RESULT_LOT THEN
2831: x_err_num := -1;
2832: x_err_code := 'Error inserting into WPB for Resulting Lot';
2833: x_err_msg := 'Error inserting into WPB for Resulting Lot: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2834:
2835: WHEN INSERT_WOO_ERROR THEN
2836: x_err_num := -1;
2837: x_err_code := 'Error inserting into WOO';

Line 2838: x_err_msg := 'Error inserting into WOO: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2834:
2835: WHEN INSERT_WOO_ERROR THEN
2836: x_err_num := -1;
2837: x_err_code := 'Error inserting into WOO';
2838: x_err_msg := 'Error inserting into WOO: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2839:
2840: WHEN OTHERS THEN
2841: x_err_code := 'Unexpected Error';
2842: x_err_msg := 'CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

Line 2842: x_err_msg := 'CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);

2838: x_err_msg := 'Error inserting into WOO: CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2839:
2840: WHEN OTHERS THEN
2841: x_err_code := 'Unexpected Error';
2842: x_err_msg := 'CSTPSMUT.COST_BONUS_TXN('||to_char(l_stmt_num)||'):' || x_err_msg || substr(SQLERRM, 1, 200);
2843:
2844: END COST_BONUS_TXN;
2845:
2846:

Line 2866: x_err_msg := 'Failed Getting Wip Transaction ID: CSTPSMUT.GET_WIP_TXN_ID: ' || to_char(l_stmt_num) || '): ' || x_err_msg ;

2862: WHEN others THEN
2863: ROLLBACK;
2864: x_err_num := sqlcode;
2865: x_err_code := 'Failed Getting Wip Transaction ID';
2866: x_err_msg := 'Failed Getting Wip Transaction ID: CSTPSMUT.GET_WIP_TXN_ID: ' || to_char(l_stmt_num) || '): ' || x_err_msg ;
2867:
2868: END GET_WIP_TXN_ID;
2869:
2870:

Line 3297: FND_FILE.put_line(fnd_file.log,'CSTPSMUT.GET_JOB_VALUE <<<');

3293:
3294: END IF;
3295:
3296: IF(l_debug_flag = 'Y') THEN
3297: FND_FILE.put_line(fnd_file.log,'CSTPSMUT.GET_JOB_VALUE <<<');
3298: FND_FILE.put_line(fnd_file.log,'Job: '||to_char(p_entity_id));
3299: FND_FILE.put_line(fnd_file.log,'Run Mode(1-Charge, 2-Scrap): ' ||to_char(p_run_mode));
3300: FND_FILE.put_line(fnd_file.log,'Transaction Type: ' ||to_char(p_txn_type));
3301: FND_FILE.put_line(fnd_file.log,'PL MTL COST: '||to_char(x_pl_mtl_cost));

Line 3309: FND_FILE.put_line(fnd_file.log,'CSTPSMUT.GET_JOB_VALUE >>>');

3305: FND_FILE.put_line(fnd_file.log,'PL OVH COST: '||to_char(x_pl_ovh_cost));
3306: FND_FILE.put_line(FND_FILE.log,'TL RES COST: '||to_char(x_tl_res_cost));
3307: FND_FILE.put_line(FND_FILE.log,'TL OSP COST: '||to_char(x_tl_osp_cost));
3308: FND_FILE.put_line(FND_FILE.log,'TL OVH COST: '||to_char(x_tl_ovh_cost));
3309: FND_FILE.put_line(fnd_file.log,'CSTPSMUT.GET_JOB_VALUE >>>');
3310: END IF;
3311:
3312: EXCEPTION
3313: when others then

Line 3316: x_err_msg := 'CSTPSMUT: GET_JOB_VALUE- '||l_stmt_num||'.'||SQLERRM;

3312: EXCEPTION
3313: when others then
3314: x_err_code:= null;
3315: x_err_num := SQLCODE;
3316: x_err_msg := 'CSTPSMUT: GET_JOB_VALUE- '||l_stmt_num||'.'||SQLERRM;
3317:
3318: END GET_JOB_VALUE;
3319:
3320:

Line 3387: FND_FILE.put_line(fnd_file.log,'CSTPSMUT.UPDATE_JOB_QUANTITY <<<');

3383:
3384: BEGIN
3385: l_stmt_num := 10;
3386: IF(l_debug_flag = 'Y') THEN
3387: FND_FILE.put_line(fnd_file.log,'CSTPSMUT.UPDATE_JOB_QUANTITY <<<');
3388: END IF;
3389:
3390: IF NOT FND_API.COMPATIBLE_API_CALL (
3391: l_api_version,

Line 3995: x_err_msg := 'CSTPSMUT.UPDATE_JOB_QUANTITY('||to_char(l_stmt_num)||'):'|| x_err_msg || substr(SQLERRM, 1, 200);

3991: EXCEPTION
3992: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3993: x_err_num := -1;
3994: x_err_code := 'Inconsistent API Version';--FND_API.G_RET_SYS_ERROR;
3995: x_err_msg := 'CSTPSMUT.UPDATE_JOB_QUANTITY('||to_char(l_stmt_num)||'):'|| x_err_msg || substr(SQLERRM, 1, 200);
3996: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
3997: WHEN OTHERS THEN
3998: x_err_num := -1;
3999: x_err_code := 'Error Updating Quantity';

Line 4000: x_err_msg := 'CSTPSMUT.UPDATE_JOB_QUANTITY('||to_char(l_stmt_num)||'): ' || substr(SQLERRM, 1, 200);

3996: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
3997: WHEN OTHERS THEN
3998: x_err_num := -1;
3999: x_err_code := 'Error Updating Quantity';
4000: x_err_msg := 'CSTPSMUT.UPDATE_JOB_QUANTITY('||to_char(l_stmt_num)||'): ' || substr(SQLERRM, 1, 200);
4001: FND_FILE.PUT_LINE(FND_FILE.LOG, x_err_msg);
4002: END update_job_quantity;
4003:
4004: -------------------------------------------------------------------------

Line 4206: p_err_msg := 'CSTPSMUT.BALANCE_ACCOUNTING: ' || to_char (l_stmt_num) || ');';

4202: EXCEPTION
4203: when others then
4204: -- rollback;
4205: p_err_num := SQLCODE;
4206: p_err_msg := 'CSTPSMUT.BALANCE_ACCOUNTING: ' || to_char (l_stmt_num) || ');';
4207: p_err_code := null;
4208: END BALANCE_ACCOUNTING; -- BALANCE_MTA
4209:
4210: PROCEDURE INSERT_MAT_TXN( p_date IN DATE,

Line 4292: p_err_msg := 'CSTPSMUT.INSERT_MAT_TXN: '

4288:
4289: EXCEPTION
4290: when others then
4291: p_err_num := SQLCODE;
4292: p_err_msg := 'CSTPSMUT.INSERT_MAT_TXN: '
4293: || to_char (l_stmt_num) || ');';
4294: p_err_code := null;
4295: END INSERT_MAT_TXN;
4296:

Line 4376: p_err_msg := 'CSTPSMUT.INSERT_WIP_TXN: (' || to_char (l_stmt_num) || ');';

4372: /* Changes for Bug #1877576. Using savepoint to prevent "Fetch out of
4373: sequence error */
4374: ROLLBACK TO insert_wip_txn;
4375: p_err_num := SQLCODE;
4376: p_err_msg := 'CSTPSMUT.INSERT_WIP_TXN: (' || to_char (l_stmt_num) || ');';
4377: p_err_code := null;
4378: END INSERT_WIP_TXN;
4379:
4380: PROCEDURE INSERT_MTA(

Line 4490: p_err_msg := 'CSTPSMUT.INSERT_MAT: ' || to_char (l_stmt_num) || ');';

4486:
4487: EXCEPTION
4488: WHEN OTHERS THEN
4489: p_err_num := SQLCODE;
4490: p_err_msg := 'CSTPSMUT.INSERT_MAT: ' || to_char (l_stmt_num) || ');';
4491: p_err_code := null;
4492:
4493: END INSERT_MTA;
4494:

Line 4566: p_err_msg := 'CSTPSMUT.INSERT_MAT_TXN_ACCT: ' || to_char (l_stmt_num) || ');';

4562: EXCEPTION
4563: WHEN OTHERS THEN
4564: --rollback;
4565: p_err_num := SQLCODE;
4566: p_err_msg := 'CSTPSMUT.INSERT_MAT_TXN_ACCT: ' || to_char (l_stmt_num) || ');';
4567: p_err_code := null;
4568:
4569: END INSERT_MAT_TXN_ACCT;
4570:

Line 4605: FND_FILE.put_line(FND_FILE.LOG,'CSTPSMUT.INSERT_WIP_TXN_ACCT: wip_txn_id: '|| p_wip_txn_id);

4601: p_err_num := 0;
4602: l_stmt_num := 10;
4603:
4604: IF (p_debug = 'Y') THEN
4605: FND_FILE.put_line(FND_FILE.LOG,'CSTPSMUT.INSERT_WIP_TXN_ACCT: wip_txn_id: '|| p_wip_txn_id);
4606: END IF;
4607:
4608: FOR c1 IN c_elements LOOP
4609: INSERT INTO WIP_TRANSACTION_ACCOUNTS

Line 4668: p_err_msg := 'CSTPSMUT.INSERT_WIP_TXN_ACCT: '

4664: EXCEPTION
4665: when others then
4666: --rollback;
4667: p_err_num := SQLCODE;
4668: p_err_msg := 'CSTPSMUT.INSERT_WIP_TXN_ACCT: '
4669: || to_char (l_stmt_num)
4670: || '); ,'
4671: || to_char(p_err_num);
4672: p_err_code := null;

Line 4745: p_err_msg := 'CSTPSMUT.BONUS_MAT_TXN_ACCT: ' || to_char (l_stmt_num) || ');';

4741: EXCEPTION
4742: when others then
4743: --rollback;
4744: p_err_num := SQLCODE;
4745: p_err_msg := 'CSTPSMUT.BONUS_MAT_TXN_ACCT: ' || to_char (l_stmt_num) || ');';
4746: p_err_code := null;
4747:
4748: END BONUS_MAT_TXN_ACCT;
4749:

Line 4913: p_err_msg := 'CSTPSMUT: START_LOT- '||l_stmt_num||'.'||SQLERRM;

4909: when others then
4910: --rollback;
4911: p_err_code:= null;
4912: p_err_num := SQLCODE;
4913: p_err_msg := 'CSTPSMUT: START_LOT- '||l_stmt_num||'.'||SQLERRM;
4914:
4915:
4916: END START_LOT;
4917: /*------------------------------------------------------------------

Line 5037: p_err_msg := 'CSTPSMUT: RESULT_LOT- '||l_stmt_num||'.'||SQLERRM;

5033: when others then
5034: --rollback;
5035: p_err_code:= null;
5036: p_err_num := SQLCODE;
5037: p_err_msg := 'CSTPSMUT: RESULT_LOT- '||l_stmt_num||'.'||SQLERRM;
5038:
5039:
5040: END RESULT_LOT;
5041:

Line 5042: END CSTPSMUT;

5038:
5039:
5040: END RESULT_LOT;
5041:
5042: END CSTPSMUT;