DBA Data[Home] [Help]

APPS.GL_FLATTEN_LEDGER_SEG_VALS dependencies on GL_FLATTEN_LEDGER_SEG_VALS

Line 1: PACKAGE BODY GL_FLATTEN_LEDGER_SEG_VALS AS

1: PACKAGE BODY GL_FLATTEN_LEDGER_SEG_VALS AS
2: /* $Header: glufllvb.pls 120.9 2006/03/15 22:06:19 spala ship $ */
3:
4: -- ********************************************************************
5: -- FUNCTION

Line 27: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa');

23: l_status_flag VARCHAR2(1);
24: BEGIN
25:
26: GL_MESSAGE.FUNC_ENT (FUNC_NAME =>
27: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa');
28:
29:
30: -- The flow of this routine is as follows
31: -- First clean records with status_code 'I' and update records with

Line 45: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',

41: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
42: TOKEN_NUM => 2,
43: T1 =>'ROUTINE',
44: V1 =>
45: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',
46: T2 =>'ACTION',
47: V2 =>'DELETING RECORDS WITH STATUS CODE I '
48: ||' IN THE TABLE'
49: ||' GL_LEDGER_SEGMENT_VALUES');

Line 77: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',

73: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
74: TOKEN_NUM => 2,
75: T1 =>'ROUTINE',
76: V1 =>
77: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',
78: T2 =>'ACTION',
79: V2 =>'Updating records with status code D'
80: ||' in the table'
81: ||' GL_LEDGER_SEGMENT_VALUES');

Line 109: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',

105: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
106: TOKEN_NUM => 2,
107: T1 =>'ROUTINE',
108: V1 =>
109: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',
110: T2 =>'ACTION',
111: V2 =>'UPDATING START_DATE/END_DATE'
112: ||' IN THE TABLE'
113: ||' GL_LEDGER_SEGMENT_VALUES');

Line 147: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',

143: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
144: TOKEN_NUM => 2,
145: T1 =>'ROUTINE',
146: V1 =>
147: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',
148: T2 =>'ACTION',
149: V2 =>'Updating outdated records'
150: ||' in the table'
151: ||' GL_LEDGER_SEGMENT_VALUES for delete');

Line 185: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',

181: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
182: TOKEN_NUM => 2,
183: T1 =>'ROUTINE',
184: V1 =>
185: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',
186: T2 =>'ACTION',
187: V2 =>'Inserting new record(S) Into'
188: ||' GL_LEDGER_SEGMENT_VALUES'
189: ||' for every record with status code I '

Line 236: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',

232: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
233: TOKEN_NUM => 2,
234: T1 =>'ROUTINE',
235: V1 =>
236: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',
237: T2 =>'ACTION',
238: V2 =>'INSERT NEW RECORD(S) INTO'
239: ||' GL_LEDGER_SEGMENT_VALUES'
240: ||' FOR EVERY RECORD WITH STATUS CODE I '

Line 256: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',

252: GL_MESSAGE.Write_Log(msg_name => 'SHRD0181',
253: token_num => 3,
254: t1 => 'ROUTINE',
255: v1 =>
256: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',
257: t2 => 'VARIABLE',
258: v2 => 'GLSTFL_Bal_Vs_Id',
259: t3 => 'VALUE',
260: v3 =>

Line 267: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',

263: GL_MESSAGE.Write_Log(msg_name => 'SHRD0181',
264: token_num => 3,
265: t1 => 'ROUTINE',
266: v1 =>
267: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',
268: t2 => 'VARIABLE',
269: v2 => 'GLSTFL_Mgt_Vs_Id',
270: t3 => 'VALUE',
271: v3 =>

Line 280: v1 => 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',

276: GL_MESSAGE.Write_Log
277: (msg_name => 'SHRD0180',
278: token_num => 2,
279: t1 => 'ROUTINE',
280: v1 => 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',
281: t2 => 'ACTION',
282: v2 => 'Obtain shared lock on balancing segment...');
283: END IF;
284:

Line 302: v1 => 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',

298: GL_MESSAGE.Write_Log
299: (msg_name => 'SHRD0180',
300: token_num => 2,
301: t1 => 'ROUTINE',
302: v1 => 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',
303: t2 => 'ACTION',
304: v2 => 'Obtain shared lock on management segment...');
305: END IF;
306:

Line 388: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',

384: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
385: TOKEN_NUM => 2,
386: T1 =>'ROUTINE',
387: V1 =>
388: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()',
389: T2 =>'ACTION',
390: V2 =>'Inserting ALC ledger record(S) into'
391: ||' GL_LEDGER_SEGMENT_VALUES'
392: ||' for every source ledger '

Line 463: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa');

459:
460: FND_CONCURRENT.AF_COMMIT; -- COMMIT POINT
461:
462: GL_MESSAGE.FUNC_SUCC(FUNC_NAME =>
463: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa');
464:
465: RETURN TRUE;
466:
467: EXCEPTION

Line 475: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()');

471: GL_MESSAGE.Write_Log(MSG_NAME =>'FLAT0002',
472: TOKEN_NUM => 1,
473: T1 =>'ROUTINE_NAME',
474: V1 =>
475: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()');
476:
477:
478: GL_MESSAGE.FUNC_FAIL(FUNC_NAME =>
479: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa');

Line 479: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa');

475: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa()');
476:
477:
478: GL_MESSAGE.FUNC_FAIL(FUNC_NAME =>
479: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa');
480:
481: FND_CONCURRENT.AF_ROLLBACK; -- ROLLBACK POINT
482:
483: RETURN FALSE;

Line 495: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa');

491: T2 =>'SQLERRMC',
492: V2 => SQLERRM);
493:
494: GL_MESSAGE.FUNC_FAIL(FUNC_NAME =>
495: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Coa');
496:
497: FND_CONCURRENT.AF_ROLLBACK; -- ROLLBACK POINT
498:
499: RETURN FALSE;

Line 526: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set');

522:
523: BEGIN
524:
525: GL_MESSAGE.FUNC_ENT(FUNC_NAME =>
526: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set');
527:
528: BEGIN
529:
530: -- Checking if the value set is used by any ledger(S)

Line 555: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set()');

551: GL_MESSAGE.Write_Log(MSG_NAME =>'FLAT0001',
552: TOKEN_NUM => 1,
553: T1 =>'ROUTINE_NAME',
554: V1 =>
555: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set()');
556:
557: GL_MESSAGE.FUNC_SUCC(FUNC_NAME =>
558: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set');
559:

Line 558: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set');

554: V1 =>
555: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set()');
556:
557: GL_MESSAGE.FUNC_SUCC(FUNC_NAME =>
558: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set');
559:
560: RETURN TRUE;
561:
562: ELSE

Line 571: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set()',

567: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
568: TOKEN_NUM => 2,
569: T1 =>'ROUTINE',
570: V1 =>
571: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set()',
572: T2 =>'ACTION',
573: V2 =>'DELETING RECORDS WITH'
574: ||' STATUS CODE I'
575: ||' IN THE TABLE'

Line 605: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set()',

601: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
602: TOKEN_NUM => 2,
603: T1 =>'ROUTINE',
604: V1 =>
605: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set()',
606: T2 =>'ACTION',
607: V2 =>'UPDATING RECORDS WITH STATUS'
608: ||' CODE D TO NULL IN THE TABLE'
609: ||' GL_LEDGER_SEGMENT_VALUES');

Line 642: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set()',

638: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
639: TOKEN_NUM => 2,
640: T1 =>'ROUTINE',
641: V1 =>
642: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set()',
643: T2 =>'ACTION',
644: V2 =>'UPDATING PARENT-CHILD SEGMENT'
645: ||' VALUE MAPPINGS IN'
646: ||' GL_LEDGER_SEGMENT_VALUES'

Line 695: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set()',

691: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
692: TOKEN_NUM => 2,
693: T1 =>'ROUTINE',
694: V1 =>
695: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set()',
696: T2 =>'ACTION',
697: V2 =>'Insert new segment values'
698: ||' from segment value hierarchy'
699: ||' into GL_LEDGER_SEGMENT_VALUES');

Line 756: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set');

752:
753: FND_CONCURRENT.AF_COMMIT; -- COMMIT Point
754:
755: GL_MESSAGE.FUNC_SUCC(FUNC_NAME =>
756: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set');
757:
758: RETURN TRUE;
759:
760: EXCEPTION

Line 770: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set');

766: T1 =>'ROUTINE_NAME',
767: V1 => 'Fix_By_Value_Set()');
768:
769: GL_MESSAGE.FUNC_FAIL(FUNC_NAME =>
770: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set');
771:
772: FND_CONCURRENT.AF_ROLLBACK; -- ROLLBACK Point
773:
774: RETURN FALSE;

Line 784: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set');

780: T1 =>'EMESSAGE',
781: V1 => SQLERRM);
782:
783: GL_MESSAGE.FUNC_FAIL(FUNC_NAME =>
784: 'GL_FLATTEN_LEDGER_SEG_VALS.Fix_By_Value_Set');
785:
786: FND_CONCURRENT.AF_ROLLBACK;
787:
788: RETURN FALSE;

Line 817: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa');

813:
814: BEGIN
815:
816: GL_MESSAGE.FUNC_ENT(FUNC_NAME =>
817: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa');
818:
819: UPDATE GL_LEDGER_NORM_SEG_VALS
820: SET STATUS_CODE = NULL, request_id = NULL
821: WHERE STATUS_CODE IN ( 'I','U')

Line 898: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa');

894: V2 => 'GL_LEDGER_SEGMENT_VALUES');
895: l_number_of_rows := 0;
896:
897: GL_MESSAGE.FUNC_SUCC(FUNC_NAME =>
898: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa');
899:
900: RETURN TRUE;
901:
902: EXCEPTION

Line 911: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa');

907: T1 =>'EMESSAGE',
908: V1 => SQLERRM);
909:
910: GL_MESSAGE.FUNC_FAIL(FUNC_NAME =>
911: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Coa');
912:
913: FND_CONCURRENT.AF_ROLLBACK; -- ROLLBACK Point
914:
915: RETURN FALSE;

Line 941: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Value_Set');

937:
938: BEGIN
939:
940: GL_MESSAGE.FUNC_ENT(FUNC_NAME =>
941: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Value_Set');
942:
943: UPDATE GL_LEDGER_SEGMENT_VALUES
944: SET STATUS_CODE = NULL
945: WHERE STATUS_CODE = 'I'

Line 983: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Value_Set');

979: V2 => 'GL_LEDGER_SEGMENT_VALUES');
980:
981:
982: GL_MESSAGE.FUNC_SUCC(FUNC_NAME =>
983: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Value_Set');
984:
985: RETURN TRUE;
986:
987: EXCEPTION

Line 997: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Value_Set');

993: T1 =>'EMESSAGE',
994: V1 => SQLERRM);
995:
996: GL_MESSAGE.FUNC_FAIL(FUNC_NAME =>
997: 'GL_FLATTEN_LEDGER_SEG_VALS.Clean_Up_By_Value_Set');
998:
999: FND_CONCURRENT.AF_ROLLBACK; -- ROLLBACK Point
1000:
1001: RETURN FALSE;

Line 1032: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');

1028:
1029: BEGIN
1030:
1031: GL_MESSAGE.FUNC_ENT(FUNC_NAME =>
1032: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');
1033:
1034: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'VH') OR
1035: (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'LV') THEN
1036:

Line 1101: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');

1097:
1098: IF (Cursor_Lv_Ledger%ROWCOUNT >= 1) THEN
1099:
1100: GL_MESSAGE.FUNC_FAIL(FUNC_NAME =>
1101: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');
1102:
1103: RETURN FALSE;
1104:
1105: END IF;

Line 1186: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');

1182:
1183: IF (Cursor_SH_Ledger%ROWCOUNT >= 1) THEN
1184:
1185: GL_MESSAGE.FUNC_FAIL(FUNC_NAME =>
1186: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');
1187:
1188: RETURN FALSE;
1189:
1190: END IF;

Line 1199: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');

1195:
1196: WHEN OTHERS THEN
1197:
1198: GL_MESSAGE.FUNC_FAIL(FUNC_NAME =>
1199: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');
1200:
1201: RETURN FALSE;
1202:
1203: END; -- 'SH' and 'FF' mode PL/SQL block ends

Line 1208: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');

1204:
1205: END IF; -- 'SH' and 'FF' Opearation mode If control block ends here.
1206:
1207: GL_MESSAGE.FUNC_SUCC(FUNC_NAME =>
1208: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');
1209:
1210: RETURN TRUE;
1211:
1212: EXCEPTION

Line 1217: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');

1213:
1214: WHEN NO_DATA_FOUND THEN
1215:
1216: GL_MESSAGE.FUNC_SUCC(FUNC_NAME =>
1217: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');
1218:
1219: RETURN TRUE;
1220:
1221: WHEN OTHERS THEN

Line 1229: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');

1225: T1 =>'EMESSAGE',
1226: V1 => SQLERRM);
1227:
1228: GL_MESSAGE.FUNC_FAIL(FUNC_NAME =>
1229: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');
1230:
1231: RETURN FALSE;
1232:
1233: END ERROR_CHECK;

Line 1235: END GL_FLATTEN_LEDGER_SEG_VALS;

1231: RETURN FALSE;
1232:
1233: END ERROR_CHECK;
1234:
1235: END GL_FLATTEN_LEDGER_SEG_VALS;