[Home] [Help]
PACKAGE BODY: APPS.CS_CREDIT_CARD_ASSIGNMENT
Source
1 PACKAGE BODY CS_CREDIT_CARD_ASSIGNMENT AS
2 /* $Header: csccasgb.pls 120.0 2010/09/06 10:15:36 spamujul noship $ */
3 PROCEDURE Create_Card_Wrapper(
4 p_commit IN VARCHAR2,
5 p_owner_id IN iby_creditcard.card_owner_id%TYPE,
6 p_holder_name IN iby_creditcard.chname%TYPE,
7 p_billing_address_id IN iby_creditcard.addressid%TYPE,
8 p_address_type IN VARCHAR2,
9 p_billing_zip IN iby_creditcard.billing_addr_postal_code%TYPE,
10 p_billing_country IN iby_creditcard.bill_addr_territory_code%TYPE,
11 p_card_number IN iby_creditcard.ccnumber%TYPE,
12 p_expiry_date IN iby_creditcard.expirydate%TYPE,
16 p_issuer IN iby_creditcard.card_issuer_code%TYPE,
13 p_instr_type IN iby_creditcard.instrument_type%TYPE,
14 p_pcard_flag IN iby_creditcard.purchasecard_flag%TYPE,
15 p_pcard_type IN iby_creditcard.purchasecard_subtype%TYPE,
17 p_fi_name IN iby_creditcard.finame%TYPE,
18 p_single_use IN iby_creditcard.single_use_flag%TYPE,
19 p_info_only IN iby_creditcard.information_only_flag%TYPE,
20 p_purpose IN iby_creditcard.card_purpose%TYPE,
21 p_desc IN iby_creditcard.description%TYPE,
22 p_active_flag IN iby_creditcard.active_flag%TYPE,
23 p_inactive_date IN iby_creditcard.inactive_date%TYPE,
24 p_sys_sec_key IN iby_security_pkg.DES3_KEY_TYPE,
25 p_attribute_category IN iby_creditcard.attribute_category%TYPE,
26 p_attribute1 IN iby_creditcard.attribute1%TYPE,
27 p_attribute2 IN iby_creditcard.attribute2%TYPE,
28 p_attribute3 IN iby_creditcard.attribute3%TYPE,
29 p_attribute4 IN iby_creditcard.attribute4%TYPE,
30 p_attribute5 IN iby_creditcard.attribute5%TYPE,
31 p_attribute6 IN iby_creditcard.attribute6%TYPE,
32 p_attribute7 IN iby_creditcard.attribute7%TYPE,
33 p_attribute8 IN iby_creditcard.attribute8%TYPE,
34 p_attribute9 IN iby_creditcard.attribute9%TYPE,
35 p_attribute10 IN iby_creditcard.attribute10%TYPE,
36 p_attribute11 IN iby_creditcard.attribute11%TYPE,
37 p_attribute12 IN iby_creditcard.attribute12%TYPE,
38 p_attribute13 IN iby_creditcard.attribute13%TYPE,
39 p_attribute14 IN iby_creditcard.attribute14%TYPE,
40 p_attribute15 IN iby_creditcard.attribute15%TYPE,
41 p_attribute16 IN iby_creditcard.attribute16%TYPE,
42 p_attribute17 IN iby_creditcard.attribute17%TYPE,
43 p_attribute18 IN iby_creditcard.attribute18%TYPE,
44 p_attribute19 IN iby_creditcard.attribute19%TYPE,
45 p_attribute20 IN iby_creditcard.attribute20%TYPE,
46 p_attribute21 IN iby_creditcard.attribute21%TYPE,
47 p_attribute22 IN iby_creditcard.attribute22%TYPE,
48 p_attribute23 IN iby_creditcard.attribute23%TYPE,
49 p_attribute24 IN iby_creditcard.attribute24%TYPE,
50 p_attribute25 IN iby_creditcard.attribute25%TYPE,
51 p_attribute26 IN iby_creditcard.attribute26%TYPE,
52 p_attribute27 IN iby_creditcard.attribute27%TYPE,
53 p_attribute28 IN iby_creditcard.attribute28%TYPE,
54 p_attribute29 IN iby_creditcard.attribute29%TYPE,
55 p_attribute30 IN iby_creditcard.attribute30%TYPE,
56 x_result_code OUT NOCOPY VARCHAR2,
57 x_return_status OUT NOCOPY VARCHAR2,
58 x_instr_id OUT NOCOPY iby_creditcard.instrid%TYPE,
59 p_cust_account_id IN iby_external_payers_all.cust_account_id%TYPE,
60 p_org_id IN iby_external_payers_all.org_id%TYPE,
61 p_org_type IN iby_external_payers_all.org_type%TYPE,
62 p_payment_function IN iby_external_payers_all.payment_function%TYPE,
63 x_assignment_id OUT NOCOPY NUMBER,
64 p_cust_accnt_site_id IN NUMBER
65 ) IS
66 l_card_instrument IBY_FNDCPT_SETUP_PUB.CreditCard_rec_type;
67 l_payer IBY_FNDCPT_COMMON_PUB.PayerContext_rec_type;
68 l_asg_instrument IBY_FNDCPT_SETUP_PUB.PmtInstrAssignment_rec_type;
69 l_assignment IBY_FNDCPT_SETUP_PUB.PmtInstrument_rec_type;
70 x_response IBY_FNDCPT_COMMON_PUB.Result_rec_type;
71
72 x_msg_count NUMBER;
73 x_msg_data VARCHAR2(3000);
74
75 BEGIN
76
77 --Credit Card Record
78 l_card_instrument.Owner_Id :=p_owner_id;
79 l_card_instrument.Card_Holder_Name := p_holder_name;
80 l_card_instrument.Billing_Address_Id := p_billing_address_id;
81 l_card_instrument.Address_Type := p_address_type;
82 l_card_instrument.Billing_Postal_Code := p_billing_zip;
83 l_card_instrument.Billing_Address_Territory := p_billing_country;
84 l_card_instrument.Card_Number := p_card_number;
85 l_card_instrument.Expiration_Date := p_expiry_date;
86 l_card_instrument.Instrument_Type := p_instr_type;
87 l_card_instrument.PurchaseCard_Flag := p_pcard_flag;
88 l_card_instrument.PurchaseCard_SubType := p_pcard_type;
89 l_card_instrument.FI_Name := p_fi_name;
90 l_card_instrument.Single_Use_Flag := p_single_use;
91 l_card_instrument.Info_Only_Flag := p_info_only;
92 l_card_instrument.Card_Purpose := p_purpose;
93 l_card_instrument.Card_Description := p_desc;
94 l_card_instrument.Active_Flag := p_active_flag;
95 l_card_instrument.Inactive_Date := p_inactive_date;
96 l_card_instrument.card_issuer := p_issuer;
97 l_card_instrument.attribute_category := p_attribute_category;
98 l_card_instrument.attribute1 := p_attribute1;
99 l_card_instrument.attribute2 := p_attribute2;
100 l_card_instrument.attribute3 := p_attribute3;
101 l_card_instrument.attribute4 := p_attribute4;
102 l_card_instrument.attribute5 := p_attribute5;
103 l_card_instrument.attribute6 := p_attribute6;
104 l_card_instrument.attribute7 := p_attribute7;
105 l_card_instrument.attribute8 := p_attribute8;
106 l_card_instrument.attribute9 := p_attribute9;
107 l_card_instrument.attribute10 := p_attribute10;
108 l_card_instrument.attribute11 := p_attribute11;
109 l_card_instrument.attribute12 := p_attribute12;
110 l_card_instrument.attribute13 := p_attribute13;
111 l_card_instrument.attribute14 := p_attribute14;
112 l_card_instrument.attribute15 := p_attribute15;
113 l_card_instrument.attribute16 := p_attribute16;
114 l_card_instrument.attribute17 := p_attribute17;
115 l_card_instrument.attribute18 := p_attribute18;
116 l_card_instrument.attribute19 := p_attribute19;
117 l_card_instrument.attribute20 := p_attribute20;
118 l_card_instrument.attribute21 := p_attribute21;
119 l_card_instrument.attribute22 := p_attribute22;
120 l_card_instrument.attribute23 := p_attribute23;
121 l_card_instrument.attribute24 := p_attribute24;
122 l_card_instrument.attribute25 := p_attribute25;
123 l_card_instrument.attribute26 := p_attribute26;
124 l_card_instrument.attribute27 := p_attribute27;
125 l_card_instrument.attribute28 := p_attribute28;
126 l_card_instrument.attribute29 := p_attribute29;
127 l_card_instrument.attribute30 := p_attribute30;
128
129 -- Payer Record
130 l_payer.Payment_Function := p_payment_function;
131 l_payer.Party_Id := p_owner_id;
132 l_payer.org_id := p_org_id;
133 l_payer.org_type := p_org_type;
134 l_payer.Cust_Account_Id := p_cust_account_id;
135 l_payer.Account_Site_Id := P_cust_accnt_site_id;
136
137
138 -- Instrument Record
139 l_assignment.Instrument_Type := IBY_FNDCPT_COMMON_PUB.G_INSTR_TYPE_CREDITCARD;
140 l_assignment.Instrument_Id := null;
141
142 -- Instrument Assignment Record
143 l_asg_instrument.Instrument := l_assignment;
144 l_asg_instrument.Assignment_Id := null;
145 l_asg_instrument.Priority := null;
146 l_asg_instrument.Start_Date := null;
147 l_asg_instrument.End_Date := null;
148
149 IBY_FNDCPT_SETUP_PUB.Process_Credit_Card(1.0,
150 FND_API.G_FALSE,
151
152 FND_API.G_FALSE,
153 x_return_status,
154 x_msg_count,
155 x_msg_data,
156 l_payer,
157 l_card_instrument,
158 l_asg_instrument,
159 x_assignment_id,
160 x_response
161
162 );
163 x_result_code := x_response.Result_Code;
164 IF x_assignment_id IS NOT NULL AND x_return_status ='S' THEN
165 BEGIN
166
167 SELECT INSTRUMENT_ID
168 INTO x_instr_id
169 FROM iby_fndcpt_payer_assgn_instr_v
170 WHERE INSTR_ASSIGNMENT_ID = x_assignment_id;
171 EXCEPTION
172 WHEN OTHERS THEN
173 x_instr_id := Null;
174 END;
175 END IF ;
176 END Create_Card_Wrapper;
177 END CS_CREDIT_CARD_ASSIGNMENT;