DBA Data[Home] [Help]

APPS.GL_FLATTEN_LEDGER_SETS dependencies on GL_MESSAGE

Line 25: GL_MESSAGE.Func_Ent

21: -- 5) Insert new mappings into GL_LEDGER_SET_ASSIGNMENTS
22: -- 6) Check if looping exists in the ledger set assignments. If so,
23: -- error out.
24:
25: GL_MESSAGE.Func_Ent
26: (func_name => 'GL_FLATTEN_LEDGER_SETS.Fix_Explicit_Sets');
27:
28: -- Clean up the GL_LEDGER_SET_ASSIGNMENTS table for any
29: -- unprocessed data left over from previous failed run

Line 32: GL_MESSAGE.Write_Log

28: -- Clean up the GL_LEDGER_SET_ASSIGNMENTS table for any
29: -- unprocessed data left over from previous failed run
30:
31: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
32: GL_MESSAGE.Write_Log
33: (msg_name => 'SHRD0180',
34: token_num => 2,
35: t1 => 'ROUTINE',
36: v1 => 'Fix_Explicit_Sets()',

Line 51: GL_MESSAGE.Write_Log(msg_name => 'SHRD0119',

47: WHERE object_type_code = 'S'
48: AND chart_of_accounts_id = GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
49:
50: row_count := SQL%ROWCOUNT;
51: GL_MESSAGE.Write_Log(msg_name => 'SHRD0119',
52: token_num => 2,
53: t1 => 'NUM',
54: v1 => TO_CHAR(row_count),
55: t2 => 'TABLE',

Line 60: GL_MESSAGE.Write_Log

56: v2 => 'GL_LEDGER_SET_ASSIGNMENTS');
57: row_count := 0;
58:
59: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
60: GL_MESSAGE.Write_Log
61: (msg_name => 'SHRD0180',
62: token_num => 2,
63: t1 => 'ROUTINE',
64: v1 => 'Fix_Explicit_Sets()',

Line 81: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',

77: AND chart_of_accounts_id =
78: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
79:
80: row_count := SQL%ROWCOUNT;
81: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',
82: token_num => 2,
83: t1 => 'NUM',
84: v1 => TO_CHAR(row_count),
85: t2 => 'TABLE',

Line 96: GL_MESSAGE.Write_Log

92: -- We don't need to reset the D record for this table since the
93: -- implicit access sets of ledger sets only contain 1 assignment,
94: -- and that is the ledger set itself.
95: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
96: GL_MESSAGE.Write_Log
97: (msg_name => 'SHRD0180',
98: token_num => 2,
99: t1 => 'ROUTINE',
100: v1 => 'Fix_Explicit_Sets()',

Line 115: GL_MESSAGE.Write_Log(msg_name => 'SHRD0119',

111: WHERE object_type_code = 'S'
112: AND chart_of_accounts_id = GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
113:
114: row_count := SQL%ROWCOUNT;
115: GL_MESSAGE.Write_Log(msg_name => 'SHRD0119',
116: token_num => 2,
117: t1 => 'NUM',
118: v1 => TO_CHAR(row_count),
119: t2 => 'TABLE',

Line 130: GL_MESSAGE.Write_Log

126: -- Populate access information into GL_ACCESS_SET_NORM_ASSIGN
127: -- for all newly created ledger sets.
128:
129: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
130: GL_MESSAGE.Write_Log
131: (msg_name => 'SHRD0180',
132: token_num => 2,
133: t1 => 'ROUTINE',
134: v1 => 'Fix_Explicit_Sets()',

Line 175: GL_MESSAGE.Write_Log(msg_name => 'SHRD0117',

171: AND glasna.segment_value is NULL
172: AND NVL(glasna.status_code, 'X') <> 'D'));
173:
174: row_count := SQL%ROWCOUNT;
175: GL_MESSAGE.Write_Log(msg_name => 'SHRD0117',
176: token_num => 2,
177: t1 => 'NUM',
178: v1 => TO_CHAR(row_count),
179: t2 => 'TABLE',

Line 187: GL_MESSAGE.Write_Log

183: -- Update the record_id column of the newly created records
184: -- in GL_ACCESS_SET_NORM_ASSIGN
185:
186: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
187: GL_MESSAGE.Write_Log
188: (msg_name => 'SHRD0180',
189: token_num => 2,
190: t1 => 'ROUTINE',
191: v1 => 'Fix_Explicit_Sets()',

Line 212: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',

208: AND gll.automatically_created_flag = 'N'
209: AND gll.object_type_code = 'S');
210:
211: row_count := SQL%ROWCOUNT;
212: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',
213: token_num => 2,
214: t1 => 'NUM',
215: v1 => TO_CHAR(row_count),
216: t2 => 'TABLE',

Line 236: GL_MESSAGE.Write_Log

232: -- 3) Restore any mappings that are included via other paths. This
233: -- will be run in a loop until no changes occur.
234:
235: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
236: GL_MESSAGE.Write_Log
237: (msg_name => 'SHRD0180',
238: token_num => 2,
239: t1 => 'ROUTINE',
240: v1 => 'Fix_Explicit_Sets()',

Line 245: GL_MESSAGE.Write_Log

241: t2 => 'ACTION',
242: v2 => 'Marking outdated ledger set/ledger mappings ' ||
243: 'in GL_LEDGER_SET_ASSIGNMENTS for delete...');
244:
245: GL_MESSAGE.Write_Log
246: (msg_name => 'SHRD0180',
247: token_num => 2,
248: t1 => 'ROUTINE',
249: v1 => 'Fix_Explicit_Sets()',

Line 275: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',

271: AND gllsa2.ledger_id = gllsna.ledger_set_id)
272: AND gllsa1.ledger_set_id <> gllsa1.ledger_id;
273:
274: row_count := SQL%ROWCOUNT;
275: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',
276: token_num => 2,
277: t1 => 'NUM',
278: v1 => TO_CHAR(row_count),
279: t2 => 'TABLE',

Line 284: GL_MESSAGE.Write_Log

280: v2 => 'GL_LEDGER_SET_ASSIGNMENTS');
281: row_count := 0;
282:
283: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
284: GL_MESSAGE.Write_Log
285: (msg_name => 'SHRD0180',
286: token_num => 2,
287: t1 => 'ROUTINE',
288: v1 => 'Fix_Explicit_Sets()',

Line 315: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',

311: AND gllsa3.ledger_set_id = gllsna.ledger_id)
312: AND gllsa1.ledger_set_id <> gllsa1.ledger_id;
313:
314: row_count := SQL%ROWCOUNT;
315: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',
316: token_num => 2,
317: t1 => 'NUM',
318: v1 => TO_CHAR(row_count),
319: t2 => 'TABLE',

Line 327: GL_MESSAGE.Write_Log

323: -- Commit changes so far before going into a loop
324: FND_CONCURRENT.Af_Commit;
325:
326: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
327: GL_MESSAGE.Write_Log
328: (msg_name => 'SHRD0180',
329: token_num => 2,
330: t1 => 'ROUTINE',
331: v1 => 'Fix_Explicit_Sets()',

Line 372: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',

368:
369: FND_CONCURRENT.Af_Commit;
370: END LOOP;
371:
372: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',
373: token_num => 2,
374: t1 => 'NUM',
375: v1 => TO_CHAR(row_count),
376: t2 => 'TABLE',

Line 390: GL_MESSAGE.Write_Log

386: -- 3) Insert mappings for all descendants of newly added child ledger
387: -- sets. This will be run in a loop until no changes occur.
388:
389: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
390: GL_MESSAGE.Write_Log
391: (msg_name => 'SHRD0180',
392: token_num => 2,
393: t1 => 'ROUTINE',
394: v1 => 'Fix_Explicit_Sets()',

Line 421: GL_MESSAGE.Write_Log(msg_name => 'SHRD0117',

417: AND gllsa.ledger_id = gll.ledger_id
418: AND NVL(gllsa.status_code, 'X') <> 'D'));
419:
420: row_count := SQL%ROWCOUNT;
421: GL_MESSAGE.Write_Log(msg_name => 'SHRD0117',
422: token_num => 2,
423: t1 => 'NUM',
424: v1 => TO_CHAR(row_count),
425: t2 => 'TABLE',

Line 430: GL_MESSAGE.Write_Log

426: v2 => 'GL_LEDGER_SET_ASSIGNMENTS');
427: row_count := 0;
428:
429: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
430: GL_MESSAGE.Write_Log
431: (msg_name => 'SHRD0180',
432: token_num => 2,
433: t1 => 'ROUTINE',
434: v1 => 'Fix_Explicit_Sets()',

Line 467: GL_MESSAGE.Write_Log(msg_name => 'SHRD0117',

463: AND gllsa2.ledger_id = gllsna.ledger_id
464: AND NVL(gllsa2.status_code, 'X') <> 'D'));
465:
466: row_count := SQL%ROWCOUNT;
467: GL_MESSAGE.Write_Log(msg_name => 'SHRD0117',
468: token_num => 2,
469: t1 => 'NUM',
470: v1 => TO_CHAR(row_count),
471: t2 => 'TABLE',

Line 481: GL_MESSAGE.Write_Log

477:
478: stop_processing := FALSE;
479:
480: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
481: GL_MESSAGE.Write_Log
482: (msg_name => 'SHRD0180',
483: token_num => 2,
484: t1 => 'ROUTINE',
485: v1 => 'Fix_Explicit_Sets()',

Line 530: GL_MESSAGE.Write_Log(msg_name => 'SHRD0117',

526:
527: FND_CONCURRENT.Af_Commit;
528: END LOOP;
529:
530: GL_MESSAGE.Write_Log(msg_name => 'SHRD0117',
531: token_num => 2,
532: t1 => 'NUM',
533: v1 => TO_CHAR(row_count),
534: t2 => 'TABLE',

Line 566: GL_MESSAGE.Write_Log(msg_name => 'FLAT0019',

562: -- report error
563: FND_FILE.put_line(FND_FILE.LOG,
564: 'loop count := ' || TO_CHAR(NVL(SQL%ROWCOUNT,0)));
565:
566: GL_MESSAGE.Write_Log(msg_name => 'FLAT0019',
567: token_num => 0);
568:
569: RAISE GLSTFL_fatal_err;
570: END IF;

Line 573: GL_MESSAGE.Func_Succ

569: RAISE GLSTFL_fatal_err;
570: END IF;
571:
572:
573: GL_MESSAGE.Func_Succ
574: (func_name => 'GL_FLATTEN_LEDGER_SETS.Fix_Explicit_Sets');
575:
576: RETURN TRUE;
577:

Line 582: GL_MESSAGE.Write_Log

578: -- Exception handling
579: EXCEPTION
580: WHEN GLSTFL_fatal_err THEN
581:
582: GL_MESSAGE.Write_Log
583: (msg_name => 'FLAT0002',
584: token_num => 1,
585: t1 => 'ROUTINE_NAME',
586: v1 => 'GL_FLATTEN_LEDGER_SETS.Fix_Exlicit_Sets()');

Line 591: GL_MESSAGE.Func_Fail

587:
588: -- Rollback
589: FND_CONCURRENT.Af_Rollback;
590:
591: GL_MESSAGE.Func_Fail
592: (func_name =>'GL_FLATTEN_LEDGER_SETS.Fix_Explicit_Sets');
593:
594: RETURN FALSE;
595:

Line 597: GL_MESSAGE.Write_Log

593:
594: RETURN FALSE;
595:
596: WHEN OTHERS THEN
597: GL_MESSAGE.Write_Log
598: (msg_name => 'SHRD0203',
599: token_num => 2,
600: t1 => 'FUNCTION',
601: v1 => 'GL_FLATTEN_LEDGER_SETS.Fix_Explicit_Sets()',

Line 608: GL_MESSAGE.Func_Fail

604:
605: -- Rollback
606: FND_CONCURRENT.Af_Rollback;
607:
608: GL_MESSAGE.Func_Fail
609: (func_name => 'GL_FLATTEN_LEDGER_SETS.Fix_Explicit_Sets');
610:
611: RETURN FALSE;
612:

Line 621: GL_MESSAGE.Func_Ent

617: FUNCTION Clean_Up_Explicit_Sets RETURN BOOLEAN IS
618: row_count NUMBER := 0;
619: BEGIN
620:
621: GL_MESSAGE.Func_Ent
622: (func_name => 'GL_FLATTEN_LEDGER_SETS.Clean_Up_Explicit_Sets');
623:
624: -- Run the following statements to clean up both
625: -- GL_LEDGER_SET_NORM_ASSIGN and GL_LEDGER_SET_ASSIGNMENTS

Line 628: GL_MESSAGE.Write_Log

624: -- Run the following statements to clean up both
625: -- GL_LEDGER_SET_NORM_ASSIGN and GL_LEDGER_SET_ASSIGNMENTS
626:
627: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
628: GL_MESSAGE.Write_Log
629: (msg_name => 'SHRD0180',
630: token_num => 2,
631: t1 => 'ROUTINE',
632: v1 => 'Clean_Up_Explicit_Sets()',

Line 650: GL_MESSAGE.Write_Log(msg_name => 'SHRD0119',

646: AND chart_of_accounts_id =
647: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
648:
649: row_count := SQL%ROWCOUNT;
650: GL_MESSAGE.Write_Log(msg_name => 'SHRD0119',
651: token_num => 2,
652: t1 => 'NUM',
653: v1 => TO_CHAR(row_count),
654: t2 => 'TABLE',

Line 659: GL_MESSAGE.Write_Log

655: v2 => 'GL_LEDGER_SET_NORM_ASSIGN');
656: row_count := 0;
657:
658: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
659: GL_MESSAGE.Write_Log
660: (msg_name => 'SHRD0180',
661: token_num => 2,
662: t1 => 'ROUTINE',
663: v1 => 'Clean_Up_Explicit_Sets()',

Line 683: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',

679: AND chart_of_accounts_id =
680: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
681:
682: row_count := SQL%ROWCOUNT;
683: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',
684: token_num => 2,
685: t1 => 'NUM',
686: v1 => TO_CHAR(row_count),
687: t2 => 'TABLE',

Line 692: GL_MESSAGE.Write_Log

688: v2 => 'GL_LEDGER_SET_NORM_ASSIGN');
689: row_count := 0;
690:
691: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
692: GL_MESSAGE.Write_Log
693: (msg_name => 'SHRD0180',
694: token_num => 2,
695: t1 => 'ROUTINE',
696: v1 => 'Clean_Up_Explicit_Sets()',

Line 713: GL_MESSAGE.Write_Log(msg_name => 'SHRD0119',

709: AND chart_of_accounts_id =
710: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
711:
712: row_count := SQL%ROWCOUNT;
713: GL_MESSAGE.Write_Log(msg_name => 'SHRD0119',
714: token_num => 2,
715: t1 => 'NUM',
716: v1 => TO_CHAR(row_count),
717: t2 => 'TABLE',

Line 722: GL_MESSAGE.Write_log

718: v2 => 'GL_LEDGER_SET_ASSIGNMENTS');
719: row_count := 0;
720:
721: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
722: GL_MESSAGE.Write_log
723: (msg_name => 'SHRD0180',
724: token_num => 2,
725: t1 => 'ROUTINE',
726: v1 => 'Clean_Up_Explicit_Sets()',

Line 745: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',

741: AND chart_of_accounts_id =
742: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
743:
744: row_count := SQL%ROWCOUNT;
745: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',
746: token_num => 2,
747: t1 => 'NUM',
748: v1 => TO_CHAR(row_count),
749: t2 => 'TABLE',

Line 752: GL_MESSAGE.Func_Succ

748: v1 => TO_CHAR(row_count),
749: t2 => 'TABLE',
750: v2 => 'GL_LEDGER_SET_ASSIGNMENTS');
751:
752: GL_MESSAGE.Func_Succ
753: (func_name => 'GL_FLATTEN_LEDGER_SETS.Clean_Up_Explicit_Sets');
754:
755: RETURN TRUE;
756:

Line 759: GL_MESSAGE.Write_Log

755: RETURN TRUE;
756:
757: EXCEPTION
758: WHEN OTHERS THEN
759: GL_MESSAGE.Write_Log
760: (msg_name => 'SHRD0203',
761: token_num => 2,
762: t1 => 'FUNCTION',
763: v1 => 'GL_FLATTEN_LEDGER_SETS.Clean_Up_Explicit_Sets()',

Line 767: GL_MESSAGE.Func_Fail

763: v1 => 'GL_FLATTEN_LEDGER_SETS.Clean_Up_Explicit_Sets()',
764: t2 => 'SQLERRMC',
765: v2 => SQLERRM);
766:
767: GL_MESSAGE.Func_Fail
768: (func_name => 'GL_FLATTEN_LEDGER_SETS.Clean_Up_Explicit_Sets');
769:
770: RETURN FALSE;
771: