77: g_error_procedure_name := 'distribute_award';
78:
79: --Added debug messages for the bug 12901042
80: IF g_debug = 'Y' THEN
81: gms_error_pkg.gms_debug ('Inside GMS_POR_API2.distribute_award','C');
82: gms_error_pkg.gms_debug (g_error_procedure_name||': START','C');
83: END IF;
84: --End for the bug 12901042
85:
78:
79: --Added debug messages for the bug 12901042
80: IF g_debug = 'Y' THEN
81: gms_error_pkg.gms_debug ('Inside GMS_POR_API2.distribute_award','C');
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();
135: -- End for the bug 12426747
136:
137: --Added debug messages for the bug 12901042
138: IF g_debug = 'Y' THEN
139: gms_error_pkg.gms_debug (g_error_procedure_name||' Before Calling GMS_POR_API.validate_dist_award','C');
140: END IF;
141: --End for the bug 12901042
142:
143: GMS_POR_API.validate_dist_award(P_project_id,
148: l_msg_label ) ;
149:
150: --Added debug messages for the bug 12901042
151: IF g_debug = 'Y' THEN
152: gms_error_pkg.gms_debug (g_error_procedure_name||' After Calling GMS_POR_API.validate_dist_award','C');
153: gms_error_pkg.gms_debug (g_error_procedure_name||' l_status='||l_status,'C');
154: gms_error_pkg.gms_debug (g_error_procedure_name||' l_msg_label='||l_msg_label,'C');
155: END IF;
156: --End for the bug 12901042
149:
150: --Added debug messages for the bug 12901042
151: IF g_debug = 'Y' THEN
152: gms_error_pkg.gms_debug (g_error_procedure_name||' After Calling GMS_POR_API.validate_dist_award','C');
153: gms_error_pkg.gms_debug (g_error_procedure_name||' l_status='||l_status,'C');
154: gms_error_pkg.gms_debug (g_error_procedure_name||' l_msg_label='||l_msg_label,'C');
155: END IF;
156: --End for the bug 12901042
157:
150: --Added debug messages for the bug 12901042
151: IF g_debug = 'Y' THEN
152: gms_error_pkg.gms_debug (g_error_procedure_name||' After Calling GMS_POR_API.validate_dist_award','C');
153: gms_error_pkg.gms_debug (g_error_procedure_name||' l_status='||l_status,'C');
154: gms_error_pkg.gms_debug (g_error_procedure_name||' l_msg_label='||l_msg_label,'C');
155: END IF;
156: --End for the bug 12901042
157:
158: IF l_status <> 'S' THEN
180: END IF ;
181:
182: --Added debug messages for the bug 12901042
183: IF g_debug = 'Y' THEN
184: gms_error_pkg.gms_debug (g_error_procedure_name||' Inserting records in gms_distributions','C');
185: END IF;
186: --End for the bug 12901042
187:
188: --===========================================
219: SYSDATE );
220:
221: --Added debug messages for the bug 12901042
222: IF g_debug = 'Y' THEN
223: gms_error_pkg.gms_debug (g_error_procedure_name||' Before calling GMS_AWARD_DIST_ENG.PROC_DISTRIBUTE_RECORDS','C');
224: END IF;
225: --End for the bug 12901042
226:
227: GMS_AWARD_DIST_ENG.PROC_DISTRIBUTE_RECORDS(l_doc_header_id, 'REQ',l_recs_processed,l_recs_rejected);
228: --process the results of PROC_DISTRIBUTE_RECORDS
229:
230: --Added debug messages for the bug 12901042
231: IF g_debug = 'Y' THEN
232: gms_error_pkg.gms_debug (g_error_procedure_name||' After calling GMS_AWARD_DIST_ENG.PROC_DISTRIBUTE_RECORDS','C');
233: gms_error_pkg.gms_debug (g_error_procedure_name||' l_recs_processed='||l_recs_processed,'C');
234: gms_error_pkg.gms_debug (g_error_procedure_name||' l_recs_rejected='||l_recs_rejected,'C');
235: END IF;
236: --End for the bug 12901042
229:
230: --Added debug messages for the bug 12901042
231: IF g_debug = 'Y' THEN
232: gms_error_pkg.gms_debug (g_error_procedure_name||' After calling GMS_AWARD_DIST_ENG.PROC_DISTRIBUTE_RECORDS','C');
233: gms_error_pkg.gms_debug (g_error_procedure_name||' l_recs_processed='||l_recs_processed,'C');
234: gms_error_pkg.gms_debug (g_error_procedure_name||' l_recs_rejected='||l_recs_rejected,'C');
235: END IF;
236: --End for the bug 12901042
237:
230: --Added debug messages for the bug 12901042
231: IF g_debug = 'Y' THEN
232: gms_error_pkg.gms_debug (g_error_procedure_name||' After calling GMS_AWARD_DIST_ENG.PROC_DISTRIBUTE_RECORDS','C');
233: gms_error_pkg.gms_debug (g_error_procedure_name||' l_recs_processed='||l_recs_processed,'C');
234: gms_error_pkg.gms_debug (g_error_procedure_name||' l_recs_rejected='||l_recs_rejected,'C');
235: END IF;
236: --End for the bug 12901042
237:
238: IF NVL(l_recs_processed,0) > 0 THEN
285: P_error_msg_label :=l_msg_label;
286: END IF;
287:
288: IF g_debug = 'Y' THEN
289: gms_error_pkg.gms_debug (g_error_procedure_name||': END','C');
290: END IF;
291:
292: EXCEPTION
293: WHEN OTHERS THEN
293: WHEN OTHERS THEN
294:
295: --Added debug messages for the bug 12901042
296: IF g_debug = 'Y' THEN
297: gms_error_pkg.gms_debug ('In When OTHERS Exception of distribute_award'|| ' SQLCODE:'|| SQLCODE|| ' SQLERRM:'|| SQLERRM,'C');
298: END IF;
299: --End for the bug 12901042
300:
301: p_status :='U';