[Home] [Help]
1: PACKAGE BODY WIP_WS_TIME_ENTRY AS
2: /* $Header: wipwsteb.pls 120.48.12020000.13 2013/03/22 09:49:35 sisankar ship $ */
3:
4: G_WIP_WS_PREF_CHARGE_RESOURCE CONSTANT NUMBER := 5;
5: G_WIP_WS_PREF_TIME_ENTRY_MODE CONSTANT NUMBER := 26;
107: l_params(23).paramValue := p_uom_code;
108: l_params(24).paramName := 'p_employee_id';
109: l_params(24).paramValue := p_employee_id;
110:
111: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.record_insert',
112: p_params => l_params,
113: x_returnStatus => x_return_status);
114: if(x_return_status <> fnd_api.g_ret_sts_success) then
115: raise fnd_api.g_exc_unexpected_error;
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);
283: end if;
371: l_params(23).paramValue := p_uom_code;
372: l_params(24).paramName := 'p_employee_id';
373: l_params(24).paramValue := p_employee_id;
374:
375: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.record_update',
376: p_params => l_params,
377: x_returnStatus => x_return_status);
378: if(x_return_status <> fnd_api.g_ret_sts_success) then
379: raise fnd_api.g_exc_unexpected_error;
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);
495: end if;
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;
531:
532: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.record_delete',
533: p_params => l_params,
534: x_returnStatus => x_return_status);
535: if(x_return_status <> fnd_api.g_ret_sts_success) then
536: raise fnd_api.g_exc_unexpected_error;
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);
598: end if;
633: l_params(2).paramValue := p_operation_seq_num;
634: l_params(3).paramName := 'p_employee_id';
635: l_params(3).paramValue := p_employee_id;
636:
637: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.record_delete',
638: p_params => l_params,
639: x_returnStatus => x_return_status);
640: if(x_return_status <> fnd_api.g_ret_sts_success) then
641: raise fnd_api.g_exc_unexpected_error;
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);
701: end if;
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;
722:
723: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.job_off_internal',
724: p_params => l_params,
725: x_returnStatus => x_return_status);
726: if(x_return_status <> fnd_api.g_ret_sts_success) then
727: raise fnd_api.g_exc_unexpected_error;
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);
741: end if;
756: l_params(2).paramValue := p_operation_seq_num;
757: l_params(3).paramName := 'exclude_scheduled_flag';
758: l_params(3).paramValue := exclude_scheduled_flag;
759:
760: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.clock_out_labors',
761: p_params => l_params,
762: x_returnStatus => x_return_status);
763: if(x_return_status <> fnd_api.g_ret_sts_success) then
764: raise fnd_api.g_exc_unexpected_error;
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);
800: end if;
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;
859:
860: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.clock_out_machines',
861: p_params => l_params,
862: x_returnStatus => x_return_status);
863: if(x_return_status <> fnd_api.g_ret_sts_success) then
864: raise fnd_api.g_exc_unexpected_error;
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);
983: end if;
1329: l_params(3).paramValue := p_instance_id;
1330: l_params(4).paramName := 'p_time_entry_source';
1331: l_params(4).paramValue := p_time_entry_source;
1332:
1333: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.process_time_records',
1334: p_params => l_params,
1335: x_returnStatus => l_return_status);
1336: if(l_return_status <> fnd_api.g_ret_sts_success) then
1337: raise fnd_api.g_exc_unexpected_error;
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);
1570: end if;
1658: l_params(3).paramValue := p_resource_seq_num;
1659: l_params(4).paramName := 'p_time_entry_source';
1660: l_params(4).paramValue := p_time_entry_source;
1661:
1662: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.get_cost_flag',
1663: p_params => l_params,
1664: x_returnStatus => l_return_status);
1665: if(l_return_status <> fnd_api.g_ret_sts_success) then
1666: raise fnd_api.g_exc_unexpected_error;
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);
1719: end if;
1813: l_params(2).paramValue := p_operation_seq_num;
1814: l_params(3).paramName := 'p_resource_seq_num';
1815: l_params(3).paramValue := p_resource_seq_num;
1816:
1817: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.update_actual_start_dates',
1818: p_params => l_params,
1819: x_returnStatus => l_return_status);
1820: if(l_return_status <> fnd_api.g_ret_sts_success) then
1821: raise fnd_api.g_exc_unexpected_error;
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);
1874: end if;
1930: l_params(2).paramValue := p_operation_seq_num;
1931: l_params(3).paramName := 'p_resource_seq_num';
1932: l_params(3).paramValue := p_resource_seq_num;
1933:
1934: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.update_actual_completion_dates',
1935: p_params => l_params,
1936: x_returnStatus => l_return_status);
1937: if(l_return_status <> fnd_api.g_ret_sts_success) then
1938: raise fnd_api.g_exc_unexpected_error;
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);
1975: end if;
2001: l_params(5).paramValue := p_resource_id;
2002: l_params(6).paramName := 'p_start_date';
2003: l_params(6).paramValue := p_start_date;
2004:
2005: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.update_proj_completion_dates',
2006: p_params => l_params,
2007: x_returnStatus => l_return_status);
2008: if(l_return_status <> fnd_api.g_ret_sts_success) then
2009: raise fnd_api.g_exc_unexpected_error;
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);
2041: end if;
2117: l_params(2).paramValue := p_wip_entity_id;
2118: l_params(3).paramName := 'p_operation_seq_num';
2119: l_params(3).paramValue := p_operation_seq_num;
2120:
2121: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.job_on',
2122: p_params => l_params,
2123: x_returnStatus => l_status);
2124: if(l_status <> fnd_api.g_ret_sts_success) then
2125: raise fnd_api.g_exc_unexpected_error;
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);
2150: end if;
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;
2174:
2175: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.job_off',
2176: p_params => l_params,
2177: x_returnStatus => l_status);
2178: if(l_status <> fnd_api.g_ret_sts_success) then
2179: raise fnd_api.g_exc_unexpected_error;
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);
2217: end if;
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;
2302:
2303: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.shift_in',
2304: p_params => l_params,
2305: x_returnStatus => x_status);
2306: if(x_status <> fnd_api.g_ret_sts_success) then
2307: raise fnd_api.g_exc_unexpected_error;
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);
2367: end if;
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;
2399:
2400: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.shift_out',
2401: p_params => l_params,
2402: x_returnStatus => x_status);
2403: if(x_status <> fnd_api.g_ret_sts_success) then
2404: raise fnd_api.g_exc_unexpected_error;
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);
2445: end if;
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;
2474:
2475: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.undo_shift_in',
2476: p_params => l_params,
2477: x_returnStatus => x_status);
2478: if(x_status <> fnd_api.g_ret_sts_success) then
2479: raise fnd_api.g_exc_unexpected_error;
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);
2514: end if;
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;
2544:
2545: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.shift_in_UM',
2546: p_params => l_params,
2547: x_returnStatus => x_status);
2548: if(x_status <> fnd_api.g_ret_sts_success) then
2549: raise fnd_api.g_exc_unexpected_error;
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);
2599: end if;
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;
2630:
2631: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.shift_out_UM',
2632: p_params => l_params,
2633: x_returnStatus => x_status);
2634: if(x_status <> fnd_api.g_ret_sts_success) then
2635: raise fnd_api.g_exc_unexpected_error;
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);
2672: end if;
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;
2701:
2702: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.undo_shift_in_UM',
2703: p_params => l_params,
2704: x_returnStatus => x_status);
2705: if(x_status <> fnd_api.g_ret_sts_success) then
2706: raise fnd_api.g_exc_unexpected_error;
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);
2739: end if;
2848: l_params(7).paramValue := p_resource_id;
2849: l_params(8).paramName := 'p_resource_seq_num';
2850: l_params(8).paramValue := p_resource_seq_num;
2851:
2852: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.clock_in',
2853: p_params => l_params,
2854: x_returnStatus => x_status);
2855: if(x_status <> fnd_api.g_ret_sts_success) then
2856: raise fnd_api.g_exc_unexpected_error;
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);
3022: end if;
3080: l_params(7).paramValue := p_resource_id;
3081: l_params(8).paramName := 'p_resource_seq_num';
3082: l_params(8).paramValue := p_resource_seq_num;
3083:
3084: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.clock_out',
3085: p_params => l_params,
3086: x_returnStatus => x_status);
3087: if(x_status <> fnd_api.g_ret_sts_success) then
3088: raise fnd_api.g_exc_unexpected_error;
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);
3150: end if;
3186: l_params(7).paramValue := p_resource_id;
3187: l_params(8).paramName := 'p_resource_seq_num';
3188: l_params(8).paramValue := p_resource_seq_num;
3189:
3190: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.undo_clock_in',
3191: p_params => l_params,
3192: x_returnStatus => x_status);
3193: if(x_status <> fnd_api.g_ret_sts_success) then
3194: raise fnd_api.g_exc_unexpected_error;
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);
3227: end if;
3464: l_params(9).paramName := 'p_txn_uom';
3465: l_params(9).paramValue := p_txn_uom;
3466: l_params(10).paramName := 'p_hour_uom';
3467: l_params(10).paramValue := p_hour_uom;
3468: wip_logger.entryPoint(p_procName => 'WIP_WS_TIME_ENTRY.derive_insert_wcti',
3469: p_params => l_params,
3470: x_returnStatus => l_retStatus);
3471: end if;
3472:
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);
3907: wip_logger.cleanUp(x_returnStatus => l_retStatus);
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);
3919: wip_logger.cleanUp(x_returnStatus => l_retStatus);
4017: x_start_date := null;
4018: x_ret_status := fnd_api.G_RET_STS_UNEXP_ERROR;
4019: END get_cur_clocked_job;
4020:
4021: END WIP_WS_TIME_ENTRY;