Step Speck

create or replace PACKAGE SRI_PO_REQ_CONV_PAK
AS
/*****************************************************************************************
/* Header:  Package body creation script for converting <Object Name>  Created  <Date>
/*
/* Author:  <_________>
/*
/* Description: Contains functions/ procedures used converting <Objec Name>
/*
/*
/* Revision History:
/*
/*      Date              Prepared By                Description of Revision
/*
/*   <________>         <___________>                        Created
/*   <________>     <___________>                      Revised
/*
/*=======================================================================================*/
--=================
-- Global Variables
--=================
gn_request_id                 NUMBER       :=apps.fnd_global.conc_request_id;
gn_prog_appl_id               NUMBER       :=apps.fnd_global.prog_appl_id;
gn_responsibility_id          NUMBER       :=apps.fnd_global.resp_id;
gn_respappl_id                NUMBER       :=apps.fnd_global.resp_appl_id;
gn_program_id                 NUMBER       :=apps.fnd_global.conc_program_id;
gn_user_id                    NUMBER       :=apps.fnd_global.user_id;
gn_login_id                   NUMBER       :=apps.fnd_global.login_id;
gn_business_group_id          NUMBER       :=apps.fnd_global.per_business_group_id;
gn_org_id                     NUMBER       :=apps.fnd_global.org_id;
gn_bulk_limit                 NUMBER       :=10000;
gn_bulk_error_cnt             NUMBER       ; 
gn_bulk_error                 NUMBER       ;

gd_current_date               DATE         := SYSDATE;

gc_error_flag                 VARCHAR2(1)  := 'E';
gc_success_flag               VARCHAR2(1)  := 'S';
gc_duplicate_flag             VARCHAR2(1)  := 'D';
gc_validation_flag            VARCHAR2(1)  := 'V';
gc_validation_error_flag      VARCHAR2(2)  := 'VE';
gc_process_flag               VARCHAR2(1)  := 'P';
gc_trnsf_flag                 VARCHAR2(1)  := 'T';
gc_trnsf_error_flag           VARCHAR2(2)  := 'TE';
gc_newrecord_flag             VARCHAR2(1)  := 'N';
gc_program_name               VARCHAR2(100):= 'Purchase Requisition Conversion';

-- |-----------------------------------------------------------------------------------------+ --
-- |PROCEDURE   : MAIN                                                                                       | --
-- |                                                                                                                               | --
-- |DESCRIPTION : Executes different procedures based on the flags passed by the conc program| --
-- |                                                                                         | --
-- |PARAMETERS  :                                                                            | --
-- |                                                                                         | --
-- |NAME                    MODE   TYPE             DESCRIPTION                              | --
-- |-------------           ----   --------------   ---------------------------------------- | --
-- | errbuf                  OUT     VARCHAR2        Will Store/return the error message     | --
-- | retcode                 OUT     NUMBWER         Will return the status of the procedure | --
-- |                                                                                         | --
-- | p_load_data_flag        IN      VARCHAR2        Yes - Load Data                         | --
-- |                                                 No  - No                                | --
-- |                                                                                         | --
-- | p_transform_data_flag   IN      VARCHAR2        RT  - Re Transform Data                 | --
-- |                                                 Yes - Transform Data                    | --
-- |                                                 No  - No                                | --
-- |                                                                                         | --
-- | p_validate_flag         IN      VARCHAR2        RV  - Re Validate                       | --
-- |                                                 Yes - Validate                          | --
-- |                                                 No  - No                                | --
-- |                                                                                         | --
-- | p_process_data_flag     IN      VARCHAR2        Yes - Process data                      | --
-- |                                                 No  - No                                | --
-- |                                                                                         | --
-- |-----------------------------------------------------------------------------------------+ --
PROCEDURE main(
         errbuf                    OUT VARCHAR2,
         retcode           OUT NUMBER,

         p_trans_Status_flag       IN  VARCHAR2,

         p_validate_data_flag      IN  VARCHAR2,

         p_process_data_flag       IN  VARCHAR2

       );
PROCEDURE transform_data(p_interface_Status_flag IN VARCHAR2);
PROCEDURE validate_data(p_validate_data_flag IN VARCHAR2);
PROCEDURE load_interface_data(p_interface_flag VARCHAR2);

END SRI_PO_REQ_CONV_PAK;
/
Show errors;
/
Commit;

/