[Home] [Help]
53: purchasecard_tbl OUT NOCOPY PurchaseCard_tbl_type,
54: bankacct_tbl OUT NOCOPY BankAcct_tbl_type
55: ) IS
56: l_count INTEGER;
57: l_ccsubtype iby_creditcard.subtype%TYPE;
58:
59: lx_pcard_flag iby_creditcard.purchasecard_flag%TYPE;
60: lx_pcard_type iby_creditcard.purchasecard_subtype%TYPE;
61:
55: ) IS
56: l_count INTEGER;
57: l_ccsubtype iby_creditcard.subtype%TYPE;
58:
59: lx_pcard_flag iby_creditcard.purchasecard_flag%TYPE;
60: lx_pcard_type iby_creditcard.purchasecard_subtype%TYPE;
61:
62: lx_result_code VARCHAR(30);
63:
56: l_count INTEGER;
57: l_ccsubtype iby_creditcard.subtype%TYPE;
58:
59: lx_pcard_flag iby_creditcard.purchasecard_flag%TYPE;
60: lx_pcard_type iby_creditcard.purchasecard_subtype%TYPE;
61:
62: lx_result_code VARCHAR(30);
63:
64: -- only query wanted instrument id's; then use these
61:
62: lx_result_code VARCHAR(30);
63:
64: -- only query wanted instrument id's; then use these
65: -- in calls to the iby_creditcard_pkg which will take
66: -- care of decryption, etc.
67: --
68: CURSOR load_creditcard_csr( l_instr_id NUMBER ) IS
69: SELECT instrid
66: -- care of decryption, etc.
67: --
68: CURSOR load_creditcard_csr( l_instr_id NUMBER ) IS
69: SELECT instrid
70: FROM iby_creditcard_v
71: WHERE ownerid = payer_id
72: AND instrid = nvl(l_instr_id, instrid);
73: CURSOR load_purchasecard_csr( l_instr_id NUMBER ) IS
74: SELECT instrid
105:
106: -- fetch all the credit card instruments for the payer
107: FOR t_creditcard IN load_creditcard_csr(instr_id) LOOP
108:
109: iby_creditcard_pkg.Query_Card
110: (
111: t_creditcard.instrid,
112: NULL,
113: creditcard_tbl(l_count).Owner_Id,
146:
147: -- fetch all the purchase card instruments for the payer
148: FOR t_purchasecard IN load_purchasecard_csr(instr_id) LOOP
149:
150: iby_creditcard_pkg.Query_Card
151: (
152: t_purchasecard.instrid,
153: NULL,
154: purchasecard_tbl(l_count).Owner_Id,
760: );
761:
762: */
763: ELSIF( l_instrument_type = C_INSTRTYPE_PURCHASECARD ) THEN
764: IBY_CREDITCARD_PKG.Update_Card
765: (FND_API.G_FALSE,
766: p_pmtInstrRec.PurchaseCardInstr.Instr_Id,
767: p_pmtInstrRec.PurchaseCardInstr.Owner_Id,
768: p_pmtInstrRec.PurchaseCardInstr.PC_HolderName,
814: p_pmtInstrRec.PurchaseCardInstr.attribute30,
815: x_result.Result_Code
816: );
817: ELSIF( l_instrument_type = C_INSTRTYPE_CREDITCARD ) THEN
818: IBY_CREDITCARD_PKG.Update_Card
819: (FND_API.G_FALSE,
820: p_pmtInstrRec.CreditCardInstr.Instr_Id,
821: p_pmtInstrRec.CreditCardInstr.Owner_Id,
822: p_pmtInstrRec.CreditCardInstr.CC_HolderName,