DBA Data[Home] [Help]

APPS.GL_FLATTEN_SETUP_DATA dependencies on GL_FLATTEN_SETUP_DATA

Line 1: PACKAGE BODY GL_FLATTEN_SETUP_DATA AS

1: PACKAGE BODY GL_FLATTEN_SETUP_DATA AS
2: /* $Header: gluflsdb.pls 120.17 2005/09/01 00:03:37 spala noship $ */
3:
4:
5:

Line 22: 'GL_FLATTEN_SETUP_DATA.Check_Seg_val_Hierarchy');

18:
19:
20:
21: GL_MESSAGE.Func_Ent(func_name =>
22: 'GL_FLATTEN_SETUP_DATA.Check_Seg_val_Hierarchy');
23:
24: GLSTFL_VS_ID := x_vs_id ;
25: GL_MESSAGE.Write_Log(msg_name => 'Value Set is '||GLSTFL_VS_ID,
26: token_num => 0);

Line 30: result_val := GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info

26: token_num => 0);
27:
28: -- Call routine to check if the value set is a table
29: -- validated set.
30: result_val := GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info
31: (X_Vs_Id => GLSTFL_VS_ID,
32: Table_Name => tab_val_vs,
33: Column_Name => tab_val_vs_col);
34:

Line 42: result_val := GL_FLATTEN_SETUP_DATA.Request_Lock

38:
39: GLSTFL_VS_TAB_NAME := tab_val_vs;
40: GLSTFL_VS_COL_NAME := tab_val_vs_col;
41: -- Request exclusive lock on the value set ID
42: result_val := GL_FLATTEN_SETUP_DATA.Request_Lock
43: (X_Param_Type => 'V',
44: X_Param_Id => GLSTFL_VS_ID,
45: X_Lock_Mode => 6, -- EXCLUSIVE mode
46: X_Keep_Looping => TRUE,

Line 62: result_val := GL_FLATTEN_SETUP_DATA.Release_Lock

58: RAISE Seg_val_Hier_err;
59: END IF;
60:
61: -- Release exclusive lock on the value set ID
62: result_val := GL_FLATTEN_SETUP_DATA.Release_Lock
63: (X_Param_Type => 'V',
64: X_Param_Id => GLSTFL_VS_ID);
65:
66: IF (NOT result_val) THEN

Line 80: 'GL_FLATTEN_SETUP_DATA.Check_Seg_val_Hierarchy');

76: RAISE Seg_val_Hier_err;
77: END IF;
78:
79: GL_MESSAGE.Func_Succ(func_name =>
80: 'GL_FLATTEN_SETUP_DATA.Check_Seg_val_Hierarchy');
81:
82: Return True;
83:
84: EXCEPTION

Line 87: result_val := GL_FLATTEN_SETUP_DATA.Release_Lock

83:
84: EXCEPTION
85: WHEN Seg_val_Hier_err THEn
86: -- Release exclusive lock on the value set ID
87: result_val := GL_FLATTEN_SETUP_DATA.Release_Lock
88: (X_Param_Type => 'V',
89: X_Param_Id => GLSTFL_VS_ID);
90: GL_MESSAGE.Func_Fail(func_name =>
91: 'GL_FLATTEN_SETUP_DATA.Check_Seg_val_Hierarchy');

Line 91: 'GL_FLATTEN_SETUP_DATA.Check_Seg_val_Hierarchy');

87: result_val := GL_FLATTEN_SETUP_DATA.Release_Lock
88: (X_Param_Type => 'V',
89: X_Param_Id => GLSTFL_VS_ID);
90: GL_MESSAGE.Func_Fail(func_name =>
91: 'GL_FLATTEN_SETUP_DATA.Check_Seg_val_Hierarchy');
92: Return False;
93:
94: END Check_Seg_val_Hierarchy;
95:

Line 116: GL_MESSAGE.Func_Ent(func_name => 'GL_FLATTEN_SETUP_DATA.Main');

112: schema VARCHAR2(30):= NULL;
113:
114: BEGIN
115:
116: GL_MESSAGE.Func_Ent(func_name => 'GL_FLATTEN_SETUP_DATA.Main');
117:
118: -- Obtain user ID, login ID and concurrent request ID and initialize
119:
120: -- package variables

Line 144: 'GL_FLATTEN_SETUP_DATA.Main',

140: GL_MESSAGE.Write_Log(msg_name =>'SHRD0181',
141: token_num => 3 ,
142: t1 =>'ROUTINE',
143: v1 =>
144: 'GL_FLATTEN_SETUP_DATA.Main',
145: t2 =>'VARIABLE',
146: v2 =>'Application Profile Debug Mode:',
147: t3 =>'VALUE',
148: v3 => l_dmode_profile);

Line 187: ret_val := GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info

183: GLSTFL_VS_ID := TO_NUMBER(X_Mode_Parameter);
184:
185: -- Call routine to check if the value set is a table
186: -- validated set.
187: ret_val := GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info
188: (X_Vs_Id => GLSTFL_VS_ID,
189: Table_Name => vs_tab_name,
190: Column_Name => vs_col_name);
191:

Line 208: WHERE chart_of_accounts_id = GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID

204: -- segments for this chart of accounts
205: SELECT bal_seg_value_set_id, mgt_seg_value_set_id
206: INTO GLSTFL_BAL_VS_ID, GLSTFL_MGT_VS_ID
207: FROM GL_LEDGERS
208: WHERE chart_of_accounts_id = GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID
209: AND rownum = 1;
210:
211: ELSE
212: -- Invalid Operation mode, error out

Line 247: ret_val := GL_FLATTEN_SETUP_DATA.Request_Lock

243: -- Obtain the appropriate locks depending on the operation mode
244: IF (GLSTFL_OP_MODE IN ('SH', 'FF')) THEN
245:
246: -- Request exclusive lock on the value set ID
247: ret_val := GL_FLATTEN_SETUP_DATA.Request_Lock
248: (X_Param_Type => 'V',
249: X_Param_Id => GLSTFL_VS_ID,
250: X_Lock_Mode => 6, -- EXCLUSIVE mode
251: X_Keep_Looping => TRUE,

Line 261: ret_val := GL_FLATTEN_SETUP_DATA.Request_Lock

257:
258: ELSIF (GLSTFL_OP_MODE IN ('LV', 'LH', 'VH', 'LS', 'AS', 'VS')) THEN
259:
260: -- Request exclusive lock on the chart of accounts ID
261: ret_val := GL_FLATTEN_SETUP_DATA.Request_Lock
262: (X_Param_Type => 'C',
263: X_Param_Id => GLSTFL_COA_ID,
264: X_Lock_Mode => 6, -- EXCLUSIVE mode
265: X_Keep_Looping => TRUE,

Line 298: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);

294: SET request_id = GLSTFL_REQ_ID
295: WHERE status_code is NOT NULL
296: AND ledger_id IN ( SELECT LEDGER_ID FROM GL_LEDGERS
297: WHERE chart_of_accounts_id =
298: GL_FLATTEN_SETUP_DATA.GLSTFL_COA_ID);
299:
300: IF (GLSTFL_Debug) THEN
301: row_count := SQL%ROWCOUNT;
302: GL_MESSAGE.Write_Log(msg_name => 'SHRD0118',

Line 612: GL_MESSAGE.Func_Ent(func_name => 'GL_FLATTEN_SETUP_DATA.MV_Refresh');

608: END IF;
609:
610: -- Perform full refresh on materialized view GL_ACCESS_SET_LEDGERS
611: IF (GLSTFL_OP_MODE NOT IN ('SH', 'FF', 'LV')) THEN
612: GL_MESSAGE.Func_Ent(func_name => 'GL_FLATTEN_SETUP_DATA.MV_Refresh');
613:
614: rval := fnd_installation.get_app_info('SQLGL', dummy1, dummy2, schema);
615:
616: GL_MESSAGE.Write_Log(msg_name =>'SHRD0181',

Line 620: 'GL_FLATTEN_SETUP_DATA.MV_Refresh',

616: GL_MESSAGE.Write_Log(msg_name =>'SHRD0181',
617: token_num => 3 ,
618: t1 =>'ROUTINE',
619: v1 =>
620: 'GL_FLATTEN_SETUP_DATA.MV_Refresh',
621: t2 =>'VARIABLE',
622: v2 =>'schema',
623: t3 =>'VALUE',
624: v3 => schema);

Line 628: GL_MESSAGE.Func_Succ(func_name => 'GL_FLATTEN_SETUP_DATA.MV_Refresh');

624: v3 => schema);
625:
626: DBMS_MVIEW.Refresh('GL_ACCESS_SET_LEDGERS');
627:
628: GL_MESSAGE.Func_Succ(func_name => 'GL_FLATTEN_SETUP_DATA.MV_Refresh');
629:
630: END IF;
631:
632: -- Release all locks

Line 636: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

632: -- Release all locks
633: IF (GLSTFL_OP_MODE IN ('SH', 'FF')) THEN
634:
635: -- Release exclusive lock on the value set ID
636: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
637: (X_Param_Type => 'V',
638: X_Param_Id => GLSTFL_VS_ID);
639:
640: IF (NOT ret_val) THEN

Line 647: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

643:
644: ELSIF (GLSTFL_OP_MODE IN ('LV', 'LH', 'VH', 'LS', 'AS', 'VS')) THEN
645:
646: -- Release exclusive lock on the chart of accounts ID
647: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
648: (X_Param_Type => 'C',
649: X_Param_Id => GLSTFL_COA_ID);
650:
651: IF (NOT ret_val) THEN

Line 657: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

653: END IF;
654:
655: -- Also release the shared lock on both balancing and management
656: -- segments
657: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
658: (X_Param_Type => 'V',
659: X_Param_Id => GLSTFL_BAL_VS_ID);
660:
661: IF (NOT ret_val) THEN

Line 671: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

667:
668: /* To support optional management segment value set */
669: IF (GLSTFL_MGT_VS_ID) IS NOT NULL THEN
670: IF (GLSTFL_BAL_VS_ID <> GLSTFL_MGT_VS_ID) THEN
671: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
672: (X_Param_Type => 'V',
673: X_Param_Id => GLSTFL_MGT_VS_ID);
674:
675: IF (NOT ret_val) THEN

Line 682: GL_MESSAGE.Func_Succ(func_name => 'GL_FLATTEN_SETUP_DATA.Main');

678: END IF;
679: END IF;
680: END IF;
681:
682: GL_MESSAGE.Func_Succ(func_name => 'GL_FLATTEN_SETUP_DATA.Main');
683:
684: ret_val := FND_CONCURRENT.Set_Completion_Status
685: (status => 'COMPLETE', message => NULL);
686:

Line 693: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

689: WHEN GLSTFL_fatal_err THEN
690: -- Release locks
691: IF (GLSTFL_OP_MODE IN ('SH', 'FF')) THEN
692: -- Release exclusive lock on the value set ID
693: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
694: (X_Param_Type => 'V',
695: X_Param_Id => GLSTFL_VS_ID);
696: ELSIF (GLSTFL_OP_MODE IN ('LV', 'LH', 'VH', 'LS', 'AS', 'VS')) THEN
697: -- Release exclusive lock on the chart of accounts ID

Line 698: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

694: (X_Param_Type => 'V',
695: X_Param_Id => GLSTFL_VS_ID);
696: ELSIF (GLSTFL_OP_MODE IN ('LV', 'LH', 'VH', 'LS', 'AS', 'VS')) THEN
697: -- Release exclusive lock on the chart of accounts ID
698: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
699: (X_Param_Type => 'C',
700: X_Param_Id => GLSTFL_COA_ID);
701:
702: -- Also release the shared lock on both balancing and management

Line 704: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

700: X_Param_Id => GLSTFL_COA_ID);
701:
702: -- Also release the shared lock on both balancing and management
703: -- segments
704: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
705: (X_Param_Type => 'V',
706: X_Param_Id => GLSTFL_BAL_VS_ID);
707:
708: -- Relese the second shared lock iff bal_vs_id <> mgt_vs_id

Line 712: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

708: -- Relese the second shared lock iff bal_vs_id <> mgt_vs_id
709: --IF (GLSTFL_BAL_VS_ID <> GLSTFL_MGT_VS_ID) THEN
710: /* To support optional management segment value set */
711: IF (GLSTFL_MGT_VS_ID) IS NOT NULL THEN
712: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
713: (X_Param_Type => 'V',
714: X_Param_Id => GLSTFL_MGT_VS_ID);
715: END IF;
716: END IF;

Line 722: v1 => 'GL_FLATTEN_SETUP_DATA.Main()');

718: GL_MESSAGE.Write_Log
719: (msg_name => 'FLAT0002',
720: token_num => 1,
721: t1 => 'ROUTINE_NAME',
722: v1 => 'GL_FLATTEN_SETUP_DATA.Main()');
723:
724: GL_MESSAGE.Func_Fail(func_name => 'GL_FLATTEN_SETUP_DATA.Main');
725:
726: ret_val := FND_CONCURRENT.Set_Completion_Status

Line 724: GL_MESSAGE.Func_Fail(func_name => 'GL_FLATTEN_SETUP_DATA.Main');

720: token_num => 1,
721: t1 => 'ROUTINE_NAME',
722: v1 => 'GL_FLATTEN_SETUP_DATA.Main()');
723:
724: GL_MESSAGE.Func_Fail(func_name => 'GL_FLATTEN_SETUP_DATA.Main');
725:
726: ret_val := FND_CONCURRENT.Set_Completion_Status
727: (status => 'ERROR', message => NULL);
728:

Line 733: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

729: WHEN OTHERS THEN
730: -- Release locks
731: IF (GLSTFL_OP_MODE IN ('SH', 'FF')) THEN
732: -- Release exclusive lock on the value set ID
733: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
734: (X_Param_Type => 'V',
735: X_Param_Id => GLSTFL_VS_ID);
736: ELSIF (GLSTFL_OP_MODE IN ('LV', 'LH', 'VH', 'LS', 'AS', 'VS')) THEN
737: -- Release exclusive lock on the chart of accounts ID

Line 738: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

734: (X_Param_Type => 'V',
735: X_Param_Id => GLSTFL_VS_ID);
736: ELSIF (GLSTFL_OP_MODE IN ('LV', 'LH', 'VH', 'LS', 'AS', 'VS')) THEN
737: -- Release exclusive lock on the chart of accounts ID
738: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
739: (X_Param_Type => 'C',
740: X_Param_Id => GLSTFL_COA_ID);
741:
742: -- Also release the shared lock on both balancing and management

Line 744: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

740: X_Param_Id => GLSTFL_COA_ID);
741:
742: -- Also release the shared lock on both balancing and management
743: -- segments
744: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
745: (X_Param_Type => 'V',
746: X_Param_Id => GLSTFL_BAL_VS_ID);
747:
748: -- Relese the second shared lock iff bal_vs_id <> mgt_vs_id

Line 752: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock

748: -- Relese the second shared lock iff bal_vs_id <> mgt_vs_id
749: --IF (GLSTFL_BAL_VS_ID <> GLSTFL_MGT_VS_ID) THEN
750: /* To support optional management segment value set */
751: IF (GLSTFL_MGT_VS_ID) IS NOT NULL THEN
752: ret_val := GL_FLATTEN_SETUP_DATA.Release_Lock
753: (X_Param_Type => 'V',
754: X_Param_Id => GLSTFL_MGT_VS_ID);
755: END IF;
756: END IF;

Line 761: v1 => 'GL_FLATTEN_SETUP_DATA.Main()',

757:
758: GL_MESSAGE.Write_Log(msg_name => 'SHRD0203',
759: token_num => 2,
760: t1 => 'FUNCTION',
761: v1 => 'GL_FLATTEN_SETUP_DATA.Main()',
762: t2 => 'SQLERRMC',
763: v2 => SQLERRM);
764:
765: GL_MESSAGE.Func_Fail(func_name => 'GL_FLATTEN_SETUP_DATA.Main');

Line 765: GL_MESSAGE.Func_Fail(func_name => 'GL_FLATTEN_SETUP_DATA.Main');

761: v1 => 'GL_FLATTEN_SETUP_DATA.Main()',
762: t2 => 'SQLERRMC',
763: v2 => SQLERRM);
764:
765: GL_MESSAGE.Func_Fail(func_name => 'GL_FLATTEN_SETUP_DATA.Main');
766:
767: ret_val := FND_CONCURRENT.Set_Completion_Status
768: (status => 'ERROR', message => NULL);
769:

Line 780: GL_FLATTEN_SETUP_DATA.Main(X_Mode => X_Mode,

776: X_Mode VARCHAR2,
777: X_Mode_Parameter VARCHAR2,
778: X_Debug VARCHAR2 DEFAULT NULL) IS
779: BEGIN
780: GL_FLATTEN_SETUP_DATA.Main(X_Mode => X_Mode,
781: X_Mode_Parameter => X_Mode_Parameter,
782: X_Debug => X_Debug);
783: EXCEPTION
784: WHEN OTHERS THEN

Line 799: GL_MESSAGE.Func_Ent(func_name => 'GL_FLATTEN_SETUP_DATA.Clean_Up');

795: ret_val BOOLEAN;
796: GLSTFL_fatal_err EXCEPTION;
797: BEGIN
798:
799: GL_MESSAGE.Func_Ent(func_name => 'GL_FLATTEN_SETUP_DATA.Clean_Up');
800:
801: -- Start cleaning up according to the mode of operation.
802: --
803: -- Here is the list of routines called by each mode:

Line 964: GL_MESSAGE.Func_Succ(func_name => 'GL_FLATTEN_SETUP_DATA.Clean_Up');

960:
961: -- Commit all work
962: FND_CONCURRENT.Af_Commit;
963:
964: GL_MESSAGE.Func_Succ(func_name => 'GL_FLATTEN_SETUP_DATA.Clean_Up');
965:
966: RETURN TRUE;
967:
968: EXCEPTION

Line 974: v1 => 'GL_FLATTEN_SETUP_DATA.Clean_Up()');

970:
971: GL_MESSAGE.Write_Log(msg_name => 'FLAT0002',
972: token_num => 1,
973: t1 => 'ROUTINE_NAME',
974: v1 => 'GL_FLATTEN_SETUP_DATA.Clean_Up()');
975:
976: -- Rollback
977: FND_CONCURRENT.Af_Rollback;
978:

Line 979: GL_MESSAGE.Func_Fail(func_name =>'GL_FLATTEN_SETUP_DATA.Clean_Up');

975:
976: -- Rollback
977: FND_CONCURRENT.Af_Rollback;
978:
979: GL_MESSAGE.Func_Fail(func_name =>'GL_FLATTEN_SETUP_DATA.Clean_Up');
980:
981: RETURN FALSE;
982:
983: END Clean_Up;

Line 996: (func_name => 'GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info');

992: col_name VARCHAR2(240) := NULL;
993: BEGIN
994:
995: GL_MESSAGE.Func_Ent
996: (func_name => 'GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info');
997:
998: -- Execute statement to determine if the value set is table validated
999: BEGIN
1000: SELECT fvt.application_table_name,

Line 1020: (func_name => 'GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info');

1016: Column_Name := col_name;
1017: END IF;
1018:
1019: GL_MESSAGE.Func_Succ
1020: (func_name => 'GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info');
1021:
1022: RETURN TRUE;
1023:
1024: EXCEPTION

Line 1030: v1 => 'GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info()',

1026: GL_MESSAGE.Write_Log
1027: (msg_name => 'SHRD0203',
1028: token_num => 2,
1029: t1 => 'FUNCTION',
1030: v1 => 'GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info()',
1031: t2 => 'SQLERRMC',
1032: v2 => SQLERRM);
1033:
1034: GL_MESSAGE.Func_Fail

Line 1035: (func_name => 'GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info');

1031: t2 => 'SQLERRMC',
1032: v2 => SQLERRM);
1033:
1034: GL_MESSAGE.Func_Fail
1035: (func_name => 'GL_FLATTEN_SETUP_DATA.Get_Value_Set_Info');
1036:
1037: FND_CONCURRENT.Af_Rollback;
1038:
1039: RETURN FALSE;

Line 1061: GL_MESSAGE.Func_Ent(func_name => 'GL_FLATTEN_SETUP_DATA.Request_Lock');

1057: got_lock BOOLEAN := FALSE;
1058: trial_num NUMBER := 0;
1059: BEGIN
1060:
1061: GL_MESSAGE.Func_Ent(func_name => 'GL_FLATTEN_SETUP_DATA.Request_Lock');
1062:
1063: -- generate name for the user defined lock
1064: IF (X_Param_Type = 'C') THEN
1065: lkname := 'GLSTFL_COA_' || TO_CHAR(X_Param_Id);

Line 1133: GL_MESSAGE.Func_Succ(func_name => 'GL_FLATTEN_SETUP_DATA.Request_Lock');

1129: END IF;
1130: END LOOP;
1131:
1132: IF (got_lock) THEN
1133: GL_MESSAGE.Func_Succ(func_name => 'GL_FLATTEN_SETUP_DATA.Request_Lock');
1134:
1135: RETURN TRUE;
1136: ELSE
1137: -- Cannot obtain lock after maximum number of attempts.

Line 1158: v1 => 'GL_FLATTEN_SETUP_DATA.Request_Lock()');

1154: GL_MESSAGE.Write_Log
1155: (msg_name => 'FLAT0002',
1156: token_num => 1,
1157: t1 => 'ROUTINE_NAME',
1158: v1 => 'GL_FLATTEN_SETUP_DATA.Request_Lock()');
1159:
1160: GL_MESSAGE.Func_Fail(func_name => 'GL_FLATTEN_SETUP_DATA.Request_Lock');
1161:
1162: FND_CONCURRENT.Af_Rollback;

Line 1160: GL_MESSAGE.Func_Fail(func_name => 'GL_FLATTEN_SETUP_DATA.Request_Lock');

1156: token_num => 1,
1157: t1 => 'ROUTINE_NAME',
1158: v1 => 'GL_FLATTEN_SETUP_DATA.Request_Lock()');
1159:
1160: GL_MESSAGE.Func_Fail(func_name => 'GL_FLATTEN_SETUP_DATA.Request_Lock');
1161:
1162: FND_CONCURRENT.Af_Rollback;
1163:
1164: RETURN FALSE;

Line 1171: v1 => 'GL_FLATTEN_SETUP_DATA.Request_Lock()',

1167: GL_MESSAGE.Write_Log
1168: (msg_name => 'SHRD0203',
1169: token_num => 2,
1170: t1 => 'FUNCTION',
1171: v1 => 'GL_FLATTEN_SETUP_DATA.Request_Lock()',
1172: t2 => 'SQLERRMC',
1173: v2 => SQLERRM);
1174:
1175: GL_MESSAGE.Func_Fail

Line 1176: (func_name => 'GL_FLATTEN_SETUP_DATA.Request_Lock');

1172: t2 => 'SQLERRMC',
1173: v2 => SQLERRM);
1174:
1175: GL_MESSAGE.Func_Fail
1176: (func_name => 'GL_FLATTEN_SETUP_DATA.Request_Lock');
1177:
1178: FND_CONCURRENT.Af_Rollback;
1179:
1180: RETURN FALSE;

Line 1195: GL_MESSAGE.Func_Ent(func_name => 'GL_FLATTEN_SETUP_DATA.Release_Lock');

1191: lkresult INTEGER;
1192: GLSTFL_fatal_err EXCEPTION;
1193: BEGIN
1194:
1195: GL_MESSAGE.Func_Ent(func_name => 'GL_FLATTEN_SETUP_DATA.Release_Lock');
1196:
1197:
1198: -- generate name for the user defined lock
1199: IF (X_Param_Type = 'C') THEN

Line 1214: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN

1210: v2 => X_Param_Type);
1211:
1212: RAISE GLSTFL_fatal_err;
1213: END IF;
1214: IF (GL_FLATTEN_SETUP_DATA.GLSTFL_Debug) THEN
1215: GL_MESSAGE.Write_Log
1216: (msg_name => 'SHRD0180',
1217: token_num => 2,
1218: t1 => 'ROUTINE',

Line 1232: GL_MESSAGE.Func_Succ(func_name => 'GL_FLATTEN_SETUP_DATA.Release_Lock');

1228: -- release the user named lock
1229: lkresult := DBMS_LOCK.Release(lockhandle => lkhandle);
1230:
1231: IF (lkresult = 0) THEN
1232: GL_MESSAGE.Func_Succ(func_name => 'GL_FLATTEN_SETUP_DATA.Release_Lock');
1233:
1234: RETURN TRUE;
1235: ELSE
1236: -- Errors encountered when releasing the lock

Line 1249: v1 => 'GL_FLATTEN_SETUP_DATA.Release_Lock()');

1245: GL_MESSAGE.Write_Log
1246: (msg_name => 'FLAT0002',
1247: token_num => 1,
1248: t1 => 'ROUTINE_NAME',
1249: v1 => 'GL_FLATTEN_SETUP_DATA.Release_Lock()');
1250:
1251: GL_MESSAGE.Func_Fail
1252: (func_name =>'GL_FLATTEN_SETUP_DATA.Release_Lock');
1253:

Line 1252: (func_name =>'GL_FLATTEN_SETUP_DATA.Release_Lock');

1248: t1 => 'ROUTINE_NAME',
1249: v1 => 'GL_FLATTEN_SETUP_DATA.Release_Lock()');
1250:
1251: GL_MESSAGE.Func_Fail
1252: (func_name =>'GL_FLATTEN_SETUP_DATA.Release_Lock');
1253:
1254: FND_CONCURRENT.Af_Rollback;
1255:
1256: RETURN FALSE;

Line 1263: v1 => 'GL_FLATTEN_SETUP_DATA.Release_Lock()',

1259: GL_MESSAGE.Write_Log
1260: (msg_name => 'SHRD0203',
1261: token_num => 2,
1262: t1 => 'FUNCTION',
1263: v1 => 'GL_FLATTEN_SETUP_DATA.Release_Lock()',
1264: t2 => 'SQLERRMC',
1265: v2 => SQLERRM);
1266:
1267: GL_MESSAGE.Func_Fail

Line 1268: (func_name => 'GL_FLATTEN_SETUP_DATA.Release_Lock');

1264: t2 => 'SQLERRMC',
1265: v2 => SQLERRM);
1266:
1267: GL_MESSAGE.Func_Fail
1268: (func_name => 'GL_FLATTEN_SETUP_DATA.Release_Lock');
1269:
1270: FND_CONCURRENT.Af_Rollback;
1271:
1272: RETURN FALSE;

Line 1292: -- ret_status := GL_FLATTEN_SETUP_DATA.GL_Flatten_Rule( );

1288: --
1289: -- p_event wf_event_t workflow business event
1290: --
1291: -- Example
1292: -- ret_status := GL_FLATTEN_SETUP_DATA.GL_Flatten_Rule( );
1293: --
1294:
1295: FUNCTION GL_FLATTEN_RULE(
1296: p_subscription_guid in raw,

Line 1367: END GL_FLATTEN_SETUP_DATA;

1363:
1364: -- ******************************************************************
1365:
1366:
1367: END GL_FLATTEN_SETUP_DATA;
1368: