APPS.IEX_PROMISES_PUB dependencies on FND_LOG

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

1: PACKAGE BODY IEX_PROMISES_PUB as
2: /* $Header: iexpyprb.pls 120.8.12010000.3 2008/11/21 10:34:09 barathsr 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_PROMISES_PUB';
8: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexpyprb.pls';

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

43: j number;
44: l_uwq_active_date date;
45: l_uwq_complete_date date;
46: begin
47: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
48: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': start');
49: END IF;
50:
51: -- Standard start of API savepoint

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

67: -- START OF BODY OF API
68:
69: -- validating uwq status
70: l_validation_item := 'P_STATUS';
71: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
72: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': new uwq status: ' || P_STATUS);
73: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
74: END IF;
75: if P_STATUS is null then

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

72: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': new uwq status: ' || P_STATUS);
73: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
74: END IF;
75: if P_STATUS is null then
76: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
77: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
78: END IF;
79: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
80: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

84: end if;
85:
86: -- validating table of promises
87: l_validation_item := 'P_PROMISE_TBL';
88: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
89: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': count of P_PROMISE_TBL: ' || P_PROMISE_TBL.count);
90: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
91: END IF;
92: if P_PROMISE_TBL.count = 0 then

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

89: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': count of P_PROMISE_TBL: ' || P_PROMISE_TBL.count);
90: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
91: END IF;
92: if P_PROMISE_TBL.count = 0 then
93: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
94: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' 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 || '.' || l_api_name);

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

101: end if;
102:
103: -- validating p_days
104: l_validation_item := 'P_DAYS';
105: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
106: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': P_DAYS: ' || P_DAYS);
107: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
108: END IF;
109: if P_DAYS is not null and P_DAYS < 0 then

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

106: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': P_DAYS: ' || P_DAYS);
107: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
108: END IF;
109: if P_DAYS is not null and P_DAYS < 0 then
110: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
111: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
112: END IF;
113: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
114: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

117: RAISE FND_API.G_EXC_ERROR;
118: end if;
119:
120: -- filter passed promises; we need only BROKEN_PROMISE promises for update
121: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
122: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': filtering broken promises...');
123: END IF;
124: l_SQL := 'SELECT state ' ||
125: 'FROM IEX_PROMISE_DETAILS ' ||

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

131: open l_cursor for l_SQL
132: using P_PROMISE_TBL(i);
133: fetch l_cursor into l_state;
134:
135: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
136: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': promise ' || P_PROMISE_TBL(i));
137: END IF;
138: if l_cursor%NOTFOUND then
139: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

135: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
136: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': promise ' || P_PROMISE_TBL(i));
137: END IF;
138: if l_cursor%NOTFOUND then
139: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
140: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': invalid promise');
141: END IF;
142: else
143: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

139: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
140: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': invalid promise');
141: END IF;
142: else
143: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
144: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': state ' || l_state);
145: END IF;
146: if l_state = 'BROKEN_PROMISE' then
147: j := j + 1;

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

145: END IF;
146: if l_state = 'BROKEN_PROMISE' then
147: j := j + 1;
148: l_broken_promises(j) := P_PROMISE_TBL(i);
149: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
150: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': promise ' || P_PROMISE_TBL(i) || ' is added to broken promises table');
151: END IF;
152: end if;
153: end if;

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

151: END IF;
152: end if;
153: end if;
154: end loop;
155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
156: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': total broken promises ' || l_broken_promises.count);
157: END IF;
158:
159: -- check for status

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

166: l_days := to_number(nvl(fnd_profile.value('IEX_UWQ_DEFAULT_PENDING_DAYS'), '0'));
167: else
168: l_days := P_DAYS;
169: end if;
170: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
171: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': number of days: ' || l_days);
172: END IF;
173: l_uwq_active_date := sysdate + l_days;
174:

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

180:
181: -- do updates of broken promises as appropriate
182: nCount := l_broken_promises.count;
183: if nCount > 0 then
184: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
185: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_uwq_active_date: ' || l_uwq_active_date);
186: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_uwq_complete_date: ' || l_uwq_complete_date);
187: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': updating promise details...');
188: END IF;

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

195: last_updated_by = G_USER_ID
196: where
197: promise_detail_id = l_broken_promises(i);
198: else
199: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
200: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': nothing to update');
201: END IF;
202: end if;
203:

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

271: WHERE prd.PROMISE_DETAIL_ID = P_PROMISE_ID
272: and prd.delinquency_id = del.delinquency_id;
273: --end bug#2369298 schekuri 24-Feb-2006
274: begin
275: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
276: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': start');
277: END IF;
278:
279: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

275: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
276: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': start');
277: END IF;
278:
279: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
280: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': promise = ' || P_PROMISE_ID);
281: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': status = ' || P_STATUS);
282: END IF;
283:

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

282: END IF;
283:
284: -- validation input
285: if P_PROMISE_ID is null then
286: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
287: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Error! P_PROMISE_ID is null');
288: END IF;
289: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
290: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

293: RAISE FND_API.G_EXC_ERROR;
294: end if;
295:
296: if P_STATUS is null then
297: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
298: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Error! P_STATUS is null');
299: END IF;
300: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
301: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

326: where preference_name = 'COLLECTIONS STRATEGY LEVEL'
327: and enabled_flag = 'Y' ;
328: --end bug#2369298 schekuri 24-Feb-2006
329:
330: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
331: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_delinquency_id = ' || l_delinquency_id);
332: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_cust_account_id = ' || l_cust_account_id);
333: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_cnsld_id = ' || l_cnsld_id);
334: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_contract_id = ' || l_contract_id);

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

334: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_contract_id = ' || l_contract_id);
335: END IF;
336:
337: if l_delinquency_id is not null and l_cust_account_id is not null and l_cnsld_id is null and l_contract_id is null then --promise on delinquency
338: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
339: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': this is promise on delinquency. Move on with set strategy.');
340: END IF;
341: l_object_type := 'DELINQUENT';
342: l_object_id := l_delinquency_id;

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

340: END IF;
341: l_object_type := 'DELINQUENT';
342: l_object_id := l_delinquency_id;
343: else
344: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
345: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': This version does not support set strategy for this kind of promises. Return from the API');
346: END IF;
347: return;
348: end if;

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

366: l_object_id := l_delinquency_id;
367: end if;
368: --end bug#2369298 schekuri 24-Feb-2006
369:
370: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
371: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Calling iex_strategy_pub.set_strategy...');
372: END IF;
373: iex_strategy_pub.set_strategy
374: (

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

384: p_ObjectID => l_object_id,
385: p_Status => P_STATUS
386: );
387:
388: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
389: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Return status ' || l_return_status);
390: END IF;
391: if l_return_status <> 'S' then
392: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

388: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
389: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Return status ' || l_return_status);
390: END IF;
391: if l_return_status <> 'S' then
392: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
393: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Failed to set strategy');
394: END IF;
395: end if;
396:

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

395: end if;
396:
397: EXCEPTION
398: WHEN OTHERS THEN
399: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
400: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': in exception');
401: END IF;
402: end;
403:

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

411: l_msg_data varchar2(200);
412: l_party_id number;
413: l_autofulfill varchar2(1);
414: begin
415: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
416: iex_debug_pub.LogMessage(G_PKG_NAME || '.SEND_FFM: start');
417: END IF;
418: l_autofulfill := fnd_profile.value('IEX_AUTO_FULFILL');
419: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

415: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
416: iex_debug_pub.LogMessage(G_PKG_NAME || '.SEND_FFM: start');
417: END IF;
418: l_autofulfill := fnd_profile.value('IEX_AUTO_FULFILL');
419: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
420: iex_debug_pub.LogMessage(G_PKG_NAME || '.SEND_FFM: l_autofulfill: ' || l_autofulfill);
421: END IF;
422:
423: if l_autofulfill is not null and l_autofulfill = 'Y' then

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

421: END IF;
422:
423: if l_autofulfill is not null and l_autofulfill = 'Y' then
424: l_template_id := to_number(fnd_profile.value('IEX_PROMISE_CONFIRM'));
425: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
426: iex_debug_pub.LogMessage(G_PKG_NAME || '.SEND_FFM: ptp ffm template_id = ' || l_template_id);
427: END IF;
428: if l_template_id is not null then
429: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

425: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
426: iex_debug_pub.LogMessage(G_PKG_NAME || '.SEND_FFM: ptp ffm template_id = ' || l_template_id);
427: END IF;
428: if l_template_id is not null then
429: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
430: iex_debug_pub.LogMessage(G_PKG_NAME || '.SEND_FFM: Sending ffm ...');
431: END IF;
432: IEX_DUNNING_PVT.CALL_FFM(
433: p_api_version => 1.0,

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

442: x_return_status => l_return_status,
443: x_msg_count => l_msg_count,
444: x_msg_data => l_msg_data);
445:
446: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
447: iex_debug_pub.LogMessage(G_PKG_NAME || '.SEND_FFM: request_id ' || l_request_id);
448: iex_debug_pub.LogMessage(G_PKG_NAME || '.SEND_FFM: Return status ' || l_return_status);
449: END IF;
450: IF l_return_status <> 'S' then

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

454: end if;
455: end if;
456: EXCEPTION
457: WHEN OTHERS THEN
458: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
459: iex_debug_pub.LogMessage(G_PKG_NAME || '.SET_STRATEGY: in exception');
460: END IF;
461: end;
462:

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

475: CURSOR ptp_wf_crs IS
476: select IEX_PTP_WF_S.NEXTVAL from dual;
477: begin
478: l_wf_process := 'PROMISE_WORKFLOW';
479: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
480: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: start');
481: END IF;
482: l_approval_required := fnd_profile.value('IEX_PTP_APPROVAL');
483: l_wf_item_type := fnd_profile.value('IEX_PTP_WF_ITEM_TYPE');

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

480: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: start');
481: END IF;
482: l_approval_required := fnd_profile.value('IEX_PTP_APPROVAL');
483: l_wf_item_type := fnd_profile.value('IEX_PTP_WF_ITEM_TYPE');
484: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
485: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: approval required = ' || l_approval_required);
486: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: item type = ' || l_wf_item_type);
487: END IF;
488:

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

496: FETCH ptp_wf_crs INTO l_ptp_wf_item_key;
497: CLOSE ptp_wf_crs;
498:
499: l_item_key := 'IEX_PTP_' || TO_CHAR(l_ptp_wf_item_key);
500: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
501: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: item key = ' || l_item_key);
502: END IF;
503:
504: wf_engine.createprocess(

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

504: wf_engine.createprocess(
505: itemtype => l_wf_item_type,
506: itemkey => l_item_key,
507: process => l_wf_process);
508: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
509: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: After createprocess');
510: END IF;
511:
512: wf_engine.setitemattrnumber(

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

513: itemtype => l_wf_item_type,
514: itemkey => l_item_key,
515: aname => 'PROMISE_ID',
516: avalue => p_promise_id);
517: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
518: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: After setitemattrnumber');
519: END IF;
520:
521: wf_engine.startprocess(

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

520:
521: wf_engine.startprocess(
522: itemtype => l_wf_item_type,
523: itemkey => l_item_key);
524: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
525: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: After startprocess');
526: END IF;
527:
528: wf_engine.ItemStatus(

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

530: itemkey => l_item_key,
531: status => l_return_status,
532: result => l_result);
533:
534: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
535: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: l_return_status = ' || l_return_status);
536: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: l_result = ' || l_result);
537: END IF;
538:

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

536: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: l_result = ' || l_result);
537: END IF;
538:
539: if l_return_status = 'COMPLETE' THEN
540: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
541: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: Set promise status to PENDING');
542: END IF;
543: x_promise_status := 'PENDING';
544: end if;

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

542: END IF;
543: x_promise_status := 'PENDING';
544: end if;
545: end if;
546: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
547: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: return_status = ' || x_promise_status);
548: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: end');
549: END IF;
550: EXCEPTION

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

548: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: end');
549: END IF;
550: EXCEPTION
551: WHEN OTHERS THEN
552: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
553: iex_debug_pub.LogMessage(G_PKG_NAME || '.start_ptp_wf: In start_ptp_wf exception');
554: END IF;
555: end;
556:

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

559: IS
560: l_grace_period number;
561: l_broken_on_date date;
562: begin
563: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
564: iex_debug_pub.LogMessage(G_PKG_NAME || '.get_broken_on_date: start');
565: END IF;
566: l_grace_period := to_number(nvl(fnd_profile.value('IEX_PTP_GRACE_PERIOD'), '0'));
567: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

563: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
564: iex_debug_pub.LogMessage(G_PKG_NAME || '.get_broken_on_date: start');
565: END IF;
566: l_grace_period := to_number(nvl(fnd_profile.value('IEX_PTP_GRACE_PERIOD'), '0'));
567: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
568: iex_debug_pub.LogMessage(G_PKG_NAME || '.get_broken_on_date: grace period = ' || l_grace_period);
569: END IF;
570: l_broken_on_date := p_promise_date + l_grace_period;
571: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

567: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
568: iex_debug_pub.LogMessage(G_PKG_NAME || '.get_broken_on_date: grace period = ' || l_grace_period);
569: END IF;
570: l_broken_on_date := p_promise_date + l_grace_period;
571: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
572: iex_debug_pub.LogMessage(G_PKG_NAME || '.get_broken_on_date: broken on date = ' || l_broken_on_date);
573: END IF;
574: x_broken_on_date := l_broken_on_date;
575: end;

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

592:
593: begin
594: /* validate promise target */
595: l_validation_item := 'P_PROMISE_REC.PROMISE_TARGET';
596: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
597: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
598: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_TARGET);
599: END IF;
600: if P_PROMISE_REC.PROMISE_TARGET is null or

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

602: P_PROMISE_REC.PROMISE_TARGET <> 'INVOICES' and
603: P_PROMISE_REC.PROMISE_TARGET <> 'CNSLD' and
604: P_PROMISE_REC.PROMISE_TARGET <> 'CONTRACTS')
605: then
606: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
607: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
608: END IF;
609: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
610: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

614: end if;
615:
616: /* validate promise_amount */
617: l_validation_item := 'P_PROMISE_REC.PROMISE_AMOUNT';
618: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
619: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
620: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_AMOUNT);
621: END IF;
622: if P_PROMISE_REC.PROMISE_AMOUNT is null or P_PROMISE_REC.PROMISE_AMOUNT <= 0 then

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

619: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
620: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_AMOUNT);
621: END IF;
622: if P_PROMISE_REC.PROMISE_AMOUNT is null or P_PROMISE_REC.PROMISE_AMOUNT <= 0 then
623: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
624: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
625: END IF;
626: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
627: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

631: end if;
632:
633: /* validate promise_date */
634: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
635: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
636: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
637: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_DATE);
638: END IF;
639: if P_PROMISE_REC.PROMISE_DATE is null or trunc(P_PROMISE_REC.PROMISE_DATE) < trunc(sysdate) then

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

636: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
637: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_DATE);
638: END IF;
639: if P_PROMISE_REC.PROMISE_DATE is null or trunc(P_PROMISE_REC.PROMISE_DATE) < trunc(sysdate) then
640: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
641: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
642: END IF;
643: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
644: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

648: end if;
649:
650: /* validate currency */
651: l_validation_item := 'P_PROMISE_REC.CURRENCY_CODE';
652: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
653: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
654: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CURRENCY_CODE);
655: END IF;
656: if P_PROMISE_REC.CURRENCY_CODE is null then

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

653: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
654: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CURRENCY_CODE);
655: END IF;
656: if P_PROMISE_REC.CURRENCY_CODE is null then
657: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
658: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
659: END IF;
660: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
661: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

665: end if;
666:
667: /* validate resource_id */
668: l_validation_item := 'P_PROMISE_REC.TAKEN_BY_RESOURCE_ID';
669: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
670: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
671: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.TAKEN_BY_RESOURCE_ID);
672: END IF;
673: if P_PROMISE_REC.TAKEN_BY_RESOURCE_ID is null then

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

670: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
671: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.TAKEN_BY_RESOURCE_ID);
672: END IF;
673: if P_PROMISE_REC.TAKEN_BY_RESOURCE_ID is null then
674: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
675: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
676: END IF;
677: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
678: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

693: x_functional_currency => l_fun_currency);
694:
695: /* validate payment_method */
696: l_validation_item := 'P_PROMISE_REC.PROMISE_PAYMENT_METHOD';
697: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
698: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
699: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_PAYMENT_METHOD);
700: END IF;
701: if P_PROMISE_REC.PROMISE_PAYMENT_METHOD is not null and rtrim(P_PROMISE_REC.PROMISE_PAYMENT_METHOD) <> '' then

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

709: using P_PROMISE_REC.PROMISE_PAYMENT_METHOD;
710: fetch l_cursor into l_result_varchar;
711:
712: if l_cursor%rowcount = 0 or l_result_varchar is null then
713: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
714: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation: wrong payment method');
715: END IF;
716: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
717: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

719: FND_MSG_PUB.Add;
720: RAISE FND_API.G_EXC_ERROR;
721: end if;
722: else
723: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
724: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' is null - nothing to validate');
725: END IF;
726: end if;
727:

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

726: end if;
727:
728: /* validate cust_account_id */
729: l_validation_item := 'P_PROMISE_REC.CUST_ACCOUNT_ID';
730: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
731: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
732: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CUST_ACCOUNT_ID);
733: END IF;
734: if P_PROMISE_REC.CUST_ACCOUNT_ID is null then

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

731: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
732: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CUST_ACCOUNT_ID);
733: END IF;
734: if P_PROMISE_REC.CUST_ACCOUNT_ID is null then
735: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
736: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
737: END IF;
738: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
739: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

746: if P_PROMISE_REC.PROMISE_TARGET = 'ACCOUNTS' then
747:
748: /* validate promise date */
749: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
750: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
751: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item || ' for dublicates');
752: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_DATE);
753: END IF;
754:

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

764: using P_PROMISE_REC.CUST_ACCOUNT_ID, P_PROMISE_REC.PROMISE_DATE;
765: fetch l_cursor into l_result_num;
766:
767: if l_cursor%rowcount = 0 or l_result_num > 0 then
768: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
769: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
770: END IF;
771: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
772: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

776: end if;
777:
778: /* validate promise currency */
779: l_validation_item := 'P_PROMISE_REC.CURRENCY_CODE';
780: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
781: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
782: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CURRENCY_CODE);
783: END IF;
784: if P_PROMISE_REC.CURRENCY_CODE <> l_fun_currency then

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

781: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
782: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CURRENCY_CODE);
783: END IF;
784: if P_PROMISE_REC.CURRENCY_CODE <> l_fun_currency then
785: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
786: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
787: END IF;
788: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
789: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

795: elsif P_PROMISE_REC.PROMISE_TARGET = 'INVOICES' then
796:
797: /* validate delinquency_id */
798: l_validation_item := 'P_PROMISE_REC.DELINQUENCY_ID';
799: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
800: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
801: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.DELINQUENCY_ID);
802: END IF;
803: if P_PROMISE_REC.DELINQUENCY_ID is null then

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

800: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
801: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.DELINQUENCY_ID);
802: END IF;
803: if P_PROMISE_REC.DELINQUENCY_ID is null then
804: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
805: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
806: END IF;
807: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
808: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

812: end if;
813:
814: /* validate promise date */
815: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
816: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
817: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item || ' for dublicates');
818: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_DATE);
819: END IF;
820:

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

833: P_PROMISE_REC.PROMISE_DATE;
834: fetch l_cursor into l_result_num;
835:
836: if l_cursor%rowcount = 0 or l_result_num > 0 then
837: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
838: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
839: END IF;
840: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
841: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

845: end if;
846:
847: /* validate promise currency */
848: l_validation_item := 'P_PROMISE_REC.CURRENCY_CODE';
849: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
850: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
851: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CURRENCY_CODE);
852: END IF;
853: l_SQL := 'SELECT PSA.INVOICE_CURRENCY_CODE ' ||

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

860: using P_PROMISE_REC.DELINQUENCY_ID;
861: fetch l_cursor into l_result_varchar;
862:
863: if l_cursor%rowcount = 0 or l_result_varchar is null or l_result_varchar <> P_PROMISE_REC.CURRENCY_CODE then
864: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
865: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
866: END IF;
867: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
868: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

874: elsif P_PROMISE_REC.PROMISE_TARGET = 'CNSLD' then
875:
876: /* validate consolidated_invoice_id */
877: l_validation_item := 'P_PROMISE_REC.CNSLD_INVOICE_ID';
878: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
879: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
880: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CNSLD_INVOICE_ID);
881: END IF;
882: if P_PROMISE_REC.CNSLD_INVOICE_ID is null then

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

879: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
880: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CNSLD_INVOICE_ID);
881: END IF;
882: if P_PROMISE_REC.CNSLD_INVOICE_ID is null then
883: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
884: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
885: END IF;
886: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
887: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

891: end if;
892:
893: /* validate promise date */
894: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
895: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
896: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item || ' for dublicates');
897: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_DATE);
898: END IF;
899:

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

912: P_PROMISE_REC.PROMISE_DATE;
913: fetch l_cursor into l_result_num;
914:
915: if l_cursor%rowcount = 0 or l_result_num > 0 then
916: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
917: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
918: END IF;
919: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
920: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

924: end if;
925:
926: /* validate promise currency */
927: l_validation_item := 'P_PROMISE_REC.CURRENCY_CODE';
928: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
929: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
930: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CURRENCY_CODE);
931: END IF;
932:

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

939: using P_PROMISE_REC.CNSLD_INVOICE_ID;
940: fetch l_cursor into l_result_varchar;
941:
942: if l_cursor%rowcount = 0 or l_result_varchar is null or l_result_varchar <> P_PROMISE_REC.CURRENCY_CODE then
943: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
944: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
945: END IF;
946: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
947: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

953: elsif P_PROMISE_REC.PROMISE_TARGET = 'CONTRACTS' then
954:
955: /* validate contract_id */
956: l_validation_item := 'P_PROMISE_REC.CONTRACT_ID';
957: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
958: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
959: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CONTRACT_ID);
960: END IF;
961: if P_PROMISE_REC.CONTRACT_ID is null then

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

958: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
959: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CONTRACT_ID);
960: END IF;
961: if P_PROMISE_REC.CONTRACT_ID is null then
962: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
963: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
964: END IF;
965: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
966: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

970: end if;
971:
972: /* validate promise date */
973: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
974: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
975: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item || ' for dublicates');
976: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_DATE);
977: END IF;
978:

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

991: P_PROMISE_REC.PROMISE_DATE;
992: fetch l_cursor into l_result_num;
993:
994: if l_cursor%rowcount = 0 or l_result_num > 0 then
995: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
996: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
997: END IF;
998: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
999: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

1003: end if;
1004:
1005: /* validate promise currency */
1006: l_validation_item := 'P_PROMISE_REC.CURRENCY_CODE';
1007: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1008: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating ' || l_validation_item);
1009: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.CURRENCY_CODE);
1010: END IF;
1011:

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

1025: using P_PROMISE_REC.CONTRACT_ID;
1026: fetch l_cursor into l_result_varchar;
1027:
1028: if l_cursor%rowcount = 0 or l_result_varchar is null or l_result_varchar <> P_PROMISE_REC.CURRENCY_CODE then
1029: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1030: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': ' || l_validation_item || ' failed validation');
1031: END IF;
1032: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1033: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_api_name);

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

1103: -- Initialize API return status to success
1104: l_return_status := FND_API.G_RET_STS_SUCCESS;
1105:
1106: -- START OF BODY OF API
1107: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1108: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
1109: END IF;
1110:
1111: /* validate input */

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

1108: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
1109: END IF;
1110:
1111: /* validate input */
1112: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1113: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating input...');
1114: END IF;
1115:
1116: VALIDATE_INSERT_INPUT(P_PROMISE_REC);

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

1115:
1116: VALIDATE_INSERT_INPUT(P_PROMISE_REC);
1117:
1118: /* validate payer info */
1119: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1120: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating parties...');
1121: END IF;
1122:
1123: IEX_PAYMENTS_PUB.GET_PAYER_INFO(

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

1129: X_PAYER_NUM_ID => l_payer_num_id,
1130: X_PAYER_ID => l_payer_id,
1131: X_PAYER_NAME => l_payer_name);
1132:
1133: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1134: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Generate new promise_id');
1135: END IF;
1136:
1137: -- generate new promise id

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

1138: OPEN prd_genid_crs;
1139: FETCH prd_genid_crs INTO l_promise_id;
1140: CLOSE prd_genid_crs;
1141:
1142: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1143: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': new promise_id = ' || l_promise_id);
1144: END IF;
1145:
1146: -- get broken on date

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

1153: open c_org_id(P_PROMISE_REC.DELINQUENCY_ID);
1154: fetch c_org_id into l_org_id;
1155: close c_org_id;
1156:
1157: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1158: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Doing insert...');
1159: END IF;
1160:
1161: INSERT INTO IEX_PROMISE_DETAILS

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

1254: X_PRORESP_REC.PROMISE_ID := l_promise_id;
1255: X_PRORESP_REC.STATUS := l_promise_status;
1256: X_PRORESP_REC.STATE := l_promise_state;
1257:
1258: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1259: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Insert OK');
1260: END IF;
1261:
1262: -- inserting a note

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

1261:
1262: -- inserting a note
1263: if P_PROMISE_REC.NOTE is not null then
1264:
1265: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1266: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Going to build context for note...');
1267: END IF;
1268:
1269: i := 1;

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

1286: l_context_tab(i).context_id := l_promise_id;
1287: i := i + 1;
1288:
1289: FOR i IN 1..l_context_tab.COUNT LOOP
1290: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1291: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_type = ' || l_context_tab(i).context_type);
1292: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
1293: END IF;
1294: END LOOP;

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

1292: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
1293: END IF;
1294: END LOOP;
1295:
1296: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1297: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Calling IEX_NOTES_PVT.Create_Note...');
1298: END IF;
1299:
1300: IEX_NOTES_PVT.Create_Note(

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

1313: x_note_id => l_note_id);
1314:
1315: X_PRORESP_REC.NOTE_ID := l_note_id;
1316:
1317: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1318: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': After call to IEX_NOTES_PVT.Create_Note');
1319: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Status = ' || L_RETURN_STATUS);
1320: END IF;
1321:

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

1320: END IF;
1321:
1322: -- check for errors
1323: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1324: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1325: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
1326: END IF;
1327: RAISE FND_API.G_EXC_ERROR;
1328: END IF;

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

1326: END IF;
1327: RAISE FND_API.G_EXC_ERROR;
1328: END IF;
1329: else
1330: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1331: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': no note to save');
1332: END IF;
1333: end if;
1334:

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

1345:
1346: -- Standard check of p_commit.
1347: IF FND_API.To_Boolean( p_commit ) THEN
1348: COMMIT WORK;
1349: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1350: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': commited');
1351: END IF;
1352: END IF;
1353:

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

1357: p_encoded => FND_API.G_FALSE,
1358: p_count => x_msg_count,
1359: p_data => x_msg_data);
1360:
1361: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1362: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': end of API');
1363: END IF;
1364:
1365: EXCEPTION

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

1435: 'PROMISE_DATE = :P_PROMISE_DATE AND ' ||
1436: 'STATUS in (''COLLECTABLE'', ''PENDING'')';
1437: /* validate promise id */
1438: l_validation_item := 'P_PROMISE_REC.PROMISE_ID';
1439: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1440: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1441: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_ID);
1442: END IF;
1443: if P_PROMISE_REC.PROMISE_ID is null then

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

1440: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1441: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_ID);
1442: END IF;
1443: if P_PROMISE_REC.PROMISE_ID is null then
1444: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1445: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation');
1446: END IF;
1447: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1448: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

1452: end if;
1453:
1454: /* validate promise_amount */
1455: l_validation_item := 'P_PROMISE_REC.PROMISE_AMOUNT';
1456: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1457: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1458: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_AMOUNT);
1459: END IF;
1460: if P_PROMISE_REC.PROMISE_AMOUNT is null or P_PROMISE_REC.PROMISE_AMOUNT <= 0 then

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

1457: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1458: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_AMOUNT);
1459: END IF;
1460: if P_PROMISE_REC.PROMISE_AMOUNT is null or P_PROMISE_REC.PROMISE_AMOUNT <= 0 then
1461: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1462: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation');
1463: END IF;
1464: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1465: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

1469: end if;
1470:
1471: /* validate resource_id */
1472: l_validation_item := 'P_PROMISE_REC.TAKEN_BY_RESOURCE_ID';
1473: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1474: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1475: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.TAKEN_BY_RESOURCE_ID);
1476: END IF;
1477: if P_PROMISE_REC.TAKEN_BY_RESOURCE_ID is null then

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

1474: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1475: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.TAKEN_BY_RESOURCE_ID);
1476: END IF;
1477: if P_PROMISE_REC.TAKEN_BY_RESOURCE_ID is null then
1478: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1479: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: resource id must be set');
1480: END IF;
1481: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1482: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

1485: RAISE FND_API.G_EXC_ERROR;
1486: end if;
1487:
1488: /* pull data from db to do some validation */
1489: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1490: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating db data');
1491: END IF;
1492: l_SQL := 'SELECT CUST_ACCOUNT_ID, DELINQUENCY_ID, CNSLD_INVOICE_ID, CONTRACT_ID, STATUS, STATE, PROMISE_AMOUNT, AMOUNT_DUE_REMAINING ' ||
1493: 'FROM IEX_PROMISE_DETAILS ' ||

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

1496:
1497: open l_cursor for l_SQL
1498: using P_PROMISE_REC.PROMISE_ID;
1499: fetch l_cursor into l_cust_id, l_del_id, l_cnsld_id, l_cntr_id, l_promise_status, l_promise_state, l_promise_amount, l_remaining_amount;
1500: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1501: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': From db:');
1502: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Cust_account_id = ' || l_cust_id);
1503: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Delinquency_id = ' || l_promise_status);
1504: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Cnsld_id = ' || l_cnsld_id);

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

1510: END IF;
1511:
1512: /* validate promise_status */
1513: l_validation_item := 'STATUS';
1514: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1515: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1516: END IF;
1517: if l_promise_status <> 'COLLECTABLE' then
1518: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

1514: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1515: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1516: END IF;
1517: if l_promise_status <> 'COLLECTABLE' then
1518: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1519: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: status is not COLLECTABLE');
1520: END IF;
1521: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1522: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

1526: end if;
1527:
1528: /* validate promise_state */
1529: l_validation_item := 'STATE';
1530: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1531: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1532: END IF;
1533: if l_promise_state <> 'PROMISE' then
1534: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

1530: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1531: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1532: END IF;
1533: if l_promise_state <> 'PROMISE' then
1534: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1535: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: state is not PROMISE');
1536: END IF;
1537: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1538: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

1542: end if;
1543:
1544: /* validate remaining amount */
1545: l_validation_item := 'AMOUNT_DUE_REMAINING';
1546: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1547: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1548: END IF;
1549: if l_remaining_amount <> l_promise_amount then
1550: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

1546: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1547: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1548: END IF;
1549: if l_remaining_amount <> l_promise_amount then
1550: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1551: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: remaining amount <> promise amount');
1552: END IF;
1553: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1554: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

1558: end if;
1559:
1560: /* validate promise_date */
1561: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
1562: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1563: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1564: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_DATE);
1565: END IF;
1566: if P_PROMISE_REC.PROMISE_DATE is null or trunc(P_PROMISE_REC.PROMISE_DATE) < trunc(sysdate) then

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

1563: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1564: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_DATE);
1565: END IF;
1566: if P_PROMISE_REC.PROMISE_DATE is null or trunc(P_PROMISE_REC.PROMISE_DATE) < trunc(sysdate) then
1567: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1568: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: promise_date must be >= current date');
1569: END IF;
1570: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1571: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

1573: FND_MSG_PUB.Add;
1574: RAISE FND_API.G_EXC_ERROR;
1575: end if;
1576:
1577: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1578: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item || ' for dublicates');
1579: END IF;
1580:
1581: /* building sql stmt to check for duplicates */

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

1610: 'PROMISE_DATE = :P_PROMISE_DATE AND ' ||
1611: 'STATUS in (''COLLECTABLE'', ''PENDING'')';
1612: */
1613:
1614: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1615: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': l_SQL = ' || l_SQL);
1616: END IF;
1617:
1618: open l_cursor for l_SQL

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

1620: P_PROMISE_REC.PROMISE_DATE;
1621: fetch l_cursor into l_result_num;
1622:
1623: if l_cursor%rowcount = 0 or l_result_num > 0 then
1624: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1625: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: found promise date duplication');
1626: END IF;
1627: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1628: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

1632: end if;
1633:
1634: /* validate payment_method */
1635: l_validation_item := 'P_PROMISE_REC.PROMISE_PAYMENT_METHOD';
1636: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1637: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1638: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ''' || rtrim(P_PROMISE_REC.PROMISE_PAYMENT_METHOD) || '''');
1639: END IF;
1640: if P_PROMISE_REC.PROMISE_PAYMENT_METHOD is not null and rtrim(P_PROMISE_REC.PROMISE_PAYMENT_METHOD) <> '' then

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

1648: using P_PROMISE_REC.PROMISE_PAYMENT_METHOD;
1649: fetch l_cursor into l_result_varchar;
1650:
1651: if l_cursor%rowcount = 0 or l_result_varchar is null then
1652: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1653: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: wrong payment method');
1654: END IF;
1655: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1656: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

1658: FND_MSG_PUB.Add;
1659: RAISE FND_API.G_EXC_ERROR;
1660: end if;
1661: else
1662: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1663: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' is null - nothing to validate');
1664: END IF;
1665: end if;
1666:

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

1717: -- Initialize API return status to success
1718: l_return_status := FND_API.G_RET_STS_SUCCESS;
1719:
1720: -- START OF BODY OF API
1721: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1722: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
1723: END IF;
1724:
1725: /* validate input */

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

1722: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
1723: END IF;
1724:
1725: /* validate input */
1726: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1727: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating input...');
1728: END IF;
1729: VALIDATE_UPDATE_INPUT(P_PROMISE_REC);
1730:

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

1728: END IF;
1729: VALIDATE_UPDATE_INPUT(P_PROMISE_REC);
1730:
1731: /* validate promiser info */
1732: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1733: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating parties...');
1734: END IF;
1735: IEX_PAYMENTS_PUB.GET_PAYER_INFO(
1736: P_PAYER_PARTY_REL_ID => P_PROMISE_REC.PROMISED_BY_PARTY_REL_ID,

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

1747: /* start workflow and get new promise status */
1748: START_PTP_WF(P_PROMISE_ID => l_promise_id, X_PROMISE_STATUS => l_promise_status);
1749:
1750: /* do update */
1751: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1752: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Doing update...');
1753: END IF;
1754:
1755: UPDATE iex_promise_details

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

1785: last_updated_by = G_USER_ID,
1786: LAST_UPDATE_LOGIN = G_LOGIN_ID
1787: where promise_detail_id = P_PROMISE_REC.PROMISE_ID;
1788:
1789: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1790: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Update OK');
1791: END IF;
1792:
1793: X_PRORESP_REC.PROMISE_ID := P_PROMISE_REC.PROMISE_ID;

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

1802:
1803: -- inserting a note
1804: if P_PROMISE_REC.NOTE is not null then
1805:
1806: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1807: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Going to build context for note...');
1808: END IF;
1809:
1810: i := 1;

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

1836: l_context_tab(i).context_id := P_PROMISE_REC.PROMISE_ID;
1837: i := i + 1;
1838:
1839: FOR i IN 1..l_context_tab.COUNT LOOP
1840: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1841: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_type = ' || l_context_tab(i).context_type);
1842: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
1843: END IF;
1844: END LOOP;

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

1842: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
1843: END IF;
1844: END LOOP;
1845:
1846: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1847: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Calling IEX_NOTES_PVT.Create_Note...');
1848: END IF;
1849:
1850: IEX_NOTES_PVT.Create_Note(

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

1863: x_note_id => l_note_id);
1864:
1865: X_PRORESP_REC.NOTE_ID := l_note_id;
1866:
1867: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1868: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': After call to IEX_NOTES_PVT.Create_Note');
1869: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Status = ' || L_RETURN_STATUS);
1870: END IF;
1871:

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

1870: END IF;
1871:
1872: -- check for errors
1873: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
1874: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1875: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
1876: END IF;
1877: RAISE FND_API.G_EXC_ERROR;
1878: END IF;

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

1876: END IF;
1877: RAISE FND_API.G_EXC_ERROR;
1878: END IF;
1879: else
1880: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1881: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': no note to save');
1882: END IF;
1883: end if;
1884:

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

1892: */
1893: -- commit if promise updated successfully
1894: IF FND_API.To_Boolean( p_commit ) THEN
1895: COMMIT WORK;
1896: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1897: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': commited');
1898: END IF;
1899: END IF;
1900:

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

1906: p_encoded => FND_API.G_FALSE,
1907: p_count => x_msg_count,
1908: p_data => x_msg_data);
1909:
1910: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1911: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': end of API');
1912: END IF;
1913:
1914: EXCEPTION

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

1940: begin
1941: l_procedure := 'VALIDATE_CANCEL_INPUT';
1942: /* validate promise id */
1943: l_validation_item := 'P_PROMISE_REC.PROMISE_ID';
1944: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1945: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1946: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_ID);
1947: END IF;
1948: if P_PROMISE_REC.PROMISE_ID is null then

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

1945: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1946: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_ID);
1947: END IF;
1948: if P_PROMISE_REC.PROMISE_ID is null then
1949: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1950: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation');
1951: END IF;
1952: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1953: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

1957: end if;
1958:
1959: /* validate resource_id */
1960: l_validation_item := 'P_PROMISE_REC.TAKEN_BY_RESOURCE_ID';
1961: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1962: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1963: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.TAKEN_BY_RESOURCE_ID);
1964: END IF;
1965: if P_PROMISE_REC.TAKEN_BY_RESOURCE_ID is null then

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

1962: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
1963: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.TAKEN_BY_RESOURCE_ID);
1964: END IF;
1965: if P_PROMISE_REC.TAKEN_BY_RESOURCE_ID is null then
1966: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1967: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: resource id must be set');
1968: END IF;
1969: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
1970: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

2026: -- Initialize API return status to success
2027: l_return_status := FND_API.G_RET_STS_SUCCESS;
2028:
2029: -- START OF BODY OF API
2030: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2031: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
2032: END IF;
2033:
2034: /* validate input */

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

2031: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
2032: END IF;
2033:
2034: /* validate input */
2035: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2036: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating input...');
2037: END IF;
2038: VALIDATE_CANCEL_INPUT(P_PROMISE_REC);
2039:

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

2037: END IF;
2038: VALIDATE_CANCEL_INPUT(P_PROMISE_REC);
2039:
2040: /* validate promiser info */
2041: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2042: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating parties...');
2043: END IF;
2044: IEX_PAYMENTS_PUB.GET_PAYER_INFO(
2045: P_PAYER_PARTY_REL_ID => P_PROMISE_REC.PROMISED_BY_PARTY_REL_ID,

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

2051: X_PAYER_ID => l_payer_id,
2052: X_PAYER_NAME => l_payer_name);
2053:
2054: /* do update */
2055: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2056: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Doing update...');
2057: END IF;
2058:
2059: UPDATE iex_promise_details

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

2065: last_updated_by = G_USER_ID,
2066: LAST_UPDATE_LOGIN = G_LOGIN_ID
2067: where promise_detail_id = P_PROMISE_REC.PROMISE_ID;
2068:
2069: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2070: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Update OK');
2071: END IF;
2072: X_PRORESP_REC.PROMISE_ID := P_PROMISE_REC.PROMISE_ID;
2073: X_PRORESP_REC.STATUS := l_promise_status;

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

2082:
2083: -- inserting a note
2084: if P_PROMISE_REC.NOTE is not null then
2085:
2086: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2087: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Going to build context for note...');
2088: END IF;
2089: i := 1;
2090: /* assigning source_object and adding parties into note context */

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

2115: l_context_tab(i).context_id := P_PROMISE_REC.PROMISE_ID;
2116: i := i + 1;
2117:
2118: FOR i IN 1..l_context_tab.COUNT LOOP
2119: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2120: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_type = ' || l_context_tab(i).context_type);
2121: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
2122: END IF;
2123: END LOOP;

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

2121: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
2122: END IF;
2123: END LOOP;
2124:
2125: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2126: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Calling IEX_NOTES_PVT.Create_Note...');
2127: END IF;
2128:
2129: IEX_NOTES_PVT.Create_Note(

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

2142: x_note_id => l_note_id);
2143:
2144: X_PRORESP_REC.NOTE_ID := l_note_id;
2145:
2146: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2147: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': After call to IEX_NOTES_PVT.Create_Note');
2148: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Status = ' || L_RETURN_STATUS);
2149: END IF;
2150:

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

2149: END IF;
2150:
2151: -- check for errors
2152: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2153: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2154: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
2155: END IF;
2156: RAISE FND_API.G_EXC_ERROR;
2157: END IF;

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

2155: END IF;
2156: RAISE FND_API.G_EXC_ERROR;
2157: END IF;
2158: else
2159: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2160: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': no note to save');
2161: END IF;
2162: end if;
2163:

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

2163:
2164: -- commit if promise updated successfully
2165: IF FND_API.To_Boolean( p_commit ) THEN
2166: COMMIT WORK;
2167: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2168: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': commited');
2169: END IF;
2170: END IF;
2171:

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

2177: p_encoded => FND_API.G_FALSE,
2178: p_count => x_msg_count,
2179: p_data => x_msg_data);
2180:
2181: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2182: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': end of API');
2183: END IF;
2184:
2185: EXCEPTION

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

2220: begin
2221: l_procedure := 'VALIDATE_MASS_INPUT';
2222: /* validate delinquency table count */
2223: l_validation_item := 'P_MASS_IDS_TBL.COUNT';
2224: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2225: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
2226: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_MASS_IDS_TBL.COUNT);
2227: END IF;
2228: if P_MASS_IDS_TBL.COUNT = 0 then

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

2225: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
2226: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_MASS_IDS_TBL.COUNT);
2227: END IF;
2228: if P_MASS_IDS_TBL.COUNT = 0 then
2229: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2230: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: no delinquencies were passed');
2231: END IF;
2232: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
2233: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

2239: --commenting begin for bug 6717279 by gnramasa 25th Aug 08
2240: /* validate that all passed delinquencies belong to the same account */
2241: /*
2242: l_validation_item := 'P_MASS_IDS_TBL';
2243: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2244: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
2245: END IF;
2246: */
2247: /* building sql for validating ids */

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

2254: l_SQL := l_SQL || ',' || P_MASS_IDS_TBL(i);
2255: end if;
2256: END LOOP;
2257: l_SQL := l_SQL || ')';
2258: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2259: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': sql = ' || l_SQL);
2260: END IF;
2261:
2262: open l_cursor for l_SQL;

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

2262: open l_cursor for l_SQL;
2263: fetch l_cursor into l_result_num;
2264:
2265: if l_result_num > 1 then
2266: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2267: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: passed delinquencies belong to different accounts');
2268: END IF;
2269: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
2270: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

2275: */
2276: --commenting end for bug 6717279 by gnramasa 25th Aug 08
2277: /* validate promise_date */
2278: l_validation_item := 'P_PROMISE_REC.PROMISE_DATE';
2279: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2280: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
2281: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_DATE);
2282: END IF;
2283: if P_PROMISE_REC.PROMISE_DATE is null or trunc(P_PROMISE_REC.PROMISE_DATE) < trunc(sysdate) then

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

2280: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
2281: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.PROMISE_DATE);
2282: END IF;
2283: if P_PROMISE_REC.PROMISE_DATE is null or trunc(P_PROMISE_REC.PROMISE_DATE) < trunc(sysdate) then
2284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2285: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: promise_date must be >= current date');
2286: END IF;
2287: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
2288: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

2292: end if;
2293:
2294: /* validate resource_id */
2295: l_validation_item := 'P_PROMISE_REC.TAKEN_BY_RESOURCE_ID';
2296: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2297: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
2298: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.TAKEN_BY_RESOURCE_ID);
2299: END IF;
2300: if P_PROMISE_REC.TAKEN_BY_RESOURCE_ID is null then

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

2297: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
2298: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ' || P_PROMISE_REC.TAKEN_BY_RESOURCE_ID);
2299: END IF;
2300: if P_PROMISE_REC.TAKEN_BY_RESOURCE_ID is null then
2301: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2302: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: resource id must be set');
2303: END IF;
2304: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
2305: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

2309: end if;
2310:
2311: /* validate payment_method */
2312: l_validation_item := 'P_PROMISE_REC.PROMISE_PAYMENT_METHOD';
2313: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2314: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': Validating ' || l_validation_item);
2315: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' = ''' || rtrim(P_PROMISE_REC.PROMISE_PAYMENT_METHOD) || '''');
2316: END IF;
2317: if P_PROMISE_REC.PROMISE_PAYMENT_METHOD is not null and rtrim(P_PROMISE_REC.PROMISE_PAYMENT_METHOD) <> '' then

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

2325: using P_PROMISE_REC.PROMISE_PAYMENT_METHOD;
2326: fetch l_cursor into l_result_varchar;
2327:
2328: if l_cursor%rowcount = 0 or l_result_varchar is null then
2329: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2330: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' failed validation: wrong payment method');
2331: END IF;
2332: FND_MESSAGE.SET_NAME('IEX','IEX_BAD_API_INPUT');
2333: FND_MESSAGE.SET_TOKEN('API_NAME', G_PKG_NAME || '.' || l_procedure);

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

2335: FND_MSG_PUB.Add;
2336: RAISE FND_API.G_EXC_ERROR;
2337: end if;
2338: else
2339: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2340: iex_debug_pub.LogMessage(G_PKG_NAME || '.' ||l_procedure || ': ' || l_validation_item || ' is null - nothing to validate');
2341: END IF;
2342: end if;
2343:

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

2420: -- Initialize API return status to success
2421: l_return_status := FND_API.G_RET_STS_SUCCESS;
2422:
2423: -- START OF BODY OF API
2424: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2425: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
2426: END IF;
2427:
2428: /* validate input */

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

2425: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Start of body');
2426: END IF;
2427:
2428: /* validate input */
2429: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2430: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating input...');
2431: END IF;
2432: VALIDATE_MASS_INPUT(P_MASS_IDS_TBL, P_MASS_PROMISE_REC);
2433:

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

2431: END IF;
2432: VALIDATE_MASS_INPUT(P_MASS_IDS_TBL, P_MASS_PROMISE_REC);
2433:
2434: /* validate promiser info */
2435: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2436: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Validating parties...');
2437: END IF;
2438: IEX_PAYMENTS_PUB.GET_PAYER_INFO(
2439: P_PAYER_PARTY_REL_ID => P_MASS_PROMISE_REC.PROMISED_BY_PARTY_REL_ID,

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

2444: X_PAYER_NUM_ID => l_payer_num_id,
2445: X_PAYER_ID => l_payer_id,
2446: X_PAYER_NAME => l_payer_name);
2447:
2448: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2449: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Looping thru table of ids...');
2450: END IF;
2451: k := 0;
2452: FOR i IN 1..P_MASS_IDS_TBL.COUNT LOOP

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

2450: END IF;
2451: k := 0;
2452: FOR i IN 1..P_MASS_IDS_TBL.COUNT LOOP
2453:
2454: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2455: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': record = ' || i || '; delinquency = ' || P_MASS_IDS_TBL(i));
2456: END IF;
2457:
2458: -- fixed a perf bug 4930381

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

2467: open l_cursor for l_SQL
2468: using P_MASS_IDS_TBL(i);
2469: fetch l_cursor into l_cust_account_id, l_cust_site_use_id, l_payment_schedule_id;
2470: close l_cursor;
2471: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2472: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_cust_account_id = ' || l_cust_account_id);
2473: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_cust_site_use_id = ' || l_cust_site_use_id);
2474: END IF;
2475:

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

2472: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_cust_account_id = ' || l_cust_account_id);
2473: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_cust_site_use_id = ' || l_cust_site_use_id);
2474: END IF;
2475:
2476: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2477: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Getting promises to be canceled...');
2478: END IF;
2479: l_SQL := 'SELECT PROMISE_DETAIL_ID, PROMISE_AMOUNT, CURRENCY_CODE, STATUS, STATE, AMOUNT_DUE_REMAINING ' ||
2480: 'FROM IEX_PROMISE_DETAILS ' ||

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

2493: LOOP
2494: fetch l_cursor into l_promise_id, l_promise_amount, l_currency, l_status, l_state, l_remaining_amount;
2495: exit when l_cursor%NOTFOUND;
2496:
2497: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2498: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_promise_id = ' || l_promise_id);
2499: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_promise_amount = ' || l_promise_amount);
2500: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_currency = ' || l_currency);
2501: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_status = ' || l_status);

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

2514: X_MASS_PRORESP_TBL(k).STATE := l_state;
2515: X_MASS_PRORESP_TBL(k).COLLECTABLE_AMOUNT := l_remaining_amount;
2516: l_MASS_IDS_TBL(k) := l_payment_schedule_id;
2517:
2518: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2519: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Canceling the promise...');
2520: END IF;
2521: UPDATE iex_promise_details
2522: SET STATUS = 'CANCELLED',

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

2527: last_updated_by = G_USER_ID,
2528: LAST_UPDATE_LOGIN = G_LOGIN_ID
2529: where
2530: PROMISE_DETAIL_ID = l_promise_id;
2531: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2532: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Done');
2533: END IF;
2534: END LOOP;
2535: close l_cursor;

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

2546: -- generate new promise id
2547: OPEN prd_genid_crs;
2548: FETCH prd_genid_crs INTO l_promise_id;
2549: CLOSE prd_genid_crs;
2550: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2551: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': new promise_id = ' || l_promise_id);
2552: END IF;
2553:
2554: -- get broken on date

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

2561: fetch c_org_id into l_org_id;
2562: close c_org_id;
2563:
2564:
2565: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2566: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Inserting new promise...');
2567: END IF;
2568: INSERT INTO IEX_PROMISE_DETAILS
2569: (

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

2658:
2659: --End bug 7237026 17-Nov-2008 barathsr
2660:
2661:
2662: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2663: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Insert OK');
2664: END IF;
2665:
2666: k := k+1;

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

2676: l_MASS_IDS_TBL(k) := l_payment_schedule_id;
2677: END LOOP;
2678:
2679: l_note_type := fnd_profile.value('AST_NOTES_DEFAULT_TYPE');
2680: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2681: iex_debug_pub.LogMessage(l_api_name || ': l_note_type = ' || l_note_type);
2682: END IF;
2683:
2684: -- inserting a note

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

2683:
2684: -- inserting a note
2685: if P_MASS_PROMISE_REC.NOTE is not null and l_note_type is not null then
2686:
2687: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2688: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Going to build context for note...');
2689: END IF;
2690: i := 1;
2691: /* adding parties into note context */

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

2742:
2743: END LOOP;
2744:
2745: -- for debug purpose only
2746: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2747: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_source_object_code = ' || l_source_object_code);
2748: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_source_object_id = ' || l_source_object_id);
2749: END IF;
2750: FOR i IN 1..l_context_tab.COUNT LOOP

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

2747: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_source_object_code = ' || l_source_object_code);
2748: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_source_object_id = ' || l_source_object_id);
2749: END IF;
2750: FOR i IN 1..l_context_tab.COUNT LOOP
2751: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2752: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_type = ' || l_context_tab(i).context_type);
2753: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
2754: END IF;
2755: END LOOP;

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

2753: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': l_context_tab(' || i || ').context_id = ' || l_context_tab(i).context_id);
2754: END IF;
2755: END LOOP;
2756:
2757: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2758: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Calling IEX_NOTES_PVT.Create_Note...');
2759: END IF;
2760: IEX_NOTES_PVT.Create_Note(
2761: P_API_VERSION => 1.0,

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

2771: p_notes => P_MASS_PROMISE_REC.NOTE,
2772: p_contexts_tbl => l_context_tab,
2773: x_note_id => l_note_id);
2774:
2775: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2776: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': After call to IEX_NOTES_PVT.Create_Note');
2777: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': Status = ' || L_RETURN_STATUS);
2778: END IF;
2779:

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

2778: END IF;
2779:
2780: -- check for errors
2781: IF l_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2782: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2783: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': IEX_NOTES_PVT.Create_Note failed');
2784: END IF;
2785: RAISE FND_API.G_EXC_ERROR;
2786: END IF;

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

2788: FOR k IN 1..X_MASS_PRORESP_TBL.count LOOP
2789: X_MASS_PRORESP_TBL(k).note_id := l_note_id;
2790: END LOOP;
2791: else
2792: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2793: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': no note to save');
2794: END IF;
2795: end if;
2796:

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

2796:
2797: -- commit if promise updated successfully
2798: IF FND_API.To_Boolean( p_commit ) THEN
2799: COMMIT WORK;
2800: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2801: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': commited');
2802: END IF;
2803: END IF;
2804:

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

2810: p_encoded => FND_API.G_FALSE,
2811: p_count => x_msg_count,
2812: p_data => x_msg_data);
2813:
2814: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2815: iex_debug_pub.LogMessage(G_PKG_NAME || '.' || l_api_name || ': end of API');
2816: END IF;
2817:
2818: EXCEPTION

Line 2838: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

2834: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2835:
2836: END;
2837: begin
2838: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2839: G_LOGIN_ID := FND_GLOBAL.Conc_Login_Id;
2840: G_PROGRAM_ID := FND_GLOBAL.Conc_Program_Id;
2841: G_USER_ID := FND_GLOBAL.User_Id;
2842: G_REQUEST_ID := FND_GLOBAL.Conc_Request_Id;