[Home] [Help]
83: p_entryType IN NUMBER,
84: p_treeMode IN NUMBER,
85: p_treeSrcName IN VARCHAR2,
86: x_treeID IN OUT NOCOPY NUMBER, --the qty tree id if one was built
87: x_compLots IN OUT NOCOPY system.wip_lot_serial_obj_t,
88: x_returnStatus OUT NOCOPY VARCHAR2);
89:
90: function findTxnAction(p_isForwardTxn IN VARCHAR2,
91: p_qty IN NUMBER) return number;
108:
109: ---------------------------
110: --public/private procedures
111: ---------------------------
112: procedure deriveLots(x_compLots IN OUT NOCOPY system.wip_lot_serial_obj_t,
113: p_orgID IN NUMBER,
114: p_wipEntityID IN NUMBER,
115: p_initMsgList IN VARCHAR2,
116: p_endDebug IN VARCHAR2,
256: p_endDebug IN VARCHAR2,
257: x_returnStatus OUT NOCOPY VARCHAR2) is
258: l_itemRec itemInfo_rec_t;
259: l_index NUMBER := 1;
260: l_compObj system.wip_lot_serial_obj_t;
261: l_item system.wip_component_obj_t;
262: l_lot system.wip_txn_lot_obj_t;
263: l_lotReturnStatus VARCHAR2(1);
264: l_serialReturnStatus VARCHAR2(1);
378: open c_cplItems;
379: else
380: open c_movItems;
381: end if;
382: l_compObj := system.wip_lot_serial_obj_t(null,null,null,null,null,null);
383: l_compObj.initialize;
384: loop
385: if(p_cplTxnID is not null) then
386: fetch c_cplItems into l_itemRec;
621: p_endDebug IN VARCHAR2,
622: x_returnStatus OUT NOCOPY VARCHAR2) is
623: l_itemRec itemInfo_rec_t;
624: l_index NUMBER := 1;
625: l_compObj system.wip_lot_serial_obj_t;
626: l_item system.wip_component_obj_t;
627: l_lot system.wip_txn_lot_obj_t;
628: l_lotReturnStatus VARCHAR2(1);
629: l_serialReturnStatus VARCHAR2(1);
798: if(fnd_api.to_boolean(p_initMsgList)) then
799: fnd_msg_pub.initialize;
800: end if;
801:
802: l_compObj := system.wip_lot_serial_obj_t(null,null,null,null,null,null);
803: l_compObj.initialize;
804:
805: if(p_cplTxnID is null and p_movTxnID is null) then
806: open c_allItems;
1058: procedure deriveTxnLots(p_orgID IN NUMBER,
1059: p_wipEntityID IN NUMBER, --only needed for returns and neg returns
1060: p_txnActionID IN NUMBER,
1061: p_entryType IN NUMBER,
1062: x_compLots IN OUT NOCOPY system.wip_lot_serial_obj_t,
1063: x_returnStatus OUT NOCOPY VARCHAR2) is
1064:
1065: cursor c_retTxnBasedLots(v_itemID NUMBER) is
1066: select tln.lot_number,
1262: p_entryType IN NUMBER,
1263: p_treeMode IN NUMBER,
1264: p_treeSrcName IN VARCHAR2,
1265: x_treeID IN OUT NOCOPY NUMBER,
1266: x_compLots IN OUT NOCOPY system.wip_lot_serial_obj_t,
1267: x_returnStatus OUT NOCOPY VARCHAR2) is
1268: l_rmnQty NUMBER;
1269: l_item system.wip_component_obj_t;
1270: l_treeID NUMBER;
1742: p_entryType IN NUMBER,
1743: p_treeMode IN NUMBER,
1744: p_treeSrcName IN VARCHAR2,
1745: x_treeID IN OUT NOCOPY NUMBER, --the qty tree id if one was built
1746: x_compLots IN OUT NOCOPY system.wip_lot_serial_obj_t,
1747: x_returnStatus OUT NOCOPY VARCHAR2) is
1748: l_lotControlCode NUMBER;
1749: l_serialControlCode NUMBER;
1750: l_serialTaggedCode NUMBER; -- Bug 9907143: added for serial tagging enhancement for SUN
2347: PROCEDURE deriveSingleItemFromMOG
2348: (p_parentObjID IN NUMBER,
2349: p_orgID IN NUMBER,
2350: p_item IN system.wip_component_obj_t,
2351: x_compLots IN OUT NOCOPY system.wip_lot_serial_obj_t,
2352: x_returnStatus OUT NOCOPY VARCHAR2) IS
2353:
2354: CURSOR c_lotComp IS
2355:
2472: PROCEDURE setItemRevision
2473: (p_parentObjID IN NUMBER,
2474: p_orgID IN NUMBER,
2475: p_item IN system.wip_component_obj_t,
2476: x_compLots IN OUT NOCOPY system.wip_lot_serial_obj_t,
2477: x_returnStatus OUT NOCOPY VARCHAR2) IS
2478:
2479: CURSOR c_revisionComp IS
2480:
2565: END setItemRevision;
2566:
2567:
2568: PROCEDURE deriveLotsFromMOG(
2569: x_compLots IN OUT NOCOPY system.wip_lot_serial_obj_t,
2570: p_orgID IN NUMBER,
2571: p_objectID IN NUMBER,
2572: p_initMsgList IN VARCHAR2,
2573: x_returnStatus OUT NOCOPY VARCHAR2) IS