[Home] [Help]
24: begin
25: l_count := P_PMTDTLS_TBL.COUNT;
26: /* validate payment target */
27: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
28: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.PAYMENT_TARGET');
29: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.PAYMENT_TARGET = ' || P_PMT_REC.PAYMENT_TARGET);
30: END IF;
31: if P_PMT_REC.PAYMENT_TARGET is null or
32: (P_PMT_REC.PAYMENT_TARGET <> 'ACCOUNTS' and
25: l_count := P_PMTDTLS_TBL.COUNT;
26: /* validate payment target */
27: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
28: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.PAYMENT_TARGET');
29: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.PAYMENT_TARGET = ' || P_PMT_REC.PAYMENT_TARGET);
30: END IF;
31: if P_PMT_REC.PAYMENT_TARGET is null or
32: (P_PMT_REC.PAYMENT_TARGET <> 'ACCOUNTS' and
33: P_PMT_REC.PAYMENT_TARGET <> 'INVOICES' and
34: P_PMT_REC.PAYMENT_TARGET <> 'CNSLD' and
35: P_PMT_REC.PAYMENT_TARGET <> 'CONTRACTS')
36: then
37: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
38: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.PAYMENT_TARGET failed validation');
39: END IF;
40: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
41: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
42: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.PAYMENT_TARGET');
45: end if;
46:
47: /* validate total_amount */
48: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
49: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.TOTAL_AMOUNT');
50: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.TOTAL_AMOUNT = ' || P_PMT_REC.TOTAL_AMOUNT);
51: END IF;
52: if P_PMT_REC.TOTAL_AMOUNT is null or P_PMT_REC.TOTAL_AMOUNT <= 0
53: then
46:
47: /* validate total_amount */
48: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
49: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.TOTAL_AMOUNT');
50: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.TOTAL_AMOUNT = ' || P_PMT_REC.TOTAL_AMOUNT);
51: END IF;
52: if P_PMT_REC.TOTAL_AMOUNT is null or P_PMT_REC.TOTAL_AMOUNT <= 0
53: then
54: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
51: END IF;
52: if P_PMT_REC.TOTAL_AMOUNT is null or P_PMT_REC.TOTAL_AMOUNT <= 0
53: then
54: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
55: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.TOTAL_AMOUNT failed validation');
56: END IF;
57: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
58: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
59: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.TOTAL_AMOUNT');
62: end if;
63:
64: /* validate currency */
65: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
66: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.CURRENCY_CODE');
67: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.CURRENCY_CODE = ' || P_PMT_REC.CURRENCY_CODE);
68: END IF;
69: if P_PMT_REC.CURRENCY_CODE is null
70: then
63:
64: /* validate currency */
65: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
66: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.CURRENCY_CODE');
67: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.CURRENCY_CODE = ' || P_PMT_REC.CURRENCY_CODE);
68: END IF;
69: if P_PMT_REC.CURRENCY_CODE is null
70: then
71: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
68: END IF;
69: if P_PMT_REC.CURRENCY_CODE is null
70: then
71: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
72: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.CURRENCY_CODE failed validation');
73: END IF;
74: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
75: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
76: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.CURRENCY_CODE');
79: end if;
80:
81: /* validate exchange_rate_type */
82: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
83: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.PAYMENT_TARGET = ' || P_PMT_REC.PAYMENT_TARGET);
84: END IF;
85: if P_PMT_REC.PAYMENT_TARGET = 'ACCOUNTS' or P_PMT_REC.PAYMENT_TARGET = 'INVOICES'
86: then
87: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
84: END IF;
85: if P_PMT_REC.PAYMENT_TARGET = 'ACCOUNTS' or P_PMT_REC.PAYMENT_TARGET = 'INVOICES'
86: then
87: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
88: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.EXCHANGE_RATE_TYPE');
89: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.EXCHANGE_RATE_TYPE = ' || P_PMT_REC.EXCHANGE_RATE_TYPE);
90: END IF;
91: if P_PMT_REC.EXCHANGE_RATE_TYPE is null
92: then
85: if P_PMT_REC.PAYMENT_TARGET = 'ACCOUNTS' or P_PMT_REC.PAYMENT_TARGET = 'INVOICES'
86: then
87: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
88: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.EXCHANGE_RATE_TYPE');
89: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.EXCHANGE_RATE_TYPE = ' || P_PMT_REC.EXCHANGE_RATE_TYPE);
90: END IF;
91: if P_PMT_REC.EXCHANGE_RATE_TYPE is null
92: then
93: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
90: END IF;
91: if P_PMT_REC.EXCHANGE_RATE_TYPE is null
92: then
93: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
94: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.EXCHANGE_RATE_TYPE failed validation');
95: END IF;
96: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
97: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
98: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.EXCHANGE_RATE_TYPE');
100: RAISE FND_API.G_EXC_ERROR;
101: end if;
102:
103: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
104: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.EXCHANGE_DATE');
105: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.EXCHANGE_DATE = ' || P_PMT_REC.EXCHANGE_DATE);
106: END IF;
107: if P_PMT_REC.EXCHANGE_DATE is null
108: then
101: end if;
102:
103: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
104: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.EXCHANGE_DATE');
105: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.EXCHANGE_DATE = ' || P_PMT_REC.EXCHANGE_DATE);
106: END IF;
107: if P_PMT_REC.EXCHANGE_DATE is null
108: then
109: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
106: END IF;
107: if P_PMT_REC.EXCHANGE_DATE is null
108: then
109: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
110: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.EXCHANGE_DATE failed validation');
111: END IF;
112: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
113: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
114: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.EXCHANGE_DATE');
119:
120: if P_PMT_REC.PAYMENT_TARGET = 'CNSLD' or P_PMT_REC.PAYMENT_TARGET = 'CONTRACTS' then
121: /* validate payee_id */
122: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
123: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.PAYEE_ID');
124: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.PAYEE_ID = ' || P_PMT_REC.PAYEE_ID);
125: END IF;
126: if P_PMT_REC.PAYEE_ID is null
127: then
120: if P_PMT_REC.PAYMENT_TARGET = 'CNSLD' or P_PMT_REC.PAYMENT_TARGET = 'CONTRACTS' then
121: /* validate payee_id */
122: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
123: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.PAYEE_ID');
124: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.PAYEE_ID = ' || P_PMT_REC.PAYEE_ID);
125: END IF;
126: if P_PMT_REC.PAYEE_ID is null
127: then
128: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
125: END IF;
126: if P_PMT_REC.PAYEE_ID is null
127: then
128: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
129: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.PAYEE_ID failed validation');
130: END IF;
131: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
132: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
133: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.PAYEE_ID');
137: end if;
138:
139: /* validate payment details */
140: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
141: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL.COUNT');
142: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL.COUNT = ' || P_PMTDTLS_TBL.COUNT);
143: END IF;
144: if l_count = 0 then
145: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
138:
139: /* validate payment details */
140: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
141: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL.COUNT');
142: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL.COUNT = ' || P_PMTDTLS_TBL.COUNT);
143: END IF;
144: if l_count = 0 then
145: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
146: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL.COUNT failed validation');
142: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL.COUNT = ' || P_PMTDTLS_TBL.COUNT);
143: END IF;
144: if l_count = 0 then
145: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
146: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL.COUNT failed validation');
147: END IF;
148: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
149: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
150: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL.COUNT');
152: RAISE FND_API.G_EXC_ERROR;
153: end if;
154:
155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
156: iex_debug_pub.LogMessage('validate_input: Validating payment details');
157: END IF;
158: FOR i IN 1..l_count LOOP
159: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
160: iex_debug_pub.LogMessage('validate_input: Details record ' || i);
156: iex_debug_pub.LogMessage('validate_input: Validating payment details');
157: END IF;
158: FOR i IN 1..l_count LOOP
159: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
160: iex_debug_pub.LogMessage('validate_input: Details record ' || i);
161: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).AMOUNT');
162: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).AMOUNT = ' || P_PMTDTLS_TBL(i).AMOUNT);
163: END IF;
164: if P_PMTDTLS_TBL(i).AMOUNT is null or P_PMTDTLS_TBL(i).AMOUNT <= 0 then
157: END IF;
158: FOR i IN 1..l_count LOOP
159: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
160: iex_debug_pub.LogMessage('validate_input: Details record ' || i);
161: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).AMOUNT');
162: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).AMOUNT = ' || P_PMTDTLS_TBL(i).AMOUNT);
163: END IF;
164: if P_PMTDTLS_TBL(i).AMOUNT is null or P_PMTDTLS_TBL(i).AMOUNT <= 0 then
165: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
158: FOR i IN 1..l_count LOOP
159: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
160: iex_debug_pub.LogMessage('validate_input: Details record ' || i);
161: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).AMOUNT');
162: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).AMOUNT = ' || P_PMTDTLS_TBL(i).AMOUNT);
163: END IF;
164: if P_PMTDTLS_TBL(i).AMOUNT is null or P_PMTDTLS_TBL(i).AMOUNT <= 0 then
165: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
166: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).AMOUNT failed validation');
162: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).AMOUNT = ' || P_PMTDTLS_TBL(i).AMOUNT);
163: END IF;
164: if P_PMTDTLS_TBL(i).AMOUNT is null or P_PMTDTLS_TBL(i).AMOUNT <= 0 then
165: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
166: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).AMOUNT failed validation');
167: END IF;
168: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
169: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
170: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').AMOUNT');
173: end if;
174: l_amount := l_amount + P_PMTDTLS_TBL(i).AMOUNT;
175:
176: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
177: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID');
178: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
179: END IF;
180: if P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID is null then
181: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
174: l_amount := l_amount + P_PMTDTLS_TBL(i).AMOUNT;
175:
176: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
177: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID');
178: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
179: END IF;
180: if P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID is null then
181: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
182: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID failed validation');
178: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
179: END IF;
180: if P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID is null then
181: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
182: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID failed validation');
183: END IF;
184: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
185: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
186: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').CUST_ACCOUNT_ID');
189: end if;
190:
191: if P_PMT_REC.PAYMENT_TARGET = 'ACCOUNTS' then
192: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
193: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CUST_SITE_USE_ID');
194: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
195: END IF;
196: if P_PMTDTLS_TBL(i).CUST_SITE_USE_ID is null then
197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
190:
191: if P_PMT_REC.PAYMENT_TARGET = 'ACCOUNTS' then
192: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
193: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CUST_SITE_USE_ID');
194: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
195: END IF;
196: if P_PMTDTLS_TBL(i).CUST_SITE_USE_ID is null then
197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
198: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_SITE_USE_ID failed validation');
194: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
195: END IF;
196: if P_PMTDTLS_TBL(i).CUST_SITE_USE_ID is null then
197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
198: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_SITE_USE_ID failed validation');
199: END IF;
200: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
201: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
202: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').CUST_SITE_USE_ID');
204: RAISE FND_API.G_EXC_ERROR;
205: end if;
206: elsif P_PMT_REC.PAYMENT_TARGET = 'INVOICES' then
207: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
208: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CUST_SITE_USE_ID');
209: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_SITE_USE_ID = ' || P_PMTDTLS_TBL(i).CUST_SITE_USE_ID);
210: END IF;
211: if P_PMTDTLS_TBL(i).CUST_SITE_USE_ID is null then
212: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
205: end if;
206: elsif P_PMT_REC.PAYMENT_TARGET = 'INVOICES' then
207: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
208: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CUST_SITE_USE_ID');
209: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_SITE_USE_ID = ' || P_PMTDTLS_TBL(i).CUST_SITE_USE_ID);
210: END IF;
211: if P_PMTDTLS_TBL(i).CUST_SITE_USE_ID is null then
212: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
213: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_SITE_USE_ID failed validation');
209: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_SITE_USE_ID = ' || P_PMTDTLS_TBL(i).CUST_SITE_USE_ID);
210: END IF;
211: if P_PMTDTLS_TBL(i).CUST_SITE_USE_ID is null then
212: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
213: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CUST_SITE_USE_ID failed validation');
214: END IF;
215: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
216: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
217: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').CUST_SITE_USE_ID');
218: FND_MSG_PUB.Add;
219: RAISE FND_API.G_EXC_ERROR;
220: end if;
221: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
222: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID');
223: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID = ' || P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID);
224: END IF;
225: if P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID is null then
226: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
219: RAISE FND_API.G_EXC_ERROR;
220: end if;
221: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
222: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID');
223: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID = ' || P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID);
224: END IF;
225: if P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID is null then
226: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
227: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID failed validation');
223: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID = ' || P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID);
224: END IF;
225: if P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID is null then
226: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
227: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).PAYMENT_SCHEDULE_ID failed validation');
228: END IF;
229: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
230: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
231: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').PAYMENT_SCHEDULE_ID');
233: RAISE FND_API.G_EXC_ERROR;
234: end if;
235: elsif P_PMT_REC.PAYMENT_TARGET = 'CNSLD' then
236: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
237: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID');
238: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID = ' || P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID);
239: END IF;
240: if P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID is null then
241: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
234: end if;
235: elsif P_PMT_REC.PAYMENT_TARGET = 'CNSLD' then
236: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
237: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID');
238: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID = ' || P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID);
239: END IF;
240: if P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID is null then
241: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
242: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID failed validation');
238: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID = ' || P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID);
239: END IF;
240: if P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID is null then
241: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
242: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID failed validation');
243: END IF;
244: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
245: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
246: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').CNSLD_INVOICE_ID');
248: RAISE FND_API.G_EXC_ERROR;
249: end if;
250: elsif P_PMT_REC.PAYMENT_TARGET = 'CONTRACTS' then
251: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
252: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CONTRACT_ID');
253: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CONTRACT_ID = ' || P_PMTDTLS_TBL(i).CONTRACT_ID);
254: END IF;
255: if P_PMTDTLS_TBL(i).CONTRACT_ID is null then
256: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
249: end if;
250: elsif P_PMT_REC.PAYMENT_TARGET = 'CONTRACTS' then
251: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
252: iex_debug_pub.LogMessage('validate_input: Validating P_PMTDTLS_TBL(i).CONTRACT_ID');
253: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CONTRACT_ID = ' || P_PMTDTLS_TBL(i).CONTRACT_ID);
254: END IF;
255: if P_PMTDTLS_TBL(i).CONTRACT_ID is null then
256: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
257: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CONTRACT_ID failed validation');
253: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CONTRACT_ID = ' || P_PMTDTLS_TBL(i).CONTRACT_ID);
254: END IF;
255: if P_PMTDTLS_TBL(i).CONTRACT_ID is null then
256: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
257: iex_debug_pub.LogMessage('validate_input: P_PMTDTLS_TBL(i).CONTRACT_ID failed validation');
258: END IF;
259: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
260: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
261: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTDTLS_TBL(' || i || ').CONTRACT_ID');
264: end if;
265: end if;
266: END LOOP;
267: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
268: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.TOTAL_AMOUNT and sum of P_PMTDTLS_TBL(i).AMOUNT');
269: iex_debug_pub.LogMessage('validate_input: l_amount = ' || l_amount);
270: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.TOTAL_AMOUNT = ' ||P_PMT_REC.TOTAL_AMOUNT);
271: END IF;
272: if l_amount <> P_PMT_REC.TOTAL_AMOUNT then
265: end if;
266: END LOOP;
267: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
268: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.TOTAL_AMOUNT and sum of P_PMTDTLS_TBL(i).AMOUNT');
269: iex_debug_pub.LogMessage('validate_input: l_amount = ' || l_amount);
270: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.TOTAL_AMOUNT = ' ||P_PMT_REC.TOTAL_AMOUNT);
271: END IF;
272: if l_amount <> P_PMT_REC.TOTAL_AMOUNT then
273: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
266: END LOOP;
267: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
268: iex_debug_pub.LogMessage('validate_input: Validating P_PMT_REC.TOTAL_AMOUNT and sum of P_PMTDTLS_TBL(i).AMOUNT');
269: iex_debug_pub.LogMessage('validate_input: l_amount = ' || l_amount);
270: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.TOTAL_AMOUNT = ' ||P_PMT_REC.TOTAL_AMOUNT);
271: END IF;
272: if l_amount <> P_PMT_REC.TOTAL_AMOUNT then
273: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
274: iex_debug_pub.LogMessage('validate_input: l_amount <> P_PMT_REC.TOTAL_AMOUNT failed validation');
270: iex_debug_pub.LogMessage('validate_input: P_PMT_REC.TOTAL_AMOUNT = ' ||P_PMT_REC.TOTAL_AMOUNT);
271: END IF;
272: if l_amount <> P_PMT_REC.TOTAL_AMOUNT then
273: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
274: iex_debug_pub.LogMessage('validate_input: l_amount <> P_PMT_REC.TOTAL_AMOUNT failed validation');
275: END IF;
276: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
277: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
278: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMT_REC.TOTAL_AMOUNT');
281: end if;
282:
283: /* validate payment instrument */
284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
285: iex_debug_pub.LogMessage('validate_input: Validating P_PMTINSTR_REC.USE_INSTRUMENT');
286: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.USE_INSTRUMENT = ' || P_PMTINSTR_REC.USE_INSTRUMENT);
287: END IF;
288: if P_PMTINSTR_REC.USE_INSTRUMENT is null or
289: (P_PMTINSTR_REC.USE_INSTRUMENT <> 'CC' and
282:
283: /* validate payment instrument */
284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
285: iex_debug_pub.LogMessage('validate_input: Validating P_PMTINSTR_REC.USE_INSTRUMENT');
286: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.USE_INSTRUMENT = ' || P_PMTINSTR_REC.USE_INSTRUMENT);
287: END IF;
288: if P_PMTINSTR_REC.USE_INSTRUMENT is null or
289: (P_PMTINSTR_REC.USE_INSTRUMENT <> 'CC' and
290: P_PMTINSTR_REC.USE_INSTRUMENT <> 'BA')
289: (P_PMTINSTR_REC.USE_INSTRUMENT <> 'CC' and
290: P_PMTINSTR_REC.USE_INSTRUMENT <> 'BA')
291: then
292: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
293: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.USE_INSTRUMENT failed validation');
294: END IF;
295: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
296: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
297: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTINSTR_REC.USE_INSTRUMENT');
301:
302: /* -- begin - uptake funds capture changes - varangan
303: if P_PMTINSTR_REC.USE_INSTRUMENT = 'CC' then
304: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
305: iex_debug_pub.LogMessage('validate_input: Validating CC data');
306: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM);
307: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_TYPE = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_TYPE);
308: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE);
309: END IF;
302: /* -- begin - uptake funds capture changes - varangan
303: if P_PMTINSTR_REC.USE_INSTRUMENT = 'CC' then
304: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
305: iex_debug_pub.LogMessage('validate_input: Validating CC data');
306: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM);
307: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_TYPE = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_TYPE);
308: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE);
309: END IF;
310: if P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM is null or
303: if P_PMTINSTR_REC.USE_INSTRUMENT = 'CC' then
304: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
305: iex_debug_pub.LogMessage('validate_input: Validating CC data');
306: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM);
307: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_TYPE = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_TYPE);
308: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE);
309: END IF;
310: if P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM is null or
311: P_PMTINSTR_REC.CREDITCARDINSTR.CC_TYPE is null or
304: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
305: iex_debug_pub.LogMessage('validate_input: Validating CC data');
306: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM);
307: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_TYPE = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_TYPE);
308: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE = ' || P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE);
309: END IF;
310: if P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM is null or
311: P_PMTINSTR_REC.CREDITCARDINSTR.CC_TYPE is null or
312: P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE is null
311: P_PMTINSTR_REC.CREDITCARDINSTR.CC_TYPE is null or
312: P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE is null
313: then
314: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
315: iex_debug_pub.LogMessage('validate_input: CC instrument failed validation');
316: END IF;
317: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
318: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
319: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTINSTR_REC.CREDITCARDINSTR');
321: RAISE FND_API.G_EXC_ERROR;
322: end if;
323: elsif P_PMTINSTR_REC.USE_INSTRUMENT = 'BA' then
324: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
325: iex_debug_pub.LogMessage('validate_input: Validating BA data');
326: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID);
327: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM);
328: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE);
329: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME);
322: end if;
323: elsif P_PMTINSTR_REC.USE_INSTRUMENT = 'BA' then
324: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
325: iex_debug_pub.LogMessage('validate_input: Validating BA data');
326: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID);
327: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM);
328: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE);
329: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME);
330: END IF;
323: elsif P_PMTINSTR_REC.USE_INSTRUMENT = 'BA' then
324: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
325: iex_debug_pub.LogMessage('validate_input: Validating BA data');
326: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID);
327: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM);
328: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE);
329: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME);
330: END IF;
331: if P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID is null or
324: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
325: iex_debug_pub.LogMessage('validate_input: Validating BA data');
326: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID);
327: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM);
328: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE);
329: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME);
330: END IF;
331: if P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID is null or
332: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM is null or
325: iex_debug_pub.LogMessage('validate_input: Validating BA data');
326: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID);
327: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM);
328: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE);
329: iex_debug_pub.LogMessage('validate_input: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME = ' || P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME);
330: END IF;
331: if P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID is null or
332: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM is null or
333: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE is null or
333: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE is null or
334: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME is null
335: then
336: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
337: iex_debug_pub.LogMessage('validate_input: BA instrument failed validation');
338: END IF;
339: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
340: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.CREATE_PAYMENT');
341: FND_MESSAGE.SET_TOKEN('API_PARAMETER', 'P_PMTINSTR_REC.BANKACCTINSTR');
353: l_fun_currency VARCHAR2(15);
354: begin
355: -- get functional currency
356: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
357: iex_debug_pub.LogMessage('get_fun_currency: Begin');
358: END IF;
359: IEX_CURRENCY_PVT.GET_FUNCT_CURR(p_api_version => 1.0,
360: p_init_msg_list => FND_API.G_FALSE,
361: p_commit => FND_API.G_FALSE,
370: null;
371: END IF;
372:
373: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
374: iex_debug_pub.LogMessage('get_fun_currency: l_fun_currency = ' || l_fun_currency);
375: END IF;
376: return l_fun_currency;
377: end;
378:
392:
393: BEGIN
394:
395: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
396: iex_debug_pub.LogMessage('GET_PAYER_INFO: Begin of GET_PAYER_INFO');
397: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_REL_ID = ' || P_PAYER_PARTY_REL_ID);
398: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_ORG_ID = ' || P_PAYER_PARTY_ORG_ID);
399: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_PER_ID = ' || P_PAYER_PARTY_PER_ID);
400: END IF;
393: BEGIN
394:
395: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
396: iex_debug_pub.LogMessage('GET_PAYER_INFO: Begin of GET_PAYER_INFO');
397: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_REL_ID = ' || P_PAYER_PARTY_REL_ID);
398: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_ORG_ID = ' || P_PAYER_PARTY_ORG_ID);
399: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_PER_ID = ' || P_PAYER_PARTY_PER_ID);
400: END IF;
401:
394:
395: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
396: iex_debug_pub.LogMessage('GET_PAYER_INFO: Begin of GET_PAYER_INFO');
397: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_REL_ID = ' || P_PAYER_PARTY_REL_ID);
398: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_ORG_ID = ' || P_PAYER_PARTY_ORG_ID);
399: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_PER_ID = ' || P_PAYER_PARTY_PER_ID);
400: END IF;
401:
402: if P_PAYER_PARTY_REL_ID is not null and
395: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
396: iex_debug_pub.LogMessage('GET_PAYER_INFO: Begin of GET_PAYER_INFO');
397: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_REL_ID = ' || P_PAYER_PARTY_REL_ID);
398: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_ORG_ID = ' || P_PAYER_PARTY_ORG_ID);
399: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_PARTY_PER_ID = ' || P_PAYER_PARTY_PER_ID);
400: END IF;
401:
402: if P_PAYER_PARTY_REL_ID is not null and
403: P_PAYER_PARTY_ORG_ID is not null and
402: if P_PAYER_PARTY_REL_ID is not null and
403: P_PAYER_PARTY_ORG_ID is not null and
404: P_PAYER_PARTY_PER_ID is not null then
405: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
406: iex_debug_pub.LogMessage('GET_PAYER_INFO: First case');
407: END IF;
408: X_NOTE_PAYER_NUM_ID := P_PAYER_PARTY_REL_ID;
409: X_NOTE_PAYER_TYPE := 'PARTY_RELATIONSHIP';
410: X_PAYER_NUM_ID := P_PAYER_PARTY_ORG_ID;
412: if P_PAYER_PARTY_REL_ID is null and
413: P_PAYER_PARTY_ORG_ID is not null and
414: P_PAYER_PARTY_PER_ID is null then
415: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
416: iex_debug_pub.LogMessage('GET_PAYER_INFO: Second case');
417: END IF;
418: X_NOTE_PAYER_NUM_ID := P_PAYER_PARTY_ORG_ID;
419: X_NOTE_PAYER_TYPE := 'PARTY_ORGANIZATION';
420: X_PAYER_NUM_ID := P_PAYER_PARTY_ORG_ID;
421: elsif P_PAYER_PARTY_REL_ID is null and
422: P_PAYER_PARTY_ORG_ID is null and
423: P_PAYER_PARTY_PER_ID is not null then
424: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
425: iex_debug_pub.LogMessage('Third case');
426: END IF;
427: X_NOTE_PAYER_NUM_ID := P_PAYER_PARTY_PER_ID;
428: X_NOTE_PAYER_TYPE := 'PARTY_PERSON';
429: X_PAYER_NUM_ID := P_PAYER_PARTY_PER_ID;
428: X_NOTE_PAYER_TYPE := 'PARTY_PERSON';
429: X_PAYER_NUM_ID := P_PAYER_PARTY_PER_ID;
430: else
431: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
432: iex_debug_pub.LogMessage('GET_PAYER_INFO: Neither');
433: END IF;
434: FND_MESSAGE.SET_NAME('IEX','IEX_WRONG_PARTY');
435: FND_MSG_PUB.Add;
436: RAISE FND_API.G_EXC_ERROR;
439:
440: X_PAYER_ID := to_char(X_PAYER_NUM_ID);
441:
442: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
443: iex_debug_pub.LogMessage('GET_PAYER_INFO: NOTE_PAYER_NUM_ID = ' || X_NOTE_PAYER_NUM_ID);
444: iex_debug_pub.LogMessage('GET_PAYER_INFO: NOTE_PAYER_TYPE = ' || X_NOTE_PAYER_TYPE);
445: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_NUM_ID = ' || X_PAYER_NUM_ID);
446: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_ID = ' || X_PAYER_ID);
447: END IF;
440: X_PAYER_ID := to_char(X_PAYER_NUM_ID);
441:
442: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
443: iex_debug_pub.LogMessage('GET_PAYER_INFO: NOTE_PAYER_NUM_ID = ' || X_NOTE_PAYER_NUM_ID);
444: iex_debug_pub.LogMessage('GET_PAYER_INFO: NOTE_PAYER_TYPE = ' || X_NOTE_PAYER_TYPE);
445: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_NUM_ID = ' || X_PAYER_NUM_ID);
446: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_ID = ' || X_PAYER_ID);
447: END IF;
448:
441:
442: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
443: iex_debug_pub.LogMessage('GET_PAYER_INFO: NOTE_PAYER_NUM_ID = ' || X_NOTE_PAYER_NUM_ID);
444: iex_debug_pub.LogMessage('GET_PAYER_INFO: NOTE_PAYER_TYPE = ' || X_NOTE_PAYER_TYPE);
445: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_NUM_ID = ' || X_PAYER_NUM_ID);
446: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_ID = ' || X_PAYER_ID);
447: END IF;
448:
449: OPEN get_payer_name_crs(X_PAYER_NUM_ID);
442: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
443: iex_debug_pub.LogMessage('GET_PAYER_INFO: NOTE_PAYER_NUM_ID = ' || X_NOTE_PAYER_NUM_ID);
444: iex_debug_pub.LogMessage('GET_PAYER_INFO: NOTE_PAYER_TYPE = ' || X_NOTE_PAYER_TYPE);
445: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_NUM_ID = ' || X_PAYER_NUM_ID);
446: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_ID = ' || X_PAYER_ID);
447: END IF;
448:
449: OPEN get_payer_name_crs(X_PAYER_NUM_ID);
450: FETCH get_payer_name_crs INTO X_PAYER_NAME;
450: FETCH get_payer_name_crs INTO X_PAYER_NAME;
451:
452: if get_payer_name_crs%NOTFOUND then
453: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
454: iex_debug_pub.LogMessage('No party');
455: END IF;
456: CLOSE get_payer_name_crs;
457: FND_MESSAGE.SET_NAME('IEX','IEX_WRONG_PARTY');
458: FND_MSG_PUB.Add;
460: end if;
461: CLOSE get_payer_name_crs;
462:
463: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
464: iex_debug_pub.LogMessage('GET_PAYER_INFO: PAYER_NAME = ' || X_PAYER_NAME);
465: END IF;
466: END;
467:
468: procedure get_ar_payment_method(p_payment_type in varchar2,
472: l_api_name CONSTANT VARCHAR2(30) := 'GET_AR_PAYMENT_METHOD';
473:
474: begin
475: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
476: iex_debug_pub.LogMessage(l_api_name || ': Start of API');
477: END IF;
478: x_payment_method := null;
479: x_payment_method_id := null;
480:
482:
483: x_payment_method := fnd_profile.value('IEX_CCARD_REMITTANCE');
484: if x_payment_method is null then
485: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
486: iex_debug_pub.LogMessage(l_api_name || ': failed to get CC remittance');
487: END IF;
488: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_CC_REMITTANCE');
489: FND_MSG_PUB.Add;
490: RAISE FND_API.G_EXC_ERROR;
495:
496: x_payment_method := fnd_profile.value('IEX_EFT_REMITTANCE');
497: if x_payment_method is null then
498: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
499: iex_debug_pub.LogMessage(l_api_name || ': failed to get BA remittance');
500: END IF;
501: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_EFT_REMITTANCE');
502: FND_MSG_PUB.Add;
503: RAISE FND_API.G_EXC_ERROR;
505: x_payment_method_id := to_number(x_payment_method);
506:
507: end if;
508: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
509: iex_debug_pub.LogMessage(l_api_name || ': x_payment_method = ' || x_payment_method);
510: iex_debug_pub.LogMessage(l_api_name || ': x_payment_method_id = ' || x_payment_method_id);
511: iex_debug_pub.LogMessage(l_api_name || ': End of API');
512: END IF;
513: end;
506:
507: end if;
508: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
509: iex_debug_pub.LogMessage(l_api_name || ': x_payment_method = ' || x_payment_method);
510: iex_debug_pub.LogMessage(l_api_name || ': x_payment_method_id = ' || x_payment_method_id);
511: iex_debug_pub.LogMessage(l_api_name || ': End of API');
512: END IF;
513: end;
514:
507: end if;
508: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
509: iex_debug_pub.LogMessage(l_api_name || ': x_payment_method = ' || x_payment_method);
510: iex_debug_pub.LogMessage(l_api_name || ': x_payment_method_id = ' || x_payment_method_id);
511: iex_debug_pub.LogMessage(l_api_name || ': End of API');
512: END IF;
513: end;
514:
515: procedure create_ar_cc_bank_account(p_cust_account_id in number,
524: is
525: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_AR_CC_BANK_ACCOUNT';
526: begin
527: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
528: iex_debug_pub.LogMessage(l_api_name || ': Start of API');
529: END IF;
530: x_bank_account_id := null;
531: x_bank_account_uses_id := null;
532: x_branch_id := 1;
531: x_bank_account_uses_id := null;
532: x_branch_id := 1;
533:
534: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
535: --iex_debug_pub.LogMessage(l_api_name || ': CC number = ' || p_cc_number);
536: iex_debug_pub.LogMessage(l_api_name || ': CC exp date = ' || p_cc_exp_date);
537: iex_debug_pub.LogMessage(l_api_name || ': CC holder name = ' || p_cc_holder_name);
538: END IF;
539:
532: x_branch_id := 1;
533:
534: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
535: --iex_debug_pub.LogMessage(l_api_name || ': CC number = ' || p_cc_number);
536: iex_debug_pub.LogMessage(l_api_name || ': CC exp date = ' || p_cc_exp_date);
537: iex_debug_pub.LogMessage(l_api_name || ': CC holder name = ' || p_cc_holder_name);
538: END IF;
539:
540: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
533:
534: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
535: --iex_debug_pub.LogMessage(l_api_name || ': CC number = ' || p_cc_number);
536: iex_debug_pub.LogMessage(l_api_name || ': CC exp date = ' || p_cc_exp_date);
537: iex_debug_pub.LogMessage(l_api_name || ': CC holder name = ' || p_cc_holder_name);
538: END IF;
539:
540: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
541: iex_debug_pub.LogMessage(l_api_name || ': Creating cc bank account for cust_account_id ' || p_cust_account_id);
537: iex_debug_pub.LogMessage(l_api_name || ': CC holder name = ' || p_cc_holder_name);
538: END IF;
539:
540: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
541: iex_debug_pub.LogMessage(l_api_name || ': Creating cc bank account for cust_account_id ' || p_cust_account_id);
542: END IF;
543: /* obsoleted ar pkg ..fixed a bug 5130923
544: arp_bank_pkg.process_cust_bank_account(
545: p_trx_date => trunc(sysdate),
556: p_payment_instrument => 'CREDIT_CARD'); */
557:
558:
559: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
560: iex_debug_pub.LogMessage(l_api_name || ': Successfully created cc bank account');
561: iex_debug_pub.LogMessage(l_api_name || ': CC bank_account_id = ' || x_bank_account_id);
562: iex_debug_pub.LogMessage(l_api_name || ': CC bank_account_uses_id = ' || x_bank_account_uses_id);
563: iex_debug_pub.LogMessage(l_api_name || ': CC bank_branch_id = ' || x_branch_id);
564: iex_debug_pub.LogMessage(l_api_name || ': End of API');
557:
558:
559: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
560: iex_debug_pub.LogMessage(l_api_name || ': Successfully created cc bank account');
561: iex_debug_pub.LogMessage(l_api_name || ': CC bank_account_id = ' || x_bank_account_id);
562: iex_debug_pub.LogMessage(l_api_name || ': CC bank_account_uses_id = ' || x_bank_account_uses_id);
563: iex_debug_pub.LogMessage(l_api_name || ': CC bank_branch_id = ' || x_branch_id);
564: iex_debug_pub.LogMessage(l_api_name || ': End of API');
565: END IF;
558:
559: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
560: iex_debug_pub.LogMessage(l_api_name || ': Successfully created cc bank account');
561: iex_debug_pub.LogMessage(l_api_name || ': CC bank_account_id = ' || x_bank_account_id);
562: iex_debug_pub.LogMessage(l_api_name || ': CC bank_account_uses_id = ' || x_bank_account_uses_id);
563: iex_debug_pub.LogMessage(l_api_name || ': CC bank_branch_id = ' || x_branch_id);
564: iex_debug_pub.LogMessage(l_api_name || ': End of API');
565: END IF;
566: end;
559: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
560: iex_debug_pub.LogMessage(l_api_name || ': Successfully created cc bank account');
561: iex_debug_pub.LogMessage(l_api_name || ': CC bank_account_id = ' || x_bank_account_id);
562: iex_debug_pub.LogMessage(l_api_name || ': CC bank_account_uses_id = ' || x_bank_account_uses_id);
563: iex_debug_pub.LogMessage(l_api_name || ': CC bank_branch_id = ' || x_branch_id);
564: iex_debug_pub.LogMessage(l_api_name || ': End of API');
565: END IF;
566: end;
567:
560: iex_debug_pub.LogMessage(l_api_name || ': Successfully created cc bank account');
561: iex_debug_pub.LogMessage(l_api_name || ': CC bank_account_id = ' || x_bank_account_id);
562: iex_debug_pub.LogMessage(l_api_name || ': CC bank_account_uses_id = ' || x_bank_account_uses_id);
563: iex_debug_pub.LogMessage(l_api_name || ': CC bank_branch_id = ' || x_branch_id);
564: iex_debug_pub.LogMessage(l_api_name || ': End of API');
565: END IF;
566: end;
567:
568: procedure create_ar_ba_bank_account(p_cust_account_id in number,
578: is
579: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_AR_BA_BANK_ACCOUNT';
580: begin
581: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
582: iex_debug_pub.LogMessage(l_api_name || ': Start of API');
583: END IF;
584: x_bank_account_id := null;
585: x_bank_account_uses_id := null;
586: x_branch_id := null;
585: x_bank_account_uses_id := null;
586: x_branch_id := null;
587:
588: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
589: iex_debug_pub.LogMessage(l_api_name || ': BA routing = ' || p_ba_routing_number);
590: iex_debug_pub.LogMessage(l_api_name || ': BA number = ' || p_ba_number);
591: iex_debug_pub.LogMessage(l_api_name || ': BA type = ' || p_ba_type);
592: iex_debug_pub.LogMessage(l_api_name || ': BA holder name = ' || p_ba_holder_name);
593: END IF;
586: x_branch_id := null;
587:
588: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
589: iex_debug_pub.LogMessage(l_api_name || ': BA routing = ' || p_ba_routing_number);
590: iex_debug_pub.LogMessage(l_api_name || ': BA number = ' || p_ba_number);
591: iex_debug_pub.LogMessage(l_api_name || ': BA type = ' || p_ba_type);
592: iex_debug_pub.LogMessage(l_api_name || ': BA holder name = ' || p_ba_holder_name);
593: END IF;
594:
587:
588: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
589: iex_debug_pub.LogMessage(l_api_name || ': BA routing = ' || p_ba_routing_number);
590: iex_debug_pub.LogMessage(l_api_name || ': BA number = ' || p_ba_number);
591: iex_debug_pub.LogMessage(l_api_name || ': BA type = ' || p_ba_type);
592: iex_debug_pub.LogMessage(l_api_name || ': BA holder name = ' || p_ba_holder_name);
593: END IF;
594:
595: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
588: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
589: iex_debug_pub.LogMessage(l_api_name || ': BA routing = ' || p_ba_routing_number);
590: iex_debug_pub.LogMessage(l_api_name || ': BA number = ' || p_ba_number);
591: iex_debug_pub.LogMessage(l_api_name || ': BA type = ' || p_ba_type);
592: iex_debug_pub.LogMessage(l_api_name || ': BA holder name = ' || p_ba_holder_name);
593: END IF;
594:
595: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
596: iex_debug_pub.LogMessage(l_api_name || ': Validating routing number...');
592: iex_debug_pub.LogMessage(l_api_name || ': BA holder name = ' || p_ba_holder_name);
593: END IF;
594:
595: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
596: iex_debug_pub.LogMessage(l_api_name || ': Validating routing number...');
597: END IF;
598:
599: /* obsoleted ar pkg ..fixed a bug 5130923
600: if ARP_BANK_DIRECTORY.is_routing_number_valid(p_routing_number => p_ba_routing_number) = 0 then
598:
599: /* obsoleted ar pkg ..fixed a bug 5130923
600: if ARP_BANK_DIRECTORY.is_routing_number_valid(p_routing_number => p_ba_routing_number) = 0 then
601: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
602: iex_debug_pub.LogMessage('Invalid routing number');
603: END IF;
604: FND_MESSAGE.SET_NAME('IEX', 'IEX_INVALID_ROUTING_NUM');
605: FND_MSG_PUB.Add;
606: RAISE FND_API.G_EXC_ERROR;
608: */
609:
610:
611: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
612: iex_debug_pub.LogMessage(l_api_name || ': Creating/selecting bank branch...');
613: END IF;
614:
615: /* obsoleted ar pkg ..fixed a bug 5130923
616: arp_bank_pkg.get_bank_branch_id(p_routing_number => p_ba_routing_number,
617: x_branch_party_id => x_branch_id);
618: */
619:
620: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
621: iex_debug_pub.LogMessage(l_api_name || ': branch_id = ' || x_branch_id);
622: END IF;
623:
624: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
625: iex_debug_pub.LogMessage(l_api_name || ': Creating ba bank account for cust_account_id ' || p_cust_account_id);
621: iex_debug_pub.LogMessage(l_api_name || ': branch_id = ' || x_branch_id);
622: END IF;
623:
624: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
625: iex_debug_pub.LogMessage(l_api_name || ': Creating ba bank account for cust_account_id ' || p_cust_account_id);
626: END IF;
627:
628: /* obsoleted ar pkg ..fixed a bug 5130923
629: arp_bank_pkg.process_cust_bank_account(
642: */
643:
644:
645: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
646: iex_debug_pub.LogMessage(l_api_name || ': Successfully created ba bank account');
647: iex_debug_pub.LogMessage(l_api_name || ': BA bank_account_id = ' || x_bank_account_id);
648: iex_debug_pub.LogMessage(l_api_name || ': BA bank_account_uses_id = ' || x_bank_account_uses_id);
649: iex_debug_pub.LogMessage(l_api_name || ': BA bank_branch_id = ' || x_branch_id);
650: iex_debug_pub.LogMessage(l_api_name || ': End of API');
643:
644:
645: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
646: iex_debug_pub.LogMessage(l_api_name || ': Successfully created ba bank account');
647: iex_debug_pub.LogMessage(l_api_name || ': BA bank_account_id = ' || x_bank_account_id);
648: iex_debug_pub.LogMessage(l_api_name || ': BA bank_account_uses_id = ' || x_bank_account_uses_id);
649: iex_debug_pub.LogMessage(l_api_name || ': BA bank_branch_id = ' || x_branch_id);
650: iex_debug_pub.LogMessage(l_api_name || ': End of API');
651: END IF;
644:
645: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
646: iex_debug_pub.LogMessage(l_api_name || ': Successfully created ba bank account');
647: iex_debug_pub.LogMessage(l_api_name || ': BA bank_account_id = ' || x_bank_account_id);
648: iex_debug_pub.LogMessage(l_api_name || ': BA bank_account_uses_id = ' || x_bank_account_uses_id);
649: iex_debug_pub.LogMessage(l_api_name || ': BA bank_branch_id = ' || x_branch_id);
650: iex_debug_pub.LogMessage(l_api_name || ': End of API');
651: END IF;
652: end;
645: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
646: iex_debug_pub.LogMessage(l_api_name || ': Successfully created ba bank account');
647: iex_debug_pub.LogMessage(l_api_name || ': BA bank_account_id = ' || x_bank_account_id);
648: iex_debug_pub.LogMessage(l_api_name || ': BA bank_account_uses_id = ' || x_bank_account_uses_id);
649: iex_debug_pub.LogMessage(l_api_name || ': BA bank_branch_id = ' || x_branch_id);
650: iex_debug_pub.LogMessage(l_api_name || ': End of API');
651: END IF;
652: end;
653:
646: iex_debug_pub.LogMessage(l_api_name || ': Successfully created ba bank account');
647: iex_debug_pub.LogMessage(l_api_name || ': BA bank_account_id = ' || x_bank_account_id);
648: iex_debug_pub.LogMessage(l_api_name || ': BA bank_account_uses_id = ' || x_bank_account_uses_id);
649: iex_debug_pub.LogMessage(l_api_name || ': BA bank_branch_id = ' || x_branch_id);
650: iex_debug_pub.LogMessage(l_api_name || ': End of API');
651: END IF;
652: end;
653:
654: PROCEDURE CREATE_AR_PAYMENT(
748: l_return_status := FND_API.G_RET_STS_SUCCESS;
749:
750: -- START OF BODY OF API
751: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
752: iex_debug_pub.LogMessage(l_api_name || ': Start of API');
753: END IF;
754:
755: -- Fix a bug 5897567 02/21/07 by Ehuh
756: if G_ONLINE_CCPAY = 'Y' then l_call_payment_processor := FND_API.G_TRUE;
760:
761:
762: /* validate all input parameters */
763: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
764: iex_debug_pub.LogMessage(l_api_name || ': Before validate_input');
765: END IF;
766:
767: validate_input(P_PMT_REC => P_PMT_REC,
768: P_PMTDTLS_TBL => P_PMTDTLS_TBL,
768: P_PMTDTLS_TBL => P_PMTDTLS_TBL,
769: P_PMTINSTR_REC => P_PMTINSTR_REC);
770:
771: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
772: iex_debug_pub.LogMessage(l_api_name || ': After validate_input');
773: END IF;
774:
775: /* validate payer parties and get payer info */
776: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
773: END IF;
774:
775: /* validate payer parties and get payer info */
776: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
777: iex_debug_pub.LogMessage(l_api_name || ': Before GET_PAYER_INFO');
778: END IF;
779: GET_PAYER_INFO(P_PAYER_PARTY_REL_ID => P_PMT_REC.PAYER_PARTY_REL_ID,
780: P_PAYER_PARTY_ORG_ID => P_PMT_REC.PAYER_PARTY_ORG_ID,
781: P_PAYER_PARTY_PER_ID => P_PMT_REC.PAYER_PARTY_PER_ID,
785: X_PAYER_ID => l_payer_id,
786: X_PAYER_NAME => l_payer_name);
787:
788: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
789: iex_debug_pub.LogMessage(l_api_name || ': After GET_PAYER_INFO');
790: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
791: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
792: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
793: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
786: X_PAYER_NAME => l_payer_name);
787:
788: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
789: iex_debug_pub.LogMessage(l_api_name || ': After GET_PAYER_INFO');
790: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
791: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
792: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
793: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
794: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
787:
788: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
789: iex_debug_pub.LogMessage(l_api_name || ': After GET_PAYER_INFO');
790: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
791: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
792: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
793: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
794: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
795: iex_debug_pub.LogMessage(l_api_name || ': l_payer_name = ' || l_payer_name);
788: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
789: iex_debug_pub.LogMessage(l_api_name || ': After GET_PAYER_INFO');
790: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
791: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
792: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
793: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
794: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
795: iex_debug_pub.LogMessage(l_api_name || ': l_payer_name = ' || l_payer_name);
796: END IF;
789: iex_debug_pub.LogMessage(l_api_name || ': After GET_PAYER_INFO');
790: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
791: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
792: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
793: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
794: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
795: iex_debug_pub.LogMessage(l_api_name || ': l_payer_name = ' || l_payer_name);
796: END IF;
797:
790: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
791: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
792: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
793: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
794: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
795: iex_debug_pub.LogMessage(l_api_name || ': l_payer_name = ' || l_payer_name);
796: END IF;
797:
798: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
791: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
792: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
793: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
794: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
795: iex_debug_pub.LogMessage(l_api_name || ': l_payer_name = ' || l_payer_name);
796: END IF;
797:
798: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
799: iex_debug_pub.LogMessage(l_api_name || ': Creating IEX payment record...');
795: iex_debug_pub.LogMessage(l_api_name || ': l_payer_name = ' || l_payer_name);
796: END IF;
797:
798: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
799: iex_debug_pub.LogMessage(l_api_name || ': Creating IEX payment record...');
800: end if ;
801:
802: -- generate new payment id
803: OPEN pay_genid_crs;
804: FETCH pay_genid_crs INTO l_payment_id;
805: CLOSE pay_genid_crs;
806:
807: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
808: iex_debug_pub.LogMessage(l_api_name || ': New payment_id = ' || l_payment_id);
809: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_PAYMENTS_PKG.Insert_Row');
810: END IF;
811:
812: IEX_PAYMENTS_PKG.Insert_Row(
805: CLOSE pay_genid_crs;
806:
807: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
808: iex_debug_pub.LogMessage(l_api_name || ': New payment_id = ' || l_payment_id);
809: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_PAYMENTS_PKG.Insert_Row');
810: END IF;
811:
812: IEX_PAYMENTS_PKG.Insert_Row(
813: X_ROWID => l_rowid,
845: P_ATTRIBUTE14 => P_PMT_REC.ATTRIBUTES.ATTRIBUTE14,
846: P_ATTRIBUTE15 => P_PMT_REC.ATTRIBUTES.ATTRIBUTE15);
847:
848: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
849: iex_debug_pub.LogMessage(l_api_name || ': After IEX_PAYMENTS_PKG.Insert_Row');
850: End if ;
851:
852: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
853: iex_debug_pub.LogMessage(l_api_name || ': After') ;
849: iex_debug_pub.LogMessage(l_api_name || ': After IEX_PAYMENTS_PKG.Insert_Row');
850: End if ;
851:
852: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
853: iex_debug_pub.LogMessage(l_api_name || ': After') ;
854: END IF;
855: X_PMTRESP_REC.PAYMENT_ID := l_payment_id;
856:
857: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
854: END IF;
855: X_PMTRESP_REC.PAYMENT_ID := l_payment_id;
856:
857: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
858: iex_debug_pub.LogMessage(l_api_name || ': l_payment_id=' || l_payment_id);
859: END IF;
860:
861: l_fun_currency := get_fun_currency;
862: IF P_PMT_REC.PAYMENT_TARGET = 'ACCOUNTS' THEN
863:
864:
865:
866: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
867: iex_debug_pub.LogMessage(l_api_name || ': Payment target ACCOUNTS');
868: END IF;
869:
870: -- run thru table of details, create bank accounts then create cash/apply receipts via AR APIs
871: FOR i IN 1..P_PMTDTLS_TBL.COUNT LOOP
870: -- run thru table of details, create bank accounts then create cash/apply receipts via AR APIs
871: FOR i IN 1..P_PMTDTLS_TBL.COUNT LOOP
872:
873: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
874: iex_debug_pub.LogMessage(l_api_name || ': processing payment details; loop ' || i);
875: END IF;
876:
877: --Determine the Payment Instrument type that is used.
878: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
875: END IF;
876:
877: --Determine the Payment Instrument type that is used.
878: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
879: iex_debug_pub.LogMessage(l_api_name || ': Payment instrument is ' || P_PMTINSTR_REC.USE_INSTRUMENT);
880: END IF;
881:
882: /*-- Begin - varangan - profile bug#4558547
883: get_ar_payment_method(p_payment_type => P_PMTINSTR_REC.USE_INSTRUMENT,
921: CLOSE rc_genid_crs;
922:
923: l_cr_number1 := 'IEX_' || to_char(l_cr_number);
924: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
925: iex_debug_pub.LogMessage(l_api_name || ': New cr id = ' || l_cr_number1);
926: iex_debug_pub.LogMessage(l_api_name || ': Before AR_RECEIPT_API_PUB.CREATE_CASH');
927: END IF;
928:
929: -- create cash receipts
922:
923: l_cr_number1 := 'IEX_' || to_char(l_cr_number);
924: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
925: iex_debug_pub.LogMessage(l_api_name || ': New cr id = ' || l_cr_number1);
926: iex_debug_pub.LogMessage(l_api_name || ': Before AR_RECEIPT_API_PUB.CREATE_CASH');
927: END IF;
928:
929: -- create cash receipts
930: if l_fun_currency = P_PMT_REC.CURRENCY_CODE then
1020:
1021: end if;
1022:
1023: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1024: iex_debug_pub.LogMessage(l_api_name || ': After AR_RECEIPT_API_PUB.CREATE_CASH');
1025: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1026: iex_debug_pub.LogMessage(l_api_name || ': New cash_receipt_id = ' || l_cr_id);
1027: END IF;
1028:
1021: end if;
1022:
1023: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1024: iex_debug_pub.LogMessage(l_api_name || ': After AR_RECEIPT_API_PUB.CREATE_CASH');
1025: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1026: iex_debug_pub.LogMessage(l_api_name || ': New cash_receipt_id = ' || l_cr_id);
1027: END IF;
1028:
1029: -- check for errors
1022:
1023: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1024: iex_debug_pub.LogMessage(l_api_name || ': After AR_RECEIPT_API_PUB.CREATE_CASH');
1025: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1026: iex_debug_pub.LogMessage(l_api_name || ': New cash_receipt_id = ' || l_cr_id);
1027: END IF;
1028:
1029: -- check for errors
1030: IF l_return_status<>'S' THEN
1028:
1029: -- check for errors
1030: IF l_return_status<>'S' THEN
1031: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1032: iex_debug_pub.LogMessage(l_api_name || ': AR_RECEIPT_API_PUB.CREATE_CASH failed');
1033: END IF;
1034:
1035: x_return_status :=l_return_status;
1036: X_MSG_DATA:= L_MSG_DATA;
1043:
1044:
1045: /*
1046: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1047: iex_debug_pub.LogMessage(l_api_name || ': Before AR_RECEIPT_API_PUB.APPLY_ON_ACCOUNT');
1048: END IF;
1049:
1050: -- apply on_account
1051: AR_RECEIPT_API_PUB.APPLY_ON_ACCOUNT(
1056: X_MSG_COUNT => L_MSG_COUNT,
1057: X_MSG_DATA => L_MSG_DATA,
1058: P_RECEIPT_NUMBER => l_cr_number1);
1059: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1060: iex_debug_pub.LogMessage(l_api_name || ': After AR_RECEIPT_API_PUB.APPLY_ON_ACCOUNT');
1061: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1062: END IF;
1063:
1064: -- check for errors
1057: X_MSG_DATA => L_MSG_DATA,
1058: P_RECEIPT_NUMBER => l_cr_number1);
1059: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1060: iex_debug_pub.LogMessage(l_api_name || ': After AR_RECEIPT_API_PUB.APPLY_ON_ACCOUNT');
1061: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1062: END IF;
1063:
1064: -- check for errors
1065: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1063:
1064: -- check for errors
1065: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1066: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1067: iex_debug_pub.LogMessage(l_api_name || ': AR_RECEIPT_API_PUB.APPLY_ON_ACCOUNT failed');
1068: END IF;
1069:
1070: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_APPLY_ACC');
1071: FND_MSG_PUB.Add;
1078: FETCH pad_genid_crs INTO l_pay_receipt_ref_id;
1079: CLOSE pad_genid_crs;
1080:
1081: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1082: iex_debug_pub.LogMessage(l_api_name || ': New pay_receipt_ref_id = ' || l_pay_receipt_ref_id);
1083: iex_debug_pub.LogMessage(l_api_name || ': Before call to IEX_PAY_RECEIPT_XREF_PKG.INSERT_ROW');
1084: END IF;
1085:
1086: IEX_PAY_RECEIPT_XREF_PKG.INSERT_ROW(
1079: CLOSE pad_genid_crs;
1080:
1081: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1082: iex_debug_pub.LogMessage(l_api_name || ': New pay_receipt_ref_id = ' || l_pay_receipt_ref_id);
1083: iex_debug_pub.LogMessage(l_api_name || ': Before call to IEX_PAY_RECEIPT_XREF_PKG.INSERT_ROW');
1084: END IF;
1085:
1086: IEX_PAY_RECEIPT_XREF_PKG.INSERT_ROW(
1087: X_ROWID => l_rowid,
1098:
1099: l_cr_id_tab(i) := l_cr_id;
1100:
1101: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1102: iex_debug_pub.LogMessage(l_api_name || ': After call to IEX_PAY_RECEIPT_XREF_PKG.INSERT_ROW');
1103: End if ;
1104: END LOOP;
1105:
1106: ELSIF P_PMT_REC.PAYMENT_TARGET = 'INVOICES' THEN
1106: ELSIF P_PMT_REC.PAYMENT_TARGET = 'INVOICES' THEN
1107:
1108:
1109: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1110: iex_debug_pub.LogMessage(l_api_name || ': Payment target INVOICES');
1111: END IF;
1112:
1113: --Determine the Payment Instrument type that is used.
1114: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1111: END IF;
1112:
1113: --Determine the Payment Instrument type that is used.
1114: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1115: iex_debug_pub.LogMessage(l_api_name || ': Payment instrument is ' || P_PMTINSTR_REC.USE_INSTRUMENT);
1116: END IF;
1117:
1118:
1119: /* Begin - varangan - profile bug#4558547
1163:
1164: l_cr_number1 := 'IEX_' || to_char(l_cr_number);
1165:
1166: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1167: iex_debug_pub.LogMessage(l_api_name || ': New cr id = ' || l_cr_number1);
1168: iex_debug_pub.LogMessage(l_api_name || ': Before AR_RECEIPT_API_PUB.CREATE_CASH');
1169: END IF;
1170:
1171: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1164: l_cr_number1 := 'IEX_' || to_char(l_cr_number);
1165:
1166: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1167: iex_debug_pub.LogMessage(l_api_name || ': New cr id = ' || l_cr_number1);
1168: iex_debug_pub.LogMessage(l_api_name || ': Before AR_RECEIPT_API_PUB.CREATE_CASH');
1169: END IF;
1170:
1171: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1172: iex_debug_pub.logmessage('Creating Cash Receipt and Applying for the First Payment Schedule....');
1168: iex_debug_pub.LogMessage(l_api_name || ': Before AR_RECEIPT_API_PUB.CREATE_CASH');
1169: END IF;
1170:
1171: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1172: iex_debug_pub.logmessage('Creating Cash Receipt and Applying for the First Payment Schedule....');
1173: iex_debug_pub.logmessage('Pmt Schedule id =>' || P_PMTDTLS_TBL(1).PAYMENT_SCHEDULE_ID || ' Amount => ' || P_PMTDTLS_TBL(1).AMOUNT );
1174: End If ;
1175:
1176: if l_fun_currency = P_PMT_REC.CURRENCY_CODE then
1169: END IF;
1170:
1171: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1172: iex_debug_pub.logmessage('Creating Cash Receipt and Applying for the First Payment Schedule....');
1173: iex_debug_pub.logmessage('Pmt Schedule id =>' || P_PMTDTLS_TBL(1).PAYMENT_SCHEDULE_ID || ' Amount => ' || P_PMTDTLS_TBL(1).AMOUNT );
1174: End If ;
1175:
1176: if l_fun_currency = P_PMT_REC.CURRENCY_CODE then
1177: --if P_PMTDTLS_TBL(i).currency_code = P_PMT_REC.CURRENCY_CODE then
--commented for bug6717179
1175:
1176: if l_fun_currency = P_PMT_REC.CURRENCY_CODE then
1177: --if P_PMTDTLS_TBL(i).currency_code = P_PMT_REC.CURRENCY_CODE then
--commented for bug6717179
1178: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1179: iex_debug_pub.LogMessage(l_api_name || ': P_PMTDTLS_TBL(1).TRX_TO_CR_RATE = ' || P_PMTDTLS_TBL(1).TRX_TO_CR_RATE);
1180: END IF;
1181: if P_PMTDTLS_TBL(1).TRX_TO_CR_RATE = 1 then
1182: -- create cash receipt
1183: /*
1331: end if;
1332:
1333:
1334: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1335: iex_debug_pub.LogMessage(l_api_name || ': After AR_RECEIPT_API_PUB.CREATE_CASH');
1336: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1337: iex_debug_pub.LogMessage(l_api_name || ': New cash_receipt_id = ' || l_cr_id);
1338: END IF;
1339:
1332:
1333:
1334: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1335: iex_debug_pub.LogMessage(l_api_name || ': After AR_RECEIPT_API_PUB.CREATE_CASH');
1336: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1337: iex_debug_pub.LogMessage(l_api_name || ': New cash_receipt_id = ' || l_cr_id);
1338: END IF;
1339:
1340: -- check for errors
1333:
1334: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1335: iex_debug_pub.LogMessage(l_api_name || ': After AR_RECEIPT_API_PUB.CREATE_CASH');
1336: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1337: iex_debug_pub.LogMessage(l_api_name || ': New cash_receipt_id = ' || l_cr_id);
1338: END IF;
1339:
1340: -- check for errors
1341: IF l_return_status<>'S' THEN
1344: X_MSG_DATA:= L_MSG_DATA;
1345: X_MSG_COUNT := L_MSG_COUNT;
1346:
1347: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1348: iex_debug_pub.LogMessage(l_api_name || ': AR_RECEIPT_API_PUB.CREATE_CASH failed');
1349: END IF;
1350: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CREATE_CR');
1351: FND_MSG_PUB.Add;
1352: return;
1357: CLOSE get_delid_crs;
1358:
1359: if l_del_id is not null then
1360: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1361: iex_debug_pub.LogMessage(l_api_name || ': Delinquency found. Going to insert row into IEX_DEL_PAY_XREF table');
1362: END IF;
1363:
1364: -- generate new del_payment_ref id
1365: OPEN dpx_genid_crs;
1366: FETCH dpx_genid_crs INTO l_del_pay_ref_id;
1367: CLOSE dpx_genid_crs;
1368:
1369: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1370: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1371: END IF;
1372:
1373: IEX_DEL_PAY_XREF_PKG.INSERT_ROW(
1374: X_ROWID => l_rowid,
1383: P_DELINQUENCY_ID => l_del_id,
1384: P_PAYMENT_ID => l_payment_id);
1385:
1386: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1387: iex_debug_pub.LogMessage(l_api_name || ': After call to IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1388: END IF;
1389: else
1390: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1391: iex_debug_pub.LogMessage(l_api_name || ': Delinquency not found.');
1387: iex_debug_pub.LogMessage(l_api_name || ': After call to IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1388: END IF;
1389: else
1390: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1391: iex_debug_pub.LogMessage(l_api_name || ': Delinquency not found.');
1392: END IF;
1393: end if;
1394:
1395: -- generate new pay_receipt_ref id
1397: FETCH pad_genid_crs INTO l_pay_receipt_ref_id;
1398: CLOSE pad_genid_crs;
1399:
1400: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1401: iex_debug_pub.LogMessage(l_api_name || ': New pay_receipt_ref_id = ' || l_pay_receipt_ref_id);
1402: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1403: END IF;
1404:
1405: IEX_PAY_RECEIPT_XREF_PKG.Insert_Row(
1398: CLOSE pad_genid_crs;
1399:
1400: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1401: iex_debug_pub.LogMessage(l_api_name || ': New pay_receipt_ref_id = ' || l_pay_receipt_ref_id);
1402: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1403: END IF;
1404:
1405: IEX_PAY_RECEIPT_XREF_PKG.Insert_Row(
1406: X_ROWID => l_rowid,
1415: P_PAYMENT_ID => l_payment_id,
1416: P_CASH_RECEIPT_ID => l_cr_id);
1417:
1418: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1419: iex_debug_pub.LogMessage(l_api_name || ': After IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1420: END IF;
1421:
1422: l_cr_id_tab(1) := l_cr_id;
1423:
1426: -- move this loop to the above to make payment multiple (bug 5128910) FOR i IN 1..P_PMTDTLS_TBL.COUNT LOOP
1427:
1428: FOR i IN 2..P_PMTDTLS_TBL.COUNT LOOP
1429: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1430: iex_debug_pub.LogMessage(l_api_name || ': processing payment details; loop ' || i);
1431: iex_debug_pub.LogMessage(l_api_name || ': Before AR_RECEIPT_API_PUB.APPLY');
1432: END IF;
1433:
1434: -- apply on invoices
1427:
1428: FOR i IN 2..P_PMTDTLS_TBL.COUNT LOOP
1429: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1430: iex_debug_pub.LogMessage(l_api_name || ': processing payment details; loop ' || i);
1431: iex_debug_pub.LogMessage(l_api_name || ': Before AR_RECEIPT_API_PUB.APPLY');
1432: END IF;
1433:
1434: -- apply on invoices
1435: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1432: END IF;
1433:
1434: -- apply on invoices
1435: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1436: iex_debug_pub.LogMessage(l_api_name || ': P_PMTDTLS_TBL(i).TRX_TO_CR_RATE = ' || P_PMTDTLS_TBL(i).TRX_TO_CR_RATE);
1437: END IF;
1438:
1439: --/* bug 4868943
1440: if P_PMTDTLS_TBL(i).TRX_TO_CR_RATE = 1 then
1467: p_amount_applied_from => P_PMTDTLS_TBL(i).AMOUNT);
1468:
1469: else
1470: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1471: iex_debug_pub.LogMessage(l_api_name || ': because P_PMTDTLS_TBL(i).TRX_TO_CR_RATE = 0 we failed');
1472: END IF;
1473:
1474: x_return_status :=l_return_status;
1475: X_MSG_DATA:= L_MSG_DATA;
1480: end if;
1481: end if;
1482:
1483: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1484: iex_debug_pub.LogMessage(l_api_name || ': After AR_RECEIPT_API_PUB.APPLY');
1485: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1486: END IF;
1487:
1488: -- check for errors
1481: end if;
1482:
1483: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1484: iex_debug_pub.LogMessage(l_api_name || ': After AR_RECEIPT_API_PUB.APPLY');
1485: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1486: END IF;
1487:
1488: -- check for errors
1489: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1490: X_RETURN_STATUS:=l_return_status;
1491: X_MSG_DATA:= L_MSG_DATA;
1492:
1493: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1494: iex_debug_pub.LogMessage(l_api_name || ': AR_RECEIPT_API_PUB.APPLY failed');
1495: END IF;
1496:
1497: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_APPLY_APP');
1498: FND_MSG_PUB.Add;
1505: CLOSE get_delid_crs;
1506:
1507: if l_del_id is not null then
1508: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1509: iex_debug_pub.LogMessage(l_api_name || ': Delinquency found. Going to insert row into IEX_DEL_PAY_XREF table');
1510: END IF;
1511:
1512: -- generate new del_payment_ref id
1513: OPEN dpx_genid_crs;
1514: FETCH dpx_genid_crs INTO l_del_pay_ref_id;
1515: CLOSE dpx_genid_crs;
1516:
1517: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1518: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1519: END IF;
1520:
1521: IEX_DEL_PAY_XREF_PKG.INSERT_ROW(
1522: X_ROWID => l_rowid,
1531: P_DELINQUENCY_ID => l_del_id,
1532: P_PAYMENT_ID => l_payment_id);
1533:
1534: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1535: iex_debug_pub.LogMessage(l_api_name || ': After call to IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1536: END IF;
1537: else
1538: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1539: iex_debug_pub.LogMessage(l_api_name || ': Delinquency not found.');
1535: iex_debug_pub.LogMessage(l_api_name || ': After call to IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1536: END IF;
1537: else
1538: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1539: iex_debug_pub.LogMessage(l_api_name || ': Delinquency not found.');
1540: END IF;
1541: end if;
1542: END LOOP;
1543:
1547: FETCH pad_genid_crs INTO l_pay_receipt_ref_id;
1548: CLOSE pad_genid_crs;
1549:
1550: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1551: iex_debug_pub.LogMessage(l_api_name || ': New pay_receipt_ref_id = ' || l_pay_receipt_ref_id);
1552: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1553: END IF;
1554:
1555: IEX_PAY_RECEIPT_XREF_PKG.Insert_Row(
1548: CLOSE pad_genid_crs;
1549:
1550: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1551: iex_debug_pub.LogMessage(l_api_name || ': New pay_receipt_ref_id = ' || l_pay_receipt_ref_id);
1552: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1553: END IF;
1554:
1555: IEX_PAY_RECEIPT_XREF_PKG.Insert_Row(
1556: X_ROWID => l_rowid,
1567:
1568:
1569:
1570: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1571: iex_debug_pub.LogMessage(l_api_name || ': After IEX_DEL_PAY_XREF_PKG.INSERT_ROW');
1572: END IF;
1573:
*/
1574: --END LOOP;
1575:
1617: SAVEPOINT CREATE_PAYMENT_PVT2;
1618:
1619: l_note_type := fnd_profile.value('AST_NOTES_DEFAULT_TYPE');
1620: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1621: iex_debug_pub.LogMessage(l_api_name || ': l_note_type = ' || l_note_type);
1622: END IF;
1623:
1624: /* if note is passed - insert it */
1625: if P_PMT_REC.NOTE is not null and l_note_type is not null then
1623:
1624: /* if note is passed - insert it */
1625: if P_PMT_REC.NOTE is not null and l_note_type is not null then
1626: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1627: iex_debug_pub.LogMessage(l_api_name || ': Note is not null');
1628: END IF;
1629:
1630: IF P_PMT_REC.PAYMENT_TARGET = 'ACCOUNTS' or P_PMT_REC.PAYMENT_TARGET = 'INVOICES' THEN
1631:
1676: end if;
1677:
1678: -- for debug purpose only
1679: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1680: iex_debug_pub.LogMessage(l_api_name || ': l_source_object_id = ' || l_source_object_id);
1681: iex_debug_pub.LogMessage(l_api_name || ': l_source_object_code = ' || l_source_object_code);
1682: END IF;
1683:
1684: FOR i IN 1..l_context_tab.COUNT LOOP
1677:
1678: -- for debug purpose only
1679: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1680: iex_debug_pub.LogMessage(l_api_name || ': l_source_object_id = ' || l_source_object_id);
1681: iex_debug_pub.LogMessage(l_api_name || ': l_source_object_code = ' || l_source_object_code);
1682: END IF;
1683:
1684: FOR i IN 1..l_context_tab.COUNT LOOP
1685: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1682: END IF;
1683:
1684: FOR i IN 1..l_context_tab.COUNT LOOP
1685: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1686: iex_debug_pub.LogMessage(l_api_name || ': l_context_tab(' || i || ').context_type = ' || l_context_tab(i).context_type);
1687: iex_debug_pub.LogMessage(l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
1688: END IF;
1689: END LOOP;
1690:
1683:
1684: FOR i IN 1..l_context_tab.COUNT LOOP
1685: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1686: iex_debug_pub.LogMessage(l_api_name || ': l_context_tab(' || i || ').context_type = ' || l_context_tab(i).context_type);
1687: iex_debug_pub.LogMessage(l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
1688: END IF;
1689: END LOOP;
1690:
1691: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1688: END IF;
1689: END LOOP;
1690:
1691: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1692: iex_debug_pub.LogMessage(l_api_name || ': Before call to IEX_NOTES_PVT.Create_Note');
1693: END IF;
1694:
1695: IEX_NOTES_PVT.Create_Note(
1696: P_API_VERSION => l_api_version,
1707: p_contexts_tbl => l_context_tab,
1708: x_note_id => X_PMTRESP_REC.NOTE_ID);
1709:
1710: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1711: iex_debug_pub.LogMessage(l_api_name || ': After call to IEX_NOTES_PVT.Create_Note');
1712: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1713: END IF;
1714:
1715: -- check for errors
1708: x_note_id => X_PMTRESP_REC.NOTE_ID);
1709:
1710: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1711: iex_debug_pub.LogMessage(l_api_name || ': After call to IEX_NOTES_PVT.Create_Note');
1712: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
1713: END IF;
1714:
1715: -- check for errors
1716: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1714:
1715: -- check for errors
1716: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1717: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1718: iex_debug_pub.LogMessage(l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
1719: END IF;
1720: RAISE FND_API.G_EXC_ERROR;
1721: END IF;
1722: END IF;
1873: l_return_status := FND_API.G_RET_STS_SUCCESS;
1874:
1875: -- START OF BODY OF API
1876: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1877: iex_debug_pub.LogMessage(l_api_name || ': Start of CREATE_PAYMENT');
1878: END IF;
1879:
1880: -- validate all input parameters
1881: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1878: END IF;
1879:
1880: -- validate all input parameters
1881: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1882: iex_debug_pub.LogMessage(l_api_name || ': Before validate_input');
1883: END IF;
1884: validate_input(P_PMT_REC => P_PMT_REC,
1885: P_PMTDTLS_TBL => P_PMTDTLS_TBL,
1886: P_PMTINSTR_REC => P_PMTINSTR_REC);
1884: validate_input(P_PMT_REC => P_PMT_REC,
1885: P_PMTDTLS_TBL => P_PMTDTLS_TBL,
1886: P_PMTINSTR_REC => P_PMTINSTR_REC);
1887: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1888: iex_debug_pub.LogMessage(l_api_name || ': After validate_input');
1889: END IF;
1890:
1891: -- validate payer parties and get payer info
1892: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1889: END IF;
1890:
1891: -- validate payer parties and get payer info
1892: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1893: iex_debug_pub.LogMessage(l_api_name || ': Before GET_PAYER_INFO');
1894: END IF;
1895: GET_PAYER_INFO(P_PAYER_PARTY_REL_ID => P_PMT_REC.PAYER_PARTY_REL_ID,
1896: P_PAYER_PARTY_ORG_ID => P_PMT_REC.PAYER_PARTY_ORG_ID,
1897: P_PAYER_PARTY_PER_ID => P_PMT_REC.PAYER_PARTY_PER_ID,
1901: X_PAYER_ID => l_payer_id,
1902: X_PAYER_NAME => l_payer_name);
1903:
1904: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1905: iex_debug_pub.LogMessage(l_api_name || ': After GET_PAYER_INFO');
1906: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
1907: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
1908: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
1909: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
1902: X_PAYER_NAME => l_payer_name);
1903:
1904: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1905: iex_debug_pub.LogMessage(l_api_name || ': After GET_PAYER_INFO');
1906: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
1907: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
1908: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
1909: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
1910: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
1903:
1904: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1905: iex_debug_pub.LogMessage(l_api_name || ': After GET_PAYER_INFO');
1906: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
1907: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
1908: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
1909: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
1910: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
1911: iex_debug_pub.LogMessage(l_api_name || ': l_payer_name = ' || l_payer_name);
1904: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1905: iex_debug_pub.LogMessage(l_api_name || ': After GET_PAYER_INFO');
1906: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
1907: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
1908: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
1909: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
1910: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
1911: iex_debug_pub.LogMessage(l_api_name || ': l_payer_name = ' || l_payer_name);
1912: END IF;
1905: iex_debug_pub.LogMessage(l_api_name || ': After GET_PAYER_INFO');
1906: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
1907: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
1908: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
1909: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
1910: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
1911: iex_debug_pub.LogMessage(l_api_name || ': l_payer_name = ' || l_payer_name);
1912: END IF;
1913:
1906: iex_debug_pub.LogMessage(l_api_name || ': GET_PAYER_INFO returns:');
1907: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
1908: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
1909: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
1910: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
1911: iex_debug_pub.LogMessage(l_api_name || ': l_payer_name = ' || l_payer_name);
1912: END IF;
1913:
1914: l_disable_ipayment := fnd_profile.value('IEX_DISABLE_IPAYMENT');
1907: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_type = ' || l_note_payer_type);
1908: iex_debug_pub.LogMessage(l_api_name || ': l_note_payer_id = ' || l_note_payer_id);
1909: iex_debug_pub.LogMessage(l_api_name || ': l_payer_num_id = ' || l_payer_num_id);
1910: iex_debug_pub.LogMessage(l_api_name || ': l_payer_id = ' || l_payer_id);
1911: iex_debug_pub.LogMessage(l_api_name || ': l_payer_name = ' || l_payer_name);
1912: END IF;
1913:
1914: l_disable_ipayment := fnd_profile.value('IEX_DISABLE_IPAYMENT');
1915: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1912: END IF;
1913:
1914: l_disable_ipayment := fnd_profile.value('IEX_DISABLE_IPAYMENT');
1915: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1916: iex_debug_pub.LogMessage(l_api_name || ': l_disable_ipayment = ' || l_disable_ipayment);
1917: END IF;
1918:
1919: if l_disable_ipayment is null or (l_disable_ipayment is not null and l_disable_ipayment = 'N') then
1920:
1919: if l_disable_ipayment is null or (l_disable_ipayment is not null and l_disable_ipayment = 'N') then
1920:
1921: --Determine the Payment Instrument type that is used.
1922: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1923: iex_debug_pub.LogMessage(l_api_name || ': Determine instrument');
1924: END IF;
1925: IF P_PMTINSTR_REC.USE_INSTRUMENT = 'CC' THEN
1926:
1927: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1924: END IF;
1925: IF P_PMTINSTR_REC.USE_INSTRUMENT = 'CC' THEN
1926:
1927: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1928: iex_debug_pub.LogMessage(l_api_name || ': Instrument is CC');
1929: END IF;
1930:
1931: l_ar_pay_method1 := fnd_profile.value('IEX_CCARD_REMITTANCE');
1932: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1929: END IF;
1930:
1931: l_ar_pay_method1 := fnd_profile.value('IEX_CCARD_REMITTANCE');
1932: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1933: iex_debug_pub.LogMessage(l_api_name || ': CC remittance = ' || l_ar_pay_method1);
1934: END IF;
1935: if l_ar_pay_method1 is null then
1936: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1937: iex_debug_pub.LogMessage(l_api_name || ': failed to get CC remittance');
1933: iex_debug_pub.LogMessage(l_api_name || ': CC remittance = ' || l_ar_pay_method1);
1934: END IF;
1935: if l_ar_pay_method1 is null then
1936: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1937: iex_debug_pub.LogMessage(l_api_name || ': failed to get CC remittance');
1938: END IF;
1939: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_CC_REMITTANCE');
1940: FND_MSG_PUB.Add;
1941: RAISE FND_API.G_EXC_ERROR;
1943: l_ar_pay_method := to_number(l_ar_pay_method1);
1944:
1945: -- first check for existance of instrument. if does not exist add instrument
1946: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1947: iex_debug_pub.LogMessage(l_api_name || ': Search for CC');
1948: END IF;
1949: OPEN get_ccid_crs(IBY_INSTRREG_PUB.encode(P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM), l_payer_id);
1950: FETCH get_ccid_crs INTO l_instr_id;
1951: CLOSE get_ccid_crs;
1951: CLOSE get_ccid_crs;
1952:
1953: if l_instr_id is null then
1954: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1955: iex_debug_pub.LogMessage(l_api_name || ': CC is not found');
1956: iex_debug_pub.LogMessage(l_api_name || ': Going to insert new cc');
1957: END IF;
1958:
1959: l_pmtInstrRec.InstrumentType := 'CREDITCARD';
1952:
1953: if l_instr_id is null then
1954: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1955: iex_debug_pub.LogMessage(l_api_name || ': CC is not found');
1956: iex_debug_pub.LogMessage(l_api_name || ': Going to insert new cc');
1957: END IF;
1958:
1959: l_pmtInstrRec.InstrumentType := 'CREDITCARD';
1960: l_pmtInstrRec.CreditCardInstr.FINAME := P_PMTINSTR_REC.CREDITCARDINSTR.FINAME;
1963: l_pmtInstrRec.CreditCardInstr.CC_EXPDATE := P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE;
1964: l_pmtInstrRec.CreditCardInstr.CC_HOLDERNAME := P_PMTINSTR_REC.CREDITCARDINSTR.CC_HOLDERNAME;
1965:
1966: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1967: iex_debug_pub.LogMessage(l_api_name || ': Before ORAINSTRADD call');
1968: END IF;
1969: --Begin-fix bug #4479607-07072005-jypark-comment invalid api call to fix compile error
1970: -- IBY_INSTRREG_PUB.ORAINSTRADD
1971: -- (
1980: -- x_instr_id => l_instr_id);
1981: --
1982: --End-fix bug #4479607-07072005-jypark-comment invalid api call to fix compile error
1983: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1984: iex_debug_pub.LogMessage(l_api_name || ': After ORAINSTRADD call');
1985: iex_debug_pub.LogMessage(l_api_name || ': l_return_status = ' || l_return_status);
1986: END IF;
1987:
1988: -- check for errors
1981: --
1982: --End-fix bug #4479607-07072005-jypark-comment invalid api call to fix compile error
1983: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1984: iex_debug_pub.LogMessage(l_api_name || ': After ORAINSTRADD call');
1985: iex_debug_pub.LogMessage(l_api_name || ': l_return_status = ' || l_return_status);
1986: END IF;
1987:
1988: -- check for errors
1989: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1987:
1988: -- check for errors
1989: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1990: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1991: iex_debug_pub.LogMessage(l_api_name || ': IBY_INSTRREG_PUB.ORAINSTRADD failed');
1992: END IF;
1993: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_INSERT_INSTR');
1994: FND_MSG_PUB.Add;
1995: RAISE FND_API.G_EXC_ERROR;
1995: RAISE FND_API.G_EXC_ERROR;
1996: END IF;
1997: else
1998: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1999: iex_debug_pub.LogMessage(l_api_name || ': CC is found; id = ' || l_instr_id);
2000: iex_debug_pub.LogMessage(l_api_name || ': Exp date is different');
2001: iex_debug_pub.LogMessage(l_api_name || ': Going to modify new cc');
2002: END IF;
2003:
1996: END IF;
1997: else
1998: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1999: iex_debug_pub.LogMessage(l_api_name || ': CC is found; id = ' || l_instr_id);
2000: iex_debug_pub.LogMessage(l_api_name || ': Exp date is different');
2001: iex_debug_pub.LogMessage(l_api_name || ': Going to modify new cc');
2002: END IF;
2003:
2004: l_pmtInstrRec.InstrumentType := 'CREDITCARD';
1997: else
1998: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1999: iex_debug_pub.LogMessage(l_api_name || ': CC is found; id = ' || l_instr_id);
2000: iex_debug_pub.LogMessage(l_api_name || ': Exp date is different');
2001: iex_debug_pub.LogMessage(l_api_name || ': Going to modify new cc');
2002: END IF;
2003:
2004: l_pmtInstrRec.InstrumentType := 'CREDITCARD';
2005: l_pmtInstrRec.CreditCardInstr.INSTR_ID := l_instr_id;
2007: l_pmtInstrRec.CreditCardInstr.CC_EXPDATE := P_PMTINSTR_REC.CREDITCARDINSTR.CC_EXPDATE;
2008: l_pmtInstrRec.CreditCardInstr.CC_HOLDERNAME := P_PMTINSTR_REC.CREDITCARDINSTR.CC_HOLDERNAME;
2009:
2010: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2011: iex_debug_pub.LogMessage(l_api_name || ': Before ORAINSTRMOD call');
2012: END IF;
2013: IBY_INSTRREG_PUB.ORAINSTRMOD
2014: (
2015: p_api_version => 1.0,
2025: --, x_result => l_result_rec -- temporarily commenting, since IBY code is in progress
2026: -- End -- varangan --Bug4528444 -- payments uptake
2027: );
2028: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2029: iex_debug_pub.LogMessage(l_api_name || ': After ORAINSTRMOD call');
2030: iex_debug_pub.LogMessage('l_return_status = ' || l_return_status);
2031: END IF;
2032:
2033: -- check for errors
2026: -- End -- varangan --Bug4528444 -- payments uptake
2027: );
2028: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2029: iex_debug_pub.LogMessage(l_api_name || ': After ORAINSTRMOD call');
2030: iex_debug_pub.LogMessage('l_return_status = ' || l_return_status);
2031: END IF;
2032:
2033: -- check for errors
2034: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2032:
2033: -- check for errors
2034: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2035: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2036: iex_debug_pub.LogMessage(l_api_name || ': IBY_INSTRREG_PUB.ORAINSTRMOD failed');
2037: END IF;
2038: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_UPDATE_INSTR');
2039: FND_MSG_PUB.Add;
2040: RAISE FND_API.G_EXC_ERROR;
2055:
2056: ELSIF P_PMTINSTR_REC.USE_INSTRUMENT = 'BA' THEN
2057:
2058: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2059: iex_debug_pub.LogMessage(l_api_name || ': Instrument is BA');
2060: END IF;
2061:
2062: l_ar_pay_method1 := fnd_profile.value('IEX_EFT_REMITTANCE');
2063: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2060: END IF;
2061:
2062: l_ar_pay_method1 := fnd_profile.value('IEX_EFT_REMITTANCE');
2063: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2064: iex_debug_pub.LogMessage(l_api_name || ': BA remittance = ' || l_ar_pay_method1);
2065: END IF;
2066: if l_ar_pay_method1 is null then
2067: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2068: iex_debug_pub.LogMessage(l_api_name || ': failed to get BA remittance');
2064: iex_debug_pub.LogMessage(l_api_name || ': BA remittance = ' || l_ar_pay_method1);
2065: END IF;
2066: if l_ar_pay_method1 is null then
2067: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2068: iex_debug_pub.LogMessage(l_api_name || ': failed to get BA remittance');
2069: END IF;
2070: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_EFT_REMITTANCE');
2071: FND_MSG_PUB.Add;
2072: RAISE FND_API.G_EXC_ERROR;
2074: l_ar_pay_method := to_number(l_ar_pay_method1);
2075:
2076: -- first check for existance of instrument. if does not exist add instrument
2077: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2078: iex_debug_pub.LogMessage(l_api_name || ': Search for BA');
2079: END IF;
2080: OPEN get_baid_crs(P_PMTINSTR_REC.BANKACCTINSTR.BANK_ID,
2081: IBY_INSTRREG_PUB.encode(P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM),
2082: l_payer_id);
2084: CLOSE get_baid_crs;
2085:
2086: if l_instr_id is null then
2087: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2088: iex_debug_pub.LogMessage(l_api_name || ': BA is not found');
2089: iex_debug_pub.LogMessage(l_api_name || ': Going to insert new ba');
2090: END IF;
2091:
2092: l_pmtInstrRec.InstrumentType := 'BANKACCOUNT';
2085:
2086: if l_instr_id is null then
2087: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2088: iex_debug_pub.LogMessage(l_api_name || ': BA is not found');
2089: iex_debug_pub.LogMessage(l_api_name || ': Going to insert new ba');
2090: END IF;
2091:
2092: l_pmtInstrRec.InstrumentType := 'BANKACCOUNT';
2093: l_pmtInstrRec.BankAcctInstr.FIName := P_PMTINSTR_REC.BANKACCTINSTR.FINAME;
2097: l_pmtInstrRec.BankAcctInstr.BankAcct_Num := P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM;
2098: l_pmtInstrRec.BankAcctInstr.BankAcct_HolderName := P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_HOLDERNAME;
2099:
2100: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2101: iex_debug_pub.LogMessage(l_api_name || ': Before ORAINSTRADD call');
2102: END IF;
2103: --Begin-fix bug #4479607-07072005-jypark-comment invalid api call to fix compile error
2104: -- IBY_INSTRREG_PUB.ORAINSTRADD(
2105: -- p_api_version => 1.0,
2113: -- x_instr_id => l_instr_id);
2114: --End-fix bug #4479607-07072005-jypark-comment invalid api call to fix compile error
2115:
2116: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2117: iex_debug_pub.LogMessage(l_api_name || ': After ORAINSTRADD call');
2118: iex_debug_pub.LogMessage('l_return_status = ' || l_return_status);
2119: END IF;
2120:
2121: -- check for errors
2114: --End-fix bug #4479607-07072005-jypark-comment invalid api call to fix compile error
2115:
2116: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2117: iex_debug_pub.LogMessage(l_api_name || ': After ORAINSTRADD call');
2118: iex_debug_pub.LogMessage('l_return_status = ' || l_return_status);
2119: END IF;
2120:
2121: -- check for errors
2122: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2120:
2121: -- check for errors
2122: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2123: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2124: iex_debug_pub.LogMessage(l_api_name || ': IBY_INSTRREG_PUB.ORAINSTRADD failed');
2125: END IF;
2126: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_INSERT_INSTR');
2127: FND_MSG_PUB.Add;
2128: RAISE FND_API.G_EXC_ERROR;
2128: RAISE FND_API.G_EXC_ERROR;
2129: END IF;
2130: else
2131: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2132: iex_debug_pub.LogMessage(l_api_name || ': BA is found; id = ' || l_instr_id);
2133: END IF;
2134: end if;
2135:
2136: l_pmtreqtrxn_rec.PmtMode := 'OFFLINE';
2152: l_payer_rec.Payer_ID := l_payer_id;
2153: --l_payer_rec.Payer_Name := l_payer_name;
2154:
2155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2156: iex_debug_pub.LogMessage(l_api_name || ': Payee_ID =' || l_payee_rec.Payee_ID);
2157: iex_debug_pub.LogMessage(l_api_name || ': Payer_ID =' || l_payer_rec.Payer_ID);
2158: END IF;
2159:
2160: OPEN tang_genid_crs;
2153: --l_payer_rec.Payer_Name := l_payer_name;
2154:
2155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2156: iex_debug_pub.LogMessage(l_api_name || ': Payee_ID =' || l_payee_rec.Payee_ID);
2157: iex_debug_pub.LogMessage(l_api_name || ': Payer_ID =' || l_payer_rec.Payer_ID);
2158: END IF;
2159:
2160: OPEN tang_genid_crs;
2161: FETCH tang_genid_crs INTO l_tangible_id;
2166: l_tangible_rec.currency_code := P_PMT_REC.CURRENCY_CODE;
2167: l_tangible_rec.RefInfo := 'IEX_' || to_char(l_tangible_id);
2168:
2169: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2170: iex_debug_pub.LogMessage(l_api_name || ': PmtInstr_ID =' || l_pmtinstr_rec.PmtInstr_ID);
2171: iex_debug_pub.LogMessage(l_api_name || ': tangible_id = ' || l_tangible_rec.tangible_id);
2172: iex_debug_pub.LogMessage(l_api_name || ': tangible_amount = ' || l_tangible_rec.tangible_amount);
2173: iex_debug_pub.LogMessage(l_api_name || ': currency_code = ' || l_tangible_rec.currency_code);
2174: iex_debug_pub.LogMessage(l_api_name || ': RefInfo = ' || l_tangible_rec.RefInfo);
2167: l_tangible_rec.RefInfo := 'IEX_' || to_char(l_tangible_id);
2168:
2169: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2170: iex_debug_pub.LogMessage(l_api_name || ': PmtInstr_ID =' || l_pmtinstr_rec.PmtInstr_ID);
2171: iex_debug_pub.LogMessage(l_api_name || ': tangible_id = ' || l_tangible_rec.tangible_id);
2172: iex_debug_pub.LogMessage(l_api_name || ': tangible_amount = ' || l_tangible_rec.tangible_amount);
2173: iex_debug_pub.LogMessage(l_api_name || ': currency_code = ' || l_tangible_rec.currency_code);
2174: iex_debug_pub.LogMessage(l_api_name || ': RefInfo = ' || l_tangible_rec.RefInfo);
2175: END IF;
2168:
2169: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2170: iex_debug_pub.LogMessage(l_api_name || ': PmtInstr_ID =' || l_pmtinstr_rec.PmtInstr_ID);
2171: iex_debug_pub.LogMessage(l_api_name || ': tangible_id = ' || l_tangible_rec.tangible_id);
2172: iex_debug_pub.LogMessage(l_api_name || ': tangible_amount = ' || l_tangible_rec.tangible_amount);
2173: iex_debug_pub.LogMessage(l_api_name || ': currency_code = ' || l_tangible_rec.currency_code);
2174: iex_debug_pub.LogMessage(l_api_name || ': RefInfo = ' || l_tangible_rec.RefInfo);
2175: END IF;
2176:
2169: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2170: iex_debug_pub.LogMessage(l_api_name || ': PmtInstr_ID =' || l_pmtinstr_rec.PmtInstr_ID);
2171: iex_debug_pub.LogMessage(l_api_name || ': tangible_id = ' || l_tangible_rec.tangible_id);
2172: iex_debug_pub.LogMessage(l_api_name || ': tangible_amount = ' || l_tangible_rec.tangible_amount);
2173: iex_debug_pub.LogMessage(l_api_name || ': currency_code = ' || l_tangible_rec.currency_code);
2174: iex_debug_pub.LogMessage(l_api_name || ': RefInfo = ' || l_tangible_rec.RefInfo);
2175: END IF;
2176:
2177: if P_PMTINSTR_REC.USE_INSTRUMENT = 'CC' then
2170: iex_debug_pub.LogMessage(l_api_name || ': PmtInstr_ID =' || l_pmtinstr_rec.PmtInstr_ID);
2171: iex_debug_pub.LogMessage(l_api_name || ': tangible_id = ' || l_tangible_rec.tangible_id);
2172: iex_debug_pub.LogMessage(l_api_name || ': tangible_amount = ' || l_tangible_rec.tangible_amount);
2173: iex_debug_pub.LogMessage(l_api_name || ': currency_code = ' || l_tangible_rec.currency_code);
2174: iex_debug_pub.LogMessage(l_api_name || ': RefInfo = ' || l_tangible_rec.RefInfo);
2175: END IF;
2176:
2177: if P_PMTINSTR_REC.USE_INSTRUMENT = 'CC' then
2178: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2175: END IF;
2176:
2177: if P_PMTINSTR_REC.USE_INSTRUMENT = 'CC' then
2178: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2179: iex_debug_pub.LogMessage(l_api_name || ': Going to auth CC...');
2180: iex_debug_pub.LogMessage(l_api_name || ': G_APP_ID = ' || G_APP_ID);
2181: END IF;
2182:
2183: -- call iPayment API to authorize payment
2176:
2177: if P_PMTINSTR_REC.USE_INSTRUMENT = 'CC' then
2178: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2179: iex_debug_pub.LogMessage(l_api_name || ': Going to auth CC...');
2180: iex_debug_pub.LogMessage(l_api_name || ': G_APP_ID = ' || G_APP_ID);
2181: END IF;
2182:
2183: -- call iPayment API to authorize payment
2184: IBY_Payment_Adapter_Pub.OraPmtReq(
2197: x_msg_data => l_msg_data,
2198: x_reqresp_rec => l_reqresp_rec);
2199:
2200: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2201: iex_debug_pub.LogMessage(l_api_name || ': CC authorization returns:');
2202: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2203: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2204: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2205: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2198: x_reqresp_rec => l_reqresp_rec);
2199:
2200: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2201: iex_debug_pub.LogMessage(l_api_name || ': CC authorization returns:');
2202: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2203: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2204: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2205: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2206: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2199:
2200: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2201: iex_debug_pub.LogMessage(l_api_name || ': CC authorization returns:');
2202: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2203: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2204: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2205: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2206: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2207: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2200: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2201: iex_debug_pub.LogMessage(l_api_name || ': CC authorization returns:');
2202: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2203: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2204: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2205: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2206: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2207: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2208: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2201: iex_debug_pub.LogMessage(l_api_name || ': CC authorization returns:');
2202: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2203: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2204: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2205: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2206: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2207: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2208: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2209: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2202: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2203: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2204: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2205: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2206: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2207: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2208: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2209: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2210: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2203: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2204: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2205: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2206: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2207: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2208: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2209: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2210: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2211: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2204: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2205: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2206: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2207: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2208: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2209: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2210: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2211: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2212: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_reqresp_rec.BEPErrCode);
2205: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2206: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2207: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2208: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2209: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2210: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2211: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2212: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_reqresp_rec.BEPErrCode);
2213: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2206: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2207: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2208: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2209: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2210: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2211: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2212: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_reqresp_rec.BEPErrCode);
2213: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2214: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2207: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2208: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2209: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2210: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2211: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2212: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_reqresp_rec.BEPErrCode);
2213: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2214: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2215: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_reqresp_rec.RefCode);
2208: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2209: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2210: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2211: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2212: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_reqresp_rec.BEPErrCode);
2213: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2214: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2215: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_reqresp_rec.RefCode);
2216: END IF;
2209: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2210: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2211: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2212: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_reqresp_rec.BEPErrCode);
2213: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2214: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2215: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_reqresp_rec.RefCode);
2216: END IF;
2217:
2210: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2211: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2212: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_reqresp_rec.BEPErrCode);
2213: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2214: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2215: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_reqresp_rec.RefCode);
2216: END IF;
2217:
2218: -- check for iPayment errors
2211: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2212: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_reqresp_rec.BEPErrCode);
2213: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2214: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2215: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_reqresp_rec.RefCode);
2216: END IF;
2217:
2218: -- check for iPayment errors
2219: IF l_return_status<>'S' THEN
2217:
2218: -- check for iPayment errors
2219: IF l_return_status<>'S' THEN
2220: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2221: iex_debug_pub.LogMessage(l_api_name || ': IBY_Payment_Adapter_Pub.OraPmtReq failed');
2222: END IF;
2223: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_AUTH_PAYMENT');
2224: FND_MESSAGE.SET_TOKEN('STATUS', l_reqresp_rec.response.status);
2225: FND_MESSAGE.SET_TOKEN('ERR_LOC', l_reqresp_rec.ErrorLocation);
2237: l_capturetrxn_rec.Currency := l_tangible_rec.currency_code;
2238: l_capturetrxn_rec.Price := l_tangible_rec.tangible_amount;
2239:
2240: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2241: iex_debug_pub.LogMessage(l_api_name || ': Going to capture CC payment...');
2242: END IF;
2243: IBY_Payment_Adapter_Pub.OraPmtCapture (
2244: p_api_version => 1.0,
2245: p_init_msg_list => FND_API.G_FALSE,
2251: x_msg_data => l_msg_data,
2252: x_capresp_rec => l_capresp_rec);
2253:
2254: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2255: iex_debug_pub.LogMessage(l_api_name || ': CC capture returns:');
2256: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2257: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_capresp_rec.response.status);
2258: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_capresp_rec.response.ErrCode);
2259: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_capresp_rec.response.ErrMessage);
2252: x_capresp_rec => l_capresp_rec);
2253:
2254: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2255: iex_debug_pub.LogMessage(l_api_name || ': CC capture returns:');
2256: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2257: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_capresp_rec.response.status);
2258: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_capresp_rec.response.ErrCode);
2259: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_capresp_rec.response.ErrMessage);
2260: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_capresp_rec.response.NLS_LANG);
2253:
2254: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2255: iex_debug_pub.LogMessage(l_api_name || ': CC capture returns:');
2256: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2257: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_capresp_rec.response.status);
2258: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_capresp_rec.response.ErrCode);
2259: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_capresp_rec.response.ErrMessage);
2260: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_capresp_rec.response.NLS_LANG);
2261: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_capresp_rec.trxn_id);
2254: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2255: iex_debug_pub.LogMessage(l_api_name || ': CC capture returns:');
2256: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2257: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_capresp_rec.response.status);
2258: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_capresp_rec.response.ErrCode);
2259: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_capresp_rec.response.ErrMessage);
2260: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_capresp_rec.response.NLS_LANG);
2261: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_capresp_rec.trxn_id);
2262: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_capresp_rec.trxn_type);
2255: iex_debug_pub.LogMessage(l_api_name || ': CC capture returns:');
2256: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2257: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_capresp_rec.response.status);
2258: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_capresp_rec.response.ErrCode);
2259: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_capresp_rec.response.ErrMessage);
2260: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_capresp_rec.response.NLS_LANG);
2261: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_capresp_rec.trxn_id);
2262: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_capresp_rec.trxn_type);
2263: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_capresp_rec.trxn_date);
2256: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2257: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_capresp_rec.response.status);
2258: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_capresp_rec.response.ErrCode);
2259: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_capresp_rec.response.ErrMessage);
2260: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_capresp_rec.response.NLS_LANG);
2261: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_capresp_rec.trxn_id);
2262: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_capresp_rec.trxn_type);
2263: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_capresp_rec.trxn_date);
2264: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_capresp_rec.RefCode);
2257: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_capresp_rec.response.status);
2258: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_capresp_rec.response.ErrCode);
2259: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_capresp_rec.response.ErrMessage);
2260: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_capresp_rec.response.NLS_LANG);
2261: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_capresp_rec.trxn_id);
2262: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_capresp_rec.trxn_type);
2263: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_capresp_rec.trxn_date);
2264: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_capresp_rec.RefCode);
2265: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_capresp_rec.ErrorLocation);
2258: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_capresp_rec.response.ErrCode);
2259: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_capresp_rec.response.ErrMessage);
2260: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_capresp_rec.response.NLS_LANG);
2261: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_capresp_rec.trxn_id);
2262: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_capresp_rec.trxn_type);
2263: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_capresp_rec.trxn_date);
2264: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_capresp_rec.RefCode);
2265: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_capresp_rec.ErrorLocation);
2266: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_capresp_rec.BEPErrCode);
2259: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_capresp_rec.response.ErrMessage);
2260: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_capresp_rec.response.NLS_LANG);
2261: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_capresp_rec.trxn_id);
2262: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_capresp_rec.trxn_type);
2263: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_capresp_rec.trxn_date);
2264: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_capresp_rec.RefCode);
2265: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_capresp_rec.ErrorLocation);
2266: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_capresp_rec.BEPErrCode);
2267: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_capresp_rec.BEPErrMessage);
2260: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_capresp_rec.response.NLS_LANG);
2261: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_capresp_rec.trxn_id);
2262: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_capresp_rec.trxn_type);
2263: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_capresp_rec.trxn_date);
2264: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_capresp_rec.RefCode);
2265: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_capresp_rec.ErrorLocation);
2266: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_capresp_rec.BEPErrCode);
2267: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_capresp_rec.BEPErrMessage);
2268: END IF;
2261: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_capresp_rec.trxn_id);
2262: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_capresp_rec.trxn_type);
2263: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_capresp_rec.trxn_date);
2264: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_capresp_rec.RefCode);
2265: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_capresp_rec.ErrorLocation);
2266: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_capresp_rec.BEPErrCode);
2267: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_capresp_rec.BEPErrMessage);
2268: END IF;
2269:
2262: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_capresp_rec.trxn_type);
2263: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_capresp_rec.trxn_date);
2264: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_capresp_rec.RefCode);
2265: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_capresp_rec.ErrorLocation);
2266: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_capresp_rec.BEPErrCode);
2267: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_capresp_rec.BEPErrMessage);
2268: END IF;
2269:
2270: -- check for iPayment errors
2263: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_capresp_rec.trxn_date);
2264: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_capresp_rec.RefCode);
2265: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_capresp_rec.ErrorLocation);
2266: iex_debug_pub.LogMessage(l_api_name || ': BEPErrCode = ' || l_capresp_rec.BEPErrCode);
2267: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_capresp_rec.BEPErrMessage);
2268: END IF;
2269:
2270: -- check for iPayment errors
2271: IF l_return_status<>'S' THEN
2269:
2270: -- check for iPayment errors
2271: IF l_return_status<>'S' THEN
2272: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2273: iex_debug_pub.LogMessage(l_api_name || ': IBY_Payment_Adapter_Pub.OraPmtCapture failed');
2274: END IF;
2275: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CAPTURE_PAYMENT');
2276: FND_MESSAGE.SET_TOKEN('STATUS', l_reqresp_rec.response.status);
2277: FND_MESSAGE.SET_TOKEN('ERR_LOC', l_reqresp_rec.ErrorLocation);
2284: RAISE FND_API.G_EXC_ERROR;
2285: END IF;
2286: elsif P_PMTINSTR_REC.USE_INSTRUMENT = 'BA' then
2287: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2288: iex_debug_pub.LogMessage(l_api_name || ': Going to process BA payment...');
2289: END IF;
2290:
2291: -- call iPayment API to process BA payment
2292: IBY_Payment_Adapter_Pub.OraPmtReq(
2305: x_msg_data => l_msg_data,
2306: x_reqresp_rec => l_reqresp_rec);
2307:
2308: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2309: iex_debug_pub.LogMessage(l_api_name || ': BA capture returns:');
2310: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2311: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2312: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2313: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2306: x_reqresp_rec => l_reqresp_rec);
2307:
2308: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2309: iex_debug_pub.LogMessage(l_api_name || ': BA capture returns:');
2310: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2311: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2312: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2313: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2314: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2307:
2308: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2309: iex_debug_pub.LogMessage(l_api_name || ': BA capture returns:');
2310: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2311: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2312: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2313: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2314: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2315: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2308: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2309: iex_debug_pub.LogMessage(l_api_name || ': BA capture returns:');
2310: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2311: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2312: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2313: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2314: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2315: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2316: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2309: iex_debug_pub.LogMessage(l_api_name || ': BA capture returns:');
2310: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2311: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2312: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2313: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2314: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2315: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2316: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2317: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2310: iex_debug_pub.LogMessage(l_api_name || ': l_return_status=' || l_return_status || '; l_msg_count=' || l_msg_count);
2311: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2312: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2313: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2314: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2315: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2316: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2317: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2318: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2311: iex_debug_pub.LogMessage(l_api_name || ': status = ' || l_reqresp_rec.response.status);
2312: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2313: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2314: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2315: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2316: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2317: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2318: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2319: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2312: iex_debug_pub.LogMessage(l_api_name || ': ErrCode = ' || l_reqresp_rec.response.ErrCode);
2313: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2314: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2315: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2316: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2317: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2318: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2319: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2320: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2313: iex_debug_pub.LogMessage(l_api_name || ': ErrMessage = ' || l_reqresp_rec.response.ErrMessage);
2314: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2315: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2316: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2317: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2318: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2319: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2320: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2321: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2314: iex_debug_pub.LogMessage(l_api_name || ': NLS_LANG = ' || l_reqresp_rec.response.NLS_LANG);
2315: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2316: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2317: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2318: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2319: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2320: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2321: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2322: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_reqresp_rec.RefCode);
2315: iex_debug_pub.LogMessage(l_api_name || ': trxn_id = ' || l_reqresp_rec.trxn_id);
2316: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2317: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2318: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2319: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2320: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2321: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2322: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_reqresp_rec.RefCode);
2323: END IF;
2316: iex_debug_pub.LogMessage(l_api_name || ': trxn_type = ' || l_reqresp_rec.trxn_type);
2317: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2318: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2319: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2320: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2321: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2322: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_reqresp_rec.RefCode);
2323: END IF;
2324:
2317: iex_debug_pub.LogMessage(l_api_name || ': trxn_date = ' || l_reqresp_rec.trxn_date);
2318: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2319: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2320: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2321: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2322: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_reqresp_rec.RefCode);
2323: END IF;
2324:
2325: -- check for iPayment errors
2318: iex_debug_pub.LogMessage(l_api_name || ': AuthCode = ' || l_reqresp_rec.AuthCode);
2319: iex_debug_pub.LogMessage(l_api_name || ': ErrorLocation = ' || l_reqresp_rec.ErrorLocation);
2320: iex_debug_pub.LogMessage(l_api_name || ': BEPErrMessage = ' || l_reqresp_rec.BEPErrMessage);
2321: iex_debug_pub.LogMessage(l_api_name || ': AuxMsg = ' || l_reqresp_rec.AuxMsg);
2322: iex_debug_pub.LogMessage(l_api_name || ': RefCode = ' || l_reqresp_rec.RefCode);
2323: END IF;
2324:
2325: -- check for iPayment errors
2326: IF l_return_status<>'S' THEN
2324:
2325: -- check for iPayment errors
2326: IF l_return_status<>'S' THEN
2327: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2328: iex_debug_pub.LogMessage(l_api_name || ': IBY_Payment_Adapter_Pub.OraPmtReq failed');
2329: END IF;
2330: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_CAPTURE_PAYMENT');
2331: FND_MESSAGE.SET_TOKEN('STATUS', l_reqresp_rec.response.status);
2332: FND_MESSAGE.SET_TOKEN('ERR_LOC', l_reqresp_rec.ErrorLocation);
2370: X_PMTRESP_REC.PAYEE_ID := l_payee_rec.Payee_ID;
2371: X_PMTRESP_REC.TANGIBLE_ID := l_tangible_rec.tangible_id;
2372:
2373: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2374: iex_debug_pub.LogMessage(l_api_name || ': Return data:');
2375: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_ID = ' || X_PMTRESP_REC.INSTRUMENT_ID);
2376: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_TYPE = ' || X_PMTRESP_REC.INSTRUMENT_TYPE);
2377: iex_debug_pub.LogMessage(l_api_name || ': TRXN_ID = ' || X_PMTRESP_REC.TRXN_ID);
2378: iex_debug_pub.LogMessage(l_api_name || ': TRXN_TYPE = ' || X_PMTRESP_REC.TRXN_TYPE);
2371: X_PMTRESP_REC.TANGIBLE_ID := l_tangible_rec.tangible_id;
2372:
2373: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2374: iex_debug_pub.LogMessage(l_api_name || ': Return data:');
2375: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_ID = ' || X_PMTRESP_REC.INSTRUMENT_ID);
2376: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_TYPE = ' || X_PMTRESP_REC.INSTRUMENT_TYPE);
2377: iex_debug_pub.LogMessage(l_api_name || ': TRXN_ID = ' || X_PMTRESP_REC.TRXN_ID);
2378: iex_debug_pub.LogMessage(l_api_name || ': TRXN_TYPE = ' || X_PMTRESP_REC.TRXN_TYPE);
2379: iex_debug_pub.LogMessage(l_api_name || ': TRXN_DATE = ' || X_PMTRESP_REC.TRXN_DATE);
2372:
2373: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2374: iex_debug_pub.LogMessage(l_api_name || ': Return data:');
2375: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_ID = ' || X_PMTRESP_REC.INSTRUMENT_ID);
2376: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_TYPE = ' || X_PMTRESP_REC.INSTRUMENT_TYPE);
2377: iex_debug_pub.LogMessage(l_api_name || ': TRXN_ID = ' || X_PMTRESP_REC.TRXN_ID);
2378: iex_debug_pub.LogMessage(l_api_name || ': TRXN_TYPE = ' || X_PMTRESP_REC.TRXN_TYPE);
2379: iex_debug_pub.LogMessage(l_api_name || ': TRXN_DATE = ' || X_PMTRESP_REC.TRXN_DATE);
2380: iex_debug_pub.LogMessage(l_api_name || ': AUTHCODE = ' || X_PMTRESP_REC.AUTHCODE);
2373: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2374: iex_debug_pub.LogMessage(l_api_name || ': Return data:');
2375: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_ID = ' || X_PMTRESP_REC.INSTRUMENT_ID);
2376: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_TYPE = ' || X_PMTRESP_REC.INSTRUMENT_TYPE);
2377: iex_debug_pub.LogMessage(l_api_name || ': TRXN_ID = ' || X_PMTRESP_REC.TRXN_ID);
2378: iex_debug_pub.LogMessage(l_api_name || ': TRXN_TYPE = ' || X_PMTRESP_REC.TRXN_TYPE);
2379: iex_debug_pub.LogMessage(l_api_name || ': TRXN_DATE = ' || X_PMTRESP_REC.TRXN_DATE);
2380: iex_debug_pub.LogMessage(l_api_name || ': AUTHCODE = ' || X_PMTRESP_REC.AUTHCODE);
2381: iex_debug_pub.LogMessage(l_api_name || ': PAYEE_ID = ' || X_PMTRESP_REC.PAYEE_ID);
2374: iex_debug_pub.LogMessage(l_api_name || ': Return data:');
2375: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_ID = ' || X_PMTRESP_REC.INSTRUMENT_ID);
2376: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_TYPE = ' || X_PMTRESP_REC.INSTRUMENT_TYPE);
2377: iex_debug_pub.LogMessage(l_api_name || ': TRXN_ID = ' || X_PMTRESP_REC.TRXN_ID);
2378: iex_debug_pub.LogMessage(l_api_name || ': TRXN_TYPE = ' || X_PMTRESP_REC.TRXN_TYPE);
2379: iex_debug_pub.LogMessage(l_api_name || ': TRXN_DATE = ' || X_PMTRESP_REC.TRXN_DATE);
2380: iex_debug_pub.LogMessage(l_api_name || ': AUTHCODE = ' || X_PMTRESP_REC.AUTHCODE);
2381: iex_debug_pub.LogMessage(l_api_name || ': PAYEE_ID = ' || X_PMTRESP_REC.PAYEE_ID);
2382: iex_debug_pub.LogMessage(l_api_name || ': TANGIBLE_ID = ' || X_PMTRESP_REC.TANGIBLE_ID);
2375: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_ID = ' || X_PMTRESP_REC.INSTRUMENT_ID);
2376: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_TYPE = ' || X_PMTRESP_REC.INSTRUMENT_TYPE);
2377: iex_debug_pub.LogMessage(l_api_name || ': TRXN_ID = ' || X_PMTRESP_REC.TRXN_ID);
2378: iex_debug_pub.LogMessage(l_api_name || ': TRXN_TYPE = ' || X_PMTRESP_REC.TRXN_TYPE);
2379: iex_debug_pub.LogMessage(l_api_name || ': TRXN_DATE = ' || X_PMTRESP_REC.TRXN_DATE);
2380: iex_debug_pub.LogMessage(l_api_name || ': AUTHCODE = ' || X_PMTRESP_REC.AUTHCODE);
2381: iex_debug_pub.LogMessage(l_api_name || ': PAYEE_ID = ' || X_PMTRESP_REC.PAYEE_ID);
2382: iex_debug_pub.LogMessage(l_api_name || ': TANGIBLE_ID = ' || X_PMTRESP_REC.TANGIBLE_ID);
2383: END IF;
2376: iex_debug_pub.LogMessage(l_api_name || ': INSTRUMENT_TYPE = ' || X_PMTRESP_REC.INSTRUMENT_TYPE);
2377: iex_debug_pub.LogMessage(l_api_name || ': TRXN_ID = ' || X_PMTRESP_REC.TRXN_ID);
2378: iex_debug_pub.LogMessage(l_api_name || ': TRXN_TYPE = ' || X_PMTRESP_REC.TRXN_TYPE);
2379: iex_debug_pub.LogMessage(l_api_name || ': TRXN_DATE = ' || X_PMTRESP_REC.TRXN_DATE);
2380: iex_debug_pub.LogMessage(l_api_name || ': AUTHCODE = ' || X_PMTRESP_REC.AUTHCODE);
2381: iex_debug_pub.LogMessage(l_api_name || ': PAYEE_ID = ' || X_PMTRESP_REC.PAYEE_ID);
2382: iex_debug_pub.LogMessage(l_api_name || ': TANGIBLE_ID = ' || X_PMTRESP_REC.TANGIBLE_ID);
2383: END IF;
2384:
2377: iex_debug_pub.LogMessage(l_api_name || ': TRXN_ID = ' || X_PMTRESP_REC.TRXN_ID);
2378: iex_debug_pub.LogMessage(l_api_name || ': TRXN_TYPE = ' || X_PMTRESP_REC.TRXN_TYPE);
2379: iex_debug_pub.LogMessage(l_api_name || ': TRXN_DATE = ' || X_PMTRESP_REC.TRXN_DATE);
2380: iex_debug_pub.LogMessage(l_api_name || ': AUTHCODE = ' || X_PMTRESP_REC.AUTHCODE);
2381: iex_debug_pub.LogMessage(l_api_name || ': PAYEE_ID = ' || X_PMTRESP_REC.PAYEE_ID);
2382: iex_debug_pub.LogMessage(l_api_name || ': TANGIBLE_ID = ' || X_PMTRESP_REC.TANGIBLE_ID);
2383: END IF;
2384:
2385: COMMIT WORK;
2378: iex_debug_pub.LogMessage(l_api_name || ': TRXN_TYPE = ' || X_PMTRESP_REC.TRXN_TYPE);
2379: iex_debug_pub.LogMessage(l_api_name || ': TRXN_DATE = ' || X_PMTRESP_REC.TRXN_DATE);
2380: iex_debug_pub.LogMessage(l_api_name || ': AUTHCODE = ' || X_PMTRESP_REC.AUTHCODE);
2381: iex_debug_pub.LogMessage(l_api_name || ': PAYEE_ID = ' || X_PMTRESP_REC.PAYEE_ID);
2382: iex_debug_pub.LogMessage(l_api_name || ': TANGIBLE_ID = ' || X_PMTRESP_REC.TANGIBLE_ID);
2383: END IF;
2384:
2385: COMMIT WORK;
2386: x_return_status := FND_API.G_RET_STS_SUCCESS;
2414: FETCH pay_genid_crs INTO l_payment_id;
2415: CLOSE pay_genid_crs;
2416:
2417: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2418: iex_debug_pub.LogMessage(l_api_name || ': New payment_id = ' || l_payment_id);
2419: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_PAYMENTS_PKG.Insert_Row');
2420: END IF;
2421: IEX_PAYMENTS_PKG.Insert_Row(
2422: X_ROWID => l_rowid,
2415: CLOSE pay_genid_crs;
2416:
2417: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2418: iex_debug_pub.LogMessage(l_api_name || ': New payment_id = ' || l_payment_id);
2419: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_PAYMENTS_PKG.Insert_Row');
2420: END IF;
2421: IEX_PAYMENTS_PKG.Insert_Row(
2422: X_ROWID => l_rowid,
2423: P_PAYMENT_ID => l_payment_id,
2454: P_ATTRIBUTE14 => P_PMT_REC.ATTRIBUTES.ATTRIBUTE14,
2455: P_ATTRIBUTE15 => P_PMT_REC.ATTRIBUTES.ATTRIBUTE15);
2456:
2457: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2458: iex_debug_pub.LogMessage(l_api_name || ': After IEX_PAYMENTS_PKG.Insert_Row');
2459: END IF;
2460: X_PMTRESP_REC.PAYMENT_ID := l_payment_id;
2461: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2462: iex_debug_pub.LogMessage(l_api_name || ': l_payment_id=' || l_payment_id);
2458: iex_debug_pub.LogMessage(l_api_name || ': After IEX_PAYMENTS_PKG.Insert_Row');
2459: END IF;
2460: X_PMTRESP_REC.PAYMENT_ID := l_payment_id;
2461: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2462: iex_debug_pub.LogMessage(l_api_name || ': l_payment_id=' || l_payment_id);
2463: END IF;
2464:
2465: -- commit first part of API: made iPayment money transfer and created IEX payment record with iPayment info
2466: COMMIT WORK;
2499: --l_fun_currency := get_fun_currency;
2500: IF P_PMT_REC.PAYMENT_TARGET = 'CNSLD' THEN
2501:
2502: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2503: iex_debug_pub.LogMessage(l_api_name || ': Payment target CNSLD');
2504: END IF;
2505:
2506: -- run thru table of details and call OKL payment API
2507: FOR i IN 1..P_PMTDTLS_TBL.COUNT LOOP
2506: -- run thru table of details and call OKL payment API
2507: FOR i IN 1..P_PMTDTLS_TBL.COUNT LOOP
2508:
2509: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2510: iex_debug_pub.LogMessage(l_api_name || ': Details record ' || i);
2511: iex_debug_pub.LogMessage(l_api_name || ': Input for OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS:');
2512: iex_debug_pub.LogMessage(l_api_name || ': p_customer_id = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
2513: iex_debug_pub.LogMessage(l_api_name || ': p_invoice_id = ' || P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID);
2514: iex_debug_pub.LogMessage(l_api_name || ': p_payment_method_id = ' || l_ar_pay_method);
2507: FOR i IN 1..P_PMTDTLS_TBL.COUNT LOOP
2508:
2509: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2510: iex_debug_pub.LogMessage(l_api_name || ': Details record ' || i);
2511: iex_debug_pub.LogMessage(l_api_name || ': Input for OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS:');
2512: iex_debug_pub.LogMessage(l_api_name || ': p_customer_id = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
2513: iex_debug_pub.LogMessage(l_api_name || ': p_invoice_id = ' || P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID);
2514: iex_debug_pub.LogMessage(l_api_name || ': p_payment_method_id = ' || l_ar_pay_method);
2515: iex_debug_pub.LogMessage(l_api_name || ': p_payment_ref_number = ' || 'IEX_' || l_payment_id);
2508:
2509: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2510: iex_debug_pub.LogMessage(l_api_name || ': Details record ' || i);
2511: iex_debug_pub.LogMessage(l_api_name || ': Input for OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS:');
2512: iex_debug_pub.LogMessage(l_api_name || ': p_customer_id = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
2513: iex_debug_pub.LogMessage(l_api_name || ': p_invoice_id = ' || P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID);
2514: iex_debug_pub.LogMessage(l_api_name || ': p_payment_method_id = ' || l_ar_pay_method);
2515: iex_debug_pub.LogMessage(l_api_name || ': p_payment_ref_number = ' || 'IEX_' || l_payment_id);
2516: iex_debug_pub.LogMessage(l_api_name || ': p_payment_amount = ' || P_PMTDTLS_TBL(i).AMOUNT);
2509: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2510: iex_debug_pub.LogMessage(l_api_name || ': Details record ' || i);
2511: iex_debug_pub.LogMessage(l_api_name || ': Input for OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS:');
2512: iex_debug_pub.LogMessage(l_api_name || ': p_customer_id = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
2513: iex_debug_pub.LogMessage(l_api_name || ': p_invoice_id = ' || P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID);
2514: iex_debug_pub.LogMessage(l_api_name || ': p_payment_method_id = ' || l_ar_pay_method);
2515: iex_debug_pub.LogMessage(l_api_name || ': p_payment_ref_number = ' || 'IEX_' || l_payment_id);
2516: iex_debug_pub.LogMessage(l_api_name || ': p_payment_amount = ' || P_PMTDTLS_TBL(i).AMOUNT);
2517: iex_debug_pub.LogMessage(l_api_name || ': p_currency_code = ' || P_PMT_REC.CURRENCY_CODE);
2510: iex_debug_pub.LogMessage(l_api_name || ': Details record ' || i);
2511: iex_debug_pub.LogMessage(l_api_name || ': Input for OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS:');
2512: iex_debug_pub.LogMessage(l_api_name || ': p_customer_id = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
2513: iex_debug_pub.LogMessage(l_api_name || ': p_invoice_id = ' || P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID);
2514: iex_debug_pub.LogMessage(l_api_name || ': p_payment_method_id = ' || l_ar_pay_method);
2515: iex_debug_pub.LogMessage(l_api_name || ': p_payment_ref_number = ' || 'IEX_' || l_payment_id);
2516: iex_debug_pub.LogMessage(l_api_name || ': p_payment_amount = ' || P_PMTDTLS_TBL(i).AMOUNT);
2517: iex_debug_pub.LogMessage(l_api_name || ': p_currency_code = ' || P_PMT_REC.CURRENCY_CODE);
2518: iex_debug_pub.LogMessage(l_api_name || ': p_payment_date = ' || sysdate);
2511: iex_debug_pub.LogMessage(l_api_name || ': Input for OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS:');
2512: iex_debug_pub.LogMessage(l_api_name || ': p_customer_id = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
2513: iex_debug_pub.LogMessage(l_api_name || ': p_invoice_id = ' || P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID);
2514: iex_debug_pub.LogMessage(l_api_name || ': p_payment_method_id = ' || l_ar_pay_method);
2515: iex_debug_pub.LogMessage(l_api_name || ': p_payment_ref_number = ' || 'IEX_' || l_payment_id);
2516: iex_debug_pub.LogMessage(l_api_name || ': p_payment_amount = ' || P_PMTDTLS_TBL(i).AMOUNT);
2517: iex_debug_pub.LogMessage(l_api_name || ': p_currency_code = ' || P_PMT_REC.CURRENCY_CODE);
2518: iex_debug_pub.LogMessage(l_api_name || ': p_payment_date = ' || sysdate);
2519: iex_debug_pub.LogMessage(l_api_name || ': Before OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2512: iex_debug_pub.LogMessage(l_api_name || ': p_customer_id = ' || P_PMTDTLS_TBL(i).CUST_ACCOUNT_ID);
2513: iex_debug_pub.LogMessage(l_api_name || ': p_invoice_id = ' || P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID);
2514: iex_debug_pub.LogMessage(l_api_name || ': p_payment_method_id = ' || l_ar_pay_method);
2515: iex_debug_pub.LogMessage(l_api_name || ': p_payment_ref_number = ' || 'IEX_' || l_payment_id);
2516: iex_debug_pub.LogMessage(l_api_name || ': p_payment_amount = ' || P_PMTDTLS_TBL(i).AMOUNT);
2517: iex_debug_pub.LogMessage(l_api_name || ': p_currency_code = ' || P_PMT_REC.CURRENCY_CODE);
2518: iex_debug_pub.LogMessage(l_api_name || ': p_payment_date = ' || sysdate);
2519: iex_debug_pub.LogMessage(l_api_name || ': Before OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2520: END IF;
2513: iex_debug_pub.LogMessage(l_api_name || ': p_invoice_id = ' || P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID);
2514: iex_debug_pub.LogMessage(l_api_name || ': p_payment_method_id = ' || l_ar_pay_method);
2515: iex_debug_pub.LogMessage(l_api_name || ': p_payment_ref_number = ' || 'IEX_' || l_payment_id);
2516: iex_debug_pub.LogMessage(l_api_name || ': p_payment_amount = ' || P_PMTDTLS_TBL(i).AMOUNT);
2517: iex_debug_pub.LogMessage(l_api_name || ': p_currency_code = ' || P_PMT_REC.CURRENCY_CODE);
2518: iex_debug_pub.LogMessage(l_api_name || ': p_payment_date = ' || sysdate);
2519: iex_debug_pub.LogMessage(l_api_name || ': Before OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2520: END IF;
2521: OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS(
2514: iex_debug_pub.LogMessage(l_api_name || ': p_payment_method_id = ' || l_ar_pay_method);
2515: iex_debug_pub.LogMessage(l_api_name || ': p_payment_ref_number = ' || 'IEX_' || l_payment_id);
2516: iex_debug_pub.LogMessage(l_api_name || ': p_payment_amount = ' || P_PMTDTLS_TBL(i).AMOUNT);
2517: iex_debug_pub.LogMessage(l_api_name || ': p_currency_code = ' || P_PMT_REC.CURRENCY_CODE);
2518: iex_debug_pub.LogMessage(l_api_name || ': p_payment_date = ' || sysdate);
2519: iex_debug_pub.LogMessage(l_api_name || ': Before OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2520: END IF;
2521: OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS(
2522: p_api_version => 1.0,
2515: iex_debug_pub.LogMessage(l_api_name || ': p_payment_ref_number = ' || 'IEX_' || l_payment_id);
2516: iex_debug_pub.LogMessage(l_api_name || ': p_payment_amount = ' || P_PMTDTLS_TBL(i).AMOUNT);
2517: iex_debug_pub.LogMessage(l_api_name || ': p_currency_code = ' || P_PMT_REC.CURRENCY_CODE);
2518: iex_debug_pub.LogMessage(l_api_name || ': p_payment_date = ' || sysdate);
2519: iex_debug_pub.LogMessage(l_api_name || ': Before OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2520: END IF;
2521: OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS(
2522: p_api_version => 1.0,
2523: p_init_msg_list => FND_API.G_FALSE,
2533: x_msg_count => L_MSG_COUNT,
2534: x_msg_data => L_MSG_DATA);
2535:
2536: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2537: iex_debug_pub.LogMessage(l_api_name || ': After OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2538: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
2539: END IF;
2540:
2541: -- check for errors
2534: x_msg_data => L_MSG_DATA);
2535:
2536: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2537: iex_debug_pub.LogMessage(l_api_name || ': After OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2538: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
2539: END IF;
2540:
2541: -- check for errors
2542: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2540:
2541: -- check for errors
2542: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2543: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2544: iex_debug_pub.LogMessage(l_api_name || ': OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS failed');
2545: END IF;
2546: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_PAY_OKL_CNSLD');
2547: FND_MSG_PUB.Add;
2548: RAISE FND_API.G_EXC_ERROR;
2553: FETCH pox_genid_crs INTO l_pay_okl_ref_id;
2554: CLOSE pox_genid_crs;
2555:
2556: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2557: iex_debug_pub.LogMessage(l_api_name || ': New pay_okl_ref_id = ' || l_pay_okl_ref_id);
2558: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_PAY_OKL_XREF_PKG.INSERT_ROW');
2559: END IF;
2560:
2561: IEX_PAY_OKL_XREF_PKG.Insert_Row(
2554: CLOSE pox_genid_crs;
2555:
2556: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2557: iex_debug_pub.LogMessage(l_api_name || ': New pay_okl_ref_id = ' || l_pay_okl_ref_id);
2558: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_PAY_OKL_XREF_PKG.INSERT_ROW');
2559: END IF;
2560:
2561: IEX_PAY_OKL_XREF_PKG.Insert_Row(
2562: X_ROWID => l_rowid,
2573: P_CONTRACT_ID => null,
2574: P_OKL_PAYMENT_ID => l_pay_okl_cnsld_id_tab(i));
2575:
2576: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2577: iex_debug_pub.LogMessage(l_api_name || ': After IEX_PAY_OKL_XREF_PKG.INSERT_ROW');
2578: END IF;
2579:
2580: END LOOP;
2581:
2581:
2582: ELSIF P_PMT_REC.PAYMENT_TARGET = 'CONTRACTS' THEN
2583:
2584: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2585: iex_debug_pub.LogMessage(l_api_name || ': Payment target CONTRACTS');
2586: END IF;
2587:
2588: -- run thru table of details and call OKL payment API
2589: FOR i IN 1..P_PMTDTLS_TBL.COUNT LOOP
2588: -- run thru table of details and call OKL payment API
2589: FOR i IN 1..P_PMTDTLS_TBL.COUNT LOOP
2590:
2591: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2592: iex_debug_pub.LogMessage(l_api_name || ': Details record ' || i);
2593: iex_debug_pub.LogMessage(l_api_name || ': Before OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2594: END IF;
2595: OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS(
2596: p_api_version => 1.0,
2589: FOR i IN 1..P_PMTDTLS_TBL.COUNT LOOP
2590:
2591: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2592: iex_debug_pub.LogMessage(l_api_name || ': Details record ' || i);
2593: iex_debug_pub.LogMessage(l_api_name || ': Before OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2594: END IF;
2595: OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS(
2596: p_api_version => 1.0,
2597: p_init_msg_list => FND_API.G_FALSE,
2607: x_msg_count => L_MSG_COUNT,
2608: x_msg_data => L_MSG_DATA);
2609:
2610: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2611: iex_debug_pub.LogMessage(l_api_name || ': After OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2612: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
2613: END IF;
2614:
2615: -- check for errors
2608: x_msg_data => L_MSG_DATA);
2609:
2610: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2611: iex_debug_pub.LogMessage(l_api_name || ': After OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS');
2612: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
2613: END IF;
2614:
2615: -- check for errors
2616: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2614:
2615: -- check for errors
2616: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2617: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2618: iex_debug_pub.LogMessage(l_api_name || ': OKL_PAYMENT_PUB.CREATE_INTERNAL_TRANS failed');
2619: END IF;
2620: FND_MESSAGE.SET_NAME('IEX', 'IEX_FAILED_PAY_OKL_CONTRACT');
2621: FND_MSG_PUB.Add;
2622: RAISE FND_API.G_EXC_ERROR;
2627: FETCH pox_genid_crs INTO l_pay_okl_ref_id;
2628: CLOSE pox_genid_crs;
2629:
2630: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2631: iex_debug_pub.LogMessage(l_api_name || ': New pay_okl_ref_id = ' || l_pay_okl_ref_id);
2632: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_PAY_OKL_XREF_PKG.INSERT_ROW');
2633: END IF;
2634:
2635: IEX_PAY_OKL_XREF_PKG.Insert_Row(
2628: CLOSE pox_genid_crs;
2629:
2630: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2631: iex_debug_pub.LogMessage(l_api_name || ': New pay_okl_ref_id = ' || l_pay_okl_ref_id);
2632: iex_debug_pub.LogMessage(l_api_name || ': Before IEX_PAY_OKL_XREF_PKG.INSERT_ROW');
2633: END IF;
2634:
2635: IEX_PAY_OKL_XREF_PKG.Insert_Row(
2636: X_ROWID => l_rowid,
2647: P_CONTRACT_ID => P_PMTDTLS_TBL(i).CONTRACT_ID,
2648: p_OKL_PAYMENT_ID => l_pay_okl_contract_id_tab(i));
2649:
2650: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2651: iex_debug_pub.LogMessage(l_api_name || ': After IEX_PAY_OKL_XREF_PKG.INSERT_ROW');
2652: END IF;
2653:
2654: END LOOP;
2655:
2692: SAVEPOINT CREATE_OKL_PAYMENT_PVT3;
2693:
2694: l_note_type := fnd_profile.value('AST_NOTES_DEFAULT_TYPE');
2695: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2696: iex_debug_pub.LogMessage(l_api_name || ': l_note_type = ' || l_note_type);
2697: END IF;
2698:
2699: -- if note is passed - insert it
2700: if P_PMT_REC.NOTE is not null and l_note_type is not null then
2698:
2699: -- if note is passed - insert it
2700: if P_PMT_REC.NOTE is not null and l_note_type is not null then
2701: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2702: iex_debug_pub.LogMessage(l_api_name || ': Note is not null');
2703: END IF;
2704:
2705: IF P_PMT_REC.PAYMENT_TARGET = 'CNSLD' or P_PMT_REC.PAYMENT_TARGET = 'CONTRACTS' THEN
2706:
2753: END LOOP;
2754:
2755: -- for debug purpose only
2756: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2757: iex_debug_pub.LogMessage(l_api_name || ': l_source_object_id = ' || l_source_object_id);
2758: iex_debug_pub.LogMessage(l_api_name || ': l_source_object_code = ' || l_source_object_code);
2759: END IF;
2760: FOR i IN 1..l_context_tab.COUNT LOOP
2761: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2754:
2755: -- for debug purpose only
2756: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2757: iex_debug_pub.LogMessage(l_api_name || ': l_source_object_id = ' || l_source_object_id);
2758: iex_debug_pub.LogMessage(l_api_name || ': l_source_object_code = ' || l_source_object_code);
2759: END IF;
2760: FOR i IN 1..l_context_tab.COUNT LOOP
2761: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2762: iex_debug_pub.LogMessage(l_api_name || ': l_context_tab(' || i || ').context_type = ' || l_context_tab(i).context_type);
2758: iex_debug_pub.LogMessage(l_api_name || ': l_source_object_code = ' || l_source_object_code);
2759: END IF;
2760: FOR i IN 1..l_context_tab.COUNT LOOP
2761: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2762: iex_debug_pub.LogMessage(l_api_name || ': l_context_tab(' || i || ').context_type = ' || l_context_tab(i).context_type);
2763: iex_debug_pub.LogMessage(l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
2764: END IF;
2765: END LOOP;
2766:
2759: END IF;
2760: FOR i IN 1..l_context_tab.COUNT LOOP
2761: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2762: iex_debug_pub.LogMessage(l_api_name || ': l_context_tab(' || i || ').context_type = ' || l_context_tab(i).context_type);
2763: iex_debug_pub.LogMessage(l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
2764: END IF;
2765: END LOOP;
2766:
2767: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2764: END IF;
2765: END LOOP;
2766:
2767: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2768: iex_debug_pub.LogMessage(l_api_name || ': Before call to IEX_NOTES_PVT.Create_Note');
2769: END IF;
2770: IEX_NOTES_PVT.Create_Note(
2771: P_API_VERSION => l_api_version,
2772: P_INIT_MSG_LIST => FND_API.G_FALSE,
2781: p_notes => P_PMT_REC.NOTE,
2782: p_contexts_tbl => l_context_tab,
2783: x_note_id => X_PMTRESP_REC.NOTE_ID);
2784: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2785: iex_debug_pub.LogMessage(l_api_name || ': After call to IEX_NOTES_PVT.Create_Note');
2786: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
2787: END IF;
2788:
2789: -- check for errors
2782: p_contexts_tbl => l_context_tab,
2783: x_note_id => X_PMTRESP_REC.NOTE_ID);
2784: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2785: iex_debug_pub.LogMessage(l_api_name || ': After call to IEX_NOTES_PVT.Create_Note');
2786: iex_debug_pub.LogMessage(l_api_name || ': Status = ' || L_RETURN_STATUS);
2787: END IF;
2788:
2789: -- check for errors
2790: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2788:
2789: -- check for errors
2790: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2791: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2792: iex_debug_pub.LogMessage(l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
2793: END IF;
2794: RAISE FND_API.G_EXC_ERROR;
2795: END IF;
2796: