[Home] [Help]
4: /*
5: Inputs: These identify which job or schedule you are interested in
6: P_WIP_ENTITY_ID
7: P_ORGANIZATION_ID
8: Outputs: All are set to WIP_CONSTANTS.YES or WIP_CONSTANTS.NO
9: P_RESOURCES_CHARGED
10: P_MATERIAL_ISSUED
11: P_MTL_TXNS_TEMP
12: P_UNCOSTED_MTL_TXNS
34: -- Check if resources have been charged
35:
36: BEGIN
37:
38: SELECT WIP_CONSTANTS.YES
39: INTO P_RESOURCES_CHARGED
40: FROM DUAL
41: WHERE EXISTS (SELECT 'X'
42: FROM WIP_OPERATION_RESOURCES
45: AND APPLIED_RESOURCE_UNITS <> 0);
46:
47:
48: EXCEPTION WHEN NO_DATA_FOUND THEN
49: P_RESOURCES_CHARGED := WIP_CONSTANTS.NO;
50: END;
51:
52: -- Check if material has been issued
53:
52: -- Check if material has been issued
53:
54: BEGIN
55:
56: SELECT WIP_CONSTANTS.YES
57: INTO P_MATERIAL_ISSUED
58: FROM DUAL
59: WHERE EXISTS (SELECT 'X'
60: FROM WIP_REQUIREMENT_OPERATIONS
62: AND WIP_ENTITY_ID = P_WIP_ENTITY_ID
63: AND QUANTITY_ISSUED <> 0);
64:
65: EXCEPTION WHEN NO_DATA_FOUND THEN
66: P_MATERIAL_ISSUED := WIP_CONSTANTS.NO;
67: END;
68:
69: -- Check for MTL_MATERIAL_TRANSACTIONS_TEMP
70:
69: -- Check for MTL_MATERIAL_TRANSACTIONS_TEMP
70:
71: BEGIN
72:
73: SELECT WIP_CONSTANTS.YES
74: INTO P_MTL_TXNS_TEMP
75: FROM DUAL
76: WHERE EXISTS (SELECT 1
77: FROM MTL_MATERIAL_TRANSACTIONS_TEMP
79: AND TRANSACTION_SOURCE_ID = P_WIP_ENTITY_ID
80: AND TRANSACTION_SOURCE_TYPE_ID = 5);
81:
82: EXCEPTION WHEN NO_DATA_FOUND THEN
83: P_MTL_TXNS_TEMP := WIP_CONSTANTS.NO;
84: END;
85:
86: -- Check for uncosted material transactions
87:
86: -- Check for uncosted material transactions
87:
88: BEGIN
89:
90: SELECT WIP_CONSTANTS.YES
91: INTO P_UNCOSTED_MTL_TXNS
92: FROM DUAL
93: WHERE EXISTS (SELECT 1
94: FROM MTL_MATERIAL_TRANSACTIONS
97: AND COSTED_FLAG IN ('N','E')
98: AND TRANSACTION_SOURCE_TYPE_ID = 5);
99:
100: EXCEPTION WHEN NO_DATA_FOUND THEN
101: P_UNCOSTED_MTL_TXNS := WIP_CONSTANTS.NO;
102: END;
103:
104: -- Check for PO_REQUISITION_LINES
105:
104: -- Check for PO_REQUISITION_LINES
105:
106: BEGIN
107:
108: SELECT WIP_CONSTANTS.YES
109: INTO P_PO_REQ_LINES
110: FROM DUAL
111: WHERE EXISTS (SELECT 1
112: FROM PO_REQUISITION_LINES_ALL
113: WHERE WIP_ENTITY_ID = P_WIP_ENTITY_ID
114: AND DESTINATION_ORGANIZATION_ID = P_ORGANIZATION_ID);
115:
116: EXCEPTION WHEN NO_DATA_FOUND THEN
117: P_PO_REQ_LINES := WIP_CONSTANTS.NO;
118: END;
119:
120: -- Check for PO_REQUISITION_INTERFACE
121:
120: -- Check for PO_REQUISITION_INTERFACE
121:
122: BEGIN
123:
124: SELECT WIP_CONSTANTS.YES
125: INTO P_PO_REQ_INTERFACE
126: FROM DUAL
127: WHERE EXISTS (SELECT 1
128: FROM PO_REQUISITIONS_INTERFACE_ALL
129: WHERE WIP_ENTITY_ID = P_WIP_ENTITY_ID
130: AND DESTINATION_ORGANIZATION_ID = P_ORGANIZATION_ID);
131:
132: EXCEPTION WHEN NO_DATA_FOUND THEN
133: P_PO_REQ_INTERFACE := WIP_CONSTANTS.NO;
134: END;
135:
136: -- Check for WIP_MOVE_TXN_INTERFACE
137:
136: -- Check for WIP_MOVE_TXN_INTERFACE
137:
138: BEGIN
139:
140: SELECT WIP_CONSTANTS.YES
141: INTO P_MOVE_TXN_INTERFACE
142: FROM DUAL
143: WHERE EXISTS (SELECT 1
144: FROM WIP_MOVE_TXN_INTERFACE
145: WHERE WIP_ENTITY_ID = P_WIP_ENTITY_ID
146: AND ORGANIZATION_ID = P_ORGANIZATION_ID);
147:
148: EXCEPTION WHEN NO_DATA_FOUND THEN
149: P_MOVE_TXN_INTERFACE := WIP_CONSTANTS.NO;
150: END;
151:
152: -- Check for WIP_COST_TXN_INTERFACE
153:
152: -- Check for WIP_COST_TXN_INTERFACE
153:
154: BEGIN
155:
156: SELECT WIP_CONSTANTS.YES
157: INTO P_COST_TXN_INTERFACE
158: FROM DUAL
159: WHERE EXISTS (SELECT 1
160: FROM WIP_COST_TXN_INTERFACE
161: WHERE WIP_ENTITY_ID = P_WIP_ENTITY_ID
162: AND ORGANIZATION_ID = P_ORGANIZATION_ID);
163:
164: EXCEPTION WHEN NO_DATA_FOUND THEN
165: P_COST_TXN_INTERFACE := WIP_CONSTANTS.NO;
166: END;
167: END RETRIEVE;
168:
169: END WIP_PENDING_TXNS;