11: p_Err_Stage OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
12:
13: CURSOR event_exist IS
14: SELECT 1 --COUNT(*) bug 2355648
15: FROM gms_event_attribute gea, gms_installments gi
16: WHERE award_id = p_award_id
17: AND gea.installment_id= gi.installment_id
18: AND rownum <=1;
19: l_event_exist number:=0;
55: ) RETURN BOOLEAN AS
56:
57: CURSOR funding_exist IS
58: SELECT 1 --COUNT(*) bug 2355648
59: FROM gms_summary_project_fundings gspf,gms_installments gi
60: WHERE gi.award_id = p_award_Id
61: AND gspf.installment_id=gi.installment_id
62: AND rownum <=1;
63: l_funding_exist NUMBER:=0;
177: errbuff OUT NOCOPY VARCHAR2 ) IS
178:
179: CURSOR GET_PROJECT_ID IS
180: SELECT DISTINCT PROJECT_ID
181: FROM gms_summary_project_fundings gspf,gms_installments gi
182: WHERE gi.award_id = p_award_id --:gms_awards_v.Award_Id bug 2355648
183: AND gspf.installment_id=gi.installment_id;
184:
185:
189: PROJECT_FUNDING_ID,
190: GMS_PROJECT_FUNDING_ID,
191: PROJECT_ID ,
192: TASK_ID
193: FROM GMS_PROJECT_FUNDINGS GPF ,GMS_INSTALLMENTS GI
194: WHERE GPF.INSTALLMENT_ID=GI.INSTALLMENT_ID
195: AND GI.AWARD_ID= p_award_id ; --:GMS_AWARDS_V.AWARD_ID; 2355648
196: l_err_code number;
197: l_app_name varchar2(10);
504: WHERE award_id=p_award_Id
505: FOR UPDATE NOWAIT;
506:
507: CURSOR lock_installments IS
508: SELECT 1 FROM gms_installments
509: WHERE award_id=p_award_Id
510: FOR UPDATE NOWAIT;
511: --Lock gms_notifiction table
512: BEGIN
514: CLOSE notification_lock;
515: OPEN lock_installments;
516: CLOSE lock_installments;
517: --For bug 2312564 : changed the order of execution of delete to avoid dnagling records in gms_Reports
518: DELETE FROM gms_reports WHERE installment_id in (select installment_id from gms_installments WHERE award_id =p_award_id);
519: DELETE FROM gms_installments WHERE award_id=p_award_id;
520: DELETE FROM gms_default_reports WHERE award_id = p_award_id;
521: DELETE FROM gms_notifications WHERE award_id= p_award_id;
522: DELETE FROM gms_awards_terms_conditions WHERE award_id=p_award_id;
515: OPEN lock_installments;
516: CLOSE lock_installments;
517: --For bug 2312564 : changed the order of execution of delete to avoid dnagling records in gms_Reports
518: DELETE FROM gms_reports WHERE installment_id in (select installment_id from gms_installments WHERE award_id =p_award_id);
519: DELETE FROM gms_installments WHERE award_id=p_award_id;
520: DELETE FROM gms_default_reports WHERE award_id = p_award_id;
521: DELETE FROM gms_notifications WHERE award_id= p_award_id;
522: DELETE FROM gms_awards_terms_conditions WHERE award_id=p_award_id;
523: -- DELETE FROM gms_reports WHERE installment_id in (select installment_id
520: DELETE FROM gms_default_reports WHERE award_id = p_award_id;
521: DELETE FROM gms_notifications WHERE award_id= p_award_id;
522: DELETE FROM gms_awards_terms_conditions WHERE award_id=p_award_id;
523: -- DELETE FROM gms_reports WHERE installment_id in (select installment_id
524: -- from gms_installments WHERE award_id =p_award_id);
525: DELETE FROM gms_personnel WHERE award_id =p_award_id;
526: DELETE FROM gms_reference_numbers WHERE award_id=p_award_id;
527: DELETE FROM gms_awards_contacts WHERE award_id=p_award_id;
528: DELETE FROM pa_credit_receivers WHERE project_id= p_award_Id;