CREATE OR REPLACE PACKAGE MOT_J2J_INV_PARTS_USG_CONV_PKG
AS
--/****************************************************************************************************/
--/* */
--/* Header : MOT_J2J_INV_PARTS_USAGE_CONV_PKG.sql */
--/* */
--/* Program Type: PL/SQL Package */
--/* */
--/* Creation : 28-Jul-2011 */
--/* */
--/* Author : TCS */
--/* */
--/* Description : This package is used to perform the Parts Usage Transaction for Repair Items */
--/* */
--/* DEPENDENCIES : The Following Table and Procedures are the Dependencies for this package */
--/* Table Name: */
--/* MOTC.MOTINV_ITEM_USAGE_TBL, MOTC.MOTINV_ITEM_USAGE_BAD_TBL */
--/* API's/Open Interfaces: */
--/* MTL_TRANSACTIONS_INTERFACE */
--/* Process Transaction Program */
--/* Value Sets: MOTINV_REPAIR_ORG , MOTINV_J2J_ACCOUNT_SEGMENTS */
--/* None */
--/* */
--/* Caller : Concurrent Program */
--/* */
--/* Naming Conv : P_ - Parameter variables */
--/* V_ - Global variables */
--/* L_ - local variables */
--/* */
--/* CHANGE HISTORY */
--/* ======================================================================================== */
--/* Date Version Updated By Description */
--/* ======================================================================================== */
--/* 28-Jul-2011 1.0 KNW438 Initial Creation */
--/* */
--/****************************************************************************************************/
v_login_id NUMBER := fnd_global.login_id;
v_resp_id NUMBER := fnd_global.resp_id;
v_resp_appl_id NUMBER := fnd_global.resp_appl_id;
v_request_id NUMBER := fnd_global.conc_request_id;
v_prog_id NUMBER := fnd_global.conc_program_id;
v_user_id NUMBER := fnd_global.user_id;
v_org_id NUMBER := fnd_global.org_id;
p_errbuf VARCHAR2(3000);
p_retcode NUMBER;
p_organization_id NUMBER;
v_processed_record_count NUMBER :=0;
v_errored_record_count NUMBER :=0;
v_counter NUMBER :=0;
v_error_flag VARCHAR2(1);
v_error_message VARCHAR2(2000);
v_transaction_type_id NUMBER;
v_transaction_source_id NUMBER;
v_distribution_account_id NUMBER;
-- Main Procedure
PROCEDURE main (v_errbuf OUT VARCHAR2,
v_retcode OUT NUMBER,
v_organization_id IN NUMBER,
v_distribution_account IN NUMBER
);
-- Validation and Insertion to Open Interface
PROCEDURE validate_and_insert_to_intf(v_organization_id NUMBER,
v_account_id NUMBER);
-- Launching the Process Transaction interface Program
PROCEDURE call_interface_program;
-- To Check the Import Status
PROCEDURE check_interface_rec_status;
-- To Capture the status of the records into the Staging table
PROCEDURE status_update(v_item_number IN VARCHAR2,
v_subinventory IN VARCHAR2,
v_locator1 IN VARCHAR2,
v_locator2 IN VARCHAR2,
v_locator3 IN VARCHAR2,
v_locator4 IN VARCHAR2,
v_error_message IN VARCHAR2,
v_process_flag IN VARCHAR2,
v_rowid IN ROWID);
-- To Generate the Error Record Information in the FND Output
PROCEDURE error_records_out_generate;
END MOT_J2J_INV_PARTS_USG_CONV_PKG;
/
AS
--/****************************************************************************************************/
--/* */
--/* Header : MOT_J2J_INV_PARTS_USAGE_CONV_PKG.sql */
--/* */
--/* Program Type: PL/SQL Package */
--/* */
--/* Creation : 28-Jul-2011 */
--/* */
--/* Author : TCS */
--/* */
--/* Description : This package is used to perform the Parts Usage Transaction for Repair Items */
--/* */
--/* DEPENDENCIES : The Following Table and Procedures are the Dependencies for this package */
--/* Table Name: */
--/* MOTC.MOTINV_ITEM_USAGE_TBL, MOTC.MOTINV_ITEM_USAGE_BAD_TBL */
--/* API's/Open Interfaces: */
--/* MTL_TRANSACTIONS_INTERFACE */
--/* Process Transaction Program */
--/* Value Sets: MOTINV_REPAIR_ORG , MOTINV_J2J_ACCOUNT_SEGMENTS */
--/* None */
--/* */
--/* Caller : Concurrent Program */
--/* */
--/* Naming Conv : P_ - Parameter variables */
--/* V_ - Global variables */
--/* L_ - local variables */
--/* */
--/* CHANGE HISTORY */
--/* ======================================================================================== */
--/* Date Version Updated By Description */
--/* ======================================================================================== */
--/* 28-Jul-2011 1.0 KNW438 Initial Creation */
--/* */
--/****************************************************************************************************/
v_login_id NUMBER := fnd_global.login_id;
v_resp_id NUMBER := fnd_global.resp_id;
v_resp_appl_id NUMBER := fnd_global.resp_appl_id;
v_request_id NUMBER := fnd_global.conc_request_id;
v_prog_id NUMBER := fnd_global.conc_program_id;
v_user_id NUMBER := fnd_global.user_id;
v_org_id NUMBER := fnd_global.org_id;
p_errbuf VARCHAR2(3000);
p_retcode NUMBER;
p_organization_id NUMBER;
v_processed_record_count NUMBER :=0;
v_errored_record_count NUMBER :=0;
v_counter NUMBER :=0;
v_error_flag VARCHAR2(1);
v_error_message VARCHAR2(2000);
v_transaction_type_id NUMBER;
v_transaction_source_id NUMBER;
v_distribution_account_id NUMBER;
-- Main Procedure
PROCEDURE main (v_errbuf OUT VARCHAR2,
v_retcode OUT NUMBER,
v_organization_id IN NUMBER,
v_distribution_account IN NUMBER
);
-- Validation and Insertion to Open Interface
PROCEDURE validate_and_insert_to_intf(v_organization_id NUMBER,
v_account_id NUMBER);
-- Launching the Process Transaction interface Program
PROCEDURE call_interface_program;
-- To Check the Import Status
PROCEDURE check_interface_rec_status;
-- To Capture the status of the records into the Staging table
PROCEDURE status_update(v_item_number IN VARCHAR2,
v_subinventory IN VARCHAR2,
v_locator1 IN VARCHAR2,
v_locator2 IN VARCHAR2,
v_locator3 IN VARCHAR2,
v_locator4 IN VARCHAR2,
v_error_message IN VARCHAR2,
v_process_flag IN VARCHAR2,
v_rowid IN ROWID);
-- To Generate the Error Record Information in the FND Output
PROCEDURE error_records_out_generate;
END MOT_J2J_INV_PARTS_USG_CONV_PKG;
/
No comments:
Post a Comment