[Home] [Help]
1: PACKAGE BODY CSD_HV_WIP_JOB_PVT as
2: /* $Header: csdvhvjb.pls 120.30.12010000.3 2008/10/15 20:37:33 swai ship $ */
3: -- Start of Comments
4: -- Package name : CSD_HV_WIP_JOB_PVT
5: -- Purpose : This package is used for High Volume Repair Execution flow
1: PACKAGE BODY CSD_HV_WIP_JOB_PVT as
2: /* $Header: csdvhvjb.pls 120.30.12010000.3 2008/10/15 20:37:33 swai ship $ */
3: -- Start of Comments
4: -- Package name : CSD_HV_WIP_JOB_PVT
5: -- Purpose : This package is used for High Volume Repair Execution flow
6: --
7: --
8: -- History : 05/01/2005, Created by Shiv Ragunathan
12: -- End of Comments
13:
14:
15: -- Define Global Variable --
16: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_HV_WIP_JOB_PVT';
17:
18: -- swai: bug 6995498/7182047 wrapper function to get the default item revision
19: -- Depending on the transaction type, check the corresponding profile option
20: -- and return null if the profile is No.
727:
728:
729: -- constant used for FND_LOG debug messages
730:
731: lc_mod_name CONSTANT VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.insert_transactions_header.';
732:
733:
734: -- Constants Used for Inserting into mtl_transactions_interface,
735:
867:
868:
869: -- constant used for FND_LOG debug messages
870:
871: lc_mod_name CONSTANT VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.update_transactions_header.';
872:
873:
874:
875:
932:
933:
934: -- constant used for FND_LOG debug messages
935:
936: lc_mod_name CONSTANT VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.insert_transaction_lots';
937:
938:
939: l_creation_date DATE;
940: l_last_update_date DATE;
1021:
1022:
1023: -- constant used for FND_LOG debug messages
1024:
1025: lc_mod_name CONSTANT VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.insert_upd_serial_numbers.';
1026:
1027:
1028: l_creation_date DATE;
1029: l_last_update_date DATE;
1131:
1132:
1133: -- constant used for FND_LOG debug messages
1134:
1135: lc_mod_name CONSTANT VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.insert_transactions_header.';
1136:
1137:
1138: -- Constants Used for Inserting into mtl_transactions_interface,
1139:
1268:
1269:
1270: -- constant used for FND_LOG debug messages
1271:
1272: lc_mod_name CONSTANT VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.insert_wip_move_txn';
1273:
1274:
1275: -- Indicates that the process Phase is Validation
1276: lc_validation_phase CONSTANT NUMBER := 1;
1410: lc_api_name CONSTANT VARCHAR2(30) := 'PROCESS_JOB_COMP_TXN';
1411: lc_api_version_number CONSTANT NUMBER := 1.0;
1412:
1413: -- constants used for FND_LOG debug messages
1414: lc_mod_name VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.process_job_comp_txn';
1415:
1416: l_need_details_flag VARCHAR2(1) := 'F';
1417: l_transaction_header_id NUMBER;
1418:
1575: lc_api_name CONSTANT VARCHAR2(30) := 'INSERT_JOB_COMP_TXN';
1576: lc_api_version_number CONSTANT NUMBER := 1.0;
1577:
1578: -- constants used for FND_LOG debug messages
1579: lc_mod_name VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.insert_job_comp_txn';
1580:
1581: lc_revision_controlled CONSTANT NUMBER := 2;
1582: lc_full_lot_control CONSTANT NUMBER := 2;
1583: lc_predefined_serial_control CONSTANT NUMBER := 2;
2001: lc_api_name CONSTANT VARCHAR2(30) := 'PROCESS_MTI_TRANSACTIONS';
2002: lc_api_version_number CONSTANT NUMBER := 1.0;
2003:
2004: -- constants used for FND_LOG debug messages
2005: lc_mod_name VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.process_mti_transactions';
2006:
2007: lc_MTI_source_table CONSTANT NUMBER := 1;
2008:
2009: l_table NUMBER;
2135: lc_api_version_number CONSTANT NUMBER := 1.0;
2136:
2137: -- constants used for FND_LOG debug messages
2138:
2139: lc_mod_name VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.process_oper_comp_txn';
2140:
2141: -- Indicates that the process Phase is Validation
2142: -- lc_validation_phase CONSTANT NUMBER := 1;
2143:
2484: lc_api_version_number CONSTANT NUMBER := 1.0;
2485:
2486: -- constants used for FND_LOG debug messages
2487:
2488: lc_mod_name VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.process_issue_mtl_txn';
2489:
2490:
2491: lc_revision_controlled CONSTANT NUMBER := 2;
2492: lc_full_lot_control CONSTANT NUMBER := 2;
3340: lc_api_name CONSTANT VARCHAR2(30) := 'PROCESS_ISSUE_MTL_TXNS_LOT_SRL';
3341: lc_api_version_number CONSTANT NUMBER := 1.0;
3342:
3343: -- constants used for FND_LOG debug messages
3344: lc_mod_name VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.process_issue_mtl_txns_lot_srl';
3345:
3346: BEGIN
3347: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3348: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3488: lc_api_name CONSTANT VARCHAR2(30) := 'UPDATE_MTL_TXNS_LOT_SRL';
3489: lc_api_version_number CONSTANT NUMBER := 1.0;
3490:
3491: -- constants used for FND_LOG debug messages
3492: lc_mod_name VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.update_mtl_txns_lot_srl';
3493:
3494: lc_revision_controlled CONSTANT NUMBER := 2;
3495: lc_full_lot_control CONSTANT NUMBER := 2;
3496: lc_predefined_serial_control CONSTANT NUMBER := 2;
3690: lc_api_version_number CONSTANT NUMBER := 1.0;
3691:
3692: -- constants used for FND_LOG debug messages
3693:
3694: lc_mod_name VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.process_transact_res_txn';
3695:
3696:
3697: -- Constants Used for Inserting into wip_job_schedule_interface,
3698: -- and details interface tables
4186: lc_api_name CONSTANT VARCHAR2(30) := 'PROCESS_SAVE_CSD_MTL_TXN_DTLS';
4187: lc_api_version_number CONSTANT NUMBER := 1.0;
4188:
4189: -- constants used for FND_LOG debug messages
4190: lc_mod_name CONSTANT VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.process_save_mtl_txn_dtls';
4191:
4192: -- Constants Used for Inserting into wip_job_schedule_interface,
4193: -- These are the values needed for WIP Mass Load to pick up the records
4194:
5441:
5442:
5443: -- COnstants used for FND_LOG debug messages
5444:
5445: lc_mod_name CONSTANT VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.create_wip_job';
5446:
5447:
5448:
5449: l_user_id NUMBER;
5456:
5457: --*****Below are the code to Default Repair Item as Material on Job**********
5458: l_default_ro_item VARCHAR2(1);
5459: -- l_wip_entity_id NUMBER;
5460: l_mtl_txn_dtls_tbl CSD_HV_WIP_JOB_PVT.MTL_TXN_DTLS_TBL_TYPE;
5461: l_op_created VARCHAR2(10);
5462: l_num_other_jobs NUMBER :=0; -- swai: bug 7477845/7483291
5463:
5464:
5770: l_mtl_txn_dtls_tbl(0).NEW_ROW := 'Y';
5771:
5772:
5773: -- call API to create Repair Actuals header
5774: CSD_HV_WIP_JOB_PVT.PROCESS_SAVE_MTL_TXN_DTLS
5775: ( p_api_version_number => 1.0,
5776: p_init_msg_list => 'T',
5777: p_commit => 'F',
5778: p_validation_level => 1,
6076: lc_service_code CONSTANT VARCHAR2(30) := 'SERVICE_CODE';
6077:
6078:
6079: -- Constants used for FND_LOG debug messages
6080: lc_mod_name CONSTANT VARCHAR2(2000) := 'csd.plsql.csd_hv_wip_job_pvt.generate_wip_jobs_from_scs';
6081:
6082: l_object_version_number NUMBER;
6083: l_user_id NUMBER;
6084: l_repair_xref_id NUMBER;
6129:
6130: --*****Below are the code to Default Repair Item as Material on Job**********
6131: l_default_ro_item VARCHAR2(1);
6132: -- l_wip_entity_id NUMBER;
6133: l_mtl_txn_dtls_tbl CSD_HV_WIP_JOB_PVT.MTL_TXN_DTLS_TBL_TYPE;
6134: l_op_created VARCHAR2(10);
6135: l_num_other_jobs NUMBER :=0; -- swai: bug 7477845/7483291
6136:
6137:
6446: l_mtl_txn_dtls_tbl(0).NEW_ROW := 'Y';
6447:
6448:
6449: -- call API to create Repair Actuals header
6450: CSD_HV_WIP_JOB_PVT.PROCESS_SAVE_MTL_TXN_DTLS
6451: ( p_api_version_number => 1.0,
6452: p_init_msg_list => 'T',
6453: p_commit => 'F',
6454: p_validation_level => 1,
6759: END generate_wip_jobs_from_scs;
6760:
6761:
6762:
6763: END CSD_HV_WIP_JOB_PVT;