[Home] [Help]
1063: -- Purpose : This procedure processes the SCRAP/COMPLETE/UNDO transactions
1064:
1065: PROCEDURE JOB_SCRAP_COMPLETE_UNDO ( p_process_type IN VARCHAR2,
1066: p_hdr_rec IN M4R_WSM_DWIP_HDR_STAGING%ROWTYPE,
1067: p_qty_rec IN M4R_WSM_DWIP_LOT_QTY_STAGING%ROWTYPE,
1068: p_org_id IN NUMBER,
1069: p_user_id IN NUMBER,
1070: p_item_key IN VARCHAR2,
1071: x_resultout OUT NOCOPY VARCHAR2) AS
1606: -- Purpose : This procedure processes the CREATE/STATUS UPDATE transactions
1607:
1608: PROCEDURE JOB_CREATE_OR_STATUS(p_process_type IN VARCHAR2,
1609: p_hdr_rec IN M4R_WSM_DWIP_HDR_STAGING%ROWTYPE,
1610: p_qty_rec IN M4R_WSM_DWIP_LOT_QTY_STAGING%ROWTYPE,
1611: p_user_id IN NUMBER,
1612: p_org_id IN NUMBER,
1613: p_item_key IN VARCHAR2,
1614: x_resultout OUT NOCOPY VARCHAR2) AS
1963: -- Purpose : This procedure processes the WIP Transactions
1964:
1965: PROCEDURE WIP_LOT_TXNS ( p_process_type IN VARCHAR2,
1966: p_hdr_rec IN M4R_WSM_DWIP_HDR_STAGING%ROWTYPE,
1967: p_qty_rec IN M4R_WSM_DWIP_LOT_QTY_STAGING%ROWTYPE,
1968: p_org_id IN NUMBER,
1969: p_user_id IN NUMBER,
1970: p_item_key IN VARCHAR2,
1971: x_resultout OUT NOCOPY VARCHAR2) AS
1974: CURSOR M4R_7B1_WSM_WIP_MERGE_C1 (l_msg_id NUMBER,l_lot_number VARCHAR2,l_sub_inv VARCHAR2)
1975: IS
1976: SELECT h.hdr_id,h.prev_lot_number,h.from_sub_inventory,h.operation_seq_num,h.lot_code,h.prev_lot_qty,q.lot_qty,
1977: h.start_lot_alt_rout_designator,q.lot_classification_code,h.status_flag,h.lot_number
1978: FROM M4R_WSM_DWIP_HDR_STAGING H ,M4R_WSM_DWIP_LOT_QTY_STAGING Q
1979: WHERE h.msg_id = l_msg_id
1980: AND( h.transaction_type = 'MERGE' OR q.lot_classification_code ='MERGE' )
1981: AND h.lot_number = l_lot_number
1982: AND h.from_sub_inventory = l_sub_inv
1990: SELECT h.hdr_id,h.prev_lot_qty,q.lot_qty,h.prev_operation_seq_num,h.scheduled_start_date,
1991: h.scheduled_completion_date,h.starting_lot_item_code,h.primary_item_code,
1992: h.lot_number,h.alt_routing_designator,h.to_sub_inventory,h.from_sub_inventory,
1993: h.start_lot_alt_rout_designator,h.status_flag,h.prev_lot_number
1994: FROM M4R_WSM_DWIP_HDR_STAGING H ,M4R_WSM_DWIP_LOT_QTY_STAGING Q
1995: WHERE h.msg_id = l_msg_id
1996: AND( h.transaction_type = 'SPLIT' OR q.lot_classification_code ='SPLIT' )
1997: AND h.prev_lot_number = l_lot_number
1998: AND h.from_sub_inventory = l_sub_inv
3132: -- Purpose : This procedure processes the Inventory Transactions
3133:
3134: PROCEDURE INV_LOT_TXNS ( p_process_type IN VARCHAR2,
3135: p_hdr_rec IN M4R_WSM_DWIP_HDR_STAGING%ROWTYPE,
3136: p_qty_rec IN M4R_WSM_DWIP_LOT_QTY_STAGING%ROWTYPE,
3137: p_user_id IN NUMBER,
3138: p_org_id IN NUMBER,
3139: p_item_key IN VARCHAR2,
3140: x_resultout OUT NOCOPY VARCHAR2) AS
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
3162: FROM M4R_WSM_DWIP_HDR_STAGING H ,M4R_WSM_DWIP_LOT_QTY_STAGING Q
3163: WHERE h.msg_id = l_msg_id
3164: AND h.transaction_type = 'SPLIT'
3165: AND h.prev_lot_number = l_lot_number
3166: AND h.from_sub_inventory = l_sub_inv
3170: AND q.hdr_id = h.hdr_id;
3171:
3172:
3173: l_hdr_rec M4R_WSM_DWIP_HDR_STAGING%ROWTYPE;
3174: l_qty_rec M4R_WSM_DWIP_LOT_QTY_STAGING%ROWTYPE;
3175: l_err_msg VARCHAR2(2000);
3176: l_err_code VARCHAR2(500);
3177: l_retcode VARCHAR2(2);
3178: l_interface_err VARCHAR2(500);
4088:
4089: CURSOR M4R_7B1_WSM_LOT_QTY_STAGING_C1 (l_hdr_id NUMBER)
4090: IS
4091: SELECT *
4092: FROM M4R_WSM_DWIP_LOT_QTY_STAGING
4093: WHERE HDR_ID = l_hdr_id;
4094:
4095:
4096: BEGIN