[Home] [Help]
180: p_x_prd_workorder_rec.JOB_DESCRIPTION:=l_prd_workorder_rec.JOB_DESCRIPTION;
181:
182: ELSE
183:
184: IF p_x_prd_workorder_rec.WIP_ENTITY_ID= FND_API.G_MISS_NUM THEN
185: p_x_prd_workorder_rec.WIP_ENTITY_ID:=NULL;
186: ELSIF p_x_prd_workorder_rec.WIP_ENTITY_ID IS NULL THEN
187: p_x_prd_workorder_rec.WIP_ENTITY_ID:=l_prd_workorder_rec.WIP_ENTITY_ID;
188: END IF;
186: ELSIF p_x_prd_workorder_rec.WIP_ENTITY_ID IS NULL THEN
187: p_x_prd_workorder_rec.WIP_ENTITY_ID:=l_prd_workorder_rec.WIP_ENTITY_ID;
188: END IF;
189:
190: IF p_x_prd_workorder_rec.JOB_NUMBER= FND_API.G_MISS_CHAR THEN
191: p_x_prd_workorder_rec.JOB_NUMBER:=NULL;
192: ELSIF p_x_prd_workorder_rec.JOB_NUMBER IS NULL THEN
193: p_x_prd_workorder_rec.JOB_NUMBER:=l_prd_workorder_rec.JOB_NUMBER;
194: END IF;
192: ELSIF p_x_prd_workorder_rec.JOB_NUMBER IS NULL THEN
193: p_x_prd_workorder_rec.JOB_NUMBER:=l_prd_workorder_rec.JOB_NUMBER;
194: END IF;
195:
196: IF p_x_prd_workorder_rec.JOB_DESCRIPTION= FND_API.G_MISS_CHAR THEN
197: p_x_prd_workorder_rec.JOB_DESCRIPTION:=NULL;
198: ELSIF p_x_prd_workorder_rec.JOB_DESCRIPTION IS NULL THEN
199: p_x_prd_workorder_rec.JOB_DESCRIPTION:=l_prd_workorder_rec.JOB_DESCRIPTION;
200: END IF;
200: END IF;
201: END IF; --G_Called_from
202:
203:
204: IF p_x_prd_workorder_rec.OBJECT_VERSION_NUMBER= FND_API.G_MISS_NUM THEN
205: p_x_prd_workorder_rec.OBJECT_VERSION_NUMBER:=NULL;
206: ELSIF p_x_prd_workorder_rec.OBJECT_VERSION_NUMBER IS NULL THEN
207: p_x_prd_workorder_rec.OBJECT_VERSION_NUMBER:=l_prd_workorder_rec.OBJECT_VERSION_NUMBER;
208: END IF;
207: p_x_prd_workorder_rec.OBJECT_VERSION_NUMBER:=l_prd_workorder_rec.OBJECT_VERSION_NUMBER;
208: END IF;
209:
210:
211: IF p_x_prd_workorder_rec.ORGANIZATION_ID= FND_API.G_MISS_NUM THEN
212: p_x_prd_workorder_rec.ORGANIZATION_ID:=NULL;
213: ELSIF p_x_prd_workorder_rec.ORGANIZATION_ID IS NULL THEN
214: p_x_prd_workorder_rec.ORGANIZATION_ID:=l_prd_workorder_rec.ORGANIZATION_ID;
215: END IF;
215: END IF;
216:
217:
218:
219: IF p_x_prd_workorder_rec.ORGANIZATION_NAME= FND_API.G_MISS_CHAR THEN
220: p_x_prd_workorder_rec.ORGANIZATION_NAME:=NULL;
221: ELSIF p_x_prd_workorder_rec.ORGANIZATION_NAME IS NULL THEN
222: p_x_prd_workorder_rec.ORGANIZATION_NAME:=l_prd_workorder_rec.ORGANIZATION_NAME;
223: END IF;
221: ELSIF p_x_prd_workorder_rec.ORGANIZATION_NAME IS NULL THEN
222: p_x_prd_workorder_rec.ORGANIZATION_NAME:=l_prd_workorder_rec.ORGANIZATION_NAME;
223: END IF;
224:
225: IF p_x_prd_workorder_rec.FIRM_PLANNED_FLAG= FND_API.G_MISS_NUM THEN
226: p_x_prd_workorder_rec.FIRM_PLANNED_FLAG:=NULL;
227: ELSIF p_x_prd_workorder_rec.FIRM_PLANNED_FLAG IS NULL THEN
228: p_x_prd_workorder_rec.FIRM_PLANNED_FLAG:=l_prd_workorder_rec.FIRM_PLANNED_FLAG;
229: END IF;
227: ELSIF p_x_prd_workorder_rec.FIRM_PLANNED_FLAG IS NULL THEN
228: p_x_prd_workorder_rec.FIRM_PLANNED_FLAG:=l_prd_workorder_rec.FIRM_PLANNED_FLAG;
229: END IF;
230:
231: IF p_x_prd_workorder_rec.CLASS_CODE= FND_API.G_MISS_CHAR THEN
232: p_x_prd_workorder_rec.CLASS_CODE:=NULL;
233: ELSIF p_x_prd_workorder_rec.CLASS_CODE IS NULL THEN
234: p_x_prd_workorder_rec.CLASS_CODE:=l_prd_workorder_rec.CLASS_CODE;
235: END IF;
235: END IF;
236:
237: IF G_CALLED_FROM = 'API' THEN
238:
239: IF p_x_prd_workorder_rec.DEPARTMENT_ID= FND_API.G_MISS_NUM THEN
240: p_x_prd_workorder_rec.DEPARTMENT_ID:=NULL;
241: ELSIF p_x_prd_workorder_rec.DEPARTMENT_ID IS NULL THEN
242: p_x_prd_workorder_rec.DEPARTMENT_ID:=l_prd_workorder_rec.DEPARTMENT_ID;
243: END IF;
243: END IF;
244:
245: ELSE
246:
247: IF p_x_prd_workorder_rec.DEPARTMENT_NAME= FND_API.G_MISS_CHAR THEN
248: p_x_prd_workorder_rec.DEPARTMENT_NAME:=NULL;
249: ELSIF p_x_prd_workorder_rec.DEPARTMENT_NAME IS NULL THEN
250: p_x_prd_workorder_rec.DEPARTMENT_NAME:=l_prd_workorder_rec.DEPARTMENT_NAME;
251: END IF;
249: ELSIF p_x_prd_workorder_rec.DEPARTMENT_NAME IS NULL THEN
250: p_x_prd_workorder_rec.DEPARTMENT_NAME:=l_prd_workorder_rec.DEPARTMENT_NAME;
251: END IF;
252:
253: IF p_x_prd_workorder_rec.DEPARTMENT_ID= FND_API.G_MISS_NUM THEN
254: p_x_prd_workorder_rec.DEPARTMENT_ID:=NULL;
255: ELSIF p_x_prd_workorder_rec.DEPARTMENT_ID IS NULL THEN
256: p_x_prd_workorder_rec.DEPARTMENT_ID:=l_prd_workorder_rec.DEPARTMENT_ID;
257: END IF;
257: END IF;
258:
259: END IF;
260:
261: IF p_x_prd_workorder_rec.STATUS_CODE= FND_API.G_MISS_CHAR THEN
262: p_x_prd_workorder_rec.STATUS_CODE:=NULL;
263: ELSIF p_x_prd_workorder_rec.STATUS_CODE IS NULL THEN
264: p_x_prd_workorder_rec.STATUS_CODE:=l_prd_workorder_rec.job_STATUS_CODE;
265: END IF;
263: ELSIF p_x_prd_workorder_rec.STATUS_CODE IS NULL THEN
264: p_x_prd_workorder_rec.STATUS_CODE:=l_prd_workorder_rec.job_STATUS_CODE;
265: END IF;
266:
267: IF p_x_prd_workorder_rec.STATUS_MEANING= FND_API.G_MISS_CHAR THEN
268: p_x_prd_workorder_rec.STATUS_MEANING:=NULL;
269: ELSIF p_x_prd_workorder_rec.STATUS_MEANING IS NULL THEN
270: p_x_prd_workorder_rec.STATUS_MEANING:=l_prd_workorder_rec.JOB_STATUS_MEANING;
271: END IF;
269: ELSIF p_x_prd_workorder_rec.STATUS_MEANING IS NULL THEN
270: p_x_prd_workorder_rec.STATUS_MEANING:=l_prd_workorder_rec.JOB_STATUS_MEANING;
271: END IF;
272:
273: IF p_x_prd_workorder_rec.SCHEDULED_START_DATE=FND_API.G_MISS_DATE THEN
274: p_x_prd_workorder_rec.SCHEDULED_START_DATE:=NULL;
275: ELSIF p_x_prd_workorder_rec.SCHEDULED_START_DATE IS NULL THEN
276: p_x_prd_workorder_rec.SCHEDULED_START_DATE:=l_prd_workorder_rec.SCHEDULED_START_DATE;
277: END IF;
275: ELSIF p_x_prd_workorder_rec.SCHEDULED_START_DATE IS NULL THEN
276: p_x_prd_workorder_rec.SCHEDULED_START_DATE:=l_prd_workorder_rec.SCHEDULED_START_DATE;
277: END IF;
278:
279: IF p_x_prd_workorder_rec.SCHEDULED_START_HR=FND_API.G_MISS_NUM THEN
280: p_x_prd_workorder_rec.SCHEDULED_START_HR:=NULL;
281: ELSIF p_x_prd_workorder_rec.SCHEDULED_START_HR IS NULL THEN
282: p_x_prd_workorder_rec.SCHEDULED_START_HR:=l_prd_workorder_rec.SCHEDULED_START_HR;
283: END IF;
281: ELSIF p_x_prd_workorder_rec.SCHEDULED_START_HR IS NULL THEN
282: p_x_prd_workorder_rec.SCHEDULED_START_HR:=l_prd_workorder_rec.SCHEDULED_START_HR;
283: END IF;
284:
285: IF p_x_prd_workorder_rec.SCHEDULED_START_MI=FND_API.G_MISS_NUM THEN
286: p_x_prd_workorder_rec.SCHEDULED_START_MI:=NULL;
287: ELSIF p_x_prd_workorder_rec.SCHEDULED_START_MI IS NULL THEN
288: p_x_prd_workorder_rec.SCHEDULED_START_MI:=l_prd_workorder_rec.SCHEDULED_START_MI;
289: END IF;
287: ELSIF p_x_prd_workorder_rec.SCHEDULED_START_MI IS NULL THEN
288: p_x_prd_workorder_rec.SCHEDULED_START_MI:=l_prd_workorder_rec.SCHEDULED_START_MI;
289: END IF;
290:
291: IF p_x_prd_workorder_rec.SCHEDULED_END_DATE=FND_API.G_MISS_DATE THEN
292: p_x_prd_workorder_rec.SCHEDULED_END_DATE:=NULL;
293: ELSIF p_x_prd_workorder_rec.SCHEDULED_END_DATE IS NULL THEN
294: p_x_prd_workorder_rec.SCHEDULED_END_DATE:=l_prd_workorder_rec.SCHEDULED_END_DATE;
295: END IF;
293: ELSIF p_x_prd_workorder_rec.SCHEDULED_END_DATE IS NULL THEN
294: p_x_prd_workorder_rec.SCHEDULED_END_DATE:=l_prd_workorder_rec.SCHEDULED_END_DATE;
295: END IF;
296:
297: IF p_x_prd_workorder_rec.SCHEDULED_END_HR=FND_API.G_MISS_NUM THEN
298: p_x_prd_workorder_rec.SCHEDULED_END_HR:=NULL;
299: ELSIF p_x_prd_workorder_rec.SCHEDULED_END_HR IS NULL THEN
300: p_x_prd_workorder_rec.SCHEDULED_END_HR:=l_prd_workorder_rec.SCHEDULED_END_HR;
301: END IF;
299: ELSIF p_x_prd_workorder_rec.SCHEDULED_END_HR IS NULL THEN
300: p_x_prd_workorder_rec.SCHEDULED_END_HR:=l_prd_workorder_rec.SCHEDULED_END_HR;
301: END IF;
302:
303: IF p_x_prd_workorder_rec.SCHEDULED_END_MI=FND_API.G_MISS_NUM THEN
304: p_x_prd_workorder_rec.SCHEDULED_END_MI:=NULL;
305: ELSIF p_x_prd_workorder_rec.SCHEDULED_END_MI IS NULL THEN
306: p_x_prd_workorder_rec.SCHEDULED_END_MI:=l_prd_workorder_rec.SCHEDULED_END_MI;
307: END IF;
305: ELSIF p_x_prd_workorder_rec.SCHEDULED_END_MI IS NULL THEN
306: p_x_prd_workorder_rec.SCHEDULED_END_MI:=l_prd_workorder_rec.SCHEDULED_END_MI;
307: END IF;
308:
309: IF p_x_prd_workorder_rec.ACTUAL_START_DATE=FND_API.G_MISS_DATE THEN
310: p_x_prd_workorder_rec.ACTUAL_START_DATE:=NULL;
311: ELSIF p_x_prd_workorder_rec.ACTUAL_START_DATE IS NULL THEN
312: p_x_prd_workorder_rec.ACTUAL_START_DATE:=l_prd_workorder_rec.ACTUAL_START_DATE;
313: END IF;
311: ELSIF p_x_prd_workorder_rec.ACTUAL_START_DATE IS NULL THEN
312: p_x_prd_workorder_rec.ACTUAL_START_DATE:=l_prd_workorder_rec.ACTUAL_START_DATE;
313: END IF;
314:
315: IF p_x_prd_workorder_rec.ACTUAL_START_HR=FND_API.G_MISS_NUM THEN
316: p_x_prd_workorder_rec.ACTUAL_START_HR:=NULL;
317: ELSIF p_x_prd_workorder_rec.ACTUAL_START_HR IS NULL THEN
318: p_x_prd_workorder_rec.ACTUAL_START_HR:=l_prd_workorder_rec.ACTUAL_START_HR;
319: END IF;
317: ELSIF p_x_prd_workorder_rec.ACTUAL_START_HR IS NULL THEN
318: p_x_prd_workorder_rec.ACTUAL_START_HR:=l_prd_workorder_rec.ACTUAL_START_HR;
319: END IF;
320:
321: IF p_x_prd_workorder_rec.ACTUAL_START_MI=FND_API.G_MISS_NUM THEN
322: p_x_prd_workorder_rec.ACTUAL_START_MI:=NULL;
323: ELSIF p_x_prd_workorder_rec.ACTUAL_START_MI IS NULL THEN
324: p_x_prd_workorder_rec.ACTUAL_START_MI:=l_prd_workorder_rec.ACTUAL_START_MI;
325: END IF;
323: ELSIF p_x_prd_workorder_rec.ACTUAL_START_MI IS NULL THEN
324: p_x_prd_workorder_rec.ACTUAL_START_MI:=l_prd_workorder_rec.ACTUAL_START_MI;
325: END IF;
326:
327: IF p_x_prd_workorder_rec.ACTUAL_END_DATE=FND_API.G_MISS_DATE THEN
328: p_x_prd_workorder_rec.ACTUAL_END_DATE:=NULL;
329: ELSIF p_x_prd_workorder_rec.ACTUAL_END_DATE IS NULL THEN
330: p_x_prd_workorder_rec.ACTUAL_END_DATE:=l_prd_workorder_rec.ACTUAL_END_DATE;
331: END IF;
329: ELSIF p_x_prd_workorder_rec.ACTUAL_END_DATE IS NULL THEN
330: p_x_prd_workorder_rec.ACTUAL_END_DATE:=l_prd_workorder_rec.ACTUAL_END_DATE;
331: END IF;
332:
333: IF p_x_prd_workorder_rec.ACTUAL_END_HR=FND_API.G_MISS_NUM THEN
334: p_x_prd_workorder_rec.ACTUAL_END_HR:=NULL;
335: ELSIF p_x_prd_workorder_rec.ACTUAL_END_HR IS NULL THEN
336: p_x_prd_workorder_rec.ACTUAL_END_HR:=l_prd_workorder_rec.ACTUAL_END_HR;
337: END IF;
335: ELSIF p_x_prd_workorder_rec.ACTUAL_END_HR IS NULL THEN
336: p_x_prd_workorder_rec.ACTUAL_END_HR:=l_prd_workorder_rec.ACTUAL_END_HR;
337: END IF;
338:
339: IF p_x_prd_workorder_rec.ACTUAL_END_MI=FND_API.G_MISS_NUM THEN
340: p_x_prd_workorder_rec.ACTUAL_END_MI:=NULL;
341: ELSIF p_x_prd_workorder_rec.ACTUAL_END_MI IS NULL THEN
342: p_x_prd_workorder_rec.ACTUAL_END_MI:=l_prd_workorder_rec.ACTUAL_END_MI;
343: END IF;
341: ELSIF p_x_prd_workorder_rec.ACTUAL_END_MI IS NULL THEN
342: p_x_prd_workorder_rec.ACTUAL_END_MI:=l_prd_workorder_rec.ACTUAL_END_MI;
343: END IF;
344:
345: IF p_x_prd_workorder_rec.INVENTORY_ITEM_ID= FND_API.G_MISS_NUM THEN
346: p_x_prd_workorder_rec.INVENTORY_ITEM_ID:=NULL;
347: ELSIF p_x_prd_workorder_rec.INVENTORY_ITEM_ID IS NULL THEN
348: p_x_prd_workorder_rec.INVENTORY_ITEM_ID:=l_prd_workorder_rec.INVENTORY_ITEM_ID;
349: END IF;
347: ELSIF p_x_prd_workorder_rec.INVENTORY_ITEM_ID IS NULL THEN
348: p_x_prd_workorder_rec.INVENTORY_ITEM_ID:=l_prd_workorder_rec.INVENTORY_ITEM_ID;
349: END IF;
350:
351: IF p_x_prd_workorder_rec.ITEM_INSTANCE_ID= FND_API.G_MISS_NUM THEN
352: p_x_prd_workorder_rec.ITEM_INSTANCE_ID:=NULL;
353: ELSIF p_x_prd_workorder_rec.ITEM_INSTANCE_ID IS NULL THEN
354: p_x_prd_workorder_rec.ITEM_INSTANCE_ID:=l_prd_workorder_rec.ITEM_INSTANCE_ID;
355: END IF;
353: ELSIF p_x_prd_workorder_rec.ITEM_INSTANCE_ID IS NULL THEN
354: p_x_prd_workorder_rec.ITEM_INSTANCE_ID:=l_prd_workorder_rec.ITEM_INSTANCE_ID;
355: END IF;
356:
357: IF p_x_prd_workorder_rec.UNIT_NAME= FND_API.G_MISS_CHAR THEN
358: p_x_prd_workorder_rec.UNIT_NAME:=NULL;
359: ELSIF p_x_prd_workorder_rec.UNIT_NAME IS NULL THEN
360: p_x_prd_workorder_rec.UNIT_NAME:=l_prd_workorder_rec.UNIT_NAME;
361: END IF;
359: ELSIF p_x_prd_workorder_rec.UNIT_NAME IS NULL THEN
360: p_x_prd_workorder_rec.UNIT_NAME:=l_prd_workorder_rec.UNIT_NAME;
361: END IF;
362:
363: IF p_x_prd_workorder_rec.ITEM_INSTANCE_NUMBER= FND_API.G_MISS_CHAR THEN
364: p_x_prd_workorder_rec.ITEM_INSTANCE_NUMBER:=NULL;
365: ELSIF p_x_prd_workorder_rec.ITEM_INSTANCE_NUMBER IS NULL THEN
366: p_x_prd_workorder_rec.ITEM_INSTANCE_NUMBER:=l_prd_workorder_rec.ITEM_INSTANCE_NUMBER;
367: END IF;
365: ELSIF p_x_prd_workorder_rec.ITEM_INSTANCE_NUMBER IS NULL THEN
366: p_x_prd_workorder_rec.ITEM_INSTANCE_NUMBER:=l_prd_workorder_rec.ITEM_INSTANCE_NUMBER;
367: END IF;
368:
369: IF p_x_prd_workorder_rec.QUANTITY= FND_API.G_MISS_NUM THEN
370: p_x_prd_workorder_rec.QUANTITY:=NULL;
371: ELSIF p_x_prd_workorder_rec.QUANTITY IS NULL THEN
372: p_x_prd_workorder_rec.QUANTITY:=l_prd_workorder_rec.QUANTITY;
373: END IF;
371: ELSIF p_x_prd_workorder_rec.QUANTITY IS NULL THEN
372: p_x_prd_workorder_rec.QUANTITY:=l_prd_workorder_rec.QUANTITY;
373: END IF;
374:
375: IF p_x_prd_workorder_rec.WO_PART_NUMBER= FND_API.G_MISS_CHAR THEN
376: p_x_prd_workorder_rec.WO_PART_NUMBER:=NULL;
377: ELSIF p_x_prd_workorder_rec.WO_PART_NUMBER IS NULL THEN
378: p_x_prd_workorder_rec.WO_PART_NUMBER:=l_prd_workorder_rec.WO_PART_NUMBER;
379: END IF;
377: ELSIF p_x_prd_workorder_rec.WO_PART_NUMBER IS NULL THEN
378: p_x_prd_workorder_rec.WO_PART_NUMBER:=l_prd_workorder_rec.WO_PART_NUMBER;
379: END IF;
380:
381: IF p_x_prd_workorder_rec.ITEM_DESCRIPTION= FND_API.G_MISS_CHAR THEN
382: p_x_prd_workorder_rec.ITEM_DESCRIPTION:=NULL;
383: ELSIF p_x_prd_workorder_rec.ITEM_DESCRIPTION IS NULL THEN
384: p_x_prd_workorder_rec.ITEM_DESCRIPTION:=l_prd_workorder_rec.ITEM_DESCRIPTION;
385: END IF;
383: ELSIF p_x_prd_workorder_rec.ITEM_DESCRIPTION IS NULL THEN
384: p_x_prd_workorder_rec.ITEM_DESCRIPTION:=l_prd_workorder_rec.ITEM_DESCRIPTION;
385: END IF;
386:
387: IF p_x_prd_workorder_rec.SERIAL_NUMBER= FND_API.G_MISS_CHAR THEN
388: p_x_prd_workorder_rec.SERIAL_NUMBER:=NULL;
389: ELSIF p_x_prd_workorder_rec.SERIAL_NUMBER IS NULL THEN
390: p_x_prd_workorder_rec.SERIAL_NUMBER:=l_prd_workorder_rec.SERIAL_NUMBER;
391: END IF;
389: ELSIF p_x_prd_workorder_rec.SERIAL_NUMBER IS NULL THEN
390: p_x_prd_workorder_rec.SERIAL_NUMBER:=l_prd_workorder_rec.SERIAL_NUMBER;
391: END IF;
392:
393: IF p_x_prd_workorder_rec.ITEM_INSTANCE_UOM= FND_API.G_MISS_CHAR THEN
394: p_x_prd_workorder_rec.ITEM_INSTANCE_UOM:=NULL;
395: ELSIF p_x_prd_workorder_rec.ITEM_INSTANCE_UOM IS NULL THEN
396: p_x_prd_workorder_rec.ITEM_INSTANCE_UOM:=l_prd_workorder_rec.ITEM_INSTANCE_UOM;
397: END IF;
395: ELSIF p_x_prd_workorder_rec.ITEM_INSTANCE_UOM IS NULL THEN
396: p_x_prd_workorder_rec.ITEM_INSTANCE_UOM:=l_prd_workorder_rec.ITEM_INSTANCE_UOM;
397: END IF;
398:
399: IF p_x_prd_workorder_rec.COMPLETION_SUBINVENTORY= FND_API.G_MISS_CHAR THEN
400: p_x_prd_workorder_rec.COMPLETION_SUBINVENTORY:=NULL;
401: ELSIF p_x_prd_workorder_rec.COMPLETION_SUBINVENTORY IS NULL THEN
402: p_x_prd_workorder_rec.COMPLETION_SUBINVENTORY:=l_prd_workorder_rec.COMPLETION_SUBINVENTORY;
403: END IF;
401: ELSIF p_x_prd_workorder_rec.COMPLETION_SUBINVENTORY IS NULL THEN
402: p_x_prd_workorder_rec.COMPLETION_SUBINVENTORY:=l_prd_workorder_rec.COMPLETION_SUBINVENTORY;
403: END IF;
404:
405: IF p_x_prd_workorder_rec.COMPLETION_LOCATOR_ID= FND_API.G_MISS_NUM THEN
406: p_x_prd_workorder_rec.COMPLETION_LOCATOR_ID:=NULL;
407: ELSIF p_x_prd_workorder_rec.COMPLETION_LOCATOR_ID IS NULL THEN
408: p_x_prd_workorder_rec.COMPLETION_LOCATOR_ID:=l_prd_workorder_rec.COMPLETION_LOCATOR_ID;
409: END IF;
407: ELSIF p_x_prd_workorder_rec.COMPLETION_LOCATOR_ID IS NULL THEN
408: p_x_prd_workorder_rec.COMPLETION_LOCATOR_ID:=l_prd_workorder_rec.COMPLETION_LOCATOR_ID;
409: END IF;
410:
411: IF p_x_prd_workorder_rec.VISIT_ID= FND_API.G_MISS_NUM THEN
412: p_x_prd_workorder_rec.VISIT_ID:=NULL;
413: ELSIF p_x_prd_workorder_rec.VISIT_ID IS NULL THEN
414: p_x_prd_workorder_rec.VISIT_ID:=l_prd_workorder_rec.VISIT_ID;
415: END IF;
413: ELSIF p_x_prd_workorder_rec.VISIT_ID IS NULL THEN
414: p_x_prd_workorder_rec.VISIT_ID:=l_prd_workorder_rec.VISIT_ID;
415: END IF;
416:
417: IF p_x_prd_workorder_rec.VISIT_NUMBER= FND_API.G_MISS_NUM THEN
418: p_x_prd_workorder_rec.VISIT_NUMBER:=NULL;
419: ELSIF p_x_prd_workorder_rec.VISIT_NUMBER IS NULL THEN
420: p_x_prd_workorder_rec.VISIT_NUMBER:=l_prd_workorder_rec.VISIT_NUMBER;
421: END IF;
419: ELSIF p_x_prd_workorder_rec.VISIT_NUMBER IS NULL THEN
420: p_x_prd_workorder_rec.VISIT_NUMBER:=l_prd_workorder_rec.VISIT_NUMBER;
421: END IF;
422:
423: IF p_x_prd_workorder_rec.VISIT_NAME= FND_API.G_MISS_CHAR THEN
424: p_x_prd_workorder_rec.VISIT_NAME:=NULL;
425: ELSIF p_x_prd_workorder_rec.VISIT_NAME IS NULL THEN
426: p_x_prd_workorder_rec.VISIT_NAME:=l_prd_workorder_rec.VISIT_NAME;
427: END IF;
425: ELSIF p_x_prd_workorder_rec.VISIT_NAME IS NULL THEN
426: p_x_prd_workorder_rec.VISIT_NAME:=l_prd_workorder_rec.VISIT_NAME;
427: END IF;
428:
429: IF p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG= FND_API.G_MISS_CHAR THEN
430: p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG:=NULL;
431: ELSIF p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG IS NULL THEN
432: p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG:=l_prd_workorder_rec.MASTER_WORKORDER_FLAG;
433: END IF;
431: ELSIF p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG IS NULL THEN
432: p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG:=l_prd_workorder_rec.MASTER_WORKORDER_FLAG;
433: END IF;
434:
435: IF p_x_prd_workorder_rec.VISIT_TASK_ID= FND_API.G_MISS_NUM THEN
436: p_x_prd_workorder_rec.VISIT_TASK_ID:=NULL;
437: ELSIF p_x_prd_workorder_rec.VISIT_TASK_ID IS NULL THEN
438: p_x_prd_workorder_rec.VISIT_TASK_ID:=l_prd_workorder_rec.VISIT_TASK_ID;
439: END IF;
437: ELSIF p_x_prd_workorder_rec.VISIT_TASK_ID IS NULL THEN
438: p_x_prd_workorder_rec.VISIT_TASK_ID:=l_prd_workorder_rec.VISIT_TASK_ID;
439: END IF;
440:
441: IF p_x_prd_workorder_rec.MR_HEADER_ID= FND_API.G_MISS_NUM THEN
442: p_x_prd_workorder_rec.MR_HEADER_ID:=NULL;
443: ELSIF p_x_prd_workorder_rec.MR_HEADER_ID IS NULL THEN
444: p_x_prd_workorder_rec.MR_HEADER_ID:=l_prd_workorder_rec.MR_HEADER_ID;
445: END IF;
443: ELSIF p_x_prd_workorder_rec.MR_HEADER_ID IS NULL THEN
444: p_x_prd_workorder_rec.MR_HEADER_ID:=l_prd_workorder_rec.MR_HEADER_ID;
445: END IF;
446:
447: IF p_x_prd_workorder_rec.VISIT_TASK_NUMBER= FND_API.G_MISS_NUM THEN
448: p_x_prd_workorder_rec.VISIT_TASK_NUMBER:=NULL;
449: ELSIF p_x_prd_workorder_rec.VISIT_TASK_NUMBER IS NULL THEN
450: p_x_prd_workorder_rec.VISIT_TASK_NUMBER:=l_prd_workorder_rec.VISIT_TASK_NUMBER;
451: END IF;
449: ELSIF p_x_prd_workorder_rec.VISIT_TASK_NUMBER IS NULL THEN
450: p_x_prd_workorder_rec.VISIT_TASK_NUMBER:=l_prd_workorder_rec.VISIT_TASK_NUMBER;
451: END IF;
452:
453: IF p_x_prd_workorder_rec.MR_TITLE= FND_API.G_MISS_CHAR THEN
454: p_x_prd_workorder_rec.MR_TITLE:=NULL;
455: ELSIF p_x_prd_workorder_rec.MR_TITLE IS NULL THEN
456: p_x_prd_workorder_rec.MR_TITLE:=l_prd_workorder_rec.MR_TITLE;
457: END IF;
455: ELSIF p_x_prd_workorder_rec.MR_TITLE IS NULL THEN
456: p_x_prd_workorder_rec.MR_TITLE:=l_prd_workorder_rec.MR_TITLE;
457: END IF;
458:
459: IF p_x_prd_workorder_rec.SERVICE_ITEM_ID= FND_API.G_MISS_NUM THEN
460: p_x_prd_workorder_rec.SERVICE_ITEM_ID:=NULL;
461: ELSIF p_x_prd_workorder_rec.SERVICE_ITEM_ID IS NULL THEN
462: p_x_prd_workorder_rec.SERVICE_ITEM_ID:=l_prd_workorder_rec.SERVICE_ITEM_ID;
463: END IF;
461: ELSIF p_x_prd_workorder_rec.SERVICE_ITEM_ID IS NULL THEN
462: p_x_prd_workorder_rec.SERVICE_ITEM_ID:=l_prd_workorder_rec.SERVICE_ITEM_ID;
463: END IF;
464:
465: IF p_x_prd_workorder_rec.SERVICE_ITEM_ORG_ID= FND_API.G_MISS_NUM THEN
466: p_x_prd_workorder_rec.SERVICE_ITEM_ORG_ID:=NULL;
467: ELSIF p_x_prd_workorder_rec.SERVICE_ITEM_ORG_ID IS NULL THEN
468: p_x_prd_workorder_rec.SERVICE_ITEM_ORG_ID:=l_prd_workorder_rec.SERVICE_ITEM_ORG_ID;
469: END IF;
467: ELSIF p_x_prd_workorder_rec.SERVICE_ITEM_ORG_ID IS NULL THEN
468: p_x_prd_workorder_rec.SERVICE_ITEM_ORG_ID:=l_prd_workorder_rec.SERVICE_ITEM_ORG_ID;
469: END IF;
470:
471: IF p_x_prd_workorder_rec.SERVICE_ITEM_DESCRIPTION= FND_API.G_MISS_CHAR THEN
472: p_x_prd_workorder_rec.SERVICE_ITEM_DESCRIPTION:=NULL;
473: ELSIF p_x_prd_workorder_rec.SERVICE_ITEM_DESCRIPTION IS NULL THEN
474: p_x_prd_workorder_rec.SERVICE_ITEM_DESCRIPTION:=l_prd_workorder_rec.SERVICE_ITEM_DESCRIPTION;
475: END IF;
473: ELSIF p_x_prd_workorder_rec.SERVICE_ITEM_DESCRIPTION IS NULL THEN
474: p_x_prd_workorder_rec.SERVICE_ITEM_DESCRIPTION:=l_prd_workorder_rec.SERVICE_ITEM_DESCRIPTION;
475: END IF;
476:
477: IF p_x_prd_workorder_rec.SERVICE_ITEM_NUMBER= FND_API.G_MISS_CHAR THEN
478: p_x_prd_workorder_rec.SERVICE_ITEM_NUMBER:=NULL;
479: ELSIF p_x_prd_workorder_rec.SERVICE_ITEM_NUMBER IS NULL THEN
480: p_x_prd_workorder_rec.SERVICE_ITEM_NUMBER:=l_prd_workorder_rec.SERVICE_ITEM_NUMBER;
481: END IF;
479: ELSIF p_x_prd_workorder_rec.SERVICE_ITEM_NUMBER IS NULL THEN
480: p_x_prd_workorder_rec.SERVICE_ITEM_NUMBER:=l_prd_workorder_rec.SERVICE_ITEM_NUMBER;
481: END IF;
482:
483: IF p_x_prd_workorder_rec.SERVICE_ITEM_UOM= FND_API.G_MISS_CHAR THEN
484: p_x_prd_workorder_rec.SERVICE_ITEM_UOM:=NULL;
485: ELSIF p_x_prd_workorder_rec.SERVICE_ITEM_UOM IS NULL THEN
486: p_x_prd_workorder_rec.SERVICE_ITEM_UOM:=l_prd_workorder_rec.SERVICE_ITEM_UOM;
487: END IF;
485: ELSIF p_x_prd_workorder_rec.SERVICE_ITEM_UOM IS NULL THEN
486: p_x_prd_workorder_rec.SERVICE_ITEM_UOM:=l_prd_workorder_rec.SERVICE_ITEM_UOM;
487: END IF;
488:
489: IF p_x_prd_workorder_rec.PROJECT_ID= FND_API.G_MISS_NUM THEN
490: p_x_prd_workorder_rec.PROJECT_ID:=NULL;
491: ELSIF p_x_prd_workorder_rec.PROJECT_ID IS NULL THEN
492: p_x_prd_workorder_rec.PROJECT_ID:=l_prd_workorder_rec.PROJECT_ID;
493: END IF;
491: ELSIF p_x_prd_workorder_rec.PROJECT_ID IS NULL THEN
492: p_x_prd_workorder_rec.PROJECT_ID:=l_prd_workorder_rec.PROJECT_ID;
493: END IF;
494:
495: IF p_x_prd_workorder_rec.PROJECT_TASK_ID= FND_API.G_MISS_NUM THEN
496: p_x_prd_workorder_rec.PROJECT_TASK_ID:=NULL;
497: ELSIF p_x_prd_workorder_rec.PROJECT_TASK_ID IS NULL THEN
498: p_x_prd_workorder_rec.PROJECT_TASK_ID:=l_prd_workorder_rec.PROJECT_TASK_ID;
499: END IF;
497: ELSIF p_x_prd_workorder_rec.PROJECT_TASK_ID IS NULL THEN
498: p_x_prd_workorder_rec.PROJECT_TASK_ID:=l_prd_workorder_rec.PROJECT_TASK_ID;
499: END IF;
500:
501: IF p_x_prd_workorder_rec.INCIDENT_ID= FND_API.G_MISS_NUM THEN
502: p_x_prd_workorder_rec.INCIDENT_ID:=NULL;
503: ELSIF p_x_prd_workorder_rec.INCIDENT_ID IS NULL THEN
504: p_x_prd_workorder_rec.INCIDENT_ID:=l_prd_workorder_rec.INCIDENT_ID;
505: END IF;
503: ELSIF p_x_prd_workorder_rec.INCIDENT_ID IS NULL THEN
504: p_x_prd_workorder_rec.INCIDENT_ID:=l_prd_workorder_rec.INCIDENT_ID;
505: END IF;
506:
507: IF p_x_prd_workorder_rec.UNIT_EFFECTIVITY_ID= FND_API.G_MISS_NUM THEN
508: p_x_prd_workorder_rec.UNIT_EFFECTIVITY_ID:=NULL;
509: ELSIF p_x_prd_workorder_rec.UNIT_EFFECTIVITY_ID IS NULL THEN
510: p_x_prd_workorder_rec.UNIT_EFFECTIVITY_ID:=l_prd_workorder_rec.UNIT_EFFECTIVITY_ID;
511: END IF;
509: ELSIF p_x_prd_workorder_rec.UNIT_EFFECTIVITY_ID IS NULL THEN
510: p_x_prd_workorder_rec.UNIT_EFFECTIVITY_ID:=l_prd_workorder_rec.UNIT_EFFECTIVITY_ID;
511: END IF;
512:
513: IF p_x_prd_workorder_rec.PLAN_ID= FND_API.G_MISS_NUM THEN
514: p_x_prd_workorder_rec.PLAN_ID:=NULL;
515: ELSIF p_x_prd_workorder_rec.PLAN_ID IS NULL THEN
516: p_x_prd_workorder_rec.PLAN_ID:=l_prd_workorder_rec.PLAN_ID;
517: END IF;
515: ELSIF p_x_prd_workorder_rec.PLAN_ID IS NULL THEN
516: p_x_prd_workorder_rec.PLAN_ID:=l_prd_workorder_rec.PLAN_ID;
517: END IF;
518:
519: IF p_x_prd_workorder_rec.COLLECTION_ID= FND_API.G_MISS_NUM THEN
520: p_x_prd_workorder_rec.COLLECTION_ID:=NULL;
521: ELSIF p_x_prd_workorder_rec.COLLECTION_ID IS NULL THEN
522: p_x_prd_workorder_rec.COLLECTION_ID:=l_prd_workorder_rec.COLLECTION_ID;
523: END IF;
521: ELSIF p_x_prd_workorder_rec.COLLECTION_ID IS NULL THEN
522: p_x_prd_workorder_rec.COLLECTION_ID:=l_prd_workorder_rec.COLLECTION_ID;
523: END IF;
524:
525: IF p_x_prd_workorder_rec.JOB_PRIORITY= FND_API.G_MISS_NUM THEN
526: p_x_prd_workorder_rec.JOB_PRIORITY:=NULL;
527: ELSIF p_x_prd_workorder_rec.JOB_PRIORITY IS NULL THEN
528: p_x_prd_workorder_rec.JOB_PRIORITY:=l_prd_workorder_rec.PRIORITY;
529: END IF;
527: ELSIF p_x_prd_workorder_rec.JOB_PRIORITY IS NULL THEN
528: p_x_prd_workorder_rec.JOB_PRIORITY:=l_prd_workorder_rec.PRIORITY;
529: END IF;
530:
531: IF p_x_prd_workorder_rec.JOB_PRIORITY_MEANING= FND_API.G_MISS_CHAR THEN
532: p_x_prd_workorder_rec.JOB_PRIORITY_MEANING:=NULL;
533: ELSIF p_x_prd_workorder_rec.JOB_PRIORITY_MEANING IS NULL THEN
534: p_x_prd_workorder_rec.JOB_PRIORITY_MEANING:=l_prd_workorder_rec.PRIORITY_MEANING;
535: END IF;
533: ELSIF p_x_prd_workorder_rec.JOB_PRIORITY_MEANING IS NULL THEN
534: p_x_prd_workorder_rec.JOB_PRIORITY_MEANING:=l_prd_workorder_rec.PRIORITY_MEANING;
535: END IF;
536:
537: IF p_x_prd_workorder_rec.CONFIRM_FAILURE_FLAG = FND_API.G_MISS_CHAR THEN
538: p_x_prd_workorder_rec.CONFIRM_FAILURE_FLAG :=NULL;
539: ELSIF p_x_prd_workorder_rec.CONFIRM_FAILURE_FLAG IS NULL THEN
540: p_x_prd_workorder_rec.CONFIRM_FAILURE_FLAG :=l_prd_workorder_rec.CONFIRM_FAILURE_FLAG;
541: END IF;
538: p_x_prd_workorder_rec.CONFIRM_FAILURE_FLAG :=NULL;
539: ELSIF p_x_prd_workorder_rec.CONFIRM_FAILURE_FLAG IS NULL THEN
540: p_x_prd_workorder_rec.CONFIRM_FAILURE_FLAG :=l_prd_workorder_rec.CONFIRM_FAILURE_FLAG;
541: END IF;
542: IF p_x_prd_workorder_rec.ATTRIBUTE_CATEGORY= FND_API.G_MISS_CHAR THEN
543: p_x_prd_workorder_rec.ATTRIBUTE_CATEGORY:=NULL;
544: ELSIF p_x_prd_workorder_rec.ATTRIBUTE_CATEGORY IS NULL THEN
545: p_x_prd_workorder_rec.ATTRIBUTE_CATEGORY:=l_prd_workorder_rec.ATTRIBUTE_CATEGORY;
546: END IF;
544: ELSIF p_x_prd_workorder_rec.ATTRIBUTE_CATEGORY IS NULL THEN
545: p_x_prd_workorder_rec.ATTRIBUTE_CATEGORY:=l_prd_workorder_rec.ATTRIBUTE_CATEGORY;
546: END IF;
547:
548: IF p_x_prd_workorder_rec.ATTRIBUTE1= FND_API.G_MISS_CHAR THEN
549: p_x_prd_workorder_rec.ATTRIBUTE1:=NULL;
550: ELSIF p_x_prd_workorder_rec.ATTRIBUTE1 IS NULL THEN
551: p_x_prd_workorder_rec.ATTRIBUTE1:=l_prd_workorder_rec.ATTRIBUTE1;
552: END IF;
550: ELSIF p_x_prd_workorder_rec.ATTRIBUTE1 IS NULL THEN
551: p_x_prd_workorder_rec.ATTRIBUTE1:=l_prd_workorder_rec.ATTRIBUTE1;
552: END IF;
553:
554: IF p_x_prd_workorder_rec.ATTRIBUTE2= FND_API.G_MISS_CHAR THEN
555: p_x_prd_workorder_rec.ATTRIBUTE2:=NULL;
556: ELSIF p_x_prd_workorder_rec.ATTRIBUTE2 IS NULL THEN
557: p_x_prd_workorder_rec.ATTRIBUTE2:=l_prd_workorder_rec.ATTRIBUTE2;
558: END IF;
556: ELSIF p_x_prd_workorder_rec.ATTRIBUTE2 IS NULL THEN
557: p_x_prd_workorder_rec.ATTRIBUTE2:=l_prd_workorder_rec.ATTRIBUTE2;
558: END IF;
559:
560: IF p_x_prd_workorder_rec.ATTRIBUTE3= FND_API.G_MISS_CHAR THEN
561: p_x_prd_workorder_rec.ATTRIBUTE3:=NULL;
562: ELSIF p_x_prd_workorder_rec.ATTRIBUTE3 IS NULL THEN
563: p_x_prd_workorder_rec.ATTRIBUTE3:=l_prd_workorder_rec.ATTRIBUTE3;
564: END IF;
562: ELSIF p_x_prd_workorder_rec.ATTRIBUTE3 IS NULL THEN
563: p_x_prd_workorder_rec.ATTRIBUTE3:=l_prd_workorder_rec.ATTRIBUTE3;
564: END IF;
565:
566: IF p_x_prd_workorder_rec.ATTRIBUTE4= FND_API.G_MISS_CHAR THEN
567: p_x_prd_workorder_rec.ATTRIBUTE4:=NULL;
568: ELSIF p_x_prd_workorder_rec.ATTRIBUTE4 IS NULL THEN
569: p_x_prd_workorder_rec.ATTRIBUTE4:=l_prd_workorder_rec.ATTRIBUTE4;
570: END IF;
568: ELSIF p_x_prd_workorder_rec.ATTRIBUTE4 IS NULL THEN
569: p_x_prd_workorder_rec.ATTRIBUTE4:=l_prd_workorder_rec.ATTRIBUTE4;
570: END IF;
571:
572: IF p_x_prd_workorder_rec.ATTRIBUTE5= FND_API.G_MISS_CHAR THEN
573: p_x_prd_workorder_rec.ATTRIBUTE5:=NULL;
574: ELSIF p_x_prd_workorder_rec.ATTRIBUTE5 IS NULL THEN
575: p_x_prd_workorder_rec.ATTRIBUTE5:=l_prd_workorder_rec.ATTRIBUTE5;
576: END IF;
574: ELSIF p_x_prd_workorder_rec.ATTRIBUTE5 IS NULL THEN
575: p_x_prd_workorder_rec.ATTRIBUTE5:=l_prd_workorder_rec.ATTRIBUTE5;
576: END IF;
577:
578: IF p_x_prd_workorder_rec.ATTRIBUTE6= FND_API.G_MISS_CHAR THEN
579: p_x_prd_workorder_rec.ATTRIBUTE6:=NULL;
580: ELSIF p_x_prd_workorder_rec.ATTRIBUTE6 IS NULL THEN
581: p_x_prd_workorder_rec.ATTRIBUTE6:=l_prd_workorder_rec.ATTRIBUTE6;
582: END IF;
580: ELSIF p_x_prd_workorder_rec.ATTRIBUTE6 IS NULL THEN
581: p_x_prd_workorder_rec.ATTRIBUTE6:=l_prd_workorder_rec.ATTRIBUTE6;
582: END IF;
583:
584: IF p_x_prd_workorder_rec.ATTRIBUTE7= FND_API.G_MISS_CHAR THEN
585: p_x_prd_workorder_rec.ATTRIBUTE7:=NULL;
586: ELSIF p_x_prd_workorder_rec.ATTRIBUTE7 IS NULL THEN
587: p_x_prd_workorder_rec.ATTRIBUTE7:=l_prd_workorder_rec.ATTRIBUTE7;
588: END IF;
586: ELSIF p_x_prd_workorder_rec.ATTRIBUTE7 IS NULL THEN
587: p_x_prd_workorder_rec.ATTRIBUTE7:=l_prd_workorder_rec.ATTRIBUTE7;
588: END IF;
589:
590: IF p_x_prd_workorder_rec.ATTRIBUTE8= FND_API.G_MISS_CHAR THEN
591: p_x_prd_workorder_rec.ATTRIBUTE8:=NULL;
592: ELSIF p_x_prd_workorder_rec.ATTRIBUTE8 IS NULL THEN
593: p_x_prd_workorder_rec.ATTRIBUTE8:=l_prd_workorder_rec.ATTRIBUTE8;
594: END IF;
592: ELSIF p_x_prd_workorder_rec.ATTRIBUTE8 IS NULL THEN
593: p_x_prd_workorder_rec.ATTRIBUTE8:=l_prd_workorder_rec.ATTRIBUTE8;
594: END IF;
595:
596: IF p_x_prd_workorder_rec.ATTRIBUTE9= FND_API.G_MISS_CHAR THEN
597: p_x_prd_workorder_rec.ATTRIBUTE9:=NULL;
598: ELSIF p_x_prd_workorder_rec.ATTRIBUTE9 IS NULL THEN
599: p_x_prd_workorder_rec.ATTRIBUTE9:=l_prd_workorder_rec.ATTRIBUTE9;
600: END IF;
598: ELSIF p_x_prd_workorder_rec.ATTRIBUTE9 IS NULL THEN
599: p_x_prd_workorder_rec.ATTRIBUTE9:=l_prd_workorder_rec.ATTRIBUTE9;
600: END IF;
601:
602: IF p_x_prd_workorder_rec.ATTRIBUTE10= FND_API.G_MISS_CHAR THEN
603: p_x_prd_workorder_rec.ATTRIBUTE10:=NULL;
604: ELSIF p_x_prd_workorder_rec.ATTRIBUTE10 IS NULL THEN
605: p_x_prd_workorder_rec.ATTRIBUTE10:=l_prd_workorder_rec.ATTRIBUTE10;
606: END IF;
604: ELSIF p_x_prd_workorder_rec.ATTRIBUTE10 IS NULL THEN
605: p_x_prd_workorder_rec.ATTRIBUTE10:=l_prd_workorder_rec.ATTRIBUTE10;
606: END IF;
607:
608: IF p_x_prd_workorder_rec.ATTRIBUTE11= FND_API.G_MISS_CHAR THEN
609: p_x_prd_workorder_rec.ATTRIBUTE11:=NULL;
610: ELSIF p_x_prd_workorder_rec.ATTRIBUTE11 IS NULL THEN
611: p_x_prd_workorder_rec.ATTRIBUTE11:=l_prd_workorder_rec.ATTRIBUTE11;
612: END IF;
610: ELSIF p_x_prd_workorder_rec.ATTRIBUTE11 IS NULL THEN
611: p_x_prd_workorder_rec.ATTRIBUTE11:=l_prd_workorder_rec.ATTRIBUTE11;
612: END IF;
613:
614: IF p_x_prd_workorder_rec.ATTRIBUTE12= FND_API.G_MISS_CHAR THEN
615: p_x_prd_workorder_rec.ATTRIBUTE12:=NULL;
616: ELSIF p_x_prd_workorder_rec.ATTRIBUTE12 IS NULL THEN
617: p_x_prd_workorder_rec.ATTRIBUTE12:=l_prd_workorder_rec.ATTRIBUTE12;
618: END IF;
616: ELSIF p_x_prd_workorder_rec.ATTRIBUTE12 IS NULL THEN
617: p_x_prd_workorder_rec.ATTRIBUTE12:=l_prd_workorder_rec.ATTRIBUTE12;
618: END IF;
619:
620: IF p_x_prd_workorder_rec.ATTRIBUTE13= FND_API.G_MISS_CHAR THEN
621: p_x_prd_workorder_rec.ATTRIBUTE13:=NULL;
622: ELSIF p_x_prd_workorder_rec.ATTRIBUTE13 IS NULL THEN
623: p_x_prd_workorder_rec.ATTRIBUTE13:=l_prd_workorder_rec.ATTRIBUTE13;
624: END IF;
622: ELSIF p_x_prd_workorder_rec.ATTRIBUTE13 IS NULL THEN
623: p_x_prd_workorder_rec.ATTRIBUTE13:=l_prd_workorder_rec.ATTRIBUTE13;
624: END IF;
625:
626: IF p_x_prd_workorder_rec.ATTRIBUTE14= FND_API.G_MISS_CHAR THEN
627: p_x_prd_workorder_rec.ATTRIBUTE14:=NULL;
628: ELSIF p_x_prd_workorder_rec.ATTRIBUTE14 IS NULL THEN
629: p_x_prd_workorder_rec.ATTRIBUTE14:=l_prd_workorder_rec.ATTRIBUTE14;
630: END IF;
628: ELSIF p_x_prd_workorder_rec.ATTRIBUTE14 IS NULL THEN
629: p_x_prd_workorder_rec.ATTRIBUTE14:=l_prd_workorder_rec.ATTRIBUTE14;
630: END IF;
631:
632: IF p_x_prd_workorder_rec.ATTRIBUTE15= FND_API.G_MISS_CHAR THEN
633: p_x_prd_workorder_rec.ATTRIBUTE15:=NULL;
634: ELSIF p_x_prd_workorder_rec.ATTRIBUTE15 IS NULL THEN
635: p_x_prd_workorder_rec.ATTRIBUTE15:=l_prd_workorder_rec.ATTRIBUTE15;
636: END IF;
634: ELSIF p_x_prd_workorder_rec.ATTRIBUTE15 IS NULL THEN
635: p_x_prd_workorder_rec.ATTRIBUTE15:=l_prd_workorder_rec.ATTRIBUTE15;
636: END IF;
637:
638: IF p_x_prd_workorder_rec.HOLD_REASON_CODE = FND_API.G_MISS_CHAR THEN
639: p_x_prd_workorder_rec.HOLD_REASON_CODE:=NULL;
640: ELSIF p_x_prd_workorder_rec.HOLD_REASON_CODE IS NULL THEN
641: p_x_prd_workorder_rec.HOLD_REASON_CODE:=l_prd_workorder_rec.HOLD_REASON_CODE;
642: END IF;
716: BEGIN
717: IF p_x_prd_workorder_rec.dml_operation='C' THEN
718:
719: IF p_x_prd_workorder_rec.QUANTITY IS NULL OR
720: p_x_prd_workorder_rec.QUANTITY=FND_API.G_MISS_CHAR THEN
721: OPEN get_quantity(p_x_prd_workorder_rec.ITEM_INSTANCE_ID);
722: FETCH get_quantity INTO p_x_prd_workorder_rec.QUANTITY;
723: CLOSE get_quantity;
724: END IF;
723: CLOSE get_quantity;
724: END IF;
725:
726: IF p_x_prd_workorder_rec.STATUS_CODE IS NULL OR
727: p_x_prd_workorder_rec.STATUS_CODE=FND_API.G_MISS_CHAR THEN
728: p_x_prd_workorder_rec.STATUS_CODE:=G_JOB_STATUS_UNRELEASED; -- Job_Status_Code '1' UnReleseed
729: END IF;
730:
731: IF p_x_prd_workorder_rec.job_priority IS NULL OR
728: p_x_prd_workorder_rec.STATUS_CODE:=G_JOB_STATUS_UNRELEASED; -- Job_Status_Code '1' UnReleseed
729: END IF;
730:
731: IF p_x_prd_workorder_rec.job_priority IS NULL OR
732: p_x_prd_workorder_rec.job_priority=FND_API.G_MISS_NUM THEN
733: p_x_prd_workorder_rec.job_priority:=NULL;
734: ELSIF p_x_prd_workorder_rec.job_priority IS not NULL AND
735: p_x_prd_workorder_rec.job_priority<>FND_API.G_MISS_NUM THEN
736:
731: IF p_x_prd_workorder_rec.job_priority IS NULL OR
732: p_x_prd_workorder_rec.job_priority=FND_API.G_MISS_NUM THEN
733: p_x_prd_workorder_rec.job_priority:=NULL;
734: ELSIF p_x_prd_workorder_rec.job_priority IS not NULL AND
735: p_x_prd_workorder_rec.job_priority<>FND_API.G_MISS_NUM THEN
736:
737: SELECT COUNT(*) INTO l_ctr
738: FROM MFG_LOOKUPS
739: WHERE lookup_type='WIP_EAM_ACTIVITY_PRIORITY'
746: END IF;
747:
748: ELSIF p_x_prd_workorder_rec.dml_operation='U' THEN
749: IF p_x_prd_workorder_rec.job_priority IS NULL OR
750: p_x_prd_workorder_rec.job_priority=FND_API.G_MISS_NUM THEN
751: p_x_prd_workorder_rec.job_priority:=NULL;
752: END IF;
753:
754: IF p_x_prd_workorder_rec.Department_Name IS not NULL AND
751: p_x_prd_workorder_rec.job_priority:=NULL;
752: END IF;
753:
754: IF p_x_prd_workorder_rec.Department_Name IS not NULL AND
755: p_x_prd_workorder_rec.Department_Name<>FND_API.G_MISS_CHAR THEN
756:
757: OPEN get_department(p_x_prd_workorder_rec.Department_Name,p_x_prd_workorder_rec.Organization_id);
758: FETCH get_department INTO p_x_prd_workorder_rec.department_id;
759:
785: FETCH get_wo_sch_sec INTO l_sch_start_sec, l_sch_end_sec;
786: CLOSE get_wo_sch_sec;
787:
788: IF p_x_prd_workorder_rec.SCHEDULED_START_DATE IS NOT NULL AND
789: p_x_prd_workorder_rec.SCHEDULED_START_DATE <> FND_API.G_MISS_DATE
790: AND G_CALLED_FROM <> 'OAF' THEN
791:
792: -- Fix for error while releasing unreleased workorders
793: -- the seconds value needs to be taken into account for workorders, otherwise
808: AHL_DEBUG_PUB.debug( 'p_x_prd_workorder_rec.SCHEDULED_START_DATE : ' || to_char(p_x_prd_workorder_rec.SCHEDULED_START_DATE,'DD-MON-YY hh24:mi:ss') );
809: END IF;
810:
811: IF p_x_prd_workorder_rec.SCHEDULED_END_DATE IS NOT NULL AND
812: p_x_prd_workorder_rec.SCHEDULED_END_DATE <> FND_API.G_MISS_DATE
813: AND G_CALLED_FROM <> 'OAF' THEN
814:
815: -- Fix for error while releasing unreleased workorders
816: -- the seconds value needs to be taken into account for workorders, otherwise
843: FETCH get_wo_act_sec INTO l_act_start_sec, l_act_end_sec;
844: CLOSE get_wo_act_sec;
845:
846: IF p_x_prd_workorder_rec.ACTUAL_START_DATE IS NOT NULL AND
847: p_x_prd_workorder_rec.ACTUAL_START_DATE <> FND_API.G_MISS_DATE THEN
848:
849: l_sec := TO_CHAR(p_x_prd_workorder_rec.ACTUAL_START_DATE, 'ss');
850:
851: -- Balaji added for Release NR error
864:
865: END IF;
866:
867: IF p_x_prd_workorder_rec.ACTUAL_END_DATE IS NOT NULL AND
868: p_x_prd_workorder_rec.ACTUAL_END_DATE <> FND_API.G_MISS_DATE THEN
869:
870: l_sec := TO_CHAR(p_x_prd_workorder_rec.ACTUAL_END_DATE, 'ss');
871:
872: -- Balaji added for Release NR error
886: END IF;
887:
888: -- FP bug# 7631453
889: IF (p_x_prd_workorder_rec.HOLD_REASON_CODE IS NULL OR G_CALLED_FROM <> 'API' OR G_CALLED_FROM IS NULL) THEN
890: IF p_x_prd_workorder_rec.HOLD_REASON IS NOT NULL AND p_x_prd_workorder_rec.HOLD_REASON <> FND_API.G_MISS_CHAR THEN
891: OPEN get_hold_reason_code_csr(p_x_prd_workorder_rec.HOLD_REASON);
892: FETCH get_hold_reason_code_csr INTO p_x_prd_workorder_rec.HOLD_REASON_CODE;
893: IF get_hold_reason_code_csr%NOTFOUND THEN
894: FND_MESSAGE.SET_NAME('AHL','AHL_PP_REASON_INVALID');
1096: IF l_wo_status_code IN ('22','7','12','4','5') THEN
1097: FND_MESSAGE.set_name('AHL','AHL_PRD_UPD_WO_STS');
1098: FND_MESSAGE.set_token('WO_STATUS', l_wo_status);
1099: FND_MSG_PUB.add;
1100: RAISE FND_API.G_EXC_ERROR;
1101: END IF; -- IF l_wo_status_code IN ('22','7','12','4','5') THEN
1102: END IF; -- IF is_wo_updated = TRUE THEN
1103: END IF; -- IF p_prd_workorder_rec.DML_OPERATION = 'U' THEN
1104:
1108: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => NULL,
1109: p_ue_id => NULL,
1110: p_visit_id => NULL,
1111: p_item_instance_id => p_prd_workorder_rec.item_instance_id);
1112: IF l_return_status = FND_API.G_TRUE THEN
1113: IF p_prd_workorder_rec.DML_OPERATION='C' THEN
1114: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_CRT_WO_UNTLCKD');
1115: ELSE
1116: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UPD_WO_UNTLCKD');
1115: ELSE
1116: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_UPD_WO_UNTLCKD');
1117: END IF;
1118: FND_MSG_PUB.ADD;
1119: RAISE FND_API.G_EXC_ERROR;
1120: END IF;
1121: -- rroy
1122: -- ACL Changes
1123:
1133: FND_MSG_PUB.ADD;
1134: RETURN;
1135: END IF;
1136: IF p_prd_workorder_rec.SCHEDULED_START_DATE IS NULL OR
1137: p_prd_workorder_rec.SCHEDULED_START_DATE=FND_API.G_MISS_DATE THEN
1138: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHED_ST_DT_NULL');
1139: FND_MSG_PUB.ADD;
1140: END IF;
1141:
1139: FND_MSG_PUB.ADD;
1140: END IF;
1141:
1142: IF p_prd_workorder_rec.SCHEDULED_END_DATE IS NULL OR
1143: p_prd_workorder_rec.SCHEDULED_END_DATE=FND_API.G_MISS_DATE THEN
1144: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHED_END_DT_NULL');
1145: FND_MSG_PUB.ADD;
1146: END IF;
1147:
1145: FND_MSG_PUB.ADD;
1146: END IF;
1147:
1148: IF p_prd_workorder_rec.SCHEDULED_START_DATE IS NOT NULL AND
1149: p_prd_workorder_rec.SCHEDULED_START_DATE<>FND_API.G_MISS_DATE AND
1150: p_prd_workorder_rec.SCHEDULED_END_DATE IS NOT NULL AND
1151: p_prd_workorder_rec.SCHEDULED_END_DATE<>FND_API.G_MISS_DATE THEN
1152:
1153: IF p_prd_workorder_rec.SCHEDULED_START_DATE > p_prd_workorder_rec.SCHEDULED_END_DATE THEN
1147:
1148: IF p_prd_workorder_rec.SCHEDULED_START_DATE IS NOT NULL AND
1149: p_prd_workorder_rec.SCHEDULED_START_DATE<>FND_API.G_MISS_DATE AND
1150: p_prd_workorder_rec.SCHEDULED_END_DATE IS NOT NULL AND
1151: p_prd_workorder_rec.SCHEDULED_END_DATE<>FND_API.G_MISS_DATE THEN
1152:
1153: IF p_prd_workorder_rec.SCHEDULED_START_DATE > p_prd_workorder_rec.SCHEDULED_END_DATE THEN
1154: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_SCHD_STDT_GT_SCHD_DATE');
1155: FND_MSG_PUB.ADD;
1178:
1179: END IF;
1180:
1181: IF p_prd_workorder_rec.ORGANIZATION_ID IS NULL OR
1182: p_prd_workorder_rec.ORGANIZATION_ID=FND_API.G_MISS_NUM THEN
1183: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ORGID_NULL');
1184: FND_MSG_PUB.ADD;
1185: ELSE
1186: OPEN validate_org(p_prd_workorder_rec.ORGANIZATION_ID);
1196: CLOSE validate_org;
1197: END IF;
1198:
1199: IF p_prd_workorder_rec.DEPARTMENT_ID IS NULL OR
1200: p_prd_workorder_rec.DEPARTMENT_ID=FND_API.G_MISS_NUM THEN
1201: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_DEPT_ID_NULL');
1202: FND_MSG_PUB.ADD;
1203: ELSE
1204: OPEN validate_dept(p_prd_workorder_rec.Department_id, p_prd_workorder_rec.Organization_id);
1212: CLOSE validate_dept;
1213: END IF;
1214:
1215: IF p_prd_workorder_rec.ITEM_INSTANCE_ID IS NULL OR
1216: p_prd_workorder_rec.ITEM_INSTANCE_ID=FND_API.G_MISS_NUM THEN
1217: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ITMINSTID_NULL');
1218: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1219: FND_MSG_PUB.ADD;
1220: ELSE
1228: CLOSE validate_item_instance;
1229: END IF;
1230:
1231: IF p_prd_workorder_rec.STATUS_CODE IS NULL OR
1232: p_prd_workorder_rec.STATUS_CODE=FND_API.G_MISS_CHAR THEN
1233: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_STATUS_CODE_INVALID');
1234: FND_MSG_PUB.ADD;
1235: ELSE
1236: OPEN get_lookup_type_code(p_prd_workorder_rec.STATUS_CODE,'AHL_JOB_STATUS');
1244:
1245: IF p_prd_workorder_rec.DML_OPERATION='U' THEN
1246:
1247: IF (p_prd_workorder_rec.actual_start_date IS NULL OR
1248: p_prd_workorder_rec.actual_start_date=FND_API.G_MISS_DATE) AND
1249: (p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1250: p_prd_workorder_rec.actual_end_date IS NOT NULL) THEN
1251: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_START_DT_NULL');
1252: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1245: IF p_prd_workorder_rec.DML_OPERATION='U' THEN
1246:
1247: IF (p_prd_workorder_rec.actual_start_date IS NULL OR
1248: p_prd_workorder_rec.actual_start_date=FND_API.G_MISS_DATE) AND
1249: (p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1250: p_prd_workorder_rec.actual_end_date IS NOT NULL) THEN
1251: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_START_DT_NULL');
1252: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1253: FND_MSG_PUB.ADD;
1253: FND_MSG_PUB.ADD;
1254: END IF;
1255:
1256: IF p_prd_workorder_rec.actual_start_date IS NOT NULL AND
1257: p_prd_workorder_rec.actual_start_date<>FND_API.G_MISS_DATE AND
1258: p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1259: p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1260: p_prd_workorder_rec.actual_start_date > p_prd_workorder_rec.actual_end_date THEN
1261: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_ST_GT_SCHD_DATE');
1254: END IF;
1255:
1256: IF p_prd_workorder_rec.actual_start_date IS NOT NULL AND
1257: p_prd_workorder_rec.actual_start_date<>FND_API.G_MISS_DATE AND
1258: p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1259: p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1260: p_prd_workorder_rec.actual_start_date > p_prd_workorder_rec.actual_end_date THEN
1261: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_ST_GT_SCHD_DATE');
1262: FND_MSG_PUB.ADD;
1261: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_ST_GT_SCHD_DATE');
1262: FND_MSG_PUB.ADD;
1263: END IF;
1264:
1265: IF p_prd_workorder_rec.actual_end_date<>FND_API.G_MISS_DATE AND
1266: p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1267: TRUNC(p_prd_workorder_rec.actual_end_date) > TRUNC( SYSDATE ) THEN
1268: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_ACTUAL_END_GT_SYSDATE');
1269: FND_MSG_PUB.ADD;
1273: FETCH c_get_op_actual_dates INTO l_op_min_act_start_date, l_op_max_act_end_date;
1274: CLOSE c_get_op_actual_dates;
1275:
1276: IF ( p_prd_workorder_rec.actual_start_date IS NOT NULL AND
1277: p_prd_workorder_rec.actual_start_date <> FND_API.G_MISS_DATE AND
1278: l_op_min_act_start_date IS NOT NULL AND
1279: p_prd_workorder_rec.actual_start_date > l_op_min_act_start_date ) THEN
1280: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_ST_DT' );
1281: FND_MSG_PUB.add;
1281: FND_MSG_PUB.add;
1282: END IF;
1283:
1284: IF ( p_prd_workorder_rec.actual_end_date IS NOT NULL AND
1285: p_prd_workorder_rec.actual_end_date <> FND_API.G_MISS_DATE AND
1286: l_op_max_act_end_date IS NOT NULL AND
1287: p_prd_workorder_rec.actual_end_date < l_op_max_act_end_date ) THEN
1288: FND_MESSAGE.set_name( 'AHL', 'AHL_PRD_WO_OP_END_DT' );
1289: FND_MSG_PUB.add;
1304: FND_MSG_PUB.ADD;
1305: END IF;
1306:
1307: IF p_prd_workorder_rec.WORKORDER_ID IS NULL OR
1308: p_prd_workorder_rec.WORKORDER_ID=FND_API.G_MISS_NUM THEN
1309: FND_MESSAGE.SET_NAME('AHL','AHL_WORKORDER_ID_NULL');
1310: FND_MSG_PUB.ADD;
1311: END IF;
1312:
1310: FND_MSG_PUB.ADD;
1311: END IF;
1312:
1313: IF p_prd_workorder_rec.OBJECT_VERSION_NUMBER IS NULL OR
1314: p_prd_workorder_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_NUM THEN
1315: FND_MESSAGE.SET_NAME('AHL','OBJ_CANNOT_B_NULL');
1316: FND_MSG_PUB.ADD;
1317: END IF;
1318:
1330:
1331: ELSIF p_prd_workorder_rec.DML_OPERATION='C' THEN
1332:
1333: IF p_prd_workorder_rec.organization_id IS not NULL AND
1334: p_prd_workorder_rec.organization_id<>FND_API.G_MISS_NUM THEN
1335: OPEN validate_project(p_prd_workorder_rec.organization_id);
1336: FETCH validate_project INTO l_dummy_ctr;
1337: IF validate_project%NOTFOUND THEN
1338: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_PROJECT_INVALID');
1339: FND_MESSAGE.SET_TOKEN('ORGID',l_record_str,false);
1340: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1341: FND_MSG_PUB.ADD;
1342: ELSIF p_prd_workorder_rec.Project_id IS not NULL AND
1343: p_prd_workorder_rec.Project_id<>FND_API.G_MISS_NUM THEN
1344:
1345: -- replace MTL_PROJECT_V with PJM_PROJECTS_ORG_OU_SECURE_V for R12
1346: -- required for PJM MOAC changes.
1347: SELECT COUNT(*) INTO l_dummy_ctr
1356: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1357: FND_MSG_PUB.ADD;
1358: ELSIF l_dummy_ctr>0 THEN
1359: IF p_prd_workorder_rec.Project_task_id IS not NULL AND
1360: p_prd_workorder_rec.Project_task_id<>FND_API.G_MISS_NUM THEN
1361: SELECT COUNT(*) INTO l_dummy_ctr
1362: --SELECT 1 INTO l_dummy_ctr
1363: FROM pa_tasks
1364: WHERE project_id=p_prd_workorder_rec.project_id
1375: CLOSE validate_project;
1376: END IF;
1377:
1378: IF ( p_prd_workorder_rec.Visit_id IS NULL OR
1379: p_prd_workorder_rec.Visit_id=FND_API.G_MISS_NUM ) THEN
1380: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISITID_NULL');
1381: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1382: END IF;
1383:
1381: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1382: END IF;
1383:
1384: IF ( p_prd_workorder_rec.Master_workorder_flag IS NULL OR
1385: p_prd_workorder_rec.Master_workorder_flag=FND_API.G_MISS_CHAR OR
1386: p_prd_workorder_rec.Master_workorder_flag NOT IN ( 'Y' , 'N' ) ) THEN
1387: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_MWOFLAG_INVALID');
1388: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1389: ELSIF ( ( p_prd_workorder_rec.Visit_task_id IS NULL OR
1386: p_prd_workorder_rec.Master_workorder_flag NOT IN ( 'Y' , 'N' ) ) THEN
1387: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_MWOFLAG_INVALID');
1388: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1389: ELSIF ( ( p_prd_workorder_rec.Visit_task_id IS NULL OR
1390: p_prd_workorder_rec.Visit_task_id=FND_API.G_MISS_NUM ) AND
1391: p_prd_workorder_rec.Master_workorder_flag = 'N' ) THEN
1392: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISITASKID_NULL');
1393: FND_MESSAGE.SET_TOKEN('RECORD',l_record_str,false);
1394: FND_MSG_PUB.ADD;
1394: FND_MSG_PUB.ADD;
1395: END IF;
1396:
1397: IF ( p_prd_workorder_rec.Visit_task_id IS NOT NULL AND
1398: p_prd_workorder_rec.Visit_task_id<>FND_API.G_MISS_NUM ) THEN
1399:
1400: SELECT COUNT(*)
1401: INTO l_dummy_ctr
1402: FROM AHL_WORKORDERS
1422:
1423: END IF;
1424:
1425: IF p_prd_workorder_rec.completion_subinventory IS NOT NULL AND
1426: p_prd_workorder_rec.COMPLETION_SUBINVENTORY<>FND_API.G_MISS_CHAR THEN
1427: OPEN validate_subinventory(p_prd_workorder_rec.organization_id, p_prd_workorder_rec.Completion_subinventory);
1428: FETCH validate_subinventory INTO l_subinv_rec;
1429: IF validate_subinventory%FOUND AND
1430: NVL(l_subinv_rec.eam_enabled_flag,'x')='N' THEN
1437: CLOSE validate_subinventory;
1438: END IF;
1439:
1440: IF p_prd_workorder_rec.Completion_locator_id IS not NULL AND
1441: p_prd_workorder_rec.Completion_locator_id<>FND_API.G_MISS_CHAR THEN
1442: SELECT COUNT(*)
1443: INTO l_dummy_ctr
1444: FROM MTL_ITEM_LOCATIONS
1445: WHERE inventory_location_id=p_prd_workorder_rec.completion_locator_id;
1449: END IF;
1450: END IF;
1451:
1452: IF p_prd_workorder_rec.Firm_planned_flag IS NULL OR
1453: p_prd_workorder_rec.Completion_locator_id=FND_API.G_MISS_NUM THEN
1454: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_FIRM_PLANNED_FLAG_NULL');
1455: FND_MSG_PUB.ADD;
1456: ELSIF p_prd_workorder_rec.Firm_planned_flag <1 AND
1457: p_prd_workorder_rec.Firm_planned_flag >2 THEN
1459: FND_MSG_PUB.ADD;
1460: END IF;
1461:
1462: IF p_prd_workorder_rec.mr_route_id IS not NULL OR
1463: p_prd_workorder_rec.mr_route_id<>FND_API.G_MISS_NUM THEN
1464: SELECT COUNT(*)
1465: INTO l_dummy_ctr
1466: FROM AHL_MR_ROUTES_V -- Chnaged from AHL_MR_ROUTES to be Application Usage complaint.
1467: WHERE mr_route_id=p_prd_workorder_rec.mr_route_id;
1472: END IF;
1473: END IF;
1474:
1475: IF p_prd_workorder_rec.ITEM_INSTANCE_ID IS NULL OR
1476: p_prd_workorder_rec.ITEM_INSTANCE_ID=FND_API.G_MISS_NUM THEN
1477: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INSTANCE_ID_NULL');
1478: FND_MSG_PUB.ADD;
1479: ELSE
1480: SELECT COUNT(a.instance_id)
1492: END IF;
1493: END IF;
1494:
1495: IF p_prd_workorder_rec.INVENTORY_ITEM_ID IS NULL OR
1496: p_prd_workorder_rec.INVENTORY_ITEM_ID=FND_API.G_MISS_NUM THEN
1497: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_INV_ITEM_ID_NULL');
1498: FND_MSG_PUB.ADD;
1499: END IF;
1500:
1501: END IF;
1502:
1503: -- nsikka: ER 5846702
1504: IF p_prd_workorder_rec.hold_reason_code IS NOT NULL AND
1505: p_prd_workorder_rec.hold_reason_code<>FND_API.G_MISS_CHAR THEN
1506: OPEN validate_hold_reason_code_csr(p_prd_workorder_rec.hold_reason_code);
1507: FETCH validate_hold_reason_code_csr INTO l_dummy_ctr;
1508: IF validate_hold_reason_code_csr%NOTFOUND THEN
1509: FND_MESSAGE.SET_NAME('AHL','AHL_PP_REASON_INVALID');
1549:
1550:
1551: BEGIN
1552:
1553: x_return_status := FND_API.G_RET_STS_SUCCESS;
1554: x_department_id := NULL;
1555:
1556: OPEN get_res_dept_csr (p_aso_resource_id, p_organization_id);
1557: FETCH get_res_dept_csr INTO l_department_id, l_department_name;
1566: -- raise error
1567: FND_MESSAGE.set_name('AHL','AHL_DUPLICATE_DEPT_FOUND');
1568: FND_MESSAGE.set_token('DESC',p_aso_resc_name);
1569: FND_MSG_PUB.add;
1570: x_return_status := FND_API.G_RET_STS_ERROR;
1571: END IF;
1572:
1573: CLOSE get_res_dept_csr;
1574:
1643: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_department_name:' || l_department_name);
1644: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_final_department_id:' || l_final_department_id);
1645: END IF;
1646:
1647: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1648: RAISE FND_API.G_EXC_ERROR;
1649: END IF;
1650:
1651: IF (l_department_id IS NOT NULL) THEN
1644: AHL_DEBUG_PUB.debug( 'Get_Default_Rt_Op_dept-'|| 'l_final_department_id:' || l_final_department_id);
1645: END IF;
1646:
1647: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1648: RAISE FND_API.G_EXC_ERROR;
1649: END IF;
1650:
1651: IF (l_department_id IS NOT NULL) THEN
1652: IF (l_final_department_id IS NULL) THEN
1653: l_final_department_id := l_department_id;
1654: l_final_department_name := l_department_name;
1655: ELSIF (l_department_id <> l_final_department_id) THEN
1656: -- raise error.
1657: x_return_status := FND_API.G_RET_STS_ERROR;
1658: EXIT;
1659: END IF;
1660: l_department_id := NULL;
1661: l_department_name := NULL;
1662: END IF;
1663:
1664: END LOOP;
1665:
1666: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1667: RAISE FND_API.G_EXC_ERROR;
1668: END IF;
1669:
1670: -- only one unique dept. may be found.
1663:
1664: END LOOP;
1665:
1666: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1667: RAISE FND_API.G_EXC_ERROR;
1668: END IF;
1669:
1670: -- only one unique dept. may be found.
1671: -- or no dept level resource found.
1767: FOR i in p_operation_tbl.FIRST..p_operation_tbl.LAST LOOP
1768:
1769: IF ( p_operation_tbl(i).dml_operation = 'C' AND
1770: p_operation_tbl(i).operation_id IS NOT NULL AND
1771: p_operation_tbl(i).operation_id <> FND_API.G_MISS_NUM ) THEN
1772:
1773: -- Get the Resource Requirements defined for the Operation
1774: OPEN get_oper_resources( p_operation_tbl(i).operation_id );
1775: LOOP
2198:
2199: FOR i in p_operation_tbl.FIRST..p_operation_tbl.LAST LOOP
2200: IF ( p_operation_tbl(i).dml_operation = 'C' AND
2201: p_operation_tbl(i).operation_id IS NOT NULL AND
2202: p_operation_tbl(i).operation_id <> FND_API.G_MISS_NUM ) THEN
2203:
2204: -- Get the Material Requirements defined for the Operation
2205: OPEN get_oper_materials( p_operation_tbl(i).operation_id );
2206: LOOP
2616: p_x_prd_workorder_rec.WIP_ENTITY_ID :=NULL;
2617: --p_x_prd_workorder_rec.STATUS_CODE :=G_JOB_STATUS_UNRELEASED; -- Unreleased
2618:
2619: IF p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG IS NULL OR
2620: p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG = FND_API.G_MISS_CHAR THEN
2621: p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG := 'N';
2622: END IF;
2623:
2624: IF p_x_prd_workorder_rec.VISIT_TASK_ID = FND_API.G_MISS_NUM THEN
2620: p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG = FND_API.G_MISS_CHAR THEN
2621: p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG := 'N';
2622: END IF;
2623:
2624: IF p_x_prd_workorder_rec.VISIT_TASK_ID = FND_API.G_MISS_NUM THEN
2625: p_x_prd_workorder_rec.VISIT_TASK_ID := NULL;
2626: END IF;
2627:
2628: IF p_x_prd_workorder_rec.MASTER_WORKORDER_FLAG = 'Y' THEN
2638: IF l_qa_inspection_type is NOT NULL THEN
2639: AHL_QA_RESULTS_PVT.get_qa_plan
2640: (
2641: p_api_version => 1.0,
2642: p_init_msg_list => FND_API.G_FALSE,
2643: p_commit => FND_API.G_FALSE,
2644: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2645: p_default => FND_API.G_FALSE,
2646: p_module_type => NULL,
2639: AHL_QA_RESULTS_PVT.get_qa_plan
2640: (
2641: p_api_version => 1.0,
2642: p_init_msg_list => FND_API.G_FALSE,
2643: p_commit => FND_API.G_FALSE,
2644: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2645: p_default => FND_API.G_FALSE,
2646: p_module_type => NULL,
2647: x_return_status => l_return_status,
2640: (
2641: p_api_version => 1.0,
2642: p_init_msg_list => FND_API.G_FALSE,
2643: p_commit => FND_API.G_FALSE,
2644: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2645: p_default => FND_API.G_FALSE,
2646: p_module_type => NULL,
2647: x_return_status => l_return_status,
2648: x_msg_count => l_msg_count,
2641: p_api_version => 1.0,
2642: p_init_msg_list => FND_API.G_FALSE,
2643: p_commit => FND_API.G_FALSE,
2644: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2645: p_default => FND_API.G_FALSE,
2646: p_module_type => NULL,
2647: x_return_status => l_return_status,
2648: x_msg_count => l_msg_count,
2649: x_msg_data => l_msg_data,
2761: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_name:' || l_department_name);
2762: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_route_found:' || l_route_found);
2763: END IF;
2764:
2765: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2766: RAISE FND_API.G_EXC_ERROR;
2767: END IF;
2768:
2769: IF (l_route_found = 'Y') THEN
2762: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_route_found:' || l_route_found);
2763: END IF;
2764:
2765: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2766: RAISE FND_API.G_EXC_ERROR;
2767: END IF;
2768:
2769: IF (l_route_found = 'Y') THEN
2770: IF (l_department_id IS NOT NULL) THEN
2792: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_name:' || l_department_name);
2793: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_oper_found:' || l_oper_found);
2794: END IF;
2795:
2796: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2797: RAISE FND_API.G_EXC_ERROR;
2798: END IF;
2799:
2800: IF (l_department_id IS NOT NULL) THEN
2793: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_oper_found:' || l_oper_found);
2794: END IF;
2795:
2796: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2797: RAISE FND_API.G_EXC_ERROR;
2798: END IF;
2799:
2800: IF (l_department_id IS NOT NULL) THEN
2801: p_x_operations_tbl(i).department_id := l_department_id;
2810:
2811: PROCEDURE create_job
2812: (
2813: p_api_version IN NUMBER := 1.0,
2814: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2815: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2816: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2817: p_default IN VARCHAR2 := FND_API.G_FALSE,
2818: p_module_type IN VARCHAR2,
2811: PROCEDURE create_job
2812: (
2813: p_api_version IN NUMBER := 1.0,
2814: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2815: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2816: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2817: p_default IN VARCHAR2 := FND_API.G_FALSE,
2818: p_module_type IN VARCHAR2,
2819: x_return_status OUT NOCOPY VARCHAR2,
2812: (
2813: p_api_version IN NUMBER := 1.0,
2814: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2815: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2816: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2817: p_default IN VARCHAR2 := FND_API.G_FALSE,
2818: p_module_type IN VARCHAR2,
2819: x_return_status OUT NOCOPY VARCHAR2,
2820: x_msg_count OUT NOCOPY NUMBER,
2813: p_api_version IN NUMBER := 1.0,
2814: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
2815: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2816: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2817: p_default IN VARCHAR2 := FND_API.G_FALSE,
2818: p_module_type IN VARCHAR2,
2819: x_return_status OUT NOCOPY VARCHAR2,
2820: x_msg_count OUT NOCOPY NUMBER,
2821: x_msg_data OUT NOCOPY VARCHAR2,
2878:
2879: BEGIN
2880: SAVEPOINT create_job_PVT;
2881:
2882: IF NOT FND_API.compatible_api_call(l_api_version,
2883: p_api_version,
2884: l_api_name,G_PKG_NAME) THEN
2885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2886: END IF;
2881:
2882: IF NOT FND_API.compatible_api_call(l_api_version,
2883: p_api_version,
2884: l_api_name,G_PKG_NAME) THEN
2885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2886: END IF;
2887:
2888: IF FND_API.to_boolean(p_init_msg_list) THEN
2889: FND_MSG_PUB.initialize;
2884: l_api_name,G_PKG_NAME) THEN
2885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2886: END IF;
2887:
2888: IF FND_API.to_boolean(p_init_msg_list) THEN
2889: FND_MSG_PUB.initialize;
2890: END IF;
2891:
2892: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2888: IF FND_API.to_boolean(p_init_msg_list) THEN
2889: FND_MSG_PUB.initialize;
2890: END IF;
2891:
2892: x_return_status:=FND_API.G_RET_STS_SUCCESS;
2893:
2894: IF G_DEBUG='Y' THEN
2895: AHL_DEBUG_PUB.enable_debug;
2896: END IF;
2901: p_prd_workorder_rec => p_x_prd_workorder_rec,
2902: x_msg_count => l_msg_count,
2903: x_msg_data => l_msg_data,
2904: x_return_status => l_return_status);
2905: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2906: RAISE FND_API.G_EXC_ERROR;
2907: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2909: END IF;
2902: x_msg_count => l_msg_count,
2903: x_msg_data => l_msg_data,
2904: x_return_status => l_return_status);
2905: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2906: RAISE FND_API.G_EXC_ERROR;
2907: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2909: END IF;
2910: END IF;
2903: x_msg_data => l_msg_data,
2904: x_return_status => l_return_status);
2905: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2906: RAISE FND_API.G_EXC_ERROR;
2907: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2909: END IF;
2910: END IF;
2911:
2904: x_return_status => l_return_status);
2905: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
2906: RAISE FND_API.G_EXC_ERROR;
2907: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2909: END IF;
2910: END IF;
2911:
2912: IF ( G_DEBUG = 'Y' ) THEN
2912: IF ( G_DEBUG = 'Y' ) THEN
2913: AHL_DEBUG_PUB.debug( l_api_name || ' - Before validate_workorder' );
2914: END IF;
2915:
2916: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
2917: validate_workorder
2918: (
2919: p_prd_workorder_rec =>p_x_prd_workorder_rec,
2920: p_wip_load_flag =>p_wip_load_flag
2922:
2923: l_msg_count := FND_MSG_PUB.count_msg;
2924: IF l_msg_count > 0 THEN
2925: x_msg_count := l_msg_count;
2926: RAISE FND_API.G_EXC_ERROR;
2927: END IF;
2928: END IF;
2929:
2930: IF ( G_DEBUG = 'Y' ) THEN
3139:
3140: AHL_PRD_OPERATIONS_PVT.process_operations
3141: (
3142: p_api_version => 1.0,
3143: p_init_msg_list => FND_API.G_TRUE,
3144: p_commit => FND_API.G_FALSE,
3145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3146: p_default => FND_API.G_TRUE,
3147: p_module_type => NULL,
3140: AHL_PRD_OPERATIONS_PVT.process_operations
3141: (
3142: p_api_version => 1.0,
3143: p_init_msg_list => FND_API.G_TRUE,
3144: p_commit => FND_API.G_FALSE,
3145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3146: p_default => FND_API.G_TRUE,
3147: p_module_type => NULL,
3148: p_wip_mass_load_flag => 'N',
3141: (
3142: p_api_version => 1.0,
3143: p_init_msg_list => FND_API.G_TRUE,
3144: p_commit => FND_API.G_FALSE,
3145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3146: p_default => FND_API.G_TRUE,
3147: p_module_type => NULL,
3148: p_wip_mass_load_flag => 'N',
3149: x_return_status => l_return_status,
3142: p_api_version => 1.0,
3143: p_init_msg_list => FND_API.G_TRUE,
3144: p_commit => FND_API.G_FALSE,
3145: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3146: p_default => FND_API.G_TRUE,
3147: p_module_type => NULL,
3148: p_wip_mass_load_flag => 'N',
3149: x_return_status => l_return_status,
3150: x_msg_count => l_msg_count,
3151: x_msg_data => l_msg_data,
3152: p_x_prd_operation_tbl => x_operation_tbl
3153: );
3154:
3155: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3156: RAISE FND_API.G_EXC_ERROR;
3157: END IF;
3158:
3159: IF ( p_x_prd_workorder_rec.route_id IS NOT NULL ) THEN
3152: p_x_prd_operation_tbl => x_operation_tbl
3153: );
3154:
3155: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3156: RAISE FND_API.G_EXC_ERROR;
3157: END IF;
3158:
3159: IF ( p_x_prd_workorder_rec.route_id IS NOT NULL ) THEN
3160:
3177:
3178: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require
3179: (
3180: p_api_version => 1.0,
3181: p_init_msg_list => FND_API.G_TRUE,
3182: p_commit => FND_API.G_FALSE,
3183: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3184: p_module_type => NULL,
3185: p_interface_flag => 'N',
3178: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require
3179: (
3180: p_api_version => 1.0,
3181: p_init_msg_list => FND_API.G_TRUE,
3182: p_commit => FND_API.G_FALSE,
3183: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3184: p_module_type => NULL,
3185: p_interface_flag => 'N',
3186: p_operation_flag => 'C',
3179: (
3180: p_api_version => 1.0,
3181: p_init_msg_list => FND_API.G_TRUE,
3182: p_commit => FND_API.G_FALSE,
3183: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3184: p_module_type => NULL,
3185: p_interface_flag => 'N',
3186: p_operation_flag => 'C',
3187: p_x_resrc_require_tbl => x_resource_tbl,
3189: x_msg_count => l_msg_count,
3190: x_msg_data => l_msg_data
3191: );
3192:
3193: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3194: RAISE FND_API.G_EXC_ERROR;
3195: END IF;
3196: END IF;
3197:
3190: x_msg_data => l_msg_data
3191: );
3192:
3193: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3194: RAISE FND_API.G_EXC_ERROR;
3195: END IF;
3196: END IF;
3197:
3198: IF ( G_DEBUG = 'Y' ) THEN
3202:
3203: AHL_PP_MATERIALS_PVT.Process_Wo_Op_Materials
3204: (
3205: p_api_version => 1.0,
3206: p_init_msg_list => Fnd_Api.G_TRUE,
3207: p_commit => Fnd_Api.G_FALSE,
3208: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3209: p_operation_flag => 'C',
3210: p_prd_wooperation_tbl => x_operation_tbl,
3203: AHL_PP_MATERIALS_PVT.Process_Wo_Op_Materials
3204: (
3205: p_api_version => 1.0,
3206: p_init_msg_list => Fnd_Api.G_TRUE,
3207: p_commit => Fnd_Api.G_FALSE,
3208: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3209: p_operation_flag => 'C',
3210: p_prd_wooperation_tbl => x_operation_tbl,
3211: x_req_material_tbl => x_material_tbl,
3204: (
3205: p_api_version => 1.0,
3206: p_init_msg_list => Fnd_Api.G_TRUE,
3207: p_commit => Fnd_Api.G_FALSE,
3208: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3209: p_operation_flag => 'C',
3210: p_prd_wooperation_tbl => x_operation_tbl,
3211: x_req_material_tbl => x_material_tbl,
3212: x_return_status => l_return_status,
3213: x_msg_count => l_msg_count,
3214: x_msg_data => l_msg_data
3215: );
3216:
3217: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3218: RAISE FND_API.G_EXC_ERROR;
3219: END IF;
3220:
3221: IF ( G_DEBUG = 'Y' ) THEN
3214: x_msg_data => l_msg_data
3215: );
3216:
3217: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3218: RAISE FND_API.G_EXC_ERROR;
3219: END IF;
3220:
3221: IF ( G_DEBUG = 'Y' ) THEN
3222: AHL_DEBUG_PUB.debug( l_api_name || ' - After AHL_PP_MATERIALS_PVT.Process_Wo_Op_Materials' );
3234:
3235: AHL_EAM_JOB_PVT.create_eam_workorder
3236: (
3237: p_api_version => 1.0,
3238: p_init_msg_list => FND_API.G_TRUE,
3239: p_commit => FND_API.G_FALSE,
3240: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3241: p_default => FND_API.G_FALSE,
3242: p_module_type => NULL,
3235: AHL_EAM_JOB_PVT.create_eam_workorder
3236: (
3237: p_api_version => 1.0,
3238: p_init_msg_list => FND_API.G_TRUE,
3239: p_commit => FND_API.G_FALSE,
3240: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3241: p_default => FND_API.G_FALSE,
3242: p_module_type => NULL,
3243: x_return_status => l_return_status,
3236: (
3237: p_api_version => 1.0,
3238: p_init_msg_list => FND_API.G_TRUE,
3239: p_commit => FND_API.G_FALSE,
3240: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3241: p_default => FND_API.G_FALSE,
3242: p_module_type => NULL,
3243: x_return_status => l_return_status,
3244: x_msg_count => l_msg_count,
3237: p_api_version => 1.0,
3238: p_init_msg_list => FND_API.G_TRUE,
3239: p_commit => FND_API.G_FALSE,
3240: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3241: p_default => FND_API.G_FALSE,
3242: p_module_type => NULL,
3243: x_return_status => l_return_status,
3244: x_msg_count => l_msg_count,
3245: x_msg_data => l_msg_data,
3248: p_material_req_tbl => x_material_tbl,
3249: p_resource_req_tbl => x_resource_tbl
3250: );
3251:
3252: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3253: RAISE FND_API.G_EXC_ERROR;
3254: ELSE
3255:
3256: IF ( G_DEBUG = 'Y' ) THEN
3249: p_resource_req_tbl => x_resource_tbl
3250: );
3251:
3252: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3253: RAISE FND_API.G_EXC_ERROR;
3254: ELSE
3255:
3256: IF ( G_DEBUG = 'Y' ) THEN
3257: AHL_DEBUG_PUB.debug( l_api_name || ' - Before Update AHL_WORKORDERS with wip_entity_id' );
3263: END IF;
3264:
3265: END IF;
3266:
3267: IF FND_API.to_boolean(p_commit) THEN
3268: COMMIT;
3269: END IF;
3270:
3271: -- User Hooks
3277: p_material_tbl => x_material_tbl,
3278: x_msg_count => l_msg_count,
3279: x_msg_data => l_msg_data,
3280: x_return_status => l_return_status);
3281: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3285: END IF;
3278: x_msg_count => l_msg_count,
3279: x_msg_data => l_msg_data,
3280: x_return_status => l_return_status);
3281: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3285: END IF;
3286: END IF;
3279: x_msg_data => l_msg_data,
3280: x_return_status => l_return_status);
3281: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3285: END IF;
3286: END IF;
3287:
3280: x_return_status => l_return_status);
3281: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3285: END IF;
3286: END IF;
3287:
3288: IF ( G_DEBUG = 'Y' ) THEN
3293: AHL_DEBUG_PUB.disable_debug;
3294: END IF;
3295:
3296: EXCEPTION
3297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3298: ROLLBACK TO create_job_PVT;
3299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3300: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3301: p_count => x_msg_count,
3295:
3296: EXCEPTION
3297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3298: ROLLBACK TO create_job_PVT;
3299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3300: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3301: p_count => x_msg_count,
3302: p_data => x_msg_data);
3303: WHEN FND_API.G_EXC_ERROR THEN
3296: EXCEPTION
3297: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3298: ROLLBACK TO create_job_PVT;
3299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3300: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3301: p_count => x_msg_count,
3302: p_data => x_msg_data);
3303: WHEN FND_API.G_EXC_ERROR THEN
3304: ROLLBACK TO create_job_PVT;
3299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3300: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3301: p_count => x_msg_count,
3302: p_data => x_msg_data);
3303: WHEN FND_API.G_EXC_ERROR THEN
3304: ROLLBACK TO create_job_PVT;
3305: x_return_status := FND_API.G_RET_STS_ERROR;
3306: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3307: p_count => x_msg_count,
3301: p_count => x_msg_count,
3302: p_data => x_msg_data);
3303: WHEN FND_API.G_EXC_ERROR THEN
3304: ROLLBACK TO create_job_PVT;
3305: x_return_status := FND_API.G_RET_STS_ERROR;
3306: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3307: p_count => x_msg_count,
3308: p_data => x_msg_data);
3309:
3302: p_data => x_msg_data);
3303: WHEN FND_API.G_EXC_ERROR THEN
3304: ROLLBACK TO create_job_PVT;
3305: x_return_status := FND_API.G_RET_STS_ERROR;
3306: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3307: p_count => x_msg_count,
3308: p_data => x_msg_data);
3309:
3310: WHEN OTHERS THEN
3308: p_data => x_msg_data);
3309:
3310: WHEN OTHERS THEN
3311: ROLLBACK TO create_job_PVT;
3312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3313: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3314: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
3315: p_procedure_name =>l_api_name,
3316: p_error_text => SUBSTR(SQLERRM,1,240));
3315: p_procedure_name =>l_api_name,
3316: p_error_text => SUBSTR(SQLERRM,1,240));
3317:
3318: END IF;
3319: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3320: p_count => x_msg_count,
3321: p_data => x_msg_data);
3322:
3323: END create_job;
3324:
3325: PROCEDURE update_job
3326: (
3327: p_api_version IN NUMBER := 1.0,
3328: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3329: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3330: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3331: p_default IN VARCHAR2 := FND_API.G_FALSE,
3332: p_module_type IN VARCHAR2,
3325: PROCEDURE update_job
3326: (
3327: p_api_version IN NUMBER := 1.0,
3328: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3329: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3330: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3331: p_default IN VARCHAR2 := FND_API.G_FALSE,
3332: p_module_type IN VARCHAR2,
3333: x_return_status OUT NOCOPY VARCHAR2,
3326: (
3327: p_api_version IN NUMBER := 1.0,
3328: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3329: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3330: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3331: p_default IN VARCHAR2 := FND_API.G_FALSE,
3332: p_module_type IN VARCHAR2,
3333: x_return_status OUT NOCOPY VARCHAR2,
3334: x_msg_count OUT NOCOPY NUMBER,
3327: p_api_version IN NUMBER := 1.0,
3328: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
3329: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3330: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3331: p_default IN VARCHAR2 := FND_API.G_FALSE,
3332: p_module_type IN VARCHAR2,
3333: x_return_status OUT NOCOPY VARCHAR2,
3334: x_msg_count OUT NOCOPY NUMBER,
3335: x_msg_data OUT NOCOPY VARCHAR2,
3548:
3549: BEGIN
3550: SAVEPOINT update_job_PVT;
3551:
3552: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3553: p_api_version,
3554: l_api_name,G_PKG_NAME) THEN
3555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3556: END IF;
3551:
3552: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
3553: p_api_version,
3554: l_api_name,G_PKG_NAME) THEN
3555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3556: END IF;
3557:
3558: IF FND_API.to_boolean(p_init_msg_list) THEN
3559: FND_MSG_PUB.initialize;
3554: l_api_name,G_PKG_NAME) THEN
3555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3556: END IF;
3557:
3558: IF FND_API.to_boolean(p_init_msg_list) THEN
3559: FND_MSG_PUB.initialize;
3560: END IF;
3561:
3562: x_return_status:=FND_API.G_RET_STS_SUCCESS;
3558: IF FND_API.to_boolean(p_init_msg_list) THEN
3559: FND_MSG_PUB.initialize;
3560: END IF;
3561:
3562: x_return_status:=FND_API.G_RET_STS_SUCCESS;
3563:
3564: IF G_DEBUG='Y' THEN
3565: AHL_DEBUG_PUB.enable_debug;
3566: END IF;
3582: p_prd_workoper_tbl => p_x_prd_workoper_tbl,
3583: x_msg_count => l_msg_count,
3584: x_msg_data => l_msg_data,
3585: x_return_status => l_return_status);
3586: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3587: RAISE FND_API.G_EXC_ERROR;
3588: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3590: END IF;
3583: x_msg_count => l_msg_count,
3584: x_msg_data => l_msg_data,
3585: x_return_status => l_return_status);
3586: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3587: RAISE FND_API.G_EXC_ERROR;
3588: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3590: END IF;
3591: END IF;
3584: x_msg_data => l_msg_data,
3585: x_return_status => l_return_status);
3586: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3587: RAISE FND_API.G_EXC_ERROR;
3588: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3590: END IF;
3591: END IF;
3592:
3585: x_return_status => l_return_status);
3586: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3587: RAISE FND_API.G_EXC_ERROR;
3588: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3590: END IF;
3591: END IF;
3592:
3593: --IF FND_API.to_boolean(p_default) THEN
3589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3590: END IF;
3591: END IF;
3592:
3593: --IF FND_API.to_boolean(p_default) THEN
3594: default_missing_attributes
3595: (
3596: p_x_prd_workorder_rec
3597: );
3599:
3600: l_msg_count := FND_MSG_PUB.count_msg;
3601: IF l_msg_count > 0 THEN
3602: x_msg_count := l_msg_count;
3603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3604: RAISE FND_API.G_EXC_ERROR;
3605: END IF;
3606:
3607: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
3600: l_msg_count := FND_MSG_PUB.count_msg;
3601: IF l_msg_count > 0 THEN
3602: x_msg_count := l_msg_count;
3603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3604: RAISE FND_API.G_EXC_ERROR;
3605: END IF;
3606:
3607: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
3608:
3603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3604: RAISE FND_API.G_EXC_ERROR;
3605: END IF;
3606:
3607: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
3608:
3609: IF ( G_DEBUG = 'Y' ) THEN
3610: AHL_DEBUG_PUB.debug( l_api_name || ' - Before convert_values_to_ids' );
3611: END IF;
3618:
3619: l_msg_count := FND_MSG_PUB.count_msg;
3620: IF l_msg_count > 0 THEN
3621: x_msg_count := l_msg_count;
3622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3623: RAISE FND_API.G_EXC_ERROR;
3624: END IF;
3625:
3626: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
3619: l_msg_count := FND_MSG_PUB.count_msg;
3620: IF l_msg_count > 0 THEN
3621: x_msg_count := l_msg_count;
3622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3623: RAISE FND_API.G_EXC_ERROR;
3624: END IF;
3625:
3626: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
3627:
3622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3623: RAISE FND_API.G_EXC_ERROR;
3624: END IF;
3625:
3626: IF (p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
3627:
3628: IF ( G_DEBUG = 'Y' ) THEN
3629: AHL_DEBUG_PUB.debug( l_api_name || ' - Before validate_workorder' );
3630: END IF;
3644: IF l_wo_status_code IN ('22','7','12','4','5') THEN
3645: FND_MESSAGE.set_name('AHL','AHL_PRD_UPD_WO_STS');
3646: FND_MESSAGE.set_token('WO_STATUS', l_wo_status);
3647: FND_MSG_PUB.add;
3648: RAISE FND_API.G_EXC_ERROR;
3649: END IF;
3650: END IF;
3651:
3652:
3654:
3655: l_msg_count := FND_MSG_PUB.count_msg;
3656: IF l_msg_count > 0 THEN
3657: x_msg_count := l_msg_count;
3658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3659: RAISE FND_API.G_EXC_ERROR;
3660: END IF;
3661:
3662: -- fix for bug# 5347560. In case of cancelling or closing a wo check if
3655: l_msg_count := FND_MSG_PUB.count_msg;
3656: IF l_msg_count > 0 THEN
3657: x_msg_count := l_msg_count;
3658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3659: RAISE FND_API.G_EXC_ERROR;
3660: END IF;
3661:
3662: -- fix for bug# 5347560. In case of cancelling or closing a wo check if
3663: -- there are any trackable materials in the job.
3681: FND_MESSAGE.set_name('AHL','AHL_PRD_MAT_NOT_RETURN');
3682: FND_MESSAGE.set_token('WO_STATUS', l_status_meaning);
3683: FND_MESSAGE.set_token('WO_NAME', l_workorder_name);
3684: FND_MSG_PUB.add;
3685: RAISE FND_API.G_EXC_ERROR;
3686: END IF;
3687: CLOSE chk_inst_in_job;
3688: END IF;
3689:
3701: FETCH c_get_login_recs INTO l_employee_id, l_operation_seq_num, l_resource_seq_num;
3702: EXIT WHEN c_get_login_recs%NOTFOUND;
3703: AHL_PRD_WO_LOGIN_PVT.Workorder_Logout(p_api_version => 1.0,
3704: p_init_msg_list => p_init_msg_list,
3705: p_commit => FND_API.G_FALSE,
3706: p_validation_level => p_validation_level,
3707: x_return_status => l_return_status,
3708: x_msg_count => l_msg_count,
3709: x_msg_data => l_msg_data,
3711: p_workorder_id => p_x_prd_workorder_rec.workorder_id,
3712: p_operation_seq_num => l_operation_seq_num,
3713: p_resource_seq_num => l_resource_seq_num
3714: );
3715: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3716: EXIT;
3717: END IF;
3718: END LOOP;
3719: CLOSE c_get_login_recs;
3724: END IF;
3725:
3726: END IF; -- p_x_prd_workorder_rec.STATUS_CODE
3727:
3728: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3729: RAISE FND_API.G_EXC_ERROR;
3730: END IF;
3731:
3732: -- hold reason is only for on-hold and parts-hold.
3725:
3726: END IF; -- p_x_prd_workorder_rec.STATUS_CODE
3727:
3728: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3729: RAISE FND_API.G_EXC_ERROR;
3730: END IF;
3731:
3732: -- hold reason is only for on-hold and parts-hold.
3733: -- FP Bug# 7631453
3805:
3806: IF SQL%NOTFOUND THEN
3807: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
3808: FND_MSG_PUB.ADD;
3809: RAISE FND_API.G_EXC_ERROR;
3810: END IF;
3811:
3812: IF ( G_DEBUG = 'Y' ) THEN
3813: AHL_DEBUG_PUB.debug( l_api_name || ' - Before Inserting into AHL_WORKORDER_TXNS' );
3906: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_department_id:' || l_department_id);
3907: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_oper_found:' || l_oper_found);
3908: END IF;
3909:
3910: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3911: RAISE FND_API.G_EXC_ERROR;
3912: END IF;
3913:
3914: IF (l_department_id IS NOT NULL) THEN
3907: AHL_DEBUG_PUB.debug( 'Get_Operations'|| 'l_oper_found:' || l_oper_found);
3908: END IF;
3909:
3910: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3911: RAISE FND_API.G_EXC_ERROR;
3912: END IF;
3913:
3914: IF (l_department_id IS NOT NULL) THEN
3915: l_prd_workoper_tbl(i).department_id := l_department_id;
3967:
3968: AHL_PRD_OPERATIONS_PVT.process_operations
3969: (
3970: p_api_version =>1.0,
3971: p_init_msg_list =>FND_API.G_TRUE,
3972: p_commit =>FND_API.G_FALSE,
3973: p_validation_level =>p_validation_level,
3974: p_default =>p_default,
3975: p_module_type =>p_module_type,
3968: AHL_PRD_OPERATIONS_PVT.process_operations
3969: (
3970: p_api_version =>1.0,
3971: p_init_msg_list =>FND_API.G_TRUE,
3972: p_commit =>FND_API.G_FALSE,
3973: p_validation_level =>p_validation_level,
3974: p_default =>p_default,
3975: p_module_type =>p_module_type,
3976: p_wip_mass_load_flag =>'N',
3979: x_msg_data =>l_msg_data,
3980: p_x_prd_operation_tbl =>l_prd_workoper_tbl
3981: );
3982:
3983: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3984: RAISE FND_API.G_EXC_ERROR;
3985: END IF;
3986:
3987: IF ( p_wip_load_flag = 'Y' ) THEN
3980: p_x_prd_operation_tbl =>l_prd_workoper_tbl
3981: );
3982:
3983: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3984: RAISE FND_API.G_EXC_ERROR;
3985: END IF;
3986:
3987: IF ( p_wip_load_flag = 'Y' ) THEN
3988:
4005: IF ( l_resource_tbl.COUNT > 0 ) THEN
4006: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require
4007: (
4008: p_api_version => 1.0,
4009: p_init_msg_list => FND_API.G_TRUE,
4010: p_commit => FND_API.G_FALSE,
4011: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4012: p_module_type => NULL,
4013: p_interface_flag => 'N',
4006: AHL_PP_RESRC_REQUIRE_PVT.process_resrc_require
4007: (
4008: p_api_version => 1.0,
4009: p_init_msg_list => FND_API.G_TRUE,
4010: p_commit => FND_API.G_FALSE,
4011: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4012: p_module_type => NULL,
4013: p_interface_flag => 'N',
4014: p_operation_flag => 'C',
4007: (
4008: p_api_version => 1.0,
4009: p_init_msg_list => FND_API.G_TRUE,
4010: p_commit => FND_API.G_FALSE,
4011: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4012: p_module_type => NULL,
4013: p_interface_flag => 'N',
4014: p_operation_flag => 'C',
4015: p_x_resrc_require_tbl => l_resource_tbl,
4017: x_msg_count => l_msg_count,
4018: x_msg_data => l_msg_data
4019: );
4020:
4021: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4022: RAISE FND_API.G_EXC_ERROR;
4023: END IF;
4024: END IF;
4025:
4018: x_msg_data => l_msg_data
4019: );
4020:
4021: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4022: RAISE FND_API.G_EXC_ERROR;
4023: END IF;
4024: END IF;
4025:
4026: IF ( G_DEBUG = 'Y' ) THEN
4042: IF ( l_material_tbl.COUNT > 0 ) THEN
4043: AHL_PP_MATERIALS_PVT.create_material_reqst
4044: (
4045: p_api_version => 1.0,
4046: p_init_msg_list => FND_API.G_TRUE,
4047: p_commit => FND_API.G_FALSE,
4048: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4049: p_interface_flag => 'N',
4050: p_x_req_material_tbl => l_material_tbl,
4043: AHL_PP_MATERIALS_PVT.create_material_reqst
4044: (
4045: p_api_version => 1.0,
4046: p_init_msg_list => FND_API.G_TRUE,
4047: p_commit => FND_API.G_FALSE,
4048: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4049: p_interface_flag => 'N',
4050: p_x_req_material_tbl => l_material_tbl,
4051: x_job_return_status => l_job_return_status,
4044: (
4045: p_api_version => 1.0,
4046: p_init_msg_list => FND_API.G_TRUE,
4047: p_commit => FND_API.G_FALSE,
4048: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4049: p_interface_flag => 'N',
4050: p_x_req_material_tbl => l_material_tbl,
4051: x_job_return_status => l_job_return_status,
4052: x_return_status => l_return_status,
4053: x_msg_count => l_msg_count,
4054: x_msg_data => l_msg_data
4055: );
4056:
4057: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4058: RAISE FND_API.G_EXC_ERROR;
4059: END IF;
4060: END IF;
4061:
4054: x_msg_data => l_msg_data
4055: );
4056:
4057: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4058: RAISE FND_API.G_EXC_ERROR;
4059: END IF;
4060: END IF;
4061:
4062: END IF; -- For WIP Load Flag
4254: THEN
4255: update_job
4256: (
4257: p_api_version => 1.0 ,
4258: p_init_msg_list => FND_API.G_TRUE ,
4259: p_commit => FND_API.G_FALSE ,
4260: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
4261: p_default => FND_API.G_TRUE ,
4262: p_module_type => NULL ,
4255: update_job
4256: (
4257: p_api_version => 1.0 ,
4258: p_init_msg_list => FND_API.G_TRUE ,
4259: p_commit => FND_API.G_FALSE ,
4260: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
4261: p_default => FND_API.G_TRUE ,
4262: p_module_type => NULL ,
4263: x_return_status => l_return_status ,
4256: (
4257: p_api_version => 1.0 ,
4258: p_init_msg_list => FND_API.G_TRUE ,
4259: p_commit => FND_API.G_FALSE ,
4260: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
4261: p_default => FND_API.G_TRUE ,
4262: p_module_type => NULL ,
4263: x_return_status => l_return_status ,
4264: x_msg_count => l_msg_count ,
4257: p_api_version => 1.0 ,
4258: p_init_msg_list => FND_API.G_TRUE ,
4259: p_commit => FND_API.G_FALSE ,
4260: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
4261: p_default => FND_API.G_TRUE ,
4262: p_module_type => NULL ,
4263: x_return_status => l_return_status ,
4264: x_msg_count => l_msg_count ,
4265: x_msg_data => l_msg_data ,
4267: p_x_prd_workorder_rec => l_parent_workorder_rec ,
4268: p_x_prd_workoper_tbl => l_parent_workoper_tbl
4269: );
4270:
4271: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4272: RAISE FND_API.G_EXC_ERROR;
4273: END IF;
4274:
4275: IF ( G_DEBUG = 'Y' ) THEN
4268: p_x_prd_workoper_tbl => l_parent_workoper_tbl
4269: );
4270:
4271: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4272: RAISE FND_API.G_EXC_ERROR;
4273: END IF;
4274:
4275: IF ( G_DEBUG = 'Y' ) THEN
4276: AHL_DEBUG_PUB.debug( l_api_name || ' - update_job for parent_workorder successful' );
4286:
4287: AHL_EAM_JOB_PVT.update_job_operations
4288: (
4289: p_api_version => 1.0 ,
4290: p_init_msg_list => FND_API.G_TRUE ,
4291: p_commit => FND_API.G_FALSE ,
4292: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
4293: p_default => FND_API.G_TRUE ,
4294: p_module_type => NULL ,
4287: AHL_EAM_JOB_PVT.update_job_operations
4288: (
4289: p_api_version => 1.0 ,
4290: p_init_msg_list => FND_API.G_TRUE ,
4291: p_commit => FND_API.G_FALSE ,
4292: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
4293: p_default => FND_API.G_TRUE ,
4294: p_module_type => NULL ,
4295: x_return_status => l_return_status ,
4288: (
4289: p_api_version => 1.0 ,
4290: p_init_msg_list => FND_API.G_TRUE ,
4291: p_commit => FND_API.G_FALSE ,
4292: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
4293: p_default => FND_API.G_TRUE ,
4294: p_module_type => NULL ,
4295: x_return_status => l_return_status ,
4296: x_msg_count => l_msg_count ,
4289: p_api_version => 1.0 ,
4290: p_init_msg_list => FND_API.G_TRUE ,
4291: p_commit => FND_API.G_FALSE ,
4292: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
4293: p_default => FND_API.G_TRUE ,
4294: p_module_type => NULL ,
4295: x_return_status => l_return_status ,
4296: x_msg_count => l_msg_count ,
4297: x_msg_data => l_msg_data ,
4300: p_material_req_tbl => l_material_tbl ,
4301: p_resource_req_tbl => l_resource_tbl
4302: );
4303:
4304: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4305: RAISE FND_API.G_EXC_ERROR;
4306: END IF;
4307:
4308: IF ( G_DEBUG = 'Y' ) THEN
4301: p_resource_req_tbl => l_resource_tbl
4302: );
4303:
4304: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4305: RAISE FND_API.G_EXC_ERROR;
4306: END IF;
4307:
4308: IF ( G_DEBUG = 'Y' ) THEN
4309: AHL_DEBUG_PUB.debug( l_api_name || ' - AHL_EAM_JOB_PVT.update_job_operations succesful' );
4324: LOOP
4325: -- Call delete reservation API.
4326: AHL_RSV_RESERVATIONS_PVT.Delete_Reservation (
4327: p_api_version => 1.0,
4328: p_init_msg_list => FND_API.G_TRUE ,
4329: p_commit => FND_API.G_FALSE ,
4330: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
4331: p_module_type => NULL,
4332: x_return_status => l_return_status ,
4325: -- Call delete reservation API.
4326: AHL_RSV_RESERVATIONS_PVT.Delete_Reservation (
4327: p_api_version => 1.0,
4328: p_init_msg_list => FND_API.G_TRUE ,
4329: p_commit => FND_API.G_FALSE ,
4330: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
4331: p_module_type => NULL,
4332: x_return_status => l_return_status ,
4333: x_msg_count => l_msg_count ,
4326: AHL_RSV_RESERVATIONS_PVT.Delete_Reservation (
4327: p_api_version => 1.0,
4328: p_init_msg_list => FND_API.G_TRUE ,
4329: p_commit => FND_API.G_FALSE ,
4330: p_validation_level => FND_API.G_VALID_LEVEL_FULL ,
4331: p_module_type => NULL,
4332: x_return_status => l_return_status ,
4333: x_msg_count => l_msg_count ,
4334: x_msg_data => l_msg_data ,
4334: x_msg_data => l_msg_data ,
4335: p_scheduled_material_id => get_scheduled_mater_rec.scheduled_material_id);
4336:
4337: -- Check return status.
4338: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4339: IF ( G_DEBUG = 'Y' ) THEN
4340: AHL_DEBUG_PUB.debug('Delete_Reservation failed for schedule material ID: '
4341: || get_scheduled_mater_rec.scheduled_material_id);
4342: END IF; -- G_DEBUG.
4345: END IF; -- l_return_status
4346:
4347: END LOOP;
4348:
4349: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4351: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4352: RAISE FND_API.G_EXC_ERROR;
4353: END IF;
4346:
4347: END LOOP;
4348:
4349: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4351: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4352: RAISE FND_API.G_EXC_ERROR;
4353: END IF;
4354:
4347: END LOOP;
4348:
4349: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4351: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4352: RAISE FND_API.G_EXC_ERROR;
4353: END IF;
4354:
4355: END IF; -- p_x_prd_workorder_rec.status_code
4348:
4349: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4351: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4352: RAISE FND_API.G_EXC_ERROR;
4353: END IF;
4354:
4355: END IF; -- p_x_prd_workorder_rec.status_code
4356:
4410:
4411: -- Call LTP API to update material requirement status to History.
4412: AHL_LTP_REQST_MATRL_PVT.Update_Material_Reqrs_status(
4413: p_api_version => 1.0,
4414: p_init_msg_list => FND_API.G_TRUE,
4415: p_commit => FND_API.G_FALSE,
4416: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4417: p_module_type => NULL,
4418: p_visit_task_id => p_x_prd_workorder_rec.VISIT_TASK_ID,
4411: -- Call LTP API to update material requirement status to History.
4412: AHL_LTP_REQST_MATRL_PVT.Update_Material_Reqrs_status(
4413: p_api_version => 1.0,
4414: p_init_msg_list => FND_API.G_TRUE,
4415: p_commit => FND_API.G_FALSE,
4416: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4417: p_module_type => NULL,
4418: p_visit_task_id => p_x_prd_workorder_rec.VISIT_TASK_ID,
4419: x_return_status => x_return_status,
4412: AHL_LTP_REQST_MATRL_PVT.Update_Material_Reqrs_status(
4413: p_api_version => 1.0,
4414: p_init_msg_list => FND_API.G_TRUE,
4415: p_commit => FND_API.G_FALSE,
4416: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4417: p_module_type => NULL,
4418: p_visit_task_id => p_x_prd_workorder_rec.VISIT_TASK_ID,
4419: x_return_status => x_return_status,
4420: x_msg_count => x_msg_count,
4429: 'return status after call to Update_Material_Reqrs_status -> '|| x_return_status
4430: );
4431: END IF;
4432:
4433: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4435: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4436: RAISE FND_API.G_EXC_ERROR;
4437: END IF;
4430: );
4431: END IF;
4432:
4433: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4435: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4436: RAISE FND_API.G_EXC_ERROR;
4437: END IF;
4438:
4431: END IF;
4432:
4433: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4435: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4436: RAISE FND_API.G_EXC_ERROR;
4437: END IF;
4438:
4439: END IF;
4432:
4433: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4434: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4435: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4436: RAISE FND_API.G_EXC_ERROR;
4437: END IF;
4438:
4439: END IF;
4440:
4437: END IF;
4438:
4439: END IF;
4440:
4441: IF FND_API.to_boolean(p_commit) THEN
4442: COMMIT;
4443: END IF;
4444:
4445: -- User Hooks
4451: x_msg_count => l_msg_count,
4452: x_msg_data => l_msg_data,
4453: x_return_status => l_return_status);
4454:
4455: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4456: RAISE FND_API.G_EXC_ERROR;
4457: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4459: END IF;
4452: x_msg_data => l_msg_data,
4453: x_return_status => l_return_status);
4454:
4455: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4456: RAISE FND_API.G_EXC_ERROR;
4457: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4459: END IF;
4460: END IF;
4453: x_return_status => l_return_status);
4454:
4455: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4456: RAISE FND_API.G_EXC_ERROR;
4457: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4459: END IF;
4460: END IF;
4461:
4454:
4455: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
4456: RAISE FND_API.G_EXC_ERROR;
4457: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4459: END IF;
4460: END IF;
4461:
4462: IF ( G_DEBUG = 'Y' ) THEN
4467: AHL_DEBUG_PUB.disable_debug;
4468: END IF;
4469:
4470: EXCEPTION
4471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4472: ROLLBACK TO update_job_PVT;
4473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4475: p_count => x_msg_count,
4469:
4470: EXCEPTION
4471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4472: ROLLBACK TO update_job_PVT;
4473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4475: p_count => x_msg_count,
4476: p_data => x_msg_data);
4477: WHEN FND_API.G_EXC_ERROR THEN
4470: EXCEPTION
4471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4472: ROLLBACK TO update_job_PVT;
4473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4475: p_count => x_msg_count,
4476: p_data => x_msg_data);
4477: WHEN FND_API.G_EXC_ERROR THEN
4478: ROLLBACK TO update_job_PVT;
4473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4474: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4475: p_count => x_msg_count,
4476: p_data => x_msg_data);
4477: WHEN FND_API.G_EXC_ERROR THEN
4478: ROLLBACK TO update_job_PVT;
4479: x_return_status := FND_API.G_RET_STS_ERROR;
4480: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4481: p_count => x_msg_count,
4475: p_count => x_msg_count,
4476: p_data => x_msg_data);
4477: WHEN FND_API.G_EXC_ERROR THEN
4478: ROLLBACK TO update_job_PVT;
4479: x_return_status := FND_API.G_RET_STS_ERROR;
4480: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4481: p_count => x_msg_count,
4482: p_data => x_msg_data);
4483:
4476: p_data => x_msg_data);
4477: WHEN FND_API.G_EXC_ERROR THEN
4478: ROLLBACK TO update_job_PVT;
4479: x_return_status := FND_API.G_RET_STS_ERROR;
4480: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4481: p_count => x_msg_count,
4482: p_data => x_msg_data);
4483:
4484: WHEN OTHERS THEN
4482: p_data => x_msg_data);
4483:
4484: WHEN OTHERS THEN
4485: ROLLBACK TO update_job_PVT;
4486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4487: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4488: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
4489: p_procedure_name =>l_api_name,
4490: p_error_text =>SUBSTR(SQLERRM,1,240));
4489: p_procedure_name =>l_api_name,
4490: p_error_text =>SUBSTR(SQLERRM,1,240));
4491: END IF;
4492:
4493: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4494: p_count => x_msg_count,
4495: p_data => x_msg_data);
4496: END update_job;
4497:
4497:
4498: PROCEDURE process_jobs
4499: (
4500: p_api_version IN NUMBER := 1.0,
4501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4502: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4503: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4504: p_default IN VARCHAR2 := FND_API.G_FALSE,
4505: p_module_type IN VARCHAR2,
4498: PROCEDURE process_jobs
4499: (
4500: p_api_version IN NUMBER := 1.0,
4501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4502: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4503: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4504: p_default IN VARCHAR2 := FND_API.G_FALSE,
4505: p_module_type IN VARCHAR2,
4506: x_return_status OUT NOCOPY VARCHAR2,
4499: (
4500: p_api_version IN NUMBER := 1.0,
4501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4502: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4503: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4504: p_default IN VARCHAR2 := FND_API.G_FALSE,
4505: p_module_type IN VARCHAR2,
4506: x_return_status OUT NOCOPY VARCHAR2,
4507: x_msg_count OUT NOCOPY NUMBER,
4500: p_api_version IN NUMBER := 1.0,
4501: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4502: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4503: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4504: p_default IN VARCHAR2 := FND_API.G_FALSE,
4505: p_module_type IN VARCHAR2,
4506: x_return_status OUT NOCOPY VARCHAR2,
4507: x_msg_count OUT NOCOPY NUMBER,
4508: x_msg_data OUT NOCOPY VARCHAR2,
4533:
4534: BEGIN
4535: SAVEPOINT process_jobs_PVT;
4536:
4537: IF NOT FND_API.compatible_api_call(l_api_version,
4538: p_api_version,
4539: l_api_name,G_PKG_NAME) THEN
4540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4541: END IF;
4536:
4537: IF NOT FND_API.compatible_api_call(l_api_version,
4538: p_api_version,
4539: l_api_name,G_PKG_NAME) THEN
4540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4541: END IF;
4542:
4543: IF FND_API.to_boolean(p_init_msg_list) THEN
4544: FND_MSG_PUB.initialize;
4539: l_api_name,G_PKG_NAME) THEN
4540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4541: END IF;
4542:
4543: IF FND_API.to_boolean(p_init_msg_list) THEN
4544: FND_MSG_PUB.initialize;
4545: END IF;
4546:
4547: x_return_status:=FND_API.G_RET_STS_SUCCESS;
4543: IF FND_API.to_boolean(p_init_msg_list) THEN
4544: FND_MSG_PUB.initialize;
4545: END IF;
4546:
4547: x_return_status:=FND_API.G_RET_STS_SUCCESS;
4548:
4549: IF G_DEBUG='Y' THEN
4550: AHL_DEBUG_PUB.enable_debug;
4551: END IF;
4552:
4553: FOR i IN p_x_prd_workorder_tbl.FIRST..p_x_prd_workorder_tbl.LAST LOOP
4554:
4555: IF ( p_x_prd_workorder_tbl(i).batch_id IS NULL OR
4556: p_x_prd_workorder_tbl(i).batch_id = FND_API.G_MISS_NUM ) THEN
4557: FND_MESSAGE.set_name('AHL','AHL_PRD_BATCH_ID_NULL');
4558: FND_MSG_PUB.add;
4559: RAISE FND_API.G_EXC_ERROR;
4560: END IF;
4555: IF ( p_x_prd_workorder_tbl(i).batch_id IS NULL OR
4556: p_x_prd_workorder_tbl(i).batch_id = FND_API.G_MISS_NUM ) THEN
4557: FND_MESSAGE.set_name('AHL','AHL_PRD_BATCH_ID_NULL');
4558: FND_MSG_PUB.add;
4559: RAISE FND_API.G_EXC_ERROR;
4560: END IF;
4561:
4562: IF ( p_x_prd_workorder_tbl(i).header_id IS NULL OR
4563: p_x_prd_workorder_tbl(i).header_id = FND_API.G_MISS_NUM ) THEN
4559: RAISE FND_API.G_EXC_ERROR;
4560: END IF;
4561:
4562: IF ( p_x_prd_workorder_tbl(i).header_id IS NULL OR
4563: p_x_prd_workorder_tbl(i).header_id = FND_API.G_MISS_NUM ) THEN
4564: FND_MESSAGE.set_name('AHL','AHL_PRD_HEADER_ID_NULL');
4565: FND_MSG_PUB.add;
4566: RAISE FND_API.G_EXC_ERROR;
4567: END IF;
4562: IF ( p_x_prd_workorder_tbl(i).header_id IS NULL OR
4563: p_x_prd_workorder_tbl(i).header_id = FND_API.G_MISS_NUM ) THEN
4564: FND_MESSAGE.set_name('AHL','AHL_PRD_HEADER_ID_NULL');
4565: FND_MSG_PUB.add;
4566: RAISE FND_API.G_EXC_ERROR;
4567: END IF;
4568:
4569: IF ( G_DEBUG = 'Y' ) THEN
4570: AHL_DEBUG_PUB.debug( 'Processing Batch : ' || p_x_prd_workorder_tbl(i).batch_id || ' Header : ' || p_x_prd_workorder_tbl(i).header_id );
4588: /*IF ( l_wo_rel_rec_found = FALSE ) THEN
4589: FND_MESSAGE.set_name('AHL','AHL_PRD_WO_REL_NOT_FOUND');
4590: FND_MESSAGE.set_token('RECORD', p_x_prd_workorder_tbl(i).header_id);
4591: FND_MSG_PUB.add;
4592: RAISE FND_API.G_EXC_ERROR;
4593: ELSE
4594: l_wo_rel_rec_found := FALSE;
4595: END IF;
4596: */
4600:
4601: create_job
4602: (
4603: p_api_version => 1.0,
4604: p_init_msg_list => FND_API.G_TRUE,
4605: p_commit => FND_API.G_FALSE,
4606: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4607: p_default => FND_API.G_FALSE,
4608: p_module_type => NULL,
4601: create_job
4602: (
4603: p_api_version => 1.0,
4604: p_init_msg_list => FND_API.G_TRUE,
4605: p_commit => FND_API.G_FALSE,
4606: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4607: p_default => FND_API.G_FALSE,
4608: p_module_type => NULL,
4609: x_return_status => l_return_status,
4602: (
4603: p_api_version => 1.0,
4604: p_init_msg_list => FND_API.G_TRUE,
4605: p_commit => FND_API.G_FALSE,
4606: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4607: p_default => FND_API.G_FALSE,
4608: p_module_type => NULL,
4609: x_return_status => l_return_status,
4610: x_msg_count => l_msg_count,
4603: p_api_version => 1.0,
4604: p_init_msg_list => FND_API.G_TRUE,
4605: p_commit => FND_API.G_FALSE,
4606: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4607: p_default => FND_API.G_FALSE,
4608: p_module_type => NULL,
4609: x_return_status => l_return_status,
4610: x_msg_count => l_msg_count,
4611: x_msg_data => l_msg_data,
4615: x_resource_tbl => l_resource_tbl,
4616: x_material_tbl => l_material_tbl
4617: );
4618:
4619: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4620: RAISE FND_API.G_EXC_ERROR;
4621: END IF;
4622:
4623: IF ( G_DEBUG = 'Y' ) THEN
4616: x_material_tbl => l_material_tbl
4617: );
4618:
4619: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4620: RAISE FND_API.G_EXC_ERROR;
4621: END IF;
4622:
4623: IF ( G_DEBUG = 'Y' ) THEN
4624: AHL_DEBUG_PUB.debug( 'create_job API Success' );
4743:
4744: update_job
4745: (
4746: p_api_version => 1.0,
4747: p_init_msg_list => FND_API.G_TRUE,
4748: p_commit => FND_API.G_FALSE,
4749: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4750: p_default => FND_API.G_FALSE,
4751: p_module_type => NULL,
4744: update_job
4745: (
4746: p_api_version => 1.0,
4747: p_init_msg_list => FND_API.G_TRUE,
4748: p_commit => FND_API.G_FALSE,
4749: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4750: p_default => FND_API.G_FALSE,
4751: p_module_type => NULL,
4752: x_return_status => l_return_status,
4745: (
4746: p_api_version => 1.0,
4747: p_init_msg_list => FND_API.G_TRUE,
4748: p_commit => FND_API.G_FALSE,
4749: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4750: p_default => FND_API.G_FALSE,
4751: p_module_type => NULL,
4752: x_return_status => l_return_status,
4753: x_msg_count => l_msg_count,
4746: p_api_version => 1.0,
4747: p_init_msg_list => FND_API.G_TRUE,
4748: p_commit => FND_API.G_FALSE,
4749: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4750: p_default => FND_API.G_FALSE,
4751: p_module_type => NULL,
4752: x_return_status => l_return_status,
4753: x_msg_count => l_msg_count,
4754: x_msg_data => l_msg_data,
4756: p_x_prd_workorder_rec => p_x_prd_workorder_tbl(i),
4757: p_x_prd_workoper_tbl => l_dummy_op_tbl
4758: );
4759:
4760: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4761: RAISE FND_API.G_EXC_ERROR;
4762: END IF;
4763:
4764: IF ( G_DEBUG = 'Y' ) THEN
4757: p_x_prd_workoper_tbl => l_dummy_op_tbl
4758: );
4759:
4760: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4761: RAISE FND_API.G_EXC_ERROR;
4762: END IF;
4763:
4764: IF ( G_DEBUG = 'Y' ) THEN
4765: AHL_DEBUG_PUB.debug( 'update_job API Success' );
4818:
4819: AHL_EAM_JOB_PVT.process_eam_workorders
4820: (
4821: p_api_version => 1.0,
4822: p_init_msg_list => FND_API.G_TRUE,
4823: p_commit => FND_API.G_FALSE,
4824: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4825: p_default => FND_API.G_FALSE,
4826: p_module_type => NULL,
4819: AHL_EAM_JOB_PVT.process_eam_workorders
4820: (
4821: p_api_version => 1.0,
4822: p_init_msg_list => FND_API.G_TRUE,
4823: p_commit => FND_API.G_FALSE,
4824: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4825: p_default => FND_API.G_FALSE,
4826: p_module_type => NULL,
4827: x_return_status => l_return_status,
4820: (
4821: p_api_version => 1.0,
4822: p_init_msg_list => FND_API.G_TRUE,
4823: p_commit => FND_API.G_FALSE,
4824: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4825: p_default => FND_API.G_FALSE,
4826: p_module_type => NULL,
4827: x_return_status => l_return_status,
4828: x_msg_count => l_msg_count,
4821: p_api_version => 1.0,
4822: p_init_msg_list => FND_API.G_TRUE,
4823: p_commit => FND_API.G_FALSE,
4824: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4825: p_default => FND_API.G_FALSE,
4826: p_module_type => NULL,
4827: x_return_status => l_return_status,
4828: x_msg_count => l_msg_count,
4829: x_msg_data => l_msg_data,
4832: p_eam_op_tbl => l_eam_op_tbl,
4833: p_eam_res_req_tbl => l_eam_res_req_tbl,
4834: p_eam_mat_req_tbl => l_eam_mat_req_tbl
4835: );
4836: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4837: RAISE FND_API.G_EXC_ERROR;
4838: ELSE
4839: IF ( G_DEBUG = 'Y' ) THEN
4840: AHL_DEBUG_PUB.debug( 'AHL_EAM_JOB_PVT.process_eam_workorders API Success' );
4833: p_eam_res_req_tbl => l_eam_res_req_tbl,
4834: p_eam_mat_req_tbl => l_eam_mat_req_tbl
4835: );
4836: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4837: RAISE FND_API.G_EXC_ERROR;
4838: ELSE
4839: IF ( G_DEBUG = 'Y' ) THEN
4840: AHL_DEBUG_PUB.debug( 'AHL_EAM_JOB_PVT.process_eam_workorders API Success' );
4841: END IF;
4864:
4865: --Call disposition API Post 11.5.10 Changes
4866: AHL_PRD_DISPOSITION_PVT.create_job_dispositions(
4867: p_api_version => 1.0,
4868: p_init_msg_list => FND_API.G_TRUE,
4869: p_commit => FND_API.G_FALSE,
4870: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4871: x_return_status => l_return_status,
4872: x_msg_count => l_msg_count,
4865: --Call disposition API Post 11.5.10 Changes
4866: AHL_PRD_DISPOSITION_PVT.create_job_dispositions(
4867: p_api_version => 1.0,
4868: p_init_msg_list => FND_API.G_TRUE,
4869: p_commit => FND_API.G_FALSE,
4870: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4871: x_return_status => l_return_status,
4872: x_msg_count => l_msg_count,
4873: x_msg_data => l_msg_data,
4866: AHL_PRD_DISPOSITION_PVT.create_job_dispositions(
4867: p_api_version => 1.0,
4868: p_init_msg_list => FND_API.G_TRUE,
4869: p_commit => FND_API.G_FALSE,
4870: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4871: x_return_status => l_return_status,
4872: x_msg_count => l_msg_count,
4873: x_msg_data => l_msg_data,
4874: p_workorder_id => p_x_prd_workorder_tbl(i).workorder_id);
4872: x_msg_count => l_msg_count,
4873: x_msg_data => l_msg_data,
4874: p_workorder_id => p_x_prd_workorder_tbl(i).workorder_id);
4875:
4876: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4877: RAISE FND_API.G_EXC_ERROR;
4878: END IF;
4879:
4880: ELSIF ( p_x_prd_workorder_tbl(i).dml_operation = 'U' ) THEN
4873: x_msg_data => l_msg_data,
4874: p_workorder_id => p_x_prd_workorder_tbl(i).workorder_id);
4875:
4876: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
4877: RAISE FND_API.G_EXC_ERROR;
4878: END IF;
4879:
4880: ELSIF ( p_x_prd_workorder_tbl(i).dml_operation = 'U' ) THEN
4881: IF ( G_DEBUG = 'Y' ) THEN
4894: END IF;
4895:
4896: END LOOP;
4897:
4898: IF FND_API.to_boolean(p_commit) THEN
4899: COMMIT;
4900: END IF;
4901:
4902: END IF;
4905: AHL_DEBUG_PUB.disable_debug;
4906: END IF;
4907:
4908: EXCEPTION
4909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4910: ROLLBACK TO process_jobs_PVT;
4911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4912: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4913: p_count => x_msg_count,
4907:
4908: EXCEPTION
4909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4910: ROLLBACK TO process_jobs_PVT;
4911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4912: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4913: p_count => x_msg_count,
4914: p_data => x_msg_data);
4915: WHEN FND_API.G_EXC_ERROR THEN
4908: EXCEPTION
4909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4910: ROLLBACK TO process_jobs_PVT;
4911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4912: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4913: p_count => x_msg_count,
4914: p_data => x_msg_data);
4915: WHEN FND_API.G_EXC_ERROR THEN
4916: ROLLBACK TO process_jobs_PVT;
4911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4912: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4913: p_count => x_msg_count,
4914: p_data => x_msg_data);
4915: WHEN FND_API.G_EXC_ERROR THEN
4916: ROLLBACK TO process_jobs_PVT;
4917: x_return_status := FND_API.G_RET_STS_ERROR;
4918: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4919: p_count => x_msg_count,
4913: p_count => x_msg_count,
4914: p_data => x_msg_data);
4915: WHEN FND_API.G_EXC_ERROR THEN
4916: ROLLBACK TO process_jobs_PVT;
4917: x_return_status := FND_API.G_RET_STS_ERROR;
4918: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4919: p_count => x_msg_count,
4920: p_data => x_msg_data);
4921:
4914: p_data => x_msg_data);
4915: WHEN FND_API.G_EXC_ERROR THEN
4916: ROLLBACK TO process_jobs_PVT;
4917: x_return_status := FND_API.G_RET_STS_ERROR;
4918: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4919: p_count => x_msg_count,
4920: p_data => x_msg_data);
4921:
4922: WHEN OTHERS THEN
4920: p_data => x_msg_data);
4921:
4922: WHEN OTHERS THEN
4923: ROLLBACK TO process_jobs_PVT;
4924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4926: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
4927: p_procedure_name =>l_api_name,
4928: p_error_text => SUBSTR(SQLERRM,1,240));
4927: p_procedure_name =>l_api_name,
4928: p_error_text => SUBSTR(SQLERRM,1,240));
4929:
4930: END IF;
4931: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4932: p_count => x_msg_count,
4933: p_data => x_msg_data);
4934:
4935: END process_jobs;
4936:
4937: PROCEDURE release_visit_jobs
4938: (
4939: p_api_version IN NUMBER := 1.0,
4940: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4941: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4942: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4943: p_default IN VARCHAR2 := FND_API.G_FALSE,
4944: p_module_type IN VARCHAR2 := NULL,
4937: PROCEDURE release_visit_jobs
4938: (
4939: p_api_version IN NUMBER := 1.0,
4940: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4941: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4942: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4943: p_default IN VARCHAR2 := FND_API.G_FALSE,
4944: p_module_type IN VARCHAR2 := NULL,
4945: x_return_status OUT NOCOPY VARCHAR2,
4938: (
4939: p_api_version IN NUMBER := 1.0,
4940: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4941: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4942: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4943: p_default IN VARCHAR2 := FND_API.G_FALSE,
4944: p_module_type IN VARCHAR2 := NULL,
4945: x_return_status OUT NOCOPY VARCHAR2,
4946: x_msg_count OUT NOCOPY NUMBER,
4939: p_api_version IN NUMBER := 1.0,
4940: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4941: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4942: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4943: p_default IN VARCHAR2 := FND_API.G_FALSE,
4944: p_module_type IN VARCHAR2 := NULL,
4945: x_return_status OUT NOCOPY VARCHAR2,
4946: x_msg_count OUT NOCOPY NUMBER,
4947: x_msg_data OUT NOCOPY VARCHAR2,
5061:
5062: BEGIN
5063: SAVEPOINT release_visit_jobs_PVT;
5064:
5065: IF NOT FND_API.compatible_api_call(l_api_version,
5066: p_api_version,
5067: l_api_name,G_PKG_NAME) THEN
5068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5069: END IF;
5064:
5065: IF NOT FND_API.compatible_api_call(l_api_version,
5066: p_api_version,
5067: l_api_name,G_PKG_NAME) THEN
5068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5069: END IF;
5070:
5071: IF FND_API.to_boolean(p_init_msg_list) THEN
5072: FND_MSG_PUB.initialize;
5067: l_api_name,G_PKG_NAME) THEN
5068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5069: END IF;
5070:
5071: IF FND_API.to_boolean(p_init_msg_list) THEN
5072: FND_MSG_PUB.initialize;
5073: END IF;
5074:
5075: x_return_status:=FND_API.G_RET_STS_SUCCESS;
5071: IF FND_API.to_boolean(p_init_msg_list) THEN
5072: FND_MSG_PUB.initialize;
5073: END IF;
5074:
5075: x_return_status:=FND_API.G_RET_STS_SUCCESS;
5076:
5077: IF G_DEBUG='Y' THEN
5078: AHL_DEBUG_PUB.enable_debug;
5079: END IF;
5078: AHL_DEBUG_PUB.enable_debug;
5079: END IF;
5080: -- Validate Inputs
5081: IF ( ( p_workorder_id IS NULL OR
5082: p_workorder_id = FND_API.G_MISS_NUM ) AND
5083: ( p_unit_effectivity_id IS NULL OR
5084: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
5085: ( p_visit_id IS NULL OR
5086: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5080: -- Validate Inputs
5081: IF ( ( p_workorder_id IS NULL OR
5082: p_workorder_id = FND_API.G_MISS_NUM ) AND
5083: ( p_unit_effectivity_id IS NULL OR
5084: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
5085: ( p_visit_id IS NULL OR
5086: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5087: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
5088: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
5082: p_workorder_id = FND_API.G_MISS_NUM ) AND
5083: ( p_unit_effectivity_id IS NULL OR
5084: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
5085: ( p_visit_id IS NULL OR
5086: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5087: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
5088: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
5089: FND_MSG_PUB.add;
5090: RAISE FND_API.G_EXC_ERROR;
5086: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5087: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
5088: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
5089: FND_MSG_PUB.add;
5090: RAISE FND_API.G_EXC_ERROR;
5091: END IF;
5092:
5093: -- Determine the type of API call
5094: IF ( p_workorder_id IS NOT NULL AND
5091: END IF;
5092:
5093: -- Determine the type of API call
5094: IF ( p_workorder_id IS NOT NULL AND
5095: p_workorder_id <> FND_API.G_MISS_NUM ) THEN
5096: l_input_type := 'WO';
5097: ELSIF ( p_unit_effectivity_id IS NOT NULL AND
5098: p_unit_effectivity_id <> FND_API.G_MISS_NUM ) THEN
5099: l_input_type := 'UE';
5094: IF ( p_workorder_id IS NOT NULL AND
5095: p_workorder_id <> FND_API.G_MISS_NUM ) THEN
5096: l_input_type := 'WO';
5097: ELSIF ( p_unit_effectivity_id IS NOT NULL AND
5098: p_unit_effectivity_id <> FND_API.G_MISS_NUM ) THEN
5099: l_input_type := 'UE';
5100: ELSIF ( p_visit_id IS NOT NULL AND
5101: p_visit_id <> FND_API.G_MISS_NUM ) THEN
5102: l_input_type := 'VST';
5097: ELSIF ( p_unit_effectivity_id IS NOT NULL AND
5098: p_unit_effectivity_id <> FND_API.G_MISS_NUM ) THEN
5099: l_input_type := 'UE';
5100: ELSIF ( p_visit_id IS NOT NULL AND
5101: p_visit_id <> FND_API.G_MISS_NUM ) THEN
5102: l_input_type := 'VST';
5103: END IF;
5104:
5105: -- Process Visit
5117: IF ( get_visit_mwo%NOTFOUND ) THEN
5118: FND_MESSAGE.set_name('AHL','AHL_PRD_VISIT_MWO_NOT_FOUND');
5119: FND_MSG_PUB.add;
5120: CLOSE get_visit_mwo;
5121: RAISE FND_API.G_EXC_ERROR;
5122: END IF;
5123:
5124: CLOSE get_visit_mwo;
5125:
5133: p_visit_id => NULL,
5134: p_item_instance_id => NULL);
5135:
5136:
5137: IF l_return_status = FND_API.G_TRUE THEN
5138: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_RLS_UNTLCKD');
5139: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5140: FND_MSG_PUB.ADD;
5141: RAISE FND_API.G_EXC_ERROR;
5137: IF l_return_status = FND_API.G_TRUE THEN
5138: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_RLS_UNTLCKD');
5139: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5140: FND_MSG_PUB.ADD;
5141: RAISE FND_API.G_EXC_ERROR;
5142: END IF;
5143:
5144: -- rroy
5145: -- ACL Changes
5168: p_ue_id => NULL,
5169: p_visit_id => NULL,
5170: p_item_instance_id => NULL);
5171:
5172: IF l_return_status = FND_API.G_TRUE THEN
5173: IF l_mwo_flag <> 'Y' THEN
5174: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_RLS_UNTLCKD');
5175: ELSE
5176: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_RLS_UNTLCKD');
5176: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_RLS_UNTLCKD');
5177: END IF;
5178: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
5179: FND_MSG_PUB.ADD;
5180: RAISE FND_API.G_EXC_ERROR;
5181: END IF;
5182: -- rroy
5183: -- ACL Changes
5184:
5210: IF ( get_ue_mwo%NOTFOUND ) THEN
5211: FND_MESSAGE.set_name('AHL','AHL_PRD_MR_MWO_NOT_FOUND');
5212: FND_MSG_PUB.add;
5213: CLOSE get_ue_mwo;
5214: RAISE FND_API.G_EXC_ERROR;
5215: END IF;
5216:
5217: CLOSE get_ue_mwo;
5218:
5232: p_ue_id => NULL,
5233: p_visit_id => NULL,
5234: p_item_instance_id => NULL);
5235:
5236: IF l_return_status = FND_API.G_TRUE THEN
5237: IF l_mwo_flag <> 'Y' THEN
5238: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5239: ELSE
5240: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5240: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5241: END IF;
5242: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
5243: FND_MSG_PUB.ADD;
5244: RAISE FND_API.G_EXC_ERROR;
5245: END IF;
5246: -- rroy
5247: -- ACL Changes
5248:
5268: p_ue_id => NULL,
5269: p_visit_id => NULL,
5270: p_item_instance_id => NULL);
5271:
5272: IF l_return_status = FND_API.G_TRUE THEN
5273: IF l_master_wo_flag <> 'Y' THEN
5274: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5275: ELSE
5276: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5276: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5277: END IF;
5278: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5279: FND_MSG_PUB.ADD;
5280: RAISE FND_API.G_EXC_ERROR;
5281: END IF;
5282: -- rroy
5283: -- ACL Changes
5284:
5305: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => l_wo_id,
5306: p_ue_id => NULL,
5307: p_visit_id => NULL,
5308: p_item_instance_id => NULL);
5309: IF l_return_status = FND_API.G_TRUE THEN
5310: IF l_mwo_flag <> 'Y' THEN
5311: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_RLS_UNTLCKD');
5312: ELSE
5313: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5313: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_RLS_UNTLCKD');
5314: END IF;
5315: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
5316: FND_MSG_PUB.ADD;
5317: RAISE FND_API.G_EXC_ERROR;
5318: END IF;
5319: -- rroy
5320: -- ACL Changes
5321:
5346: IF ( get_wo%NOTFOUND ) THEN
5347: FND_MESSAGE.set_name('AHL','AHL_PRD_WO_NOT_FOUND');
5348: FND_MSG_PUB.add;
5349: CLOSE get_wo;
5350: RAISE FND_API.G_EXC_ERROR;
5351: END IF;
5352:
5353: CLOSE get_wo;
5354:
5367: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => l_wo_id,
5368: p_ue_id => NULL,
5369: p_visit_id => NULL,
5370: p_item_instance_id => NULL);
5371: IF l_return_status = FND_API.G_TRUE THEN
5372: IF l_mwo_flag <> 'Y' THEN
5373: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
5374: ELSE
5375: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_RLS_UNTLCKD');
5375: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_RLS_UNTLCKD');
5376: END IF;
5377: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
5378: FND_MSG_PUB.ADD;
5379: RAISE FND_API.G_EXC_ERROR;
5380: END IF;
5381: -- rroy
5382: -- ACL Changes
5383:
5401: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => l_workorder_id,
5402: p_ue_id => NULL,
5403: p_visit_id => NULL,
5404: p_item_instance_id => NULL);
5405: IF l_return_status = FND_API.G_TRUE THEN
5406: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
5407: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5408: FND_MSG_PUB.ADD;
5409: RAISE FND_API.G_EXC_ERROR;
5405: IF l_return_status = FND_API.G_TRUE THEN
5406: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_RLS_UNTLCKD');
5407: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
5408: FND_MSG_PUB.ADD;
5409: RAISE FND_API.G_EXC_ERROR;
5410: END IF;
5411: -- rroy
5412: -- ACL Changes
5413:
5426: IF ( l_wo_count > 0 ) THEN
5427: process_jobs
5428: (
5429: p_api_version => 1.0,
5430: p_init_msg_list => FND_API.G_TRUE,
5431: p_commit => FND_API.G_FALSE,
5432: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5433: p_default => FND_API.G_FALSE,
5434: p_module_type => NULL,
5427: process_jobs
5428: (
5429: p_api_version => 1.0,
5430: p_init_msg_list => FND_API.G_TRUE,
5431: p_commit => FND_API.G_FALSE,
5432: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5433: p_default => FND_API.G_FALSE,
5434: p_module_type => NULL,
5435: x_return_status => l_return_status,
5428: (
5429: p_api_version => 1.0,
5430: p_init_msg_list => FND_API.G_TRUE,
5431: p_commit => FND_API.G_FALSE,
5432: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5433: p_default => FND_API.G_FALSE,
5434: p_module_type => NULL,
5435: x_return_status => l_return_status,
5436: x_msg_count => l_msg_count,
5429: p_api_version => 1.0,
5430: p_init_msg_list => FND_API.G_TRUE,
5431: p_commit => FND_API.G_FALSE,
5432: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5433: p_default => FND_API.G_FALSE,
5434: p_module_type => NULL,
5435: x_return_status => l_return_status,
5436: x_msg_count => l_msg_count,
5437: x_msg_data => l_msg_data,
5438: p_x_prd_workorder_tbl => l_workorder_tbl,
5439: p_prd_workorder_rel_tbl => l_workorder_rel_tbl
5440: );
5441:
5442: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5443: RAISE FND_API.G_EXC_ERROR;
5444: END IF;
5445: ELSE
5446: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISIT_RELEASED');
5439: p_prd_workorder_rel_tbl => l_workorder_rel_tbl
5440: );
5441:
5442: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
5443: RAISE FND_API.G_EXC_ERROR;
5444: END IF;
5445: ELSE
5446: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISIT_RELEASED');
5447: FND_MSG_PUB.ADD;
5444: END IF;
5445: ELSE
5446: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISIT_RELEASED');
5447: FND_MSG_PUB.ADD;
5448: RAISE FND_API.G_EXC_ERROR;
5449: END IF;
5450: IF FND_API.to_boolean(p_commit) THEN
5451: COMMIT;
5452: END IF;
5446: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_VISIT_RELEASED');
5447: FND_MSG_PUB.ADD;
5448: RAISE FND_API.G_EXC_ERROR;
5449: END IF;
5450: IF FND_API.to_boolean(p_commit) THEN
5451: COMMIT;
5452: END IF;
5453:
5454: IF G_DEBUG='Y' THEN
5455: AHL_DEBUG_PUB.disable_debug;
5456: END IF;
5457:
5458: EXCEPTION
5459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5460: ROLLBACK TO release_visit_jobs_PVT;
5461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5462: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5463: p_count => x_msg_count,
5457:
5458: EXCEPTION
5459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5460: ROLLBACK TO release_visit_jobs_PVT;
5461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5462: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5463: p_count => x_msg_count,
5464: p_data => x_msg_data);
5465: WHEN FND_API.G_EXC_ERROR THEN
5458: EXCEPTION
5459: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5460: ROLLBACK TO release_visit_jobs_PVT;
5461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5462: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5463: p_count => x_msg_count,
5464: p_data => x_msg_data);
5465: WHEN FND_API.G_EXC_ERROR THEN
5466: ROLLBACK TO release_visit_jobs_PVT;
5461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5462: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5463: p_count => x_msg_count,
5464: p_data => x_msg_data);
5465: WHEN FND_API.G_EXC_ERROR THEN
5466: ROLLBACK TO release_visit_jobs_PVT;
5467: x_return_status := FND_API.G_RET_STS_ERROR;
5468: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5469: p_count => x_msg_count,
5463: p_count => x_msg_count,
5464: p_data => x_msg_data);
5465: WHEN FND_API.G_EXC_ERROR THEN
5466: ROLLBACK TO release_visit_jobs_PVT;
5467: x_return_status := FND_API.G_RET_STS_ERROR;
5468: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5469: p_count => x_msg_count,
5470: p_data => x_msg_data);
5471:
5464: p_data => x_msg_data);
5465: WHEN FND_API.G_EXC_ERROR THEN
5466: ROLLBACK TO release_visit_jobs_PVT;
5467: x_return_status := FND_API.G_RET_STS_ERROR;
5468: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5469: p_count => x_msg_count,
5470: p_data => x_msg_data);
5471:
5472: WHEN OTHERS THEN
5470: p_data => x_msg_data);
5471:
5472: WHEN OTHERS THEN
5473: ROLLBACK TO release_visit_jobs_PVT;
5474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5475: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5476: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
5477: p_procedure_name =>l_api_name,
5478: p_error_text => SUBSTR(SQLERRM,1,240));
5477: p_procedure_name =>l_api_name,
5478: p_error_text => SUBSTR(SQLERRM,1,240));
5479:
5480: END IF;
5481: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5482: p_count => x_msg_count,
5483: p_data => x_msg_data);
5484: END release_visit_jobs;
5485:
5485:
5486: PROCEDURE validate_dependencies
5487: (
5488: p_api_version IN NUMBER := 1.0,
5489: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5490: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5491: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5492: p_default IN VARCHAR2 := FND_API.G_FALSE,
5493: p_module_type IN VARCHAR2 := NULL,
5486: PROCEDURE validate_dependencies
5487: (
5488: p_api_version IN NUMBER := 1.0,
5489: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5490: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5491: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5492: p_default IN VARCHAR2 := FND_API.G_FALSE,
5493: p_module_type IN VARCHAR2 := NULL,
5494: x_return_status OUT NOCOPY VARCHAR2,
5487: (
5488: p_api_version IN NUMBER := 1.0,
5489: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5490: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5491: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5492: p_default IN VARCHAR2 := FND_API.G_FALSE,
5493: p_module_type IN VARCHAR2 := NULL,
5494: x_return_status OUT NOCOPY VARCHAR2,
5495: x_msg_count OUT NOCOPY NUMBER,
5488: p_api_version IN NUMBER := 1.0,
5489: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5490: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5491: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5492: p_default IN VARCHAR2 := FND_API.G_FALSE,
5493: p_module_type IN VARCHAR2 := NULL,
5494: x_return_status OUT NOCOPY VARCHAR2,
5495: x_msg_count OUT NOCOPY NUMBER,
5496: x_msg_data OUT NOCOPY VARCHAR2,
5607:
5608: BEGIN
5609: SAVEPOINT validate_dependencies_PVT;
5610:
5611: IF NOT FND_API.compatible_api_call(l_api_version,
5612: p_api_version,
5613: l_api_name,G_PKG_NAME) THEN
5614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5615: END IF;
5610:
5611: IF NOT FND_API.compatible_api_call(l_api_version,
5612: p_api_version,
5613: l_api_name,G_PKG_NAME) THEN
5614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5615: END IF;
5616:
5617: IF FND_API.to_boolean(p_init_msg_list) THEN
5618: FND_MSG_PUB.initialize;
5613: l_api_name,G_PKG_NAME) THEN
5614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5615: END IF;
5616:
5617: IF FND_API.to_boolean(p_init_msg_list) THEN
5618: FND_MSG_PUB.initialize;
5619: END IF;
5620:
5621: x_return_status:=FND_API.G_RET_STS_SUCCESS;
5617: IF FND_API.to_boolean(p_init_msg_list) THEN
5618: FND_MSG_PUB.initialize;
5619: END IF;
5620:
5621: x_return_status:=FND_API.G_RET_STS_SUCCESS;
5622:
5623: IF G_DEBUG='Y' THEN
5624: AHL_DEBUG_PUB.enable_debug;
5625: END IF;
5625: END IF;
5626:
5627: -- Validate Inputs
5628: IF ( ( p_workorder_id IS NULL OR
5629: p_workorder_id = FND_API.G_MISS_NUM ) AND
5630: ( p_unit_effectivity_id IS NULL OR
5631: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
5632: ( p_visit_id IS NULL OR
5633: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5627: -- Validate Inputs
5628: IF ( ( p_workorder_id IS NULL OR
5629: p_workorder_id = FND_API.G_MISS_NUM ) AND
5630: ( p_unit_effectivity_id IS NULL OR
5631: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
5632: ( p_visit_id IS NULL OR
5633: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5634: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
5635: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
5629: p_workorder_id = FND_API.G_MISS_NUM ) AND
5630: ( p_unit_effectivity_id IS NULL OR
5631: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
5632: ( p_visit_id IS NULL OR
5633: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5634: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
5635: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
5636: FND_MSG_PUB.add;
5637: RAISE FND_API.G_EXC_ERROR;
5633: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
5634: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
5635: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
5636: FND_MSG_PUB.add;
5637: RAISE FND_API.G_EXC_ERROR;
5638: END IF;
5639:
5640: -- Determine the type of API call
5641: IF ( p_workorder_id IS NOT NULL AND
5638: END IF;
5639:
5640: -- Determine the type of API call
5641: IF ( p_workorder_id IS NOT NULL AND
5642: p_workorder_id <> FND_API.G_MISS_NUM ) THEN
5643: l_input_type := 'WO';
5644: ELSIF ( p_unit_effectivity_id IS NOT NULL AND
5645: p_unit_effectivity_id <> FND_API.G_MISS_NUM ) THEN
5646: l_input_type := 'UE';
5641: IF ( p_workorder_id IS NOT NULL AND
5642: p_workorder_id <> FND_API.G_MISS_NUM ) THEN
5643: l_input_type := 'WO';
5644: ELSIF ( p_unit_effectivity_id IS NOT NULL AND
5645: p_unit_effectivity_id <> FND_API.G_MISS_NUM ) THEN
5646: l_input_type := 'UE';
5647: ELSIF ( p_visit_id IS NOT NULL AND
5648: p_visit_id <> FND_API.G_MISS_NUM ) THEN
5649: l_input_type := 'VST';
5644: ELSIF ( p_unit_effectivity_id IS NOT NULL AND
5645: p_unit_effectivity_id <> FND_API.G_MISS_NUM ) THEN
5646: l_input_type := 'UE';
5647: ELSIF ( p_visit_id IS NOT NULL AND
5648: p_visit_id <> FND_API.G_MISS_NUM ) THEN
5649: l_input_type := 'VST';
5650: END IF;
5651:
5652: -- Validate Visit Dependencies
5785: END IF;
5786:
5787: x_msg_count := FND_MSG_PUB.count_msg;
5788: IF ( x_msg_count > 0 ) THEN
5789: RAISE FND_API.G_EXC_ERROR;
5790: END IF;
5791:
5792: EXCEPTION
5793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5789: RAISE FND_API.G_EXC_ERROR;
5790: END IF;
5791:
5792: EXCEPTION
5793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5794: ROLLBACK TO validate_dependencies_PVT;
5795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5796: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5797: p_count => x_msg_count,
5791:
5792: EXCEPTION
5793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5794: ROLLBACK TO validate_dependencies_PVT;
5795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5796: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5797: p_count => x_msg_count,
5798: p_data => x_msg_data);
5799: WHEN FND_API.G_EXC_ERROR THEN
5792: EXCEPTION
5793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5794: ROLLBACK TO validate_dependencies_PVT;
5795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5796: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5797: p_count => x_msg_count,
5798: p_data => x_msg_data);
5799: WHEN FND_API.G_EXC_ERROR THEN
5800: ROLLBACK TO validate_dependencies_PVT;
5795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5796: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5797: p_count => x_msg_count,
5798: p_data => x_msg_data);
5799: WHEN FND_API.G_EXC_ERROR THEN
5800: ROLLBACK TO validate_dependencies_PVT;
5801: x_return_status := FND_API.G_RET_STS_ERROR;
5802: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5803: p_count => x_msg_count,
5797: p_count => x_msg_count,
5798: p_data => x_msg_data);
5799: WHEN FND_API.G_EXC_ERROR THEN
5800: ROLLBACK TO validate_dependencies_PVT;
5801: x_return_status := FND_API.G_RET_STS_ERROR;
5802: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5803: p_count => x_msg_count,
5804: p_data => x_msg_data);
5805:
5798: p_data => x_msg_data);
5799: WHEN FND_API.G_EXC_ERROR THEN
5800: ROLLBACK TO validate_dependencies_PVT;
5801: x_return_status := FND_API.G_RET_STS_ERROR;
5802: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5803: p_count => x_msg_count,
5804: p_data => x_msg_data);
5805:
5806: WHEN OTHERS THEN
5804: p_data => x_msg_data);
5805:
5806: WHEN OTHERS THEN
5807: ROLLBACK TO validate_dependencies_PVT;
5808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5809: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5810: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
5811: p_procedure_name =>l_api_name,
5812: p_error_text => SUBSTR(SQLERRM,1,240));
5811: p_procedure_name =>l_api_name,
5812: p_error_text => SUBSTR(SQLERRM,1,240));
5813:
5814: END IF;
5815: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
5816: p_count => x_msg_count,
5817: p_data => x_msg_data);
5818: END validate_dependencies;
5819:
5861:
5862: PROCEDURE cancel_visit_jobs
5863: (
5864: p_api_version IN NUMBER := 1.0,
5865: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5866: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5867: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5868: p_default IN VARCHAR2 := FND_API.G_FALSE,
5869: p_module_type IN VARCHAR2 := NULL,
5862: PROCEDURE cancel_visit_jobs
5863: (
5864: p_api_version IN NUMBER := 1.0,
5865: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5866: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5867: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5868: p_default IN VARCHAR2 := FND_API.G_FALSE,
5869: p_module_type IN VARCHAR2 := NULL,
5870: x_return_status OUT NOCOPY VARCHAR2,
5863: (
5864: p_api_version IN NUMBER := 1.0,
5865: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5866: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5867: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5868: p_default IN VARCHAR2 := FND_API.G_FALSE,
5869: p_module_type IN VARCHAR2 := NULL,
5870: x_return_status OUT NOCOPY VARCHAR2,
5871: x_msg_count OUT NOCOPY NUMBER,
5864: p_api_version IN NUMBER := 1.0,
5865: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5866: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5867: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5868: p_default IN VARCHAR2 := FND_API.G_FALSE,
5869: p_module_type IN VARCHAR2 := NULL,
5870: x_return_status OUT NOCOPY VARCHAR2,
5871: x_msg_count OUT NOCOPY NUMBER,
5872: x_msg_data OUT NOCOPY VARCHAR2,
6208:
6209: BEGIN
6210: SAVEPOINT cancel_visit_jobs_PVT;
6211:
6212: IF NOT FND_API.compatible_api_call(l_api_version,
6213: p_api_version,
6214: l_api_name,G_PKG_NAME) THEN
6215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6216: END IF;
6211:
6212: IF NOT FND_API.compatible_api_call(l_api_version,
6213: p_api_version,
6214: l_api_name,G_PKG_NAME) THEN
6215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6216: END IF;
6217:
6218: IF FND_API.to_boolean(p_init_msg_list) THEN
6219: FND_MSG_PUB.initialize;
6214: l_api_name,G_PKG_NAME) THEN
6215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6216: END IF;
6217:
6218: IF FND_API.to_boolean(p_init_msg_list) THEN
6219: FND_MSG_PUB.initialize;
6220: END IF;
6221:
6222: x_return_status:=FND_API.G_RET_STS_SUCCESS;
6218: IF FND_API.to_boolean(p_init_msg_list) THEN
6219: FND_MSG_PUB.initialize;
6220: END IF;
6221:
6222: x_return_status:=FND_API.G_RET_STS_SUCCESS;
6223:
6224: IF G_DEBUG='Y' THEN
6225: AHL_DEBUG_PUB.enable_debug;
6226: END IF;
6225: AHL_DEBUG_PUB.enable_debug;
6226: END IF;
6227:
6228: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6229: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed = FND_API.G_FALSE THEN
6230: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6231: FND_MSG_PUB.add;
6232: RAISE FND_API.G_EXC_ERROR;
6233: END IF;
6228: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6229: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed = FND_API.G_FALSE THEN
6230: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6231: FND_MSG_PUB.add;
6232: RAISE FND_API.G_EXC_ERROR;
6233: END IF;
6234: -- Validate Inputs
6235: IF ( ( p_workorder_id IS NULL OR
6236: p_workorder_id = FND_API.G_MISS_NUM ) AND
6232: RAISE FND_API.G_EXC_ERROR;
6233: END IF;
6234: -- Validate Inputs
6235: IF ( ( p_workorder_id IS NULL OR
6236: p_workorder_id = FND_API.G_MISS_NUM ) AND
6237: ( p_unit_effectivity_id IS NULL OR
6238: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
6239: ( p_visit_id IS NULL OR
6240: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
6234: -- Validate Inputs
6235: IF ( ( p_workorder_id IS NULL OR
6236: p_workorder_id = FND_API.G_MISS_NUM ) AND
6237: ( p_unit_effectivity_id IS NULL OR
6238: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
6239: ( p_visit_id IS NULL OR
6240: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
6241: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
6242: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
6236: p_workorder_id = FND_API.G_MISS_NUM ) AND
6237: ( p_unit_effectivity_id IS NULL OR
6238: p_unit_effectivity_id = FND_API.G_MISS_NUM ) AND
6239: ( p_visit_id IS NULL OR
6240: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
6241: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
6242: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
6243: FND_MSG_PUB.add;
6244: RAISE FND_API.G_EXC_ERROR;
6240: p_visit_id = FND_API.G_MISS_NUM ) ) THEN
6241: FND_MESSAGE.set_name('AHL','AHL_PRD_WRONG_ARGUMENTS');
6242: FND_MESSAGE.set_token('PROC_NAME', l_api_name);
6243: FND_MSG_PUB.add;
6244: RAISE FND_API.G_EXC_ERROR;
6245: END IF;
6246:
6247:
6248:
6249: -- Validate if Completion Dependencies exist
6250: validate_dependencies
6251: (
6252: p_api_version => 1.0,
6253: p_init_msg_list => FND_API.G_TRUE,
6254: p_commit => FND_API.G_FALSE,
6255: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6256: p_default => FND_API.G_FALSE,
6257: p_module_type => NULL,
6250: validate_dependencies
6251: (
6252: p_api_version => 1.0,
6253: p_init_msg_list => FND_API.G_TRUE,
6254: p_commit => FND_API.G_FALSE,
6255: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6256: p_default => FND_API.G_FALSE,
6257: p_module_type => NULL,
6258: x_return_status => l_return_status,
6251: (
6252: p_api_version => 1.0,
6253: p_init_msg_list => FND_API.G_TRUE,
6254: p_commit => FND_API.G_FALSE,
6255: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6256: p_default => FND_API.G_FALSE,
6257: p_module_type => NULL,
6258: x_return_status => l_return_status,
6259: x_msg_count => l_msg_count,
6252: p_api_version => 1.0,
6253: p_init_msg_list => FND_API.G_TRUE,
6254: p_commit => FND_API.G_FALSE,
6255: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6256: p_default => FND_API.G_FALSE,
6257: p_module_type => NULL,
6258: x_return_status => l_return_status,
6259: x_msg_count => l_msg_count,
6260: x_msg_data => l_msg_data,
6262: p_unit_effectivity_id => p_unit_effectivity_id,
6263: p_workorder_id => p_workorder_id
6264: );
6265:
6266: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6267: RAISE FND_API.G_EXC_ERROR;
6268: END IF;
6269:
6270: -- Determine the type of API call
6263: p_workorder_id => p_workorder_id
6264: );
6265:
6266: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6267: RAISE FND_API.G_EXC_ERROR;
6268: END IF;
6269:
6270: -- Determine the type of API call
6271: IF ( p_workorder_id IS NOT NULL AND
6268: END IF;
6269:
6270: -- Determine the type of API call
6271: IF ( p_workorder_id IS NOT NULL AND
6272: p_workorder_id <> FND_API.G_MISS_NUM ) THEN
6273: l_input_type := 'WO';
6274: ELSIF ( p_unit_effectivity_id IS NOT NULL AND
6275: p_unit_effectivity_id <> FND_API.G_MISS_NUM ) THEN
6276: l_input_type := 'UE';
6271: IF ( p_workorder_id IS NOT NULL AND
6272: p_workorder_id <> FND_API.G_MISS_NUM ) THEN
6273: l_input_type := 'WO';
6274: ELSIF ( p_unit_effectivity_id IS NOT NULL AND
6275: p_unit_effectivity_id <> FND_API.G_MISS_NUM ) THEN
6276: l_input_type := 'UE';
6277: ELSIF ( p_visit_id IS NOT NULL AND
6278: p_visit_id <> FND_API.G_MISS_NUM ) THEN
6279: l_input_type := 'VST';
6274: ELSIF ( p_unit_effectivity_id IS NOT NULL AND
6275: p_unit_effectivity_id <> FND_API.G_MISS_NUM ) THEN
6276: l_input_type := 'UE';
6277: ELSIF ( p_visit_id IS NOT NULL AND
6278: p_visit_id <> FND_API.G_MISS_NUM ) THEN
6279: l_input_type := 'VST';
6280: END IF;
6281:
6282: -- Process Inputs for Cancelling Workorders
6351: IF ( get_visit_mwo%NOTFOUND ) THEN
6352: FND_MESSAGE.set_name('AHL','AHL_PRD_VISIT_MWO_NOT_FOUND');
6353: FND_MSG_PUB.add;
6354: CLOSE get_visit_mwo;
6355: RAISE FND_API.G_EXC_ERROR;
6356: END IF;
6357:
6358: CLOSE get_visit_mwo;
6359:
6362: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => l_workorder_id,
6363: p_ue_id => NULL,
6364: p_visit_id => NULL,
6365: p_item_instance_id => NULL);
6366: IF l_return_status = FND_API.G_TRUE THEN
6367: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_CNCL_UNTLCKD');
6368: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6369: FND_MSG_PUB.ADD;
6370: RAISE FND_API.G_EXC_ERROR;
6366: IF l_return_status = FND_API.G_TRUE THEN
6367: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_CNCL_UNTLCKD');
6368: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6369: FND_MSG_PUB.ADD;
6370: RAISE FND_API.G_EXC_ERROR;
6371: END IF;
6372:
6373: -- rroy
6374: -- ACL Changes
6389: --
6390: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_VISIT_STATUS');
6391: FND_MESSAGE.set_token('STATUS', l_status_meaning );
6392: FND_MSG_PUB.add;
6393: RAISE FND_API.G_EXC_ERROR;
6394: END IF;
6395:
6396: -- Process all the Child Workorders of the Visit
6397: FOR child_csr IN get_child_wos( l_wip_entity_id ) LOOP
6411: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => l_wo_id,
6412: p_ue_id => NULL,
6413: p_visit_id => NULL,
6414: p_item_instance_id => NULL);
6415: IF l_return_status = FND_API.G_TRUE THEN
6416: IF l_mwo_flag <> 'Y' THEN
6417: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_WO_CNCL_UNTLCKD');
6418: ELSE
6419: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_CNCL_UNTLCKD');
6419: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_VST_MWO_CNCL_UNTLCKD');
6420: END IF;
6421: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
6422: FND_MSG_PUB.ADD;
6423: RAISE FND_API.G_EXC_ERROR;
6424: END IF;
6425: -- rroy
6426: -- ACL Changes
6427:
6435: /* bug 5104519 - start */
6436: IF l_mwo_flag = 'N' THEN
6437:
6438: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6439: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(l_wo_id) = FND_API.G_FALSE THEN
6440: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6441: FND_MSG_PUB.add;
6442: RAISE FND_API.G_EXC_ERROR;
6443: END IF;
6438: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6439: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(l_wo_id) = FND_API.G_FALSE THEN
6440: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6441: FND_MSG_PUB.add;
6442: RAISE FND_API.G_EXC_ERROR;
6443: END IF;
6444:
6445: l_wo_count := l_wo_count + 1;
6446: l_workorder_tbl(l_wo_count).dml_operation := 'U';
6447: l_workorder_tbl(l_wo_count).batch_id := l_wip_entity_id;
6448: l_workorder_tbl(l_wo_count).header_id := l_wip_id;
6449: l_workorder_tbl(l_wo_count).workorder_id := l_wo_id;
6450: l_workorder_tbl(l_wo_count).object_version_number := l_ovn;
6451: l_workorder_tbl(l_wo_count).hold_reason_code := FND_API.G_MISS_CHAR;
6452:
6453: -- If the Status is Draft, then, Delete else, Cancel
6454: IF ( l_sts_code = G_JOB_STATUS_DRAFT ) THEN
6455: l_workorder_tbl(l_wo_count).status_code := G_JOB_STATUS_DELETED;
6507: IF ( get_ue_mwo%NOTFOUND ) THEN
6508: FND_MESSAGE.set_name('AHL','AHL_PRD_MR_MWO_NOT_FOUND');
6509: FND_MSG_PUB.add;
6510: CLOSE get_ue_mwo;
6511: RAISE FND_API.G_EXC_ERROR;
6512: END IF;
6513:
6514: CLOSE get_ue_mwo;
6515: -- rroy
6517: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => l_workorder_id,
6518: p_ue_id => NULL,
6519: p_visit_id => NULL,
6520: p_item_instance_id => NULL);
6521: IF l_return_status = FND_API.G_TRUE THEN
6522: IF l_master_wo_flag <> 'Y' THEN
6523: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6524: ELSE
6525: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6525: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6526: END IF;
6527: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6528: FND_MSG_PUB.ADD;
6529: RAISE FND_API.G_EXC_ERROR;
6530: END IF;
6531: -- rroy
6532: -- ACL Changes
6533:
6545:
6546: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_MR_STATUS');
6547: FND_MESSAGE.set_token('STATUS', l_status_meaning );
6548: FND_MSG_PUB.add;
6549: RAISE FND_API.G_EXC_ERROR;
6550: END IF;
6551:
6552: -- Process all the Child Workorders of the UE
6553: FOR child_csr IN get_child_wos( l_wip_entity_id ) LOOP
6567: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => l_wo_id,
6568: p_ue_id => NULL,
6569: p_visit_id => NULL,
6570: p_item_instance_id => NULL);
6571: IF l_return_status = FND_API.G_TRUE THEN
6572: IF l_mwo_flag <> 'Y' THEN
6573: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6574: ELSE
6575: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6575: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6576: END IF;
6577: FND_MESSAGE.Set_Token('WO_NAME', l_child_wo_name);
6578: FND_MSG_PUB.ADD;
6579: RAISE FND_API.G_EXC_ERROR;
6580: END IF;
6581: -- rroy
6582: -- ACL Changes
6583:
6591: /* bug 5104519 - start */
6592: IF l_mwo_flag = 'N' THEN
6593:
6594: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6595: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(l_wo_id) = FND_API.G_FALSE THEN
6596: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6597: FND_MSG_PUB.add;
6598: RAISE FND_API.G_EXC_ERROR;
6599: END IF;
6594: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6595: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(l_wo_id) = FND_API.G_FALSE THEN
6596: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6597: FND_MSG_PUB.add;
6598: RAISE FND_API.G_EXC_ERROR;
6599: END IF;
6600: l_wo_count := l_wo_count + 1;
6601: l_workorder_tbl(l_wo_count).dml_operation := 'U';
6602: l_workorder_tbl(l_wo_count).batch_id := l_wip_entity_id;
6603: l_workorder_tbl(l_wo_count).header_id := child_csr.child_object_id;
6604: l_workorder_tbl(l_wo_count).workorder_id := l_wo_id;
6605: l_workorder_tbl(l_wo_count).wip_entity_id := l_wip_id;
6606: l_workorder_tbl(l_wo_count).object_version_number := l_ovn;
6607: l_workorder_tbl(l_wo_count).hold_reason_code := FND_API.G_MISS_CHAR;
6608:
6609: -- If the Status is Draft, then, Delete else, Cancel
6610: IF ( l_sts_code = G_JOB_STATUS_DRAFT ) THEN
6611: l_workorder_tbl(l_wo_count).status_code := G_JOB_STATUS_DELETED;
6650: -- Release the UE WO which will in-turn release the parent WOs
6651: release_visit_jobs
6652: (
6653: p_api_version => 1.0,
6654: p_init_msg_list => FND_API.G_TRUE,
6655: p_commit => FND_API.G_FALSE,
6656: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6657: p_default => FND_API.G_FALSE,
6658: p_module_type => NULL,
6651: release_visit_jobs
6652: (
6653: p_api_version => 1.0,
6654: p_init_msg_list => FND_API.G_TRUE,
6655: p_commit => FND_API.G_FALSE,
6656: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6657: p_default => FND_API.G_FALSE,
6658: p_module_type => NULL,
6659: x_return_status => l_return_status,
6652: (
6653: p_api_version => 1.0,
6654: p_init_msg_list => FND_API.G_TRUE,
6655: p_commit => FND_API.G_FALSE,
6656: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6657: p_default => FND_API.G_FALSE,
6658: p_module_type => NULL,
6659: x_return_status => l_return_status,
6660: x_msg_count => l_msg_count,
6653: p_api_version => 1.0,
6654: p_init_msg_list => FND_API.G_TRUE,
6655: p_commit => FND_API.G_FALSE,
6656: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6657: p_default => FND_API.G_FALSE,
6658: p_module_type => NULL,
6659: x_return_status => l_return_status,
6660: x_msg_count => l_msg_count,
6661: x_msg_data => l_msg_data,
6663: p_unit_effectivity_id => NULL,
6664: p_workorder_id => l_workorder_id
6665: );
6666:
6667: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6668: RAISE FND_API.G_EXC_ERROR;
6669: END IF;
6670: -- Release job updates the OVN. Hence requery the record to get the new OVN.
6671: -- Balaji added the fix as a part of BAE OVN Fix.
6664: p_workorder_id => l_workorder_id
6665: );
6666:
6667: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6668: RAISE FND_API.G_EXC_ERROR;
6669: END IF;
6670: -- Release job updates the OVN. Hence requery the record to get the new OVN.
6671: -- Balaji added the fix as a part of BAE OVN Fix.
6672: OPEN get_ue_mwo( p_unit_effectivity_id );
6713: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => l_wo_id,
6714: p_ue_id => NULL,
6715: p_visit_id => NULL,
6716: p_item_instance_id => NULL);
6717: IF l_return_status = FND_API.G_TRUE THEN
6718: IF l_mwo_flag <> 'Y' THEN
6719: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_WO_CNCL_UNTLCKD');
6720: ELSE
6721: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6721: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MR_MWO_CNCL_UNTLCKD');
6722: END IF;
6723: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
6724: FND_MSG_PUB.ADD;
6725: RAISE FND_API.G_EXC_ERROR;
6726: END IF;
6727: -- rroy
6728: -- ACL Changes
6729:
6866: IF ( get_wo%NOTFOUND ) THEN
6867: FND_MESSAGE.set_name('AHL','AHL_PRD_WO_NOT_FOUND');
6868: FND_MSG_PUB.add;
6869: CLOSE get_wo;
6870: RAISE FND_API.G_EXC_ERROR;
6871: END IF;
6872: -- rroy
6873: -- ACL Changes
6874: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => l_workorder_id,
6874: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => l_workorder_id,
6875: p_ue_id => NULL,
6876: p_visit_id => NULL,
6877: p_item_instance_id => NULL);
6878: IF l_return_status = FND_API.G_TRUE THEN
6879: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
6880: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6881: FND_MSG_PUB.ADD;
6882: RAISE FND_API.G_EXC_ERROR;
6878: IF l_return_status = FND_API.G_TRUE THEN
6879: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
6880: FND_MESSAGE.Set_Token('WO_NAME', l_wo_name);
6881: FND_MSG_PUB.ADD;
6882: RAISE FND_API.G_EXC_ERROR;
6883: END IF;
6884: -- rroy
6885: -- ACL Changes
6886:
6886:
6887: CLOSE get_wo;
6888:
6889: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6890: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(p_workorder_id) = FND_API.G_FALSE THEN
6891: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6892: FND_MSG_PUB.add;
6893: RAISE FND_API.G_EXC_ERROR;
6894: END IF;
6889: --sikumar: added for FP for ER 5571241 -- Check if user has permission to cancel jobs.
6890: IF AHL_PRD_UTIL_PKG.Is_Wo_Cancel_Allowed(p_workorder_id) = FND_API.G_FALSE THEN
6891: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_NOT_ALLOWED');
6892: FND_MSG_PUB.add;
6893: RAISE FND_API.G_EXC_ERROR;
6894: END IF;
6895:
6896: -- Check if the WO is in a status which can be cancelled
6897: IF ( l_status_code = G_JOB_STATUS_COMPLETE OR
6907:
6908: FND_MESSAGE.set_name('AHL','AHL_PRD_CANCEL_WO_STATUS');
6909: FND_MESSAGE.set_token('STATUS', l_status_meaning );
6910: FND_MSG_PUB.add;
6911: RAISE FND_API.G_EXC_ERROR;
6912: END IF;
6913:
6914: -- Add the WO in the WO Table
6915: l_wo_count := l_wo_count + 1;
6926: -- Release the WO which will in-turn release the parent WOs
6927: release_visit_jobs
6928: (
6929: p_api_version => 1.0,
6930: p_init_msg_list => FND_API.G_TRUE,
6931: p_commit => FND_API.G_FALSE,
6932: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6933: p_default => FND_API.G_FALSE,
6934: p_module_type => NULL,
6927: release_visit_jobs
6928: (
6929: p_api_version => 1.0,
6930: p_init_msg_list => FND_API.G_TRUE,
6931: p_commit => FND_API.G_FALSE,
6932: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6933: p_default => FND_API.G_FALSE,
6934: p_module_type => NULL,
6935: x_return_status => l_return_status,
6928: (
6929: p_api_version => 1.0,
6930: p_init_msg_list => FND_API.G_TRUE,
6931: p_commit => FND_API.G_FALSE,
6932: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6933: p_default => FND_API.G_FALSE,
6934: p_module_type => NULL,
6935: x_return_status => l_return_status,
6936: x_msg_count => l_msg_count,
6929: p_api_version => 1.0,
6930: p_init_msg_list => FND_API.G_TRUE,
6931: p_commit => FND_API.G_FALSE,
6932: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6933: p_default => FND_API.G_FALSE,
6934: p_module_type => NULL,
6935: x_return_status => l_return_status,
6936: x_msg_count => l_msg_count,
6937: x_msg_data => l_msg_data,
6939: p_unit_effectivity_id => NULL,
6940: p_workorder_id => l_workorder_id
6941: );
6942:
6943: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6944: RAISE FND_API.G_EXC_ERROR;
6945: END IF;
6946: -- Release job updates the OVN. Hence requery the record to get the new OVN.
6947: -- Balaji added the fix as a part of BAE OVN Fix.
6940: p_workorder_id => l_workorder_id
6941: );
6942:
6943: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
6944: RAISE FND_API.G_EXC_ERROR;
6945: END IF;
6946: -- Release job updates the OVN. Hence requery the record to get the new OVN.
6947: -- Balaji added the fix as a part of BAE OVN Fix.
6948: OPEN get_wo( p_workorder_id );
6988: l_return_status := AHL_PRD_UTIL_PKG.Is_Unit_Locked(p_workorder_id => l_wo_id,
6989: p_ue_id => NULL,
6990: p_visit_id => NULL,
6991: p_item_instance_id => NULL);
6992: IF l_return_status = FND_API.G_TRUE THEN
6993: IF l_mwo_flag <> 'Y' THEN
6994: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WO_CNCL_UNTLCKD');
6995: ELSE
6996: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_CNCL_UNTLCKD');
6996: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_MWO_CNCL_UNTLCKD');
6997: END IF;
6998: FND_MESSAGE.Set_Token('WO_NAME', l_parent_wo_name);
6999: FND_MSG_PUB.ADD;
7000: RAISE FND_API.G_EXC_ERROR;
7001: END IF;
7002: -- rroy
7003: -- ACL Changes
7004:
7077: IF l_eam_wo_relations_tbl.COUNT > 0 THEN
7078: AHL_EAM_JOB_PVT.process_eam_workorders
7079: (
7080: p_api_version => 1.0,
7081: p_init_msg_list => FND_API.G_TRUE,
7082: p_commit => FND_API.G_FALSE,
7083: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7084: p_default => FND_API.G_FALSE,
7085: p_module_type => NULL,
7078: AHL_EAM_JOB_PVT.process_eam_workorders
7079: (
7080: p_api_version => 1.0,
7081: p_init_msg_list => FND_API.G_TRUE,
7082: p_commit => FND_API.G_FALSE,
7083: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7084: p_default => FND_API.G_FALSE,
7085: p_module_type => NULL,
7086: x_return_status => l_return_status,
7079: (
7080: p_api_version => 1.0,
7081: p_init_msg_list => FND_API.G_TRUE,
7082: p_commit => FND_API.G_FALSE,
7083: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7084: p_default => FND_API.G_FALSE,
7085: p_module_type => NULL,
7086: x_return_status => l_return_status,
7087: x_msg_count => l_msg_count,
7080: p_api_version => 1.0,
7081: p_init_msg_list => FND_API.G_TRUE,
7082: p_commit => FND_API.G_FALSE,
7083: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7084: p_default => FND_API.G_FALSE,
7085: p_module_type => NULL,
7086: x_return_status => l_return_status,
7087: x_msg_count => l_msg_count,
7088: x_msg_data => l_msg_data,
7092: p_eam_res_req_tbl => l_eam_res_req_tbl,
7093: p_eam_mat_req_tbl => l_eam_mat_req_tbl
7094: );
7095:
7096: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7097: RAISE FND_API.G_EXC_ERROR;
7098: END IF;
7099: END IF;
7100:
7093: p_eam_mat_req_tbl => l_eam_mat_req_tbl
7094: );
7095:
7096: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7097: RAISE FND_API.G_EXC_ERROR;
7098: END IF;
7099: END IF;
7100:
7101:
7103: IF ( l_wo_count > 0 ) THEN
7104: process_jobs
7105: (
7106: p_api_version => 1.0,
7107: p_init_msg_list => FND_API.G_TRUE,
7108: p_commit => FND_API.G_FALSE,
7109: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7110: p_default => FND_API.G_FALSE,
7111: p_module_type => NULL,
7104: process_jobs
7105: (
7106: p_api_version => 1.0,
7107: p_init_msg_list => FND_API.G_TRUE,
7108: p_commit => FND_API.G_FALSE,
7109: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7110: p_default => FND_API.G_FALSE,
7111: p_module_type => NULL,
7112: x_return_status => l_return_status,
7105: (
7106: p_api_version => 1.0,
7107: p_init_msg_list => FND_API.G_TRUE,
7108: p_commit => FND_API.G_FALSE,
7109: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7110: p_default => FND_API.G_FALSE,
7111: p_module_type => NULL,
7112: x_return_status => l_return_status,
7113: x_msg_count => l_msg_count,
7106: p_api_version => 1.0,
7107: p_init_msg_list => FND_API.G_TRUE,
7108: p_commit => FND_API.G_FALSE,
7109: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7110: p_default => FND_API.G_FALSE,
7111: p_module_type => NULL,
7112: x_return_status => l_return_status,
7113: x_msg_count => l_msg_count,
7114: x_msg_data => l_msg_data,
7115: p_x_prd_workorder_tbl => l_workorder_tbl,
7116: p_prd_workorder_rel_tbl => l_workorder_rel_cancel_tbl
7117: );
7118:
7119: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7120: RAISE FND_API.G_EXC_ERROR;
7121: END IF;
7122: END IF;
7123:
7116: p_prd_workorder_rel_tbl => l_workorder_rel_cancel_tbl
7117: );
7118:
7119: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
7120: RAISE FND_API.G_EXC_ERROR;
7121: END IF;
7122: END IF;
7123:
7124: /* bug 5104519 - Start */
7164:
7165: process_jobs
7166: (
7167: p_api_version => 1.0,
7168: p_init_msg_list => FND_API.G_TRUE,
7169: p_commit => FND_API.G_FALSE,
7170: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7171: p_default => FND_API.G_FALSE,
7172: p_module_type => NULL,
7165: process_jobs
7166: (
7167: p_api_version => 1.0,
7168: p_init_msg_list => FND_API.G_TRUE,
7169: p_commit => FND_API.G_FALSE,
7170: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7171: p_default => FND_API.G_FALSE,
7172: p_module_type => NULL,
7173: x_return_status => l_return_status,
7166: (
7167: p_api_version => 1.0,
7168: p_init_msg_list => FND_API.G_TRUE,
7169: p_commit => FND_API.G_FALSE,
7170: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7171: p_default => FND_API.G_FALSE,
7172: p_module_type => NULL,
7173: x_return_status => l_return_status,
7174: x_msg_count => l_msg_count,
7167: p_api_version => 1.0,
7168: p_init_msg_list => FND_API.G_TRUE,
7169: p_commit => FND_API.G_FALSE,
7170: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7171: p_default => FND_API.G_FALSE,
7172: p_module_type => NULL,
7173: x_return_status => l_return_status,
7174: x_msg_count => l_msg_count,
7175: x_msg_data => l_msg_data,
7185: 'return status after calling complete_master_wo: ' || l_mwo_return_status
7186: );
7187: END IF;
7188:
7189: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7190: RAISE FND_API.G_EXC_ERROR;
7191: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7193: END IF;
7186: );
7187: END IF;
7188:
7189: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7190: RAISE FND_API.G_EXC_ERROR;
7191: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7193: END IF;
7194:
7187: END IF;
7188:
7189: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7190: RAISE FND_API.G_EXC_ERROR;
7191: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7193: END IF;
7194:
7195: ELSE
7188:
7189: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7190: RAISE FND_API.G_EXC_ERROR;
7191: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7193: END IF;
7194:
7195: ELSE
7196: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
7216: 'return status after calling complete_master_wo: ' || l_mwo_return_status
7217: );
7218: END IF;
7219:
7220: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
7221: RAISE FND_API.G_EXC_ERROR;
7222: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7224: END IF;
7217: );
7218: END IF;
7219:
7220: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
7221: RAISE FND_API.G_EXC_ERROR;
7222: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7224: END IF;
7225:
7218: END IF;
7219:
7220: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
7221: RAISE FND_API.G_EXC_ERROR;
7222: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7224: END IF;
7225:
7226: END IF;
7219:
7220: IF l_mwo_return_status = FND_API.G_RET_STS_ERROR THEN
7221: RAISE FND_API.G_EXC_ERROR;
7222: ELSIF l_mwo_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7224: END IF;
7225:
7226: END IF;
7227: END LOOP;
7346:
7347: AHL_UMP_UNITMAINT_PVT.capture_mr_updates
7348: (
7349: p_api_version => 1.0,
7350: p_init_msg_list => FND_API.G_TRUE,
7351: p_commit => FND_API.G_FALSE,
7352: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7353: p_default => FND_API.G_TRUE,
7354: p_module_type => NULL,
7347: AHL_UMP_UNITMAINT_PVT.capture_mr_updates
7348: (
7349: p_api_version => 1.0,
7350: p_init_msg_list => FND_API.G_TRUE,
7351: p_commit => FND_API.G_FALSE,
7352: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7353: p_default => FND_API.G_TRUE,
7354: p_module_type => NULL,
7355: p_unit_effectivity_tbl => l_unit_effectivity_tbl,
7348: (
7349: p_api_version => 1.0,
7350: p_init_msg_list => FND_API.G_TRUE,
7351: p_commit => FND_API.G_FALSE,
7352: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7353: p_default => FND_API.G_TRUE,
7354: p_module_type => NULL,
7355: p_unit_effectivity_tbl => l_unit_effectivity_tbl,
7356: p_x_unit_threshold_tbl => l_unit_threshold_tbl,
7349: p_api_version => 1.0,
7350: p_init_msg_list => FND_API.G_TRUE,
7351: p_commit => FND_API.G_FALSE,
7352: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7353: p_default => FND_API.G_TRUE,
7354: p_module_type => NULL,
7355: p_unit_effectivity_tbl => l_unit_effectivity_tbl,
7356: p_x_unit_threshold_tbl => l_unit_threshold_tbl,
7357: p_x_unit_accomplish_tbl => l_unit_accomplish_tbl,
7359: x_msg_count => l_msg_count,
7360: x_msg_data => l_msg_data
7361: );
7362:
7363: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7364: -- Add Debug
7365: IF FND_API.to_boolean(p_init_msg_list) THEN
7366: FND_MSG_PUB.initialize;
7367: END IF;
7361: );
7362:
7363: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
7364: -- Add Debug
7365: IF FND_API.to_boolean(p_init_msg_list) THEN
7366: FND_MSG_PUB.initialize;
7367: END IF;
7368: END IF;
7369: END IF;
7367: END IF;
7368: END IF;
7369: END IF;
7370: */
7371: IF FND_API.to_boolean(p_commit) THEN
7372: COMMIT;
7373: END IF;
7374:
7375: IF G_DEBUG='Y' THEN
7376: AHL_DEBUG_PUB.disable_debug;
7377: END IF;
7378:
7379: EXCEPTION
7380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7381: ROLLBACK TO cancel_visit_jobs_PVT;
7382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7383: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7384: p_count => x_msg_count,
7378:
7379: EXCEPTION
7380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7381: ROLLBACK TO cancel_visit_jobs_PVT;
7382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7383: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7384: p_count => x_msg_count,
7385: p_data => x_msg_data);
7386: WHEN FND_API.G_EXC_ERROR THEN
7379: EXCEPTION
7380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7381: ROLLBACK TO cancel_visit_jobs_PVT;
7382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7383: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7384: p_count => x_msg_count,
7385: p_data => x_msg_data);
7386: WHEN FND_API.G_EXC_ERROR THEN
7387: ROLLBACK TO cancel_visit_jobs_PVT;
7382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7383: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7384: p_count => x_msg_count,
7385: p_data => x_msg_data);
7386: WHEN FND_API.G_EXC_ERROR THEN
7387: ROLLBACK TO cancel_visit_jobs_PVT;
7388: x_return_status := FND_API.G_RET_STS_ERROR;
7389: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7390: p_count => x_msg_count,
7384: p_count => x_msg_count,
7385: p_data => x_msg_data);
7386: WHEN FND_API.G_EXC_ERROR THEN
7387: ROLLBACK TO cancel_visit_jobs_PVT;
7388: x_return_status := FND_API.G_RET_STS_ERROR;
7389: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7390: p_count => x_msg_count,
7391: p_data => x_msg_data);
7392:
7385: p_data => x_msg_data);
7386: WHEN FND_API.G_EXC_ERROR THEN
7387: ROLLBACK TO cancel_visit_jobs_PVT;
7388: x_return_status := FND_API.G_RET_STS_ERROR;
7389: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7390: p_count => x_msg_count,
7391: p_data => x_msg_data);
7392:
7393: WHEN OTHERS THEN
7391: p_data => x_msg_data);
7392:
7393: WHEN OTHERS THEN
7394: ROLLBACK TO cancel_visit_jobs_PVT;
7395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7396: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7397: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
7398: p_procedure_name =>l_api_name,
7399: p_error_text => SUBSTR(SQLERRM,1,240));
7398: p_procedure_name =>l_api_name,
7399: p_error_text => SUBSTR(SQLERRM,1,240));
7400:
7401: END IF;
7402: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7403: p_count => x_msg_count,
7404: p_data => x_msg_data);
7405: END cancel_visit_jobs;
7406: --
7406: --
7407: PROCEDURE Reschedule_Visit_Jobs
7408: (
7409: p_api_version IN NUMBER := 1.0 ,
7410: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7411: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7412: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7413: p_default IN VARCHAR2 := FND_API.G_FALSE,
7414: p_module_type IN VARCHAR2 := Null,
7407: PROCEDURE Reschedule_Visit_Jobs
7408: (
7409: p_api_version IN NUMBER := 1.0 ,
7410: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7411: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7412: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7413: p_default IN VARCHAR2 := FND_API.G_FALSE,
7414: p_module_type IN VARCHAR2 := Null,
7415: x_return_status OUT NOCOPY VARCHAR2,
7408: (
7409: p_api_version IN NUMBER := 1.0 ,
7410: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7411: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7412: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7413: p_default IN VARCHAR2 := FND_API.G_FALSE,
7414: p_module_type IN VARCHAR2 := Null,
7415: x_return_status OUT NOCOPY VARCHAR2,
7416: x_msg_count OUT NOCOPY NUMBER,
7409: p_api_version IN NUMBER := 1.0 ,
7410: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7411: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7412: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7413: p_default IN VARCHAR2 := FND_API.G_FALSE,
7414: p_module_type IN VARCHAR2 := Null,
7415: x_return_status OUT NOCOPY VARCHAR2,
7416: x_msg_count OUT NOCOPY NUMBER,
7417: x_msg_data OUT NOCOPY VARCHAR2,
7494: END IF;
7495: -- Standard start of API savepoint
7496: SAVEPOINT Reschedule_Visit_Jobs;
7497: --
7498: IF NOT FND_API.compatible_api_call(l_api_version,
7499: p_api_version,
7500: l_api_name,G_PKG_NAME) THEN
7501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7502: END IF;
7497: --
7498: IF NOT FND_API.compatible_api_call(l_api_version,
7499: p_api_version,
7500: l_api_name,G_PKG_NAME) THEN
7501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7502: END IF;
7503: -- Initialize message list if p_init_msg_list is set to TRUE
7504: IF FND_API.to_boolean(p_init_msg_list) THEN
7505: FND_MSG_PUB.initialize;
7500: l_api_name,G_PKG_NAME) THEN
7501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7502: END IF;
7503: -- Initialize message list if p_init_msg_list is set to TRUE
7504: IF FND_API.to_boolean(p_init_msg_list) THEN
7505: FND_MSG_PUB.initialize;
7506: END IF;
7507: -- Initialize API return status to success
7508: x_return_status:=FND_API.G_RET_STS_SUCCESS;
7504: IF FND_API.to_boolean(p_init_msg_list) THEN
7505: FND_MSG_PUB.initialize;
7506: END IF;
7507: -- Initialize API return status to success
7508: x_return_status:=FND_API.G_RET_STS_SUCCESS;
7509:
7510: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
7511: fnd_log.string
7512: (
7537: THEN
7538: FND_MESSAGE.Set_Name('AHL','AHL_PRD_VISIT_NOT_FOUND');
7539: FND_MSG_PUB.ADD;
7540: close validate_visit;
7541: RAISE FND_API.G_EXC_ERROR;
7542: END IF;
7543: close validate_visit;
7544:
7545:
7560: THEN
7561: FND_MESSAGE.Set_Name('AHL','AHL_PRD_VISIT_MWO_NOT_FOUND');
7562: FND_MSG_PUB.ADD;
7563: close check_workorder_exists;
7564: RAISE FND_API.G_EXC_ERROR;
7565: END IF;
7566:
7567: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
7568: fnd_log.string
7585: THEN
7586: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JOB_STATUS_INVALID');
7587: FND_MSG_PUB.ADD;
7588: close check_workorder_exists;
7589: RAISE FND_API.G_EXC_ERROR;
7590: END IF;
7591: */
7592: -- 4 -> Complete
7593: -- 5 -> Complete No Charge
7597: THEN
7598: FND_MESSAGE.Set_Name('AHL','AHL_PRD_JOB_STATUS_INVALID');
7599: FND_MSG_PUB.ADD;
7600: close check_workorder_exists;
7601: RAISE FND_API.G_EXC_ERROR;
7602: END IF;
7603:
7604: close check_workorder_exists;
7605:
7656:
7657: process_jobs
7658: (
7659: p_api_version => 1.0,
7660: p_init_msg_list => FND_API.G_TRUE,
7661: p_commit => FND_API.G_FALSE,
7662: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7663: p_default => FND_API.G_TRUE,
7664: p_module_type => NULL,
7657: process_jobs
7658: (
7659: p_api_version => 1.0,
7660: p_init_msg_list => FND_API.G_TRUE,
7661: p_commit => FND_API.G_FALSE,
7662: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7663: p_default => FND_API.G_TRUE,
7664: p_module_type => NULL,
7665: x_return_status => l_return_status,
7658: (
7659: p_api_version => 1.0,
7660: p_init_msg_list => FND_API.G_TRUE,
7661: p_commit => FND_API.G_FALSE,
7662: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7663: p_default => FND_API.G_TRUE,
7664: p_module_type => NULL,
7665: x_return_status => l_return_status,
7666: x_msg_count => l_msg_count,
7659: p_api_version => 1.0,
7660: p_init_msg_list => FND_API.G_TRUE,
7661: p_commit => FND_API.G_FALSE,
7662: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7663: p_default => FND_API.G_TRUE,
7664: p_module_type => NULL,
7665: x_return_status => l_return_status,
7666: x_msg_count => l_msg_count,
7667: x_msg_data => l_msg_data,
7668: p_x_prd_workorder_tbl => l_prd_workorder_tbl,
7669: p_prd_workorder_rel_tbl => l_prd_workorder_rel_tbl
7670: );
7671:
7672: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7673: RAISE Fnd_Api.g_exc_error;
7674: END IF;
7675:
7676: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
7669: p_prd_workorder_rel_tbl => l_prd_workorder_rel_tbl
7670: );
7671:
7672: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7673: RAISE Fnd_Api.g_exc_error;
7674: END IF;
7675:
7676: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
7677: fnd_log.string
7762:
7763: );
7764:
7765:
7766: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7767: RAISE Fnd_Api.g_exc_error;
7768: END IF;
7769:
7770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
7763: );
7764:
7765:
7766: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7767: RAISE Fnd_Api.g_exc_error;
7768: END IF;
7769:
7770: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
7771: fnd_log.string
7811:
7812: process_jobs
7813: (
7814: p_api_version => 1.0,
7815: p_init_msg_list => FND_API.G_TRUE,
7816: p_commit => FND_API.G_FALSE,
7817: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7818: p_default => FND_API.G_TRUE,
7819: p_module_type => NULL,
7812: process_jobs
7813: (
7814: p_api_version => 1.0,
7815: p_init_msg_list => FND_API.G_TRUE,
7816: p_commit => FND_API.G_FALSE,
7817: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7818: p_default => FND_API.G_TRUE,
7819: p_module_type => NULL,
7820: x_return_status => l_return_status,
7813: (
7814: p_api_version => 1.0,
7815: p_init_msg_list => FND_API.G_TRUE,
7816: p_commit => FND_API.G_FALSE,
7817: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7818: p_default => FND_API.G_TRUE,
7819: p_module_type => NULL,
7820: x_return_status => l_return_status,
7821: x_msg_count => l_msg_count,
7814: p_api_version => 1.0,
7815: p_init_msg_list => FND_API.G_TRUE,
7816: p_commit => FND_API.G_FALSE,
7817: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7818: p_default => FND_API.G_TRUE,
7819: p_module_type => NULL,
7820: x_return_status => l_return_status,
7821: x_msg_count => l_msg_count,
7822: x_msg_data => l_msg_data,
7825: );
7826:
7827: END IF;
7828:
7829: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7830: IF p_x_scheduled_end_date <> latest_schedule_dates_rec.scheduled_completion_date
7831: THEN
7832: -- Initialize the message list not to show the EAM Error message
7833: IF FND_API.to_boolean(p_init_msg_list) THEN
7829: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7830: IF p_x_scheduled_end_date <> latest_schedule_dates_rec.scheduled_completion_date
7831: THEN
7832: -- Initialize the message list not to show the EAM Error message
7833: IF FND_API.to_boolean(p_init_msg_list) THEN
7834: FND_MSG_PUB.initialize;
7835: END IF;
7836: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PLANNED_DATE_INVALID');
7837: FND_MESSAGE.SET_TOKEN('DATE',latest_schedule_dates_rec.scheduled_completion_date);
7836: FND_MESSAGE.Set_Name('AHL','AHL_PRD_PLANNED_DATE_INVALID');
7837: FND_MESSAGE.SET_TOKEN('DATE',latest_schedule_dates_rec.scheduled_completion_date);
7838: FND_MSG_PUB.ADD;
7839: END IF;
7840: RAISE Fnd_Api.g_exc_error;
7841:
7842: END IF;
7843:
7844: --
7841:
7842: END IF;
7843:
7844: --
7845: IF FND_API.to_boolean(p_commit) THEN
7846: COMMIT;
7847: END IF;
7848:
7849: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
7855: );
7856: END IF;
7857:
7858: EXCEPTION
7859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7860: ROLLBACK TO Reschedule_Visit_Jobs;
7861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7862: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7863: p_count => x_msg_count,
7857:
7858: EXCEPTION
7859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7860: ROLLBACK TO Reschedule_Visit_Jobs;
7861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7862: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7863: p_count => x_msg_count,
7864: p_data => x_msg_data);
7865: WHEN FND_API.G_EXC_ERROR THEN
7858: EXCEPTION
7859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7860: ROLLBACK TO Reschedule_Visit_Jobs;
7861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7862: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7863: p_count => x_msg_count,
7864: p_data => x_msg_data);
7865: WHEN FND_API.G_EXC_ERROR THEN
7866: ROLLBACK TO Reschedule_Visit_Jobs;
7861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7862: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7863: p_count => x_msg_count,
7864: p_data => x_msg_data);
7865: WHEN FND_API.G_EXC_ERROR THEN
7866: ROLLBACK TO Reschedule_Visit_Jobs;
7867: x_return_status := FND_API.G_RET_STS_ERROR;
7868: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7869: p_count => x_msg_count,
7863: p_count => x_msg_count,
7864: p_data => x_msg_data);
7865: WHEN FND_API.G_EXC_ERROR THEN
7866: ROLLBACK TO Reschedule_Visit_Jobs;
7867: x_return_status := FND_API.G_RET_STS_ERROR;
7868: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7869: p_count => x_msg_count,
7870: p_data => x_msg_data);
7871:
7864: p_data => x_msg_data);
7865: WHEN FND_API.G_EXC_ERROR THEN
7866: ROLLBACK TO Reschedule_Visit_Jobs;
7867: x_return_status := FND_API.G_RET_STS_ERROR;
7868: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7869: p_count => x_msg_count,
7870: p_data => x_msg_data);
7871:
7872: WHEN OTHERS THEN
7870: p_data => x_msg_data);
7871:
7872: WHEN OTHERS THEN
7873: ROLLBACK TO Reschedule_Visit_Jobs;
7874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7875: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7876: FND_MSG_PUB.add_exc_msg(p_pkg_name =>g_pkg_name,
7877: p_procedure_name =>l_api_name,
7878: p_error_text => SUBSTR(SQLERRM,1,240));
7877: p_procedure_name =>l_api_name,
7878: p_error_text => SUBSTR(SQLERRM,1,240));
7879:
7880: END IF;
7881: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
7882: p_count => x_msg_count,
7883: p_data => x_msg_data);
7884:
7885: END Reschedule_Visit_Jobs;
7887:
7888: PROCEDURE INSERT_TURNOVER_NOTES
7889: (
7890: p_api_version IN NUMBER := 1.0 ,
7891: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7892: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7893: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7894: p_default IN VARCHAR2 := FND_API.G_FALSE,
7895: p_module_type IN VARCHAR2 := Null,
7888: PROCEDURE INSERT_TURNOVER_NOTES
7889: (
7890: p_api_version IN NUMBER := 1.0 ,
7891: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7892: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7893: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7894: p_default IN VARCHAR2 := FND_API.G_FALSE,
7895: p_module_type IN VARCHAR2 := Null,
7896: x_return_status OUT NOCOPY VARCHAR2,
7889: (
7890: p_api_version IN NUMBER := 1.0 ,
7891: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7892: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7893: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7894: p_default IN VARCHAR2 := FND_API.G_FALSE,
7895: p_module_type IN VARCHAR2 := Null,
7896: x_return_status OUT NOCOPY VARCHAR2,
7897: x_msg_count OUT NOCOPY NUMBER,
7890: p_api_version IN NUMBER := 1.0 ,
7891: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
7892: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7893: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7894: p_default IN VARCHAR2 := FND_API.G_FALSE,
7895: p_module_type IN VARCHAR2 := Null,
7896: x_return_status OUT NOCOPY VARCHAR2,
7897: x_msg_count OUT NOCOPY NUMBER,
7898: x_msg_data OUT NOCOPY VARCHAR2,
7944: -- Standard start of API savepoint
7945: SAVEPOINT INSERT_TURNOVER_NOTES;
7946:
7947: -- Standard call to check for call compatibility
7948: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
7949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7950: END IF;
7951: -- Initialize message list if p_init_msg_list is set to TRUE
7952: IF FND_API.To_Boolean( p_init_msg_list) THEN
7945: SAVEPOINT INSERT_TURNOVER_NOTES;
7946:
7947: -- Standard call to check for call compatibility
7948: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
7949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7950: END IF;
7951: -- Initialize message list if p_init_msg_list is set to TRUE
7952: IF FND_API.To_Boolean( p_init_msg_list) THEN
7953: FND_MSG_PUB.Initialize;
7948: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
7949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7950: END IF;
7951: -- Initialize message list if p_init_msg_list is set to TRUE
7952: IF FND_API.To_Boolean( p_init_msg_list) THEN
7953: FND_MSG_PUB.Initialize;
7954: END IF;
7955:
7956: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
7967: 'p_commit : ' || p_commit
7968: );
7969: END IF;
7970: -- Initialize API return status to success
7971: x_return_status := FND_API.G_RET_STS_SUCCESS;
7972: -- Insert notes
7973: FOR i IN p_trunover_notes_tbl.FIRST..p_trunover_notes_tbl.LAST LOOP
7974: -- validate source object code
7975: IF(p_trunover_notes_tbl(i).source_object_code <> 'AHL_WO_TURNOVER_NOTES')THEN
8045: IF(FND_MSG_PUB.count_msg = 0)THEN
8046: JTF_NOTES_PUB.Create_note
8047: (
8048: p_api_version => 1.0,
8049: p_init_msg_list => FND_API.G_FALSE,
8050: p_commit => FND_API.G_FALSE,
8051: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8052: x_return_status => x_return_status,
8053: x_msg_count => x_msg_count,
8046: JTF_NOTES_PUB.Create_note
8047: (
8048: p_api_version => 1.0,
8049: p_init_msg_list => FND_API.G_FALSE,
8050: p_commit => FND_API.G_FALSE,
8051: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8052: x_return_status => x_return_status,
8053: x_msg_count => x_msg_count,
8054: x_msg_data => x_msg_data,
8047: (
8048: p_api_version => 1.0,
8049: p_init_msg_list => FND_API.G_FALSE,
8050: p_commit => FND_API.G_FALSE,
8051: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8052: x_return_status => x_return_status,
8053: x_msg_count => x_msg_count,
8054: x_msg_data => x_msg_data,
8055: p_source_object_id => p_trunover_notes_tbl(i).source_object_id,
8063: END LOOP;
8064: -- Check Error Message stack.
8065: x_msg_count := FND_MSG_PUB.count_msg;
8066: IF x_msg_count > 0 THEN
8067: RAISE FND_API.G_EXC_ERROR;
8068: END IF;
8069:
8070: -- Standard check of p_commit
8071: IF FND_API.TO_BOOLEAN(p_commit) THEN
8067: RAISE FND_API.G_EXC_ERROR;
8068: END IF;
8069:
8070: -- Standard check of p_commit
8071: IF FND_API.TO_BOOLEAN(p_commit) THEN
8072: COMMIT WORK;
8073: END IF;
8074: -- Standard call to get message count and if count is 1, get message info
8075: FND_MSG_PUB.Count_And_Get
8074: -- Standard call to get message count and if count is 1, get message info
8075: FND_MSG_PUB.Count_And_Get
8076: ( p_count => x_msg_count,
8077: p_data => x_msg_data,
8078: p_encoded => fnd_api.g_false
8079: );
8080: IF(x_msg_count > 0 )THEN
8081: RAISE FND_API.G_EXC_ERROR;
8082: END IF;
8077: p_data => x_msg_data,
8078: p_encoded => fnd_api.g_false
8079: );
8080: IF(x_msg_count > 0 )THEN
8081: RAISE FND_API.G_EXC_ERROR;
8082: END IF;
8083:
8084: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
8085: fnd_log.string
8090: );
8091: END IF;
8092:
8093: EXCEPTION
8094: WHEN FND_API.G_EXC_ERROR THEN
8095: Rollback to INSERT_TURNOVER_NOTES;
8096: x_return_status := FND_API.G_RET_STS_ERROR;
8097: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8098: p_data => x_msg_data,
8092:
8093: EXCEPTION
8094: WHEN FND_API.G_EXC_ERROR THEN
8095: Rollback to INSERT_TURNOVER_NOTES;
8096: x_return_status := FND_API.G_RET_STS_ERROR;
8097: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8098: p_data => x_msg_data,
8099: p_encoded => fnd_api.g_false);
8100:
8095: Rollback to INSERT_TURNOVER_NOTES;
8096: x_return_status := FND_API.G_RET_STS_ERROR;
8097: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8098: p_data => x_msg_data,
8099: p_encoded => fnd_api.g_false);
8100:
8101:
8102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8103: Rollback to INSERT_TURNOVER_NOTES;
8098: p_data => x_msg_data,
8099: p_encoded => fnd_api.g_false);
8100:
8101:
8102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8103: Rollback to INSERT_TURNOVER_NOTES;
8104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8105: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8106: p_data => x_msg_data,
8100:
8101:
8102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8103: Rollback to INSERT_TURNOVER_NOTES;
8104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8105: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8106: p_data => x_msg_data,
8107: p_encoded => fnd_api.g_false);
8108:
8103: Rollback to INSERT_TURNOVER_NOTES;
8104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8105: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8106: p_data => x_msg_data,
8107: p_encoded => fnd_api.g_false);
8108:
8109:
8110: WHEN OTHERS THEN
8111: Rollback to INSERT_TURNOVER_NOTES;
8108:
8109:
8110: WHEN OTHERS THEN
8111: Rollback to INSERT_TURNOVER_NOTES;
8112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8113: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8114: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8115: p_procedure_name => l_api_name,
8116: p_error_text => SUBSTR(SQLERRM,1,500));
8116: p_error_text => SUBSTR(SQLERRM,1,500));
8117: END IF;
8118: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
8119: p_data => x_msg_data,
8120: p_encoded => fnd_api.g_false);
8121: END INSERT_TURNOVER_NOTES;
8122:
8123: FUNCTION get_date_and_time(p_date IN DATE,
8124: p_date_hh24 IN VARCHAR2,
8138: l_minutes := TO_CHAR(p_date, 'mi');
8139: l_date := p_date;
8140:
8141: IF ( p_date_hh24 IS NOT NULL AND
8142: p_date_hh24 <> FND_API.G_MISS_NUM ) THEN
8143: l_hour := p_date_hh24;
8144: END IF;
8145:
8146: IF ( p_date_mi IS NOT NULL AND
8143: l_hour := p_date_hh24;
8144: END IF;
8145:
8146: IF ( p_date_mi IS NOT NULL AND
8147: p_date_mi <> FND_API.G_MISS_NUM ) THEN
8148: l_minutes := p_date_mi;
8149: END IF;
8150:
8151: IF(p_date_ss IS NOT NULL AND
8148: l_minutes := p_date_mi;
8149: END IF;
8150:
8151: IF(p_date_ss IS NOT NULL AND
8152: p_date_ss <> FND_API.G_MISS_NUM) THEN
8153: l_sec := p_date_ss;
8154: END IF;
8155:
8156: IF ( l_hour <> '00' OR l_minutes <> '00' OR l_sec <> '00') THEN