APPS.M4R_7B1_WSM_IN dependencies on M4R_7B1_WSM_IN

Line 1: PACKAGE BODY M4R_7B1_WSM_IN AS

1: PACKAGE BODY M4R_7B1_WSM_IN AS
2: /* $Header: M4R7B1OB.pls 120.10 2006/10/04 13:45:54 bsaratna noship $ */
3:
4:
5: -- Procedure : UPDATE_STATUS_FLAG

Line 3144: CURSOR M4R_7B1_WSM_INV_MERGE_C1 (l_msg_id NUMBER,l_lot_number VARCHAR2,l_sub_inv VARCHAR2)

3140: x_resultout OUT NOCOPY VARCHAR2) AS
3141:
3142:
3143:
3144: CURSOR M4R_7B1_WSM_INV_MERGE_C1 (l_msg_id NUMBER,l_lot_number VARCHAR2,l_sub_inv VARCHAR2)
3145: IS
3146: SELECT *
3147: FROM M4R_WSM_DWIP_HDR_STAGING H
3148: WHERE h.msg_id = l_msg_id

Line 3157: CURSOR M4R_7B1_WSM_INV_SPLIT_C1 (l_msg_id NUMBER,l_lot_number VARCHAR2,l_sub_inv VARCHAR2)

3153: AND h.operation_seq_num IS NULL
3154: AND h.status_flag = 'V';
3155:
3156:
3157: CURSOR M4R_7B1_WSM_INV_SPLIT_C1 (l_msg_id NUMBER,l_lot_number VARCHAR2,l_sub_inv VARCHAR2)
3158: IS
3159: SELECT h.hdr_id,h.transaction_date,h.operation_seq_num,h.lot_number,h.prev_lot_number,h.prev_lot_uom,h.prev_lot_qty,
3160: h.primary_item_code,h.primary_item_revision,h.starting_lot_item_code,h.alt_routing_designator,h.from_sub_inventory,
3161: h.to_sub_inventory,q.lot_uom,q.lot_qty,h.transfer_to_org,h.status_flag

Line 3307: FOR l_rec IN M4R_7B1_WSM_INV_SPLIT_C1(p_hdr_rec.msg_id,p_hdr_rec.prev_lot_number,p_hdr_rec.from_sub_inventory) LOOP

3303: wf_engine.SetItemAttrText('M4R7B1OI',p_item_key,'TRANSACTION_TYPE','INV_LOT_TXN');
3304:
3305: l_parent_id := l_trx_if_id;
3306:
3307: FOR l_rec IN M4R_7B1_WSM_INV_SPLIT_C1(p_hdr_rec.msg_id,p_hdr_rec.prev_lot_number,p_hdr_rec.from_sub_inventory) LOOP
3308:
3309: IF l_rec.status_flag <> 'V' THEN
3310:
3311: ROLLBACK TO BEFORE_INSERT;

Line 3469: FOR l_rec IN M4R_7B1_WSM_INV_MERGE_C1(p_hdr_rec.msg_id,p_hdr_rec.lot_number,p_hdr_rec.from_sub_inventory) LOOP

3465: wf_engine.SetItemAttrText('M4R7B1OI',p_item_key,'LOT_QTY',p_qty_rec.lot_qty);
3466: wf_engine.SetItemAttrText('M4R7B1OI',p_item_key,'TRX_INTERFACE_ID',l_trx_if_id);
3467: wf_engine.SetItemAttrText('M4R7B1OI',p_item_key,'TRANSACTION_TYPE','INV_LOT_TXN');
3468:
3469: FOR l_rec IN M4R_7B1_WSM_INV_MERGE_C1(p_hdr_rec.msg_id,p_hdr_rec.lot_number,p_hdr_rec.from_sub_inventory) LOOP
3470:
3471: IF l_rec.status_flag <> 'V' THEN
3472:
3473: ROLLBACK TO BEFORE_INSERT;

Line 4055: -- Purpose : This is called from the Workflow 'M4R 7B1 WSM Inbound'.

4051: END INV_LOT_TXNS;
4052:
4053:
4054: -- Procedure : PROCESS_STAGING
4055: -- Purpose : This is called from the Workflow 'M4R 7B1 WSM Inbound'.
4056:
4057: PROCEDURE PROCESS_STAGING ( p_itemtype IN VARCHAR2,
4058: p_itemkey IN VARCHAR2,
4059: p_actid IN NUMBER,

Line 4098: cln_debug_pub.Add('--------ENTERING M4R_7B1_WSM_IN.PROCESS_STAGING procedure ------------', 2);

4094:
4095:
4096: BEGIN
4097: IF (g_debug_level <= 2) THEN
4098: cln_debug_pub.Add('--------ENTERING M4R_7B1_WSM_IN.PROCESS_STAGING procedure ------------', 2);
4099: cln_debug_pub.Add('itemtype : ' || p_itemtype, 2);
4100: cln_debug_pub.Add('itemkey : ' || p_itemkey, 2);
4101: cln_debug_pub.Add('actid : ' || p_actid, 2);
4102: cln_debug_pub.Add('funcmode : ' || p_funcmode, 2);

Line 4677: END M4R_7B1_WSM_IN;

4673:
4674: BEGIN
4675: g_debug_level := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
4676:
4677: END M4R_7B1_WSM_IN;