[Home] [Help]
PACKAGE BODY: APPS.IBY_BPEL_EBSR121PAYMENTAUTH
Source
1 PACKAGE BODY IBY_BPEL_EBSR121PAYMENTAUTH AS
2 /* $Header: IBYBPELPPADB.pls 120.1.12010000.2 2008/12/15 05:52:05 sgogula noship $ */
3
4 FUNCTION PL_TO_SQL1(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.PAYEE_REC_TYPE)
5 RETURN IBY_PAYMENT_ADAPTER_PUB_PAYEE IS
6 aSqlItem IBY_PAYMENT_ADAPTER_PUB_PAYEE;
7 BEGIN
8 -- initialize the object
9 aSqlItem := IBY_PAYMENT_ADAPTER_PUB_PAYEE(NULL);
10 aSqlItem.PAYEE_ID := aPlsqlItem.PAYEE_ID;
11 RETURN aSqlItem;
12 END PL_TO_SQL1;
13
14 FUNCTION SQL_TO_PL0(aSqlItem IBY_PAYMENT_ADAPTER_PUB_PAYEE)
15 RETURN IBY_PAYMENT_ADAPTER_PUB.PAYEE_REC_TYPE IS
16 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.PAYEE_REC_TYPE;
17 BEGIN
18 aPlsqlItem.PAYEE_ID := aSqlItem.PAYEE_ID;
19 RETURN aPlsqlItem;
20 END SQL_TO_PL0;
21
22 FUNCTION PL_TO_SQL2(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.PAYER_REC_TYPE)
23 RETURN IBY_PAYMENT_ADAPTER_PUB_PAYER IS
24 aSqlItem IBY_PAYMENT_ADAPTER_PUB_PAYER;
25 BEGIN
26 -- initialize the object
27 aSqlItem := IBY_PAYMENT_ADAPTER_PUB_PAYER(NULL);
28 aSqlItem.PARTY_ID := aPlsqlItem.PARTY_ID;
29 RETURN aSqlItem;
30 END PL_TO_SQL2;
31
32 FUNCTION SQL_TO_PL1(aSqlItem IBY_PAYMENT_ADAPTER_PUB_PAYER)
33 RETURN IBY_PAYMENT_ADAPTER_PUB.PAYER_REC_TYPE IS
34 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.PAYER_REC_TYPE;
35 BEGIN
36 aPlsqlItem.PARTY_ID := aSqlItem.PARTY_ID;
37 RETURN aPlsqlItem;
38 END SQL_TO_PL1;
39
40 /*
41 FUNCTION PL_TO_SQL3(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.ADDRESS_REC_TYPE)
42 RETURN IBYPAYMENTADAPTERPUBPMTINCRE_ IS
43 aSqlItem IBYPAYMENTADAPTERPUBPMTINCRE_;
44 BEGIN
45 -- initialize the object
46 aSqlItem := IBYPAYMENTADAPTERPUBPMTINCRE_(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
47 aSqlItem.ADDRESS1 := aPlsqlItem.ADDRESS1;
48 aSqlItem.ADDRESS2 := aPlsqlItem.ADDRESS2;
49 aSqlItem.ADDRESS3 := aPlsqlItem.ADDRESS3;
50 aSqlItem.CITY := aPlsqlItem.CITY;
51 aSqlItem.COUNTY := aPlsqlItem.COUNTY;
52 aSqlItem.STATE := aPlsqlItem.STATE;
53 aSqlItem.COUNTRY := aPlsqlItem.COUNTRY;
54 aSqlItem.POSTALCODE := aPlsqlItem.POSTALCODE;
55 aSqlItem.PHONE := aPlsqlItem.PHONE;
56 aSqlItem.EMAIL := aPlsqlItem.EMAIL;
57 RETURN aSqlItem;
58 END PL_TO_SQL3;
59 */
60
61 /*
62 FUNCTION SQL_TO_PL7(aSqlItem IBYPAYMENTADAPTERPUBPMTINCRE_)
63 RETURN IBY_PAYMENT_ADAPTER_PUB.ADDRESS_REC_TYPE IS
64 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.ADDRESS_REC_TYPE;
65 BEGIN
66 aPlsqlItem.ADDRESS1 := aSqlItem.ADDRESS1;
67 aPlsqlItem.ADDRESS2 := aSqlItem.ADDRESS2;
68 aPlsqlItem.ADDRESS3 := aSqlItem.ADDRESS3;
69 aPlsqlItem.CITY := aSqlItem.CITY;
70 aPlsqlItem.COUNTY := aSqlItem.COUNTY;
71 aPlsqlItem.STATE := aSqlItem.STATE;
72 aPlsqlItem.COUNTRY := aSqlItem.COUNTRY;
73 aPlsqlItem.POSTALCODE := aSqlItem.POSTALCODE;
74 aPlsqlItem.PHONE := aSqlItem.PHONE;
75 aPlsqlItem.EMAIL := aSqlItem.EMAIL;
76 RETURN aPlsqlItem;
77 END SQL_TO_PL7;
78 */
79
80 /*
81 FUNCTION PL_TO_SQL4(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.CREDITCARDINSTR_REC_TYPE)
82 RETURN IBYPAYMENTADAPTERPUBPMTIN_CRE IS
83 aSqlItem IBYPAYMENTADAPTERPUBPMTIN_CRE;
84 BEGIN
85 -- initialize the object
86 aSqlItem := IBYPAYMENTADAPTERPUBPMTIN_CRE(NULL, NULL, NULL, NULL, NULL, NULL);
87 aSqlItem.FINAME := aPlsqlItem.FINAME;
88 aSqlItem.CC_TYPE := aPlsqlItem.CC_TYPE;
89 aSqlItem.CC_NUM := aPlsqlItem.CC_NUM;
90 aSqlItem.CC_EXPDATE := aPlsqlItem.CC_EXPDATE;
91 aSqlItem.CC_HOLDERNAME := aPlsqlItem.CC_HOLDERNAME;
92 aSqlItem.CC_BILLINGADDR := PL_TO_SQL3(aPlsqlItem.CC_BILLINGADDR);
93 RETURN aSqlItem;
94 END PL_TO_SQL4;
95 */
96 /*
97 FUNCTION SQL_TO_PL8(aSqlItem IBYPAYMENTADAPTERPUBPMTIN_CRE)
98 RETURN IBY_PAYMENT_ADAPTER_PUB.CREDITCARDINSTR_REC_TYPE IS
99 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.CREDITCARDINSTR_REC_TYPE;
100 BEGIN
101 aPlsqlItem.FINAME := aSqlItem.FINAME;
102 aPlsqlItem.CC_TYPE := aSqlItem.CC_TYPE;
103 aPlsqlItem.CC_NUM := aSqlItem.CC_NUM;
104 aPlsqlItem.CC_EXPDATE := aSqlItem.CC_EXPDATE;
105 aPlsqlItem.CC_HOLDERNAME := aSqlItem.CC_HOLDERNAME;
106 aPlsqlItem.CC_BILLINGADDR := SQL_TO_PL7(aSqlItem.CC_BILLINGADDR);
107 RETURN aPlsqlItem;
108 END SQL_TO_PL8;
109 */
110 /*
111 FUNCTION PL_TO_SQL5(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.PURCHASECARDINSTR_REC_TYPE)
112 RETURN IBYPAYMENTADAPTERPUBPMTIN_PUR IS
113 aSqlItem IBYPAYMENTADAPTERPUBPMTIN_PUR;
114 BEGIN
115 -- initialize the object
116 aSqlItem := IBYPAYMENTADAPTERPUBPMTIN_PUR(NULL, NULL, NULL, NULL, NULL, NULL, NULL);
117 aSqlItem.FINAME := aPlsqlItem.FINAME;
118 aSqlItem.PC_TYPE := aPlsqlItem.PC_TYPE;
119 aSqlItem.PC_NUM := aPlsqlItem.PC_NUM;
120 aSqlItem.PC_EXPDATE := aPlsqlItem.PC_EXPDATE;
121 aSqlItem.PC_HOLDERNAME := aPlsqlItem.PC_HOLDERNAME;
122 aSqlItem.PC_BILLINGADDR := PL_TO_SQL3(aPlsqlItem.PC_BILLINGADDR);
123 aSqlItem.PC_SUBTYPE := aPlsqlItem.PC_SUBTYPE;
124 RETURN aSqlItem;
125 END PL_TO_SQL5;
126 */
127 /*
128 FUNCTION SQL_TO_PL9(aSqlItem IBYPAYMENTADAPTERPUBPMTIN_PUR)
129 RETURN IBY_PAYMENT_ADAPTER_PUB.PURCHASECARDINSTR_REC_TYPE IS
130 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.PURCHASECARDINSTR_REC_TYPE;
131 BEGIN
132 aPlsqlItem.FINAME := aSqlItem.FINAME;
133 aPlsqlItem.PC_TYPE := aSqlItem.PC_TYPE;
134 aPlsqlItem.PC_NUM := aSqlItem.PC_NUM;
135 aPlsqlItem.PC_EXPDATE := aSqlItem.PC_EXPDATE;
136 aPlsqlItem.PC_HOLDERNAME := aSqlItem.PC_HOLDERNAME;
137 aPlsqlItem.PC_BILLINGADDR := SQL_TO_PL7(aSqlItem.PC_BILLINGADDR);
138 aPlsqlItem.PC_SUBTYPE := aSqlItem.PC_SUBTYPE;
139 RETURN aPlsqlItem;
140 END SQL_TO_PL9;
141 */
142 FUNCTION PL_TO_SQL6(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.DUALPAYMENTINSTR_REC_TYPE)
143 RETURN IBYPAYMENTADAPTERPUBPMTIN_DUA IS
144 aSqlItem IBYPAYMENTADAPTERPUBPMTIN_DUA;
145 BEGIN
146 -- initialize the object
147 aSqlItem := IBYPAYMENTADAPTERPUBPMTIN_DUA(NULL, NULL, NULL, NULL);
148 aSqlItem.PMTINSTR_ID := aPlsqlItem.PMTINSTR_ID;
149 aSqlItem.PMTINSTR_SHORTNAME := aPlsqlItem.PMTINSTR_SHORTNAME;
150 aSqlItem.BNFPMTINSTR_ID := aPlsqlItem.BNFPMTINSTR_ID;
151 aSqlItem.BNFPMTINSTR_SHORTNAME := aPlsqlItem.BNFPMTINSTR_SHORTNAME;
152 RETURN aSqlItem;
153 END PL_TO_SQL6;
154
155 FUNCTION SQL_TO_PL10(aSqlItem IBYPAYMENTADAPTERPUBPMTIN_DUA)
156 RETURN IBY_PAYMENT_ADAPTER_PUB.DUALPAYMENTINSTR_REC_TYPE IS
157 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.DUALPAYMENTINSTR_REC_TYPE;
158 BEGIN
159 aPlsqlItem.PMTINSTR_ID := aSqlItem.PMTINSTR_ID;
160 aPlsqlItem.PMTINSTR_SHORTNAME := aSqlItem.PMTINSTR_SHORTNAME;
161 aPlsqlItem.BNFPMTINSTR_ID := aSqlItem.BNFPMTINSTR_ID;
162 aPlsqlItem.BNFPMTINSTR_SHORTNAME := aSqlItem.BNFPMTINSTR_SHORTNAME;
163 RETURN aPlsqlItem;
164 END SQL_TO_PL10;
165
166 FUNCTION PL_TO_SQL7(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.PMTINSTR_REC_TYPE)
167 RETURN IBY_PAYMENT_ADAPTER_PUB_PMTIN IS
168 aSqlItem IBY_PAYMENT_ADAPTER_PUB_PMTIN;
169 BEGIN
170 -- initialize the object
171 aSqlItem := IBY_PAYMENT_ADAPTER_PUB_PMTIN(NULL, NULL, NULL, NULL, NULL);
172 aSqlItem.PMTINSTR_ID := aPlsqlItem.PMTINSTR_ID;
173 aSqlItem.PMTINSTR_TYPE := aPlsqlItem.PMTINSTR_TYPE;
174 aSqlItem.PMTINSTR_SHORTNAME := aPlsqlItem.PMTINSTR_SHORTNAME;
175 aSqlItem.PMTINSTR_ASSIGNMENT_ID := aPlsqlItem.PMTINSTR_ASSIGNMENT_ID;
176 aSqlItem.DUALPAYMENTINSTR := PL_TO_SQL6(aPlsqlItem.DUALPAYMENTINSTR);
177 RETURN aSqlItem;
178 END PL_TO_SQL7;
179
180 FUNCTION SQL_TO_PL2(aSqlItem IBY_PAYMENT_ADAPTER_PUB_PMTIN)
181 RETURN IBY_PAYMENT_ADAPTER_PUB.PMTINSTR_REC_TYPE IS
182 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.PMTINSTR_REC_TYPE;
183 BEGIN
184 aPlsqlItem.PMTINSTR_ID := aSqlItem.PMTINSTR_ID;
185 aPlsqlItem.PMTINSTR_TYPE := aSqlItem.PMTINSTR_TYPE;
186 aPlsqlItem.PMTINSTR_SHORTNAME := aSqlItem.PMTINSTR_SHORTNAME;
187 aPlsqlItem.PMTINSTR_ASSIGNMENT_ID := aSqlItem.PMTINSTR_ASSIGNMENT_ID;
188 aPlsqlItem.DUALPAYMENTINSTR := SQL_TO_PL10(aSqlItem.DUALPAYMENTINSTR);
189 RETURN aPlsqlItem;
190 END SQL_TO_PL2;
191
192 FUNCTION PL_TO_SQL8(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.TANGIBLE_REC_TYPE)
193 RETURN IBY_PAYMENT_ADAPTER_PUB_TANGI IS
194 aSqlItem IBY_PAYMENT_ADAPTER_PUB_TANGI;
195 BEGIN
196 -- initialize the object
197 aSqlItem := IBY_PAYMENT_ADAPTER_PUB_TANGI(NULL, NULL, NULL, NULL, NULL, NULL);
198 aSqlItem.TANGIBLE_ID := aPlsqlItem.TANGIBLE_ID;
199 aSqlItem.TANGIBLE_AMOUNT := aPlsqlItem.TANGIBLE_AMOUNT;
200 aSqlItem.CURRENCY_CODE := aPlsqlItem.CURRENCY_CODE;
201 aSqlItem.REFINFO := aPlsqlItem.REFINFO;
202 aSqlItem.MEMO := aPlsqlItem.MEMO;
203 aSqlItem.ACCT_NUM := aPlsqlItem.ACCT_NUM;
204 RETURN aSqlItem;
205 END PL_TO_SQL8;
206
207 FUNCTION SQL_TO_PL3(aSqlItem IBY_PAYMENT_ADAPTER_PUB_TANGI)
208 RETURN IBY_PAYMENT_ADAPTER_PUB.TANGIBLE_REC_TYPE IS
209 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.TANGIBLE_REC_TYPE;
210 BEGIN
211 aPlsqlItem.TANGIBLE_ID := aSqlItem.TANGIBLE_ID;
212 aPlsqlItem.TANGIBLE_AMOUNT := aSqlItem.TANGIBLE_AMOUNT;
213 aPlsqlItem.CURRENCY_CODE := aSqlItem.CURRENCY_CODE;
214 aPlsqlItem.REFINFO := aSqlItem.REFINFO;
215 aPlsqlItem.MEMO := aSqlItem.MEMO;
216 aPlsqlItem.ACCT_NUM := aSqlItem.ACCT_NUM;
217 RETURN aPlsqlItem;
218 END SQL_TO_PL3;
219 /*
220 FUNCTION PL_TO_SQL9(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.RETAILDATA_REC_TYPE)
221 RETURN IBYPAYMENTADAPTERPUBPMTRE_RET IS
222 aSqlItem IBYPAYMENTADAPTERPUBPMTRE_RET;
223 BEGIN
224 -- initialize the object
225 aSqlItem := IBYPAYMENTADAPTERPUBPMTRE_RET(NULL, NULL, NULL, NULL, NULL, NULL);
226 aSqlItem.ISRETAIL := aPlsqlItem.ISRETAIL;
227 aSqlItem.POSENTRYMODE := aPlsqlItem.POSENTRYMODE;
228 aSqlItem.POSCAPABILITY := aPlsqlItem.POSCAPABILITY;
229 aSqlItem.POSAUTHSOURCE := aPlsqlItem.POSAUTHSOURCE;
230 aSqlItem.POSCARDIDMETHOD := aPlsqlItem.POSCARDIDMETHOD;
231 aSqlItem.POSSWIPEDATA := aPlsqlItem.POSSWIPEDATA;
232 RETURN aSqlItem;
233 END PL_TO_SQL9;
234
235 FUNCTION SQL_TO_PL11(aSqlItem IBYPAYMENTADAPTERPUBPMTRE_RET)
236 RETURN IBY_PAYMENT_ADAPTER_PUB.RETAILDATA_REC_TYPE IS
237 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.RETAILDATA_REC_TYPE;
238 BEGIN
239 aPlsqlItem.ISRETAIL := aSqlItem.ISRETAIL;
240 aPlsqlItem.POSENTRYMODE := aSqlItem.POSENTRYMODE;
241 aPlsqlItem.POSCAPABILITY := aSqlItem.POSCAPABILITY;
242 aPlsqlItem.POSAUTHSOURCE := aSqlItem.POSAUTHSOURCE;
243 aPlsqlItem.POSCARDIDMETHOD := aSqlItem.POSCARDIDMETHOD;
244 aPlsqlItem.POSSWIPEDATA := aSqlItem.POSSWIPEDATA;
245 RETURN aPlsqlItem;
246 END SQL_TO_PL11;
247 */
248 FUNCTION PL_TO_SQL10(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.PMTREQTRXN_REC_TYPE)
249 RETURN IBY_PAYMENT_ADAPTER_PUB_PMTRE IS
250 aSqlItem IBY_PAYMENT_ADAPTER_PUB_PMTRE;
251 BEGIN
252 -- initialize the object
253 aSqlItem := IBY_PAYMENT_ADAPTER_PUB_PMTRE(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
254 aSqlItem.TRXN_EXTENSION_ID := aPlsqlItem.TRXN_EXTENSION_ID;
255 aSqlItem.PMTMODE := aPlsqlItem.PMTMODE;
256 aSqlItem.CVV2 := aPlsqlItem.CVV2;
257 aSqlItem.SETTLEMENT_DATE := aPlsqlItem.SETTLEMENT_DATE;
258 aSqlItem.AUTH_TYPE := aPlsqlItem.AUTH_TYPE;
259 aSqlItem.CHECK_FLAG := aPlsqlItem.CHECK_FLAG;
260 aSqlItem.RETRY_FLAG := aPlsqlItem.RETRY_FLAG;
261 aSqlItem.ORG_ID := aPlsqlItem.ORG_ID;
262 aSqlItem.NLS_LANG := aPlsqlItem.NLS_LANG;
263 aSqlItem.PONUM := aPlsqlItem.PONUM;
264 aSqlItem.TAXAMOUNT := aPlsqlItem.TAXAMOUNT;
265 aSqlItem.SHIPFROMZIP := aPlsqlItem.SHIPFROMZIP;
266 aSqlItem.SHIPTOZIP := aPlsqlItem.SHIPTOZIP;
267 aSqlItem.ANALYZERISK := aPlsqlItem.ANALYZERISK;
268 aSqlItem.AUTHCODE := aPlsqlItem.AUTHCODE;
269 aSqlItem.VOICEAUTHFLAG := aPlsqlItem.VOICEAUTHFLAG;
270 aSqlItem.TRXNREF := aPlsqlItem.TRXNREF;
271 --aSqlItem.RETAILDATA := PL_TO_SQL9(aPlsqlItem.RETAILDATA);
272 aSqlItem.DATEOFVOICEAUTHORIZATION := aPlsqlItem.DATEOFVOICEAUTHORIZATION;
273 RETURN aSqlItem;
274 END PL_TO_SQL10;
275
276 FUNCTION SQL_TO_PL4(aSqlItem IBY_PAYMENT_ADAPTER_PUB_PMTRE)
277 RETURN IBY_PAYMENT_ADAPTER_PUB.PMTREQTRXN_REC_TYPE IS
278 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.PMTREQTRXN_REC_TYPE;
279 BEGIN
280 aPlsqlItem.TRXN_EXTENSION_ID := aSqlItem.TRXN_EXTENSION_ID;
281 aPlsqlItem.PMTMODE := aSqlItem.PMTMODE;
282 aPlsqlItem.CVV2 := aSqlItem.CVV2;
283 aPlsqlItem.SETTLEMENT_DATE := aSqlItem.SETTLEMENT_DATE;
284 aPlsqlItem.AUTH_TYPE := aSqlItem.AUTH_TYPE;
285 aPlsqlItem.CHECK_FLAG := aSqlItem.CHECK_FLAG;
286 aPlsqlItem.RETRY_FLAG := aSqlItem.RETRY_FLAG;
287 aPlsqlItem.ORG_ID := aSqlItem.ORG_ID;
288 aPlsqlItem.NLS_LANG := aSqlItem.NLS_LANG;
289 aPlsqlItem.PONUM := aSqlItem.PONUM;
290 aPlsqlItem.TAXAMOUNT := aSqlItem.TAXAMOUNT;
291 aPlsqlItem.SHIPFROMZIP := aSqlItem.SHIPFROMZIP;
292 aPlsqlItem.SHIPTOZIP := aSqlItem.SHIPTOZIP;
293 aPlsqlItem.ANALYZERISK := aSqlItem.ANALYZERISK;
294 aPlsqlItem.AUTHCODE := aSqlItem.AUTHCODE;
295 aPlsqlItem.VOICEAUTHFLAG := aSqlItem.VOICEAUTHFLAG;
296 aPlsqlItem.TRXNREF := aSqlItem.TRXNREF;
297 -- aPlsqlItem.RETAILDATA := SQL_TO_PL11(aSqlItem.RETAILDATA);
298 aPlsqlItem.DATEOFVOICEAUTHORIZATION := aSqlItem.DATEOFVOICEAUTHORIZATION;
299 RETURN aPlsqlItem;
300 END SQL_TO_PL4;
301
302 FUNCTION PL_TO_SQL11(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.RESPONSE_REC_TYPE)
303 RETURN IBYPAYMENTADAPTERPUBREQRE_RES IS
304 aSqlItem IBYPAYMENTADAPTERPUBREQRE_RES;
305 BEGIN
306 -- initialize the object
307 aSqlItem := IBYPAYMENTADAPTERPUBREQRE_RES(NULL, NULL, NULL, NULL);
308 aSqlItem.STATUS := aPlsqlItem.STATUS;
309 aSqlItem.ERRCODE := aPlsqlItem.ERRCODE;
310 aSqlItem.ERRMESSAGE := aPlsqlItem.ERRMESSAGE;
311 aSqlItem.NLS_LANG := aPlsqlItem.NLS_LANG;
312 RETURN aSqlItem;
313 END PL_TO_SQL11;
314
315 FUNCTION SQL_TO_PL12(aSqlItem IBYPAYMENTADAPTERPUBREQRE_RES)
316 RETURN IBY_PAYMENT_ADAPTER_PUB.RESPONSE_REC_TYPE IS
317 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.RESPONSE_REC_TYPE;
318 BEGIN
319 aPlsqlItem.STATUS := aSqlItem.STATUS;
320 aPlsqlItem.ERRCODE := aSqlItem.ERRCODE;
321 aPlsqlItem.ERRMESSAGE := aSqlItem.ERRMESSAGE;
322 aPlsqlItem.NLS_LANG := aSqlItem.NLS_LANG;
323 RETURN aPlsqlItem;
324 END SQL_TO_PL12;
325
326 FUNCTION PL_TO_SQL12(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.OFFLINERESP_REC_TYPE)
327 RETURN IBYPAYMENTADAPTERPUBREQRE_OFF IS
328 aSqlItem IBYPAYMENTADAPTERPUBREQRE_OFF;
329 BEGIN
330 -- initialize the object
331 aSqlItem := IBYPAYMENTADAPTERPUBREQRE_OFF(NULL, NULL);
332 aSqlItem.EARLIESTSETTLEMENT_DATE := aPlsqlItem.EARLIESTSETTLEMENT_DATE;
333 aSqlItem.SCHEDULED_DATE := aPlsqlItem.SCHEDULED_DATE;
334 RETURN aSqlItem;
335 END PL_TO_SQL12;
336
337 FUNCTION SQL_TO_PL13(aSqlItem IBYPAYMENTADAPTERPUBREQRE_OFF)
338 RETURN IBY_PAYMENT_ADAPTER_PUB.OFFLINERESP_REC_TYPE IS
339 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.OFFLINERESP_REC_TYPE;
340 BEGIN
341 aPlsqlItem.EARLIESTSETTLEMENT_DATE := aSqlItem.EARLIESTSETTLEMENT_DATE;
342 aPlsqlItem.SCHEDULED_DATE := aSqlItem.SCHEDULED_DATE;
343 RETURN aPlsqlItem;
344 END SQL_TO_PL13;
345
346 FUNCTION PL_TO_SQL13(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.RISKRESP_REC_TYPE)
347 RETURN IBYPAYMENTADAPTERPUBREQRE_RIS IS
348 aSqlItem IBYPAYMENTADAPTERPUBREQRE_RIS;
349 BEGIN
350 -- initialize the object
351 aSqlItem := IBYPAYMENTADAPTERPUBREQRE_RIS(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
352 aSqlItem.STATUS := aPlsqlItem.STATUS;
353 aSqlItem.ERRCODE := aPlsqlItem.ERRCODE;
354 aSqlItem.ERRMESSAGE := aPlsqlItem.ERRMESSAGE;
355 aSqlItem.ADDITIONAL_ERRMESSAGE := aPlsqlItem.ADDITIONAL_ERRMESSAGE;
356 aSqlItem.RISK_SCORE := aPlsqlItem.RISK_SCORE;
357 aSqlItem.RISK_THRESHOLD_VAL := aPlsqlItem.RISK_THRESHOLD_VAL;
358 aSqlItem.RISKY_FLAG := aPlsqlItem.RISKY_FLAG;
359 aSqlItem.AVSCODE_FLAG := aPlsqlItem.AVSCODE_FLAG;
360 RETURN aSqlItem;
361 END PL_TO_SQL13;
362
363 FUNCTION SQL_TO_PL14(aSqlItem IBYPAYMENTADAPTERPUBREQRE_RIS)
364 RETURN IBY_PAYMENT_ADAPTER_PUB.RISKRESP_REC_TYPE IS
365 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.RISKRESP_REC_TYPE;
366 BEGIN
367 aPlsqlItem.STATUS := aSqlItem.STATUS;
368 aPlsqlItem.ERRCODE := aSqlItem.ERRCODE;
369 aPlsqlItem.ERRMESSAGE := aSqlItem.ERRMESSAGE;
370 aPlsqlItem.ADDITIONAL_ERRMESSAGE := aSqlItem.ADDITIONAL_ERRMESSAGE;
371 aPlsqlItem.RISK_SCORE := aSqlItem.RISK_SCORE;
372 aPlsqlItem.RISK_THRESHOLD_VAL := aSqlItem.RISK_THRESHOLD_VAL;
373 aPlsqlItem.RISKY_FLAG := aSqlItem.RISKY_FLAG;
374 aPlsqlItem.AVSCODE_FLAG := aSqlItem.AVSCODE_FLAG;
375 RETURN aPlsqlItem;
376 END SQL_TO_PL14;
377
378 FUNCTION PL_TO_SQL0(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.REQRESP_REC_TYPE)
379 RETURN IBY_PAYMENT_ADAPTER_PUB_REQRE IS
380 aSqlItem IBY_PAYMENT_ADAPTER_PUB_REQRE;
381 BEGIN
382 -- initialize the object
383 aSqlItem := IBY_PAYMENT_ADAPTER_PUB_REQRE(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL);
384 aSqlItem.RESPONSE := PL_TO_SQL11(aPlsqlItem.RESPONSE);
385 aSqlItem.OFFLINERESP := PL_TO_SQL12(aPlsqlItem.OFFLINERESP);
386 aSqlItem.RISKRESPINCLUDED := aPlsqlItem.RISKRESPINCLUDED;
387 aSqlItem.RISKRESPONSE := PL_TO_SQL13(aPlsqlItem.RISKRESPONSE);
388 aSqlItem.TRXN_ID := aPlsqlItem.TRXN_ID;
389 aSqlItem.TRXN_TYPE := aPlsqlItem.TRXN_TYPE;
390 aSqlItem.TRXN_DATE := aPlsqlItem.TRXN_DATE;
391 aSqlItem.AUTHCODE := aPlsqlItem.AUTHCODE;
392 aSqlItem.REFCODE := aPlsqlItem.REFCODE;
393 aSqlItem.AVSCODE := aPlsqlItem.AVSCODE;
394 aSqlItem.CVV2RESULT := aPlsqlItem.CVV2RESULT;
395 aSqlItem.PMTINSTR_TYPE := aPlsqlItem.PMTINSTR_TYPE;
396 aSqlItem.ACQUIRER := aPlsqlItem.ACQUIRER;
397 aSqlItem.VPSBATCH_ID := aPlsqlItem.VPSBATCH_ID;
398 aSqlItem.AUXMSG := aPlsqlItem.AUXMSG;
399 aSqlItem.ERRORLOCATION := aPlsqlItem.ERRORLOCATION;
400 aSqlItem.BEPERRCODE := aPlsqlItem.BEPERRCODE;
401 aSqlItem.BEPERRMESSAGE := aPlsqlItem.BEPERRMESSAGE;
402 RETURN aSqlItem;
403 END PL_TO_SQL0;
404
405 FUNCTION SQL_TO_PL6(aSqlItem IBY_PAYMENT_ADAPTER_PUB_REQRE)
406 RETURN IBY_PAYMENT_ADAPTER_PUB.REQRESP_REC_TYPE IS
407 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.REQRESP_REC_TYPE;
408 BEGIN
409 aPlsqlItem.RESPONSE := SQL_TO_PL12(aSqlItem.RESPONSE);
410 aPlsqlItem.OFFLINERESP := SQL_TO_PL13(aSqlItem.OFFLINERESP);
411 aPlsqlItem.RISKRESPINCLUDED := aSqlItem.RISKRESPINCLUDED;
412 aPlsqlItem.RISKRESPONSE := SQL_TO_PL14(aSqlItem.RISKRESPONSE);
413 aPlsqlItem.TRXN_ID := aSqlItem.TRXN_ID;
414 aPlsqlItem.TRXN_TYPE := aSqlItem.TRXN_TYPE;
415 aPlsqlItem.TRXN_DATE := aSqlItem.TRXN_DATE;
416 aPlsqlItem.AUTHCODE := aSqlItem.AUTHCODE;
417 aPlsqlItem.REFCODE := aSqlItem.REFCODE;
418 aPlsqlItem.AVSCODE := aSqlItem.AVSCODE;
419 aPlsqlItem.CVV2RESULT := aSqlItem.CVV2RESULT;
420 aPlsqlItem.PMTINSTR_TYPE := aSqlItem.PMTINSTR_TYPE;
421 aPlsqlItem.ACQUIRER := aSqlItem.ACQUIRER;
422 aPlsqlItem.VPSBATCH_ID := aSqlItem.VPSBATCH_ID;
423 aPlsqlItem.AUXMSG := aSqlItem.AUXMSG;
424 aPlsqlItem.ERRORLOCATION := aSqlItem.ERRORLOCATION;
425 aPlsqlItem.BEPERRCODE := aSqlItem.BEPERRCODE;
426 aPlsqlItem.BEPERRMESSAGE := aSqlItem.BEPERRMESSAGE;
427 RETURN aPlsqlItem;
428 END SQL_TO_PL6;
429
430 FUNCTION PL_TO_SQL14(aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.RISKINFO_REC_TYPE)
431 RETURN IBY_PAYMENT_ADAPTER_PUB_RISKI IS
432 aSqlItem IBY_PAYMENT_ADAPTER_PUB_RISKI;
433 BEGIN
434 -- initialize the object
435 aSqlItem := IBY_PAYMENT_ADAPTER_PUB_RISKI(NULL, NULL, NULL, NULL);
436 aSqlItem.FORMULA_NAME := aPlsqlItem.FORMULA_NAME;
437 aSqlItem.SHIPTOBILLTO_FLAG := aPlsqlItem.SHIPTOBILLTO_FLAG;
438 aSqlItem.TIME_OF_PURCHASE := aPlsqlItem.TIME_OF_PURCHASE;
439 aSqlItem.CUSTOMER_ACCT_NUM := aPlsqlItem.CUSTOMER_ACCT_NUM;
440 RETURN aSqlItem;
441 END PL_TO_SQL14;
442
443 FUNCTION SQL_TO_PL5(aSqlItem IBY_PAYMENT_ADAPTER_PUB_RISKI)
444 RETURN IBY_PAYMENT_ADAPTER_PUB.RISKINFO_REC_TYPE IS
445 aPlsqlItem IBY_PAYMENT_ADAPTER_PUB.RISKINFO_REC_TYPE;
446 BEGIN
447 aPlsqlItem.FORMULA_NAME := aSqlItem.FORMULA_NAME;
448 aPlsqlItem.SHIPTOBILLTO_FLAG := aSqlItem.SHIPTOBILLTO_FLAG;
449 aPlsqlItem.TIME_OF_PURCHASE := aSqlItem.TIME_OF_PURCHASE;
450 aPlsqlItem.CUSTOMER_ACCT_NUM := aSqlItem.CUSTOMER_ACCT_NUM;
451 RETURN aPlsqlItem;
452 END SQL_TO_PL5;
453
454 PROCEDURE IBY_PAYMENT_ADAPTER_PUB$ORAPM (P_API_VERSION NUMBER,P_INIT_MSG_LIST VARCHAR2,P_COMMIT VARCHAR2,P_VALIDATION_LEVEL NUMBER,P_ECAPP_ID NUMBER,P_PAYEE_REC IBY_PAYMENT_ADAPTER_PUB_PAYEE
455 ,P_PAYER_REC IBY_PAYMENT_ADAPTER_PUB_PAYER,P_PMTINSTR_REC IBY_PAYMENT_ADAPTER_PUB_PMTIN,P_TANGIBLE_REC IBY_PAYMENT_ADAPTER_PUB_TANGI
456 ,P_PMTREQTRXN_REC IBY_PAYMENT_ADAPTER_PUB_PMTRE,P_RISKINFO_REC IBY_PAYMENT_ADAPTER_PUB_RISKI,X_RETURN_STATUS OUT NOCOPY VARCHAR2,X_MSG_COUNT OUT NOCOPY NUMBER
457 ,X_MSG_DATA OUT NOCOPY VARCHAR2,X_REQRESP_REC OUT NOCOPY IBY_PAYMENT_ADAPTER_PUB_REQRE) IS
458 P_PAYEE_REC_ IBY_PAYMENT_ADAPTER_PUB.PAYEE_REC_TYPE;
459 P_PAYER_REC_ IBY_PAYMENT_ADAPTER_PUB.PAYER_REC_TYPE;
460 P_PMTINSTR_REC_ IBY_PAYMENT_ADAPTER_PUB.PMTINSTR_REC_TYPE;
461 P_TANGIBLE_REC_ IBY_PAYMENT_ADAPTER_PUB.TANGIBLE_REC_TYPE;
462 P_PMTREQTRXN_REC_ IBY_PAYMENT_ADAPTER_PUB.PMTREQTRXN_REC_TYPE;
463 P_RISKINFO_REC_ IBY_PAYMENT_ADAPTER_PUB.RISKINFO_REC_TYPE;
464 X_REQRESP_REC_ IBY_PAYMENT_ADAPTER_PUB.REQRESP_REC_TYPE;
465 BEGIN
466 P_PAYEE_REC_ := IBY_BPEL_EBSR121PAYMENTAUTH.SQL_TO_PL0(P_PAYEE_REC);
467 P_PAYER_REC_ := IBY_BPEL_EBSR121PAYMENTAUTH.SQL_TO_PL1(P_PAYER_REC);
468 P_PMTINSTR_REC_ := IBY_BPEL_EBSR121PAYMENTAUTH.SQL_TO_PL2(P_PMTINSTR_REC);
469 P_TANGIBLE_REC_ := IBY_BPEL_EBSR121PAYMENTAUTH.SQL_TO_PL3(P_TANGIBLE_REC);
470 P_PMTREQTRXN_REC_ := IBY_BPEL_EBSR121PAYMENTAUTH.SQL_TO_PL4(P_PMTREQTRXN_REC);
471 P_RISKINFO_REC_ := IBY_BPEL_EBSR121PAYMENTAUTH.SQL_TO_PL5(P_RISKINFO_REC);
472 IBY_PAYMENT_ADAPTER_PUB.ORAPMTREQ(P_API_VERSION,P_INIT_MSG_LIST,P_COMMIT,P_VALIDATION_LEVEL,P_ECAPP_ID,P_PAYEE_REC_,P_PAYER_REC_
473 ,P_PMTINSTR_REC_,P_TANGIBLE_REC_,P_PMTREQTRXN_REC_,P_RISKINFO_REC_,X_RETURN_STATUS,X_MSG_COUNT,X_MSG_DATA,X_REQRESP_REC_);
474 X_REQRESP_REC := IBY_BPEL_EBSR121PAYMENTAUTH.PL_TO_SQL0(X_REQRESP_REC_);
475 END IBY_PAYMENT_ADAPTER_PUB$ORAPM;
476
477 END IBY_BPEL_EBSR121PAYMENTAUTH;
478