[Home] [Help]
566: l_message VARCHAR2(2000);
567: l_commit VARCHAR2(1);
568: l_whse_code VARCHAR2(10);
569: l_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
570: l_tran_row IC_TRAN_PND%ROWTYPE;
571:
572:
573: l_allocation_rec GMI_Auto_Allocate_PUB.gmi_allocation_rec;
574: l_ic_item_mst_rec GMI_Reservation_Util.ic_item_mst_rec;
607: p_item_id IN NUMBER,
608: p_mo_line_id IN NUMBER)
609: IS
610: SELECT SUM(ABS(trans_qty)),SUM(ABS(trans_qty2))
611: FROM ic_tran_pnd
612: WHERE line_id = p_line_id
613: AND ( lot_id > 0
614: OR location <> p_location )
615: AND item_id = p_item_id
625:
626: /* Cursor For Existing Allocations */
627: CURSOR c_get_trans_id(p_delivery_detail_id IN NUMBER) IS
628: SELECT ic.trans_id, ic.line_id
629: FROM ic_tran_pnd ic, wsh_delivery_details wsh
630: WHERE ic.line_detail_id = p_delivery_detail_id
631: AND wsh.delivery_detail_id = ic.line_detail_id
632: AND wsh.released_status IN ('R','S')
633: AND ic.doc_type = 'OMSO'
674: GMI_RESERVATION_UTIL.PrintLn('In Procedure Auto_Alloc_WDD_Line After Initialize');
675:
676: /* Below procedure fills in allocation record
677: TYPE gmi_allocation_rec is RECORD
678: ( doc_id IC_TRAN_PND.DOC_ID%TYPE
679: , line_id IC_TRAN_PND.LINE_ID%TYPE
680: , doc_line IC_TRAN_PND.DOC_LINE%TYPE
681: , line_detail_id IC_TRAN_PND.LINE_DETAIL_ID%TYPE
682: , item_no IC_ITEM_MST.ITEM_NO%TYPE
675:
676: /* Below procedure fills in allocation record
677: TYPE gmi_allocation_rec is RECORD
678: ( doc_id IC_TRAN_PND.DOC_ID%TYPE
679: , line_id IC_TRAN_PND.LINE_ID%TYPE
680: , doc_line IC_TRAN_PND.DOC_LINE%TYPE
681: , line_detail_id IC_TRAN_PND.LINE_DETAIL_ID%TYPE
682: , item_no IC_ITEM_MST.ITEM_NO%TYPE
683: , whse_code IC_WHSE_MST.WHSE_CODE%TYPE
676: /* Below procedure fills in allocation record
677: TYPE gmi_allocation_rec is RECORD
678: ( doc_id IC_TRAN_PND.DOC_ID%TYPE
679: , line_id IC_TRAN_PND.LINE_ID%TYPE
680: , doc_line IC_TRAN_PND.DOC_LINE%TYPE
681: , line_detail_id IC_TRAN_PND.LINE_DETAIL_ID%TYPE
682: , item_no IC_ITEM_MST.ITEM_NO%TYPE
683: , whse_code IC_WHSE_MST.WHSE_CODE%TYPE
684: , co_code OP_CUST_MST.CO_CODE%TYPE
677: TYPE gmi_allocation_rec is RECORD
678: ( doc_id IC_TRAN_PND.DOC_ID%TYPE
679: , line_id IC_TRAN_PND.LINE_ID%TYPE
680: , doc_line IC_TRAN_PND.DOC_LINE%TYPE
681: , line_detail_id IC_TRAN_PND.LINE_DETAIL_ID%TYPE
682: , item_no IC_ITEM_MST.ITEM_NO%TYPE
683: , whse_code IC_WHSE_MST.WHSE_CODE%TYPE
684: , co_code OP_CUST_MST.CO_CODE%TYPE
685: , cust_no OP_CUST_MST.CUST_NO%TYPE
690: , order_um2 OP_ORDR_DTL.ORDER_UM2%TYPE
691: , ship_to_org_id oe_order_lines_all.SHIP_TO_ORG_ID%TYPE
692: , of_cust_id oe_order_lines_all.sold_to_org_id%TYPE
693: , org_id oe_order_lines_all.org_id%TYPE
694: , trans_date IC_TRAN_PND.TRANS_DATE%TYPE
695: , user_id FND_USER.USER_ID%TYPE
696: , user_name FND_USER.USER_NAME%TYPE
697: );
698: */
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912:
913: l_old_transaction_rec.trans_id := l_trans_id;
914: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND
915: (l_old_transaction_rec, l_old_transaction_rec )
916: THEN
917: GMI_RESERVATION_UTIL.PrintLn('balancing default lot for line_id '|| p_wdd_rec.source_line_id);
918: GMI_RESERVATION_UTIL.balance_default_lot
1054: CURSOR get_transacted_qty ( p_line_id IN NUMBER
1055: )
1056: is
1057: SELECT SUM(ABS(trans_qty)),SUM(ABS(trans_qty2))
1058: FROM ic_tran_pnd
1059: WHERE line_id = p_line_id
1060: AND doc_type = 'OMSO'
1061: AND completed_ind = 0
1062: AND delete_mark = 0
1070: CURSOR get_trans_qty_for_del ( p_line_id NUMBER,
1071: p_line_detail_id NUMBER)
1072: is
1073: SELECT SUM(ABS(trans_qty)),SUM(ABS(trans_qty2))
1074: FROM ic_tran_pnd
1075: WHERE line_id = p_line_id
1076: AND doc_type = 'OMSO'
1077: AND completed_ind = 0
1078: AND delete_mark = 0
1320: Cursor get_allocated_qty (p_line_id IN NUMBER
1321: , p_line_detail_id IN NUMBER)
1322: IS
1323: Select abs(sum(nvl(trans_qty,0))), abs(sum(nvl(trans_qty2,0)))
1324: From ic_tran_pnd
1325: where line_id = p_line_id
1326: and line_detail_id = p_line_detail_id
1327: and doc_type = 'OMSO'
1328: and delete_mark = 0;