1: PACKAGE BODY jl_co_fa_ta_load_pkg AS
2: /* $Header: jlcoftlb.pls 120.4 2006/09/20 17:53:50 abuissa ship $ */
3:
4: /* ======================================================================*
5: | FND Logging infrastructure |
6: * ======================================================================*/
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_CO_FA_TA_LOAD_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
4: /* ======================================================================*
5: | FND Logging infrastructure |
6: * ======================================================================*/
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_CO_FA_TA_LOAD_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
5: | FND Logging infrastructure |
6: * ======================================================================*/
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_CO_FA_TA_LOAD_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
6: * ======================================================================*/
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_CO_FA_TA_LOAD_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'JL_CO_FA_TA_LOAD_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'JL.PLSQL.JL_CO_FA_TA_LOAD_PKG.';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'JL.PLSQL.JL_CO_FA_TA_LOAD_PKG.';
16:
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'JL.PLSQL.JL_CO_FA_TA_LOAD_PKG.';
16:
17:
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'JL.PLSQL.JL_CO_FA_TA_LOAD_PKG.';
16:
17:
18: PROCEDURE rollback_process(p_appraisal_id NUMBER);
60:
61: BEGIN
62:
63: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
64: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
65: END IF;
66:
67: x_appraisal_id := -1;
68:
78: p_file_name);
79:
80: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
81: fnd_file.put_line( 1, 'Request id for loader pgm : '||to_char(x_request_id));
82: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Request id for loader pgm : '||to_char(x_request_id));
83: END IF;
84:
85: ---------------------------------------------------------
86: -- Rollback everything and complete the process with --
106:
107: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
108: dbg_msg := fnd_message.get;
109: fnd_file.put_line(1, 'dbg_msg : '||dbg_msg);
110: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'dbg_msg : '||dbg_msg);
111: END IF;
112:
113: IF dphase = 'COMPLETE' THEN
114: IF dstatus = 'NORMAL' THEN
116: COMMIT;
117: ELSE
118: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
119: fnd_file.put_line( 1, 'Loader pgm completed. ');
120: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Loader pgm completed. ');
121: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
122: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
123: IF (call_status) THEN
124: fnd_file.put_line( 1, 'Call Status '||'TRUE');
118: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
119: fnd_file.put_line( 1, 'Loader pgm completed. ');
120: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Loader pgm completed. ');
121: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
122: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
123: IF (call_status) THEN
124: fnd_file.put_line( 1, 'Call Status '||'TRUE');
125: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
126: ELSE
121: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
122: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
123: IF (call_status) THEN
124: fnd_file.put_line( 1, 'Call Status '||'TRUE');
125: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
126: ELSE
127: fnd_file.put_line( 1, 'Call Status '||'FALSE');
128: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
129: END IF;
124: fnd_file.put_line( 1, 'Call Status '||'TRUE');
125: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
126: ELSE
127: fnd_file.put_line( 1, 'Call Status '||'FALSE');
128: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
129: END IF;
130: END IF;
131: ROLLBACK_PROCESS(x_appraisal_id);
132: RAISE LOAD_ERROR;
133: END IF;
134: ELSE
135: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
136: fnd_file.put_line( 1, 'Loader pgm is not completed. ');
137: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Loader pgm is not completed. ');
138: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
139: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
140: IF (call_status) THEN
141: fnd_file.put_line( 1, 'Call Status '||'TRUE');
135: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
136: fnd_file.put_line( 1, 'Loader pgm is not completed. ');
137: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Loader pgm is not completed. ');
138: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
139: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
140: IF (call_status) THEN
141: fnd_file.put_line( 1, 'Call Status '||'TRUE');
142: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
143: ELSE
138: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
139: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
140: IF (call_status) THEN
141: fnd_file.put_line( 1, 'Call Status '||'TRUE');
142: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
143: ELSE
144: fnd_file.put_line( 1, 'Call Status '||'FALSE');
145: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
146: END IF;
141: fnd_file.put_line( 1, 'Call Status '||'TRUE');
142: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
143: ELSE
144: fnd_file.put_line( 1, 'Call Status '||'FALSE');
145: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
146: END IF;
147: END IF;
148: ROLLBACK_PROCESS(x_appraisal_id);
149: RAISE LOAD_ERROR;
159: FROM DUAL;
160:
161: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
162: fnd_file.put_line( 1, 'x_appraisal_id : '||to_char(x_appraisal_id));
163: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'x_appraisal_id : '||to_char(x_appraisal_id));
164: END IF;
165:
166: INSERT INTO JL_CO_FA_APPRAISALS(
167: APPRAISAL_ID,
206: WHERE appraisal_id = -1;
207:
208: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
209: fnd_file.put_line( 1, 'Insert JL_CO_FA_APPRAISALS is complete.');
210: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Insert JL_CO_FA_APPRAISALS is complete.');
211: END IF;
212:
213: INSERT INTO JL_CO_FA_ASSET_APPRS(
214: APPRAISAL_ID,
241: WHERE appraisal_id = -1;
242:
243: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
244: fnd_file.put_line( 1, 'Insert JL_CO_FA_ASSET_APPRS is complete.');
245: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Insert JL_CO_FA_ASSET_APPRS is complete.');
246: END IF;
247:
248: DELETE FROM JL_CO_FA_APPRAISALS
249: WHERE appraisal_id = -1;
249: WHERE appraisal_id = -1;
250:
251: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
252: fnd_file.put_line( 1, 'Delete JL_CO_FA_APPRAISALS is complete.');
253: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Delete JL_CO_FA_APPRAISALS is complete.');
254: END IF;
255:
256: DELETE FROM JL_CO_FA_ASSET_APPRS
257: WHERE appraisal_id = -1;
257: WHERE appraisal_id = -1;
258:
259: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
260: fnd_file.put_line( 1, 'Delete JL_CO_FA_ASSET_APPRS is complete.');
261: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Delete JL_CO_FA_ASSET_APPRS is complete.');
262: END IF;
263:
264: ----------------------------------------------------------------------------
265: -- Submit validation request only when there is atleast one asset --
284: END;
285:
286: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
287: fnd_file.put_line( 1, 'x_count : '||to_char(x_count));
288: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'x_count : '||to_char(x_count));
289: END IF;
290:
291: IF x_count <> 0 THEN
292:
298: x_appraisal_id);
299:
300: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
301: fnd_file.put_line( 1, 'Request id for Validation pgm : '||to_char(x_request_id));
302: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Request id for Validation pgm : '||to_char(x_request_id));
303: END IF;
304:
305: ---------------------------------------------------------
306: -- Rollback everything and complte the process with --
326:
327: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
328: dbg_msg := fnd_message.get;
329: fnd_file.put_line(1, 'dbg_msg : '||dbg_msg);
330: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'dbg_msg : '||dbg_msg);
331: END IF;
332:
333: IF dphase = 'COMPLETE' THEN
334: IF dstatus = 'NORMAL' THEN
336: COMMIT;
337: ELSE
338: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
339: fnd_file.put_line( 1, 'Validation pgm completed. ');
340: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Validation pgm completed. ');
341: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
342: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
343: IF (call_status) THEN
344: fnd_file.put_line( 1, 'Call Status '||'TRUE');
338: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
339: fnd_file.put_line( 1, 'Validation pgm completed. ');
340: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Validation pgm completed. ');
341: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
342: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
343: IF (call_status) THEN
344: fnd_file.put_line( 1, 'Call Status '||'TRUE');
345: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
346: ELSE
341: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
342: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
343: IF (call_status) THEN
344: fnd_file.put_line( 1, 'Call Status '||'TRUE');
345: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
346: ELSE
347: fnd_file.put_line( 1, 'Call Status '||'FALSE');
348: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
349: END IF;
344: fnd_file.put_line( 1, 'Call Status '||'TRUE');
345: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
346: ELSE
347: fnd_file.put_line( 1, 'Call Status '||'FALSE');
348: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
349: END IF;
350: END IF;
351: ROLLBACK_PROCESS(x_appraisal_id);
352: ROLLBACK_PROCESS(-1);
354: END IF;
355: ELSE
356: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
357: fnd_file.put_line( 1, 'Validation pgm is not completed. ');
358: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Validation pgm is not completed. ');
359: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
360: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
361: IF (call_status) THEN
362: fnd_file.put_line( 1, 'Call Status '||'TRUE');
356: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
357: fnd_file.put_line( 1, 'Validation pgm is not completed. ');
358: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Validation pgm is not completed. ');
359: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
360: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
361: IF (call_status) THEN
362: fnd_file.put_line( 1, 'Call Status '||'TRUE');
363: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
364: ELSE
359: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
360: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
361: IF (call_status) THEN
362: fnd_file.put_line( 1, 'Call Status '||'TRUE');
363: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
364: ELSE
365: fnd_file.put_line( 1, 'Call Status '||'FALSE');
366: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
367: END IF;
362: fnd_file.put_line( 1, 'Call Status '||'TRUE');
363: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
364: ELSE
365: fnd_file.put_line( 1, 'Call Status '||'FALSE');
366: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
367: END IF;
368: END IF;
369: ROLLBACK_PROCESS(x_appraisal_id);
370: ROLLBACK_PROCESS(-1);
380: 'Y');
381:
382: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
383: fnd_file.put_line( 1, 'Request id for Report pgm : '||to_char(x_request_id));
384: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Request id for Report pgm : '||to_char(x_request_id));
385: END IF;
386:
387: IF x_request_id = 0 THEN
388: RAISE REPORT_ERROR;
401:
402: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
403: dbg_msg := fnd_message.get;
404: fnd_file.put_line(1, 'dbg_msg : '||dbg_msg);
405: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'dbg_msg : '||dbg_msg);
406: END IF;
407:
408: IF dphase = 'COMPLETE' THEN
409: IF dstatus = 'NORMAL' THEN
410: null;
411: ELSE
412: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
413: fnd_file.put_line( 1, 'Addition report completed. ');
414: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Addition report completed. ');
415: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
416: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
417: IF (call_status) THEN
418: fnd_file.put_line( 1, 'Call Status '||'TRUE');
412: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
413: fnd_file.put_line( 1, 'Addition report completed. ');
414: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Addition report completed. ');
415: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
416: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
417: IF (call_status) THEN
418: fnd_file.put_line( 1, 'Call Status '||'TRUE');
419: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
420: ELSE
415: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
416: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
417: IF (call_status) THEN
418: fnd_file.put_line( 1, 'Call Status '||'TRUE');
419: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
420: ELSE
421: fnd_file.put_line( 1, 'Call Status '||'FALSE');
422: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
423: END IF;
418: fnd_file.put_line( 1, 'Call Status '||'TRUE');
419: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
420: ELSE
421: fnd_file.put_line( 1, 'Call Status '||'FALSE');
422: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
423: END IF;
424: END IF;
425: RAISE REPORT_ERROR;
426: END IF;
426: END IF;
427: ELSE
428: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
429: fnd_file.put_line( 1, 'addition report is not completed. ');
430: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'addition report is not completed. ');
431: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
432: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
433: IF (call_status) THEN
434: fnd_file.put_line( 1, 'Call Status '||'TRUE');
428: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
429: fnd_file.put_line( 1, 'addition report is not completed. ');
430: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'addition report is not completed. ');
431: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
432: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
433: IF (call_status) THEN
434: fnd_file.put_line( 1, 'Call Status '||'TRUE');
435: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
436: ELSE
431: fnd_file.put_line( 1, 'Phase and Status '||dphase||'-'||dstatus);
432: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Phase and Status '||dphase||'-'||dstatus);
433: IF (call_status) THEN
434: fnd_file.put_line( 1, 'Call Status '||'TRUE');
435: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
436: ELSE
437: fnd_file.put_line( 1, 'Call Status '||'FALSE');
438: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
439: END IF;
434: fnd_file.put_line( 1, 'Call Status '||'TRUE');
435: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'TRUE');
436: ELSE
437: fnd_file.put_line( 1, 'Call Status '||'FALSE');
438: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'Call Status '||'FALSE');
439: END IF;
440: END IF;
441: RAISE REPORT_ERROR;
442: END IF;
443:
444: END IF;
445:
446: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
447: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
448: END IF;
449:
450: EXCEPTION
451: