[Home] [Help]
36:
37:
38: -- Cleaning GL_LEDGER_SEGMENT_VALUES before processing
39:
40: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_DEBUG) THEN
41: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
42: TOKEN_NUM => 2,
43: T1 =>'ROUTINE',
44: V1 =>
57: WHERE STATUS_CODE = l_status_flag
58: AND LEDGER_ID IN
59: (SELECT LEDGER_ID
60: FROM GL_LEDGERS
61: WHERE CHART_OF_ACCOUNTS_ID = GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
62:
63: L_Number_Of_Rows := SQL%ROWCOUNT;
64: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0119',
65: TOKEN_NUM =>2,
68: T2 =>'TABLE',
69: V2 =>'GL_LEDGER_SEGMENT_VALUES');
70:
71:
72: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_DEBUG) THEN
73: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
74: TOKEN_NUM => 2,
75: T1 =>'ROUTINE',
76: V1 =>
86: WHERE status_code = 'D'
87: AND ledger_id IN
88: (SELECT ledger_id
89: FROM GL_LEDGERS
90: WHERE chart_of_accounts_id = GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
91:
92: L_Number_Of_Rows := SQL%ROWCOUNT;
93: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0118',
94: TOKEN_NUM =>2,
100: FND_CONCURRENT.AF_COMMIT; -- COMMIT Point
101:
102: -- Update Start_Date/End_Date In GL_LEDGER_SEGMENT_VALUES
103:
104: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_DEBUG) THEN
105: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
106: TOKEN_NUM => 2,
107: T1 =>'ROUTINE',
108: V1 =>
122: (SELECT GLLNSV2.RECORD_ID
123: FROM GL_LEDGERS GLL,
124: GL_LEDGER_NORM_SEG_VALS GLLNSV2
125: WHERE GLL.CHART_OF_ACCOUNTS_ID =
126: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
127: AND GLLNSV2.STATUS_CODE = 'U'
128: AND GLLNSV2.REQUEST_ID =
129: GL_FLATTEN_SETUP_DATA.GLSTFL_REQ_ID
130: AND GLLNSV2.LEDGER_ID = GLL.LEDGER_ID);
125: WHERE GLL.CHART_OF_ACCOUNTS_ID =
126: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
127: AND GLLNSV2.STATUS_CODE = 'U'
128: AND GLLNSV2.REQUEST_ID =
129: GL_FLATTEN_SETUP_DATA.GLSTFL_REQ_ID
130: AND GLLNSV2.LEDGER_ID = GLL.LEDGER_ID);
131:
132: L_Number_Of_Rows := SQL%ROWCOUNT;
133: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0118',
138: V2 =>'GL_LEDGER_SEGMENT_VALUES');
139:
140: -- Marking outdated records in GL_LEDGER_SEGMENT_VALUES for delete.
141:
142: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_DEBUG) THEN
143: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
144: TOKEN_NUM => 2,
145: T1 =>'ROUTINE',
146: V1 =>
157: (SELECT RECORD_ID
158: FROM GL_LEDGERS GLL,
159: GL_LEDGER_NORM_SEG_VALS GLLNSV
160: WHERE GLL.CHART_OF_ACCOUNTS_ID =
161: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
162: AND GLLNSV.STATUS_CODE = 'D'
163: AND GLLNSV.LEDGER_ID = GLL.LEDGER_ID);
164:
165: L_Number_Of_Rows := SQL%ROWCOUNT;
176: -- The following statement inserts a record into GL_LEDGER_SEGMENT_VALUES
177: -- table for every new record in GL_LEDGER_NORM_SEG_VALS with
178: -- status_code 'I' and segment_value_type_code of 'S'.
179:
180: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_DEBUG) THEN
181: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
182: TOKEN_NUM => 2,
183: T1 =>'ROUTINE',
184: V1 =>
200: END_DATE)
201: (SELECT GLLNSV.LEDGER_ID, GLLNSV.SEGMENT_TYPE_CODE,
202: GLLNSV.SEGMENT_VALUE, 'I', GLLNSV.RECORD_ID,
203: SYSDATE,
204: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
205: SYSDATE,
206: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
207: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
208: GLLNSV.START_DATE, GLLNSV.END_DATE
202: GLLNSV.SEGMENT_VALUE, 'I', GLLNSV.RECORD_ID,
203: SYSDATE,
204: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
205: SYSDATE,
206: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
207: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
208: GLLNSV.START_DATE, GLLNSV.END_DATE
209: FROM GL_LEDGERS GLL,
210: GL_LEDGER_NORM_SEG_VALS GLLNSV
203: SYSDATE,
204: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
205: SYSDATE,
206: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
207: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
208: GLLNSV.START_DATE, GLLNSV.END_DATE
209: FROM GL_LEDGERS GLL,
210: GL_LEDGER_NORM_SEG_VALS GLLNSV
211: WHERE GLL.CHART_OF_ACCOUNTS_ID =
208: GLLNSV.START_DATE, GLLNSV.END_DATE
209: FROM GL_LEDGERS GLL,
210: GL_LEDGER_NORM_SEG_VALS GLLNSV
211: WHERE GLL.CHART_OF_ACCOUNTS_ID =
212: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
213: AND GLLNSV.LEDGER_ID = GLL.LEDGER_ID
214: AND GLLNSV.STATUS_CODE = 'I'
215: AND GLL.IMPLICIT_ACCESS_SET_ID IS NOT NULL
216: AND GLLNSV.REQUEST_ID =
213: AND GLLNSV.LEDGER_ID = GLL.LEDGER_ID
214: AND GLLNSV.STATUS_CODE = 'I'
215: AND GLL.IMPLICIT_ACCESS_SET_ID IS NOT NULL
216: AND GLLNSV.REQUEST_ID =
217: GL_FLATTEN_SETUP_DATA.GLSTFL_REQ_ID
218: AND GLLNSV.SEGMENT_VALUE_TYPE_CODE = 'S');
219:
220:
221: L_Number_Of_Rows := SQL%ROWCOUNT;
230: -- The following statement inserts a record into GL_LEDGER_SEGMENT_VALUES
231: -- table for every new record in GL_LEDGER_NORM_SEG_VALS with
232: -- status_code 'I' and segment_value_type_code of 'C'.
233:
234: If (GL_FLATTEN_SETUP_DATA.GLSTFL_DEBUG) THEN
235: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
236: TOKEN_NUM => 2,
237: T1 =>'ROUTINE',
238: V1 =>
247: END IF;
248:
249: -- Obtain a shared Lock on balancing and management value set ids
250:
251: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'VH') OR
252: (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'LV')THEN
253:
254: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
255: GL_MESSAGE.Write_Log(msg_name => 'SHRD0181',
248:
249: -- Obtain a shared Lock on balancing and management value set ids
250:
251: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'VH') OR
252: (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'LV')THEN
253:
254: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
255: GL_MESSAGE.Write_Log(msg_name => 'SHRD0181',
256: token_num => 3,
250:
251: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'VH') OR
252: (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'LV')THEN
253:
254: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
255: GL_MESSAGE.Write_Log(msg_name => 'SHRD0181',
256: token_num => 3,
257: t1 => 'ROUTINE',
258: v1 =>
260: t2 => 'VARIABLE',
261: v2 => 'GLSTFL_Bal_Vs_Id',
262: t3 => 'VALUE',
263: v3 =>
264: TO_CHAR(GL_FLATTEN_SETUP_DATA.GLSTFL_Bal_Vs_Id));
265:
266: GL_MESSAGE.Write_Log(msg_name => 'SHRD0181',
267: token_num => 3,
268: t1 => 'ROUTINE',
271: t2 => 'VARIABLE',
272: v2 => 'GLSTFL_Mgt_Vs_Id',
273: t3 => 'VALUE',
274: v3 =>
275: TO_CHAR(GL_FLATTEN_SETUP_DATA.GLSTFL_Mgt_Vs_Id));
276: END IF;
277:
278: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
279: GL_MESSAGE.Write_Log
274: v3 =>
275: TO_CHAR(GL_FLATTEN_SETUP_DATA.GLSTFL_Mgt_Vs_Id));
276: END IF;
277:
278: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
279: GL_MESSAGE.Write_Log
280: (msg_name => 'SHRD0180',
281: token_num => 2,
282: t1 => 'ROUTINE',
284: t2 => 'ACTION',
285: v2 => 'Obtain shared lock on balancing segment...');
286: END IF;
287:
288: ret_val := GL_FLATTEN_SETUP_DATA.Request_Lock
289: (X_Param_Type => 'V',
290: X_Param_Id =>
291: GL_FLATTEN_SETUP_DATA.GLSTFL_Bal_Vs_Id,
292: X_Lock_Mode => 4, -- SHARED mode
287:
288: ret_val := GL_FLATTEN_SETUP_DATA.Request_Lock
289: (X_Param_Type => 'V',
290: X_Param_Id =>
291: GL_FLATTEN_SETUP_DATA.GLSTFL_Bal_Vs_Id,
292: X_Lock_Mode => 4, -- SHARED mode
293: X_Keep_Looping => TRUE,
294: X_Max_Trys => 5);
295:
296: IF (NOT ret_val) THEN
297: RAISE GLSTFL_fatal_err;
298: END IF;
299:
300: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
301: GL_MESSAGE.Write_Log
302: (msg_name => 'SHRD0180',
303: token_num => 2,
304: t1 => 'ROUTINE',
309:
310: -- If mgt_vs_id is different from bal_vs_id, obtain SHARED lock for
311: -- management segment Value set id
312:
313: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Bal_Vs_Id <>
314: GL_FLATTEN_SETUP_DATA.GLSTFL_Mgt_Vs_Id) THEN
315:
316: ret_val := GL_FLATTEN_SETUP_DATA.Request_Lock
317: (X_Param_Type => 'V',
310: -- If mgt_vs_id is different from bal_vs_id, obtain SHARED lock for
311: -- management segment Value set id
312:
313: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Bal_Vs_Id <>
314: GL_FLATTEN_SETUP_DATA.GLSTFL_Mgt_Vs_Id) THEN
315:
316: ret_val := GL_FLATTEN_SETUP_DATA.Request_Lock
317: (X_Param_Type => 'V',
318: X_Param_Id =>
312:
313: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Bal_Vs_Id <>
314: GL_FLATTEN_SETUP_DATA.GLSTFL_Mgt_Vs_Id) THEN
315:
316: ret_val := GL_FLATTEN_SETUP_DATA.Request_Lock
317: (X_Param_Type => 'V',
318: X_Param_Id =>
319: GL_FLATTEN_SETUP_DATA.GLSTFL_Mgt_Vs_Id,
320: X_Lock_Mode => 4, -- SHARED mode
315:
316: ret_val := GL_FLATTEN_SETUP_DATA.Request_Lock
317: (X_Param_Type => 'V',
318: X_Param_Id =>
319: GL_FLATTEN_SETUP_DATA.GLSTFL_Mgt_Vs_Id,
320: X_Lock_Mode => 4, -- SHARED mode
321: X_Keep_Looping => TRUE,
322: X_Max_Trys => 5);
323:
328: END IF;
329:
330: END IF; -- End for operation mode 'VH'
331:
332: -- These locks will be released in GL_FLATTEN_SETUP_DATA.Main()package
333: -- after successfull completion of the clean up routines.
334:
335: INSERT INTO GL_LEDGER_SEGMENT_VALUES
336: (LEDGER_ID, SEGMENT_TYPE_CODE,SEGMENT_VALUE, STATUS_CODE,
339: END_DATE)
340: (SELECT GLLNSV.LEDGER_ID, GLLNSV.SEGMENT_TYPE_CODE,
341: GLSVH.CHILD_FLEX_VALUE, 'I', GLLNSV.RECORD_ID,
342: SYSDATE,
343: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
344: SYSDATE,
345: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
346: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
347: GLLNSV.START_DATE, GLLNSV.END_DATE
341: GLSVH.CHILD_FLEX_VALUE, 'I', GLLNSV.RECORD_ID,
342: SYSDATE,
343: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
344: SYSDATE,
345: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
346: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
347: GLLNSV.START_DATE, GLLNSV.END_DATE
348: FROM GL_LEDGERS GLL,
349: GL_LEDGER_NORM_SEG_VALS GLLNSV,
342: SYSDATE,
343: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
344: SYSDATE,
345: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
346: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
347: GLLNSV.START_DATE, GLLNSV.END_DATE
348: FROM GL_LEDGERS GLL,
349: GL_LEDGER_NORM_SEG_VALS GLLNSV,
350: GL_SEG_VAL_HIERARCHIES GLSVH
348: FROM GL_LEDGERS GLL,
349: GL_LEDGER_NORM_SEG_VALS GLLNSV,
350: GL_SEG_VAL_HIERARCHIES GLSVH
351: WHERE GLL.CHART_OF_ACCOUNTS_ID =
352: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
353: AND GLLNSV.LEDGER_ID = GLL.LEDGER_ID
354: AND GLLNSV.STATUS_CODE = 'I'
355: AND GLLNSV.REQUEST_ID =
356: GL_FLATTEN_SETUP_DATA.GLSTFL_REQ_ID
352: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
353: AND GLLNSV.LEDGER_ID = GLL.LEDGER_ID
354: AND GLLNSV.STATUS_CODE = 'I'
355: AND GLLNSV.REQUEST_ID =
356: GL_FLATTEN_SETUP_DATA.GLSTFL_REQ_ID
357: AND GLLNSV.SEGMENT_VALUE_TYPE_CODE = 'C'
358: AND GLSVH.FLEX_VALUE_SET_ID =
359: DECODE(GLLNSV.SEGMENT_TYPE_CODE,
360: 'B',GLL.BAL_SEG_VALUE_SET_ID,
382: -- Update and delete of these rows will be taken care by the original
383: -- logic in FIX_BY_COA() of this package.
384:
385:
386: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_DEBUG) THEN
387: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
388: TOKEN_NUM => 2,
389: T1 =>'ROUTINE',
390: V1 =>
404: END_DATE)
405: (SELECT glr.target_ledger_id,gllsv.segment_type_code,
406: gllsv.segment_value, 'I', gllsv.parent_record_id,
407: sysdate,
408: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
409: sysdate,
410: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
411: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
412: gllsv.start_date, gllsv.end_date
406: gllsv.segment_value, 'I', gllsv.parent_record_id,
407: sysdate,
408: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
409: sysdate,
410: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
411: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
412: gllsv.start_date, gllsv.end_date
413: FROM GL_LEDGERS gll
414: ,GL_LEDGER_RELATIONSHIPS glr
407: sysdate,
408: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
409: sysdate,
410: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
411: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
412: gllsv.start_date, gllsv.end_date
413: FROM GL_LEDGERS gll
414: ,GL_LEDGER_RELATIONSHIPS glr
415: ,GL_LEDGER_SEGMENT_VALUES gllsv
413: FROM GL_LEDGERS gll
414: ,GL_LEDGER_RELATIONSHIPS glr
415: ,GL_LEDGER_SEGMENT_VALUES gllsv
416: WHERE gll.chart_of_accounts_id =
417: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
418: AND (gll.bal_seg_value_option_code = 'I' OR
419: gll.mgt_seg_value_option_code = 'I')
420: AND gll.alc_ledger_type_code = 'TARGET'
421: AND glr.target_ledger_id = gll.ledger_id
537: WHERE EXISTS
538: (SELECT 1
539: FROM GL_LEDGERS GLL
540: WHERE GLL.BAL_SEG_VALUE_SET_ID =
541: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
542: OR GLL.MGT_SEG_VALUE_SET_ID =
543: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
544: AND ROWNUM = 1);
545:
539: FROM GL_LEDGERS GLL
540: WHERE GLL.BAL_SEG_VALUE_SET_ID =
541: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
542: OR GLL.MGT_SEG_VALUE_SET_ID =
543: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
544: AND ROWNUM = 1);
545:
546: EXCEPTION
547:
565: ELSE
566:
567: -- Cleaning GL_LEDGER_SEGMENT_VALUES before processing
568:
569: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_DEBUG) THEN
570: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
571: TOKEN_NUM => 2,
572: T1 =>'ROUTINE',
573: V1 =>
585: AND LEDGER_ID IN
586: (SELECT LEDGER_ID
587: FROM GL_LEDGERS
588: WHERE BAL_SEG_VALUE_SET_ID =
589: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
590: OR MGT_SEG_VALUE_SET_ID =
591: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID);
592:
593: L_Number_Of_Rows := SQL%ROWCOUNT;
587: FROM GL_LEDGERS
588: WHERE BAL_SEG_VALUE_SET_ID =
589: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
590: OR MGT_SEG_VALUE_SET_ID =
591: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID);
592:
593: L_Number_Of_Rows := SQL%ROWCOUNT;
594: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0119',
595: TOKEN_NUM =>2,
599: V2 =>'GL_LEDGER_SEGMENT_VALUES');
600:
601: -- Cleaning GL_LEDGER_SEGMENT_VALUES before processing
602:
603: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_DEBUG) THEN
604: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
605: TOKEN_NUM => 2,
606: T1 =>'ROUTINE',
607: V1 =>
618: AND LEDGER_ID IN
619: (SELECT LEDGER_ID
620: FROM GL_LEDGERS
621: WHERE BAL_SEG_VALUE_SET_ID =
622: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
623: OR MGT_SEG_VALUE_SET_ID =
624: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID);
625:
626:
620: FROM GL_LEDGERS
621: WHERE BAL_SEG_VALUE_SET_ID =
622: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
623: OR MGT_SEG_VALUE_SET_ID =
624: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID);
625:
626:
627: L_Number_Of_Rows := SQL%ROWCOUNT;
628: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0118',
636:
637: -- Marking Parent-Child segment value mappings in
638: -- GL_LEDGER_SEGMENT_VALUES for delete
639:
640: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_DEBUG) THEN
641: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
642: TOKEN_NUM => 2,
643: T1 =>'ROUTINE',
644: V1 =>
659: FROM GL_SEG_VAL_HIERARCHIES GLSVH,
660: GL_LEDGER_NORM_SEG_VALS GLLNSV,
661: GL_LEDGERS GLL
662: WHERE GLSVH.FLEX_VALUE_SET_ID =
663: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
664: AND GLSVH.STATUS_CODE = 'D'
665: AND GLLNSV.SEGMENT_VALUE_TYPE_CODE = 'C'
666: AND GLLNSV.STATUS_CODE IS NULL
667: AND GLLNSV.SEGMENT_VALUE =
668: GLSVH.PARENT_FLEX_VALUE
669: AND GLL.LEDGER_ID = GLLNSV.LEDGER_ID
670: AND (
671: ( GLL.BAL_SEG_VALUE_SET_ID =
672: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
673: AND GLLNSV.SEGMENT_TYPE_CODE = 'B')
674: OR
675: ( GLL.MGT_SEG_VALUE_SET_ID =
676: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
672: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
673: AND GLLNSV.SEGMENT_TYPE_CODE = 'B')
674: OR
675: ( GLL.MGT_SEG_VALUE_SET_ID =
676: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
677: AND GLLNSV.SEGMENT_TYPE_CODE = 'M')));
678:
679: L_Number_Of_Rows := SQL%ROWCOUNT;
680: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0118',
688:
689: -- Inserting New Parent-Child segment value mappings into
690: -- GL_LEDGER_SEGMENT_VALUES.
691:
692: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_DEBUG) THEN
693:
694: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0180',
695: TOKEN_NUM => 2,
696: T1 =>'ROUTINE',
711: END_DATE)
712: (SELECT GLLNSV.LEDGER_ID, GLLNSV.SEGMENT_TYPE_CODE,
713: GLSVH.CHILD_FLEX_VALUE, 'I', GLLNSV.RECORD_ID,
714: SYSDATE,
715: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
716: SYSDATE,
717: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
718: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
719: GLLNSV.START_DATE, GLLNSV.END_DATE
713: GLSVH.CHILD_FLEX_VALUE, 'I', GLLNSV.RECORD_ID,
714: SYSDATE,
715: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
716: SYSDATE,
717: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
718: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
719: GLLNSV.START_DATE, GLLNSV.END_DATE
720: FROM GL_SEG_VAL_HIERARCHIES GLSVH,
721: GL_LEDGER_NORM_SEG_VALS GLLNSV,
714: SYSDATE,
715: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
716: SYSDATE,
717: GL_FLATTEN_SETUP_DATA.GLSTFL_USER_ID,
718: GL_FLATTEN_SETUP_DATA.GLSTFL_LOGIN_ID,
719: GLLNSV.START_DATE, GLLNSV.END_DATE
720: FROM GL_SEG_VAL_HIERARCHIES GLSVH,
721: GL_LEDGER_NORM_SEG_VALS GLLNSV,
722: GL_LEDGERS GLL
720: FROM GL_SEG_VAL_HIERARCHIES GLSVH,
721: GL_LEDGER_NORM_SEG_VALS GLLNSV,
722: GL_LEDGERS GLL
723: WHERE GLSVH.FLEX_VALUE_SET_ID =
724: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
725: AND GLSVH.STATUS_CODE = 'I'
726: AND GLLNSV.SEGMENT_VALUE_TYPE_CODE = 'C'
727: AND GLLNSV.STATUS_CODE IS NULL
728: AND GLLNSV.SEGMENT_VALUE = GLSVH.PARENT_FLEX_VALUE
728: AND GLLNSV.SEGMENT_VALUE = GLSVH.PARENT_FLEX_VALUE
729: AND GLL.LEDGER_ID = GLLNSV.LEDGER_ID
730: AND (
731: (GLL.BAL_SEG_VALUE_SET_ID =
732: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
733: AND GLLNSV.SEGMENT_TYPE_CODE = 'B')
734: OR
735: (GLL.MGT_SEG_VALUE_SET_ID =
736: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
732: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
733: AND GLLNSV.SEGMENT_TYPE_CODE = 'B')
734: OR
735: (GLL.MGT_SEG_VALUE_SET_ID =
736: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
737: AND GLLNSV.SEGMENT_TYPE_CODE = 'M')));
738:
739:
740: L_Number_Of_Rows := SQL%ROWCOUNT;
822: -- Bug 8265487 -- Should update STATUS_CODE only for completed ledgers
823: UPDATE GL_LEDGER_NORM_SEG_VALS
824: SET STATUS_CODE = NULL, request_id = NULL
825: WHERE STATUS_CODE IN ( 'I','U')
826: AND request_id = GL_FLATTEN_SETUP_DATA.GLSTFL_REQ_ID
827: AND LEDGER_ID IN (SELECT LEDGER_ID FROM GL_LEDGERS
828: WHERE CHART_OF_ACCOUNTS_ID = GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
829: AND IMPLICIT_ACCESS_SET_ID IS NOT NULL);
830:
824: SET STATUS_CODE = NULL, request_id = NULL
825: WHERE STATUS_CODE IN ( 'I','U')
826: AND request_id = GL_FLATTEN_SETUP_DATA.GLSTFL_REQ_ID
827: AND LEDGER_ID IN (SELECT LEDGER_ID FROM GL_LEDGERS
828: WHERE CHART_OF_ACCOUNTS_ID = GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
829: AND IMPLICIT_ACCESS_SET_ID IS NOT NULL);
830:
831:
832: /* AND LEDGER_ID IN
832: /* AND LEDGER_ID IN
833: (SELECT LEDGER_ID
834: FROM GL_LEDGERS
835: WHERE CHART_OF_ACCOUNTS_ID =
836: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID); */
837:
838: L_Number_Of_Rows := SQL%ROWCOUNT;
839: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0118',
840: TOKEN_NUM =>2,
851: AND LEDGER_ID IN
852: (SELECT LEDGER_ID
853: FROM GL_LEDGERS
854: WHERE CHART_OF_ACCOUNTS_ID =
855: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
856:
857: L_Number_Of_Rows := SQL%ROWCOUNT;
858: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0118',
859: TOKEN_NUM =>2,
872: AND LEDGER_ID IN
873: (SELECT LEDGER_ID
874: FROM GL_LEDGERS
875: WHERE CHART_OF_ACCOUNTS_ID =
876: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
877:
878: L_Number_Of_Rows := SQL%ROWCOUNT;
879: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0119',
880: TOKEN_NUM => 2,
890: AND LEDGER_ID IN
891: (SELECT LEDGER_ID
892: FROM GL_LEDGERS
893: WHERE CHART_OF_ACCOUNTS_ID =
894: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
895:
896: L_Number_Of_Rows := SQL%ROWCOUNT;
897: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0119',
898: TOKEN_NUM => 2,
954: AND LEDGER_ID IN
955: (SELECT LEDGER_ID
956: FROM GL_LEDGERS
957: WHERE BAL_SEG_VALUE_SET_ID =
958: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
959: OR MGT_SEG_VALUE_SET_ID =
960: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID);
961:
962: L_Number_Of_Rows := SQL%ROWCOUNT;
956: FROM GL_LEDGERS
957: WHERE BAL_SEG_VALUE_SET_ID =
958: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
959: OR MGT_SEG_VALUE_SET_ID =
960: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID);
961:
962: L_Number_Of_Rows := SQL%ROWCOUNT;
963: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0118',
964: TOKEN_NUM =>2,
973: AND LEDGER_ID IN
974: (SELECT LEDGER_ID
975: FROM GL_LEDGERS
976: WHERE BAL_SEG_VALUE_SET_ID =
977: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
978: OR MGT_SEG_VALUE_SET_ID =
979: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID);
980:
981: L_Number_Of_Rows := SQL%ROWCOUNT;
975: FROM GL_LEDGERS
976: WHERE BAL_SEG_VALUE_SET_ID =
977: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
978: OR MGT_SEG_VALUE_SET_ID =
979: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID);
980:
981: L_Number_Of_Rows := SQL%ROWCOUNT;
982: GL_MESSAGE.Write_Log(MSG_NAME =>'SHRD0119',
983: TOKEN_NUM => 2,
1038:
1039: GL_MESSAGE.FUNC_ENT(FUNC_NAME =>
1040: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');
1041:
1042: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'VH') OR
1043: (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'LV') THEN
1044:
1045: -- Separate PL/SQL block for opearation Mode 'VH'
1046:
1039: GL_MESSAGE.FUNC_ENT(FUNC_NAME =>
1040: 'GL_FLATTEN_LEDGER_SEG_VALS.Error_Check');
1041:
1042: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'VH') OR
1043: (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'LV') THEN
1044:
1045: -- Separate PL/SQL block for opearation Mode 'VH'
1046:
1047: DECLARE
1051: FROM GL_LEDGERS GLL,
1052: GL_LEDGER_SEGMENT_VALUES GLLSV1,
1053: GL_LEDGER_SEGMENT_VALUES GLLSV2
1054: WHERE GLL.CHART_OF_ACCOUNTS_ID =
1055: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
1056: AND GLLSV1.LEDGER_ID = GLL.LEDGER_ID
1057: AND GLLSV1.LEDGER_ID = GLLSV2.LEDGER_ID
1058: AND GLLSV1.SEGMENT_TYPE_CODE = GLLSV2.SEGMENT_TYPE_CODE
1059: AND NVL(GLLSV1.STATUS_CODE,'X') <>'D'
1123: END; -- VH mode opearation PL/SQL block ends
1124:
1125: END IF; -- VH Opearation mode If control block ends here.
1126:
1127: IF ((GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'FF')
1128: OR (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'SH')) THEN
1129:
1130: DECLARE
1131:
1124:
1125: END IF; -- VH Opearation mode If control block ends here.
1126:
1127: IF ((GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'FF')
1128: OR (GL_FLATTEN_SETUP_DATA.GLSTFL_OP_MODE = 'SH')) THEN
1129:
1130: DECLARE
1131:
1132: CURSOR Cursor_SH_Ledger IS
1134: FROM GL_LEDGERS GLL,
1135: GL_LEDGER_SEGMENT_VALUES GLLSV1,
1136: GL_LEDGER_SEGMENT_VALUES GLLSV2
1137: WHERE ( GLL.BAL_SEG_VALUE_SET_ID =
1138: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
1139: OR GLL.MGT_SEG_VALUE_SET_ID =
1140: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID)
1141: AND GLLSV1.LEDGER_ID = GLL.LEDGER_ID
1142: AND GLLSV1.LEDGER_ID = GLLSV2.LEDGER_ID
1136: GL_LEDGER_SEGMENT_VALUES GLLSV2
1137: WHERE ( GLL.BAL_SEG_VALUE_SET_ID =
1138: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID
1139: OR GLL.MGT_SEG_VALUE_SET_ID =
1140: GL_FLATTEN_SETUP_DATA.GLSTFL_VS_ID)
1141: AND GLLSV1.LEDGER_ID = GLL.LEDGER_ID
1142: AND GLLSV1.LEDGER_ID = GLLSV2.LEDGER_ID
1143: AND GLLSV1.SEGMENT_TYPE_CODE = GLLSV2.SEGMENT_TYPE_CODE
1144: AND NVL(GLLSV1.STATUS_CODE,'X') <>'D'