[Home] [Help]
4: G_WIP_WS_PREF_CHARGE_RESOURCE CONSTANT NUMBER := 5;
5: G_WIP_WS_PREF_TIME_ENTRY_MODE CONSTANT NUMBER := 26;
6: G_BOM_AUTOCHARGE_TYPE_MANUAL CONSTANT NUMBER := 2;
7:
8: G_RES_CHG_FAILED Number :=wip_constants.no;
9:
10: -- Insert a record into the wip_resource_actual_times table.
11: PROCEDURE record_insert(
12: p_time_entry_id in number,
57: l_params wip_logger.param_tbl_t;
58: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
59:
60: BEGIN
61: if(l_logLevel <= wip_constants.trace_logging) then
62: l_params(1).paramName := 'p_time_entry_id';
63: l_params(1).paramValue := p_time_entry_id;
64: l_params(2).paramName := 'p_organization_id';
65: l_params(2).paramValue := p_organization_id;
135: end if;
136:
137: l_time_uom_flag := is_time_uom(p_uom_code);
138:
139: if(l_logLevel <= wip_constants.full_logging) then
140: wip_logger.log('l_time_uom_flag: ' || l_time_uom_flag, l_return_status);
141: end if;
142: if( p_start_date is null and p_duration is null) then
143: /* skip, consider as empty record */
150: l_duration := p_duration;
151: end if;
152:
153: if l_duration is not null and l_uom_code <> p_uom_code then
154: if(l_logLevel <= wip_constants.full_logging) then
155: wip_logger.log('calling inv_convert.inv_um_convert', l_return_status);
156: end if;
157: l_duration := inv_convert.inv_um_convert(item_id => -1,
158: precision => 38,
160: from_unit => p_uom_code,
161: to_unit => l_uom_code,
162: from_name => null,
163: to_name => null);
164: if(l_logLevel <= wip_constants.full_logging) then
165: wip_logger.log('Value returned inv_convert.inv_um_convert: ' || l_duration, l_return_status);
166: end if;
167: end if;
168:
177: else
178: l_projected_completion_date := p_projected_completion_date;
179: end if;
180:
181: if(l_logLevel <= wip_constants.full_logging) then
182: wip_logger.log('Projected Completion Date: ' || l_projected_completion_date, l_return_status);
183: wip_logger.log('Inserting into wip_resource_actual_times', l_return_status);
184: end if;
185: insert into wip_resource_actual_times
234: l_uom_code,
235: p_employee_id,
236: l_process_status);
237:
238: if(l_logLevel <= wip_constants.full_logging) then
239: wip_logger.log('Calling update_actual_start_dates', l_return_status);
240: end if;
241: update_actual_start_dates(p_wip_entity_id => p_wip_entity_id,
242: p_operation_seq_num => p_operation_seq_num,
254:
255: l_return_status := 'S';
256:
257: else
258: if(l_logLevel <= wip_constants.full_logging) then
259: wip_logger.log('Calling derive_insert_wcti', l_return_status);
260: end if;
261: /*Add for Bug 10097774 */
262: derive_insert_wcti(p_organization_id => p_organization_id,
274: end if;
275:
276: x_time_entry_id := l_time_entry_id;
277: x_return_status := l_return_status;
278: if (l_logLevel <= wip_constants.trace_logging) then
279: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.record_insert',
280: p_procReturnStatus => x_return_status,
281: p_msg => 'normal completion',
282: x_returnStatus => l_return_status);
321: l_return_status varchar2(10);
322: l_params wip_logger.param_tbl_t;
323: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
324: BEGIN
325: if(l_logLevel <= wip_constants.trace_logging) then
326: l_params(1).paramName := 'p_time_entry_id';
327: l_params(1).paramValue := p_time_entry_id;
328: l_params(2).paramName := 'p_organization_id';
329: l_params(2).paramValue := p_organization_id;
392: l_duration := (p_end_date - p_start_date)*24;
393: else
394: l_duration := p_duration;
395: end if;
396: if(l_logLevel <= wip_constants.full_logging) then
397: wip_logger.log('Before inv_convert, l_duration: ' || l_duration, l_return_status);
398: end if;
399: if l_duration is not null and l_uom_code <> p_uom_code then
400: l_duration := inv_convert.inv_um_convert(item_id => -1,
404: to_unit => l_uom_code,
405: from_name => null,
406: to_name => null);
407: end if;
408: if(l_logLevel <= wip_constants.full_logging) then
409: wip_logger.log('After inv_convert, l_duration: ' || l_duration, l_return_status);
410: end if;
411:
412: select object_version_number, start_date into l_object_version_num, l_start_date
411:
412: select object_version_number, start_date into l_object_version_num, l_start_date
413: from wip_resource_actual_times where time_entry_id = p_time_entry_id;
414:
415: if(l_logLevel <= wip_constants.full_logging) then
416: wip_logger.log('l_object_version_num: ' || l_object_version_num, l_return_status);
417: wip_logger.log('l_start_date: ' || l_start_date, l_return_status);
418: end if;
419: if l_start_date <> p_start_date then
428: l_projected_completion_date := p_projected_completion_date;
429: end if;
430:
431: if l_object_version_num = p_object_version_num then
432: if(l_logLevel <= wip_constants.full_logging) then
433: wip_logger.log('updating wip_resource_actual_times', l_return_status);
434: end if;
435: update wip_resource_actual_times set
436: organization_id = p_organization_id,
459: last_update_login = fnd_global.login_id
460: where time_entry_id = p_time_entry_id;
461:
462: if p_start_date is not null and l_start_date <> p_start_date then
463: if(l_logLevel <= wip_constants.full_logging) then
464: wip_logger.log('calling update_actual_start_dates()', l_return_status);
465: end if;
466: update_actual_start_dates(p_wip_entity_id => p_wip_entity_id,
467: p_operation_seq_num => p_operation_seq_num,
466: update_actual_start_dates(p_wip_entity_id => p_wip_entity_id,
467: p_operation_seq_num => p_operation_seq_num,
468: p_resource_seq_num => p_resource_seq_num);
469:
470: if(l_logLevel <= wip_constants.full_logging) then
471: wip_logger.log('calling update_proj_completion_dates()', l_return_status);
472: end if;
473: update_proj_completion_dates(p_organization_id => p_organization_id,
474: p_wip_entity_id => p_wip_entity_id,
486: l_return_status := 'U'; --error condition: non time based resources are never updated
487: end if;
488:
489: x_return_status := l_return_status;
490: if (l_logLevel <= wip_constants.trace_logging) then
491: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.record_update',
492: p_procReturnStatus => x_return_status,
493: p_msg => 'normal completion',
494: x_returnStatus => l_return_status);
522: start_date
523: from wip_resource_actual_times
524: where time_entry_id = p_time_entry_id;
525: BEGIN
526: if(l_logLevel <= wip_constants.trace_logging) then
527: l_params(1).paramName := 'p_time_entry_id';
528: l_params(1).paramValue := p_time_entry_id;
529: l_params(2).paramName := 'p_object_version_num';
530: l_params(2).paramValue := p_object_version_num;
548: l_resource_seq_num,
549: l_start_date;
550: if delete_cursor%NOTFOUND then
551: l_return_status := 'U';
552: if(l_logLevel <= wip_constants.full_logging) then
553: wip_logger.log('delete_cursor not found', l_return_status);
554: end if;
555: else
556: if l_object_version_num = p_object_version_num then
553: wip_logger.log('delete_cursor not found', l_return_status);
554: end if;
555: else
556: if l_object_version_num = p_object_version_num then
557: if(l_logLevel <= wip_constants.full_logging) then
558: wip_logger.log('updating wip_resource_actual_times', l_return_status);
559: end if;
560: update wip_resource_actual_times set
561: process_status = l_process_status,
565: last_update_login = fnd_global.login_id
566: where time_entry_id = p_time_entry_id
567: and process_status <> 4;
568:
569: if(l_logLevel <= wip_constants.full_logging) then
570: wip_logger.log('calling update_actual_start_dates()', l_return_status);
571: end if;
572: update_actual_start_dates(p_wip_entity_id => l_wip_entity_id,
573: p_operation_seq_num => l_operation_seq_num,
573: p_operation_seq_num => l_operation_seq_num,
574: p_resource_seq_num => l_resource_seq_num);
575:
576: if l_start_date is not null then
577: if(l_logLevel <= wip_constants.full_logging) then
578: wip_logger.log('calling update_proj_completion_dates()', l_return_status);
579: end if;
580: update_proj_completion_dates(p_organization_id => l_organization_id,
581: p_wip_entity_id => l_wip_entity_id,
589: end if;
590: end if;
591: close delete_cursor;
592: x_return_status := l_return_status;
593: if (l_logLevel <= wip_constants.trace_logging) then
594: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.record_delete',
595: p_procReturnStatus => x_return_status,
596: p_msg => 'normal completion',
597: x_returnStatus => l_return_status);
625: and operation_seq_num = p_operation_seq_num
626: and employee_id = p_employee_id
627: and process_status <> 4;
628: BEGIN
629: if(l_logLevel <= wip_constants.trace_logging) then
630: l_params(1).paramName := 'p_wip_entity_id';
631: l_params(1).paramValue := p_wip_entity_id;
632: l_params(2).paramName := 'p_operation_seq_num';
633: l_params(2).paramValue := p_operation_seq_num;
651: l_resource_seq_num,
652: l_start_date;
653: if delete_cursor%NOTFOUND then
654: l_return_status := 'U';
655: if(l_logLevel <= wip_constants.full_logging) then
656: wip_logger.log('delete_cursor not found', l_return_status);
657: end if;
658: else
659: if(l_logLevel <= wip_constants.full_logging) then
655: if(l_logLevel <= wip_constants.full_logging) then
656: wip_logger.log('delete_cursor not found', l_return_status);
657: end if;
658: else
659: if(l_logLevel <= wip_constants.full_logging) then
660: wip_logger.log('updating wip_resource_actual_times', l_return_status);
661: end if;
662: update wip_resource_actual_times set
663: process_status = l_process_status,
668: where wip_entity_id = p_wip_entity_id
669: and operation_seq_num = p_operation_seq_num
670: and employee_id = p_employee_id
671: and process_status <> 4;
672: if(l_logLevel <= wip_constants.full_logging) then
673: wip_logger.log('calling update_actual_start_dates()', l_return_status);
674: end if;
675:
676: update_actual_start_dates(p_wip_entity_id => p_wip_entity_id,
677: p_operation_seq_num => p_operation_seq_num,
678: p_resource_seq_num => l_resource_seq_num);
679:
680: if l_start_date is not null then
681: if(l_logLevel <= wip_constants.full_logging) then
682: wip_logger.log('calling update_proj_completion_dates()', l_return_status);
683: end if;
684: update_proj_completion_dates(p_organization_id => l_organization_id,
685: p_wip_entity_id => p_wip_entity_id,
692: l_return_status := 'S';
693: end if;
694: close delete_cursor;
695: x_return_status := l_return_status;
696: if (l_logLevel <= wip_constants.trace_logging) then
697: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.record_delete',
698: p_procReturnStatus => x_return_status,
699: p_msg => 'normal completion',
700: x_returnStatus => l_return_status);
713: l_params wip_logger.param_tbl_t;
714: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
715: BEGIN
716:
717: if(l_logLevel <= wip_constants.trace_logging) then
718: l_params(1).paramName := 'p_wip_entity_id';
719: l_params(1).paramValue := p_wip_entity_id;
720: l_params(2).paramName := 'p_operation_seq_num';
721: l_params(2).paramValue := p_operation_seq_num;
732: where wip_entity_id = p_wip_entity_id
733: and operation_seq_num = p_operation_seq_num
734: and employee_id is not null;
735:
736: if (l_logLevel <= wip_constants.trace_logging) then
737: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.job_off_internal',
738: p_procReturnStatus => x_return_status,
739: p_msg => 'normal completion',
740: x_returnStatus => x_return_status);
748: x_return_status varchar2(10);
749: l_params wip_logger.param_tbl_t;
750: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
751: Begin
752: if(l_logLevel <= wip_constants.trace_logging) then
753: l_params(1).paramName := 'p_wip_entity_id';
754: l_params(1).paramValue := p_wip_entity_id;
755: l_params(2).paramName := 'p_operation_seq_num';
756: l_params(2).paramValue := p_operation_seq_num;
791: and wor.operation_seq_num = t.operation_seq_num
792: and wor.resource_seq_num = t.resource_seq_num), 2) /* ad-hoc has no scheduled flag*/
793: );
794:
795: if (l_logLevel <= wip_constants.trace_logging) then
796: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.clock_out_labors',
797: p_procReturnStatus => x_return_status,
798: p_msg => 'normal completion',
799: x_returnStatus => x_return_status);
850: l_uom_code varchar2(10);
851: x_return_status varchar2(10);
852: Begin
853:
854: if(l_logLevel <= wip_constants.trace_logging) then
855: l_params(1).paramName := 'p_wip_entity_id';
856: l_params(1).paramValue := p_wip_entity_id;
857: l_params(2).paramName := 'p_operation_seq_num';
858: l_params(2).paramValue := p_operation_seq_num;
974: where wor.wip_entity_id = t.wip_entity_id
975: and wor.operation_seq_num = t.operation_seq_num
976: and wor.resource_seq_num = t.resource_seq_num) = l_scheduled_flag;
977: end if;
978: if (l_logLevel <= wip_constants.trace_logging) then
979: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.clock_out_machines',
980: p_procReturnStatus => x_return_status,
981: p_msg => 'normal completion',
982: x_returnStatus => x_return_status);
1319: l_active_clocks number;
1320: l_entry_id number;
1321: BEGIN
1322:
1323: if(l_logLevel <= wip_constants.trace_logging) then
1324: l_params(1).paramName := 'p_wip_entity_id';
1325: l_params(1).paramValue := p_wip_entity_id;
1326: l_params(2).paramName := 'p_completed_op';
1327: l_params(2).paramValue := p_completed_op;
1345: if l_last_op_qty_num = 0 then
1346: l_last_op_qty := 'Y';
1347: end if;
1348:
1349: if(l_logLevel <= wip_constants.full_logging) then
1350: wip_logger.log('l_last_op_qty_num: ' || l_last_op_qty_num, l_return_status);
1351: wip_logger.log('l_last_op_qty: ' || l_last_op_qty, l_return_status);
1352: end if;
1353: l_last_job_qty_num := get_last_job_qty(p_wip_entity_id => p_wip_entity_id,
1356: if l_last_job_qty_num <= 0 then
1357: l_last_job_qty := 'Y';
1358: end if;
1359:
1360: if(l_logLevel <= wip_constants.full_logging) then
1361: wip_logger.log('l_last_job_qty_num: ' || l_last_job_qty_num, l_return_status);
1362: wip_logger.log('l_last_job_qty: ' || l_last_job_qty, l_return_status);
1363: end if;
1364: if (l_last_op_qty = 'Y' and p_time_entry_source = 'move') then
1361: wip_logger.log('l_last_job_qty_num: ' || l_last_job_qty_num, l_return_status);
1362: wip_logger.log('l_last_job_qty: ' || l_last_job_qty, l_return_status);
1363: end if;
1364: if (l_last_op_qty = 'Y' and p_time_entry_source = 'move') then
1365: if(l_logLevel <= wip_constants.full_logging) then
1366: wip_logger.log('calling clock_out_labors()', l_return_status);
1367: end if;
1368: clock_out_labors(p_wip_entity_id, p_completed_op, 4); /* don't clock out next resources */
1369: end if;
1370:
1371: /*Bug 9853104: Clock out machines even if there is job qty in Queue/Run but
1372: all person resources have clocked out
1373: if (l_last_job_qty = 'Y') then*/
1374: if(l_logLevel <= wip_constants.full_logging) then
1375: wip_logger.log('calling clock_out_machines()', l_return_status);
1376: end if;
1377: clock_out_machines(p_wip_entity_id, p_completed_op);
1378: --end if;
1408: l_end_date,
1409: l_time_entry_mode;
1410: exit when time_records_cursor%NOTFOUND;
1411:
1412: if(l_logLevel <= wip_constants.full_logging) then
1413: wip_logger.log('l_entry_id: ' || l_entry_id, l_return_status);
1414: wip_logger.log('l_object_version_num: ' || l_object_version_num, l_return_status);
1415: wip_logger.log('l_add_to_rtg: ' || l_add_to_rtg, l_return_status);
1416: wip_logger.log('l_cost_flag: ' || l_cost_flag, l_return_status);
1435: p_time_entry_source => p_time_entry_source);
1436: l_change_flag := 'Y';
1437: end if;
1438:
1439: if(l_logLevel <= wip_constants.full_logging) then
1440: wip_logger.log('l_cost_flag: ' || l_cost_flag, l_return_status);
1441: wip_logger.log('l_change_flag: ' || l_change_flag, l_return_status);
1442: end if;
1443: if (l_add_to_rtg is null) then
1448: p_time_entry_source => p_time_entry_source);
1449: l_change_flag := 'Y';
1450: end if;
1451:
1452: if(l_logLevel <= wip_constants.full_logging) then
1453: wip_logger.log('l_add_to_rtg: ' || l_add_to_rtg, l_return_status);
1454: wip_logger.log('l_change_flag: ' || l_change_flag, l_return_status);
1455: end if;
1456: if (l_add_to_rtg = 'Y' and l_resource_seq_num is null) then
1457: l_resource_seq_num := get_adhoc_resource_seq(
1458: p_wip_entity_id, p_completed_op, l_resource_id);
1459: l_change_flag := 'Y';
1460: end if;
1461: if(l_logLevel <= wip_constants.full_logging) then
1462: wip_logger.log('l_resource_seq_num: ' || l_resource_seq_num, l_return_status);
1463: wip_logger.log('l_change_flag: ' || l_change_flag, l_return_status);
1464: end if;
1465:
1482: and not (p_time_entry_source = 'clock' and l_time_entry_mode <> 2)
1483: and not (p_time_entry_source = 'move' and l_time_entry_mode = 3) /* clock out but not charge */
1484: ) then
1485: if (l_cost_flag = 'Y') then
1486: if(l_logLevel <= wip_constants.full_logging) then
1487: wip_logger.log('calling derive_insert_wcti', l_return_status);
1488: end if;
1489: /*Add for Bug 10097774 */
1490: derive_insert_wcti(p_organization_id => l_org_id,
1499: p_hour_uom => l_uom_code,
1500: x_return_status =>l_return_status);
1501: end if;
1502:
1503: if(l_logLevel <= wip_constants.full_logging) then
1504: wip_logger.log('update wip_resource_actual_times', l_return_status);
1505: end if;
1506: --mark status type complete for wrat records
1507: update wip_resource_actual_times
1522: /*Bug 9853104: Job-off even if qty exists in operation but there are
1523: no active clock-ins */
1524: /*Bug 12982934:Fix the regression caused by bug 9853104*/
1525: /* Added condition on last_op_qty for Bug 13826369 */
1526: if(l_logLevel <= wip_constants.full_logging) then
1527: wip_logger.log('l_last_job_qty : '|| l_last_job_qty, l_return_status);
1528: wip_logger.log('l_last_op_qty : '|| l_last_op_qty, l_return_status);
1529: wip_logger.log('l_active_clocks : '|| l_active_clocks, l_return_status);
1530: wip_logger.log('Before calling job_off_internal', l_return_status);
1533: -- Added p_time_entry_source check for Bug 14705770
1534:
1535: if (l_last_job_qty = 'Y' or p_time_entry_source = 'clock' ) then
1536: if( l_active_clocks = 0 and (l_last_op_qty = 'Y' or p_time_entry_source = 'clock') ) then
1537: if(l_logLevel <= wip_constants.full_logging) then
1538: wip_logger.log('While calling job_off_internal', l_return_status);
1539: end if;
1540: job_off_internal(p_wip_entity_id, p_completed_op);
1541: end if;
1541: end if;
1542: --if (l_last_job_qty = 'Y') then
1543: update_actual_comp_dates(p_wip_entity_id, p_completed_op);
1544: end if;
1545: if(l_logLevel <= wip_constants.full_logging) then
1546: wip_logger.log('After calling job_off_internal', l_return_status);
1547: end if;
1548: /* for wrat records with process status deleted - delete records */
1549: delete from wip_resource_actual_times
1561: where wip_entity_id = p_wip_entity_id
1562: and operation_seq_num = p_completed_op
1563: and status_type = 1
1564: and process_status in (2,3);
1565: if (l_logLevel <= wip_constants.trace_logging) then
1566: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.process_time_records',
1567: p_procReturnStatus => l_return_status,
1568: p_msg => 'normal completion',
1569: x_returnStatus => l_return_status);
1648: where wor.wip_entity_id = p_wip_entity_id
1649: and wor.operation_seq_num = p_operation_seq_num
1650: and wor.resource_seq_num = p_resource_seq_num;
1651: BEGIN
1652: if(l_logLevel <= wip_constants.trace_logging) then
1653: l_params(1).paramName := 'p_wip_entity_id';
1654: l_params(1).paramValue := p_wip_entity_id;
1655: l_params(2).paramName := 'p_operation_seq_num';
1656: l_params(2).paramValue := p_operation_seq_num;
1710: l_cost_flag := 'Y';
1711: end if;
1712: end if;
1713: end if;
1714: if (l_logLevel <= wip_constants.trace_logging) then
1715: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.process_time_records',
1716: p_procReturnStatus => l_cost_flag,
1717: p_msg => 'normal completion',
1718: x_returnStatus => l_return_status);
1805: where wo.wip_entity_id = p_wip_entity_id
1806: and wo.actual_start_date is not null;
1807: BEGIN
1808:
1809: if(l_logLevel <= wip_constants.trace_logging) then
1810: l_params(1).paramName := 'p_wip_entity_id';
1811: l_params(1).paramValue := p_wip_entity_id;
1812: l_params(2).paramName := 'p_operation_seq_num';
1813: l_params(2).paramValue := p_operation_seq_num;
1865: where wip_entity_id = p_wip_entity_id;
1866: end if;
1867: end if;
1868: close min_start_date_wo_cursor;
1869: if (l_logLevel <= wip_constants.trace_logging) then
1870: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.update_actual_start_dates',
1871: p_procReturnStatus => l_return_status,
1872: p_msg => 'normal completion',
1873: x_returnStatus => l_return_status);
1922: where wor.wip_entity_id = p_wip_entity_id
1923: and wor.operation_seq_num = p_operation_seq_num
1924: and wor.actual_completion_date is null);
1925: BEGIN
1926: if(l_logLevel <= wip_constants.trace_logging) then
1927: l_params(1).paramName := 'p_wip_entity_id';
1928: l_params(1).paramValue := p_wip_entity_id;
1929: l_params(2).paramName := 'p_operation_seq_num';
1930: l_params(2).paramValue := p_operation_seq_num;
1966: end if;
1967: close max_end_date_wor_cursor;
1968: end if;
1969: close active_next_resource_cursor;
1970: if (l_logLevel <= wip_constants.trace_logging) then
1971: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.update_actual_completion_dates',
1972: p_procReturnStatus => l_return_status,
1973: p_msg => 'normal completion',
1974: x_returnStatus => l_return_status);
1987: l_return_status varchar2(1);
1988: l_params wip_logger.param_tbl_t;
1989: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
1990: BEGIN
1991: if(l_logLevel <= wip_constants.trace_logging) then
1992: l_params(1).paramName := 'p_organization_id';
1993: l_params(1).paramValue := p_organization_id;
1994: l_params(2).paramName := 'p_wip_entity_id';
1995: l_params(2).paramValue := p_wip_entity_id;
2032: update wip_operations set
2033: projected_completion_date = l_projected_completion_date
2034: where wip_entity_id = p_wip_entity_id
2035: and operation_seq_num = p_operation_seq_num;
2036: if (l_logLevel <= wip_constants.trace_logging) then
2037: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.update_proj_completion_dates',
2038: p_procReturnStatus => l_return_status,
2039: p_msg => 'normal completion',
2040: x_returnStatus => l_return_status);
2109: lx_return_status varchar2(10);
2110: l_params wip_logger.param_tbl_t;
2111: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
2112: BEGIN
2113: if(l_logLevel <= wip_constants.trace_logging) then
2114: l_params(1).paramName := 'p_employee_id';
2115: l_params(1).paramValue := p_employee_id;
2116: l_params(2).paramName := 'p_wip_entity_id';
2117: l_params(2).paramValue := p_wip_entity_id;
2141:
2142: x_status := l_status;
2143: x_msg_count := l_msg_count;
2144: x_msg := l_msg;
2145: if (l_logLevel <= wip_constants.trace_logging) then
2146: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.job_on',
2147: p_procReturnStatus => l_status,
2148: p_msg => 'normal completion',
2149: x_returnStatus => l_status);
2165: l_msg varchar2(255);
2166: l_params wip_logger.param_tbl_t;
2167: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
2168: BEGIN
2169: if(l_logLevel <= wip_constants.trace_logging) then
2170: l_params(1).paramName := 'p_wip_entity_id';
2171: l_params(1).paramValue := p_wip_entity_id;
2172: l_params(2).paramName := 'p_operation_seq_num';
2173: l_params(2).paramValue := p_operation_seq_num;
2208:
2209: x_status := l_status;
2210: x_msg_count := l_msg_count;
2211: x_msg := l_msg;
2212: if (l_logLevel <= wip_constants.trace_logging) then
2213: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.job_off',
2214: p_procReturnStatus => l_status,
2215: p_msg => 'normal completion',
2216: x_returnStatus => l_status);
2293: and wrat.employee_id = l_person_id
2294: and wrat.time_entry_mode = 8
2295: and organization_id = p_org_id;
2296: BEGIN
2297: if(l_logLevel <= wip_constants.trace_logging) then
2298: l_params(1).paramName := 'p_wip_employee_id';
2299: l_params(1).paramValue := p_wip_employee_id;
2300: l_params(2).paramName := 'p_org_id';
2301: l_params(2).paramValue := p_org_id;
2318: FETCH shift_in_cursor INTO l_dummy_var;
2319:
2320: IF (badge_validation = true) then
2321: l_shift_status :='N';
2322: if(l_logLevel <= wip_constants.trace_logging) then
2323: wip_logger.log('l_shift_status: ' || l_shift_status, l_ret_status);
2324: end if;
2325: ELSIF shift_in_cursor % FOUND THEN
2326: --Already Shifted in
2325: ELSIF shift_in_cursor % FOUND THEN
2326: --Already Shifted in
2327: l_shift_status := 'C';
2328: ELSE
2329: if(l_logLevel <= wip_constants.trace_logging) then
2330: wip_logger.log('inserting into wip_resource_actual_times', l_ret_status);
2331: end if;
2332: --shift in employee for which badge number was entered
2333: -- removed hardcoding of resource_id for bug 6969269.
2358: x_status := l_shift_status;
2359: --fix logging issue. x_status is the output parameter for this procedure
2360: --we shouldn't set it as an output of wip_logger.exitPoint. Else
2361: --x_status will be overwritten by wip_logger.exitPoint and wrong x_status is return
2362: if (l_logLevel <= wip_constants.trace_logging) then
2363: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.shift_in',
2364: p_procReturnStatus => x_status,
2365: p_msg => 'normal completion',
2366: x_returnStatus => l_ret_status);
2390: and wrat.ORGANIZATION_ID=p_org_id
2391: and wrat.end_date is null
2392: and wrat.time_entry_mode = 8;
2393: BEGIN
2394: if(l_logLevel <= wip_constants.trace_logging) then
2395: l_params(1).paramName := 'p_wip_employee_id';
2396: l_params(1).paramValue := p_wip_employee_id;
2397: l_params(2).paramName := 'p_org_id';
2398: l_params(2).paramValue := p_org_id;
2436: x_status := l_shift_status;
2437: --fix logging issue. x_status is the output parameter for this procedure
2438: --we shouldn't set it as an output of wip_logger.exitPoint. Else
2439: --x_status will be overwritten by wip_logger.exitPoint and wrong x_status is return
2440: if (l_logLevel <= wip_constants.trace_logging) then
2441: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.shift_out',
2442: p_procReturnStatus => x_status,
2443: p_msg => 'normal completion',
2444: x_returnStatus => l_ret_status);
2465: and wrat.EMPLOYEE_ID=l_person_id
2466: and wrat.ORGANIZATION_ID=p_org_id
2467: and wrat.end_date is null;
2468: BEGIN
2469: if(l_logLevel <= wip_constants.trace_logging) then
2470: l_params(1).paramName := 'p_wip_employee_id';
2471: l_params(1).paramValue := p_wip_employee_id;
2472: l_params(2).paramName := 'p_org_id';
2473: l_params(2).paramValue := p_org_id;
2505: x_status := l_shift_status;
2506: --fix logging issue. x_status is the output parameter for this procedure
2507: --we shouldn't set it as an output of wip_logger.exitPoint. Else
2508: --x_status will be overwritten by wip_logger.exitPoint and wrong x_status is return
2509: if (l_logLevel <= wip_constants.trace_logging) then
2510: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.undo_shift_in',
2511: p_procReturnStatus => x_status,
2512: p_msg => 'normal completion',
2513: x_returnStatus => l_ret_status);
2535: and wrat.employee_id = p_wip_employee_id
2536: and wrat.time_entry_mode = 8;
2537:
2538: BEGIN
2539: if(l_logLevel <= wip_constants.trace_logging) then
2540: l_params(1).paramName := 'p_wip_employee_id';
2541: l_params(1).paramValue := p_wip_employee_id;
2542: l_params(2).paramName := 'p_org_id';
2543: l_params(2).paramValue := p_org_id;
2590: x_status := l_shift_status;
2591: --fix logging issue. x_status is the output parameter for this procedure
2592: --we shouldn't set it as an output of wip_logger.exitPoint. Else
2593: --x_status will be overwritten by wip_logger.exitPoint and wrong x_status is return
2594: if (l_logLevel <= wip_constants.trace_logging) then
2595: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.shift_in_UM',
2596: p_procReturnStatus => x_status,
2597: p_msg => 'normal completion',
2598: x_returnStatus => l_ret_status);
2621: and wrat.ORGANIZATION_ID=p_org_id
2622: and wrat.end_date is null;
2623:
2624: BEGIN
2625: if(l_logLevel <= wip_constants.trace_logging) then
2626: l_params(1).paramName := 'p_wip_employee_id';
2627: l_params(1).paramValue := p_wip_employee_id;
2628: l_params(2).paramName := 'p_org_id';
2629: l_params(2).paramValue := p_org_id;
2663: x_status := l_shift_status;
2664: --fix logging issue. x_status is the output parameter for this procedure
2665: --we shouldn't set it as an output of wip_logger.exitPoint. Else
2666: --x_status will be overwritten by wip_logger.exitPoint and wrong x_status is return
2667: if (l_logLevel <= wip_constants.trace_logging) then
2668: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.shift_out_UM',
2669: p_procReturnStatus => x_status,
2670: p_msg => 'normal completion',
2671: x_returnStatus => l_ret_status);
2692: and wrat.EMPLOYEE_ID=p_wip_employee_id
2693: and wrat.ORGANIZATION_ID=p_org_id
2694: and wrat.end_date is null;
2695: BEGIN
2696: if(l_logLevel <= wip_constants.trace_logging) then
2697: l_params(1).paramName := 'p_wip_employee_id';
2698: l_params(1).paramValue := p_wip_employee_id;
2699: l_params(2).paramName := 'p_org_id';
2700: l_params(2).paramValue := p_org_id;
2730: x_status := l_shift_status;
2731: --fix logging issue. x_status is the output parameter for this procedure
2732: --we shouldn't set it as an output of wip_logger.exitPoint. Else
2733: --x_status will be overwritten by wip_logger.exitPoint and wrong x_status is return
2734: if (l_logLevel <= wip_constants.trace_logging) then
2735: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.undo_shift_in_UM',
2736: p_procReturnStatus => x_status,
2737: p_msg => 'normal completion',
2738: x_returnStatus => l_ret_status);
2830: and wrat.resource_seq_num = wor.resource_seq_num
2831: and wrat.status_type = 1
2832: and wrat.end_date is null);
2833: BEGIN
2834: if(l_logLevel <= wip_constants.trace_logging) then
2835: l_params(1).paramName := 'p_wip_entity_id';
2836: l_params(1).paramValue := p_wip_entity_id;
2837: l_params(2).paramName := 'p_operation_seq_num';
2838: l_params(2).paramValue := p_operation_seq_num;
2860:
2861: if WIP_TIME_ENTRY_PUB.is_emp_shift_in(p_wip_entity_id => p_wip_entity_id,
2862: p_employee_id => p_employee_id) then
2863:
2864: if(l_logLevel <= wip_constants.trace_logging) then
2865: wip_logger.log('is_emp_shift_in = Y', x_status);
2866: end if;
2867: l_skill_check := WIP_WS_SKILL_CHECK_PVT.validate_skill_for_clock_in(
2868: p_wip_entity_id => p_wip_entity_id,
2868: p_wip_entity_id => p_wip_entity_id,
2869: p_op_seq_num => p_operation_seq_num,
2870: p_emp_id => p_employee_id);
2871:
2872: if(l_logLevel <= wip_constants.trace_logging) then
2873: wip_logger.log('l_skill_check: ' || l_skill_check, x_status);
2874: end if;
2875: if l_skill_check = WIP_WS_SKILL_CHECK_PVT.G_SKILL_VALIDATION_SUCCESS then
2876:
2878: fetch clock_in_cursor into l_dummy_var;
2879: if clock_in_cursor%FOUND then
2880: l_clock_status := 'C';
2881: else
2882: if(l_logLevel <= wip_constants.trace_logging) then
2883: wip_logger.log('calling job_on', x_status);
2884: end if;
2885: job_on(p_wip_entity_id => p_wip_entity_id,
2886: p_operation_seq_num => p_operation_seq_num,
2888: x_status => lx_status,
2889: x_msg_count => lx_msg_count,
2890: x_msg => lx_msg);
2891:
2892: if(l_logLevel <= wip_constants.trace_logging) then
2893: wip_logger.log('calling get_org_dept_ids', x_status);
2894: end if;
2895: get_org_dept_ids(p_wip_entity_id => p_wip_entity_id,
2896: p_operation_seq_num => p_operation_seq_num,
2952: l_resource_seq_num,
2953: l_uom_code;
2954: exit when time_records_machine_cursor%NOTFOUND;
2955:
2956: if(l_logLevel <= wip_constants.trace_logging) then
2957: wip_logger.log('calling record_insert (loop)', x_status);
2958: end if;
2959: --clock in machines that have not already been clocked in
2960: record_insert(p_time_entry_id => null,
2986: end loop;
2987: close time_records_machine_cursor;
2988: end if;
2989:
2990: if(l_logLevel <= wip_constants.trace_logging) then
2991: wip_logger.log('calling process_time_records', x_status);
2992: end if;
2993:
2994: process_time_records(p_wip_entity_id => p_wip_entity_id,
3013: end if;
3014: --fix logging issue. x_status is the output parameter for this procedure
3015: --we shouldn't set it as an output of wip_logger.exitPoint. Else
3016: --x_status will be overwritten by wip_logger.exitPoint and wrong x_status is return
3017: if (l_logLevel <= wip_constants.trace_logging) then
3018: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.clock_in',
3019: p_procReturnStatus => x_status,
3020: p_msg => 'normal completion',
3021: x_returnStatus => l_ret_status);
3062: and instance_id = p_instance_id
3063: and status_type = 1
3064: and end_date is null;
3065: BEGIN
3066: if(l_logLevel <= wip_constants.trace_logging) then
3067: l_params(1).paramName := 'p_wip_entity_id';
3068: l_params(1).paramValue := p_wip_entity_id;
3069: l_params(2).paramName := 'p_operation_seq_num';
3070: l_params(2).paramValue := p_operation_seq_num;
3097: l_start_date;
3098: if clock_out_test_cursor%NOTFOUND then
3099: l_clock_status := 'O';
3100: else
3101: if(l_logLevel <= wip_constants.trace_logging) then
3102: wip_logger.log('updating wip_resource_actual_times', x_status);
3103: end if;
3104: l_date := sysdate;
3105: l_duration := (l_date - l_start_date)*24;
3122: and instance_id = p_instance_id
3123: and status_type = 1
3124: and end_date is null;
3125:
3126: if(l_logLevel <= wip_constants.trace_logging) then
3127: wip_logger.log('calling process_time_records()', x_status);
3128: end if;
3129: process_time_records(p_wip_entity_id => p_wip_entity_id,
3130: p_completed_op => p_operation_seq_num,
3134: l_clock_status := 'S';
3135: end if;
3136: close clock_out_test_cursor;
3137: /* Added for bug 6891758.*/
3138: if G_RES_CHG_FAILED =wip_constants.yes then
3139: l_clock_status := 'T';
3140: end if;
3141: x_status := l_clock_status;
3142: --fix logging issue. x_status is the output parameter for this procedure
3141: x_status := l_clock_status;
3142: --fix logging issue. x_status is the output parameter for this procedure
3143: --we shouldn't set it as an output of wip_logger.exitPoint. Else
3144: --x_status will be overwritten by wip_logger.exitPoint and wrong x_status is return
3145: if (l_logLevel <= wip_constants.trace_logging) then
3146: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.clock_out',
3147: p_procReturnStatus => x_status,
3148: p_msg => 'normal completion',
3149: x_returnStatus => l_ret_status);
3168: l_params wip_logger.param_tbl_t;
3169: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
3170: l_ret_status varchar2(1);
3171: BEGIN
3172: if(l_logLevel <= wip_constants.trace_logging) then
3173: l_params(1).paramName := 'p_wip_entity_id';
3174: l_params(1).paramValue := p_wip_entity_id;
3175: l_params(2).paramName := 'p_operation_seq_num';
3176: l_params(2).paramValue := p_operation_seq_num;
3194: raise fnd_api.g_exc_unexpected_error;
3195: end if;
3196: end if;
3197: l_clock_status := 'U';
3198: if(l_logLevel <= wip_constants.trace_logging) then
3199: wip_logger.log('calling record_delete', x_status);
3200: end if;
3201: record_delete(p_wip_entity_id => p_wip_entity_id,
3202: p_operation_seq_num => p_operation_seq_num,
3203: p_employee_id => p_employee_id,
3204: x_return_status => lx_return_status);
3205:
3206: if (lx_return_status = 'S') then
3207: if(l_logLevel <= wip_constants.trace_logging) then
3208: wip_logger.log('calling process_time_records()', x_status);
3209: end if;
3210: process_time_records(p_wip_entity_id => p_wip_entity_id,
3211: p_completed_op => p_operation_seq_num,
3218: x_status := l_clock_status;
3219: --fix logging issue. x_status is the output parameter for this procedure
3220: --we shouldn't set it as an output of wip_logger.exitPoint. Else
3221: --x_status will be overwritten by wip_logger.exitPoint and wrong x_status is return
3222: if (l_logLevel <= wip_constants.trace_logging) then
3223: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.undo_clock_in',
3224: p_procReturnStatus => x_status,
3225: p_msg => 'normal completion',
3226: x_returnStatus => l_ret_status);
3443: l_activity_id number;
3444: l_activity_name varchar2(10);
3445: Begin
3446:
3447: if (l_logLevel <= wip_constants.trace_logging) then
3448: l_params(1).paramName := 'p_organization_id';
3449: l_params(1).paramValue := p_organization_id;
3450: l_params(2).paramName := 'p_wip_entity_id';
3451: l_params(2).paramValue := p_wip_entity_id;
3475: from mtl_parameters
3476: where organization_id = p_organization_id;
3477:
3478:
3479: if (l_logLevel <= wip_constants.full_logging) then
3480: wip_logger.log('derive_insert_wcti Phase 10', l_retStatus);
3481: wip_logger.log('l_organization_code = '|| l_organization_code, l_retStatus);
3482: end if;
3483:
3485: into l_wip_entity_name
3486: from wip_entities
3487: where wip_entity_id = p_wip_entity_id;
3488:
3489: if (l_logLevel <= wip_constants.full_logging) then
3490: wip_logger.log('derive_insert_wcti Phase 20', l_retStatus);
3491: wip_logger.log('l_wip_entity_name = '|| l_wip_entity_name, l_retStatus);
3492: end if;
3493:
3496: into l_resource_code, l_resource_type
3497: from bom_resources br
3498: where br.resource_id = p_resource_id;
3499:
3500: if (l_logLevel <= wip_constants.full_logging) then
3501: wip_logger.log('derive_insert_wcti Phase 30', l_retStatus);
3502: wip_logger.log('l_resource_code = '|| l_resource_code|| ' l_resource_type = '|| l_resource_type, l_retStatus);
3503: end if;
3504:
3540: wrat.employee_id = P.PERSON_ID;
3541:
3542: exception
3543: when no_data_found then
3544: G_RES_CHG_FAILED := wip_constants.yes;
3545: end;
3546: else
3547: /*select mec.employee_num
3548: into l_employee_num
3577: l_employee_id := null;
3578: l_employee_num := null;
3579: end if;
3580:
3581: if (l_logLevel <= wip_constants.full_logging) then
3582: wip_logger.log('derive_insert_wcti Phase 40', l_retStatus);
3583: wip_logger.log('l_employee_id = '|| l_employee_id ||' l_employee_num = '|| l_employee_num, l_retStatus);
3584: end if;
3585:
3588: if (l_resource_seq_num is null) then
3589: l_resource_seq_num := get_adhoc_resource_seq(
3590: p_wip_entity_id, p_operation_seq_num, p_resource_id);
3591: end if;
3592: if (l_logLevel <= wip_constants.full_logging) then
3593: wip_logger.log('derive_insert_wcti:l_resource_seq_num = '|| l_resource_seq_num , l_retStatus);
3594: end if;
3595: -- Bug 13481688 @End
3596: --Bug 10097774 get department_id and department_code
3600: where wo.wip_entity_id = p_wip_entity_id
3601: and wo.operation_seq_num = p_operation_seq_num
3602: and wo.department_id = bd.department_id;
3603:
3604: if (l_logLevel <= wip_constants.full_logging) then
3605: wip_logger.log('derive_insert_wcti Phase 50', l_retStatus);
3606: wip_logger.log('l_department_id = '|| l_department_id ||' l_department_code = '|| l_department_code, l_retStatus);
3607: end if;
3608:
3631: and nvl(ca.disable_date(+),sysdate+1) > sysdate
3632: and (ca.organization_id is null or ca.organization_id = p_organization_id);
3633: end;
3634:
3635: if (l_logLevel <= wip_constants.full_logging) then
3636: wip_logger.log('derive_insert_wcti Phase 60', l_retStatus);
3637: wip_logger.log('l_basis_type = '|| l_basis_type, l_retStatus);
3638: wip_logger.log('l_standard_rate_flag = '|| l_standard_rate_flag, l_retStatus);
3639: wip_logger.log('l_primary_uom = '|| l_primary_uom, l_retStatus);
3644: into l_primary_item_id, l_project_id, l_task_id
3645: from wip_discrete_jobs
3646: where wip_entity_id = p_wip_entity_id;
3647:
3648: if (l_logLevel <= wip_constants.full_logging) then
3649: wip_logger.log('derive_insert_wcti Phase 70', l_retStatus);
3650: wip_logger.log('l_primary_item_id = '|| l_primary_item_id, l_retStatus);
3651: wip_logger.log('l_project_id = '|| l_project_id, l_retStatus);
3652: wip_logger.log('l_task_id = '|| l_task_id, l_retStatus);
3662: l_acctPeriodID <= 0) then
3663: raise fnd_api.g_exc_unexpected_error;
3664: end if;
3665:
3666: if (l_logLevel <= wip_constants.full_logging) then
3667: wip_logger.log('derive_insert_wcti Phase 80', l_retStatus);
3668: wip_logger.log('l_acctPeriodID = '|| l_acctPeriodID, l_retStatus);
3669: end if;
3670:
3677: --if resource' uom is not in hour, convert it since actual_resource_rate should based on resource's uom(primary uom)
3678: if(l_actual_resource_rate is not null and (l_primary_uom <> p_hour_uom)) then
3679: l_actual_resource_rate := inv_convert.inv_um_convert(
3680: item_id => 0,
3681: precision => WIP_CONSTANTS.MAX_NUMBER_PRECISION,
3682: from_quantity => l_actual_resource_rate,
3683: from_unit => l_primary_uom,
3684: to_unit => p_hour_uom,
3685: from_name => NULL,
3688: else
3689: l_actual_resource_rate := null;
3690: end if;
3691:
3692: if (l_logLevel <= wip_constants.full_logging) then
3693: wip_logger.log('derive_insert_wcti Phase 90', l_retStatus);
3694: wip_logger.log('l_actual_resource_rate = '|| l_actual_resource_rate, l_retStatus);
3695: end if;
3696:
3699: -- get conversion rate based on UOM
3700: conversion_rate :=
3701: inv_convert.inv_um_convert(
3702: item_id => 0,
3703: precision => WIP_CONSTANTS.MAX_NUMBER_PRECISION,
3704: from_quantity => 1,
3705: from_unit => l_primary_uom,
3706: to_unit => p_txn_uom,
3707: from_name => NULL,
3711: end if;
3712:
3713: l_primary_quantity := p_duration/conversion_rate;
3714:
3715: if (l_logLevel <= wip_constants.full_logging) then
3716: wip_logger.log('derive_insert_wcti Phase 100', l_retStatus);
3717: wip_logger.log('l_primary_quantity = '|| l_primary_quantity, l_retStatus);
3718: end if;
3719:
3716: wip_logger.log('derive_insert_wcti Phase 100', l_retStatus);
3717: wip_logger.log('l_primary_quantity = '|| l_primary_quantity, l_retStatus);
3718: end if;
3719:
3720: if G_RES_CHG_FAILED <> wip_constants.yes then --Bug 6891758
3721: x_group_id := -9999; -- Bug 13481688 , Assiginning dummy value to group_id to identify this group later while inserting the resources.
3722: if (l_logLevel <= wip_constants.full_logging) then
3723: wip_logger.log('derive_insert_wcti Phase 110', l_retStatus);
3724: wip_logger.log('inserting into wip_cost_txn_interface', l_retStatus);
3718: end if;
3719:
3720: if G_RES_CHG_FAILED <> wip_constants.yes then --Bug 6891758
3721: x_group_id := -9999; -- Bug 13481688 , Assiginning dummy value to group_id to identify this group later while inserting the resources.
3722: if (l_logLevel <= wip_constants.full_logging) then
3723: wip_logger.log('derive_insert_wcti Phase 110', l_retStatus);
3724: wip_logger.log('inserting into wip_cost_txn_interface', l_retStatus);
3725: end if;
3726: insert into wip_cost_txn_interface(
3776: fnd_global.login_id,
3777: p_operation_seq_num,
3778: l_organization_code,
3779: p_organization_id,
3780: --WIP_CONSTANTS.RES_VAL,
3781: WIP_CONSTANTS.RES_PROC, --Bug 10097774
3782: WIP_CONSTANTS.PENDING,
3783: p_resource_id,
3784: l_resource_code,
3777: p_operation_seq_num,
3778: l_organization_code,
3779: p_organization_id,
3780: --WIP_CONSTANTS.RES_VAL,
3781: WIP_CONSTANTS.RES_PROC, --Bug 10097774
3782: WIP_CONSTANTS.PENDING,
3783: p_resource_id,
3784: l_resource_code,
3785: l_resource_seq_num, --p_resource_seq_num, Bug 13481688
3778: l_organization_code,
3779: p_organization_id,
3780: --WIP_CONSTANTS.RES_VAL,
3781: WIP_CONSTANTS.RES_PROC, --Bug 10097774
3782: WIP_CONSTANTS.PENDING,
3783: p_resource_id,
3784: l_resource_code,
3785: l_resource_seq_num, --p_resource_seq_num, Bug 13481688
3786: WIP_CONSTANTS.SOURCE_CODE,
3782: WIP_CONSTANTS.PENDING,
3783: p_resource_id,
3784: l_resource_code,
3785: l_resource_seq_num, --p_resource_seq_num, Bug 13481688
3786: WIP_CONSTANTS.SOURCE_CODE,
3787: sysdate,
3788: -- bug 8851845 round transaction_quantity to MAX_DISPLAYED_PRECISION
3789: round(p_duration, WIP_CONSTANTS.MAX_DISPLAYED_PRECISION), --non time based resource implies no start/end time which means duration is mandatory
3790: WIP_CONSTANTS.RES_TXN,
3785: l_resource_seq_num, --p_resource_seq_num, Bug 13481688
3786: WIP_CONSTANTS.SOURCE_CODE,
3787: sysdate,
3788: -- bug 8851845 round transaction_quantity to MAX_DISPLAYED_PRECISION
3789: round(p_duration, WIP_CONSTANTS.MAX_DISPLAYED_PRECISION), --non time based resource implies no start/end time which means duration is mandatory
3790: WIP_CONSTANTS.RES_TXN,
3791: p_txn_uom,
3792: WIP_CONSTANTS.DISCRETE,
3793: p_wip_entity_id,
3786: WIP_CONSTANTS.SOURCE_CODE,
3787: sysdate,
3788: -- bug 8851845 round transaction_quantity to MAX_DISPLAYED_PRECISION
3789: round(p_duration, WIP_CONSTANTS.MAX_DISPLAYED_PRECISION), --non time based resource implies no start/end time which means duration is mandatory
3790: WIP_CONSTANTS.RES_TXN,
3791: p_txn_uom,
3792: WIP_CONSTANTS.DISCRETE,
3793: p_wip_entity_id,
3794: l_wip_entity_name,
3788: -- bug 8851845 round transaction_quantity to MAX_DISPLAYED_PRECISION
3789: round(p_duration, WIP_CONSTANTS.MAX_DISPLAYED_PRECISION), --non time based resource implies no start/end time which means duration is mandatory
3790: WIP_CONSTANTS.RES_TXN,
3791: p_txn_uom,
3792: WIP_CONSTANTS.DISCRETE,
3793: p_wip_entity_id,
3794: l_wip_entity_name,
3795: l_employee_id,
3796: l_employee_num,
3799: l_department_id, --Bug 10097774
3800: l_department_code, --Bug 10097774
3801: l_resource_type, --Bug 10097774
3802: l_basis_type, --Bug 10097774
3803: WIP_CONSTANTS.MANUAL, --Bug 10097774
3804: l_standard_rate_flag, --Bug 10097774
3805: round(l_primary_quantity, WIP_CONSTANTS.MAX_DISPLAYED_PRECISION), --Bug 10097774
3806: l_primary_uom, --Bug 10097774
3807: l_actual_resource_rate,--Bug 10097774
3801: l_resource_type, --Bug 10097774
3802: l_basis_type, --Bug 10097774
3803: WIP_CONSTANTS.MANUAL, --Bug 10097774
3804: l_standard_rate_flag, --Bug 10097774
3805: round(l_primary_quantity, WIP_CONSTANTS.MAX_DISPLAYED_PRECISION), --Bug 10097774
3806: l_primary_uom, --Bug 10097774
3807: l_actual_resource_rate,--Bug 10097774
3808: l_project_id,--Bug 10097774
3809: l_task_id,
3898: update wip_cost_txn_interface set group_id = NULL where group_id = x_group_id;
3899: -- Bug 13481688 @End
3900: end if;
3901: x_return_status := fnd_api.g_ret_sts_success;
3902: if (l_logLevel <= wip_constants.trace_logging) then
3903: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.derive_insert_wcti',
3904: p_procReturnStatus => x_return_status,
3905: p_msg => l_msg,
3906: x_returnStatus => l_retStatus);
3910: Exception
3911: when others then
3912: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
3913: l_msg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
3914: if (l_logLevel <= wip_constants.trace_logging) then
3915: wip_logger.exitPoint(p_procName => 'WIP_WS_TIME_ENTRY.derive_insert_wcti',
3916: p_procReturnStatus => x_return_status,
3917: p_msg => l_msg,
3918: x_returnStatus => l_retStatus);