[Home] [Help]
27: p_unit_price IN NUMBER,
28: p_func_amount IN NUMBER,
29: p_vendor_id IN NUMBER,
30: p_source_type_code IN VARCHAR2,
31: p_award_qty_obj OUT NOCOPY gms_obj_award2,
32: p_status OUT NOCOPY VARCHAR2,
33: p_error_msg_label OUT NOCOPY VARCHAR2 )
34: AS
35: l_doc_header_id NUMBER;
37: l_document_source VARCHAR2(4);
38: l_index INTEGER;
39: l_project_id NUMBER ;
40:
41: l_award_qty_obj gms_obj_award2;
42: l_dist_status VARCHAR2(5);
43: l_status VARCHAR2(1);
44: l_msg_label VARCHAR2(2000);
45: l_recs_processed NUMBER;
70: AND awd.document_type = l_document_source
71: AND awd.dist_status <>'FABA';
72: BEGIN
73: -- Initilaize the Object
74: --l_award_qty_obj :=GMS_OBJ_AWARD2(GMS_TYPE_VARCHAR20(),GMS_TYPE_NUMBER(),
75: -- GMS_TYPE_NUMBER(), GMS_TYPE_NUMBER());
76:
77: g_error_procedure_name := 'distribute_award';
78:
82: gms_error_pkg.gms_debug (g_error_procedure_name||': START','C');
83: END IF;
84: --End for the bug 12901042
85:
86: l_award_qty_obj :=GMS_OBJ_AWARD2.init_gms_obj_award2();
87:
88: l_doc_header_id :=p_doc_header_id ;
89: l_distribution_id :=p_distribution_id ;
90: l_document_source :=p_document_source ;