2051: /*****************************************************************************/
2052: procedure assign_finance_charge(errbuf OUT NOCOPY varchar2,
2053: retcode out NOCOPY number) is
2054: l_module_name VARCHAR2(200) ;
2055: v_set_bks_id gl_ledgers.ledger_id%TYPE; --PSKI LA Changes
2056: v_set_bks_name gl_ledgers.name%TYPE;
2057: v_currency_code gl_ledgers.currency_code%TYPE;
2058: v_req_id number;
2059:
2052: procedure assign_finance_charge(errbuf OUT NOCOPY varchar2,
2053: retcode out NOCOPY number) is
2054: l_module_name VARCHAR2(200) ;
2055: v_set_bks_id gl_ledgers.ledger_id%TYPE; --PSKI LA Changes
2056: v_set_bks_name gl_ledgers.name%TYPE;
2057: v_currency_code gl_ledgers.currency_code%TYPE;
2058: v_req_id number;
2059:
2060: cursor c1 is
2053: retcode out NOCOPY number) is
2054: l_module_name VARCHAR2(200) ;
2055: v_set_bks_id gl_ledgers.ledger_id%TYPE; --PSKI LA Changes
2056: v_set_bks_name gl_ledgers.name%TYPE;
2057: v_currency_code gl_ledgers.currency_code%TYPE;
2058: v_req_id number;
2059:
2060: cursor c1 is
2061: (select distinct hzca.cust_Account_id customer_id
2185:
2186: IF v_set_bks_id is NOT NULL THEN --PSKI LA changes
2187: SELECT currency_code
2188: INTO v_currency_code
2189: FROM gl_ledgers_public_v
2190: WHERE ledger_id = sob_id;
2191: END IF;
2192:
2193: