[Home] [Help]
1: PACKAGE BODY INVP_CMERGE_TXHI as
2: /* $Header: invcmtb.pls 120.1.12020000.2 2012/07/09 08:23:12 asugandh ship $ */
3:
4: /*---------------------------- PRIVATE VARIABLES ----------------------------*/
5: g_count NUMBER := 0;
21: FOR UPDATE NOWAIT;
22: mut_cust_flag NUMBER; /*Bug#5574255.*/
23:
24: BEGIN
25: arp_message.set_line( 'INVP_CMERGE_TXHI.INV_MUT()+' );
26: /*Bug#5574255. Modified code in such a way that LOCKING of rows of
27: MTL_UNIT_TRANSACTIONS or updation of customer_id in MTL_UNIT_TRANSACTIONS
28: happens only if there is at least one row in MTL_UNIT_TRANSACTIONS with
29: non-zero and non-null customer_id.*/
86:
87: END IF;
88: END IF;
89:
90: arp_message.set_line( 'INVP_CMERGE_TXHI.INV_MUT()-' );
91:
92:
93: EXCEPTION
94: when others then
91:
92:
93: EXCEPTION
94: when others then
95: arp_message.set_error( 'INVP_CMERGE_TXHI.INV_MUT');
96: raise;
97:
98: END;
99: /*------------------------MTL_MOVEMENT_STATISTICS---------------------------*/
240: arp_message.set_token('NUM_ROWS', to_char(g_count));
241:
242: END IF;
243:
244: arp_message.set_line( 'INVP_CMERGE_TXHI.INV_MMS()-' );
245:
246: EXCEPTION
247: when others then
248: arp_message.set_error( 'INVP_CMERGE_TXHI.INV_MMS');
244: arp_message.set_line( 'INVP_CMERGE_TXHI.INV_MMS()-' );
245:
246: EXCEPTION
247: when others then
248: arp_message.set_error( 'INVP_CMERGE_TXHI.INV_MMS');
249: raise;
250:
251: END;
252: */
255:
256: PROCEDURE MERGE (req_id NUMBER, set_num NUMBER, process_mode VARCHAR2) is
257: BEGIN
258:
259: arp_message.set_line( 'INVP_CMERGE_TXHI.MERGE()+' );
260:
261: INV_MUT( req_id, set_num, process_mode );
262:
263: -- call INV_MMS to do customer merge on mtl_movement_statistics table
266: -- removing the call
267: --- INV_MMS ( req_id, set_num, process_mode );
268: --
269:
270: arp_message.set_line ( 'INVP_CMERGE_TXHI.MERGE()-' );
271:
272: END MERGE;
273: end INVP_CMERGE_TXHI;
269:
270: arp_message.set_line ( 'INVP_CMERGE_TXHI.MERGE()-' );
271:
272: END MERGE;
273: end INVP_CMERGE_TXHI;