CREATE OR REPLACE PROCEDURE PRC_AxtoLNLedger_1 (p_IdentificationNumber IN OUT VARCHAR2, p_TransactionDate IN VARCHAR2, p_BatchCompany IN VARCHAR2, p_TransactionType IN VARCHAR2, p_TTransactionType OUT VARCHAR2, p_TransactionSeries IN NUMBER, p_FiscalYear IN VARCHAR2, p_FiscalPeriod IN VARCHAR2, p_ReportingPeriod IN VARCHAR2, p_TaxYear IN NUMBER, p_TaxPeriod IN VARCHAR2, p_ImportJournalType IN VARCHAR2, p_IImportJournalType OUT VARCHAR2, p_ImportJournalSeries IN NUMBER, p_ImportJournalDocument IN VARCHAR2, p_ImportJournalStatus IN NUMBER, p_BatchNumber IN VARCHAR2, p_BatchReference IN VARCHAR2, p_BBatchReference OUT VARCHAR2, p_User IN VARCHAR2, p_UUser OUT VARCHAR2, p_TransferStatus IN VARCHAR2, p_TransferDate IN DATE, p_ManualImport IN VARCHAR2, p_REFCNTD IN NUMBER, p_REFCNTU IN NUMBER, P_TableName IN VARCHAR2, RETURN_CODE OUT NUMBER, RETURN_MSG OUT VARCHAR2) AS BEGIN IF p_TransactionType IS NULL THEN p_TTransactionType := ' '; else p_TTransactionType := p_TransactionType; END IF; IF p_ImportJournalType IS NULL THEN p_IImportJournalType := ' '; else p_IImportJournalType := p_ImportJournalType; END IF; IF p_BatchReference IS NULL THEN p_BBatchReference := ' '; else p_BBatchReference := p_BatchReference; END IF; IF p_User IS NULL THEN p_UUser := ' '; else p_UUser := p_User; END IF; execute immediate 'INSERT INTO ' ||P_TableName|| '(T$IDNO,T$TEDT,T$CONO,T$TTYP,T$TSER,T$FYER,T$FPRD,T$RPRD,T$VYER,T$VPER,T$ITYP,T$ISER,T$IDOC,T$STAT,T$BTNO,T$BREF,T$USER,T$TRST,T$TRDT,T$MAIM,T$REFCNTD,T$REFCNTU) VALUES (p_IdentificationNumber,p_TransactionDate,p_BatchCompany,p_TTransactionType,p_TransactionSeries,p_FiscalYear,p_FiscalPeriod,p_ReportingPeriod,p_TaxYear,p_TaxPeriod,p_IImportJournalType,p_ImportJournalSeries,p_ImportJournalDocument,p_ImportJournalStatus,p_BatchNumber,p_BBatchReference,p_UUser,p_TransferStatus,p_TransferDate,p_ManualImport,p_REFCNTD,p_REFCNTU)'; COMMIT; RETURN_CODE := 1; RETURN_MSG := 'Company:'||p_BatchCompany||' '||'IdentificationNumber:'||p_IdentificationNumber||' '||'Successfully inserted to the LN Staging Tables'; EXCEPTION WHEN OTHERS THEN ROLLBACK; RETURN_CODE := sqlcode; RETURN_MSG := 'Company:'||p_BatchCompany||' '||'IdentificationNumber:'||p_IdentificationNumber||' '||sqlerrm; END;