151: RAISE;
152: END;
153: SQL_STMT_NUM := '6: ';
154: CST_INVENTORY_PUB.CALCULATE_INVENTORYVALUE(P_API_VERSION => 1.0
155: ,P_INIT_MSG_LIST => CST_UTILITY_PUB.GET_TRUE
156: ,P_ORGANIZATION_ID => P_ORG_ID
157: ,P_ONHAND_VALUE => 1
158: ,P_INTRANSIT_VALUE => 1
159: ,P_RECEIVING_VALUE => 0
179: ,P_SHIPMENT => 1
180: ,X_RETURN_STATUS => L_RETURN_STATUS
181: ,X_MSG_COUNT => L_MSG_COUNT
182: ,X_MSG_DATA => L_MSG_DATA);
183: IF L_RETURN_STATUS <> CST_UTILITY_PUB.GET_RET_STS_SUCCESS THEN
184: RAISE L_CST_INV_VAL;
185: END IF;
186: FND_MSG_PUB.COUNT_AND_GET(P_ENCODED => CST_UTILITY_PUB.GET_FALSE
187: ,P_COUNT => L_MSG_COUNT
182: ,X_MSG_DATA => L_MSG_DATA);
183: IF L_RETURN_STATUS <> CST_UTILITY_PUB.GET_RET_STS_SUCCESS THEN
184: RAISE L_CST_INV_VAL;
185: END IF;
186: FND_MSG_PUB.COUNT_AND_GET(P_ENCODED => CST_UTILITY_PUB.GET_FALSE
187: ,P_COUNT => L_MSG_COUNT
188: ,P_DATA => L_MSG_DATA);
189: IF (L_MSG_COUNT > 0) THEN
190: FOR i IN 1 .. L_MSG_COUNT LOOP
188: ,P_DATA => L_MSG_DATA);
189: IF (L_MSG_COUNT > 0) THEN
190: FOR i IN 1 .. L_MSG_COUNT LOOP
191: L_MSG_DATA := FND_MSG_PUB.GET(I
192: ,CST_UTILITY_PUB.GET_FALSE);
193: FND_FILE.PUT_LINE(CST_UTILITY_PUB.GET_LOG
194: ,I || '-' || L_MSG_DATA);
195: END LOOP;
196: END IF;
189: IF (L_MSG_COUNT > 0) THEN
190: FOR i IN 1 .. L_MSG_COUNT LOOP
191: L_MSG_DATA := FND_MSG_PUB.GET(I
192: ,CST_UTILITY_PUB.GET_FALSE);
193: FND_FILE.PUT_LINE(CST_UTILITY_PUB.GET_LOG
194: ,I || '-' || L_MSG_DATA);
195: END LOOP;
196: END IF;
197: SELECT
211: ,SQL_STMT_NUM || SQLERRM)*/NULL;
212: /*SRW.MESSAGE(999
213: ,'BOM_CSTRINVR_XMLP_PKG >X ' || TO_CHAR(SYSDATE
214: ,'Dy Mon FmDD HH24:MI:SS YYYY'))*/NULL;
215: FND_MSG_PUB.COUNT_AND_GET(P_ENCODED => CST_UTILITY_PUB.GET_FALSE
216: ,P_COUNT => L_MSG_COUNT
217: ,P_DATA => L_MSG_DATA);
218: IF (L_MSG_COUNT > 0) THEN
219: FOR i IN 1 .. L_MSG_COUNT LOOP
217: ,P_DATA => L_MSG_DATA);
218: IF (L_MSG_COUNT > 0) THEN
219: FOR i IN 1 .. L_MSG_COUNT LOOP
220: L_MSG_DATA := FND_MSG_PUB.GET(I
221: ,CST_UTILITY_PUB.GET_FALSE);
222: /*SRW.MESSAGE(999
223: ,I || ': ' || L_MSG_DATA)*/NULL;
224: END LOOP;
225: END IF;