[Home] [Help]
21: p_unit_price IN NUMBER,
22: p_func_amount IN NUMBER,
23: p_vendor_id IN NUMBER,
24: p_source_type_code IN VARCHAR2,
25: p_award_qty_obj OUT NOCOPY gms_obj_award2,
26: p_status OUT NOCOPY VARCHAR2,
27: p_error_msg_label OUT NOCOPY VARCHAR2 )
28: AS
29: l_doc_header_id NUMBER;
31: l_document_source VARCHAR2(4);
32: l_index INTEGER;
33: l_project_id NUMBER ;
34:
35: l_award_qty_obj gms_obj_award2;
36: l_dist_status VARCHAR2(5);
37: l_status VARCHAR2(1);
38: l_msg_label VARCHAR2(2000);
39: l_recs_processed NUMBER;
64: AND awd.document_type = l_document_source
65: AND awd.dist_status <>'FABA';
66: BEGIN
67: -- Initilaize the Object
68: --l_award_qty_obj :=GMS_OBJ_AWARD2(GMS_TYPE_VARCHAR20(),GMS_TYPE_NUMBER(),
69: -- GMS_TYPE_NUMBER(), GMS_TYPE_NUMBER());
70: l_award_qty_obj :=GMS_OBJ_AWARD2.init_gms_obj_award2();
71:
72: l_doc_header_id :=p_doc_header_id ;
66: BEGIN
67: -- Initilaize the Object
68: --l_award_qty_obj :=GMS_OBJ_AWARD2(GMS_TYPE_VARCHAR20(),GMS_TYPE_NUMBER(),
69: -- GMS_TYPE_NUMBER(), GMS_TYPE_NUMBER());
70: l_award_qty_obj :=GMS_OBJ_AWARD2.init_gms_obj_award2();
71:
72: l_doc_header_id :=p_doc_header_id ;
73: l_distribution_id :=p_distribution_id ;
74: l_document_source :=p_document_source ;