[Home] [Help]
29:
30: BEGIN
31:
32: IF (FIIBUUP_DEBUG) THEN
33: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Purge_All');
34: END IF;
35:
36: -- Purge all records from FII_BUDGET_BASE for the specified plan type
37: IF (FIIBUUP_DEBUG) THEN
34: END IF;
35:
36: -- Purge all records from FII_BUDGET_BASE for the specified plan type
37: IF (FIIBUUP_DEBUG) THEN
38: FII_MESSAGE.Write_Log
39: (msg_name => 'FII_ROUTINE',
40: token_num => 2,
41: t1 => 'ROUTINE',
42: v1 => 'Purge_All()',
48: DELETE from FII_BUDGET_BASE
49: WHERE plan_type_code = FIIBUUP_PURGE_PLAN_TYPE;
50:
51: IF (FIIBUUP_DEBUG) THEN
52: FII_MESSAGE.Write_Log
53: (msg_name => 'FII_DEL_REC',
54: token_num => 2,
55: t1 => 'NUM',
56: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
60:
61: -- Reset truncation indicator back to normal and
62: -- update FII_CHANGE_LOG to reflect latest profile setting
63: IF (FIIBUUP_DEBUG) THEN
64: FII_MESSAGE.Write_Log
65: (msg_name => 'FII_ROUTINE',
66: token_num => 2,
67: t1 => 'ROUTINE',
68: v1 => 'Purge_All()',
79: last_update_login = FIIBUUP_LOGIN_ID
80: WHERE log_item = 'TRUNCATE_BUDGET';
81:
82: IF (FIIBUUP_DEBUG) THEN
83: FII_MESSAGE.Write_Log
84: (msg_name => 'FII_UPD_REC',
85: token_num => 2,
86: t1 => 'NUM',
87: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
96: last_update_login = FIIBUUP_LOGIN_ID
97: WHERE log_item = 'BUDGET_TIME_UNIT';
98:
99: IF (FIIBUUP_DEBUG) THEN
100: FII_MESSAGE.Write_Log
101: (msg_name => 'FII_UPD_REC',
102: token_num => 2,
103: t1 => 'NUM',
104: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
114: last_update_login = FIIBUUP_LOGIN_ID
115: WHERE log_item = 'TRUNCATE_FORECAST';
116:
117: IF (FIIBUUP_DEBUG) THEN
118: FII_MESSAGE.Write_Log
119: (msg_name => 'FII_UPD_REC',
120: token_num => 2,
121: t1 => 'NUM',
122: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
131: last_update_login = FIIBUUP_LOGIN_ID
132: WHERE log_item = 'FORECAST_TIME_UNIT';
133:
134: IF (FIIBUUP_DEBUG) THEN
135: FII_MESSAGE.Write_Log
136: (msg_name => 'FII_UPD_REC',
137: token_num => 2,
138: t1 => 'NUM',
139: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
146: -- Commit everything to database before returning
147: FND_CONCURRENT.Af_Commit;
148:
149: IF (FIIBUUP_DEBUG) THEN
150: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Purge_All');
151: END IF;
152: RETURN TRUE;
153:
154: -- Exception handling
156: WHEN FIIBUUP_fatal_err THEN
157:
158: FND_CONCURRENT.Af_Rollback;
159:
160: FII_MESSAGE.Write_Log
161: (msg_name => 'FII_ERR_ENC_ROUT',
162: token_num => 1,
163: t1 => 'ROUTINE_NAME',
164: v1 => 'FII_BUDGET_FORECAST_C.Purge_All()');
163: t1 => 'ROUTINE_NAME',
164: v1 => 'FII_BUDGET_FORECAST_C.Purge_All()');
165:
166:
167: FII_MESSAGE.Func_Fail
168: (func_name =>'FII_BUDGET_FORECAST_C.Purge_All');
169:
170: fii_util.put_line ('Phase: ' || g_phase ||
171: 'Error: ' || sqlerrm);
175: WHEN OTHERS THEN
176:
177: FND_CONCURRENT.Af_Rollback;
178:
179: FII_MESSAGE.Write_Log
180: (msg_name => 'FII_ERROR',
181: token_num => 2,
182: t1 => 'FUNCTION',
183: v1 => 'FII_BUDGET_FORECAST_C.Purge_All()',
183: v1 => 'FII_BUDGET_FORECAST_C.Purge_All()',
184: t2 => 'SQLERRMC',
185: v2 => SQLERRM);
186:
187: FII_MESSAGE.Func_Fail
188: (func_name => 'FII_BUDGET_FORECAST_C.Purge_All');
189:
190: fii_util.put_line ('Phase: ' || g_phase ||
191: 'Error: ' || sqlerrm);
218:
219: BEGIN
220:
221: IF (FIIBUUP_DEBUG) THEN
222: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Purge_Partial');
223: END IF;
224:
225: -- Check if the specified time period is valid
226: IF (FIIBUUP_DEBUG) THEN
223: END IF;
224:
225: -- Check if the specified time period is valid
226: IF (FIIBUUP_DEBUG) THEN
227: FII_MESSAGE.Write_Log
228: (msg_name => 'FII_ROUTINE',
229: token_num => 2,
230: t1 => 'ROUTINE',
231: v1 => 'Purge_Partial()',
360: IF (FIIBUUP_DEBUG) THEN
361:
362: -- FND_FILE.put_line(FND_FILE.LOG, l_sqlstmt);
363:
364: FII_MESSAGE.Write_Log
365: (msg_name => 'FII_ROUTINE_VAL',
366: token_num => 3 ,
367: t1 => 'ROUTINE',
368: v1 => 'FII_BUDGET_FORECAST_C.Purge_Partial()',
370: v2 => 'l_sqlstmt',
371: t3 => 'VALUE',
372: v3 => l_sqlstmt);
373:
374: FII_MESSAGE.Write_Log
375: (msg_name => 'FII_ROUTINE_VAL',
376: token_num => 3 ,
377: t1 => 'ROUTINE',
378: v1 => 'FII_BUDGET_FORECAST_C.Purge_Partial()',
380: v2 => 'LENGTH(l_sqlstmt)',
381: t3 => 'VALUE',
382: v3 => TO_CHAR(LENGTH(l_sqlstmt)));
383:
384: FII_MESSAGE.Write_Log
385: (msg_name => 'FII_ROUTINE',
386: token_num => 2,
387: t1 => 'ROUTINE',
388: v1 => 'Purge_Partial()',
410: FIIBUUP_PURGE_PLAN_TYPE, l_purge_time_id, l_purge_period_type_id;
411: END IF;
412:
413: IF (FIIBUUP_DEBUG) THEN
414: FII_MESSAGE.Write_Log
415: (msg_name => 'FII_UPD_REC',
416: token_num => 2,
417: t1 => 'NUM',
418: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
421: END IF;
422:
423: -- Next, purge records
424: IF (FIIBUUP_DEBUG) THEN
425: FII_MESSAGE.Write_Log
426: (msg_name => 'FII_ROUTINE',
427: token_num => 2,
428: t1 => 'ROUTINE',
429: v1 => 'Purge_Partial()',
438: AND period_type_id = l_purge_period_type_id)
439: OR (prim_amount_g = 0));
440:
441: IF (FIIBUUP_DEBUG) THEN
442: FII_MESSAGE.Write_Log
443: (msg_name => 'FII_DEL_REC',
444: token_num => 2,
445: t1 => 'NUM',
446: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
451: -- Commit all work
452: FND_CONCURRENT.Af_Commit;
453:
454: IF (FIIBUUP_DEBUG) THEN
455: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Purge_Partial');
456: END IF;
457: RETURN TRUE;
458:
459: -- Exception handling
461: WHEN FIIBUUP_fatal_err THEN
462:
463: FND_CONCURRENT.Af_Rollback;
464:
465: FII_MESSAGE.Write_Log
466: (msg_name => 'FII_ERR_ENC_ROUT',
467: token_num => 1,
468: t1 => 'ROUTINE_NAME',
469: v1 => 'FII_BUDGET_FORECAST_C.Purge_Partial()');
467: token_num => 1,
468: t1 => 'ROUTINE_NAME',
469: v1 => 'FII_BUDGET_FORECAST_C.Purge_Partial()');
470:
471: FII_MESSAGE.Func_Fail
472: (func_name =>'FII_BUDGET_FORECAST_C.Purge_Partial');
473:
474: fii_util.put_line ('Phase: ' || g_phase ||
475: 'Error: ' || sqlerrm);
479: WHEN OTHERS THEN
480:
481: FND_CONCURRENT.Af_Rollback;
482:
483: FII_MESSAGE.Write_Log
484: (msg_name => 'FII_ERROR',
485: token_num => 2,
486: t1 => 'FUNCTION',
487: v1 => 'FII_BUDGET_FORECAST_C.Purge_Partial()',
487: v1 => 'FII_BUDGET_FORECAST_C.Purge_Partial()',
488: t2 => 'SQLERRMC',
489: v2 => SQLERRM);
490:
491: FII_MESSAGE.Func_Fail
492: (func_name => 'FII_BUDGET_FORECAST_C.Purge_Partial');
493:
494: fii_util.put_line ('Phase: ' || g_phase ||
495: 'Error: ' || sqlerrm);
517:
518: BEGIN
519:
520: IF (FIIBUUP_DEBUG) THEN
521: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Purge_Eff_Date');
522: END IF;
523:
524: -- Purge all records from FII_BUDGET_BASE for the specified effective
525: -- dates. All records with the same dimensions on and after the effective
524: -- Purge all records from FII_BUDGET_BASE for the specified effective
525: -- dates. All records with the same dimensions on and after the effective
526: -- date will be purged.
527: IF (FIIBUUP_DEBUG) THEN
528: FII_MESSAGE.Write_Log
529: (msg_name => 'FII_ROUTINE',
530: token_num => 2,
531: t1 => 'ROUTINE',
532: v1 => 'Purge_Eff_Date()',
550: ' AND b.version_date >= trunc(:version_date) ';
551:
552: -- Print out the dynamic SQL statements if running in debug mode
553: IF (FIIBUUP_DEBUG) THEN
554: FII_MESSAGE.Write_Log
555: (msg_name => 'FII_ROUTINE_VAL',
556: token_num => 3 ,
557: t1 => 'ROUTINE',
558: v1 => 'FII_BUDGET_FORECAST_C.purge_eff_date()',
560: v2 => 'l_tmpstmt',
561: t3 => 'VALUE',
562: v3 => l_tmpstmt);
563:
564: FII_MESSAGE.Write_Log
565: (msg_name => 'FII_ROUTINE_VAL',
566: token_num => 3 ,
567: t1 => 'ROUTINE',
568: v1 => 'FII_BUDGET_FORECAST_C.purge_eff_date()',
575: EXECUTE IMMEDIATE l_tmpstmt
576: USING FIIBUUP_PURGE_PLAN_TYPE, version_date, version_date;
577:
578: IF (FIIBUUP_DEBUG) THEN
579: FII_MESSAGE.Write_Log
580: (msg_name => 'FII_DEL_REC',
581: token_num => 2,
582: t1 => 'NUM',
583: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
587:
588: -- Reset truncation indicator back to normal and
589: -- update FII_CHANGE_LOG to reflect latest profile setting
590: IF (FIIBUUP_DEBUG) THEN
591: FII_MESSAGE.Write_Log
592: (msg_name => 'FII_ROUTINE',
593: token_num => 2,
594: t1 => 'ROUTINE',
595: v1 => 'Purge_Eff_Date()',
606: last_update_login = FIIBUUP_LOGIN_ID
607: WHERE log_item = 'TRUNCATE_BUDGET';
608:
609: IF (FIIBUUP_DEBUG) THEN
610: FII_MESSAGE.Write_Log
611: (msg_name => 'FII_UPD_REC',
612: token_num => 2,
613: t1 => 'NUM',
614: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
623: last_update_login = FIIBUUP_LOGIN_ID
624: WHERE log_item = 'BUDGET_TIME_UNIT';
625:
626: IF (FIIBUUP_DEBUG) THEN
627: FII_MESSAGE.Write_Log
628: (msg_name => 'FII_UPD_REC',
629: token_num => 2,
630: t1 => 'NUM',
631: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
641: last_update_login = FIIBUUP_LOGIN_ID
642: WHERE log_item = 'TRUNCATE_FORECAST';
643:
644: IF (FIIBUUP_DEBUG) THEN
645: FII_MESSAGE.Write_Log
646: (msg_name => 'FII_UPD_REC',
647: token_num => 2,
648: t1 => 'NUM',
649: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
658: last_update_login = FIIBUUP_LOGIN_ID
659: WHERE log_item = 'FORECAST_TIME_UNIT';
660:
661: IF (FIIBUUP_DEBUG) THEN
662: FII_MESSAGE.Write_Log
663: (msg_name => 'FII_UPD_REC',
664: token_num => 2,
665: t1 => 'NUM',
666: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
673: -- Commit everything to database before returning
674: FND_CONCURRENT.Af_Commit;
675:
676: IF (FIIBUUP_DEBUG) THEN
677: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Purge_Eff_Date');
678: END IF;
679: RETURN TRUE;
680:
681: -- Exception handling
683: WHEN FIIBUUP_fatal_err THEN
684:
685: FND_CONCURRENT.Af_Rollback;
686:
687: FII_MESSAGE.Write_Log
688: (msg_name => 'FII_ERR_ENC_ROUT',
689: token_num => 1,
690: t1 => 'ROUTINE_NAME',
691: v1 => 'FII_BUDGET_FORECAST_C.Purge_Eff_Date()');
690: t1 => 'ROUTINE_NAME',
691: v1 => 'FII_BUDGET_FORECAST_C.Purge_Eff_Date()');
692:
693:
694: FII_MESSAGE.Func_Fail
695: (func_name =>'FII_BUDGET_FORECAST_C.Purge_Eff_Date');
696:
697: fii_util.put_line ('Phase: ' || g_phase ||
698: 'Error: ' || sqlerrm);
702: WHEN OTHERS THEN
703:
704: FND_CONCURRENT.Af_Rollback;
705:
706: FII_MESSAGE.Write_Log
707: (msg_name => 'FII_ERROR',
708: token_num => 2,
709: t1 => 'FUNCTION',
710: v1 => 'FII_BUDGET_FORECAST_C.Purge_Eff_Date()',
710: v1 => 'FII_BUDGET_FORECAST_C.Purge_Eff_Date()',
711: t2 => 'SQLERRMC',
712: v2 => SQLERRM);
713:
714: FII_MESSAGE.Func_Fail
715: (func_name => 'FII_BUDGET_FORECAST_C.Purge_Eff_Date');
716:
717: fii_util.put_line ('Phase: ' || g_phase ||
718: 'Error: ' || sqlerrm);
743:
744: BEGIN
745:
746: IF (FIIBUUP_DEBUG) THEN
747: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Psi_Insert_Stg');
748: END IF;
749:
750: -- PSI Budget Extraction will always extract budget data from scratch
751: g_phase := 'Truncate the staging table FII_BUDGET_BASE';
904: -- Print out the dynamic SQL statements if running in debug mode
905: IF (FIIBUUP_DEBUG) THEN
906: fii_util.put_line('l_sqlstmt = '|| l_sqlstmt);
907:
908: FII_MESSAGE.Write_Log
909: (msg_name => 'FII_ROUTINE_VAL',
910: token_num => 3 ,
911: t1 => 'ROUTINE',
912: v1 => 'FII_BUDGET_FORECAST_C.Psi_Insert_Stg()',
940: FND_CONCURRENT.Af_Commit;
941:
942: -- Psi_Insert_Stg is completed, return with success.
943: IF (FIIBUUP_DEBUG) THEN
944: FII_MESSAGE.Write_Log
945: (msg_name => 'FII_ROUTINE',
946: token_num => 2,
947: t1 => 'ROUTINE',
948: v1 => 'Psi_Insert_Stg()',
950: v2 => 'PSI Insert Stage completed successfully...');
951: END IF;
952:
953: IF (FIIBUUP_DEBUG) THEN
954: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Psi_Insert_Stg');
955: END IF;
956: RETURN TRUE;
957:
958: -- Exception handling
959: EXCEPTION
960: WHEN FIIBUUP_fatal_err THEN
961: FND_CONCURRENT.Af_Rollback;
962:
963: FII_MESSAGE.Write_Log
964: (msg_name => 'FII_ERR_ENC_ROUT',
965: token_num => 1,
966: t1 => 'ROUTINE_NAME',
967: v1 => 'FII_BUDGET_FORECAST_C.Psi_Insert_Stg()');
965: token_num => 1,
966: t1 => 'ROUTINE_NAME',
967: v1 => 'FII_BUDGET_FORECAST_C.Psi_Insert_Stg()');
968:
969: FII_MESSAGE.Func_Fail
970: (func_name =>'FII_BUDGET_FORECAST_C.Psi_Insert_Stg');
971:
972: fii_util.put_line ('Phase: ' || g_phase ||
973: 'Error: ' || sqlerrm);
975:
976: WHEN OTHERS THEN
977: FND_CONCURRENT.Af_Rollback;
978:
979: FII_MESSAGE.Write_Log
980: (msg_name => 'FII_ERROR',
981: token_num => 2,
982: t1 => 'FUNCTION',
983: v1 => 'FII_BUDGET_FORECAST_C.Psi_Insert_Stg()',
983: v1 => 'FII_BUDGET_FORECAST_C.Psi_Insert_Stg()',
984: t2 => 'SQLERRMC',
985: v2 => SQLERRM);
986:
987: FII_MESSAGE.Func_Fail
988: (func_name => 'FII_BUDGET_FORECAST_C.Psi_Insert_Stg');
989:
990: fii_util.put_line ('Phase: ' || g_phase ||
991: 'Error: ' || sqlerrm);
1015:
1016: BEGIN
1017:
1018: IF (FIIBUUP_DEBUG) THEN
1019: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Psi_Carry_Forward');
1020: END IF;
1021:
1022: -- Check if UDD1 is enabled or not
1023: SELECT DBI_ENABLED_FLAG
1122: -- Print out the dynamic SQL statements if running in debug mode
1123: IF (FIIBUUP_DEBUG) THEN
1124: fii_util.put_line('l_sqlstmt = '|| l_sqlstmt);
1125:
1126: FII_MESSAGE.Write_Log
1127: (msg_name => 'FII_ROUTINE_VAL',
1128: token_num => 3 ,
1129: t1 => 'ROUTINE',
1130: v1 => 'FII_BUDGET_FORECAST_C.Psi_Carry_Forward()',
1158: FND_CONCURRENT.Af_Commit;
1159:
1160: -- Psi_Carry_Forward is completed, return with success.
1161: IF (FIIBUUP_DEBUG) THEN
1162: FII_MESSAGE.Write_Log
1163: (msg_name => 'FII_ROUTINE',
1164: token_num => 2,
1165: t1 => 'ROUTINE',
1166: v1 => 'Psi_Carry_Forward()',
1168: v2 => 'PSI Carry Forward completed successfully...');
1169: END IF;
1170:
1171: IF (FIIBUUP_DEBUG) THEN
1172: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Psi_Carry_Forward');
1173: END IF;
1174: RETURN TRUE;
1175:
1176: -- Exception handling
1177: EXCEPTION
1178: WHEN FIIBUUP_fatal_err THEN
1179: FND_CONCURRENT.Af_Rollback;
1180:
1181: FII_MESSAGE.Write_Log
1182: (msg_name => 'FII_ERR_ENC_ROUT',
1183: token_num => 1,
1184: t1 => 'ROUTINE_NAME',
1185: v1 => 'FII_BUDGET_FORECAST_C.Psi_Carry_Forward()');
1183: token_num => 1,
1184: t1 => 'ROUTINE_NAME',
1185: v1 => 'FII_BUDGET_FORECAST_C.Psi_Carry_Forward()');
1186:
1187: FII_MESSAGE.Func_Fail
1188: (func_name =>'FII_BUDGET_FORECAST_C.Psi_Carry_Forward');
1189:
1190: fii_util.put_line ('Phase: ' || g_phase ||
1191: 'Error: ' || sqlerrm);
1193:
1194: WHEN OTHERS THEN
1195: FND_CONCURRENT.Af_Rollback;
1196:
1197: FII_MESSAGE.Write_Log
1198: (msg_name => 'FII_ERROR',
1199: token_num => 2,
1200: t1 => 'FUNCTION',
1201: v1 => 'FII_BUDGET_FORECAST_C.Psi_Carry_Forward()',
1201: v1 => 'FII_BUDGET_FORECAST_C.Psi_Carry_Forward()',
1202: t2 => 'SQLERRMC',
1203: v2 => SQLERRM);
1204:
1205: FII_MESSAGE.Func_Fail
1206: (func_name => 'FII_BUDGET_FORECAST_C.Psi_Carry_Forward');
1207:
1208: fii_util.put_line ('Phase: ' || g_phase ||
1209: 'Error: ' || sqlerrm);
1232:
1233: BEGIN
1234:
1235: IF (FIIBUUP_DEBUG) THEN
1236: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Psi_Rollup');
1237: END IF;
1238:
1239: g_phase := 'PSI Rollup';
1240:
1279: -- Print out the dynamic SQL statements if running in debug mode
1280: IF (FIIBUUP_DEBUG) THEN
1281: fii_util.put_line('l_sqlstmt = '|| l_sqlstmt);
1282:
1283: FII_MESSAGE.Write_Log
1284: (msg_name => 'FII_ROUTINE_VAL',
1285: token_num => 3 ,
1286: t1 => 'ROUTINE',
1287: v1 => 'FII_BUDGET_FORECAST_C.Psi_Rollup()',
1303: FND_CONCURRENT.Af_Commit;
1304:
1305: -- PSI Budget Extraction is completed, return with success.
1306: IF (FIIBUUP_DEBUG) THEN
1307: FII_MESSAGE.Write_Log
1308: (msg_name => 'FII_ROUTINE',
1309: token_num => 2,
1310: t1 => 'ROUTINE',
1311: v1 => 'Psi_Rollup()',
1313: v2 => 'PSI Rollup completed successfully...');
1314: END IF;
1315:
1316: IF (FIIBUUP_DEBUG) THEN
1317: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Psi_Rollup');
1318: END IF;
1319: RETURN TRUE;
1320:
1321: -- Exception handling
1322: EXCEPTION
1323: WHEN FIIBUUP_fatal_err THEN
1324: FND_CONCURRENT.Af_Rollback;
1325:
1326: FII_MESSAGE.Write_Log
1327: (msg_name => 'FII_ERR_ENC_ROUT',
1328: token_num => 1,
1329: t1 => 'ROUTINE_NAME',
1330: v1 => 'FII_BUDGET_FORECAST_C.Psi_Rollup()');
1328: token_num => 1,
1329: t1 => 'ROUTINE_NAME',
1330: v1 => 'FII_BUDGET_FORECAST_C.Psi_Rollup()');
1331:
1332: FII_MESSAGE.Func_Fail
1333: (func_name =>'FII_BUDGET_FORECAST_C.Psi_Rollup');
1334:
1335: fii_util.put_line ('Phase: ' || g_phase ||
1336: 'Error: ' || sqlerrm);
1338:
1339: WHEN OTHERS THEN
1340: FND_CONCURRENT.Af_Rollback;
1341:
1342: FII_MESSAGE.Write_Log
1343: (msg_name => 'FII_ERROR',
1344: token_num => 2,
1345: t1 => 'FUNCTION',
1346: v1 => 'FII_BUDGET_FORECAST_C.Psi_Rollup()',
1346: v1 => 'FII_BUDGET_FORECAST_C.Psi_Rollup()',
1347: t2 => 'SQLERRMC',
1348: v2 => SQLERRM);
1349:
1350: FII_MESSAGE.Func_Fail
1351: (func_name => 'FII_BUDGET_FORECAST_C.Psi_Rollup');
1352:
1353: fii_util.put_line ('Phase: ' || g_phase ||
1354: 'Error: ' || sqlerrm);
1376:
1377: BEGIN
1378:
1379: IF (FIIBUUP_DEBUG) THEN
1380: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Psi_DeleteDiff');
1381: END IF;
1382:
1383: g_phase := 'PSI DeleteDiff';
1384:
1453: -- Print out the dynamic SQL statements if running in debug mode
1454: IF (FIIBUUP_DEBUG) THEN
1455: fii_util.put_line('l_sqlstmt = '|| l_sqlstmt);
1456:
1457: FII_MESSAGE.Write_Log
1458: (msg_name => 'FII_ROUTINE_VAL',
1459: token_num => 3 ,
1460: t1 => 'ROUTINE',
1461: v1 => 'FII_BUDGET_FORECAST_C.Psi_DeleteDiff()',
1477: FND_CONCURRENT.Af_Commit;
1478:
1479: -- PSI Budget Extraction is completed, return with success.
1480: IF (FIIBUUP_DEBUG) THEN
1481: FII_MESSAGE.Write_Log
1482: (msg_name => 'FII_ROUTINE',
1483: token_num => 2,
1484: t1 => 'ROUTINE',
1485: v1 => 'Psi_DeleteDiff()',
1487: v2 => 'PSI DeleteDiff completed successfully...');
1488: END IF;
1489:
1490: IF (FIIBUUP_DEBUG) THEN
1491: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Psi_DeleteDiff');
1492: END IF;
1493: RETURN TRUE;
1494:
1495: -- Exception handling
1496: EXCEPTION
1497: WHEN FIIBUUP_fatal_err THEN
1498: FND_CONCURRENT.Af_Rollback;
1499:
1500: FII_MESSAGE.Write_Log
1501: (msg_name => 'FII_ERR_ENC_ROUT',
1502: token_num => 1,
1503: t1 => 'ROUTINE_NAME',
1504: v1 => 'FII_BUDGET_FORECAST_C.Psi_DeleteDiff()');
1502: token_num => 1,
1503: t1 => 'ROUTINE_NAME',
1504: v1 => 'FII_BUDGET_FORECAST_C.Psi_DeleteDiff()');
1505:
1506: FII_MESSAGE.Func_Fail
1507: (func_name =>'FII_BUDGET_FORECAST_C.Psi_DeleteDiff');
1508:
1509: fii_util.put_line ('Phase: ' || g_phase ||
1510: 'Error: ' || sqlerrm);
1512:
1513: WHEN OTHERS THEN
1514: FND_CONCURRENT.Af_Rollback;
1515:
1516: FII_MESSAGE.Write_Log
1517: (msg_name => 'FII_ERROR',
1518: token_num => 2,
1519: t1 => 'FUNCTION',
1520: v1 => 'FII_BUDGET_FORECAST_C.Psi_DeleteDiff()',
1520: v1 => 'FII_BUDGET_FORECAST_C.Psi_DeleteDiff()',
1521: t2 => 'SQLERRMC',
1522: v2 => SQLERRM);
1523:
1524: FII_MESSAGE.Func_Fail
1525: (func_name => 'FII_BUDGET_FORECAST_C.Psi_DeleteDiff');
1526:
1527: fii_util.put_line ('Phase: ' || g_phase ||
1528: 'Error: ' || sqlerrm);
1550:
1551: BEGIN
1552:
1553: IF (FIIBUUP_DEBUG) THEN
1554: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Psi_Insert_Base');
1555: END IF;
1556:
1557: g_phase := 'PSI Insert Base';
1558:
1626: -- Print out the dynamic SQL statements if running in debug mode
1627: IF (FIIBUUP_DEBUG) THEN
1628: fii_util.put_line('l_sqlstmt = '|| l_sqlstmt);
1629:
1630: FII_MESSAGE.Write_Log
1631: (msg_name => 'FII_ROUTINE_VAL',
1632: token_num => 3 ,
1633: t1 => 'ROUTINE',
1634: v1 => 'FII_BUDGET_FORECAST_C.Psi_Insert_Base()',
1654: FND_CONCURRENT.Af_Commit;
1655:
1656: -- PSI Budget Extraction is completed, return with success.
1657: IF (FIIBUUP_DEBUG) THEN
1658: FII_MESSAGE.Write_Log
1659: (msg_name => 'FII_ROUTINE',
1660: token_num => 2,
1661: t1 => 'ROUTINE',
1662: v1 => 'Psi_Insert_Base()',
1664: v2 => 'PSI Merge completed successfully...');
1665: END IF;
1666:
1667: IF (FIIBUUP_DEBUG) THEN
1668: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Psi_Insert_Base');
1669: END IF;
1670: RETURN TRUE;
1671:
1672: -- Exception handling
1673: EXCEPTION
1674: WHEN FIIBUUP_fatal_err THEN
1675: FND_CONCURRENT.Af_Rollback;
1676:
1677: FII_MESSAGE.Write_Log
1678: (msg_name => 'FII_ERR_ENC_ROUT',
1679: token_num => 1,
1680: t1 => 'ROUTINE_NAME',
1681: v1 => 'FII_BUDGET_FORECAST_C.Psi_Insert_Base()');
1679: token_num => 1,
1680: t1 => 'ROUTINE_NAME',
1681: v1 => 'FII_BUDGET_FORECAST_C.Psi_Insert_Base()');
1682:
1683: FII_MESSAGE.Func_Fail
1684: (func_name =>'FII_BUDGET_FORECAST_C.Psi_Insert_Base');
1685:
1686: fii_util.put_line ('Phase: ' || g_phase ||
1687: 'Error: ' || sqlerrm);
1689:
1690: WHEN OTHERS THEN
1691: FND_CONCURRENT.Af_Rollback;
1692:
1693: FII_MESSAGE.Write_Log
1694: (msg_name => 'FII_ERROR',
1695: token_num => 2,
1696: t1 => 'FUNCTION',
1697: v1 => 'FII_BUDGET_FORECAST_C.Psi_Insert_Base()',
1697: v1 => 'FII_BUDGET_FORECAST_C.Psi_Insert_Base()',
1698: t2 => 'SQLERRMC',
1699: v2 => SQLERRM);
1700:
1701: FII_MESSAGE.Func_Fail
1702: (func_name => 'FII_BUDGET_FORECAST_C.Psi_Insert_Base');
1703:
1704: fii_util.put_line ('Phase: ' || g_phase ||
1705: 'Error: ' || sqlerrm);
1797: l_status VARCHAR2(1);
1798: BEGIN
1799:
1800: IF (FIIBUUP_DEBUG) THEN
1801: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Psi_Budget_Extract');
1802: END IF;
1803:
1804: -- Alter session comments recommendated by the performance team
1805: EXECUTE IMMEDIATE 'ALTER SESSION ENABLE PARALLEL DML';
1816: ------------------------------------------------------------------------
1817: g_phase := 'Validate functional currencies';
1818:
1819: IF (FIIBUUP_DEBUG) THEN
1820: FII_MESSAGE.Write_Log
1821: (msg_name => 'FII_ROUTINE',
1822: token_num => 2,
1823: t1 => 'ROUTINE',
1824: v1 => 'Psi_Budget_Extract()',
1835: -- Set the return code so the program will ends with warning.
1836: retcode := 'W';
1837:
1838: FII_UTIL.Write_Output (' ');
1839: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_FUNC_CURR_CODE',
1840: token_num => 0);
1841: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
1842: token_num => 0);
1843: FII_MESSAGE.Write_Output (msg_name => 'FII_INV_FUNC_CURR_CODE',
1837:
1838: FII_UTIL.Write_Output (' ');
1839: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_FUNC_CURR_CODE',
1840: token_num => 0);
1841: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
1842: token_num => 0);
1843: FII_MESSAGE.Write_Output (msg_name => 'FII_INV_FUNC_CURR_CODE',
1844: token_num => 0);
1845: l_print_hdr1 := TRUE;
1839: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_FUNC_CURR_CODE',
1840: token_num => 0);
1841: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
1842: token_num => 0);
1843: FII_MESSAGE.Write_Output (msg_name => 'FII_INV_FUNC_CURR_CODE',
1844: token_num => 0);
1845: l_print_hdr1 := TRUE;
1846: END IF;
1847:
1874: l_budget_name := rec_csr.budget_name;
1875:
1876: IF (NOT l_print_hdr1) THEN
1877: FII_UTIL.Write_Output (' ');
1878: FII_MESSAGE.Write_Log (msg_name => 'FII_CCID_ACROSS_BUDGETS',
1879: token_num => 0);
1880: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
1881: token_num => 0);
1882: FII_MESSAGE.Write_Output
1876: IF (NOT l_print_hdr1) THEN
1877: FII_UTIL.Write_Output (' ');
1878: FII_MESSAGE.Write_Log (msg_name => 'FII_CCID_ACROSS_BUDGETS',
1879: token_num => 0);
1880: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
1881: token_num => 0);
1882: FII_MESSAGE.Write_Output
1883: (msg_name => 'FII_CCID_ACROSS_BUDGETS',
1884: token_num => 0);
1878: FII_MESSAGE.Write_Log (msg_name => 'FII_CCID_ACROSS_BUDGETS',
1879: token_num => 0);
1880: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
1881: token_num => 0);
1882: FII_MESSAGE.Write_Output
1883: (msg_name => 'FII_CCID_ACROSS_BUDGETS',
1884: token_num => 0);
1885: l_print_hdr1 := TRUE;
1886: END IF;
1906:
1907: IF (NOT l_print_hdr1) THEN
1908: retcode := 'W';
1909: FII_UTIL.Write_Output (' ');
1910: FII_MESSAGE.Write_Log (msg_name => 'FII_PSI_BASELINE_CHANGED',
1911: token_num => 0);
1912: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
1913: token_num => 0);
1914: FII_MESSAGE.Write_Output (msg_name => 'FII_PSI_BASELINE_CHANGED',
1908: retcode := 'W';
1909: FII_UTIL.Write_Output (' ');
1910: FII_MESSAGE.Write_Log (msg_name => 'FII_PSI_BASELINE_CHANGED',
1911: token_num => 0);
1912: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
1913: token_num => 0);
1914: FII_MESSAGE.Write_Output (msg_name => 'FII_PSI_BASELINE_CHANGED',
1915: token_num => 0);
1916: l_print_hdr1 := TRUE;
1910: FII_MESSAGE.Write_Log (msg_name => 'FII_PSI_BASELINE_CHANGED',
1911: token_num => 0);
1912: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
1913: token_num => 0);
1914: FII_MESSAGE.Write_Output (msg_name => 'FII_PSI_BASELINE_CHANGED',
1915: token_num => 0);
1916: l_print_hdr1 := TRUE;
1917:
1918: END IF;
1977: FROM fii_budget_base
1978: WHERE rownum = 1;
1979: EXCEPTION
1980: WHEN NO_DATA_FOUND THEN
1981: FII_MESSAGE.Write_Log (msg_name => 'FII_PSI_NO_RECS', token_num => 0);
1982: retcode := 'W';
1983: END;
1984:
1985: -- PSI Budget Extraction is completed, return with success.
1983: END;
1984:
1985: -- PSI Budget Extraction is completed, return with success.
1986: IF (FIIBUUP_DEBUG) THEN
1987: FII_MESSAGE.Write_Log
1988: (msg_name => 'FII_ROUTINE',
1989: token_num => 2,
1990: t1 => 'ROUTINE',
1991: v1 => 'Psi_Budget_Extract()',
1993: v2 => 'PSI Budget Extraction completed successfully...');
1994: END IF;
1995:
1996: IF (FIIBUUP_DEBUG) THEN
1997: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Psi_Budget_Extract');
1998: END IF;
1999:
2000: -- Exception handling
2001: EXCEPTION
2002: WHEN FIIBUUP_fatal_err THEN
2003:
2004: FND_CONCURRENT.Af_Rollback;
2005:
2006: FII_MESSAGE.Write_Log
2007: (msg_name => 'FII_ERR_ENC_ROUT',
2008: token_num => 1,
2009: t1 => 'ROUTINE_NAME',
2010: v1 => 'FII_BUDGET_FORECAST_C.Psi_Budget_Extract()');
2008: token_num => 1,
2009: t1 => 'ROUTINE_NAME',
2010: v1 => 'FII_BUDGET_FORECAST_C.Psi_Budget_Extract()');
2011:
2012: FII_MESSAGE.Func_Fail
2013: (func_name =>'FII_BUDGET_FORECAST_C.Psi_Budget_Extract');
2014:
2015: fii_util.put_line ('Phase: ' || g_phase ||
2016: 'Error: ' || sqlerrm);
2020: WHEN OTHERS THEN
2021:
2022: FND_CONCURRENT.Af_Rollback;
2023:
2024: FII_MESSAGE.Write_Log
2025: (msg_name => 'FII_ERROR',
2026: token_num => 2,
2027: t1 => 'FUNCTION',
2028: v1 => 'FII_BUDGET_FORECAST_C.Psi_Budget_Extract()',
2028: v1 => 'FII_BUDGET_FORECAST_C.Psi_Budget_Extract()',
2029: t2 => 'SQLERRMC',
2030: v2 => SQLERRM);
2031:
2032: FII_MESSAGE.Func_Fail
2033: (func_name => 'FII_BUDGET_FORECAST_C.Psi_Budget_Extract');
2034:
2035: fii_util.put_line ('Phase: ' || g_phase ||
2036: 'Error: ' || sqlerrm);
2174: l_status VARCHAR2(1) := null;
2175:
2176: BEGIN
2177: IF (FIIBUUP_DEBUG) THEN
2178: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Id_Convert');
2179: END IF;
2180:
2181: ----------------------------------------------------
2182: -- Populate CCC - Mgr mappings temp table
2313: CLOSE prod_cat_cursor;
2314:
2315: -- Value to ID conversion is completed, return with success.
2316: IF (FIIBUUP_DEBUG) THEN
2317: FII_MESSAGE.Write_Log
2318: (msg_name => 'FII_ROUTINE',
2319: token_num => 2,
2320: t1 => 'ROUTINE',
2321: v1 => 'Id_Convert()',
2323: v2 => 'Value to ID Conversion completed successfully...');
2324: END IF;
2325:
2326: IF (FIIBUUP_DEBUG) THEN
2327: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Id_Convert');
2328: END IF;
2329: RETURN TRUE;
2330:
2331: -- Exception handling
2333: WHEN FIIBUUP_fatal_err THEN
2334:
2335: FND_CONCURRENT.Af_Rollback;
2336:
2337: FII_MESSAGE.Write_Log
2338: (msg_name => 'FII_ERR_ENC_ROUT',
2339: token_num => 1,
2340: t1 => 'ROUTINE_NAME',
2341: v1 => 'FII_BUDGET_FORECAST_C.Id_Convert()');
2339: token_num => 1,
2340: t1 => 'ROUTINE_NAME',
2341: v1 => 'FII_BUDGET_FORECAST_C.Id_Convert()');
2342:
2343: FII_MESSAGE.Func_Fail
2344: (func_name =>'FII_BUDGET_FORECAST_C.Id_Convert');
2345:
2346: fii_util.put_line ('Phase: ' || g_phase ||
2347: 'Error: ' || sqlerrm);
2351: WHEN OTHERS THEN
2352:
2353: FND_CONCURRENT.Af_Rollback;
2354:
2355: FII_MESSAGE.Write_Log
2356: (msg_name => 'FII_ERROR',
2357: token_num => 2,
2358: t1 => 'FUNCTION',
2359: v1 => 'FII_BUDGET_FORECAST_C.Id_Convert()',
2359: v1 => 'FII_BUDGET_FORECAST_C.Id_Convert()',
2360: t2 => 'SQLERRMC',
2361: v2 => SQLERRM);
2362:
2363: FII_MESSAGE.Func_Fail
2364: (func_name => 'FII_BUDGET_FORECAST_C.Id_Convert');
2365:
2366: fii_util.put_line ('Phase: ' || g_phase ||
2367: 'Error: ' || sqlerrm);
2725:
2726: BEGIN
2727:
2728: IF (FIIBUUP_DEBUG) THEN
2729: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Validate');
2730: END IF;
2731:
2732: retcode := 'S';
2733:
2751:
2752: -- Bug fix 4943332: We don't need to count the rows of FII_BUDGET_INTERFACE
2753: -- as we can get the row count updated by previuos SQL
2754: IF (SQL%ROWCOUNT = 0) THEN
2755: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_NO_RECS', token_num => 0);
2756: retcode := 'W';
2757: RETURN;
2758: END IF;
2759:
2767: l_plan_code := rec_csr.plan_type_code;
2768: l_prim_amount_g := rec_csr.prim_amount_g;
2769: IF (NOT l_print_hdr1) THEN
2770: FII_UTIL.Write_Output (' ');
2771: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_PLAN_TYPE_CODE',
2772: token_num => 0);
2773: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2774: token_num => 0);
2775: FII_MESSAGE.Write_Output
2769: IF (NOT l_print_hdr1) THEN
2770: FII_UTIL.Write_Output (' ');
2771: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_PLAN_TYPE_CODE',
2772: token_num => 0);
2773: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2774: token_num => 0);
2775: FII_MESSAGE.Write_Output
2776: (msg_name => 'FII_INV_PLAN_TYPE_CODE',
2777: token_num => 0);
2771: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_PLAN_TYPE_CODE',
2772: token_num => 0);
2773: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2774: token_num => 0);
2775: FII_MESSAGE.Write_Output
2776: (msg_name => 'FII_INV_PLAN_TYPE_CODE',
2777: token_num => 0);
2778: FII_MESSAGE.Write_Output
2779: (msg_name => 'FII_BUDGET_RECORD_TAB',
2774: token_num => 0);
2775: FII_MESSAGE.Write_Output
2776: (msg_name => 'FII_INV_PLAN_TYPE_CODE',
2777: token_num => 0);
2778: FII_MESSAGE.Write_Output
2779: (msg_name => 'FII_BUDGET_RECORD_TAB',
2780: token_num => 0);
2781: l_print_hdr1 := TRUE;
2782: END IF;
2792: -- 2. Check if any record is missing any time period information
2793: -----------------------------------------------------------------------
2794: g_phase := 'Check if any record is missing time period information';
2795: IF (FIIBUUP_DEBUG) THEN
2796: FII_MESSAGE.Write_Log
2797: (msg_name => 'FII_ROUTINE',
2798: token_num => 2,
2799: t1 => 'ROUTINE',
2800: v1 => 'Validate()',
2809: l_plan_code := rec_csr.plan_type_code;
2810: l_prim_amount_g := rec_csr.prim_amount_g;
2811: IF (NOT l_print_hdr1) THEN
2812: FII_UTIL.Write_Output (' ');
2813: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_TIME_BUD_FRC',
2814: token_num => 0);
2815: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2816: token_num => 0);
2817: FII_MESSAGE.Write_Output
2811: IF (NOT l_print_hdr1) THEN
2812: FII_UTIL.Write_Output (' ');
2813: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_TIME_BUD_FRC',
2814: token_num => 0);
2815: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2816: token_num => 0);
2817: FII_MESSAGE.Write_Output
2818: (msg_name => 'FII_MISS_TIME_BUD_FRC',
2819: token_num => 0);
2813: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_TIME_BUD_FRC',
2814: token_num => 0);
2815: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2816: token_num => 0);
2817: FII_MESSAGE.Write_Output
2818: (msg_name => 'FII_MISS_TIME_BUD_FRC',
2819: token_num => 0);
2820: FII_MESSAGE.Write_Output
2821: (msg_name => 'FII_BUDGET_RECORD_TAB',
2816: token_num => 0);
2817: FII_MESSAGE.Write_Output
2818: (msg_name => 'FII_MISS_TIME_BUD_FRC',
2819: token_num => 0);
2820: FII_MESSAGE.Write_Output
2821: (msg_name => 'FII_BUDGET_RECORD_TAB',
2822: token_num => 0);
2823: l_print_hdr1 := TRUE;
2824: END IF;
2836: l_plan_code := rec_csr.plan_type_code;
2837: l_prim_amount_g := rec_csr.prim_amount_g;
2838: IF (NOT l_print_hdr1) THEN
2839: FII_UTIL.Write_Output (' ');
2840: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_TIME_BUD',
2841: token_num => 0);
2842: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2843: token_num => 0);
2844: FII_MESSAGE.Write_Output
2838: IF (NOT l_print_hdr1) THEN
2839: FII_UTIL.Write_Output (' ');
2840: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_TIME_BUD',
2841: token_num => 0);
2842: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2843: token_num => 0);
2844: FII_MESSAGE.Write_Output
2845: (msg_name => 'FII_MISS_TIME_BUD',
2846: token_num => 0);
2840: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_TIME_BUD',
2841: token_num => 0);
2842: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2843: token_num => 0);
2844: FII_MESSAGE.Write_Output
2845: (msg_name => 'FII_MISS_TIME_BUD',
2846: token_num => 0);
2847: FII_MESSAGE.Write_Output
2848: (msg_name => 'FII_BUDGET_RECORD_TAB',
2843: token_num => 0);
2844: FII_MESSAGE.Write_Output
2845: (msg_name => 'FII_MISS_TIME_BUD',
2846: token_num => 0);
2847: FII_MESSAGE.Write_Output
2848: (msg_name => 'FII_BUDGET_RECORD_TAB',
2849: token_num => 0);
2850: l_print_hdr1 := TRUE;
2851: END IF;
2864: l_plan_code := rec_csr.plan_type_code;
2865: l_prim_amount_g := rec_csr.prim_amount_g;
2866: IF (NOT l_print_hdr1) THEN
2867: FII_UTIL.Write_Output (' ');
2868: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_TIME_FRC',
2869: token_num => 0);
2870: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2871: token_num => 0);
2872: FII_MESSAGE.Write_Output
2866: IF (NOT l_print_hdr1) THEN
2867: FII_UTIL.Write_Output (' ');
2868: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_TIME_FRC',
2869: token_num => 0);
2870: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2871: token_num => 0);
2872: FII_MESSAGE.Write_Output
2873: (msg_name => 'FII_MISS_TIME_FRC',
2874: token_num => 0);
2868: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_TIME_FRC',
2869: token_num => 0);
2870: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2871: token_num => 0);
2872: FII_MESSAGE.Write_Output
2873: (msg_name => 'FII_MISS_TIME_FRC',
2874: token_num => 0);
2875: FII_MESSAGE.Write_Output
2876: (msg_name => 'FII_BUDGET_RECORD_TAB',
2871: token_num => 0);
2872: FII_MESSAGE.Write_Output
2873: (msg_name => 'FII_MISS_TIME_FRC',
2874: token_num => 0);
2875: FII_MESSAGE.Write_Output
2876: (msg_name => 'FII_BUDGET_RECORD_TAB',
2877: token_num => 0);
2878: l_print_hdr1 := TRUE;
2879: END IF;
2893: -----------------------------------------------------------------------
2894: g_phase := 'Validate that all time unit references are valid';
2895: l_print_hdr1 := FALSE;
2896: IF (FIIBUUP_DEBUG) THEN
2897: FII_MESSAGE.Write_Log
2898: (msg_name => 'FII_ROUTINE',
2899: token_num => 2,
2900: t1 => 'ROUTINE',
2901: v1 => 'Validate()',
2929: l_sqlstmt := l_sqlstmt || 'ORDER BY TIME';
2930:
2931: -- Print out the dynamic SQL statement if running in debug mode
2932: IF (FIIBUUP_DEBUG) THEN
2933: FII_MESSAGE.Write_Log
2934: (msg_name => 'FII_ROUTINE_VAL',
2935: token_num => 3 ,
2936: t1 => 'ROUTINE',
2937: v1 => 'FII_BUDGET_FORECAST_C.Validate()',
2939: v2 => 'l_sqlstmt',
2940: t3 => 'VALUE',
2941: v3 => l_sqlstmt);
2942:
2943: FII_MESSAGE.Write_Log
2944: (msg_name => 'FII_ROUTINE_VAL',
2945: token_num => 3 ,
2946: t1 => 'ROUTINE',
2947: v1 => 'FII_BUDGET_FORECAST_C.Validate()',
2962: l_violations_found := TRUE;
2963:
2964: IF (NOT l_print_hdr1) THEN
2965: FII_UTIL.Write_Output (' ');
2966: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_RPT_TIME_BUD',
2967: token_num => 0);
2968: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2969: token_num => 0);
2970: FII_MESSAGE.Write_Output
2964: IF (NOT l_print_hdr1) THEN
2965: FII_UTIL.Write_Output (' ');
2966: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_RPT_TIME_BUD',
2967: token_num => 0);
2968: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2969: token_num => 0);
2970: FII_MESSAGE.Write_Output
2971: (msg_name => 'FII_INV_RPT_TIME_BUD',
2972: token_num => 0);
2966: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_RPT_TIME_BUD',
2967: token_num => 0);
2968: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
2969: token_num => 0);
2970: FII_MESSAGE.Write_Output
2971: (msg_name => 'FII_INV_RPT_TIME_BUD',
2972: token_num => 0);
2973: l_print_hdr1 := TRUE;
2974: END IF;
2974: END IF;
2975:
2976:
2977: -- Print out individual invalid reporting time period
2978: FII_MESSAGE.Write_Output
2979: (msg_name => 'FII_TIM_PRD',
2980: token_num => 1,
2981: t1 => 'TIME_PERIOD',
2982: v1 => l_time_unit);
3019: l_sqlstmt := l_sqlstmt || 'ORDER BY TIME';
3020:
3021: -- Print out the dynamic SQL statement if running in debug mode
3022: IF (FIIBUUP_DEBUG) THEN
3023: FII_MESSAGE.Write_Log
3024: (msg_name => 'FII_ROUTINE_VAL',
3025: token_num => 3 ,
3026: t1 => 'ROUTINE',
3027: v1 => 'FII_BUDGET_FORECAST_C.Validate()',
3029: v2 => 'l_sqlstmt',
3030: t3 => 'VALUE',
3031: v3 => l_sqlstmt);
3032:
3033: FII_MESSAGE.Write_Log
3034: (msg_name => 'FII_ROUTINE_VAL',
3035: token_num => 3 ,
3036: t1 => 'ROUTINE',
3037: v1 => 'FII_BUDGET_FORECAST_C.Validate()',
3053:
3054: -- Print header information to output file.
3055: IF (NOT l_print_hdr1) THEN
3056: FII_UTIL.Write_Output (' ');
3057: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_RPT_TIME_FRC',
3058: token_num => 0);
3059: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3060: token_num => 0);
3061: FII_MESSAGE.Write_Output
3055: IF (NOT l_print_hdr1) THEN
3056: FII_UTIL.Write_Output (' ');
3057: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_RPT_TIME_FRC',
3058: token_num => 0);
3059: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3060: token_num => 0);
3061: FII_MESSAGE.Write_Output
3062: (msg_name => 'FII_INV_RPT_TIME_FRC',
3063: token_num => 0);
3057: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_RPT_TIME_FRC',
3058: token_num => 0);
3059: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3060: token_num => 0);
3061: FII_MESSAGE.Write_Output
3062: (msg_name => 'FII_INV_RPT_TIME_FRC',
3063: token_num => 0);
3064: l_print_hdr1 := TRUE;
3065: END IF;
3064: l_print_hdr1 := TRUE;
3065: END IF;
3066:
3067: -- Print out individual invalid reporting time period
3068: FII_MESSAGE.Write_Output
3069: (msg_name => 'FII_TIM_PRD',
3070: token_num => 1,
3071: t1 => 'TIME_PERIOD',
3072: v1 => l_time_unit);
3089: -- Validate that ledger information is provided
3090: -----------------------------------------------------------------------
3091: g_phase := 'Validate ledger';
3092: IF (FIIBUUP_DEBUG) THEN
3093: FII_MESSAGE.Write_Log
3094: (msg_name => 'FII_ROUTINE',
3095: token_num => 2,
3096: t1 => 'ROUTINE',
3097: v1 => 'Validate()',
3104: l_plan_code := rec_csr.plan_type_code;
3105: l_prim_amount_g := rec_csr.prim_amount_g;
3106: IF (NOT l_print_hdr1) THEN
3107: FII_UTIL.Write_Output (' ');
3108: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_LEDGER_ID_BUD',
3109: token_num => 0);
3110: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3111: token_num => 0);
3112: FII_MESSAGE.Write_Output
3106: IF (NOT l_print_hdr1) THEN
3107: FII_UTIL.Write_Output (' ');
3108: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_LEDGER_ID_BUD',
3109: token_num => 0);
3110: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3111: token_num => 0);
3112: FII_MESSAGE.Write_Output
3113: (msg_name => 'FII_MISS_LEDGER_ID_BUD',
3114: token_num => 0);
3108: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_LEDGER_ID_BUD',
3109: token_num => 0);
3110: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3111: token_num => 0);
3112: FII_MESSAGE.Write_Output
3113: (msg_name => 'FII_MISS_LEDGER_ID_BUD',
3114: token_num => 0);
3115:
3116: FII_MESSAGE.Write_Output
3112: FII_MESSAGE.Write_Output
3113: (msg_name => 'FII_MISS_LEDGER_ID_BUD',
3114: token_num => 0);
3115:
3116: FII_MESSAGE.Write_Output
3117: (msg_name => 'FII_BUDGET_RECORD_TAB',
3118: token_num => 0);
3119: l_print_hdr1 := TRUE;
3120: END IF;
3131: -- 4. Validate that company information is provided
3132: -----------------------------------------------------------------------
3133: g_phase := 'Validate company id';
3134: IF (FIIBUUP_DEBUG) THEN
3135: FII_MESSAGE.Write_Log
3136: (msg_name => 'FII_ROUTINE',
3137: token_num => 2,
3138: t1 => 'ROUTINE',
3139: v1 => 'Validate()',
3146: l_plan_code := rec_csr.plan_type_code;
3147: l_prim_amount_g := rec_csr.prim_amount_g;
3148: IF (NOT l_print_hdr1) THEN
3149: FII_UTIL.Write_Output (' ');
3150: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_CO_ID_BUD',
3151: token_num => 0);
3152: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3153: token_num => 0);
3154: FII_MESSAGE.Write_Output
3148: IF (NOT l_print_hdr1) THEN
3149: FII_UTIL.Write_Output (' ');
3150: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_CO_ID_BUD',
3151: token_num => 0);
3152: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3153: token_num => 0);
3154: FII_MESSAGE.Write_Output
3155: (msg_name => 'FII_MISS_CO_ID_BUD',
3156: token_num => 0);
3150: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_CO_ID_BUD',
3151: token_num => 0);
3152: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3153: token_num => 0);
3154: FII_MESSAGE.Write_Output
3155: (msg_name => 'FII_MISS_CO_ID_BUD',
3156: token_num => 0);
3157:
3158: FII_MESSAGE.Write_Output
3154: FII_MESSAGE.Write_Output
3155: (msg_name => 'FII_MISS_CO_ID_BUD',
3156: token_num => 0);
3157:
3158: FII_MESSAGE.Write_Output
3159: (msg_name => 'FII_BUDGET_RECORD_TAB',
3160: token_num => 0);
3161: l_print_hdr1 := TRUE;
3162: END IF;
3173: -- 5. Validate that cost center information is provided
3174: -----------------------------------------------------------------------
3175: g_phase := 'Validate cost center id';
3176: IF (FIIBUUP_DEBUG) THEN
3177: FII_MESSAGE.Write_Log
3178: (msg_name => 'FII_ROUTINE',
3179: token_num => 2,
3180: t1 => 'ROUTINE',
3181: v1 => 'Validate()',
3188: l_plan_code := rec_csr.plan_type_code;
3189: l_prim_amount_g := rec_csr.prim_amount_g;
3190: IF (NOT l_print_hdr1) THEN
3191: FII_UTIL.Write_Output (' ');
3192: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_CC_ID_BUD',
3193: token_num => 0);
3194: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3195: token_num => 0);
3196: FII_MESSAGE.Write_Output
3190: IF (NOT l_print_hdr1) THEN
3191: FII_UTIL.Write_Output (' ');
3192: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_CC_ID_BUD',
3193: token_num => 0);
3194: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3195: token_num => 0);
3196: FII_MESSAGE.Write_Output
3197: (msg_name => 'FII_MISS_CC_ID_BUD',
3198: token_num => 0);
3192: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_CC_ID_BUD',
3193: token_num => 0);
3194: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3195: token_num => 0);
3196: FII_MESSAGE.Write_Output
3197: (msg_name => 'FII_MISS_CC_ID_BUD',
3198: token_num => 0);
3199:
3200: FII_MESSAGE.Write_Output
3196: FII_MESSAGE.Write_Output
3197: (msg_name => 'FII_MISS_CC_ID_BUD',
3198: token_num => 0);
3199:
3200: FII_MESSAGE.Write_Output
3201: (msg_name => 'FII_BUDGET_RECORD_TAB',
3202: token_num => 0);
3203: l_print_hdr1 := TRUE;
3204: END IF;
3217: -----------------------------------------------------------------------
3218: -- Validate fin category id
3219: g_phase := 'Validate fin category id';
3220: IF (FIIBUUP_DEBUG) THEN
3221: FII_MESSAGE.Write_Log
3222: (msg_name => 'FII_ROUTINE',
3223: token_num => 2,
3224: t1 => 'ROUTINE',
3225: v1 => 'Validate()',
3232: l_plan_code := rec_csr.plan_type_code;
3233: l_prim_amount_g := rec_csr.prim_amount_g;
3234: IF (NOT l_print_hdr1) THEN
3235: FII_UTIL.Write_Output (' ');
3236: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_FIN_CAT_ID_BUD',
3237: token_num => 0);
3238: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3239: token_num => 0);
3240: FII_MESSAGE.Write_Output
3234: IF (NOT l_print_hdr1) THEN
3235: FII_UTIL.Write_Output (' ');
3236: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_FIN_CAT_ID_BUD',
3237: token_num => 0);
3238: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3239: token_num => 0);
3240: FII_MESSAGE.Write_Output
3241: (msg_name => 'FII_MISS_FIN_CAT_ID_BUD',
3242: token_num => 0);
3236: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_FIN_CAT_ID_BUD',
3237: token_num => 0);
3238: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3239: token_num => 0);
3240: FII_MESSAGE.Write_Output
3241: (msg_name => 'FII_MISS_FIN_CAT_ID_BUD',
3242: token_num => 0);
3243:
3244: FII_MESSAGE.Write_Output
3240: FII_MESSAGE.Write_Output
3241: (msg_name => 'FII_MISS_FIN_CAT_ID_BUD',
3242: token_num => 0);
3243:
3244: FII_MESSAGE.Write_Output
3245: (msg_name => 'FII_BUDGET_RECORD_TAB',
3246: token_num => 0);
3247: l_print_hdr1 := TRUE;
3248: END IF;
3274: l_err_count := 0;
3275: END;
3276:
3277: IF (l_err_count > 0) THEN
3278: FII_MESSAGE.Write_Log (msg_name => 'FII_MISS_MANDATORY_DIM',
3279: token_num => 0);
3280: raise FIIBUUP_fatal_err;
3281: END IF;
3282:
3288: -- Validate that ledger is defined as leaf nodes in vs setup in FDS
3289: -----------------------------------------------------------------------
3290: g_phase := 'Validate ledger id are valid';
3291: IF (FIIBUUP_DEBUG) THEN
3292: FII_MESSAGE.Write_Log
3293: (msg_name => 'FII_ROUTINE',
3294: token_num => 2,
3295: t1 => 'ROUTINE',
3296: v1 => 'Validate()',
3306:
3307: -- print header information into output file
3308: IF (NOT l_print_hdr1) THEN
3309: FII_UTIL.Write_Output (' ');
3310: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_LEDGER_ID_DATA',
3311: token_num => 0);
3312: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3313: token_num => 0);
3314: FII_MESSAGE.Write_Output
3308: IF (NOT l_print_hdr1) THEN
3309: FII_UTIL.Write_Output (' ');
3310: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_LEDGER_ID_DATA',
3311: token_num => 0);
3312: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3313: token_num => 0);
3314: FII_MESSAGE.Write_Output
3315: (msg_name => 'FII_INV_LEDGER_ID_DATA',
3316: token_num => 0);
3310: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_LEDGER_ID_DATA',
3311: token_num => 0);
3312: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3313: token_num => 0);
3314: FII_MESSAGE.Write_Output
3315: (msg_name => 'FII_INV_LEDGER_ID_DATA',
3316: token_num => 0);
3317:
3318: l_print_hdr1 := TRUE;
3332: -- Validate that company is defined as leaf nodes in vs setup in FDS
3333: -----------------------------------------------------------------------
3334: g_phase := 'Validate company id are valid';
3335: IF (FIIBUUP_DEBUG) THEN
3336: FII_MESSAGE.Write_Log
3337: (msg_name => 'FII_ROUTINE',
3338: token_num => 2,
3339: t1 => 'ROUTINE',
3340: v1 => 'Validate()',
3350:
3351: -- print header information into output file
3352: IF (NOT l_print_hdr1) THEN
3353: FII_UTIL.Write_Output (' ');
3354: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_CO_ID_DATA',
3355: token_num => 0);
3356: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3357: token_num => 0);
3358: FII_MESSAGE.Write_Output
3352: IF (NOT l_print_hdr1) THEN
3353: FII_UTIL.Write_Output (' ');
3354: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_CO_ID_DATA',
3355: token_num => 0);
3356: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3357: token_num => 0);
3358: FII_MESSAGE.Write_Output
3359: (msg_name => 'FII_INV_CO_ID_DATA',
3360: token_num => 0);
3354: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_CO_ID_DATA',
3355: token_num => 0);
3356: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3357: token_num => 0);
3358: FII_MESSAGE.Write_Output
3359: (msg_name => 'FII_INV_CO_ID_DATA',
3360: token_num => 0);
3361:
3362: l_print_hdr1 := TRUE;
3376: -- Validate that cost center is defined as leaf nodes in vs setup in FDS
3377: -----------------------------------------------------------------------
3378: g_phase := 'Validate cost center are valid';
3379: IF (FIIBUUP_DEBUG) THEN
3380: FII_MESSAGE.Write_Log
3381: (msg_name => 'FII_ROUTINE',
3382: token_num => 2,
3383: t1 => 'ROUTINE',
3384: v1 => 'Validate()',
3394:
3395: -- print header information into output file
3396: IF (NOT l_print_hdr1) THEN
3397: FII_UTIL.Write_Output (' ');
3398: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_CC_ID_DATA',
3399: token_num => 0);
3400: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3401: token_num => 0);
3402: FII_MESSAGE.Write_Output
3396: IF (NOT l_print_hdr1) THEN
3397: FII_UTIL.Write_Output (' ');
3398: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_CC_ID_DATA',
3399: token_num => 0);
3400: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3401: token_num => 0);
3402: FII_MESSAGE.Write_Output
3403: (msg_name => 'FII_INV_CC_ID_DATA',
3404: token_num => 0);
3398: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_CC_ID_DATA',
3399: token_num => 0);
3400: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3401: token_num => 0);
3402: FII_MESSAGE.Write_Output
3403: (msg_name => 'FII_INV_CC_ID_DATA',
3404: token_num => 0);
3405:
3406: l_print_hdr1 := TRUE;
3420: -- Validates that all financial categories are defined
3421: -----------------------------------------------------------------------
3422: g_phase := 'Validate financial categories are valid';
3423: IF (FIIBUUP_DEBUG) THEN
3424: FII_MESSAGE.Write_Log
3425: (msg_name => 'FII_ROUTINE',
3426: token_num => 2,
3427: t1 => 'ROUTINE',
3428: v1 => 'Validate()',
3437:
3438: -- print header information into output file
3439: IF (NOT l_print_hdr1) THEN
3440: FII_UTIL.Write_Output (' ');
3441: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_FIN_CAT_ID_DATA',
3442: token_num => 0);
3443: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3444: token_num => 0);
3445: FII_MESSAGE.Write_Output
3439: IF (NOT l_print_hdr1) THEN
3440: FII_UTIL.Write_Output (' ');
3441: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_FIN_CAT_ID_DATA',
3442: token_num => 0);
3443: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3444: token_num => 0);
3445: FII_MESSAGE.Write_Output
3446: (msg_name => 'FII_INV_FIN_CAT_ID_DATA',
3447: token_num => 0);
3441: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_FIN_CAT_ID_DATA',
3442: token_num => 0);
3443: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3444: token_num => 0);
3445: FII_MESSAGE.Write_Output
3446: (msg_name => 'FII_INV_FIN_CAT_ID_DATA',
3447: token_num => 0);
3448:
3449: l_print_hdr1 := TRUE;
3484:
3485: -- print header information into output file
3486: IF (NOT l_print_hdr1) THEN
3487: FII_UTIL.Write_Output (' ');
3488: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_PROD_CAT_ID_DATA',
3489: token_num => 0);
3490: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3491: token_num => 0);
3492: FII_MESSAGE.Write_Output
3486: IF (NOT l_print_hdr1) THEN
3487: FII_UTIL.Write_Output (' ');
3488: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_PROD_CAT_ID_DATA',
3489: token_num => 0);
3490: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3491: token_num => 0);
3492: FII_MESSAGE.Write_Output
3493: (msg_name => 'FII_INV_PROD_CAT_ID_DATA',
3494: token_num => 0);
3488: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_PROD_CAT_ID_DATA',
3489: token_num => 0);
3490: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3491: token_num => 0);
3492: FII_MESSAGE.Write_Output
3493: (msg_name => 'FII_INV_PROD_CAT_ID_DATA',
3494: token_num => 0);
3495:
3496: l_print_hdr1 := TRUE;
3513: -----------------------------------------------------------------------
3514: -- Validate user_dim1_id
3515: g_phase := 'Validate user dimension 1 id';
3516: IF (FIIBUUP_DEBUG) THEN
3517: FII_MESSAGE.Write_Log
3518: (msg_name => 'FII_ROUTINE',
3519: token_num => 2,
3520: t1 => 'ROUTINE',
3521: v1 => 'Validate()',
3531:
3532: -- print header information into output file
3533: IF (NOT l_print_hdr1) THEN
3534: FII_UTIL.Write_Output (' ');
3535: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_UDD1_ID_DATA',
3536: token_num => 0);
3537: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3538: token_num => 0);
3539: FII_MESSAGE.Write_Output
3533: IF (NOT l_print_hdr1) THEN
3534: FII_UTIL.Write_Output (' ');
3535: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_UDD1_ID_DATA',
3536: token_num => 0);
3537: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3538: token_num => 0);
3539: FII_MESSAGE.Write_Output
3540: (msg_name => 'FII_INV_UDD1_ID_DATA',
3541: token_num => 0);
3535: FII_MESSAGE.Write_Log (msg_name => 'FII_INV_UDD1_ID_DATA',
3536: token_num => 0);
3537: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3538: token_num => 0);
3539: FII_MESSAGE.Write_Output
3540: (msg_name => 'FII_INV_UDD1_ID_DATA',
3541: token_num => 0);
3542:
3543: l_print_hdr1 := TRUE;
3562: -- validates all conversion rate information.
3563: g_phase := 'Validate currency rate';
3564: IF (FIIBUUP_PRIM_CURR_CODE <> FIIBUUP_SEC_CURR_CODE) THEN
3565: IF (FIIBUUP_DEBUG) THEN
3566: FII_MESSAGE.Write_Log
3567: (msg_name => 'FII_ROUTINE',
3568: token_num => 2,
3569: t1 => 'ROUTINE',
3570: v1 => 'Validate()',
3577: l_plan_code := rec_csr.plan_type_code;
3578: l_prim_amount_g := rec_csr.prim_amount_g;
3579: IF (NOT l_print_hdr1) THEN
3580: FII_UTIL.Write_Output (' ');
3581: FII_MESSAGE.Write_Log (msg_name => 'FII_CUR_GLB_PRM',
3582: token_num => 0);
3583: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3584: token_num => 0);
3585: FII_MESSAGE.Write_Output
3579: IF (NOT l_print_hdr1) THEN
3580: FII_UTIL.Write_Output (' ');
3581: FII_MESSAGE.Write_Log (msg_name => 'FII_CUR_GLB_PRM',
3582: token_num => 0);
3583: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3584: token_num => 0);
3585: FII_MESSAGE.Write_Output
3586: (msg_name => 'FII_CUR_GLB_PRM',
3587: token_num => 0);
3581: FII_MESSAGE.Write_Log (msg_name => 'FII_CUR_GLB_PRM',
3582: token_num => 0);
3583: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3584: token_num => 0);
3585: FII_MESSAGE.Write_Output
3586: (msg_name => 'FII_CUR_GLB_PRM',
3587: token_num => 0);
3588: FII_MESSAGE.Write_Output
3589: (msg_name => 'FII_BUDGET_RECORD_TAB',
3584: token_num => 0);
3585: FII_MESSAGE.Write_Output
3586: (msg_name => 'FII_CUR_GLB_PRM',
3587: token_num => 0);
3588: FII_MESSAGE.Write_Output
3589: (msg_name => 'FII_BUDGET_RECORD_TAB',
3590: token_num => 0);
3591: l_print_hdr1 := TRUE;
3592: END IF;
3605: -- 10. Validate only one record exists for the time/dimension combination
3606: -----------------------------------------------------------------------
3607: g_phase := 'Validate duplicate records';
3608: IF (FIIBUUP_DEBUG) THEN
3609: FII_MESSAGE.Write_Log
3610: (msg_name => 'FII_ROUTINE',
3611: token_num => 2,
3612: t1 => 'ROUTINE',
3613: v1 => 'Validate()',
3628:
3629: -- Print header information to output file.
3630: IF (l_plan_code = 'B' AND (NOT l_print_hdr1)) THEN
3631: FII_UTIL.Write_Output (' ');
3632: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_MLTP_REC',
3633: token_num => 0);
3634: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3635: token_num => 0);
3636: FII_MESSAGE.Write_Output
3630: IF (l_plan_code = 'B' AND (NOT l_print_hdr1)) THEN
3631: FII_UTIL.Write_Output (' ');
3632: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_MLTP_REC',
3633: token_num => 0);
3634: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3635: token_num => 0);
3636: FII_MESSAGE.Write_Output
3637: (msg_name => 'FII_BUD_MLTP_REC',
3638: token_num => 0);
3632: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_MLTP_REC',
3633: token_num => 0);
3634: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3635: token_num => 0);
3636: FII_MESSAGE.Write_Output
3637: (msg_name => 'FII_BUD_MLTP_REC',
3638: token_num => 0);
3639:
3640: l_print_hdr1 := TRUE;
3638: token_num => 0);
3639:
3640: l_print_hdr1 := TRUE;
3641: ELSIF (l_plan_code = 'F' AND (NOT l_print_hdr2)) THEN
3642: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_MLTP_REC',
3643: token_num => 0);
3644: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3645: token_num => 0);
3646: FII_MESSAGE.Write_Output
3640: l_print_hdr1 := TRUE;
3641: ELSIF (l_plan_code = 'F' AND (NOT l_print_hdr2)) THEN
3642: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_MLTP_REC',
3643: token_num => 0);
3644: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3645: token_num => 0);
3646: FII_MESSAGE.Write_Output
3647: (msg_name => 'FII_FRC_MLTP_REC',
3648: token_num => 0);
3642: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_MLTP_REC',
3643: token_num => 0);
3644: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3645: token_num => 0);
3646: FII_MESSAGE.Write_Output
3647: (msg_name => 'FII_FRC_MLTP_REC',
3648: token_num => 0);
3649: l_print_hdr2 := TRUE;
3650: END IF;
3681: -- date for the period/dimension combination.
3682: -----------------------------------------------------------------------
3683: g_phase := 'Validate version dates';
3684: IF (FIIBUUP_DEBUG) THEN
3685: FII_MESSAGE.Write_Log
3686: (msg_name => 'FII_ROUTINE',
3687: token_num => 2,
3688: t1 => 'ROUTINE',
3689: v1 => 'Validate()',
3702:
3703: -- Print header information to output file.
3704: IF (l_plan_code = 'B' AND (NOT l_print_hdr1)) THEN
3705: FII_UTIL.Write_Output (' ');
3706: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_INV_VER_DATE',
3707: token_num => 0);
3708: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3709: token_num => 0);
3710: FII_MESSAGE.Write_Output
3704: IF (l_plan_code = 'B' AND (NOT l_print_hdr1)) THEN
3705: FII_UTIL.Write_Output (' ');
3706: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_INV_VER_DATE',
3707: token_num => 0);
3708: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3709: token_num => 0);
3710: FII_MESSAGE.Write_Output
3711: (msg_name => 'FII_BUD_INV_VER_DATE',
3712: token_num => 0);
3706: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_INV_VER_DATE',
3707: token_num => 0);
3708: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3709: token_num => 0);
3710: FII_MESSAGE.Write_Output
3711: (msg_name => 'FII_BUD_INV_VER_DATE',
3712: token_num => 0);
3713:
3714: l_print_hdr1 := TRUE;
3712: token_num => 0);
3713:
3714: l_print_hdr1 := TRUE;
3715: ELSIF (l_plan_code = 'F' AND (NOT l_print_hdr2)) THEN
3716: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_INV_VER_DATE',
3717: token_num => 0);
3718: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3719: token_num => 0);
3720: FII_MESSAGE.Write_Output
3714: l_print_hdr1 := TRUE;
3715: ELSIF (l_plan_code = 'F' AND (NOT l_print_hdr2)) THEN
3716: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_INV_VER_DATE',
3717: token_num => 0);
3718: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3719: token_num => 0);
3720: FII_MESSAGE.Write_Output
3721: (msg_name => 'FII_FRC_INV_VER_DATE',
3722: token_num => 0);
3716: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_INV_VER_DATE',
3717: token_num => 0);
3718: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3719: token_num => 0);
3720: FII_MESSAGE.Write_Output
3721: (msg_name => 'FII_FRC_INV_VER_DATE',
3722: token_num => 0);
3723: l_print_hdr2 := TRUE;
3724: END IF;
3761:
3762: -- Print header information to output file.
3763: IF (l_plan_code = 'B' AND (NOT l_print_hdr1)) THEN
3764: FII_UTIL.Write_Output (' ');
3765: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_INV_VER_DATE',
3766: token_num => 0);
3767: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3768: token_num => 0);
3769: FII_MESSAGE.Write_Output
3763: IF (l_plan_code = 'B' AND (NOT l_print_hdr1)) THEN
3764: FII_UTIL.Write_Output (' ');
3765: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_INV_VER_DATE',
3766: token_num => 0);
3767: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3768: token_num => 0);
3769: FII_MESSAGE.Write_Output
3770: (msg_name => 'FII_BUD_INV_VER_DATE',
3771: token_num => 0);
3765: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_INV_VER_DATE',
3766: token_num => 0);
3767: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3768: token_num => 0);
3769: FII_MESSAGE.Write_Output
3770: (msg_name => 'FII_BUD_INV_VER_DATE',
3771: token_num => 0);
3772:
3773: l_print_hdr1 := TRUE;
3771: token_num => 0);
3772:
3773: l_print_hdr1 := TRUE;
3774: ELSIF (l_plan_code = 'F' AND (NOT l_print_hdr2)) THEN
3775: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_INV_VER_DATE',
3776: token_num => 0);
3777: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3778: token_num => 0);
3779: FII_MESSAGE.Write_Output
3773: l_print_hdr1 := TRUE;
3774: ELSIF (l_plan_code = 'F' AND (NOT l_print_hdr2)) THEN
3775: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_INV_VER_DATE',
3776: token_num => 0);
3777: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3778: token_num => 0);
3779: FII_MESSAGE.Write_Output
3780: (msg_name => 'FII_FRC_INV_VER_DATE',
3781: token_num => 0);
3775: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_INV_VER_DATE',
3776: token_num => 0);
3777: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3778: token_num => 0);
3779: FII_MESSAGE.Write_Output
3780: (msg_name => 'FII_FRC_INV_VER_DATE',
3781: token_num => 0);
3782: l_print_hdr2 := TRUE;
3783: END IF;
3820:
3821: -- Print header information to output file.
3822: IF (l_plan_code = 'B' AND (NOT l_print_hdr1)) THEN
3823: FII_UTIL.Write_Output (' ');
3824: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_INV_VER_DATE',
3825: token_num => 0);
3826: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3827: token_num => 0);
3828: FII_MESSAGE.Write_Output
3822: IF (l_plan_code = 'B' AND (NOT l_print_hdr1)) THEN
3823: FII_UTIL.Write_Output (' ');
3824: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_INV_VER_DATE',
3825: token_num => 0);
3826: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3827: token_num => 0);
3828: FII_MESSAGE.Write_Output
3829: (msg_name => 'FII_BUD_INV_VER_DATE',
3830: token_num => 0);
3824: FII_MESSAGE.Write_Log (msg_name => 'FII_BUD_INV_VER_DATE',
3825: token_num => 0);
3826: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3827: token_num => 0);
3828: FII_MESSAGE.Write_Output
3829: (msg_name => 'FII_BUD_INV_VER_DATE',
3830: token_num => 0);
3831:
3832: l_print_hdr1 := TRUE;
3830: token_num => 0);
3831:
3832: l_print_hdr1 := TRUE;
3833: ELSIF (l_plan_code = 'F' AND (NOT l_print_hdr2)) THEN
3834: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_INV_VER_DATE',
3835: token_num => 0);
3836: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3837: token_num => 0);
3838: FII_MESSAGE.Write_Output
3832: l_print_hdr1 := TRUE;
3833: ELSIF (l_plan_code = 'F' AND (NOT l_print_hdr2)) THEN
3834: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_INV_VER_DATE',
3835: token_num => 0);
3836: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3837: token_num => 0);
3838: FII_MESSAGE.Write_Output
3839: (msg_name => 'FII_FRC_INV_VER_DATE',
3840: token_num => 0);
3834: FII_MESSAGE.Write_Log (msg_name => 'FII_FRC_INV_VER_DATE',
3835: token_num => 0);
3836: FII_MESSAGE.Write_Log (msg_name => 'FII_REFER_TO_OUTPUT',
3837: token_num => 0);
3838: FII_MESSAGE.Write_Output
3839: (msg_name => 'FII_FRC_INV_VER_DATE',
3840: token_num => 0);
3841: l_print_hdr2 := TRUE;
3842: END IF;
3884: END;
3885:
3886: IF l_count > 0 THEN
3887: FII_UTIL.Write_Log ('There is invalid data in the interface table...');
3888: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Validate');
3889: retcode := 'E';
3890: RETURN;
3891: END IF;
3892:
3891: END IF;
3892:
3893: -- All validations have passed, return with success.
3894: IF (FIIBUUP_DEBUG) THEN
3895: FII_MESSAGE.Write_Log
3896: (msg_name => 'FII_ROUTINE',
3897: token_num => 2,
3898: t1 => 'ROUTINE',
3899: v1 => 'Validate()',
3901: v2 => 'All validations completed successfully...');
3902: END IF;
3903:
3904: IF (FIIBUUP_DEBUG) THEN
3905: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Validate');
3906: END IF;
3907: RETURN;
3908:
3909: -- Exception handling
3910: EXCEPTION
3911: WHEN FIIBUUP_fatal_err THEN
3912: FND_CONCURRENT.Af_Rollback;
3913:
3914: FII_MESSAGE.Write_Log
3915: (msg_name => 'FII_ERR_ENC_ROUT',
3916: token_num => 1,
3917: t1 => 'ROUTINE_NAME',
3918: v1 => 'FII_BUDGET_FORECAST_C.Validate()');
3916: token_num => 1,
3917: t1 => 'ROUTINE_NAME',
3918: v1 => 'FII_BUDGET_FORECAST_C.Validate()');
3919:
3920: FII_MESSAGE.Func_Fail
3921: (func_name =>'FII_BUDGET_FORECAST_C.Validate');
3922:
3923: fii_util.put_line ('Phase: ' || g_phase ||
3924: 'Error: ' || sqlerrm);
3927:
3928: WHEN OTHERS THEN
3929: FND_CONCURRENT.Af_Rollback;
3930:
3931: FII_MESSAGE.Write_Log
3932: (msg_name => 'FII_ERROR',
3933: token_num => 2,
3934: t1 => 'FUNCTION',
3935: v1 => 'FII_BUDGET_FORECAST_C.Validate()',
3935: v1 => 'FII_BUDGET_FORECAST_C.Validate()',
3936: t2 => 'SQLERRMC',
3937: v2 => SQLERRM);
3938:
3939: FII_MESSAGE.Func_Fail
3940: (func_name => 'FII_BUDGET_FORECAST_C.Validate');
3941:
3942: fii_util.put_line ('Phase: ' || g_phase ||
3943: 'Error: ' || sqlerrm);
3976:
3977: BEGIN
3978:
3979: IF (FIIBUUP_DEBUG) THEN
3980: FII_MESSAGE.Func_Ent(
3981: 'FII_BUDGET_FORECAST_C.Prior_version - version_date = ' ||
3982: version_date);
3983: END IF;
3984:
4340: -- Print out the dynamic SQL statements if running in debug mode
4341: IF (FIIBUUP_DEBUG) THEN
4342: fii_util.put_line('l_bud_sqlstmt = '|| l_bud_sqlstmt);
4343:
4344: FII_MESSAGE.Write_Log
4345: (msg_name => 'FII_ROUTINE_VAL',
4346: token_num => 3 ,
4347: t1 => 'ROUTINE',
4348: v1 => 'FII_BUDGET_FORECAST_C.Prior_version()',
4352: v3 => TO_CHAR(LENGTH(l_bud_sqlstmt)));
4353:
4354: fii_util.put_line('l_fc_sqlstmt = '|| l_fc_sqlstmt);
4355:
4356: FII_MESSAGE.Write_Log
4357: (msg_name => 'FII_ROUTINE_VAL',
4358: token_num => 3 ,
4359: t1 => 'ROUTINE',
4360: v1 => 'FII_BUDGET_FORECAST_C.Prior_version()',
4390: END IF;
4391:
4392: -- Prior_version completed, return with success
4393: IF (FIIBUUP_DEBUG) THEN
4394: FII_MESSAGE.Write_Log
4395: (msg_name => 'FII_ROUTINE',
4396: token_num => 2,
4397: t1 => 'ROUTINE',
4398: v1 => 'Prior_version()',
4402:
4403: FND_CONCURRENT.Af_Commit;
4404:
4405: IF (FIIBUUP_DEBUG) THEN
4406: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Prior_version' ||
4407: version_date);
4408: END IF;
4409: RETURN TRUE;
4410:
4411: EXCEPTION
4412: WHEN FIIBUUP_fatal_err THEN
4413: FND_CONCURRENT.Af_Rollback;
4414:
4415: FII_MESSAGE.Write_Log
4416: (msg_name => 'FII_ERR_ENC_ROUT',
4417: token_num => 1,
4418: t1 => 'ROUTINE_NAME',
4419: v1 => 'FII_BUDGET_FORECAST_C.Prior_version()');
4417: token_num => 1,
4418: t1 => 'ROUTINE_NAME',
4419: v1 => 'FII_BUDGET_FORECAST_C.Prior_version()');
4420:
4421: FII_MESSAGE.Func_Fail
4422: (func_name => 'FII_BUDGET_FORECAST_C.Prior_version');
4423:
4424: fii_util.put_line ('Phase: ' || g_phase ||
4425: 'Error: ' || sqlerrm);
4428: WHEN OTHERS THEN
4429: FND_CONCURRENT.Af_Rollback;
4430:
4431: -- SQL error occurs. Print out the error
4432: FII_MESSAGE.Write_Log(msg_name => 'FII_ERROR',
4433: token_num => 2,
4434: t1 => 'FUNCTION',
4435: v1 => 'FII_BUDGET_FORECAST_C.Prior_version',
4436: t2 => 'SQLERRMC',
4435: v1 => 'FII_BUDGET_FORECAST_C.Prior_version',
4436: t2 => 'SQLERRMC',
4437: v2 => SQLERRM);
4438:
4439: FII_MESSAGE.Func_Fail
4440: (func_name => 'FII_BUDGET_FORECAST_C.Prior_version' || version_date);
4441:
4442: fii_util.put_line ('Phase: ' || g_phase ||
4443: 'Error: ' || sqlerrm);
4473:
4474: BEGIN
4475:
4476: IF (FIIBUUP_DEBUG) THEN
4477: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Prior_version');
4478: END IF;
4479:
4480: -- Determine which time column should be used
4481: IF (FIIBUUP_BUDGET_TIME_UNIT = 'P') THEN
4682: IF (FIIBUUP_DEBUG) THEN
4683:
4684: fii_util.put_line('l_bud_sqlstmt = '|| l_bud_sqlstmt);
4685:
4686: FII_MESSAGE.Write_Log
4687: (msg_name => 'FII_ROUTINE_VAL',
4688: token_num => 3 ,
4689: t1 => 'ROUTINE',
4690: v1 => 'FII_BUDGET_FORECAST_C.Prior_version()',
4694: v3 => TO_CHAR(LENGTH(l_bud_sqlstmt)));
4695:
4696: fii_util.put_line('l_fc_sqlstmt = '|| l_fc_sqlstmt);
4697:
4698: FII_MESSAGE.Write_Log
4699: (msg_name => 'FII_ROUTINE_VAL',
4700: token_num => 3 ,
4701: t1 => 'ROUTINE',
4702: v1 => 'FII_BUDGET_FORECAST_C.Prior_version()',
4726: END IF;
4727:
4728: -- Prior_version completed, return with success
4729: IF (FIIBUUP_DEBUG) THEN
4730: FII_MESSAGE.Write_Log
4731: (msg_name => 'FII_ROUTINE',
4732: token_num => 2,
4733: t1 => 'ROUTINE',
4734: v1 => 'Prior_version()',
4738:
4739: FND_CONCURRENT.Af_Commit;
4740:
4741: IF (FIIBUUP_DEBUG) THEN
4742: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.Prior_version');
4743: END IF;
4744: RETURN TRUE;
4745:
4746: EXCEPTION
4746: EXCEPTION
4747: WHEN FIIBUUP_fatal_err THEN
4748: FND_CONCURRENT.Af_Rollback;
4749:
4750: FII_MESSAGE.Write_Log
4751: (msg_name => 'FII_ERR_ENC_ROUT',
4752: token_num => 1,
4753: t1 => 'ROUTINE_NAME',
4754: v1 => 'FII_BUDGET_FORECAST_C.Prior_version()');
4752: token_num => 1,
4753: t1 => 'ROUTINE_NAME',
4754: v1 => 'FII_BUDGET_FORECAST_C.Prior_version()');
4755:
4756: FII_MESSAGE.Func_Fail
4757: (func_name => 'FII_BUDGET_FORECAST_C.Prior_version');
4758:
4759: fii_util.put_line ('Phase: ' || g_phase ||
4760: 'Error: ' || sqlerrm);
4763: WHEN OTHERS THEN
4764: FND_CONCURRENT.Af_Rollback;
4765:
4766: -- SQL error occurs. Print out the error
4767: FII_MESSAGE.Write_Log(msg_name => 'FII_ERROR',
4768: token_num => 2,
4769: t1 => 'FUNCTION',
4770: v1 => 'FII_BUDGET_FORECAST_C.Prior_version',
4771: t2 => 'SQLERRMC',
4770: v1 => 'FII_BUDGET_FORECAST_C.Prior_version',
4771: t2 => 'SQLERRMC',
4772: v2 => SQLERRM);
4773:
4774: FII_MESSAGE.Func_Fail
4775: (func_name => 'FII_BUDGET_FORECAST_C.Prior_version');
4776:
4777: fii_util.put_line ('Phase: ' || g_phase ||
4778: 'Error: ' || sqlerrm);
4806:
4807: BEGIN
4808:
4809: IF (FIIBUUP_DEBUG) THEN
4810: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.stage - version_date = ' ||
4811: version_date);
4812: END IF;
4813:
4814: -- Determine which time column should be used for staging
5007: -- Print out the dynamic SQL statements if running in debug mode
5008: IF (FIIBUUP_DEBUG) THEN
5009: fii_util.put_line('l_bud_sqlstmt = '|| l_bud_sqlstmt);
5010:
5011: FII_MESSAGE.Write_Log
5012: (msg_name => 'FII_ROUTINE_VAL',
5013: token_num => 3 ,
5014: t1 => 'ROUTINE',
5015: v1 => 'FII_BUDGET_FORECAST_C.stage()',
5019: v3 => TO_CHAR(LENGTH(l_bud_sqlstmt)));
5020:
5021: fii_util.put_line('l_fc_sqlstmt = '|| l_fc_sqlstmt);
5022:
5023: FII_MESSAGE.Write_Log
5024: (msg_name => 'FII_ROUTINE_VAL',
5025: token_num => 3 ,
5026: t1 => 'ROUTINE',
5027: v1 => 'FII_BUDGET_FORECAST_C.stage()',
5031: v3 => TO_CHAR(LENGTH(l_fc_sqlstmt)));
5032: END IF;
5033:
5034: IF (FIIBUUP_DEBUG) THEN
5035: FII_MESSAGE.Write_Log
5036: (msg_name => 'FII_ROUTINE',
5037: token_num => 2,
5038: t1 => 'ROUTINE',
5039: v1 => 'Stage()',
5065: FIIBUUP_SEC_CURR_MAU, FIIBUUP_SEC_CURR_MAU;
5066: END IF;
5067:
5068: IF (FIIBUUP_DEBUG) THEN
5069: FII_MESSAGE.Write_log
5070: (msg_name => 'FII_INST_REC',
5071: token_num => 2,
5072: t1 => 'NUM',
5073: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
5075: v2 => 'FII_BUDGET_STG');
5076: END IF;
5077:
5078: IF (FIIBUUP_DEBUG) THEN
5079: FII_MESSAGE.Write_Log
5080: (msg_name => 'FII_ROUTINE',
5081: token_num => 2,
5082: t1 => 'ROUTINE',
5083: v1 => 'Stage()',
5109: FIIBUUP_SEC_CURR_MAU, FIIBUUP_SEC_CURR_MAU;
5110: END IF;
5111:
5112: IF (FIIBUUP_DEBUG) THEN
5113: FII_MESSAGE.Write_log
5114: (msg_name => 'FII_INST_REC',
5115: token_num => 2,
5116: t1 => 'NUM',
5117: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
5120: END IF;
5121:
5122: -- stage completed, return with success
5123: IF (FIIBUUP_DEBUG) THEN
5124: FII_MESSAGE.Write_Log
5125: (msg_name => 'FII_ROUTINE',
5126: token_num => 2,
5127: t1 => 'ROUTINE',
5128: v1 => 'stage()',
5132:
5133: FND_CONCURRENT.Af_Commit;
5134:
5135: IF (FIIBUUP_DEBUG) THEN
5136: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.stage');
5137: END IF;
5138: RETURN TRUE;
5139:
5140: EXCEPTION
5140: EXCEPTION
5141: WHEN FIIBUUP_fatal_err THEN
5142: FND_CONCURRENT.Af_Rollback;
5143:
5144: FII_MESSAGE.Write_Log
5145: (msg_name => 'FII_ERR_ENC_ROUT',
5146: token_num => 1,
5147: t1 => 'ROUTINE_NAME',
5148: v1 => 'FII_BUDGET_FORECAST_C.stage()');
5146: token_num => 1,
5147: t1 => 'ROUTINE_NAME',
5148: v1 => 'FII_BUDGET_FORECAST_C.stage()');
5149:
5150: FII_MESSAGE.Func_Fail
5151: (func_name => 'FII_BUDGET_FORECAST_C.stage');
5152:
5153: fii_util.put_line ('Phase: ' || g_phase ||
5154: 'Error: ' || sqlerrm);
5157: WHEN OTHERS THEN
5158: FND_CONCURRENT.Af_Rollback;
5159:
5160: -- SQL error occurs. Print out the error
5161: FII_MESSAGE.Write_Log(msg_name => 'FII_ERROR',
5162: token_num => 2,
5163: t1 => 'FUNCTION',
5164: v1 => 'FII_BUDGET_FORECAST_C.stage',
5165: t2 => 'SQLERRMC',
5164: v1 => 'FII_BUDGET_FORECAST_C.stage',
5165: t2 => 'SQLERRMC',
5166: v2 => SQLERRM);
5167:
5168: FII_MESSAGE.Func_Fail
5169: (func_name => 'FII_BUDGET_FORECAST_C.stage');
5170:
5171: fii_util.put_line ('Phase: ' || g_phase ||
5172: 'Error: ' || sqlerrm);
5202:
5203: BEGIN
5204:
5205: IF (FIIBUUP_DEBUG) THEN
5206: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.adjust_amount');
5207: END IF;
5208:
5209: -- Determine which time column should be used for staging
5210: IF (FIIBUUP_BUDGET_TIME_UNIT = 'P') THEN
5302: -- Print out the dynamic SQL statements if running in debug mode
5303: IF (FIIBUUP_DEBUG) THEN
5304: fii_util.put_line('l_bud_sqlstmt = '|| l_bud_sqlstmt);
5305:
5306: FII_MESSAGE.Write_Log
5307: (msg_name => 'FII_ROUTINE_VAL',
5308: token_num => 3 ,
5309: t1 => 'ROUTINE',
5310: v1 => 'FII_BUDGET_FORECAST_C.adjust_amount()',
5314: v3 => TO_CHAR(LENGTH(l_bud_sqlstmt)));
5315:
5316: fii_util.put_line('l_fc_sqlstmt = '|| l_fc_sqlstmt);
5317:
5318: FII_MESSAGE.Write_Log
5319: (msg_name => 'FII_ROUTINE_VAL',
5320: token_num => 3 ,
5321: t1 => 'ROUTINE',
5322: v1 => 'FII_BUDGET_FORECAST_C.adjust_amount()',
5326: v3 => TO_CHAR(LENGTH(l_fc_sqlstmt)));
5327: END IF;
5328:
5329: IF (FIIBUUP_DEBUG) THEN
5330: FII_MESSAGE.Write_Log
5331: (msg_name => 'FII_ROUTINE',
5332: token_num => 2,
5333: t1 => 'ROUTINE',
5334: v1 => 'adjust_amount()',
5339: g_phase := 'Execute the built SQL l_bud_sqlstmt';
5340: EXECUTE IMMEDIATE l_bud_sqlstmt;
5341:
5342: IF (FIIBUUP_DEBUG) THEN
5343: FII_MESSAGE.Write_log
5344: (msg_name => 'FII_INST_REC',
5345: token_num => 2,
5346: t1 => 'NUM',
5347: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
5349: v2 => 'FII_BUDGET_BASE_T');
5350: END IF;
5351:
5352: IF (FIIBUUP_DEBUG) THEN
5353: FII_MESSAGE.Write_Log
5354: (msg_name => 'FII_ROUTINE',
5355: token_num => 2,
5356: t1 => 'ROUTINE',
5357: v1 => 'Adjust_Amount()',
5362: g_phase := 'Execute the built SQL l_fc_sqlstmt';
5363: EXECUTE IMMEDIATE l_fc_sqlstmt;
5364:
5365: IF (FIIBUUP_DEBUG) THEN
5366: FII_MESSAGE.Write_log
5367: (msg_name => 'FII_INST_REC',
5368: token_num => 2,
5369: t1 => 'NUM',
5370: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
5452: -- Print out the dynamic SQL statements if running in debug mode
5453: IF (FIIBUUP_DEBUG) THEN
5454: fii_util.put_line('l_bud_sqlstmt = '|| l_bud_sqlstmt);
5455:
5456: FII_MESSAGE.Write_Log
5457: (msg_name => 'FII_ROUTINE_VAL',
5458: token_num => 3 ,
5459: t1 => 'ROUTINE',
5460: v1 => 'FII_BUDGET_FORECAST_C.adjust_amount()',
5464: v3 => TO_CHAR(LENGTH(l_bud_sqlstmt)));
5465:
5466: fii_util.put_line('l_fc_sqlstmt = '|| l_fc_sqlstmt);
5467:
5468: FII_MESSAGE.Write_Log
5469: (msg_name => 'FII_ROUTINE_VAL',
5470: token_num => 3 ,
5471: t1 => 'ROUTINE',
5472: v1 => 'FII_BUDGET_FORECAST_C.adjust_amount()',
5479: IF (FIIBUUP_BUDGET_TIME_UNIT <> 'Y') THEN
5480: g_phase := 'Execute the built SQL l_bud_sqlstmt';
5481:
5482: IF (FIIBUUP_DEBUG) THEN
5483: FII_MESSAGE.Write_Log
5484: (msg_name => 'FII_ROUTINE',
5485: token_num => 2,
5486: t1 => 'ROUTINE',
5487: v1 => 'adjust_amount()',
5493: USING FIIBUUP_USER_ID, FIIBUUP_USER_ID, FIIBUUP_LOGIN_ID,
5494: FIIBUUP_USER_ID, FIIBUUP_USER_ID, FIIBUUP_LOGIN_ID;
5495:
5496: IF (FIIBUUP_DEBUG) THEN
5497: FII_MESSAGE.Write_log
5498: (msg_name => 'FII_INST_REC',
5499: token_num => 2,
5500: t1 => 'NUM',
5501: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
5507: IF (FIIBUUP_FORECAST_TIME_UNIT <> 'Y') THEN
5508: g_phase := 'Execute the built SQL l_fc_sqlstmt';
5509:
5510: IF (FIIBUUP_DEBUG) THEN
5511: FII_MESSAGE.Write_Log
5512: (msg_name => 'FII_ROUTINE',
5513: token_num => 2,
5514: t1 => 'ROUTINE',
5515: v1 => 'Adjust_Amount()',
5522: FIIBUUP_USER_ID, FIIBUUP_USER_ID, FIIBUUP_LOGIN_ID;
5523: END IF;
5524:
5525: IF (FIIBUUP_DEBUG) THEN
5526: FII_MESSAGE.Write_log
5527: (msg_name => 'FII_INST_REC',
5528: token_num => 2,
5529: t1 => 'NUM',
5530: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
5533: END IF;
5534:
5535: -- adjust_amount completed, return with success
5536: IF (FIIBUUP_DEBUG) THEN
5537: FII_MESSAGE.Write_Log
5538: (msg_name => 'FII_ROUTINE',
5539: token_num => 2,
5540: t1 => 'ROUTINE',
5541: v1 => 'adjust_amount()',
5545:
5546: FND_CONCURRENT.Af_Commit;
5547:
5548: IF (FIIBUUP_DEBUG) THEN
5549: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.adjust_amount');
5550: END IF;
5551: RETURN TRUE;
5552:
5553: EXCEPTION
5553: EXCEPTION
5554: WHEN FIIBUUP_fatal_err THEN
5555: FND_CONCURRENT.Af_Rollback;
5556:
5557: FII_MESSAGE.Write_Log
5558: (msg_name => 'FII_ERR_ENC_ROUT',
5559: token_num => 1,
5560: t1 => 'ROUTINE_NAME',
5561: v1 => 'FII_BUDGET_FORECAST_C.adjust_amount()');
5559: token_num => 1,
5560: t1 => 'ROUTINE_NAME',
5561: v1 => 'FII_BUDGET_FORECAST_C.adjust_amount()');
5562:
5563: FII_MESSAGE.Func_Fail
5564: (func_name => 'FII_BUDGET_FORECAST_C.adjsut_stage');
5565:
5566: fii_util.put_line ('Phase: ' || g_phase ||
5567: 'Error: ' || sqlerrm);
5570: WHEN OTHERS THEN
5571: FND_CONCURRENT.Af_Rollback;
5572:
5573: -- SQL error occurs. Print out the error
5574: FII_MESSAGE.Write_Log(msg_name => 'FII_ERROR',
5575: token_num => 2,
5576: t1 => 'FUNCTION',
5577: v1 => 'FII_BUDGET_FORECAST_C.adjust_amount',
5578: t2 => 'SQLERRMC',
5577: v1 => 'FII_BUDGET_FORECAST_C.adjust_amount',
5578: t2 => 'SQLERRMC',
5579: v2 => SQLERRM);
5580:
5581: FII_MESSAGE.Func_Fail
5582: (func_name => 'FII_BUDGET_FORECAST_C.adjust_amount');
5583:
5584: fii_util.put_line ('Phase: ' || g_phase ||
5585: 'Error: ' || sqlerrm);
5614:
5615: BEGIN
5616:
5617: IF (FIIBUUP_DEBUG) THEN
5618: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.rollup_stage');
5619: END IF;
5620:
5621: -- Determine which time column should be used for staging
5622: IF (FIIBUUP_BUDGET_TIME_UNIT = 'P') THEN
5741: -- Print out the dynamic SQL statements if running in debug mode
5742: IF (FIIBUUP_DEBUG) THEN
5743: fii_util.put_line('l_bud_sqlstmt = '|| l_bud_sqlstmt);
5744:
5745: FII_MESSAGE.Write_Log
5746: (msg_name => 'FII_ROUTINE_VAL',
5747: token_num => 3 ,
5748: t1 => 'ROUTINE',
5749: v1 => 'FII_BUDGET_FORECAST_C.rollup_stage()',
5753: v3 => TO_CHAR(LENGTH(l_bud_sqlstmt)));
5754:
5755: fii_util.put_line('l_fc_sqlstmt = '|| l_fc_sqlstmt);
5756:
5757: FII_MESSAGE.Write_Log
5758: (msg_name => 'FII_ROUTINE_VAL',
5759: token_num => 3 ,
5760: t1 => 'ROUTINE',
5761: v1 => 'FII_BUDGET_FORECAST_C.rollup_stage()',
5765: v3 => TO_CHAR(LENGTH(l_fc_sqlstmt)));
5766: END IF;
5767:
5768: IF (FIIBUUP_DEBUG) THEN
5769: FII_MESSAGE.Write_Log
5770: (msg_name => 'FII_ROUTINE',
5771: token_num => 2,
5772: t1 => 'ROUTINE',
5773: v1 => 'rollup_stage()',
5783: FIIBUUP_USER_ID, FIIBUUP_USER_ID, FIIBUUP_LOGIN_ID;
5784: END IF;
5785:
5786: IF (FIIBUUP_DEBUG) THEN
5787: FII_MESSAGE.Write_log
5788: (msg_name => 'FII_INST_REC',
5789: token_num => 2,
5790: t1 => 'NUM',
5791: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
5793: v2 => 'FII_BUDGET_STG');
5794: END IF;
5795:
5796: IF (FIIBUUP_DEBUG) THEN
5797: FII_MESSAGE.Write_Log
5798: (msg_name => 'FII_ROUTINE',
5799: token_num => 2,
5800: t1 => 'ROUTINE',
5801: v1 => 'Rollup_Stage()',
5810: FIIBUUP_USER_ID, FIIBUUP_USER_ID, FIIBUUP_LOGIN_ID;
5811: END IF;
5812:
5813: IF (FIIBUUP_DEBUG) THEN
5814: FII_MESSAGE.Write_log
5815: (msg_name => 'FII_INST_REC',
5816: token_num => 2,
5817: t1 => 'NUM',
5818: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
5820: v2 => 'FII_BUDGET_STG');
5821: END IF;
5822:
5823: IF (FIIBUUP_DEBUG) THEN
5824: FII_MESSAGE.Write_Log
5825: (msg_name => 'FII_ROUTINE',
5826: token_num => 2,
5827: t1 => 'ROUTINE',
5828: v1 => 'Rollup_Stage()',
5831: END IF;
5832:
5833: -- rollup_stage completed, return with success
5834: IF (FIIBUUP_DEBUG) THEN
5835: FII_MESSAGE.Write_Log
5836: (msg_name => 'FII_ROUTINE',
5837: token_num => 2,
5838: t1 => 'ROUTINE',
5839: v1 => 'rollup_stage()',
5843:
5844: FND_CONCURRENT.Af_Commit;
5845:
5846: IF (FIIBUUP_DEBUG) THEN
5847: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.rollup_stage');
5848: END IF;
5849: RETURN TRUE;
5850:
5851: EXCEPTION
5851: EXCEPTION
5852: WHEN FIIBUUP_fatal_err THEN
5853: FND_CONCURRENT.Af_Rollback;
5854:
5855: FII_MESSAGE.Write_Log
5856: (msg_name => 'FII_ERR_ENC_ROUT',
5857: token_num => 1,
5858: t1 => 'ROUTINE_NAME',
5859: v1 => 'FII_BUDGET_FORECAST_C.rollup_stage()');
5857: token_num => 1,
5858: t1 => 'ROUTINE_NAME',
5859: v1 => 'FII_BUDGET_FORECAST_C.rollup_stage()');
5860:
5861: FII_MESSAGE.Func_Fail
5862: (func_name => 'FII_BUDGET_FORECAST_C.rollup_stage');
5863:
5864: fii_util.put_line ('Phase: ' || g_phase ||
5865: 'Error: ' || sqlerrm);
5868: WHEN OTHERS THEN
5869: FND_CONCURRENT.Af_Rollback;
5870:
5871: -- SQL error occurs. Print out the error
5872: FII_MESSAGE.Write_Log(msg_name => 'FII_ERROR',
5873: token_num => 2,
5874: t1 => 'FUNCTION',
5875: v1 => 'FII_BUDGET_FORECAST_C.rollup_stage',
5876: t2 => 'SQLERRMC',
5875: v1 => 'FII_BUDGET_FORECAST_C.rollup_stage',
5876: t2 => 'SQLERRMC',
5877: v2 => SQLERRM);
5878:
5879: FII_MESSAGE.Func_Fail
5880: (func_name => 'FII_BUDGET_FORECAST_C.rollup_stage');
5881:
5882: fii_util.put_line ('Phase: ' || g_phase ||
5883: 'Error: ' || sqlerrm);
5908:
5909: BEGIN
5910:
5911: IF (FIIBUUP_DEBUG) THEN
5912: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.adjust_stage');
5913: END IF;
5914:
5915: -- The statment for stage needs to be built dynamically for
5916: -- budget and forecast
5957: -- Print out the dynamic SQL statements if running in debug mode
5958: IF (FIIBUUP_DEBUG) THEN
5959: fii_util.put_line('l_bud_sqlstmt = '|| l_bud_sqlstmt);
5960:
5961: FII_MESSAGE.Write_Log
5962: (msg_name => 'FII_ROUTINE_VAL',
5963: token_num => 3 ,
5964: t1 => 'ROUTINE',
5965: v1 => 'FII_BUDGET_FORECAST_C.adjust_stage()',
5969: v3 => TO_CHAR(LENGTH(l_bud_sqlstmt)));
5970:
5971: fii_util.put_line('l_fc_sqlstmt = '|| l_fc_sqlstmt);
5972:
5973: FII_MESSAGE.Write_Log
5974: (msg_name => 'FII_ROUTINE_VAL',
5975: token_num => 3 ,
5976: t1 => 'ROUTINE',
5977: v1 => 'FII_BUDGET_FORECAST_C.adjust_stage()',
5982: END IF;
5983:
5984: IF (FIIBUUP_BUDGET_TIME_UNIT <> 'Y') THEN
5985: IF (FIIBUUP_DEBUG) THEN
5986: FII_MESSAGE.Write_Log
5987: (msg_name => 'FII_ROUTINE',
5988: token_num => 2,
5989: t1 => 'ROUTINE',
5990: v1 => 'adjust_stage()',
5995: g_phase := 'Execute the built SQL l_bud_sqlstmt';
5996: EXECUTE IMMEDIATE l_bud_sqlstmt;
5997:
5998: IF (FIIBUUP_DEBUG) THEN
5999: FII_MESSAGE.Write_log
6000: (msg_name => 'FII_INST_REC',
6001: token_num => 2,
6002: t1 => 'NUM',
6003: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
6007: END IF;
6008:
6009: IF (FIIBUUP_FORECAST_TIME_UNIT <> 'Y') THEN
6010: IF (FIIBUUP_DEBUG) THEN
6011: FII_MESSAGE.Write_Log
6012: (msg_name => 'FII_ROUTINE',
6013: token_num => 2,
6014: t1 => 'ROUTINE',
6015: v1 => 'Adjust_Stage()',
6020: g_phase := 'Execute the built SQL l_fc_sqlstmt';
6021: EXECUTE IMMEDIATE l_fc_sqlstmt;
6022:
6023: IF (FIIBUUP_DEBUG) THEN
6024: FII_MESSAGE.Write_log
6025: (msg_name => 'FII_INST_REC',
6026: token_num => 2,
6027: t1 => 'NUM',
6028: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
6032: END IF;
6033:
6034: -- adjust_stage completed, return with success
6035: IF (FIIBUUP_DEBUG) THEN
6036: FII_MESSAGE.Write_Log
6037: (msg_name => 'FII_ROUTINE',
6038: token_num => 2,
6039: t1 => 'ROUTINE',
6040: v1 => 'adjust_stage()',
6042: v2 => 'adjust_stage done...');
6043: END IF;
6044:
6045: IF (FIIBUUP_DEBUG) THEN
6046: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.adjust_stage');
6047: END IF;
6048: RETURN TRUE;
6049:
6050: EXCEPTION
6050: EXCEPTION
6051: WHEN FIIBUUP_fatal_err THEN
6052: FND_CONCURRENT.Af_Rollback;
6053:
6054: FII_MESSAGE.Write_Log
6055: (msg_name => 'FII_ERR_ENC_ROUT',
6056: token_num => 1,
6057: t1 => 'ROUTINE_NAME',
6058: v1 => 'FII_BUDGET_FORECAST_C.adjust_stage()');
6056: token_num => 1,
6057: t1 => 'ROUTINE_NAME',
6058: v1 => 'FII_BUDGET_FORECAST_C.adjust_stage()');
6059:
6060: FII_MESSAGE.Func_Fail
6061: (func_name => 'FII_BUDGET_FORECAST_C.adjsut_stage');
6062:
6063: fii_util.put_line ('Phase: ' || g_phase ||
6064: 'Error: ' || sqlerrm);
6067: WHEN OTHERS THEN
6068: FND_CONCURRENT.Af_Rollback;
6069:
6070: -- SQL error occurs. Print out the error
6071: FII_MESSAGE.Write_Log(msg_name => 'FII_ERROR',
6072: token_num => 2,
6073: t1 => 'FUNCTION',
6074: v1 => 'FII_BUDGET_FORECAST_C.adjust_stage',
6075: t2 => 'SQLERRMC',
6074: v1 => 'FII_BUDGET_FORECAST_C.adjust_stage',
6075: t2 => 'SQLERRMC',
6076: v2 => SQLERRM);
6077:
6078: FII_MESSAGE.Func_Fail
6079: (func_name => 'FII_BUDGET_FORECAST_C.adjust_stage');
6080:
6081: fii_util.put_line ('Phase: ' || g_phase ||
6082: 'Error: ' || sqlerrm);
6107:
6108: BEGIN
6109:
6110: IF (FIIBUUP_DEBUG) THEN
6111: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.merge');
6112: END IF;
6113:
6114: -- The statment for stage needs to be built dynamically for
6115: -- budget and forecast
6199: -- Print out the dynamic SQL statements if running in debug mode
6200: IF (FIIBUUP_DEBUG) THEN
6201: fii_util.put_line('merge stmt = '|| l_tmpstmt );
6202:
6203: FII_MESSAGE.Write_Log
6204: (msg_name => 'FII_ROUTINE_VAL',
6205: token_num => 3 ,
6206: t1 => 'ROUTINE',
6207: v1 => 'FII_BUDGET_FORECAST_C.merge()',
6212:
6213: END IF;
6214:
6215: IF (FIIBUUP_DEBUG) THEN
6216: FII_MESSAGE.Write_Log
6217: (msg_name => 'FII_ROUTINE',
6218: token_num => 2,
6219: t1 => 'ROUTINE',
6220: v1 => 'merge()',
6237: FIIBUUP_USER_ID, FIIBUUP_USER_ID, FIIBUUP_LOGIN_ID,
6238: FIIBUUP_GLOBAL_START_DATE;
6239:
6240: IF (FIIBUUP_DEBUG) THEN
6241: FII_MESSAGE.Write_log
6242: (msg_name => 'FII_INST_REC',
6243: token_num => 2,
6244: t1 => 'NUM',
6245: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
6247: v2 => 'FII_BUDGET_BASE');
6248: END IF;
6249:
6250: IF (FIIBUUP_DEBUG) THEN
6251: FII_MESSAGE.Write_Log
6252: (msg_name => 'FII_ROUTINE',
6253: token_num => 2,
6254: t1 => 'ROUTINE',
6255: v1 => 'merge()',
6275: FIIBUUP_USER_ID, FIIBUUP_USER_ID, FIIBUUP_LOGIN_ID,
6276: FIIBUUP_GLOBAL_START_DATE;
6277:
6278: IF (FIIBUUP_DEBUG) THEN
6279: FII_MESSAGE.Write_log
6280: (msg_name => 'FII_INST_REC',
6281: token_num => 2,
6282: t1 => 'NUM',
6283: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
6287:
6288: FND_CONCURRENT.Af_Commit;
6289:
6290: IF (FIIBUUP_DEBUG) THEN
6291: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.merge');
6292: END IF;
6293: RETURN TRUE;
6294:
6295: EXCEPTION
6295: EXCEPTION
6296: WHEN FIIBUUP_fatal_err THEN
6297: FND_CONCURRENT.Af_Rollback;
6298:
6299: FII_MESSAGE.Write_Log
6300: (msg_name => 'FII_ERR_ENC_ROUT',
6301: token_num => 1,
6302: t1 => 'ROUTINE_NAME',
6303: v1 => 'FII_BUDGET_FORECAST_C.merge()');
6301: token_num => 1,
6302: t1 => 'ROUTINE_NAME',
6303: v1 => 'FII_BUDGET_FORECAST_C.merge()');
6304:
6305: FII_MESSAGE.Func_Fail
6306: (func_name => 'FII_BUDGET_FORECAST_C.merge');
6307:
6308: fii_util.put_line ('Phase: ' || g_phase ||
6309: 'Error: ' || sqlerrm);
6312: WHEN OTHERS THEN
6313: FND_CONCURRENT.Af_Rollback;
6314:
6315: -- SQL error occurs. Print out the error
6316: FII_MESSAGE.Write_Log(msg_name => 'FII_ERROR',
6317: token_num => 2,
6318: t1 => 'FUNCTION',
6319: v1 => 'FII_BUDGET_FORECAST_C.merge',
6320: t2 => 'SQLERRMC',
6319: v1 => 'FII_BUDGET_FORECAST_C.merge',
6320: t2 => 'SQLERRMC',
6321: v2 => SQLERRM);
6322:
6323: FII_MESSAGE.Func_Fail
6324: (func_name => 'FII_BUDGET_FORECAST_C.merge');
6325:
6326: fii_util.put_line ('Phase: ' || g_phase ||
6327: 'Error: ' || sqlerrm);
6352:
6353: BEGIN
6354:
6355: IF (FIIBUUP_DEBUG) THEN
6356: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.adjust_ver_date');
6357: END IF;
6358:
6359: -- The statment for stage needs to be built dynamically for
6360: -- budget and forecast
6398: -- Print out the dynamic SQL statements if running in debug mode
6399: IF (FIIBUUP_DEBUG) THEN
6400: fii_util.put_line('adjust_ver_date l_bud_sqlstmt = '|| l_bud_sqlstmt);
6401:
6402: FII_MESSAGE.Write_Log
6403: (msg_name => 'FII_ROUTINE_VAL',
6404: token_num => 3 ,
6405: t1 => 'ROUTINE',
6406: v1 => 'FII_BUDGET_FORECAST_C.adjust_ver_date()',
6410: v3 => TO_CHAR(LENGTH(l_bud_sqlstmt)));
6411:
6412: fii_util.put_line('adjust_ver_date l_fc_sqlstmt = '|| l_fc_sqlstmt);
6413:
6414: FII_MESSAGE.Write_Log
6415: (msg_name => 'FII_ROUTINE_VAL',
6416: token_num => 3 ,
6417: t1 => 'ROUTINE',
6418: v1 => 'FII_BUDGET_FORECAST_C.adjust_ver_date()',
6423:
6424: END IF;
6425:
6426: IF (FIIBUUP_DEBUG) THEN
6427: FII_MESSAGE.Write_Log
6428: (msg_name => 'FII_ROUTINE',
6429: token_num => 2,
6430: t1 => 'ROUTINE',
6431: v1 => 'adjust_ver_date()',
6436: g_phase := 'Execute the built SQL l_bud_sqlstmt';
6437: EXECUTE IMMEDIATE l_bud_sqlstmt;
6438:
6439: IF (FIIBUUP_DEBUG) THEN
6440: FII_MESSAGE.Write_log
6441: (msg_name => 'FII_INST_REC',
6442: token_num => 2,
6443: t1 => 'NUM',
6444: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
6446: v2 => 'FII_BUDGET_BASE');
6447: END IF;
6448:
6449: IF (FIIBUUP_DEBUG) THEN
6450: FII_MESSAGE.Write_Log
6451: (msg_name => 'FII_ROUTINE',
6452: token_num => 2,
6453: t1 => 'ROUTINE',
6454: v1 => 'adjust_ver_date()',
6459: g_phase := 'Execute the built SQL l_fc_sqlstmt';
6460: EXECUTE IMMEDIATE l_fc_sqlstmt;
6461:
6462: IF (FIIBUUP_DEBUG) THEN
6463: FII_MESSAGE.Write_log
6464: (msg_name => 'FII_INST_REC',
6465: token_num => 2,
6466: t1 => 'NUM',
6467: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
6471:
6472: FND_CONCURRENT.Af_Commit;
6473:
6474: IF (FIIBUUP_DEBUG) THEN
6475: FII_MESSAGE.Func_Succ('FII_BUDGET_FORECAST_C.adjust_ver_date');
6476: END IF;
6477: RETURN TRUE;
6478:
6479: EXCEPTION
6479: EXCEPTION
6480: WHEN FIIBUUP_fatal_err THEN
6481: FND_CONCURRENT.Af_Rollback;
6482:
6483: FII_MESSAGE.Write_Log
6484: (msg_name => 'FII_ERR_ENC_ROUT',
6485: token_num => 1,
6486: t1 => 'ROUTINE_NAME',
6487: v1 => 'FII_BUDGET_FORECAST_C.adjust_ver_date()');
6485: token_num => 1,
6486: t1 => 'ROUTINE_NAME',
6487: v1 => 'FII_BUDGET_FORECAST_C.adjust_ver_date()');
6488:
6489: FII_MESSAGE.Func_Fail
6490: (func_name => 'FII_BUDGET_FORECAST_C.adjust_ver_date');
6491:
6492: fii_util.put_line ('Phase: ' || g_phase ||
6493: 'Error: ' || sqlerrm);
6496: WHEN OTHERS THEN
6497: FND_CONCURRENT.Af_Rollback;
6498:
6499: -- SQL error occurs. Print out the error
6500: FII_MESSAGE.Write_Log(msg_name => 'FII_ERROR',
6501: token_num => 2,
6502: t1 => 'FUNCTION',
6503: v1 =>'FII_BUDGET_FORECAST_C.adjust_ver_date',
6504: t2 => 'SQLERRMC',
6503: v1 =>'FII_BUDGET_FORECAST_C.adjust_ver_date',
6504: t2 => 'SQLERRMC',
6505: v2 => SQLERRM);
6506:
6507: FII_MESSAGE.Func_Fail
6508: (func_name => 'FII_BUDGET_FORECAST_C.adjust_ver_date');
6509:
6510: fii_util.put_line ('Phase: ' || g_phase ||
6511: 'Error: ' || sqlerrm);
6581: l_drop_bud_data := 'N';
6582: l_drop_fc_data := 'N';
6583:
6584: IF FND_PROFILE.value('FII_DEBUG_MODE') = 'Y' THEN
6585: FII_MESSAGE.Func_Ent('FII_BUDGET_FORECAST_C.Main');
6586: END IF;
6587:
6588: -- Determine if process will be run in debug mode
6589: IF (NVL(X_Debug, 'N') <> 'N') THEN
6598: -- Turn trace on if process is run in debug mode
6599: IF (FIIBUUP_DEBUG) THEN
6600:
6601: -- Program running in debug mode, turning trace on
6602: FII_MESSAGE.Write_Log(msg_name => 'FII_CONC_PRG_DEBUG',
6603: token_num => 0);
6604:
6605: EXECUTE IMMEDIATE 'ALTER SESSION SET SQL_TRACE TRUE';
6606:
6609: -- Find out if this is commercial or government install
6610: l_industry_profile := FND_PROFILE.value('INDUSTRY');
6611:
6612: IF (FIIBUUP_DEBUG) THEN
6613: FII_MESSAGE.Write_Log
6614: (msg_name => 'FII_ROUTINE_VAL',
6615: token_num => 3 ,
6616: t1 => 'ROUTINE',
6617: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6636:
6637: l_psi_bud_from_bal := FND_PROFILE.value('FII_PSI_BUDGET_FROM_BAL');
6638:
6639: IF (FIIBUUP_DEBUG) THEN
6640: FII_MESSAGE.Write_Log
6641: (msg_name => 'FII_ROUTINE_VAL',
6642: token_num => 3 ,
6643: t1 => 'ROUTINE',
6644: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6670: RETURN;
6671: ELSE
6672: -- GL Budget Extraction program completes successfully.
6673: IF (FIIBUUP_DEBUG) THEN
6674: FII_MESSAGE.Func_Succ(func_name => 'FII_BUDGET_FORECAST_C.Main');
6675: END IF;
6676:
6677: l_ret_status := FND_CONCURRENT.Set_Completion_Status
6678: (status => 'COMPLETE', message => NULL);
6686: -- Call Budget Upload or GL Budget Extraction depending on profile
6687: l_budget_source := FND_PROFILE.value('FII_BUDGET_SOURCE');
6688:
6689: IF (FIIBUUP_DEBUG) THEN
6690: FII_MESSAGE.Write_Log
6691: (msg_name => 'FII_ROUTINE_VAL',
6692: token_num => 3 ,
6693: t1 => 'ROUTINE',
6694: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6713: RETURN;
6714: ELSE
6715: -- GL Budget Extraction program completes successfully.
6716: IF (FIIBUUP_DEBUG) THEN
6717: FII_MESSAGE.Func_Succ(func_name => 'FII_BUDGET_FORECAST_C.Main');
6718: END IF;
6719:
6720: l_ret_status := FND_CONCURRENT.Set_Completion_Status
6721: (status => 'COMPLETE', message => NULL);
6725: END IF;
6726:
6727: -- Make sure that profile option value is set to WEBADI
6728: IF l_budget_source <> 'WEBADI' THEN
6729: FII_MESSAGE.Write_Log
6730: (msg_name => 'FII_BUDGET_DATA_SOURCE_ERROR',
6731: token_num => 0);
6732:
6733: raise FIIBUUP_fatal_err;
6735: END IF;
6736:
6737: -- Check if all input parameters are valid
6738: IF (NVL(X_Mode, 'X') <> 'U' AND NVL(X_Mode, 'X') <> 'P') THEN
6739: FII_MESSAGE.Write_Log
6740: (msg_name => 'FII_INV_OPER',
6741: token_num => 0);
6742:
6743: raise FIIBUUP_fatal_err;
6746: IF ( ( X_Plan_Type is NULL
6747: OR X_Plan_Type NOT IN ('B', 'F'))
6748: OR ( X_Time_Unit is NULL
6749: OR X_Time_Unit NOT IN ('D', 'P', 'Q', 'Y', 'A'))) THEN
6750: FII_MESSAGE.Write_Log
6751: (msg_name => 'FII_INV_PAR_PURG',
6752: token_num => 0);
6753:
6754: raise FIIBUUP_fatal_err;
6799:
6800: IF (FIIBUUP_BUDGET_TIME_UNIT is NULL) THEN
6801: -- Print out log message and use default
6802: IF (FIIBUUP_DEBUG) THEN
6803: FII_MESSAGE.Write_Log
6804: (msg_name => 'FII_INV_PRF_OPT',
6805: token_num => 2,
6806: t1 => 'PROFILE_NAME',
6807: v1 => 'FII_BUDGET_TIME_UNIT',
6814:
6815: IF (FIIBUUP_FORECAST_TIME_UNIT is NULL) THEN
6816: -- Print out log message and use default
6817: IF (FIIBUUP_DEBUG) THEN
6818: FII_MESSAGE.Write_Log
6819: (msg_name => 'FII_INV_PRF_OPT',
6820: token_num => 2,
6821: t1 => 'PROFILE_NAME',
6822: v1 => 'FII_FORECAST_TIME_UNIT',
6845: FIIBUUP_BUDGET_TIME_UNIT is NULL OR
6846: FIIBUUP_FORECAST_TIME_UNIT is NULL) THEN
6847:
6848: -- Fail to initialize
6849: FII_MESSAGE.Write_Log (msg_name => 'FII_FAIL_INT_PAR_CON_PRG',
6850: token_num => 0);
6851:
6852: RAISE FIIBUUP_fatal_err;
6853: END IF;
6854:
6855: -- Print program run information
6856: IF (FIIBUUP_DEBUG) THEN
6857:
6858: FII_MESSAGE.Write_Log
6859: (msg_name => 'FII_ROUTINE_VAL',
6860: token_num => 3 ,
6861: t1 => 'ROUTINE',
6862: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6864: v2 => 'Operation Mode',
6865: t3 => 'VALUE',
6866: v3 => X_Mode);
6867:
6868: FII_MESSAGE.Write_Log
6869: (msg_name => 'FII_ROUTINE_VAL',
6870: token_num => 3 ,
6871: t1 => 'ROUTINE',
6872: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6874: v2 => 'Plan Type',
6875: t3 => 'VALUE',
6876: v3 => NVL(FIIBUUP_PURGE_PLAN_TYPE, 'N/A'));
6877:
6878: FII_MESSAGE.Write_Log
6879: (msg_name => 'FII_ROUTINE_VAL',
6880: token_num => 3 ,
6881: t1 => 'ROUTINE',
6882: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6884: v2 => 'Purge Time Unit',
6885: t3 => 'VALUE',
6886: v3 => NVL(FIIBUUP_PURGE_TIME_UNIT, 'N/A'));
6887:
6888: FII_MESSAGE.Write_Log
6889: (msg_name => 'FII_ROUTINE_VAL',
6890: token_num => 3 ,
6891: t1 => 'ROUTINE',
6892: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6894: v2 => 'Purge Date',
6895: t3 => 'VALUE',
6896: v3 => NVL(TO_CHAR(FIIBUUP_PURGE_DATE, 'YYYY/MM/DD HH24:MI:SS'), 'N/A'));
6897:
6898: FII_MESSAGE.Write_Log
6899: (msg_name => 'FII_ROUTINE_VAL',
6900: token_num => 3 ,
6901: t1 => 'ROUTINE',
6902: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6904: v2 => 'Purge Period',
6905: t3 => 'VALUE',
6906: v3 => NVL(FIIBUUP_PURGE_TIME_PERIOD, 'N/A'));
6907:
6908: FII_MESSAGE.Write_Log
6909: (msg_name => 'FII_ROUTINE_VAL',
6910: token_num => 3 ,
6911: t1 => 'ROUTINE',
6912: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6914: v2 => 'Purge Effective Date',
6915: t3 => 'VALUE',
6916: v3 => NVL(TO_CHAR(FIIBUUP_PURGE_EFF_DATE, 'YYYY/MM/DD HH24:MI:SS'), 'N/A'));
6917:
6918: FII_MESSAGE.Write_Log
6919: (msg_name => 'FII_ROUTINE_VAL',
6920: token_num => 3 ,
6921: t1 => 'ROUTINE',
6922: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6924: v2 => 'Debug Mode',
6925: t3 => 'VALUE',
6926: v3 => NVL(X_Debug, 'N'));
6927:
6928: FII_MESSAGE.Write_Log
6929: (msg_name => 'FII_ROUTINE_VAL',
6930: token_num => 3 ,
6931: t1 => 'ROUTINE',
6932: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6934: v2 => 'Primary Global Currency',
6935: t3 => 'VALUE',
6936: v3 => NVL(FIIBUUP_PRIM_CURR_CODE, 'NULL'));
6937:
6938: FII_MESSAGE.Write_Log
6939: (msg_name => 'FII_ROUTINE_VAL',
6940: token_num => 3 ,
6941: t1 => 'ROUTINE',
6942: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6944: v2 => 'Secondary Global Currency',
6945: t3 => 'VALUE',
6946: v3 => NVL(FIIBUUP_SEC_CURR_CODE, 'NULL'));
6947:
6948: FII_MESSAGE.Write_Log
6949: (msg_name => 'FII_ROUTINE_VAL',
6950: token_num => 3 ,
6951: t1 => 'ROUTINE',
6952: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6954: v2 => 'Budget Time Unit',
6955: t3 => 'VALUE',
6956: v3 => FIIBUUP_BUDGET_TIME_UNIT);
6957:
6958: FII_MESSAGE.Write_Log
6959: (msg_name => 'FII_ROUTINE_VAL',
6960: token_num => 3 ,
6961: t1 => 'ROUTINE',
6962: v1 => 'FII_BUDGET_FORECAST_C.Main()',
6968: END IF;
6969:
6970: -- Then, get prior time unit setting from FII_CHANGE_LOG
6971: IF (FIIBUUP_DEBUG) THEN
6972: FII_MESSAGE.Write_Log
6973: (msg_name => 'FII_ROUTINE',
6974: token_num => 2,
6975: t1 => 'ROUTINE',
6976: v1 => 'Main()',
7013: RETURN;
7014:
7015: ELSE
7016: IF (FIIBUUP_DEBUG) THEN
7017: FII_MESSAGE.Func_Succ(func_name => 'FII_BUDGET_FORECAST_C.Main');
7018: END IF;
7019:
7020: l_ret_status := FND_CONCURRENT.Set_Completion_Status
7021: (status => 'COMPLETE', message => NULL);
7059: END;
7060:
7061: -- Print FII_CHANGE_LOG information
7062: IF (FIIBUUP_DEBUG) THEN
7063: FII_MESSAGE.Write_Log
7064: (msg_name => 'FII_ROUTINE_VAL',
7065: token_num => 3 ,
7066: t1 => 'ROUTINE',
7067: v1 => 'FII_BUDGET_FORECAST_C.Main()',
7069: v2 => 'l_prev_bud_time_unit',
7070: t3 => 'VALUE',
7071: v3 => l_prev_bud_time_unit);
7072:
7073: FII_MESSAGE.Write_Log
7074: (msg_name => 'FII_ROUTINE_VAL',
7075: token_num => 3 ,
7076: t1 => 'ROUTINE',
7077: v1 => 'FII_BUDGET_FORECAST_C.Main()',
7086:
7087: -- First, get from the FII_CHANGE_LOG and see if truncation is
7088: -- needed
7089: IF (FIIBUUP_DEBUG) THEN
7090: FII_MESSAGE.Write_Log
7091: (msg_name => 'FII_ROUTINE',
7092: token_num => 2,
7093: t1 => 'ROUTINE',
7094: v1 => 'Main()',
7129: IF (NVL(l_prev_bud_time_unit, FIIBUUP_BUDGET_TIME_UNIT) <>
7130: FIIBUUP_BUDGET_TIME_UNIT) THEN
7131:
7132: IF (FIIBUUP_DEBUG) THEN
7133: FII_MESSAGE.Write_Log
7134: (msg_name => 'FII_ROUTINE',
7135: token_num => 2,
7136: t1 => 'ROUTINE',
7137: v1 => 'Main()',
7160: FIIBUUP_USER_ID, FIIBUUP_LOGIN_ID);
7161:
7162: -- Print out message
7163: IF (FIIBUUP_DEBUG) THEN
7164: FII_MESSAGE.Write_Log
7165: (msg_name => 'FII_UPD_REC',
7166: token_num => 2,
7167: t1 => 'NUM',
7168: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
7168: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
7169: t2 => 'TABLE',
7170: v2 => 'FII_CHANGE_LOG');
7171:
7172: FII_MESSAGE.Write_Log
7173: (msg_name => 'FII_INV_BUD_TIM_UNIT',
7174: token_num => 0);
7175: END IF;
7176:
7187: last_update_login = FIIBUUP_LOGIN_ID
7188: WHERE log_item = 'TRUNCATE_BUDGET';
7189:
7190: IF (FIIBUUP_DEBUG) THEN
7191: FII_MESSAGE.Write_Log
7192: (msg_name => 'FII_UPD_REC',
7193: token_num => 2,
7194: t1 => 'NUM',
7195: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
7204:
7205: g_phase := 'Indicate in FII_CHANGE_LOG that forecast needs to be dropped';
7206:
7207: IF (FIIBUUP_DEBUG) THEN
7208: FII_MESSAGE.Write_Log
7209: (msg_name => 'FII_ROUTINE',
7210: token_num => 2,
7211: t1 => 'ROUTINE',
7212: v1 => 'Main()',
7233: FIIBUUP_USER_ID, FIIBUUP_LOGIN_ID);
7234:
7235: -- Print out message
7236: IF (FIIBUUP_DEBUG) THEN
7237: FII_MESSAGE.Write_Log
7238: (msg_name => 'FII_UPD_REC',
7239: token_num => 2,
7240: t1 => 'NUM',
7241: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
7241: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
7242: t2 => 'TABLE',
7243: v2 => 'FII_CHANGE_LOG');
7244:
7245: FII_MESSAGE.Write_Log
7246: (msg_name => 'FII_INV_FRC_TIM_UNIT',
7247: token_num => 0);
7248: END IF;
7249:
7260: last_update_login = FIIBUUP_LOGIN_ID
7261: WHERE log_item = 'TRUNCATE_BUDGET';
7262:
7263: IF (FIIBUUP_DEBUG) THEN
7264: FII_MESSAGE.Write_Log
7265: (msg_name => 'FII_UPD_REC',
7266: token_num => 2,
7267: t1 => 'NUM',
7268: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
7278: raise FIIBUUP_fatal_err;
7279: END IF;
7280:
7281: IF (FIIBUUP_DEBUG) THEN
7282: FII_MESSAGE.Write_Log
7283: (msg_name => 'FII_ROUTINE',
7284: token_num => 2,
7285: t1 => 'ROUTINE',
7286: v1 => 'Main()',
7291: g_phase := 'Truncate the staging table FII_BUDGET_DELTAS';
7292: FII_UTIL.truncate_table ('FII_BUDGET_DELTAS', 'FII', g_retcode);
7293:
7294: IF (FIIBUUP_DEBUG) THEN
7295: FII_MESSAGE.Write_Log
7296: (msg_name => 'FII_ROUTINE',
7297: token_num => 2,
7298: t1 => 'ROUTINE',
7299: v1 => 'Main()',
7304: g_phase := 'Truncate the staging table FII_BUDGET_BASE_T';
7305: FII_UTIL.truncate_table ('FII_BUDGET_BASE_T', 'FII', g_retcode);
7306:
7307: IF (FIIBUUP_DEBUG) THEN
7308: FII_MESSAGE.Write_Log
7309: (msg_name => 'FII_ROUTINE',
7310: token_num => 2,
7311: t1 => 'ROUTINE',
7312: v1 => 'Main()',
7334: END;
7335:
7336: IF (l_int_count = 0) THEN
7337: IF (FIIBUUP_DEBUG) THEN
7338: FII_MESSAGE.Func_Succ(func_name => 'FII_BUDGET_FORECAST_C.Main');
7339: END IF;
7340:
7341: l_ret_status := FND_CONCURRENT.Set_Completion_Status
7342: (status => 'COMPLETE', message => NULL);
7347: -- Lock down FII_BUDGET_INTERFACE before processing.
7348: -- This is to prevent users from uploading new records into the
7349: -- interface while program is running.
7350: IF (FIIBUUP_DEBUG) THEN
7351: FII_MESSAGE.Write_Log
7352: (msg_name => 'FII_ROUTINE',
7353: token_num => 2,
7354: t1 => 'ROUTINE',
7355: v1 => 'Main()',
7371:
7372: ELSIF (l_ret_code = 'W') THEN
7373: -- Validate ends with warnings.
7374: IF (FIIBUUP_DEBUG) THEN
7375: FII_MESSAGE.Func_Succ(func_name => 'FII_BUDGET_FORECAST_C.Main');
7376: END IF;
7377:
7378: l_ret_status := FND_CONCURRENT.Set_Completion_Status
7379: (status => 'WARNING', message => NULL);
7388:
7389: g_phase := 'Delete from FII_BUDGET_BASE when ledgers are no longer set up';
7390:
7391: IF (FIIBUUP_DEBUG) THEN
7392: FII_MESSAGE.Write_Log
7393: (msg_name => 'FII_ROUTINE',
7394: token_num => 2,
7395: t1 => 'ROUTINE',
7396: v1 => 'Main()',
7405: WHERE ledger_id NOT IN (SELECT ledger_id
7406: FROM fii_slg_assignments ));
7407:
7408: IF (FIIBUUP_DEBUG) THEN
7409: FII_MESSAGE.Write_Log
7410: (msg_name => 'FII_DEL_REC',
7411: token_num => 2,
7412: t1 => 'NUM',
7413: v1 => TO_CHAR(NVL(SQL%ROWCOUNT, 0)),
7458: FETCH ver_date_cur INTO l_version_date;
7459: EXIT WHEN ver_date_cur%NOTFOUND;
7460:
7461: IF (FIIBUUP_DEBUG) THEN
7462: FII_MESSAGE.Write_Log
7463: (msg_name => 'FII_ROUTINE',
7464: token_num => 2,
7465: t1 => 'ROUTINE',
7466: v1 => 'Main()',
7471: g_phase := 'Truncate the staging table FII_BUDGET_DELTAS';
7472: FII_UTIL.truncate_table ('FII_BUDGET_DELTAS', 'FII', g_retcode);
7473:
7474: IF (FIIBUUP_DEBUG) THEN
7475: FII_MESSAGE.Write_Log
7476: (msg_name => 'FII_ROUTINE',
7477: token_num => 2,
7478: t1 => 'ROUTINE',
7479: v1 => 'Main()',
7484: g_phase := 'Truncate the staging table FII_BUDGET_BASE_T';
7485: FII_UTIL.truncate_table ('FII_BUDGET_BASE_T', 'FII', g_retcode);
7486:
7487: IF (FIIBUUP_DEBUG) THEN
7488: FII_MESSAGE.Write_Log
7489: (msg_name => 'FII_ROUTINE',
7490: token_num => 2,
7491: t1 => 'ROUTINE',
7492: v1 => 'Main()',
7548: FIIBUUP_PURGE_TIME_UNIT <> l_prev_bud_time_unit) OR
7549: (FIIBUUP_PURGE_PLAN_TYPE = 'F' AND
7550: FIIBUUP_PURGE_TIME_UNIT <> l_prev_fc_time_unit)) THEN
7551:
7552: FII_MESSAGE.Write_Log
7553: (msg_name => 'FII_INV_PAR_PURG',
7554: token_num => 0);
7555:
7556: raise FIIBUUP_fatal_err;
7572:
7573: execute immediate 'alter session enable parallel dml';
7574:
7575: IF (FIIBUUP_DEBUG) THEN
7576: FII_MESSAGE.Func_Succ(func_name => 'FII_BUDGET_FORECAST_C.Main');
7577: END IF;
7578:
7579: l_ret_status := FND_CONCURRENT.Set_Completion_Status
7580: (status => 'COMPLETE', message => NULL);
7583: WHEN FIIBUUP_fatal_err THEN
7584:
7585: FND_CONCURRENT.Af_Rollback;
7586:
7587: FII_MESSAGE.Write_Log
7588: (msg_name => 'FII_ERR_ENC_ROUT',
7589: token_num => 1,
7590: t1 => 'ROUTINE_NAME',
7591: v1 => 'FII_BUDGET_FORECAST_C.Main()');
7589: token_num => 1,
7590: t1 => 'ROUTINE_NAME',
7591: v1 => 'FII_BUDGET_FORECAST_C.Main()');
7592:
7593: FII_MESSAGE.Func_Fail(func_name => 'FII_BUDGET_FORECAST_C.Main');
7594:
7595: fii_util.put_line ('Phase: ' || g_phase ||
7596: 'Error: ' || sqlerrm);
7597:
7601: WHEN OTHERS THEN
7602:
7603: FND_CONCURRENT.Af_Rollback;
7604:
7605: FII_MESSAGE.Write_Log(msg_name => 'FII_ERROR',
7606: token_num => 2,
7607: t1 => 'FUNCTION',
7608: v1 => 'FII_BUDGET_FORECAST_C.Main()',
7609: t2 => 'SQLERRMC',
7608: v1 => 'FII_BUDGET_FORECAST_C.Main()',
7609: t2 => 'SQLERRMC',
7610: v2 => SQLERRM);
7611:
7612: FII_MESSAGE.Func_Fail(func_name => 'FII_BUDGET_FORECAST_C.Main');
7613:
7614: fii_util.put_line ('Phase: ' || g_phase ||
7615: 'Error: ' || sqlerrm);
7616: