APPS.IEX_PAYMENTS_PUB dependencies on FND_LOG

Line 4: PG_DEBUG NUMBER; -- := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

1: PACKAGE BODY IEX_PAYMENTS_PUB as
2: /* $Header: iexpypyb.pls 120.15.12010000.2 2008/08/29 13:53:38 gnramasa ship $ */
3:
4: PG_DEBUG NUMBER; -- := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
6: G_APP_ID CONSTANT NUMBER := 695;
7: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_PAYMENTS_PUB';
8: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexpypyb.pls';

Line 27: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

23: l_amount number;
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

Line 37: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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');

Line 48: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

44: RAISE FND_API.G_EXC_ERROR;
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

Line 54: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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');

Line 65: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

61: RAISE FND_API.G_EXC_ERROR;
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

Line 71: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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');

Line 82: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

78: RAISE FND_API.G_EXC_ERROR;
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

Line 87: 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
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

Line 93: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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');

Line 103: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

99: FND_MSG_PUB.Add;
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

Line 109: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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');

Line 122: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

118: end if;
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

Line 128: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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');

Line 140: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

136: end if;
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

Line 145: 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');
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');

Line 155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

151: FND_MSG_PUB.Add;
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

Line 159: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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);
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;

Line 165: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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');
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');

Line 176: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

172: RAISE FND_API.G_EXC_ERROR;
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

Line 181: 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');
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');

Line 192: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

188: RAISE FND_API.G_EXC_ERROR;
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

Line 197: 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');
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');

Line 207: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

203: FND_MSG_PUB.Add;
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

Line 212: 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');
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');

Line 221: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

Line 226: 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');
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');

Line 236: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

232: FND_MSG_PUB.Add;
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

Line 241: 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');
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');

Line 251: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

247: FND_MSG_PUB.Add;
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

Line 256: 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');
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');

Line 267: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

263: RAISE FND_API.G_EXC_ERROR;
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;

Line 273: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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');
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');

Line 284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

280: RAISE FND_API.G_EXC_ERROR;
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

Line 292: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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')
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');

Line 304: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

300: end if;
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);

Line 314: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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');

Line 324: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

320: FND_MSG_PUB.Add;
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);

Line 336: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

332: P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_NUM 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');

Line 356: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

352: l_msg_data VARCHAR2(32767);
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,

Line 373: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

369: IF l_return_status<>'S' THEN
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;

Line 395: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

391: where party_id = p_party_id;
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);

Line 405: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

401:
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';

Line 415: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

411: else
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';

Line 424: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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';

Line 431: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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;
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;

Line 442: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

438: end if;
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);

Line 453: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

449: OPEN get_payer_name_crs(X_PAYER_NUM_ID);
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');

Line 463: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

459: RAISE FND_API.G_EXC_ERROR;
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:

Line 475: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

471: is
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;

Line 485: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

481: if p_payment_type = 'CC' then
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;

Line 498: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

494: elsif p_payment_type = 'BA' then
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;

Line 508: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

504: end if;
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;

Line 527: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

523: x_branch_id out NOCOPY 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;

Line 534: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

530: x_bank_account_id := null;
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;

Line 540: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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);
542: END IF;
543: /* obsoleted ar pkg ..fixed a bug 5130923
544: arp_bank_pkg.process_cust_bank_account(

Line 559: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

555: p_account_type => 'BANK',
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);

Line 581: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

577: x_branch_id out NOCOPY 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;

Line 588: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

584: x_bank_account_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);

Line 595: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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...');
597: END IF;
598:
599: /* obsoleted ar pkg ..fixed a bug 5130923

Line 601: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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;

Line 611: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

607: end if;
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

Line 620: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

Line 624: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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);
626: END IF;
627:
628: /* obsoleted ar pkg ..fixed a bug 5130923

Line 645: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

641: p_payment_instrument => '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);

Line 751: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

747: -- Initialize API return status to success
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

Line 763: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

759: end if;
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,

Line 771: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

767: validate_input(P_PMT_REC => P_PMT_REC,
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 */

Line 776: 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
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,

Line 788: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

784: X_PAYER_NUM_ID => l_payer_num_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);

Line 798: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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...');
800: end if ;
801:
802: -- generate new payment id

Line 807: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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:

Line 848: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

844: P_ATTRIBUTE13 => P_PMT_REC.ATTRIBUTES.ATTRIBUTE13,
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

Line 852: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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') ;
854: END IF;
855: X_PMTRESP_REC.PAYMENT_ID := l_payment_id;
856:

Line 857: 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
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;

Line 866: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

Line 873: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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.

Line 878: 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
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

Line 924: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

920: FETCH rc_genid_crs INTO l_cr_number;
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:

Line 1023: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1019: -- End -- varangan --Bug4528444 -- included for payments uptake
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;

Line 1031: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1027: END IF;
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;

Line 1046: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1042: END IF;
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

Line 1059: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1055: X_RETURN_STATUS => L_RETURN_STATUS,
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:

Line 1066: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1062: END IF;
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');

Line 1081: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1077: OPEN pad_genid_crs;
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:

Line 1101: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1097: P_CASH_RECEIPT_ID => l_cr_id);
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:

Line 1109: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1105:
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.

Line 1114: 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
1115: iex_debug_pub.LogMessage(l_api_name || ': Payment instrument is ' || P_PMTINSTR_REC.USE_INSTRUMENT);
1116: END IF;
1117:
1118:

Line 1166: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1162: CLOSE rc_genid_crs;
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:

Line 1171: 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....');
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:

Line 1178: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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

Line 1334: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1330:
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;

Line 1347: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1343: x_return_status :=l_return_status;
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;

Line 1360: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1356: FETCH get_delid_crs INTO l_del_id;
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

Line 1369: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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(

Line 1386: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1382: P_OBJECT_VERSION_NUMBER => 1.0,
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

Line 1390: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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.');
1392: END IF;
1393: end if;
1394:

Line 1400: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1396: OPEN pad_genid_crs;
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:

Line 1418: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1414: P_OBJECT_VERSION_NUMBER => 1.0,
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;

Line 1429: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1425: -- bug 4868943 FOR i IN 2..P_PMTDTLS_TBL.COUNT LOOP
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:

Line 1435: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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

Line 1470: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1466: p_trans_to_receipt_rate => P_PMTDTLS_TBL(i).TRX_TO_CR_RATE,
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;

Line 1483: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1479: return; -- RAISE FND_API.G_EXC_ERROR;
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:

Line 1493: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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');

Line 1508: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1504: FETCH get_delid_crs INTO l_del_id;
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

Line 1517: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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(

Line 1534: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1530: P_OBJECT_VERSION_NUMBER => 1.0,
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

Line 1538: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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.');
1540: END IF;
1541: end if;
1542: END LOOP;

Line 1550: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1546: OPEN pad_genid_crs;
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:

Line 1570: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1566: P_CASH_RECEIPT_ID => l_cr_id);
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;

Line 1620: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1616: BEGIN
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 */

Line 1626: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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

Line 1679: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1675: END LOOP;
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:

Line 1685: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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;

Line 1691: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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(

Line 1710: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1706: p_notes => P_PMT_REC.NOTE,
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:

Line 1717: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1713: END IF;
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;

Line 1876: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1872: -- Initialize API return status to success
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

Line 1881: 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
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,

Line 1887: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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);
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

Line 1892: 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
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,

Line 1904: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1900: X_PAYER_NUM_ID => l_payer_num_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);

Line 1915: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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

Line 1922: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1918:
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:

Line 1927: 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
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');

Line 1932: 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
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

Line 1936: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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');
1938: END IF;
1939: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_CC_REMITTANCE');
1940: FND_MSG_PUB.Add;

Line 1946: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1942: end if;
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;

Line 1954: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1950: FETCH get_ccid_crs INTO l_instr_id;
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:

Line 1966: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1962: l_pmtInstrRec.CreditCardInstr.CC_NUM := P_PMTINSTR_REC.CREDITCARDINSTR.CC_NUM;
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

Line 1983: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1979: -- p_pmtInstrRec => l_pmtInstrRec,
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:

Line 1990: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1986: END IF;
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;

Line 1998: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1994: FND_MSG_PUB.Add;
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;

Line 2010: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2006: l_pmtInstrRec.CreditCardInstr.FINAME := P_PMTINSTR_REC.CREDITCARDINSTR.FINAME;
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: (

Line 2028: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2024: p_validation_level => FND_API.G_VALID_LEVEL_FULL
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:

Line 2035: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2031: END IF;
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;

Line 2058: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2054:
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');

Line 2063: 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
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

Line 2067: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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');
2069: END IF;
2070: FND_MESSAGE.SET_NAME('IEX', 'IEX_NO_EFT_REMITTANCE');
2071: FND_MSG_PUB.Add;

Line 2077: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2073: end if;
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),

Line 2087: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2083: FETCH get_baid_crs INTO l_instr_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:

Line 2100: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2096: l_pmtInstrRec.BankAcctInstr.BankAcct_Type := P_PMTINSTR_REC.BANKACCTINSTR.BANKACCT_TYPE;
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(

Line 2116: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2112: -- p_pmtInstrRec => l_pmtInstrRec,
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:

Line 2123: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2119: END IF;
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;

Line 2131: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2127: FND_MSG_PUB.Add;
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:

Line 2155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2151: l_payee_rec.Payee_ID := P_PMT_REC.PAYEE_ID;
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:

Line 2169: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2165: l_tangible_rec.tangible_amount := P_PMT_REC.TOTAL_AMOUNT;
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);

Line 2178: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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:

Line 2200: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2196: x_msg_count => l_msg_count,
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);

Line 2220: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2216: END IF;
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);

Line 2240: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2236: l_capturetrxn_rec.PmtMode := 'ONLINE';
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,

Line 2254: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2250: x_msg_count => l_msg_count,
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);

Line 2272: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2268: END IF;
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);

Line 2287: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2283: FND_MSG_PUB.Add;
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

Line 2308: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2304: x_msg_count => l_msg_count,
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);

Line 2327: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2323: END IF;
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);

Line 2373: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2369: X_PMTRESP_REC.AUTHCODE := l_reqresp_rec.AuthCode;
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);

Line 2417: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2413: OPEN pay_genid_crs;
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(

Line 2457: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2453: P_ATTRIBUTE13 => P_PMT_REC.ATTRIBUTES.ATTRIBUTE13,
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

Line 2461: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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);
2463: END IF;
2464:
2465: -- commit first part of API: made iPayment money transfer and created IEX payment record with iPayment info

Line 2502: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2498:
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

Line 2509: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2505:
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);

Line 2536: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2532: x_return_status => L_RETURN_STATUS,
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:

Line 2543: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2539: END IF;
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;

Line 2556: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2552: OPEN pox_genid_crs;
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:

Line 2576: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2572: P_CNSLD_INVOICE_ID => P_PMTDTLS_TBL(i).CNSLD_INVOICE_ID,
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;

Line 2584: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2580: END LOOP;
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

Line 2591: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2587:
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(

Line 2610: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2606: x_return_status => L_RETURN_STATUS,
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:

Line 2617: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2613: END IF;
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;

Line 2630: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2626: OPEN pox_genid_crs;
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:

Line 2650: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2646: p_CNSLD_INVOICE_ID => null,
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;

Line 2695: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2691: -- Third part of API savepoint
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

Line 2701: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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

Line 2756: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2752:
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

Line 2761: 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);
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;

Line 2767: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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
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,

Line 2784: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2780: p_note_type => l_note_type,
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:

Line 2791: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

2787: END IF;
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;

Line 2890: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

2886: -- End -- Commenting out for Payments Uptake */
2887: END IF;
2888: END;
2889: begin
2890: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2891: G_LOGIN_ID := FND_GLOBAL.Conc_Login_Id;
2892: G_PROGRAM_ID := FND_GLOBAL.Conc_Program_Id;
2893: G_USER_ID := FND_GLOBAL.User_Id;
2894: G_REQUEST_ID := FND_GLOBAL.Conc_Request_Id;