1: PACKAGE BODY OEP_CMERGE_OEDIS AS
2: /* $Header: oedispb.pls 115.1 99/07/16 08:25:32 porting shi $ */
3:
4: /*---------------------------- PRIVATE VARIABLES ----------------------------*/
5: g_count NUMBER := 0;
53: for update nowait;
54:
55: BEGIN
56:
57: arp_message.set_line( 'OEP_CMERGE_OEDIS.OE_DL()+' );
58:
59: /*-----------------------------+
60: | SO_DISCOUNT_LINES |
61: +-----------------------------*/
193: arp_message.set_token( 'NUM_ROWS', to_char(g_count) );
194:
195: END IF;
196:
197: arp_message.set_line( 'OEP_CMERGE_OEDIS.OE_DL()-' );
198:
199:
200: EXCEPTION
201: when others then
198:
199:
200: EXCEPTION
201: when others then
202: arp_message.set_error( 'OEP_CMERGE_OEDIS.OE_DL');
203: raise;
204:
205: END;
206:
234: for update nowait;
235:
236: BEGIN
237:
238: arp_message.set_line( 'OEP_CMERGE_OEDIS.OE_DC()+' );
239:
240: /*-----------------------------+
241: | SO_DISCOUNT_CUSTOMERS |
242: +-----------------------------*/
309: arp_message.set_token( 'NUM_ROWS', to_char(g_count) );
310:
311: END IF;
312:
313: arp_message.set_line( 'OEP_CMERGE_OEDIS.OE_DC()-' );
314:
315:
316: EXCEPTION
317: when others then
314:
315:
316: EXCEPTION
317: when others then
318: arp_message.set_error( 'OEP_CMERGE_OEDIS.OE_DC');
319: raise;
320:
321: END;
322:
327:
328: PROCEDURE MERGE (REQ_ID NUMBER, SET_NUM NUMBER, PROCESS_MODE VARCHAR2) IS
329: BEGIN
330:
331: arp_message.set_line( 'OEP_CMERGE_OEDIS.MERGE()+' );
332:
333: oe_dl( req_id, set_num, process_mode );
334: oe_dc( req_id, set_num, process_mode );
335:
332:
333: oe_dl( req_id, set_num, process_mode );
334: oe_dc( req_id, set_num, process_mode );
335:
336: arp_message.set_line( 'OEP_CMERGE_OEDIS.MERGE()-' );
337:
338: EXCEPTION
339: when others then
340: raise;
339: when others then
340: raise;
341:
342: END MERGE;
343: END OEP_CMERGE_OEDIS;