[Home] [Help]
1: Package Body CSD_UPDATE_PROGRAMS_PVT as
2: /* $Header: csddrclb.pls 120.12.12010000.6 2008/12/05 01:55:12 takwong ship $ */
3:
4: /* --------------------------------------*/
5: /* Define global variables */
4: /* --------------------------------------*/
5: /* Define global variables */
6: /* --------------------------------------*/
7:
8: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_UPDATE_PROGRAMS_PVT';
9: G_FILE_NAME CONSTANT VARCHAR2(30) := 'csddrclb.pls';
10:
11: -- Global variable for storing the debug level
12: G_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
235: /* Change Hist : */
236: /* 09/20/03 vlakaman Initial Creation. */
237: /*-------------------------------------------------------------------------------------*/
238:
239: Function INIT_ACTIVITY_REC RETURN csd_update_programs_pvt.activity_rec_type IS
240: l_activity_rec activity_rec_type;
241: BEGIN
242: -- Initialize all the in the activity record
243: l_activity_rec.REPAIR_HISTORY_ID := NULL;
347: l_from_uom_code mtl_units_of_measure.uom_code%type;
348:
349: -- Variables used in FND Log
350: l_error_level number := FND_LOG.LEVEL_ERROR;
351: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.convert_to_ro_uom';
352:
353: BEGIN
354: -- Standard Start of API savepoint
355: SAVEPOINT CONV_TO_RO_UOM;
484: l_rep_hist_id NUMBER;
485:
486: -- Variable used in FND log
487: l_error_level number := FND_LOG.LEVEL_ERROR;
488: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.log_activity';
489:
490: BEGIN
491: -- Standard Start of API savepoint
492: SAVEPOINT LOG_ACTIVITY;
713: l_activity_rec activity_rec_type;
714:
715: -- Variable used in FND log
716: l_error_level number := FND_LOG.LEVEL_ERROR;
717: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.job_completion_update';
718:
719: -- User defined exception
720: SKIP_RECORD EXCEPTION;
721:
1544: l_activity_rec activity_rec_type;
1545:
1546: -- Variable used in FND log
1547: l_error_level number := FND_LOG.LEVEL_ERROR;
1548: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.job_creation_update';
1549:
1550: -- This cursor gets all the records in csd_repair_job_xref
1551: -- that does not have wip_entity_id.
1552: --Cursor split into two to remove OR condition
1863: l_api_version CONSTANT NUMBER := 1.0;
1864:
1865: -- Variable used in FND log
1866: l_error_level number := FND_LOG.LEVEL_ERROR;
1867: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.receipts_update';
1868:
1869: BEGIN
1870: -- Standard Start of API savepoint
1871: SAVEPOINT RECEIPTS_UPDATE;
2106: l_TO_Date Date;
2107:
2108: -- Variables for FND Log
2109: l_error_level number := FND_LOG.LEVEL_ERROR;
2110: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.rma_rcv_update';
2111:
2112: -- User defined exceptions
2113: SKIP_RECORD EXCEPTION;
2114:
3115: l_activity_rec activity_rec_type;
3116:
3117: -- Variable for the FND log file
3118: l_error_level number := FND_LOG.LEVEL_ERROR;
3119: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.io_rcv_update';
3120:
3121: -- User defined exception
3122: SKIP_RECORD EXCEPTION;
3123: PROCESS_ERROR EXCEPTION;
4529: l_activity_rec activity_rec_type;
4530:
4531: -- Variable for the FND log file
4532: l_error_level number := FND_LOG.LEVEL_ERROR;
4533: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.io_rcv_update_move_out';
4534:
4535: -- User defined exception
4536: SKIP_RECORD EXCEPTION;
4537: PROCESS_ERROR EXCEPTION;
5944: l_api_version CONSTANT NUMBER := 1.0;
5945:
5946: -- Variables in FND log
5947: l_error_level number := FND_LOG.LEVEL_ERROR;
5948: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.ship_update';
5949:
5950: BEGIN
5951: -- Standard Start of API savepoint
5952: SAVEPOINT SHIP_UPDATE;
6426: l_TO_Date Date;
6427:
6428: -- Variables used for FND Log
6429: l_error_level number := FND_LOG.LEVEL_ERROR;
6430: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.so_ship_update';
6431:
6432: BEGIN
6433: -- Standard Start of API savepoint
6434: SAVEPOINT SO_SHIP_UPDATE;
7188: l_activity_rec activity_rec_type;
7189:
7190: -- Variables for the FND Log
7191: l_error_level number := FND_LOG.LEVEL_ERROR;
7192: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.io_ship_update';
7193:
7194: -- User defined exception
7195: PROCESS_ERROR EXCEPTION;
7196: SKIP_RECORD EXCEPTION;
8531: l_dummy varchar2(30);
8532:
8533: -- Variables used for FND log
8534: l_error_level number := FND_LOG.LEVEL_ERROR;
8535: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.wip_update';
8536:
8537: BEGIN
8538: -- Standard Start of API savepoint
8539: SAVEPOINT WIP_UPDATE;
8732: l_msg_data VARCHAR2(20000);
8733:
8734: -- Variables for FND Log
8735: l_error_level number := FND_LOG.LEVEL_ERROR;
8736: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.receipts_update_conc_prog';
8737:
8738: BEGIN
8739: -- Initialize API return status to success
8740: l_return_status := FND_API.G_RET_STS_SUCCESS;
8835: l_error_status CONSTANT VARCHAR2(1) := '2';
8836:
8837: -- Variables for FND log
8838: l_error_level number := FND_LOG.LEVEL_ERROR;
8839: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.wip_update_conc_prog';
8840:
8841: BEGIN
8842: -- Initialize API return status to success
8843: l_return_status := FND_API.G_RET_STS_SUCCESS;
8939: l_error_status CONSTANT VARCHAR2(1) := '2';
8940:
8941: -- Variables for the FND Log
8942: l_error_level number := FND_LOG.LEVEL_ERROR;
8943: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.ship_update_conc_prog';
8944:
8945: Begin
8946: -- Initialize API return status to success
8947: l_return_status := FND_API.G_RET_STS_SUCCESS;
9106: l_task_status VARCHAR2(240);
9107:
9108: -- Variables for FND Log
9109: l_error_level number := FND_LOG.LEVEL_ERROR;
9110: l_mod_name varchar2(2000) := 'csd.plsql.csd_update_programs_pvt.task_update_conc_prog';
9111:
9112: BEGIN
9113:
9114: -- Initialize API return status to success
9551: IF ( l_line_category_code = 'RETURN') THEN
9552:
9553: l_module_name := 'LOGISTICS_RECEIPTS_UPDATE';
9554:
9555: CSD_UPDATE_PROGRAMS_PVT.RECEIPTS_UPDATE
9556: ( p_api_version => 1.0,
9557: p_commit => 'T',
9558: p_init_msg_list => 'T',
9559: p_validation_level => CSD_PROCESS_UTIL.G_VALID_LEVEL_FULL,
9573: ELSIF ( l_line_category_code = 'ORDER') THEN
9574:
9575: l_module_name := 'LOGISTICS_SHIP_UPDATE';
9576:
9577: CSD_UPDATE_PROGRAMS_PVT.SHIP_UPDATE
9578: ( p_api_version => 1.0,
9579: p_commit => 'T',
9580: p_init_msg_list => 'T',
9581: p_validation_level => CSD_PROCESS_UTIL.G_VALID_LEVEL_FULL,
9616:
9617:
9618: EXCEPTION
9619: WHEN OTHERS THEN
9620: WF_CORE.CONTEXT('CSD_UPDATE_PROGRAMS_PVT','UPDATE_LOGISTICS_WF',itemtype,
9621: itemkey,to_char(actid),funcmode);
9622: raise;
9623: END;
9624:
9621: itemkey,to_char(actid),funcmode);
9622: raise;
9623: END;
9624:
9625: END CSD_UPDATE_PROGRAMS_PVT;