CREATE OR REPLACE Package xxx_STD_AP_AutoPMTs_pkg Is
---- ----
P_FULLPMT_DFlag varchar2(2) := 'P';
L_Check_PName varchar2(50) := 'AutoPMTs@AndyPengYu.Com:';
L_Check_Auto_PPMTs varchar2(30) := 'Auto_PPMTs*';
L_Check_Auto_FOPMTs varchar2(30) := 'Auto_FOPMTs*';
L_Check_Auto_FMPMTs varchar2(30) := 'Auto_FMPMTs*';
P_PMTsTii_FlagM varchar2(2) := 'M';
P_PMTsTii_FlagQ varchar2(2) := 'Q';
P_PMTsTii_FlagR varchar2(2) := 'R';
type DCAmount is table Of Number index by binary_integer;
type DCVarChar is table Of varchar2(30000) index by binary_integer;
P_CPMTsLookup_Code varchar2(20) := 'NEGOTIABLE';
P_WPMTsLookup_Code varchar2(20) := 'ISSUED';
P_STDInvoii_Status varchar2(20) := 'APPROVED';
P_PREInvoii_Status varchar2(20) := 'UNPAID';
Function get_BankUseID(P_Org_ID in Number, P_BankAcc_Number in varchar2)
Return Number;
Function get_BankAccID(P_Org_ID in Number, P_BankAcc_Number in varchar2)
Return Number;
Function get_BankDocID(P_BankAcc_ID in Number,
P_BankDoc_Name in varchar2) Return Number;
Function get_xxxRate(P_From_Curr in varchar2,
P_To_Curr in varchar2,
P_xRate_Ti varchar2,
P_Accounting_Date in Date) Return Number;
Procedure Build_PMTISs(P_Batch_ID Out Number,
P_Org_ID in Number,
P_TPName in varchar2,
P_PMT_Mode in varchar2);
Procedure Build_InvISs(P_Batch_ID In Number,
P_Org_ID In Number,
P_TPName in varchar2,
P_PMT_Mode in varchar2);
Procedure Auto_PPMTs(P_Suc_Flag Out Varchar2,
P_Suc_Log Out Varchar2,
P_Batch_ID in Number,
P_Org_ID In Number,
P_TPName in varchar2,
P_PMT_Mode in varchar2);
Procedure Auto_FOPMTs(P_Suc_Flag Out Varchar2,
P_Suc_Log Out Varchar2,
P_Batch_ID In Number,
P_Org_ID In Number,
P_TPName in varchar2,
P_PMT_Mode in varchar2);
Procedure xxxMain(P_Suc_Flag Out Varchar2,
P_Suc_Log Out Varchar2,
P_Org_ID in Number,
P_TPName in varchar2,
P_PMT_Mode in varchar2,
P_FULLPMT_Flag in varchar2 Default P_FULLPMT_DFlag);
End xxx_STD_AP_AutoPMTs_pkg;
