PACKAGE BODY: APPS.GMS_ENC_IMPORT_PKG

Source

1 PACKAGE BODY GMS_ENC_IMPORT_PKG AS
2 -- $Header: gmsencib.pls 120.0 2005/05/29 12:02:14 appldev noship $
3 
4 -----------------------------------------------------------------
5   -- procedure pre_process   called in pa_transaction_import
6   -- for transaction source starting with 'GMSE'
7   --		P_TRANSACTION_SOURCE like 'GMSE%'
8   --		P_BATCH     -- encumbrance batch
9   --		P_XFACE_ID  -- internal id for  encumbrance batch
10   --		P_USER_ID   -- user running the import process
11 ----------------------------------------------------------------
12 PROCEDURE PRE_PROCESS (P_TRANSACTION_SOURCE    IN  VARCHAR2,
13                          P_BATCH                 IN  VARCHAR2,
14                          P_XFACE_ID              IN  NUMBER,
15                          P_USER_ID               IN  NUMBER ) IS
16 BEGIN
17 
18    pa_cc_utils.log_message('GMS_ENC_IMPORT_PKG.PRE_PROCESS : Start - Before calling GMS_LD_PKG.PRE_PROCESS ',1);
19 
20    GMS_LD_PKG.PRE_PROCESS (P_TRANSACTION_SOURCE  ,
21                            P_BATCH               ,
22                            P_XFACE_ID            ,
23                            P_USER_ID              );
24 
25    pa_cc_utils.log_message('GMS_ENC_IMPORT_PKG.PRE_PROCESS : End - after calling GMS_LD_PKG.PRE_PROCESS  ',1);
26 
27 EXCEPTION
28   WHEN OTHERS THEN
29       pa_cc_utils.log_message('Unexpected error: '||SQLERRM,1);
30       rollback ;
31       raise_application_error(SQLCODE, SQLERRM) ;
32 END;
33 END GMS_ENC_IMPORT_PKG;