111: l_project_party_id NUMBER := NULL;
112: l_project_role_id NUMBER := NULL;
113: l_project_role_name VARCHAR2(80):= NULL;
114: l_budget_type pa_budget_types.budget_type%TYPE;
115: l_mark_as_original pa_budget_versions.original_flag%TYPE;
116:
117:
118: l_projects_rec l_projects_csr%ROWTYPE;
119:
445:
446: l_project_id NUMBER := NULL;
447: l_draft_version_id NUMBER := NULL;
448: l_budget_type_code pa_budget_types.budget_type_code%TYPE := NULL;
449: l_mark_as_original pa_budget_versions.original_flag%TYPE := NULL;
450: l_budget_wf_flag VARCHAR2(1) := NULL;
451: l_bgt_intg_flag VARCHAR2(1) := NULL;
452: l_fck_req_flag VARCHAR2(1) := NULL;
453: l_dual_bdgt_cntrl_flag VARCHAR2(1) := NULL;
472: CURSOR ccbgtver_csr
473: IS
474: SELECT b.budget_version_id
475: FROM PA_BUDGETARY_CONTROL_OPTIONS bc,
476: PA_BUDGET_VERSIONS b
477: WHERE bc.project_id = b.project_id
478: AND bc.external_budget_code = 'CC'
479: AND bc.budget_type_code = b.budget_type_code
480: AND b.project_id = l_project_id
1020:
1021: -- Conditionally Populate wf_status_code
1022: IF (p_wf_result_code = 'SUCCESS')
1023: THEN
1024: UPDATE pa_budget_versions
1025: SET budget_status_code = 'W', WF_status_code = NULL
1026: WHERE budget_version_id = p_draft_version_id;
1027: ELSE
1028: --FAILURE: Reject!
1025: SET budget_status_code = 'W', WF_status_code = NULL
1026: WHERE budget_version_id = p_draft_version_id;
1027: ELSE
1028: --FAILURE: Reject!
1029: UPDATE pa_budget_versions
1030: SET budget_status_code = 'W', WF_status_code = 'REJECTED'
1031: WHERE budget_version_id = p_draft_version_id;
1032: END IF;
1033: