[Home] [Help]
1: PACKAGE BODY BSC_DIM_TPLATE AS
2: /* $Header: BSCUDIMB.pls 120.0 2005/06/01 16:56:48 appldev noship $ */
3:
4: G_Pro_Tbl BSC_TEMPLATE.Project_Tbl_Type;
5: G_DF_Tbl BSC_TEMPLATE.Dfamily_Tbl_Type;
6: G_DC_Tbl BSC_TEMPLATE.Proj_Dim_Cols_Tbl_Type;
7:
8:
1: PACKAGE BODY BSC_DIM_TPLATE AS
2: /* $Header: BSCUDIMB.pls 120.0 2005/06/01 16:56:48 appldev noship $ */
3:
4: G_Pro_Tbl BSC_TEMPLATE.Project_Tbl_Type;
5: G_DF_Tbl BSC_TEMPLATE.Dfamily_Tbl_Type;
6: G_DC_Tbl BSC_TEMPLATE.Proj_Dim_Cols_Tbl_Type;
7:
8:
9: l_num_acct_type number := 3;
2: /* $Header: BSCUDIMB.pls 120.0 2005/06/01 16:56:48 appldev noship $ */
3:
4: G_Pro_Tbl BSC_TEMPLATE.Project_Tbl_Type;
5: G_DF_Tbl BSC_TEMPLATE.Dfamily_Tbl_Type;
6: G_DC_Tbl BSC_TEMPLATE.Proj_Dim_Cols_Tbl_Type;
7:
8:
9: l_num_acct_type number := 3;
10: l_num_account number := 6;
513: ' SELECT '||l_acct_type(i_acct_type).code||' AS CODE,' ||
514: ' LNG.LANGUAGE_CODE AS LANGUAGE,USERENV(''LANG'') AS SOURCE_LANG,'||
515: 'to_char('||l_acct_type(i_acct_type).code||') AS USER_CODE, ' ||
516: ' SUBSTRB(FEM_ALIAS.MEANING,1,20) AS NAME ' ||
517: ' FROM '||BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_ALIAS, ' ||
518: ' FND_LANGUAGES LNG ';
519: -- To get ALL from commun
520: if l_acct_type(i_acct_type).code = 0 then
521: l_sql_stmt := l_sql_stmt || ' WHERE FEM_ALIAS.LOOKUP_TYPE =''BSC_UI_COMMON'' AND FEM_ALIAS.LOOKUP_CODE = ''ALL''';
549: 'SUBSTRB(FEM_ALIAS.MEANING,1,20) AS NAME,'||
550: l_account(i_acct_ind).acct_type||' AS TYP_OF_ACC_CODE, '||
551: l_account(i_acct_ind).acct_type||' AS TYP_OF_ACC_CODE_USR, '||
552: l_account(i_acct_ind).position ||' AS POSITION '||
553: 'FROM '||BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_ALIAS,'||
554: ' FND_LANGUAGES LNG ';
555: -- To get ALL from commun
556: if l_account(i_acct_ind).code = 0 then
557: l_sql_stmt :=l_sql_stmt || ' WHERE FEM_ALIAS.LOOKUP_TYPE =''BSC_UI_COMMON'' AND
578: ' to_char('||l_account(i_acct_ind).code||') AS USER_CODE,' ||
579: ' SUBSTRB(FEM_ALIAS.MEANING,1,20) AS NAME, '||
580: l_account(i_acct_ind).code||' AS ACCOUNT_CODE, '||
581: l_account(i_acct_ind).code||' AS ACCOUNT_CODE_USR'||
582: ' FROM '||BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_ALIAS, ' ||
583: ' FND_LANGUAGES LNG ';
584: -- To get ALL from commun
585: if l_account(i_acct_ind).code = 0 then
586: l_sql_stmt :=l_sql_stmt || ' WHERE FEM_ALIAS.LOOKUP_TYPE =''BSC_UI_COMMON'' AND
897: 'SUBSTR(FEM_DIM.MEANING,1,80) AS HELP, '||
898: 'SUBSTR(FEM_ALL.MEANING,1,15) AS TOTAL_DISP_NAME, '||
899: 'SUBSTR(FEM_COMP.MEANING,1,15) AS COMP_DISP_NAME '||
900: 'FROM '||
901: BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_DIM, '||
902: BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_ALL, '||
903: BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_COMP '||
904: 'WHERE '||
905: 'FEM_DIM.LOOKUP_TYPE =''BSC_TPLATE_TAB_DIM_LEVEL_NAME'' AND '||
898: 'SUBSTR(FEM_ALL.MEANING,1,15) AS TOTAL_DISP_NAME, '||
899: 'SUBSTR(FEM_COMP.MEANING,1,15) AS COMP_DISP_NAME '||
900: 'FROM '||
901: BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_DIM, '||
902: BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_ALL, '||
903: BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_COMP '||
904: 'WHERE '||
905: 'FEM_DIM.LOOKUP_TYPE =''BSC_TPLATE_TAB_DIM_LEVEL_NAME'' AND '||
906: 'FEM_DIM.LOOKUP_CODE = '''||G_Pro_Tbl(i_dimension).Dim_level_id||''' AND '||
899: 'SUBSTR(FEM_COMP.MEANING,1,15) AS COMP_DISP_NAME '||
900: 'FROM '||
901: BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_DIM, '||
902: BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_ALL, '||
903: BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_COMP '||
904: 'WHERE '||
905: 'FEM_DIM.LOOKUP_TYPE =''BSC_TPLATE_TAB_DIM_LEVEL_NAME'' AND '||
906: 'FEM_DIM.LOOKUP_CODE = '''||G_Pro_Tbl(i_dimension).Dim_level_id||''' AND '||
907: 'FEM_ALL.LOOKUP_TYPE =''BSC_UI_COMMON'' AND '||
1012: 'FEM_ALIAS.SOURCE_LANG AS SOURCE_LANG, '||
1013: 'SUBSTR(FEM_ALIAS.MEANING,1,15) AS NAME '||
1014: ',1,SYSDATE,1,SYSDATE '||
1015: 'FROM '||
1016: BSC_TEMPLATE.LOOKUP_VALUES_TABLE||' FEM_ALIAS '||
1017: 'WHERE '||
1018: 'FEM_ALIAS.LOOKUP_TYPE = ''BSC_TPLATE_TAB_DIM_GROUP_NAME'' AND '||
1019: 'FEM_ALIAS.LOOKUP_CODE = '''||G_DF_Tbl(i_dem_family).Dim_group_id||'''';
1020: BSC_APPS.Execute_Immediate(l_sql);
1062: X_Mode => 'I');
1063:
1064: BSC_MESSAGE.Add(
1065: X_Message => l_debug_stmt,
1066: X_Source => 'bsc_template.create_crx_template',
1067: x_type => 3,
1068: X_Mode => 'I');
1069:
1070: Return(FALSE);