[Home] [Help]
71: U - Unexpected error
72: =============================================================================================*/
73: PROCEDURE fetch_all_resources (
74: p_resource_rec IN gme_resource_txns_gtmp%ROWTYPE
75: ,x_resource_tbl OUT NOCOPY gme_common_pvt.resource_transactions_tab
76: ,x_return_status OUT NOCOPY VARCHAR2
77: ,p_active_trans IN NUMBER DEFAULT 0 -- B3425554
78: )
79: IS
416: l_debug VARCHAR2 (2000);
417: l_prev_rec cur_get_prev_rec%ROWTYPE;
418: l_resource_rec gme_resource_txns_gtmp%ROWTYPE;
419: l_tran_rec gme_resource_txns%ROWTYPE;
420: l_resource_tbl gme_common_pvt.resource_transactions_tab;
421: l_trans_date DATE;
422: l_hold_ib_date DATE;
423: l_org_id NUMBER;
424: l_period_id INTEGER;
488: l_trans_date := l_tran_rec.trans_date;
489:
490: -- 8751983 - comment out flexible call as it doesn't seem to work properly.
491: /*
492: IF NOT gme_common_pvt.close_period_check_flexible
493: (p_org_id => l_org_id
494: ,p_trans_date => l_trans_date
495: ,x_trans_date => l_tran_rec.trans_date
496: ,x_period_id => l_period_id) THEN
498: END IF;
499: */
500:
501: -- Bug 8751983/8922059 - Let's default to timestamp if old transaction is in a closed period
502: IF NOT gme_common_pvt.check_close_period(p_org_id => l_org_id
503: ,p_trans_date => l_trans_date) THEN
504: -- If it falls in here it means that the transaction date was in a closed period.
505: -- So we must stamp the date to either sysdate or user entered IB date.
506:
505: -- So we must stamp the date to either sysdate or user entered IB date.
506:
507: -- Bug 8751983 - Let's do some special date processing if this transaction is due to negative IB.
508: -- If g_ib_timestamp_set = 2 it means that this new trans is created during negative IB.
509: IF (gme_common_pvt.g_ib_timestamp_set = 2 AND gme_common_pvt.g_ib_timestamp_date <> l_trans_date) THEN
510: l_tran_rec.trans_date := gme_common_pvt.g_ib_timestamp_date;
511: ELSE
512: -- Let's default to timestamp and overwrite if the user entered a different date.
513: l_tran_rec.trans_date := gme_common_pvt.g_timestamp;
506:
507: -- Bug 8751983 - Let's do some special date processing if this transaction is due to negative IB.
508: -- If g_ib_timestamp_set = 2 it means that this new trans is created during negative IB.
509: IF (gme_common_pvt.g_ib_timestamp_set = 2 AND gme_common_pvt.g_ib_timestamp_date <> l_trans_date) THEN
510: l_tran_rec.trans_date := gme_common_pvt.g_ib_timestamp_date;
511: ELSE
512: -- Let's default to timestamp and overwrite if the user entered a different date.
513: l_tran_rec.trans_date := gme_common_pvt.g_timestamp;
514: END IF;
509: IF (gme_common_pvt.g_ib_timestamp_set = 2 AND gme_common_pvt.g_ib_timestamp_date <> l_trans_date) THEN
510: l_tran_rec.trans_date := gme_common_pvt.g_ib_timestamp_date;
511: ELSE
512: -- Let's default to timestamp and overwrite if the user entered a different date.
513: l_tran_rec.trans_date := gme_common_pvt.g_timestamp;
514: END IF;
515: END IF;
516:
517: --Rishi Varma B3856541 02-09-2004 end
571:
572: l_trans_date := l_prev_rec.trans_date;
573:
574: -- Bug 16327528 - Comment out this check as it does not seem to work.
575: -- IF NOT gme_common_pvt.close_period_check_flexible
576: -- (p_org_id => l_org_id
577: -- ,p_trans_date => l_trans_date
578: -- ,x_trans_date => l_prev_rec.trans_date
579: -- ,x_period_id => l_period_id) THEN
581: -- END IF;
582:
583: -- Bug 16327528 - Check for closed period.
584:
585: IF NOT gme_common_pvt.check_close_period(p_org_id => l_org_id
586: ,p_trans_date => l_trans_date) THEN
587: -- If it falls in here it means that the transaction date was in a closed period.
588: -- So we must stamp the date to either sysdate or user entered IB date.
589: -- Let's default to timestamp and overwrite if the user entered a different date.
586: ,p_trans_date => l_trans_date) THEN
587: -- If it falls in here it means that the transaction date was in a closed period.
588: -- So we must stamp the date to either sysdate or user entered IB date.
589: -- Let's default to timestamp and overwrite if the user entered a different date.
590: l_prev_rec.trans_date := gme_common_pvt.g_timestamp;
591: END IF;
592:
593:
594: IF NOT gme_resource_txns_dbl.insert_row (l_prev_rec
640: /* Post the actual transaction */
641: l_tran_rec.posted_ind := 0;
642: l_trans_date := l_tran_rec.trans_date;
643:
644: IF NOT gme_common_pvt.close_period_check_flexible
645: (p_org_id => l_org_id
646: ,p_trans_date => l_trans_date
647: ,x_trans_date => l_tran_rec.trans_date
648: ,x_period_id => l_period_id) THEN
711: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
712: gme_debug.put_line('IN DEL dates');
713: gme_debug.put_line('l_tran_rec.trans_date is '||l_tran_rec.trans_date);
714: gme_debug.put_line('ORIGINAL l_in_tran_rec.trans_date is '||l_in_tran_rec.trans_date);
715: gme_debug.put_line('gme_common_pvt.g_ib_timestamp_set is '||gme_common_pvt.g_ib_timestamp_set);
716: END IF;
717:
718: -- Note: l_in_tran_rec.trans_date is the original trans record prior to any change from DB
719: -- l_tran_rec.trans_date is the current data changed by the user on form or IB
721: -- Bug 8751983 - If the global is set it implies that we are hitting this code due
722: -- to negative IB and also that the user passed in a date during IB which is stamped
723: -- on the 'DEL' action transactions.
724: -- Now we will use that date only if the original resource trans date is in a closed period.
725: IF gme_common_pvt.g_ib_timestamp_set > 0 THEN
726: l_hold_ib_date := l_tran_rec.trans_date;
727: l_tran_rec.trans_date := l_in_tran_rec.trans_date;
728: END IF;
729:
733:
734: -- 8751983 - comment out flexible call as it doesn't seem to work properly.
735: /*
736: -- Check to make sure date is not in a closed period otherwise stamp with sysdate.
737: IF NOT gme_common_pvt.close_period_check_flexible
738: (p_org_id => l_org_id
739: ,p_trans_date => l_trans_date
740: ,x_trans_date => l_tran_rec.trans_date
741: ,x_period_id => l_period_id) THEN
743: RAISE fnd_api.g_exc_error;
744: END IF;
745: */
746: -- Bug 8751983 - Let's default to timestamp if old transaction is in a closed period
747: IF NOT gme_common_pvt.check_close_period(p_org_id => l_org_id
748: ,p_trans_date => l_trans_date) THEN
749: -- Use IB date only if the old transaction was in a closed
750: -- period (previous check) and if the user actually entered a date during IB.
751: -- If the dates are the same it means user did not enter a date during IB.
748: ,p_trans_date => l_trans_date) THEN
749: -- Use IB date only if the old transaction was in a closed
750: -- period (previous check) and if the user actually entered a date during IB.
751: -- If the dates are the same it means user did not enter a date during IB.
752: IF (gme_common_pvt.g_ib_timestamp_set > 0 AND l_hold_ib_date <> l_trans_date) THEN
753: l_tran_rec.trans_date := l_hold_ib_date;
754: ELSE
755: -- Let's default to timestamp and overwrite if the user entered a different date.
756: l_tran_rec.trans_date := gme_common_pvt.g_timestamp;
752: IF (gme_common_pvt.g_ib_timestamp_set > 0 AND l_hold_ib_date <> l_trans_date) THEN
753: l_tran_rec.trans_date := l_hold_ib_date;
754: ELSE
755: -- Let's default to timestamp and overwrite if the user entered a different date.
756: l_tran_rec.trans_date := gme_common_pvt.g_timestamp;
757: END IF;
758: END IF;
759:
760: IF NOT gme_resource_txns_dbl.insert_row (l_tran_rec
810: END IF;
811: END LOOP;
812:
813: -- Bug 8751983 - Reset the global variables.
814: gme_common_pvt.g_ib_timestamp_set := 0;
815: gme_common_pvt.g_ib_timestamp_date := NULL;
816:
817: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
818: gme_debug.display_resource_gtmp (NULL, NULL, p_batch_id);
811: END LOOP;
812:
813: -- Bug 8751983 - Reset the global variables.
814: gme_common_pvt.g_ib_timestamp_set := 0;
815: gme_common_pvt.g_ib_timestamp_date := NULL;
816:
817: IF (NVL (g_debug, -1) = gme_debug.g_log_statement) THEN
818: gme_debug.display_resource_gtmp (NULL, NULL, p_batch_id);
819: END IF;
883: p_resource_rec.reason_code := p_tmp_rec.reason_code;
884: p_resource_rec.reason_id := p_tmp_rec.reason_id;
885: p_resource_rec.start_date := p_tmp_rec.start_date;
886: p_resource_rec.end_date := p_tmp_rec.end_date;
887: p_resource_rec.creation_date := gme_common_pvt.g_timestamp;
888: p_resource_rec.last_update_date := gme_common_pvt.g_timestamp;
889: p_resource_rec.created_by := gme_common_pvt.g_user_ident;
890: p_resource_rec.last_updated_by := gme_common_pvt.g_user_ident;
891: p_resource_rec.last_update_login := gme_common_pvt.g_login_id;
884: p_resource_rec.reason_id := p_tmp_rec.reason_id;
885: p_resource_rec.start_date := p_tmp_rec.start_date;
886: p_resource_rec.end_date := p_tmp_rec.end_date;
887: p_resource_rec.creation_date := gme_common_pvt.g_timestamp;
888: p_resource_rec.last_update_date := gme_common_pvt.g_timestamp;
889: p_resource_rec.created_by := gme_common_pvt.g_user_ident;
890: p_resource_rec.last_updated_by := gme_common_pvt.g_user_ident;
891: p_resource_rec.last_update_login := gme_common_pvt.g_login_id;
892: p_resource_rec.delete_mark := p_tmp_rec.delete_mark;
885: p_resource_rec.start_date := p_tmp_rec.start_date;
886: p_resource_rec.end_date := p_tmp_rec.end_date;
887: p_resource_rec.creation_date := gme_common_pvt.g_timestamp;
888: p_resource_rec.last_update_date := gme_common_pvt.g_timestamp;
889: p_resource_rec.created_by := gme_common_pvt.g_user_ident;
890: p_resource_rec.last_updated_by := gme_common_pvt.g_user_ident;
891: p_resource_rec.last_update_login := gme_common_pvt.g_login_id;
892: p_resource_rec.delete_mark := p_tmp_rec.delete_mark;
893: p_resource_rec.text_code := p_tmp_rec.text_code;
886: p_resource_rec.end_date := p_tmp_rec.end_date;
887: p_resource_rec.creation_date := gme_common_pvt.g_timestamp;
888: p_resource_rec.last_update_date := gme_common_pvt.g_timestamp;
889: p_resource_rec.created_by := gme_common_pvt.g_user_ident;
890: p_resource_rec.last_updated_by := gme_common_pvt.g_user_ident;
891: p_resource_rec.last_update_login := gme_common_pvt.g_login_id;
892: p_resource_rec.delete_mark := p_tmp_rec.delete_mark;
893: p_resource_rec.text_code := p_tmp_rec.text_code;
894: p_resource_rec.sequence_dependent_ind
887: p_resource_rec.creation_date := gme_common_pvt.g_timestamp;
888: p_resource_rec.last_update_date := gme_common_pvt.g_timestamp;
889: p_resource_rec.created_by := gme_common_pvt.g_user_ident;
890: p_resource_rec.last_updated_by := gme_common_pvt.g_user_ident;
891: p_resource_rec.last_update_login := gme_common_pvt.g_login_id;
892: p_resource_rec.delete_mark := p_tmp_rec.delete_mark;
893: p_resource_rec.text_code := p_tmp_rec.text_code;
894: p_resource_rec.sequence_dependent_ind
895: := p_tmp_rec.sequence_dependent_ind;
975: =============================================================================================*/
976: PROCEDURE fetch_active_resources (
977: p_resource_rec IN gme_resource_txns_gtmp%ROWTYPE
978: ,p_calling_mode IN VARCHAR2 DEFAULT NULL --bug#5609683
979: ,x_resource_tbl OUT NOCOPY gme_common_pvt.resource_transactions_tab
980: ,x_return_status OUT NOCOPY VARCHAR2)
981: IS
982: TYPE query_ref IS REF CURSOR;
983:
1123: l_batch_step gme_batch_steps%ROWTYPE;
1124: l_step_activity gme_batch_step_activities%ROWTYPE;
1125: l_step_resources gme_batch_step_resources%ROWTYPE;
1126: l_resource_txns gme_resource_txns_gtmp%ROWTYPE;
1127: l_resource_tbl gme_common_pvt.resource_transactions_tab;
1128: l_return_status VARCHAR2 (1);
1129: l_rsrc_usage NUMBER;
1130: l_rsrc_count NUMBER;
1131: l_tot_usage NUMBER;
1287:
1288: /* Since this procedure is called from the forms
1289: and there is no public layer for this we can call
1290: set_timestamp here */
1291: gme_common_pvt.set_timestamp;
1292:
1293: IF p_action_code = 'INSERT' THEN
1294: -- Shikha Nagar - added check to prevent second instance of primary rsrc from getting inserted
1295: -- for an activity
1399: (p_batch_step_resources => x_step_resources_rec) ) THEN
1400: RAISE fnd_api.g_exc_error;
1401: END IF;
1402:
1403: x_step_resources_rec.last_updated_by := gme_common_pvt.g_user_ident;
1404: x_step_resources_rec.last_update_date := gme_common_pvt.g_timestamp;
1405: END IF;
1406:
1407: /*Bug#5231180 resource insertion and deletion might result in the max step capacity
1400: RAISE fnd_api.g_exc_error;
1401: END IF;
1402:
1403: x_step_resources_rec.last_updated_by := gme_common_pvt.g_user_ident;
1404: x_step_resources_rec.last_update_date := gme_common_pvt.g_timestamp;
1405: END IF;
1406:
1407: /*Bug#5231180 resource insertion and deletion might result in the max step capacity
1408: if the resource is capacity constrained then we need to recalculate charges
1407: /*Bug#5231180 resource insertion and deletion might result in the max step capacity
1408: if the resource is capacity constrained then we need to recalculate charges
1409: if the resource is not capacity constrained then there is no need to recalculate charges */
1410: /*Bug#6607524 Changed the hard coded 1381 to the batch header's organization id*/
1411: gme_common_pvt.g_setup_done :=
1412: gme_common_pvt.setup (p_org_id => l_batch_header.ORGANIZATION_ID --1381
1413: ,p_org_code => NULL);
1414:
1415: IF NOT gme_common_pvt.g_setup_done THEN
1408: if the resource is capacity constrained then we need to recalculate charges
1409: if the resource is not capacity constrained then there is no need to recalculate charges */
1410: /*Bug#6607524 Changed the hard coded 1381 to the batch header's organization id*/
1411: gme_common_pvt.g_setup_done :=
1412: gme_common_pvt.setup (p_org_id => l_batch_header.ORGANIZATION_ID --1381
1413: ,p_org_code => NULL);
1414:
1415: IF NOT gme_common_pvt.g_setup_done THEN
1416: RAISE fnd_api.g_exc_error;
1411: gme_common_pvt.g_setup_done :=
1412: gme_common_pvt.setup (p_org_id => l_batch_header.ORGANIZATION_ID --1381
1413: ,p_org_code => NULL);
1414:
1415: IF NOT gme_common_pvt.g_setup_done THEN
1416: RAISE fnd_api.g_exc_error;
1417: END IF;
1418:
1419: OPEN cur_get_rsrc(x_step_resources_rec.resources);
1425:
1426: IF l_exists = 1 THEN /*capacity constrained resource */
1427: IF l_rsrc_rec.capacity_um <> l_batch_step.step_qty_um THEN
1428: l_temp_qty := inv_convert.inv_um_convert(item_id => 0
1429: ,PRECISION => gme_common_pvt.g_precision
1430: ,from_quantity => l_rsrc_rec.max_capacity
1431: ,from_unit => l_rsrc_rec.capacity_um
1432: ,to_unit => l_batch_step.step_qty_um
1433: ,from_name => NULL
1529: x_return_status := fnd_api.g_ret_sts_success;
1530:
1531: IF ( p_batch_step_rec.step_status = 1
1532: AND p_step_resources_rec.plan_start_date IS NULL) THEN
1533: gme_common_pvt.log_message ('GME_START_DATE_REQD');
1534: RAISE fnd_api.g_exc_error;
1535: END IF;
1536:
1537: IF p_batch_step_rec.step_status = 1
1535: END IF;
1536:
1537: IF p_batch_step_rec.step_status = 1
1538: AND p_step_resources_rec.plan_rsrc_usage IS NULL THEN
1539: gme_common_pvt.log_message ('GME_PLAN_RSRC_REQD');
1540: RAISE fnd_api.g_exc_error;
1541: END IF;
1542:
1543: IF ( p_batch_step_rec.step_status = 1
1541: END IF;
1542:
1543: IF ( p_batch_step_rec.step_status = 1
1544: AND p_step_resources_rec.plan_rsrc_qty IS NULL) THEN
1545: gme_common_pvt.log_message ('GME_RSRC_QTY_REQD');
1546: RAISE fnd_api.g_exc_error;
1547: END IF;
1548:
1549: IF ( p_batch_step_rec.step_status = 1
1547: END IF;
1548:
1549: IF ( p_batch_step_rec.step_status = 1
1550: AND p_step_resources_rec.plan_rsrc_count IS NULL) THEN
1551: gme_common_pvt.log_message ('GME_RSRC_COUNT_REQD');
1552: RAISE fnd_api.g_exc_error;
1553: END IF;
1554:
1555: IF ( p_batch_step_rec.step_status > 2
1553: END IF;
1554:
1555: IF ( p_batch_step_rec.step_status > 2
1556: AND p_step_resources_rec.actual_rsrc_qty IS NULL) THEN
1557: gme_common_pvt.log_message ('GME_RSRC_QTY_REQD');
1558: RAISE fnd_api.g_exc_error;
1559: END IF;
1560:
1561: IF ( p_batch_step_rec.step_status > 2
1559: END IF;
1560:
1561: IF ( p_batch_step_rec.step_status > 2
1562: AND p_step_resources_rec.actual_rsrc_count IS NULL) THEN
1563: gme_common_pvt.log_message ('GME_RSRC_COUNT_REQD');
1564: RAISE fnd_api.g_exc_error;
1565: END IF;
1566:
1567: /* Let us check for the validitiy of the plan and actual dates */
1568: IF p_step_resources_rec.plan_start_date IS NOT NULL
1569: AND p_step_resources_rec.plan_cmplt_date IS NOT NULL THEN
1570: IF p_step_resources_rec.plan_start_date >
1571: p_step_resources_rec.plan_cmplt_date THEN
1572: gme_common_pvt.log_message ('PM_BADSTARTDATE');
1573: RAISE fnd_api.g_exc_error;
1574: END IF;
1575: END IF;
1576:
1577: IF p_step_resources_rec.actual_start_date IS NOT NULL
1578: AND p_step_resources_rec.actual_cmplt_date IS NOT NULL THEN
1579: IF p_step_resources_rec.actual_start_date >
1580: p_step_resources_rec.actual_cmplt_date THEN
1581: gme_common_pvt.log_message ('PM_BADSTARTDATE');
1582: RAISE fnd_api.g_exc_error;
1583: END IF;
1584: END IF;
1585:
1587: AND ( p_step_resources_rec.plan_start_date <
1588: p_step_activity_rec.plan_start_date
1589: OR p_step_resources_rec.plan_start_date >
1590: p_step_activity_rec.plan_cmplt_date) THEN
1591: gme_common_pvt.log_message
1592: ('GME_RSRC_PLAN_DATE'
1593: ,'START_DATE'
1594: ,fnd_date.date_to_displaydt (p_step_activity_rec.plan_start_date)
1595: ,'END_DATE'
1599:
1600: IF p_step_resources_rec.plan_cmplt_date IS NOT NULL
1601: AND p_step_resources_rec.plan_cmplt_date >
1602: p_step_activity_rec.plan_cmplt_date THEN
1603: gme_common_pvt.log_message
1604: ('GME_RSRC_PLAN_DATE'
1605: ,'START_DATE'
1606: ,fnd_date.date_to_displaydt (p_step_activity_rec.plan_start_date)
1607: ,'END_DATE'
1613: AND ( p_step_resources_rec.actual_start_date <
1614: p_step_activity_rec.actual_start_date
1615: OR p_step_resources_rec.actual_start_date >
1616: p_step_activity_rec.actual_cmplt_date) THEN
1617: gme_common_pvt.log_message
1618: ('GME_RSRC_ACTUAL_DATE'
1619: ,'START_DATE'
1620: ,fnd_date.date_to_displaydt (p_step_activity_rec.actual_start_date)
1621: ,'END_DATE'
1627:
1628: IF p_step_resources_rec.actual_cmplt_date IS NOT NULL
1629: AND p_step_resources_rec.actual_cmplt_date >
1630: p_step_activity_rec.actual_cmplt_date THEN
1631: gme_common_pvt.log_message
1632: ('GME_RSRC_ACTUAL_DATE'
1633: ,'START_DATE'
1634: ,fnd_date.date_to_displaydt (p_step_activity_rec.actual_start_date)
1635: ,'END_DATE'
2191: /* Initially let us assign the return status to success */
2192: x_return_status := fnd_api.g_ret_sts_success;
2193:
2194: l_batch_step_rsrc_rec_in.batchstep_resource_id := p_batchstep_rsrc_id;
2195: IF NOT gme_common_pvt.get_batchstep_rsrc (
2196: p_batchstep_rsrc_rec => l_batch_step_rsrc_rec_in
2197: ,p_org_code => p_org_code
2198: ,p_batch_no => p_batch_no
2199: ,p_batchstep_no => p_batchstep_no
2211: FETCH cur_get_batch_details
2212: INTO l_batch_id, l_resource;
2213:
2214: IF cur_get_batch_details%NOTFOUND THEN
2215: gme_common_pvt.log_message ('GME_RSRCID_NOT_FOUND'
2216: ,'BATCHSTEP_RSRC_ID'
2217: ,l_line_id);
2218: RAISE rsrcid_not_found;
2219: END IF;
2231: OR p_batch_no IS NULL
2232: OR p_batchstep_no IS NULL
2233: OR p_activity IS NULL
2234: OR p_resource IS NULL) THEN
2235: gme_common_pvt.log_message ('INPUT_PARMS_MISS'
2236: ,'PROC'
2237: , l_api_name || '.' || g_pkg_name);
2238: RAISE fnd_api.g_exc_error;
2239: ELSE
2243: FETCH cur_get_batch_id
2244: INTO l_batch_id;
2245:
2246: IF cur_get_batch_id%NOTFOUND THEN
2247: gme_common_pvt.log_message ('GME_BATCH_NOT_FOUND');
2248: RAISE batch_not_found;
2249: END IF;
2250:
2251: CLOSE cur_get_batch_id;
2256: FETCH cur_get_batchstep_id
2257: INTO l_batchstep_id;
2258:
2259: IF cur_get_batchstep_id%NOTFOUND THEN
2260: gme_common_pvt.log_message ('GME_BATCH_STEP_NOT_FOUND'
2261: ,'STEP_ID'
2262: ,p_batchstep_no);
2263: RAISE batchstep_not_found;
2264: END IF;
2271: FETCH cur_get_activity_id
2272: INTO l_activity_id;
2273:
2274: IF cur_get_activity_id%NOTFOUND THEN
2275: gme_common_pvt.log_message ('GME_STEP_ACTIVITY_NOT_FOUND'
2276: ,'ACTIVITY'
2277: ,p_activity
2278: ,'STEP_NO'
2279: ,p_batchstep_no);
2288: FETCH cur_fetch_resource_dtl
2289: INTO l_line_id, l_resource;
2290:
2291: IF cur_fetch_resource_dtl%NOTFOUND THEN
2292: gme_common_pvt.log_message ('GME_RSRC_NOT_FOUND'
2293: ,'RESOURCE'
2294: ,p_resource
2295: ,'ACTIVITY'
2296: ,p_activity);
2306: /* V. Ajay Kumar BUG#3041697 Removed the check for reason code */
2307: IF ( (p_trans_date IS NULL AND p_called_from <> 5)
2308: OR ( (p_start_date IS NULL) AND (p_batchstep_rsrc_id <> -1) )
2309: OR ( (p_end_date IS NULL) AND (p_usage <> 0) ) ) THEN
2310: gme_common_pvt.log_message ('INPUT_PARMS_MISS'
2311: ,'PROC'
2312: , l_api_name || '.' || g_pkg_name);
2313: RAISE fnd_api.g_exc_error;
2314: END IF;
2321: END IF;
2322:
2323: /* We cannot insert allocations for an FPO */
2324: IF l_batch_header.batch_type = 10 THEN
2325: gme_common_pvt.log_message ('GME_RTXN_FOR_FPO_NT_ALWD');
2326: RAISE rtxn_for_fpo_not_allowed;
2327: END IF;
2328:
2329: /* We cannot insert txns if the batch does not support txns*/
2327: END IF;
2328:
2329: /* We cannot insert txns if the batch does not support txns*/
2330: IF l_batch_header.update_inventory_ind = 'N' THEN
2331: gme_common_pvt.log_message ('GME_RTXN_FOR_UPDINV_NT_ALWD');
2332: RAISE rtxn_for_updinv_not_allowed;
2333: END IF;
2334:
2335: IF p_usage IS NOT NULL THEN
2333: END IF;
2334:
2335: IF p_usage IS NOT NULL THEN
2336: IF p_usage < 0 THEN
2337: gme_common_pvt.log_message ('GME_NEG_USAGE_NT_ALWD');
2338: RAISE neg_usage_not_allowed;
2339: END IF;
2340: END IF;
2341:
2346:
2347: CLOSE cur_get_step_status;
2348:
2349: IF l_step_status NOT IN (2, 3) THEN
2350: gme_common_pvt.log_message ('PC_STEP_STATUS_ERR');
2351: RAISE invalid_step_status;
2352: END IF;
2353:
2354: x_step_status := l_step_status;
2354: x_step_status := l_step_status;
2355:
2356: IF (l_batch_header.automatic_step_calculation = 1) THEN
2357: IF p_called_from = 1 THEN
2358: gme_common_pvt.log_message ('GME_UPD_RSRC_NT_WRK_ASQCBTCH');
2359: RAISE asqc_update_rsrc_api_error;
2360: END IF;
2361:
2362: IF (l_step_status = 2) THEN
2359: RAISE asqc_update_rsrc_api_error;
2360: END IF;
2361:
2362: IF (l_step_status = 2) THEN
2363: gme_common_pvt.log_message ('GME_INV_STEP_STATUS_ASQC');
2364: RAISE step_status_asqc_error;
2365: END IF;
2366:
2367: -- Shikha Nagar B2498487 Added code to prevent ending txn
2368: -- for automatically generated ASQC txn
2369: IF ( p_called_from = 5
2370: AND l_step_status = 3
2371: AND l_overrided_protected_ind = 'N') THEN
2372: gme_common_pvt.log_message ('GME_NT_END_ASQC_OVRD_TXN');
2373: RAISE asqc_ovrd_end_txn_api_error;
2374: END IF;
2375: END IF; /* If ASQC is on */
2376: /* Lets validate the reason code passed in */
2380: FETCH cur_validate_reason_id
2381: INTO x_reason_id;
2382: IF cur_validate_reason_id%NOTFOUND THEN
2383: CLOSE cur_validate_reason_id;
2384: gme_common_pvt.log_message(p_product_code => 'INV'
2385: ,p_message_code => 'INV_LOTC_REASONID_INVALID');
2386: RAISE FND_API.g_exc_error;
2387: END IF;
2388: CLOSE cur_validate_reason_id;
2391: FETCH cur_get_reason_id
2392: INTO x_reason_id;
2393: IF cur_get_reason_id%NOTFOUND THEN
2394: CLOSE cur_get_reason_id;
2395: gme_common_pvt.log_message('GME_INVALID_REASON_NAME');
2396: RAISE FND_API.g_exc_error;
2397: ELSE
2398: FETCH cur_get_reason_id
2399: INTO x_reason_id;
2400: IF cur_get_reason_id%NOTFOUND THEN
2401: CLOSE cur_get_reason_id;
2402: ELSE
2403: CLOSE cur_get_reason_id;
2404: gme_common_pvt.log_message('GME_REASON_NAME_NOT_UNIQUE');
2405: RAISE FND_API.g_exc_error;
2406: END IF;
2407: END IF;
2408: END IF; /* IF p_reason_name IS NOT NULL */
2414: FETCH cur_validate_instance_id
2415: INTO l_dummy;
2416:
2417: IF cur_validate_instance_id%NOTFOUND THEN
2418: gme_common_pvt.log_message ('GME_INVALID_INSTANCE_ID'
2419: ,'INSTANCE_ID'
2420: ,p_instance_id);
2421:
2422: CLOSE cur_validate_instance_id;
2433: FETCH cur_get_instance_id
2434: INTO l_instance_id;
2435:
2436: IF cur_get_instance_id%NOTFOUND THEN
2437: gme_common_pvt.log_message ('GME_INVALID_INSTANCE_NO'
2438: ,'INSTANCE_NO'
2439: ,p_instance_no);
2440:
2441: CLOSE cur_get_instance_id;
2456: CLOSE cur_get_rsrc_actual_dates;
2457:
2458: -- Validate trans_date
2459: IF p_trans_date < l_rsrc_actual_start_date THEN
2460: gme_common_pvt.log_message ('GME_BAD_TRANS_DATE');
2461: RAISE invalid_date;
2462: ELSIF p_trans_date > gme_common_pvt.g_timestamp THEN
2463: gme_common_pvt.log_message ('GME_BAD_TRANS_SYS_DATE');
2464: RAISE invalid_date;
2458: -- Validate trans_date
2459: IF p_trans_date < l_rsrc_actual_start_date THEN
2460: gme_common_pvt.log_message ('GME_BAD_TRANS_DATE');
2461: RAISE invalid_date;
2462: ELSIF p_trans_date > gme_common_pvt.g_timestamp THEN
2463: gme_common_pvt.log_message ('GME_BAD_TRANS_SYS_DATE');
2464: RAISE invalid_date;
2465: -- 13345631 - This validation should not occur once the batch is created.
2466: -- ELSIF l_rsrc_actual_cmplt_date IS NOT NULL THEN
2459: IF p_trans_date < l_rsrc_actual_start_date THEN
2460: gme_common_pvt.log_message ('GME_BAD_TRANS_DATE');
2461: RAISE invalid_date;
2462: ELSIF p_trans_date > gme_common_pvt.g_timestamp THEN
2463: gme_common_pvt.log_message ('GME_BAD_TRANS_SYS_DATE');
2464: RAISE invalid_date;
2465: -- 13345631 - This validation should not occur once the batch is created.
2466: -- ELSIF l_rsrc_actual_cmplt_date IS NOT NULL THEN
2467: -- IF p_trans_date > l_rsrc_actual_cmplt_date THEN
2464: RAISE invalid_date;
2465: -- 13345631 - This validation should not occur once the batch is created.
2466: -- ELSIF l_rsrc_actual_cmplt_date IS NOT NULL THEN
2467: -- IF p_trans_date > l_rsrc_actual_cmplt_date THEN
2468: -- gme_common_pvt.log_message ('GME_BAD_TRANS_CMPLT_DATE');
2469: -- RAISE invalid_date;
2470: -- END IF;
2471: ELSIF p_start_date IS NOT NULL THEN
2472: IF p_trans_date < p_start_date THEN
2469: -- RAISE invalid_date;
2470: -- END IF;
2471: ELSIF p_start_date IS NOT NULL THEN
2472: IF p_trans_date < p_start_date THEN
2473: gme_common_pvt.log_message ('GME_BAD_TRANS_STRT_DATE');
2474: RAISE invalid_date;
2475: END IF;
2476: ELSIF p_end_date IS NOT NULL THEN
2477: IF p_trans_date > p_end_date THEN
2474: RAISE invalid_date;
2475: END IF;
2476: ELSIF p_end_date IS NOT NULL THEN
2477: IF p_trans_date > p_end_date THEN
2478: gme_common_pvt.log_message ('GME_BAD_TRANS_END_DATE');
2479: RAISE invalid_date;
2480: END IF;
2481: END IF;
2482:
2491: p_retry_flag => 1,
2492: x_tran_rec => l_tran_rec)
2493: THEN
2494: --Bug3315440
2495: -- gme_common_pvt.log_message('GME_DATE_IN_CLSD_PRD','TRANS_DATE',p_trans_date);
2496: gme_common_pvt.log_message('GME_DATE_IN_CLSD_PRD','TRANS_DATE',fnd_date.date_to_displayDT(p_trans_date));
2497: RAISE close_period_err;
2498: END IF;
2499: */
2492: x_tran_rec => l_tran_rec)
2493: THEN
2494: --Bug3315440
2495: -- gme_common_pvt.log_message('GME_DATE_IN_CLSD_PRD','TRANS_DATE',p_trans_date);
2496: gme_common_pvt.log_message('GME_DATE_IN_CLSD_PRD','TRANS_DATE',fnd_date.date_to_displayDT(p_trans_date));
2497: RAISE close_period_err;
2498: END IF;
2499: */
2500:
2513: END IF;
2514: x_trans_date := l_tran_rec_out.trans_date;
2515: --Rishi Varma 02-09-2004 B3856541 end
2516: */
2517: IF NOT gme_common_pvt.close_period_check_flexible
2518: (p_org_id => l_batch_step_rsrc_rec.organization_id
2519: ,p_trans_date => p_trans_date
2520: ,x_trans_date => x_trans_date
2521: ,x_period_id => l_period_id) THEN
2525: /* end */
2526:
2527: -- Validate start_date
2528: IF p_start_date < l_rsrc_actual_start_date THEN
2529: gme_common_pvt.log_message ('GME_BAD_START_DATE');
2530: RAISE invalid_date;
2531: ELSIF p_start_date > gme_common_pvt.g_timestamp THEN
2532: gme_common_pvt.log_message ('GME_BAD_START_END_DATE');
2533: RAISE invalid_date;
2527: -- Validate start_date
2528: IF p_start_date < l_rsrc_actual_start_date THEN
2529: gme_common_pvt.log_message ('GME_BAD_START_DATE');
2530: RAISE invalid_date;
2531: ELSIF p_start_date > gme_common_pvt.g_timestamp THEN
2532: gme_common_pvt.log_message ('GME_BAD_START_END_DATE');
2533: RAISE invalid_date;
2534: -- 13345631 - This validation should not occur once the batch is created.
2535: -- ELSIF l_rsrc_actual_cmplt_date IS NOT NULL THEN
2528: IF p_start_date < l_rsrc_actual_start_date THEN
2529: gme_common_pvt.log_message ('GME_BAD_START_DATE');
2530: RAISE invalid_date;
2531: ELSIF p_start_date > gme_common_pvt.g_timestamp THEN
2532: gme_common_pvt.log_message ('GME_BAD_START_END_DATE');
2533: RAISE invalid_date;
2534: -- 13345631 - This validation should not occur once the batch is created.
2535: -- ELSIF l_rsrc_actual_cmplt_date IS NOT NULL THEN
2536: -- IF p_start_date > l_rsrc_actual_cmplt_date THEN
2533: RAISE invalid_date;
2534: -- 13345631 - This validation should not occur once the batch is created.
2535: -- ELSIF l_rsrc_actual_cmplt_date IS NOT NULL THEN
2536: -- IF p_start_date > l_rsrc_actual_cmplt_date THEN
2537: -- gme_common_pvt.log_message ('GME_BAD_START_CMPLT_DATE');
2538: -- RAISE invalid_date;
2539: -- END IF;
2540: END IF;
2541:
2540: END IF;
2541:
2542: -- Validate END DATE
2543: IF p_end_date < p_start_date THEN
2544: gme_common_pvt.log_message ('PM_BADENDDATE');
2545: RAISE invalid_date;
2546: ELSIF p_end_date > gme_common_pvt.g_timestamp THEN
2547: gme_common_pvt.log_message ('GME_BAD_END_DATE');
2548: RAISE invalid_date;
2542: -- Validate END DATE
2543: IF p_end_date < p_start_date THEN
2544: gme_common_pvt.log_message ('PM_BADENDDATE');
2545: RAISE invalid_date;
2546: ELSIF p_end_date > gme_common_pvt.g_timestamp THEN
2547: gme_common_pvt.log_message ('GME_BAD_END_DATE');
2548: RAISE invalid_date;
2549: -- 13345631 - This validation should not occur once the batch is created.
2550: -- ELSIF l_rsrc_actual_cmplt_date IS NOT NULL THEN
2543: IF p_end_date < p_start_date THEN
2544: gme_common_pvt.log_message ('PM_BADENDDATE');
2545: RAISE invalid_date;
2546: ELSIF p_end_date > gme_common_pvt.g_timestamp THEN
2547: gme_common_pvt.log_message ('GME_BAD_END_DATE');
2548: RAISE invalid_date;
2549: -- 13345631 - This validation should not occur once the batch is created.
2550: -- ELSIF l_rsrc_actual_cmplt_date IS NOT NULL THEN
2551: -- IF p_end_date > l_rsrc_actual_cmplt_date THEN
2548: RAISE invalid_date;
2549: -- 13345631 - This validation should not occur once the batch is created.
2550: -- ELSIF l_rsrc_actual_cmplt_date IS NOT NULL THEN
2551: -- IF p_end_date > l_rsrc_actual_cmplt_date THEN
2552: -- gme_common_pvt.log_message ('GME_BAD_END_CMPLT_DATE');
2553: -- RAISE invalid_date;
2554: -- END IF;
2555: END IF;
2556:
2629: l_api_name CONSTANT VARCHAR2 (30) := 'UPDATE_ACTUAL_RSRC_USAGE';
2630: l_resource_txns gme_resource_txns_gtmp%ROWTYPE;
2631: l_batch_header gme_batch_header%ROWTYPE;
2632: l_step_resources gme_batch_step_resources%ROWTYPE;
2633: l_resource_tbl gme_common_pvt.resource_transactions_tab;
2634: l_line_id NUMBER;
2635: l_instance_id NUMBER;
2636: l_reason_id NUMBER;
2637: l_inv_trans_count NUMBER;
2667: x_return_status := fnd_api.g_ret_sts_success;
2668:
2669: /*siva commented following IF condition to allow insertion of flexfileds
2670: without validation when p_validate_flexfields is FALSE */
2671: --IF gme_common_pvt.g_flex_validate_prof = 1 THEN
2672: /*Validate Flexfields using the new procedure gme_api_validate_flex_fld_pvt.validate_rsrc_txn_flex */
2673: gme_validate_flex_fld_pvt.validate_rsrc_txn_flex
2674: (p_resource_txn_rec => p_rsrc_txn_rec
2675: ,x_resource_txn_rec => x_rsrc_txn_rec
2766: l_rsrc_txn_rec.doc_type := 'PROD';
2767: l_rsrc_txn_rec.line_type := 0;
2768: l_rsrc_txn_rec.organization_id := l_batch_header.organization_id;
2769: l_rsrc_txn_rec.orgn_code := NULL;
2770: l_rsrc_txn_rec.event_id := gme_common_pvt.g_transaction_header_id;
2771: l_rsrc_txn_rec.line_id := l_line_id;
2772: l_rsrc_txn_rec.resources := l_resources;
2773: l_rsrc_txn_rec.resource_usage := p_rsrc_txn_rec.resource_usage;
2774: l_rsrc_txn_rec.trans_um := l_usage_uom;
2795: END IF;
2796:
2797: l_rsrc_txn_rec.sequence_dependent_ind := 0;
2798: --siva copying flex-fields
2799: --IF gme_common_pvt.g_flex_validate_prof = 1 THEN
2800: l_rsrc_txn_rec.attribute_category := x_rsrc_txn_rec.attribute_category;
2801: l_rsrc_txn_rec.attribute1 := x_rsrc_txn_rec.attribute1;
2802: l_rsrc_txn_rec.attribute2 := x_rsrc_txn_rec.attribute2;
2803: l_rsrc_txn_rec.attribute3 := x_rsrc_txn_rec.attribute3;
2927: := 'insert_incr_actual_rsrc_txn';
2928: l_resource_txns gme_resource_txns%ROWTYPE;
2929: l_batch_header gme_batch_header%ROWTYPE;
2930: l_step_resources gme_batch_step_resources%ROWTYPE;
2931: l_resource_tbl gme_common_pvt.resource_transactions_tab;
2932: l_step_status NUMBER;
2933: l_activity_id NUMBER;
2934: l_inv_trans_count NUMBER;
2935: l_rsrc_trans_count NUMBER;
2977: x_return_status := fnd_api.g_ret_sts_success;
2978:
2979: /*siva commented following IF condition to allow insertion of flexfileds
2980: without validation when p_validate_flexfields is FALSE */
2981: --IF gme_common_pvt.g_flex_validate_prof = 1 THEN
2982: /*Validate Flexfields using the new procedure gme_api_validate_flex_fld_pvt.validate_rsrc_txn_flex */
2983: gme_validate_flex_fld_pvt.validate_rsrc_txn_flex
2984: (p_resource_txn_rec => p_rsrc_txn_rec
2985: ,x_resource_txn_rec => x_rsrc_txn_rec
3048: l_rsrc_txn_rec.doc_type := 'PROD';
3049: l_rsrc_txn_rec.line_type := 0;
3050: l_rsrc_txn_rec.organization_id := l_batch_header.organization_id;
3051: l_rsrc_txn_rec.line_id := l_line_id;
3052: l_rsrc_txn_rec.event_id := gme_common_pvt.g_transaction_header_id;
3053: l_rsrc_txn_rec.resources := l_resources;
3054: l_rsrc_txn_rec.resource_usage := p_rsrc_txn_rec.resource_usage;
3055: l_rsrc_txn_rec.trans_qty_um := l_usage_uom;
3056: l_rsrc_txn_rec.trans_date := l_trans_date;
3216: := 'insert_timed_actual_rsrc_txn';
3217: l_resource_txns gme_resource_txns%ROWTYPE;
3218: l_batch_header gme_batch_header%ROWTYPE;
3219: l_step_resources gme_batch_step_resources%ROWTYPE;
3220: l_resource_tbl gme_common_pvt.resource_transactions_tab;
3221: l_line_id NUMBER;
3222: l_inv_trans_count NUMBER;
3223: l_rsrc_trans_count NUMBER;
3224: l_step_status NUMBER;
3268: x_return_status := fnd_api.g_ret_sts_success;
3269:
3270: /*siva commented following IF condition to allow insertion of flexfileds
3271: without validation when p_validate_flexfields is FALSE */
3272: --IF gme_common_pvt.g_flex_validate_prof = 1 THEN
3273: /*Validate Flexfields using the new procedure gme_api_validate_flex_fld_pvt.validate_rsrc_txn_flex */
3274: gme_validate_flex_fld_pvt.validate_rsrc_txn_flex
3275: (p_resource_txn_rec => p_rsrc_txn_rec
3276: ,x_resource_txn_rec => x_rsrc_txn_rec
3330: l_usage_time :=
3331: (p_rsrc_txn_rec.end_date - p_rsrc_txn_rec.start_date) * 24;
3332: l_hour_um :=
3333: fnd_profile.value_specific (NAME => 'BOM:HOUR_UOM_CODE'
3334: ,user_id => gme_common_pvt.g_user_ident);
3335:
3336: IF (l_hour_um IS NULL) THEN
3337: gme_common_pvt.log_message ('GME_API_UNABLE_TO_GET_CONSTANT'
3338: ,'CONSTANT_NAME'
3333: fnd_profile.value_specific (NAME => 'BOM:HOUR_UOM_CODE'
3334: ,user_id => gme_common_pvt.g_user_ident);
3335:
3336: IF (l_hour_um IS NULL) THEN
3337: gme_common_pvt.log_message ('GME_API_UNABLE_TO_GET_CONSTANT'
3338: ,'CONSTANT_NAME'
3339: ,'BOM:HOUR_UOM_CODE');
3340: RAISE missing_profile_option;
3341: END IF;
3358: ,from_name => NULL
3359: ,to_name => NULL);
3360:
3361: IF (l_txn_usage = -99999) THEN
3362: gme_common_pvt.log_message ('GME_RSRC_USG_NT_CNV_SYUOM'
3363: ,'SY_UOM'
3364: ,l_hour_um
3365: ,'RSRC_USG_UOM'
3366: ,l_usage_uom);
3380: l_rsrc_txn_rec.line_type := 0;
3381: l_rsrc_txn_rec.organization_id := l_batch_header.organization_id;
3382: l_rsrc_txn_rec.orgn_code := NULL;
3383: l_rsrc_txn_rec.line_id := l_line_id;
3384: l_rsrc_txn_rec.event_id := gme_common_pvt.g_transaction_header_id;
3385: l_rsrc_txn_rec.resources := l_resources;
3386: l_rsrc_txn_rec.resource_usage := l_txn_usage;
3387: l_rsrc_txn_rec.trans_qty_um := l_usage_uom;
3388: l_rsrc_txn_rec.trans_date := l_trans_date;
3569: x_return_status := fnd_api.g_ret_sts_success;
3570:
3571: /*siva commented following IF condition to allow insertion of flexfileds
3572: without validation when p_validate_flexfields is FALSE */
3573: -- IF gme_common_pvt.g_flex_validate_prof = 1 THEN
3574: --Validate Flexfields using the new procedure
3575: gme_validate_flex_fld_pvt.validate_rsrc_txn_flex
3576: (p_resource_txn_rec => p_rsrc_txn_rec
3577: ,x_resource_txn_rec => x_rsrc_txn_rec
3643: l_rsrc_txn_rec.line_type := 0;
3644: l_rsrc_txn_rec.organization_id := l_batch_header.organization_id;
3645: l_rsrc_txn_rec.orgn_code := NULL;
3646: l_rsrc_txn_rec.line_id := l_line_id;
3647: l_rsrc_txn_rec.event_id := gme_common_pvt.g_transaction_header_id;
3648: l_rsrc_txn_rec.resources := l_resources;
3649: l_rsrc_txn_rec.resource_usage := 0;
3650: l_rsrc_txn_rec.trans_qty_um := l_usage_uom;
3651:
3743: l_api_name CONSTANT VARCHAR2 (30) := 'end_cmplt_actual_rsrc_txn';
3744: l_resource_txns gme_resource_txns%ROWTYPE;
3745: l_batch_header gme_batch_header%ROWTYPE;
3746: l_step_resources gme_batch_step_resources%ROWTYPE;
3747: l_resource_tbl gme_common_pvt.resource_transactions_tab;
3748: --Begin Bug# 3479669
3749: l_tran_rec gme_resource_txns%ROWTYPE;
3750: --End Bug# 3479669
3751: l_step_status NUMBER;
3802: FETCH cur_validate_poc_trans_id
3803: INTO l_dummy;
3804:
3805: IF cur_validate_poc_trans_id%NOTFOUND THEN
3806: gme_common_pvt.log_message ('GME_INV_POC_TRANS_ID'
3807: ,'POC_TRANS_ID'
3808: ,p_rsrc_txn_rec.poc_trans_id);
3809: RAISE invalid_poc_trans_id;
3810: END IF;
3812: CLOSE cur_validate_poc_trans_id;
3813:
3814: /*siva commented following IF condition to allow insertion of flexfileds
3815: without validation when p_validate_flexfields is FALSE */
3816: --IF gme_common_pvt.g_flex_validate_prof = 1 THEN
3817: /* Validate Flexfields using the new procedure */
3818: gme_validate_flex_fld_pvt.validate_rsrc_txn_flex
3819: (p_resource_txn_rec => p_rsrc_txn_rec
3820: ,x_resource_txn_rec => x_rsrc_txn_rec
3834: IF ( (l_rsrc_txn_rec.resource_usage <> 0)
3835: OR (l_rsrc_txn_rec.start_date <> l_rsrc_txn_rec.end_date)
3836: OR (l_rsrc_txn_rec.completed_ind <> 1)
3837: OR (l_rsrc_txn_rec.delete_mark <> 0) ) THEN
3838: gme_common_pvt.log_message ('GME_INVALID_TXN_FOR_END');
3839: RAISE invalid_txn_for_end;
3840: END IF;
3841:
3842: /* V. Ajay Kumar Bug 3041705. Multiplied the difference of
3844: l_usage_time :=
3845: (p_rsrc_txn_rec.end_date - l_rsrc_txn_rec.start_date) * 24;
3846:
3847: IF l_usage_time < 0 THEN
3848: gme_common_pvt.log_message ('PM_BADENDDATE');
3849: RAISE expected_error;
3850: END IF;
3851:
3852: l_hour_um :=
3850: END IF;
3851:
3852: l_hour_um :=
3853: fnd_profile.value_specific (NAME => 'BOM:HOUR_UOM_CODE'
3854: ,user_id => gme_common_pvt.g_user_ident);
3855:
3856: IF (l_hour_um IS NULL) THEN
3857: gme_common_pvt.log_message ('GME_API_UNABLE_TO_GET_CONSTANT'
3858: ,'CONSTANT_NAME'
3853: fnd_profile.value_specific (NAME => 'BOM:HOUR_UOM_CODE'
3854: ,user_id => gme_common_pvt.g_user_ident);
3855:
3856: IF (l_hour_um IS NULL) THEN
3857: gme_common_pvt.log_message ('GME_API_UNABLE_TO_GET_CONSTANT'
3858: ,'CONSTANT_NAME'
3859: ,'BOM:HOUR_UOM_CODE');
3860: RAISE missing_profile_option;
3861: END IF;
3871: ,from_name => NULL
3872: ,to_name => NULL);
3873:
3874: IF (l_txn_usage = -99999) THEN
3875: gme_common_pvt.log_message ('GME_RSRC_USG_NT_CNV_SYUOM'
3876: ,'SY_UOM'
3877: ,l_hour_um
3878: ,'RSRC_USG_UOM'
3879: ,l_rsrc_txn_rec.trans_qty_um);
3963: l_rsrc_txn_rec.end_date := p_rsrc_txn_rec.end_date;
3964: l_rsrc_txn_rec.instance_id := x_instance_id;
3965:
3966: --siva copying flex field values
3967: --IF gme_common_pvt.g_flex_validate_prof = 1 THEN
3968: l_rsrc_txn_rec.attribute_category := x_rsrc_txn_rec.attribute_category;
3969: l_rsrc_txn_rec.attribute1 := x_rsrc_txn_rec.attribute1;
3970: l_rsrc_txn_rec.attribute2 := x_rsrc_txn_rec.attribute2;
3971: l_rsrc_txn_rec.attribute3 := x_rsrc_txn_rec.attribute3;