[Home] [Help]
192: fnd_msg_pub.initialize;
193: END IF;
194:
195: IF (l_debug = 'Y') THEN
196: gmd_debug.put_line('In insert_operation_resources public.');
197: END IF;
198:
199: /* Operation Line ID must be passed, otherwise give error, also check operation line id exists */
200: IF p_oprn_line_id IS NULL THEN
198:
199: /* Operation Line ID must be passed, otherwise give error, also check operation line id exists */
200: IF p_oprn_line_id IS NULL THEN
201: IF (l_debug = 'Y') THEN
202: gmd_debug.put_line('operation line ID is required');
203: END IF;
204: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
205: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_LINE_ID');
206: FND_MSG_PUB.ADD;
238:
239: /* Resource must be passed, otherwise give error */
240: IF l_oprn_rsrc_tbl(i).resources IS NULL THEN
241: IF (l_debug = 'Y') THEN
242: gmd_debug.put_line('operation resource required');
243: END IF;
244: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
245: FND_MESSAGE.SET_TOKEN ('MISSING', 'RESOURCES');
246: FND_MSG_PUB.ADD;
261:
262: /* Process_Qty must be passed, otherwise give error */
263: IF l_oprn_rsrc_tbl(i).process_qty IS NULL THEN
264: IF (l_debug = 'Y') THEN
265: gmd_debug.put_line('resource process qty required');
266: END IF;
267: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
268: FND_MESSAGE.SET_TOKEN ('MISSING', 'PROCESS_QTY');
269: FND_MSG_PUB.ADD;
276:
277: /* resource usagemust be passed, otherwise give error */
278: IF l_oprn_rsrc_tbl(i).resource_usage IS NULL THEN
279: IF (l_debug = 'Y') THEN
280: gmd_debug.put_line('resource usage required');
281: END IF;
282:
283: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
284: FND_MESSAGE.SET_TOKEN ('MISSING', 'RESOURCE_USAGE');
295:
296: /* If Usage is not passed, derive the default from resource */
297: IF l_oprn_rsrc_tbl(i).resource_usage_uom IS NULL THEN
298: IF (l_debug = 'Y') THEN
299: gmd_debug.put_line('resource usage uom required');
300: END IF;
301: OPEN Cur_get_resource_usage_uom(l_oprn_rsrc_tbl(i).resources);
302: FETCH Cur_get_resource_usage_uom INTO l_oprn_rsrc_tbl(i).resource_usage_uom;
303: IF Cur_get_resource_usage_uom%NOTFOUND THEN
367:
368: /* Resource Count must be passed, otherwise give error */
369: IF l_oprn_rsrc_tbl(i).resource_count IS NULL THEN
370: IF (l_debug = 'Y') THEN
371: gmd_debug.put_line('Resource Count required');
372: END IF;
373: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
374: FND_MESSAGE.SET_TOKEN ('MISSING', 'RESOURCE_COUNT');
375: FND_MSG_PUB.ADD;
381:
382: /* Offset Interval must be passed, otherwise give error */
383: IF l_oprn_rsrc_tbl(i).offset_interval IS NULL THEN
384: IF (l_debug = 'Y') THEN
385: gmd_debug.put_line('Offset interval required');
386: END IF;
387: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
388: FND_MESSAGE.SET_TOKEN ('MISSING', 'OFFSET_INTERVAL');
389: FND_MSG_PUB.ADD;
392:
393: /* Scale Type must be passed, otherwise give error */
394: IF l_oprn_rsrc_tbl(i).scale_type IS NULL THEN
395: IF (l_debug = 'Y') THEN
396: gmd_debug.put_line('Scale Type is null assigning default 1');
397: END IF;
398: l_oprn_rsrc_tbl(i).scale_type := 1;
399: ELSIF l_oprn_rsrc_tbl(i).scale_type NOT IN (0, 1, 2) THEN
400: gmd_api_grp.log_message ('FM_SCALETYPERR');
410: END LOOP;
411:
412: IF x_return_status = 'S' THEN
413: IF (l_debug = 'Y') THEN
414: gmd_debug.put_line('before PVT routine called');
415: END IF;
416:
417: GMD_OPERATION_RESOURCES_PVT.insert_operation_resources(p_oprn_line_id => p_oprn_line_id,
418: p_oprn_rsrc_tbl => l_oprn_rsrc_tbl,
451: FND_MSG_PUB.count_and_get(p_count => x_message_count
452: ,p_data => x_message_list);
453:
454: IF (l_debug = 'Y') THEN
455: gmd_debug.put_line('End of insert_operation_resource PUB');
456: END IF;
457: EXCEPTION
458: WHEN setup_failure OR invalid_version OR inv_resource_ind THEN
459: ROLLBACK TO SAVEPOINT insert_oprn_rsrc;
533: RAISE setup_failure;
534: END IF;
535:
536: IF (l_debug = 'Y') THEN
537: gmd_debug.put_line('Start of update_operation_activity PUB');
538: END IF;
539:
540: /* Oprn_line_id must be passed, otherwise give error */
541: IF p_oprn_line_id IS NULL THEN
693: END IF;
694:
695: IF x_return_status = 'S' THEN
696: IF (l_debug = 'Y') THEN
697: gmd_debug.put_line('before PVT routine called');
698: END IF;
699:
700: GMD_OPERATION_RESOURCES_PVT.update_operation_resources(p_oprn_line_id => p_oprn_line_id
701: , p_resources => p_resources
714: FND_MSG_PUB.count_and_get(p_count => x_message_count
715: ,p_data => x_message_list);
716:
717: IF (l_debug = 'Y') THEN
718: gmd_debug.put_line('END of update_operation_resource PUB');
719: END IF;
720:
721: EXCEPTION
722: WHEN invalid_version OR setup_failure THEN
809: RAISE setup_failure;
810: END IF;
811:
812: IF (l_debug = 'Y') THEN
813: gmd_debug.put_line('START of delete_operation_resources PUB');
814: END IF;
815:
816: /* Operation Line ID must be passed, otherwise give error */
817: IF (p_oprn_line_id IS NULL OR p_resources IS NULL) THEN
860:
861: IF x_return_status = FND_API.g_ret_sts_success THEN
862: /* Call PVT delete_operation_resources */
863: IF (l_debug = 'Y') THEN
864: gmd_debug.put_line('before call to delete_operation_resource PVT');
865: END IF;
866: gmd_operation_resources_pvt.delete_operation_resource(p_oprn_line_id => p_oprn_line_id
867: ,p_resources => p_resources
868: , x_message_count => x_message_count
890: FND_MSG_PUB.count_and_get(p_count => x_message_count
891: ,p_data => x_message_list);
892:
893: IF (l_debug = 'Y') THEN
894: gmd_debug.put_line('END of delete_operation_resources PUB');
895: END IF;
896:
897: EXCEPTION
898: WHEN invalid_version OR setup_failure OR inv_resource_ind THEN