1: PACKAGE BODY POP_CMERGE_REQ as
2: /* $Header: pocmer2b.pls 120.0 2005/06/01 19:48:34 appldev noship $ */
3:
4: /*---------------------------- PRIVATE VARIABLES ----------------------------*/
5: g_count NUMBER := 0;
107: NEW_DELIVER_TO_LOC_LIST DELIVER_TO_LOC_ID_LIST_TYPE; --Bug 4009128
108:
109: BEGIN
110:
111: arp_message.set_line( 'POP_CMERGE_REQ.PO_RL()+' );
112:
113: /*-----------------------------+
114: | PO_REQUISITION_LINES |
115: +-----------------------------*/
274: arp_message.set_token('NUM_ROWS',to_char(g_count));
275:
276: END IF;
277:
278: arp_message.set_line( 'POP_CMERGE_REQ.PO_RL()-' );
279:
280:
281: EXCEPTION
282: when others then
279:
280:
281: EXCEPTION
282: when others then
283: arp_message.set_error( 'POP_CMERGE_REQ.PO_RL');
284: raise;
285:
286: END;
287:
550: /* Bug 2447478 END */
551:
552: BEGIN
553:
554: arp_message.set_line( 'POP_CMERGE_REQ.PO_LA()+' );
555:
556: /*-----------------------------+
557: | PO_LOCATION_ASSOCIATIONS |
558: +-----------------------------*/
894: arp_message.set_token('NUM_ROWS', to_char(g_count)); -- Bug 2447478
895:
896: END IF;
897:
898: arp_message.set_line( 'POP_CMERGE_REQ.PO_LA()-' );
899:
900:
901: EXCEPTION
902: when others then
899:
900:
901: EXCEPTION
902: when others then
903: arp_message.set_error( 'POP_CMERGE_REQ.PO_LA');
904: raise;
905: END;
906:
907:
909:
910: PROCEDURE MERGE (req_id NUMBER, set_num NUMBER, process_mode VARCHAR2) is
911: BEGIN
912:
913: arp_message.set_line( 'POP_CMERGE_REQ.MERGE()+' );
914:
915: PO_RL( req_id, set_num, process_mode );
916: PO_LA( req_id, set_num, process_mode );
917:
914:
915: PO_RL( req_id, set_num, process_mode );
916: PO_LA( req_id, set_num, process_mode );
917:
918: arp_message.set_line( 'POP_CMERGE_REQ.MERGE()-' );
919:
920: END MERGE;
921: end POP_CMERGE_REQ;
917:
918: arp_message.set_line( 'POP_CMERGE_REQ.MERGE()-' );
919:
920: END MERGE;
921: end POP_CMERGE_REQ;