[Home] [Help]
39:
40: BEGIN
41: gmd_debug.log_initialize('PLOWE');
42: gmd_debug.put_line('entering get_disposition ');
43: gmd_api_pub.log_message('GMD 1','entering get_disposition ');
44: IF (p_po_num IS NOT NULL) THEN
45: OPEN cur_get_disposition;
46: l_progress := '010';
47: FETCH cur_get_disposition INTO l_disposition;
68: IF cur_get_disposition%ISOPEN THEN
69: CLOSE cur_get_disposition;
70: END IF;
71:
72: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QA_RCV_PUB.GET_DISPOSITION','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_progress);
73: return(l_progress);
74: --return (sqlerrm);
75:
76:
140: IF cur_get_quantity%ISOPEN THEN
141: CLOSE cur_get_quantity;
142: END IF;
143:
144: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QA_RCV_PUB.GET_QUANTITY','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_progress);
145: return(l_progress);
146: --return (sqlerrm);
147:
148: END get_quantity;
255: IF cur_lkup%ISOPEN THEN
256: CLOSE cur_lkup;
257: END IF;
258:
259: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QA_RCV_PUB.GET_INSPECTION_RESULT','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_progress);
260: return(l_progress);
261: --return (sqlerrm);
262:
263: END get_inspection_result;
312:
313: BEGIN
314: gmd_debug.log_initialize('PLOWE');
315: gmd_debug.put_line('entering store_collection_details ');
316: --gmd_api_pub.log_message('GMD 1','entering store_collection_details ');
317: --gmd_api_pub.log_message('GMD 1','PO_NUM = ',p_po_num,'ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_progress);
318:
319: IF (p_po_num IS NOT NULL) THEN
320: OPEN cur_get_id;
313: BEGIN
314: gmd_debug.log_initialize('PLOWE');
315: gmd_debug.put_line('entering store_collection_details ');
316: --gmd_api_pub.log_message('GMD 1','entering store_collection_details ');
317: --gmd_api_pub.log_message('GMD 1','PO_NUM = ',p_po_num,'ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_progress);
318:
319: IF (p_po_num IS NOT NULL) THEN
320: OPEN cur_get_id;
321: l_progress := '010';
375: l_progress := '110';
376: COMMIT;
377: l_progress := '120';
378: end if;
379: gmd_api_pub.log_message('GMD 11','exiting store_collection_details ');
380: exception
381: when others then
382: IF cur_get_plan_id%ISOPEN THEN
383: CLOSE cur_get_plan_id;
385: IF cur_get_id%ISOPEN THEN
386: CLOSE cur_get_id;
387: END IF;
388:
389: gmd_api_pub.log_message('GMD_API_ERROR','PACKAGE','GMD_QA_RCV_PUB.STORE_COLLECTION_DETAILS','ERROR', SUBSTR(SQLERRM,1,100),'POSITION',l_progress);
390: rollback;
391:
392: END store_collection_details ;
393: