[Home] [Help]
2594:
2595: -- proceed with deletion
2596:
2597: delete psb_budget_groups where budget_group_id = c1rec.budget_group_id;
2598: delete psb_budget_group_resp where budget_group_id = c1rec.budget_group_id;
2599: if (sql%notfound) then
2600: null;
2601: end if;
2602: delete psb_set_relations where budget_group_id = c1rec.budget_group_id;
2609: end if;
2610: end loop;
2611: -- deleting top level bg
2612: delete psb_budget_groups where budget_group_id = p_budget_group_id;
2613: delete psb_budget_group_resp where budget_group_id = p_budget_group_id;
2614: if (sql%notfound) then
2615: null;
2616: end if;
2617: delete psb_set_relations where budget_group_id = p_budget_group_id;
2710: if (sql%notfound) then
2711: raise FND_API.G_EXC_ERROR ;
2712: end if;
2713:
2714: delete psb_budget_group_resp where budget_group_id = P_BUDGET_GROUP_ID;
2715: if (sql%notfound) then
2716: null;
2717: end if;
2718: --
2776: Bgg_Rec BG_grp_Cur%ROWTYPE;
2777:
2778: Cursor BG_resp_Cur Is
2779: select responsibility_id,responsibility_type
2780: from psb_budget_group_resp
2781: where budget_group_id = p_src_budget_group_id
2782: and responsibility_type = 'R';
2783:
2784: Bgr_Rec BG_resp_Cur%ROWTYPE;
2785:
2786: Cursor BG_Role_Cur Is
2787: select wf_role_name,wf_role_orig_system,wf_role_orig_system_id,
2788: responsibility_type from
2789: psb_budget_group_resp
2790: where budget_group_id = p_src_budget_group_id
2791: and responsibility_type = 'N';
2792:
2793: Bgw_Rec BG_Role_Cur%ROWTYPE;
2960:
2961: if BG_resp_Cur%NOTFOUND then
2962: EXIT;
2963: else
2964: select PSB_BUDGET_GROUP_RESP_S.NEXTVAL
2965: Into l_budget_group_resp_id from DUAL ;
2966:
2967: Insert into psb_budget_group_resp
2968: (budget_group_resp_id,
2963: else
2964: select PSB_BUDGET_GROUP_RESP_S.NEXTVAL
2965: Into l_budget_group_resp_id from DUAL ;
2966:
2967: Insert into psb_budget_group_resp
2968: (budget_group_resp_id,
2969: budget_group_id,
2970: responsibility_id,
2971: responsibility_type,
2999:
3000: if BG_Role_Cur%NOTFOUND then
3001: EXIT;
3002: else
3003: select PSB_BUDGET_GROUP_RESP_S.NEXTVAL
3004: Into l_budget_group_resp_id from DUAL ;
3005:
3006: Insert into psb_budget_group_resp
3007: (budget_group_resp_id,
3002: else
3003: select PSB_BUDGET_GROUP_RESP_S.NEXTVAL
3004: Into l_budget_group_resp_id from DUAL ;
3005:
3006: Insert into psb_budget_group_resp
3007: (budget_group_resp_id,
3008: budget_group_id,
3009: wf_role_name,
3010: wf_role_orig_system,