90: SELECT
91: TOPBG.CURRENCY_CODE
92: INTO CP_CURRENCY_CODE
93: FROM
94: PSB_BUDGET_GROUPS_V TOPBG,
95: PSB_BUDGET_GROUPS_V REGBG
96: WHERE REGBG.BUDGET_GROUP_ID = BUDGET_GROUP_ID_1
97: AND DECODE(REGBG.ROOT_BUDGET_GROUP_ID
98: ,NULL
91: TOPBG.CURRENCY_CODE
92: INTO CP_CURRENCY_CODE
93: FROM
94: PSB_BUDGET_GROUPS_V TOPBG,
95: PSB_BUDGET_GROUPS_V REGBG
96: WHERE REGBG.BUDGET_GROUP_ID = BUDGET_GROUP_ID_1
97: AND DECODE(REGBG.ROOT_BUDGET_GROUP_ID
98: ,NULL
99: ,REGBG.BUDGET_GROUP_ID