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;
23:
24: Function Create_Dimensions
25: Return Boolean
26: Is
27: l_acct_type BSC_DIM_TPLATE.Acct_Type_Tbl_Type;
28: l_account BSC_DIM_TPLATE.Acct_Tbl_Type;
29:
30: l_system_type varchar2(60);
31: is_cross_template boolean;
24: Function Create_Dimensions
25: Return Boolean
26: Is
27: l_acct_type BSC_DIM_TPLATE.Acct_Type_Tbl_Type;
28: l_account BSC_DIM_TPLATE.Acct_Tbl_Type;
29:
30: l_system_type varchar2(60);
31: is_cross_template boolean;
32:
799: EXCEPTION
800: WHEN BSC_DIM_ERROR THEN
801: BSC_MESSAGE.Add(
802: X_Message => l_debug_stmt,
803: X_Source => 'bsc_dim_tplate.create_dimensions',
804: X_Mode => 'I');
805:
806: Return(FALSE);
807:
807:
808: WHEN OTHERS THEN
809: BSC_MESSAGE.Add(
810: X_Message => SQLERRM,
811: X_Source => 'bsc_dim_tplate.create_dimensions',
812: X_Mode => 'I');
813:
814: BSC_MESSAGE.Add(
815: X_Message => l_debug_stmt,
812: X_Mode => 'I');
813:
814: BSC_MESSAGE.Add(
815: X_Message => l_debug_stmt,
816: X_Source => 'bsc_dim_tplate.create_dimensions',
817: x_type => 3,
818: X_Mode => 'I');
819:
820: Return(FALSE);
1057:
1058: WHEN OTHERS THEN
1059: BSC_MESSAGE.Add(
1060: X_Message => SQLERRM,
1061: X_Source => 'bsc_dim_tplate.define_dim_relations',
1062: X_Mode => 'I');
1063:
1064: BSC_MESSAGE.Add(
1065: X_Message => l_debug_stmt,
1071:
1072: End Define_Dim_Relations;
1073:
1074:
1075: END BSC_DIM_TPLATE;