4126: RETCODE := X_Err_Code ;
4127: END IF;
4128: END;
4129:
4130: --dbms_output.put_line('Before UPDATE GMS PROJECT FUNDINGS');
4131: BEGIN
4132: --UPDATE GMS_PROJECT_FUNDING with X_Project_Funding_Id and PASS IT OUT NOCOPY
4133: BEGIN
4134: UPDATE GMS_PROJECT_FUNDINGS
4130: --dbms_output.put_line('Before UPDATE GMS PROJECT FUNDINGS');
4131: BEGIN
4132: --UPDATE GMS_PROJECT_FUNDING with X_Project_Funding_Id and PASS IT OUT NOCOPY
4133: BEGIN
4134: UPDATE GMS_PROJECT_FUNDINGS
4135: SET PROJECT_FUNDING_ID = St_Project_Funding_Id
4136: WHERE GMS_PROJECT_FUNDING_ID = X_GMS_Project_Funding_Id;
4137: END;
4138: X_Project_Funding_Id := St_Project_Funding_Id;