[Home] [Help]
19:
20: cursor c_adl_award is
21: select a.award_number
22: from gms_awards_all a,
23: gms_award_distributions adl
24: where adl.award_set_id = X_award_set_id
25: and adl_status = 'A'
26: and adl_line_num = 1
27: and adl.award_id = a.award_id ;
28:
29: cursor c_req_award is
30: select a.award_number
31: from gms_awards_all a,
32: gms_award_distributions adl ,
33: po_req_distributions_all req
34: where adl.award_set_id = req.award_id
35: and req.distribution_id = X_req_distribution_id
36: and adl_status = 'A'
117: where award_number = X_award_number ;
118:
119: cursor c_adl_award is
120: select adl.award_id
121: from gms_award_distributions adl
122: where adl.award_set_id = X_award_set_id
123: and adl_status = 'A'
124: and adl_line_num = 1 ;
125:
124: and adl_line_num = 1 ;
125:
126: cursor c_req_award is
127: select adl.award_id
128: from gms_award_distributions adl ,
129: po_req_distributions_all req
130: where adl.award_set_id = req.award_id
131: and req.distribution_id = X_req_distribution_id
132: and adl_status = 'A'
502: X_event IN VARCHAR2,
503: X_award_set_id IN OUT NOCOPY NUMBER,
504: X_status IN OUT NOCOPY varchar2 ) is
505:
506: x_adl_rec gms_award_distributions%ROWTYPE;
507: l_sponsored_flag varchar2(1) ;
508: l_award_set_id number ;
509: l_status varchar2(1) ;
510:
532: END IF ;
533:
534: IF X_event = 'REMOVE' THEN
535:
536: delete from gms_award_distributions
537: where award_set_id = X_award_set_id ;
538:
539: RETURN ;
540: END IF ;
638: --X_raw_cost IN NUMBER,
639: X_award_set_id OUT NOCOPY NUMBER,
640: X_status IN OUT NOCOPY varchar2 ) is
641:
642: x_adl_rec gms_award_distributions%ROWTYPE;
643: BEGIN
644: -- ==============================================================
645: -- Do not proceed if grants is not enabled for an implementation
646: -- Org.
788:
789: ELSE
790: IF NOT IS_SPONSORED_PROJECT( X_project_id ) THEN
791:
792: delete from gms_award_distributions
793: where award_set_id = x_award_set_id
794: and adl_status = 'A' ;
795:
796: UPDATE PO_REQ_DISTRIBUTIONS_ALL
799:
800: RETURN ;
801: END IF ;
802:
803: update gms_award_distributions
804: set project_id = X_project_id,
805: task_id = X_task_id,
806: award_id = X_award_id
807: where award_set_id = x_award_set_id
850: close c_award_set_id ;
851:
852: IF NVL(x_award_set_id, 0) > 0 THEN
853:
854: delete from gms_award_distributions
855: where award_set_id = x_award_set_id
856: and adl_status = 'A' ;
857:
858: END IF ;
866: -- Start of comments
867: -- API name : delete_adl
868: -- Type : Public
869: -- Pre-reqs : None.
870: -- Function : Deletes a record from gms_award_distributions
871: -- table.
872: -- Parameters :
873: -- IN : p_award_set_id IN NUMBER Required
874: -- .
899: END IF ;
900:
901: IF NVL(p_award_set_id, 0) > 0 THEN
902:
903: delete from gms_award_distributions
904: where award_set_id = p_award_set_id
905: and adl_status = 'A' ;
906:
907: IF SQL%NOTFOUND then