[Home] [Help]
7: ||
8: -------------------------------------------------------------------------*/
9:
10: -- Global package name
11: g_debug BOOLEAN := hr_utility.debug_enabled;
12: g_package CONSTANT VARCHAR2 (33) := 'hxt_time_collection.';
13: g_cache BOOLEAN := TRUE;
14: g_max_tc_allowed PLS_INTEGER := fnd_profile.VALUE ('HXT_BATCH_SIZE');
15:
32: RETURN BOOLEAN
33: IS
34: l_proc VARCHAR2 (72);
35: BEGIN
36: g_debug := hr_utility.debug_enabled;
37:
38: IF g_debug
39: THEN
40: l_proc := g_package || 'cache';
37:
38: IF g_debug
39: THEN
40: l_proc := g_package || 'cache';
41: hr_utility.set_location ('Entering:' || l_proc, 10);
42: END IF;
43:
44: IF (g_cache)
45: THEN
44: IF (g_cache)
45: THEN
46: IF g_debug
47: THEN
48: hr_utility.set_location (' returning g_cache = TRUE', 20);
49: END IF;
50: ELSE
51: IF g_debug
52: THEN
49: END IF;
50: ELSE
51: IF g_debug
52: THEN
53: hr_utility.set_location (' returning g_cache = FALSE', 30);
54: END IF;
55: END IF;
56:
57: IF g_debug
55: END IF;
56:
57: IF g_debug
58: THEN
59: hr_utility.set_location ('Leaving:' || l_proc, 100);
60: END IF;
61:
62: RETURN g_cache;
63: END CACHE;
65: PROCEDURE set_cache (p_cache IN BOOLEAN)
66: IS
67: l_proc VARCHAR2 (72);
68: BEGIN
69: g_debug := hr_utility.debug_enabled;
70:
71: IF g_debug
72: THEN
73: l_proc := g_package || 'set_cache';
70:
71: IF g_debug
72: THEN
73: l_proc := g_package || 'set_cache';
74: hr_utility.set_location ('Entering:' || l_proc, 10);
75: END IF;
76:
77: IF (p_cache)
78: THEN
77: IF (p_cache)
78: THEN
79: IF g_debug
80: THEN
81: hr_utility.set_location (' setting g_cache to TRUE', 20);
82: END IF;
83: ELSE
84: IF g_debug
85: THEN
82: END IF;
83: ELSE
84: IF g_debug
85: THEN
86: hr_utility.set_location (' setting g_cache to FALSE', 30);
87: END IF;
88: END IF;
89:
90: g_cache := p_cache;
90: g_cache := p_cache;
91:
92: IF g_debug
93: THEN
94: hr_utility.set_location ('Leaving:' || l_proc, 100);
95: END IF;
96: END set_cache;
97:
98: FUNCTION round_time (p_time DATE, p_interval NUMBER, p_round_up NUMBER)
376: END IF;
377:
378: IF g_debug
379: THEN
380: hr_utility.TRACE ('Adding to g_otm_messages' || p_msg_name);
381: END IF;
382: END;
383:
384: -- p_mode IN VARCHAR2 default 'INSERT');
579: l_exists NUMBER := 0;
580:
581:
582: BEGIN
583: g_debug := hr_utility.debug_enabled;
584:
585: IF g_debug
586: THEN
587: l_proc := 'hxt_time_collection.RECORD_TIME';
584:
585: IF g_debug
586: THEN
587: l_proc := 'hxt_time_collection.RECORD_TIME';
588: hr_utility.set_location (l_proc, 10);
589: END IF;
590:
591: SAVEPOINT only_validate;
592:
591: SAVEPOINT only_validate;
592:
593: IF g_debug
594: THEN
595: hr_utility.set_location (l_proc, 20);
596: END IF;
597:
598: /* Initialize globals */
599: g_batch_ref := batch_ref;
604: g_login_id := fnd_global.login_id;
605:
606: IF g_debug
607: THEN
608: hr_utility.set_location (l_proc, 30);
609: END IF;
610:
611: /* Copy parameters to error variables */
612: e_timecard_source := timecard_source;
666: e_zip_code := p_zip_code;
667:
668: IF g_debug
669: THEN
670: hr_utility.TRACE ('Done INIT');
671: hr_utility.set_location (l_proc, 40);
672: END IF;
673:
674: /*Get Session Date*/
667:
668: IF g_debug
669: THEN
670: hr_utility.TRACE ('Done INIT');
671: hr_utility.set_location (l_proc, 40);
672: END IF;
673:
674: /*Get Session Date*/
675: l_retcode := hxt_tim_col_util.get_session_date (g_sess_date);
675: l_retcode := hxt_tim_col_util.get_session_date (g_sess_date);
676:
677: IF g_debug
678: THEN
679: hr_utility.TRACE ('l_retcode :' || l_retcode);
680: END IF;
681:
682: IF l_retcode = 1
683: THEN
682: IF l_retcode = 1
683: THEN
684: IF g_debug
685: THEN
686: hr_utility.set_location (l_proc, 50);
687: END IF;
688:
689: RAISE l_sess_date_err;
690: END IF;
690: END IF;
691:
692: IF g_debug
693: THEN
694: hr_utility.TRACE ('GOT SESS DATE');
695: END IF;
696:
697: -- Bug 7359347
698: -- We made some extensive code changes for this issue primarily
719: IF (time_summary_id IS NOT NULL) AND (dt_update_mode IS NULL)
720: THEN
721: IF g_debug
722: THEN
723: hr_utility.set_location (l_proc, 60);
724: END IF;
725:
726: RAISE l_dt_upt_mode_null_err;
727: END IF;
732: )
733: THEN
734: IF g_debug
735: THEN
736: hr_utility.set_location (l_proc, 70);
737: END IF;
738:
739: RAISE l_dt_update_mode_err;
740: END IF;
740: END IF;
741:
742: IF g_debug
743: THEN
744: hr_utility.TRACE ('VALID DT MODE');
745: hr_utility.set_location (l_proc, 80);
746: END IF;
747:
748: /* Validate time summary id */
741:
742: IF g_debug
743: THEN
744: hr_utility.TRACE ('VALID DT MODE');
745: hr_utility.set_location (l_proc, 80);
746: END IF;
747:
748: /* Validate time summary id */
749: IF time_summary_id IS NOT NULL
749: IF time_summary_id IS NOT NULL
750: THEN
751: IF g_debug
752: THEN
753: hr_utility.set_location (l_proc, 90);
754: END IF;
755:
756: l_retcode :=
757: hxt_tim_col_util.validate_time_summary_id (time_summary_id);
757: hxt_tim_col_util.validate_time_summary_id (time_summary_id);
758:
759: IF g_debug
760: THEN
761: hr_utility.TRACE ('l_retcode :' || l_retcode);
762: END IF;
763:
764: IF l_retcode = 1
765: THEN
764: IF l_retcode = 1
765: THEN
766: IF g_debug
767: THEN
768: hr_utility.set_location (l_proc, 100);
769: END IF;
770:
771: RAISE l_time_summary_id_data_err;
772: ELSIF l_retcode = 2
772: ELSIF l_retcode = 2
773: THEN
774: IF g_debug
775: THEN
776: hr_utility.set_location (l_proc, 110);
777: END IF;
778:
779: RAISE l_time_summary_id_sys_err;
780: END IF;
781: END IF;
782:
783: IF g_debug
784: THEN
785: hr_utility.set_location (l_proc, 120);
786: END IF;
787:
788: /* Check for and perform any deletes */
789: IF delete_yn = 'Y' AND time_summary_id IS NOT NULL
789: IF delete_yn = 'Y' AND time_summary_id IS NOT NULL
790: THEN
791: IF g_debug
792: THEN
793: hr_utility.set_location (l_proc, 130);
794: END IF;
795:
796: l_retcode := delete_summary_record (time_summary_id);
797:
796: l_retcode := delete_summary_record (time_summary_id);
797:
798: IF g_debug
799: THEN
800: hr_utility.TRACE ('l_retcode :' || l_retcode);
801: END IF;
802:
803: IF l_retcode = 1
804: THEN
803: IF l_retcode = 1
804: THEN
805: IF g_debug
806: THEN
807: hr_utility.set_location (l_proc, 140);
808: END IF;
809:
810: RAISE l_delete_sys_error;
811: END IF;
811: END IF;
812:
813: IF g_debug
814: THEN
815: hr_utility.set_location (l_proc, 150);
816: END IF;
817:
818: RAISE l_delete_finished;
819: END IF;
822: /* If there are start and end times derive date from them */
823: /* otherwise use date_worked parameter value. */
824: IF g_debug
825: THEN
826: hr_utility.TRACE ('date_worked :' || date_worked);
827: hr_utility.TRACE ('start_time :' || start_time);
828: hr_utility.TRACE ('end_time :' || end_time);
829: END IF;
830:
823: /* otherwise use date_worked parameter value. */
824: IF g_debug
825: THEN
826: hr_utility.TRACE ('date_worked :' || date_worked);
827: hr_utility.TRACE ('start_time :' || start_time);
828: hr_utility.TRACE ('end_time :' || end_time);
829: END IF;
830:
831: IF start_time IS NOT NULL OR end_time IS NOT NULL
824: IF g_debug
825: THEN
826: hr_utility.TRACE ('date_worked :' || date_worked);
827: hr_utility.TRACE ('start_time :' || start_time);
828: hr_utility.TRACE ('end_time :' || end_time);
829: END IF;
830:
831: IF start_time IS NOT NULL OR end_time IS NOT NULL
832: THEN
831: IF start_time IS NOT NULL OR end_time IS NOT NULL
832: THEN
833: IF g_debug
834: THEN
835: hr_utility.set_location (l_proc, 160);
836: END IF;
837:
838: IF start_time IS NULL OR end_time IS NULL
839: THEN
838: IF start_time IS NULL OR end_time IS NULL
839: THEN
840: IF g_debug
841: THEN
842: hr_utility.set_location (l_proc, 170);
843: END IF;
844:
845: RAISE l_start_end_data_err;
846: ELSE
845: RAISE l_start_end_data_err;
846: ELSE
847: IF g_debug
848: THEN
849: hr_utility.set_location (l_proc, 180);
850: END IF;
851:
852: l_retcode :=
853: hxt_tim_col_util.determine_pay_date (start_time,
859: IF l_retcode = 1
860: THEN
861: IF g_debug
862: THEN
863: hr_utility.set_location (l_proc, 190);
864: END IF;
865:
866: RAISE l_pay_date_data_err;
867: ELSIF l_retcode = 2
867: ELSIF l_retcode = 2
868: THEN
869: IF g_debug
870: THEN
871: hr_utility.set_location (l_proc, 200);
872: END IF;
873:
874: RAISE l_pay_date_sys_err;
875: END IF;
875: END IF;
876:
877: IF g_debug
878: THEN
879: hr_utility.set_location (l_proc, 210);
880: END IF;
881:
882: /* Calcualte hours worked */
883: l_hours := 24
884: * (TRUNC (end_time, 'MI') - TRUNC (start_time, 'MI'));
885:
886: IF g_debug
887: THEN
888: hr_utility.TRACE ('l_hours :' || l_hours);
889: END IF;
890: END IF;
891: ELSIF date_worked IS NOT NULL
892: THEN
891: ELSIF date_worked IS NOT NULL
892: THEN
893: IF g_debug
894: THEN
895: hr_utility.set_location (l_proc, 220);
896: hr_utility.TRACE ('DATE WORKED is not null');
897: END IF;
898:
899: l_date_worked := date_worked;
892: THEN
893: IF g_debug
894: THEN
895: hr_utility.set_location (l_proc, 220);
896: hr_utility.TRACE ('DATE WORKED is not null');
897: END IF;
898:
899: l_date_worked := date_worked;
900:
899: l_date_worked := date_worked;
900:
901: IF g_debug
902: THEN
903: hr_utility.TRACE ('l_date_worked :' || l_date_worked);
904: hr_utility.TRACE ('TRUNC(date_worked) :' || TRUNC (date_worked));
905: END IF;
906:
907: IF date_worked <> TRUNC (date_worked)
900:
901: IF g_debug
902: THEN
903: hr_utility.TRACE ('l_date_worked :' || l_date_worked);
904: hr_utility.TRACE ('TRUNC(date_worked) :' || TRUNC (date_worked));
905: END IF;
906:
907: IF date_worked <> TRUNC (date_worked)
908: THEN
907: IF date_worked <> TRUNC (date_worked)
908: THEN
909: IF g_debug
910: THEN
911: hr_utility.set_location (l_proc, 230);
912: END IF;
913:
914: RAISE l_date_worked_time_err;
915: END IF;
915: END IF;
916:
917: IF g_debug
918: THEN
919: hr_utility.set_location (l_proc, 240);
920: hr_utility.TRACE ('hours :' || hours);
921: END IF;
922:
923: IF hours IS NOT NULL
916:
917: IF g_debug
918: THEN
919: hr_utility.set_location (l_proc, 240);
920: hr_utility.TRACE ('hours :' || hours);
921: END IF;
922:
923: IF hours IS NOT NULL
924: THEN
923: IF hours IS NOT NULL
924: THEN
925: IF g_debug
926: THEN
927: hr_utility.set_location (l_proc, 250);
928: END IF;
929:
930: l_hours := hours;
931:
932: -- Removed for bug 3868006
933: -- ELSE
934: IF g_debug
935: THEN
936: hr_utility.set_location (l_proc, 260);
937: END IF;
938: -- RAISE l_hours_null_data_err;
939: END IF;
940:
939: END IF;
940:
941: IF g_debug
942: THEN
943: hr_utility.set_location (l_proc, 270);
944: END IF;
945: ELSIF date_worked IS NULL
946: THEN
947: IF g_debug
945: ELSIF date_worked IS NULL
946: THEN
947: IF g_debug
948: THEN
949: hr_utility.set_location (l_proc, 280);
950: END IF;
951:
952: RAISE l_no_time_data_err;
953: END IF;
953: END IF;
954:
955: IF g_debug
956: THEN
957: hr_utility.set_location (l_proc, 290);
958: END IF;
959:
960: /* Obtain person id from user exit if call not from the time store */
961: IF timecard_source <> 'Time Store'
961: IF timecard_source <> 'Time Store'
962: THEN
963: IF g_debug
964: THEN
965: hr_utility.set_location (l_proc, 300);
966: END IF;
967:
968: l_retcode :=
969: hxt_tim_col_util.get_person_id (employee_number,
975: );
976:
977: IF g_debug
978: THEN
979: hr_utility.set_location (l_proc, 310);
980: END IF;
981:
982: IF l_retcode = 1
983: THEN
982: IF l_retcode = 1
983: THEN
984: IF g_debug
985: THEN
986: hr_utility.set_location (l_proc, 320);
987: END IF;
988:
989: RAISE l_person_id_data_err;
990: ELSIF l_retcode = 2
990: ELSIF l_retcode = 2
991: THEN
992: IF g_debug
993: THEN
994: hr_utility.set_location (l_proc, 330);
995: END IF;
996:
997: RAISE l_person_id_sys_err;
998: END IF;
998: END IF;
999: ELSE
1000: IF g_debug
1001: THEN
1002: hr_utility.set_location (l_proc, 340);
1003: END IF;
1004:
1005: l_person_id := TO_NUMBER (employee_number);
1006:
1005: l_person_id := TO_NUMBER (employee_number);
1006:
1007: IF g_debug
1008: THEN
1009: hr_utility.TRACE ('l_person_id :' || l_person_id);
1010: END IF;
1011:
1012: SELECT last_name, first_name
1013: INTO l_last_name, l_first_name
1016: AND l_date_worked BETWEEN effective_start_date AND effective_end_date;
1017:
1018: IF g_debug
1019: THEN
1020: hr_utility.TRACE ('l_last_name :' || l_last_name);
1021: hr_utility.TRACE ('l_first_name:' || l_first_name);
1022: END IF;
1023: END IF;
1024:
1017:
1018: IF g_debug
1019: THEN
1020: hr_utility.TRACE ('l_last_name :' || l_last_name);
1021: hr_utility.TRACE ('l_first_name:' || l_first_name);
1022: END IF;
1023: END IF;
1024:
1025: IF g_debug
1023: END IF;
1024:
1025: IF g_debug
1026: THEN
1027: hr_utility.set_location (l_proc, 350);
1028: hr_utility.TRACE ('Person ID is ' || TO_CHAR (l_person_id));
1029: END IF;
1030:
1031: /*Obtain vital employee information*/
1024:
1025: IF g_debug
1026: THEN
1027: hr_utility.set_location (l_proc, 350);
1028: hr_utility.TRACE ('Person ID is ' || TO_CHAR (l_person_id));
1029: END IF;
1030:
1031: /*Obtain vital employee information*/
1032: BEGIN
1031: /*Obtain vital employee information*/
1032: BEGIN
1033: IF g_debug
1034: THEN
1035: hr_utility.set_location (l_proc, 360);
1036: END IF;
1037:
1038: OPEN g_employee_cur (l_person_id, l_date_worked);
1039:
1045: WHEN NO_DATA_FOUND
1046: THEN
1047: IF g_debug
1048: THEN
1049: hr_utility.set_location (l_proc, 370);
1050: END IF;
1051:
1052: l_retcode := 1;
1053: RAISE l_assign_id_data_err;
1054: WHEN OTHERS
1055: THEN
1056: IF g_debug
1057: THEN
1058: hr_utility.set_location (l_proc, 380);
1059: END IF;
1060:
1061: l_retcode := 2;
1062: RAISE l_assign_id_sys_err;
1063: END;
1064:
1065: IF g_debug
1066: THEN
1067: hr_utility.set_location (l_proc, 390);
1068: hr_utility.TRACE ('Got emp info');
1069: END IF;
1070:
1071: /* Obtain person id for APPROVER_NUMBER from user exit */
1064:
1065: IF g_debug
1066: THEN
1067: hr_utility.set_location (l_proc, 390);
1068: hr_utility.TRACE ('Got emp info');
1069: END IF;
1070:
1071: /* Obtain person id for APPROVER_NUMBER from user exit */
1072: IF approver_number IS NOT NULL
1072: IF approver_number IS NOT NULL
1073: THEN
1074: IF g_debug
1075: THEN
1076: hr_utility.set_location (l_proc, 400);
1077: END IF;
1078:
1079: l_retcode :=
1080: hxt_tim_col_util.get_person_id (approver_number,
1086: );
1087:
1088: IF g_debug
1089: THEN
1090: hr_utility.TRACE ('l_retcode :' || l_retcode);
1091: END IF;
1092:
1093: IF l_retcode = 1
1094: THEN
1093: IF l_retcode = 1
1094: THEN
1095: IF g_debug
1096: THEN
1097: hr_utility.set_location (l_proc, 410);
1098: END IF;
1099:
1100: RAISE l_appr_id_data_err;
1101: ELSIF l_retcode = 2
1101: ELSIF l_retcode = 2
1102: THEN
1103: IF g_debug
1104: THEN
1105: hr_utility.set_location (l_proc, 420);
1106: END IF;
1107:
1108: RAISE l_appr_id_sys_err;
1109: END IF;
1109: END IF;
1110:
1111: IF g_debug
1112: THEN
1113: hr_utility.set_location (l_proc, 430);
1114: END IF;
1115: END IF;
1116:
1117: /* Validate the timecard source */
1116:
1117: /* Validate the timecard source */
1118: IF g_debug
1119: THEN
1120: hr_utility.set_location (l_proc, 440);
1121: hr_utility.TRACE ('BEFORE VALID TIMECARD SOURCE');
1122: END IF;
1123:
1124: l_retcode :=
1117: /* Validate the timecard source */
1118: IF g_debug
1119: THEN
1120: hr_utility.set_location (l_proc, 440);
1121: hr_utility.TRACE ('BEFORE VALID TIMECARD SOURCE');
1122: END IF;
1123:
1124: l_retcode :=
1125: hxt_tim_col_util.validate_timecard_source (timecard_source,
1128: );
1129:
1130: IF g_debug
1131: THEN
1132: hr_utility.TRACE ('l_retcode :' || l_retcode);
1133: END IF;
1134:
1135: IF l_retcode = 1
1136: THEN
1135: IF l_retcode = 1
1136: THEN
1137: IF g_debug
1138: THEN
1139: hr_utility.set_location (l_proc, 450);
1140: END IF;
1141:
1142: RAISE l_tim_src_data_err;
1143: ELSIF l_retcode = 2
1143: ELSIF l_retcode = 2
1144: THEN
1145: IF g_debug
1146: THEN
1147: hr_utility.set_location (l_proc, 460);
1148: END IF;
1149:
1150: RAISE l_tim_src_sys_err;
1151: END IF;
1151: END IF;
1152:
1153: IF g_debug
1154: THEN
1155: hr_utility.set_location (l_proc, 470);
1156: hr_utility.TRACE ('VALID TIMECARD SOURCE');
1157: END IF;
1158:
1159: /*Obtain element type id */
1152:
1153: IF g_debug
1154: THEN
1155: hr_utility.set_location (l_proc, 470);
1156: hr_utility.TRACE ('VALID TIMECARD SOURCE');
1157: END IF;
1158:
1159: /*Obtain element type id */
1160: IF g_debug
1158:
1159: /*Obtain element type id */
1160: IF g_debug
1161: THEN
1162: hr_utility.TRACE ('hours_type :' || hours_type);
1163: END IF;
1164:
1165: IF hours_type IS NOT NULL
1166: THEN
1165: IF hours_type IS NOT NULL
1166: THEN
1167: IF g_debug
1168: THEN
1169: hr_utility.set_location (l_proc, 480);
1170: END IF;
1171:
1172: l_retcode :=
1173: hxt_tim_col_util.get_element_type_id (hours_type,
1177: );
1178:
1179: IF g_debug
1180: THEN
1181: hr_utility.TRACE ('l_retcode :' || l_retcode);
1182: END IF;
1183:
1184: IF l_retcode = 1
1185: THEN
1184: IF l_retcode = 1
1185: THEN
1186: IF g_debug
1187: THEN
1188: hr_utility.set_location (l_proc, 490);
1189: END IF;
1190:
1191: RAISE l_elem_type_data_err;
1192: ELSIF l_retcode = 2
1192: ELSIF l_retcode = 2
1193: THEN
1194: IF g_debug
1195: THEN
1196: hr_utility.set_location (l_proc, 500);
1197: END IF;
1198:
1199: RAISE l_elem_type_sys_err;
1200: END IF;
1201:
1202: --
1203: IF g_debug
1204: THEN
1205: hr_utility.TRACE ('element type id is ' || l_element_type_id);
1206: END IF;
1207:
1208: --
1209: -- Check Element Link eligibility
1209: -- Check Element Link eligibility
1210: --
1211: IF g_debug
1212: THEN
1213: hr_utility.set_location (l_proc, 510);
1214: END IF;
1215:
1216: l_retcode :=
1217: hxt_tim_col_util.chk_element_link
1221: );
1222:
1223: IF g_debug
1224: THEN
1225: hr_utility.TRACE ('l_retcode :' || l_retcode);
1226: END IF;
1227:
1228: IF l_retcode = 1
1229: THEN
1228: IF l_retcode = 1
1229: THEN
1230: IF g_debug
1231: THEN
1232: hr_utility.set_location (l_proc, 520);
1233: END IF;
1234:
1235: RAISE l_elem_link_data_err;
1236: ELSIF l_retcode = 2
1236: ELSIF l_retcode = 2
1237: THEN
1238: IF g_debug
1239: THEN
1240: hr_utility.set_location (l_proc, 530);
1241: END IF;
1242:
1243: RAISE l_elem_link_sys_err;
1244: END IF;
1245:
1246: --
1247: IF g_debug
1248: THEN
1249: hr_utility.set_location (l_proc, 540);
1250: END IF;
1251: END IF;
1252:
1253: --
1252:
1253: --
1254: IF g_debug
1255: THEN
1256: hr_utility.TRACE ('element link id is ' || l_element_type_id);
1257: END IF;
1258:
1259: --
1260:
1262: to 'l_hours' in case user entered in/out times */
1263:
1264: /* Bring API in line with Timecard behavior. 15-AUG-2001 AI
1265: IF amount IS NOT NULL THEN
1266: hr_utility.set_location(l_proc, 550);
1267: -- 05-APR-00 PWM IF hours IS NULL THEN
1268:
1269: IF l_hours <> 0 THEN -- 05-APR-00 PWM Hours and Amounts are exclusive
1270: hr_utility.set_location(l_proc, 560);
1266: hr_utility.set_location(l_proc, 550);
1267: -- 05-APR-00 PWM IF hours IS NULL THEN
1268:
1269: IF l_hours <> 0 THEN -- 05-APR-00 PWM Hours and Amounts are exclusive
1270: hr_utility.set_location(l_proc, 560);
1271: RAISE l_hours_amount_data_err;
1272: ELSIF l_hours = 0 AND l_element_type_id IS NULL THEN
1273: hr_utility.set_location(l_proc, 570);
1274: RAISE l_amt_hrs_elmnt_data_err;
1269: IF l_hours <> 0 THEN -- 05-APR-00 PWM Hours and Amounts are exclusive
1270: hr_utility.set_location(l_proc, 560);
1271: RAISE l_hours_amount_data_err;
1272: ELSIF l_hours = 0 AND l_element_type_id IS NULL THEN
1273: hr_utility.set_location(l_proc, 570);
1274: RAISE l_amt_hrs_elmnt_data_err;
1275: END IF;
1276: -- ELSIF l_hours IS NOT NULL THEN PWM 05-APR-00
1277:
1275: END IF;
1276: -- ELSIF l_hours IS NOT NULL THEN PWM 05-APR-00
1277:
1278: ELSE
1279: hr_utility.set_location(l_proc, 580);
1280: IF l_hours = 0 THEN
1281: hr_utility.set_location(l_proc, 590);
1282: RAISE l_amt_hrs_zero_data_err;
1283: END IF;
1277:
1278: ELSE
1279: hr_utility.set_location(l_proc, 580);
1280: IF l_hours = 0 THEN
1281: hr_utility.set_location(l_proc, 590);
1282: RAISE l_amt_hrs_zero_data_err;
1283: END IF;
1284: hr_utility.set_location(l_proc, 600);
1285: END IF;
1280: IF l_hours = 0 THEN
1281: hr_utility.set_location(l_proc, 590);
1282: RAISE l_amt_hrs_zero_data_err;
1283: END IF;
1284: hr_utility.set_location(l_proc, 600);
1285: END IF;
1286: */
1287:
1288: /* Validate Wage Code */
1289: IF wage_code IS NOT NULL
1290: THEN
1291: IF g_debug
1292: THEN
1293: hr_utility.set_location (l_proc, 610);
1294: END IF;
1295:
1296: l_retcode :=
1297: hxt_tim_col_util.validate_wage_code (wage_code, l_date_worked);
1297: hxt_tim_col_util.validate_wage_code (wage_code, l_date_worked);
1298:
1299: IF g_debug
1300: THEN
1301: hr_utility.TRACE ('l_retcode :' || l_retcode);
1302: END IF;
1303:
1304: IF l_retcode = 1
1305: THEN
1304: IF l_retcode = 1
1305: THEN
1306: IF g_debug
1307: THEN
1308: hr_utility.set_location (l_proc, 620);
1309: END IF;
1310:
1311: RAISE l_prev_wage_data_err;
1312: ELSIF l_retcode = 2
1312: ELSIF l_retcode = 2
1313: THEN
1314: IF g_debug
1315: THEN
1316: hr_utility.set_location (l_proc, 630);
1317: END IF;
1318:
1319: RAISE l_prev_wage_sys_err;
1320: END IF;
1320: END IF;
1321:
1322: IF g_debug
1323: THEN
1324: hr_utility.set_location (l_proc, 640);
1325: END IF;
1326: END IF;
1327:
1328: /* Get Earning Policy Id - If null get based on assignment, otherwise, */
1328: /* Get Earning Policy Id - If null get based on assignment, otherwise, */
1329: /* get override policy id. */
1330: IF g_debug
1331: THEN
1332: hr_utility.set_location (l_proc, 650);
1333: END IF;
1334:
1335: l_retcode :=
1336: hxt_tim_col_util.get_earn_pol_id (l_emp_rec.assignment_id,
1340: );
1341:
1342: IF g_debug
1343: THEN
1344: hr_utility.TRACE ('l_retcode :' || l_retcode);
1345: END IF;
1346:
1347: IF l_retcode = 1
1348: THEN
1347: IF l_retcode = 1
1348: THEN
1349: IF g_debug
1350: THEN
1351: hr_utility.set_location (l_proc, 660);
1352: END IF;
1353:
1354: RAISE l_earn_pol_data_err;
1355: ELSIF l_retcode = 2
1355: ELSIF l_retcode = 2
1356: THEN
1357: IF g_debug
1358: THEN
1359: hr_utility.set_location (l_proc, 670);
1360: END IF;
1361:
1362: RAISE l_earn_pol_sys_err;
1363: END IF;
1363: END IF;
1364:
1365: IF g_debug
1366: THEN
1367: hr_utility.TRACE ('earning policy id is ' || l_earn_pol_id);
1368: hr_utility.set_location (l_proc, 680);
1369: END IF;
1370:
1371: /* Obtain project id */
1364:
1365: IF g_debug
1366: THEN
1367: hr_utility.TRACE ('earning policy id is ' || l_earn_pol_id);
1368: hr_utility.set_location (l_proc, 680);
1369: END IF;
1370:
1371: /* Obtain project id */
1372: IF g_debug
1370:
1371: /* Obtain project id */
1372: IF g_debug
1373: THEN
1374: hr_utility.TRACE ('project :' || project);
1375: END IF;
1376:
1377: IF project IS NOT NULL
1378: THEN
1377: IF project IS NOT NULL
1378: THEN
1379: IF g_debug
1380: THEN
1381: hr_utility.set_location (l_proc, 680);
1382: END IF;
1383:
1384: l_retcode :=
1385: hxt_tim_col_util.get_project_id (project,
1388: );
1389:
1390: IF g_debug
1391: THEN
1392: hr_utility.TRACE ('l_retcode :' || l_retcode);
1393: END IF;
1394:
1395: IF l_retcode = 1
1396: THEN
1395: IF l_retcode = 1
1396: THEN
1397: IF g_debug
1398: THEN
1399: hr_utility.set_location (l_proc, 690);
1400: END IF;
1401:
1402: RAISE l_proj_id_data_err;
1403: ELSIF l_retcode = 2
1403: ELSIF l_retcode = 2
1404: THEN
1405: IF g_debug
1406: THEN
1407: hr_utility.set_location (l_proc, 700);
1408: END IF;
1409:
1410: RAISE l_proj_id_sys_err;
1411: END IF;
1411: END IF;
1412:
1413: IF g_debug
1414: THEN
1415: hr_utility.set_location (l_proc, 710);
1416: END IF;
1417: END IF;
1418:
1419: /*Obtain task id */
1418:
1419: /*Obtain task id */
1420: IF g_debug
1421: THEN
1422: hr_utility.TRACE ('task_number :' || task_number);
1423: END IF;
1424:
1425: IF task_number IS NOT NULL
1426: THEN
1425: IF task_number IS NOT NULL
1426: THEN
1427: IF g_debug
1428: THEN
1429: hr_utility.set_location (l_proc, 720);
1430: END IF;
1431:
1432: l_retcode :=
1433: hxt_tim_col_util.get_task_id (task_number,
1437: );
1438:
1439: IF g_debug
1440: THEN
1441: hr_utility.TRACE ('l_retcode :' || l_retcode);
1442: END IF;
1443:
1444: IF l_retcode = 1
1445: THEN
1444: IF l_retcode = 1
1445: THEN
1446: IF g_debug
1447: THEN
1448: hr_utility.set_location (l_proc, 730);
1449: END IF;
1450:
1451: RAISE l_task_id_data_err;
1452: ELSIF l_retcode = 2
1452: ELSIF l_retcode = 2
1453: THEN
1454: IF g_debug
1455: THEN
1456: hr_utility.set_location (l_proc, 740);
1457: END IF;
1458:
1459: RAISE l_task_id_sys_err;
1460: END IF;
1460: END IF;
1461:
1462: IF g_debug
1463: THEN
1464: hr_utility.set_location (l_proc, 750);
1465: END IF;
1466: END IF;
1467:
1468: /*Obtain location id */
1467:
1468: /*Obtain location id */
1469: IF g_debug
1470: THEN
1471: hr_utility.TRACE ('location_code :' || location_code);
1472: END IF;
1473:
1474: IF location_code IS NOT NULL
1475: THEN
1474: IF location_code IS NOT NULL
1475: THEN
1476: IF g_debug
1477: THEN
1478: hr_utility.set_location (l_proc, 760);
1479: END IF;
1480:
1481: l_retcode :=
1482: hxt_tim_col_util.get_location_id (location_code,
1485: );
1486:
1487: IF g_debug
1488: THEN
1489: hr_utility.TRACE ('l_retcode :' || l_retcode);
1490: END IF;
1491:
1492: IF l_retcode = 1
1493: THEN
1492: IF l_retcode = 1
1493: THEN
1494: IF g_debug
1495: THEN
1496: hr_utility.set_location (l_proc, 770);
1497: END IF;
1498:
1499: RAISE l_locn_id_data_err;
1500: ELSIF l_retcode = 2
1500: ELSIF l_retcode = 2
1501: THEN
1502: IF g_debug
1503: THEN
1504: hr_utility.set_location (l_proc, 780);
1505: END IF;
1506:
1507: RAISE l_locn_id_sys_err;
1508: END IF;
1508: END IF;
1509:
1510: IF g_debug
1511: THEN
1512: hr_utility.set_location (l_proc, 790);
1513: END IF;
1514: END IF;
1515:
1516: /* Validate earn reason code */
1515:
1516: /* Validate earn reason code */
1517: IF g_debug
1518: THEN
1519: hr_utility.TRACE ('earn_reason_code :' || earn_reason_code);
1520: END IF;
1521:
1522: IF earn_reason_code IS NOT NULL
1523: THEN
1522: IF earn_reason_code IS NOT NULL
1523: THEN
1524: IF g_debug
1525: THEN
1526: hr_utility.set_location (l_proc, 800);
1527: END IF;
1528:
1529: l_retcode :=
1530: hxt_tim_col_util.validate_earn_reason_code (earn_reason_code,
1533:
1534: -- l_element_type_id );
1535: IF g_debug
1536: THEN
1537: hr_utility.TRACE ('l_retcode :' || l_retcode);
1538: END IF;
1539:
1540: IF l_retcode = 1
1541: THEN
1540: IF l_retcode = 1
1541: THEN
1542: IF g_debug
1543: THEN
1544: hr_utility.set_location (l_proc, 810);
1545: END IF;
1546:
1547: RAISE l_hours_reason_data_err;
1548: ELSIF l_retcode = 2
1548: ELSIF l_retcode = 2
1549: THEN
1550: IF g_debug
1551: THEN
1552: hr_utility.set_location (l_proc, 820);
1553: END IF;
1554:
1555: RAISE l_reason_code_data_err;
1556: ELSIF l_retcode = 3
1556: ELSIF l_retcode = 3
1557: THEN
1558: IF g_debug
1559: THEN
1560: hr_utility.set_location (l_proc, 830);
1561: END IF;
1562:
1563: RAISE l_reason_code_sys_err;
1564: END IF;
1564: END IF;
1565:
1566: IF g_debug
1567: THEN
1568: hr_utility.set_location (l_proc, 840);
1569: END IF;
1570: END IF;
1571:
1572: /* Validate separate check flag */
1571:
1572: /* Validate separate check flag */
1573: IF g_debug
1574: THEN
1575: hr_utility.TRACE ('separate_check_flag :' || separate_check_flag);
1576: END IF;
1577:
1578: IF separate_check_flag IS NOT NULL
1579: THEN
1578: IF separate_check_flag IS NOT NULL
1579: THEN
1580: IF g_debug
1581: THEN
1582: hr_utility.set_location (l_proc, 850);
1583: END IF;
1584:
1585: l_sep_chk_flg := separate_check_flag;
1586: l_retcode :=
1587: hxt_tim_col_util.validate_separate_chk_flg (l_sep_chk_flg);
1588:
1589: IF g_debug
1590: THEN
1591: hr_utility.TRACE ('l_sep_chk_flg :' || l_sep_chk_flg);
1592: hr_utility.TRACE ('l_retcode :' || l_retcode);
1593: END IF;
1594:
1595: IF l_retcode = 1
1588:
1589: IF g_debug
1590: THEN
1591: hr_utility.TRACE ('l_sep_chk_flg :' || l_sep_chk_flg);
1592: hr_utility.TRACE ('l_retcode :' || l_retcode);
1593: END IF;
1594:
1595: IF l_retcode = 1
1596: THEN
1595: IF l_retcode = 1
1596: THEN
1597: IF g_debug
1598: THEN
1599: hr_utility.set_location (l_proc, 860);
1600: END IF;
1601:
1602: RAISE l_sep_chk_flg_data_err;
1603: END IF;
1603: END IF;
1604:
1605: IF g_debug
1606: THEN
1607: hr_utility.set_location (l_proc, 870);
1608: END IF;
1609: END IF;
1610:
1611: /*Obtain the current time period id for this payroll and date*/
1610:
1611: /*Obtain the current time period id for this payroll and date*/
1612: IF g_debug
1613: THEN
1614: hr_utility.set_location (l_proc, 880);
1615: END IF;
1616:
1617: l_retcode :=
1618: get_time_period (l_emp_rec.payroll_id,
1623: );
1624:
1625: IF g_debug
1626: THEN
1627: hr_utility.TRACE ('l_start_date :' || l_start_date);
1628: hr_utility.TRACE ('l_end_date :' || l_end_date);
1629: hr_utility.TRACE ('l_retcode :' || l_retcode);
1630: END IF;
1631:
1624:
1625: IF g_debug
1626: THEN
1627: hr_utility.TRACE ('l_start_date :' || l_start_date);
1628: hr_utility.TRACE ('l_end_date :' || l_end_date);
1629: hr_utility.TRACE ('l_retcode :' || l_retcode);
1630: END IF;
1631:
1632: IF l_retcode = 1
1625: IF g_debug
1626: THEN
1627: hr_utility.TRACE ('l_start_date :' || l_start_date);
1628: hr_utility.TRACE ('l_end_date :' || l_end_date);
1629: hr_utility.TRACE ('l_retcode :' || l_retcode);
1630: END IF;
1631:
1632: IF l_retcode = 1
1633: THEN
1632: IF l_retcode = 1
1633: THEN
1634: IF g_debug
1635: THEN
1636: hr_utility.set_location (l_proc, 890);
1637: END IF;
1638:
1639: RAISE l_time_per_data_err;
1640: ELSIF l_retcode = 2
1640: ELSIF l_retcode = 2
1641: THEN
1642: IF g_debug
1643: THEN
1644: hr_utility.set_location (l_proc, 900);
1645: END IF;
1646:
1647: RAISE l_time_per_sys_err;
1648: END IF;
1650: g_time_period_err_id := l_time_period_id;
1651:
1652: IF g_debug
1653: THEN
1654: hr_utility.TRACE ('Time Period id is ' || l_time_period_id);
1655: END IF;
1656:
1657: /*Determine effective start date*/
1658: IF g_debug
1656:
1657: /*Determine effective start date*/
1658: IF g_debug
1659: THEN
1660: hr_utility.set_location (l_proc, 910);
1661: END IF;
1662:
1663: --Bug#2995224
1664: -- IF l_emp_rec.effective_start_date > l_start_date
1662:
1663: --Bug#2995224
1664: -- IF l_emp_rec.effective_start_date > l_start_date
1665: -- THEN
1666: -- hr_utility.set_location (l_proc, 920);
1667: -- l_start_date := l_emp_rec.effective_start_date;
1668: -- END IF;
1669:
1670: -- IF l_emp_rec.effective_end_date < l_end_date
1668: -- END IF;
1669:
1670: -- IF l_emp_rec.effective_end_date < l_end_date
1671: -- THEN
1672: -- hr_utility.set_location (l_proc, 930);
1673: -- l_end_date := l_emp_rec.effective_end_date;
1674: -- END IF;
1675:
1676: /*Make cost allocation entry. */
1675:
1676: /*Make cost allocation entry. */
1677: IF g_debug
1678: THEN
1679: hr_utility.set_location (l_proc, 940);
1680: END IF;
1681:
1682: cost_allocation_entry (concat_cost_segments,
1683: cost_segment1,
1717: );
1718:
1719: IF g_debug
1720: THEN
1721: hr_utility.TRACE ('Cost Alloc entry made ');
1722: END IF;
1723:
1724: -----------------------------------------------------------------------------
1725: /*Check for an existing timecard */
1724: -----------------------------------------------------------------------------
1725: /*Check for an existing timecard */
1726: IF g_debug
1727: THEN
1728: hr_utility.set_location (l_proc, 950);
1729: hr_utility.TRACE ('calling check_for_timecard');
1730: END IF;
1731:
1732: l_retcode :=
1725: /*Check for an existing timecard */
1726: IF g_debug
1727: THEN
1728: hr_utility.set_location (l_proc, 950);
1729: hr_utility.TRACE ('calling check_for_timecard');
1730: END IF;
1731:
1732: l_retcode :=
1733: check_for_timecard (l_person_id,
1737: );
1738:
1739: IF g_debug
1740: THEN
1741: hr_utility.TRACE ('after call to check_for_timecard');
1742: hr_utility.TRACE ('l_retcode :' || l_retcode);
1743: hr_utility.TRACE ('l_timecard_id :' || l_timecard_id);
1744: hr_utility.TRACE ('l_auto_gen_flag :' || l_auto_gen_flag);
1745: hr_utility.TRACE ('l_retcode :' || l_retcode);
1738:
1739: IF g_debug
1740: THEN
1741: hr_utility.TRACE ('after call to check_for_timecard');
1742: hr_utility.TRACE ('l_retcode :' || l_retcode);
1743: hr_utility.TRACE ('l_timecard_id :' || l_timecard_id);
1744: hr_utility.TRACE ('l_auto_gen_flag :' || l_auto_gen_flag);
1745: hr_utility.TRACE ('l_retcode :' || l_retcode);
1746: hr_utility.set_location (l_proc, 960);
1739: IF g_debug
1740: THEN
1741: hr_utility.TRACE ('after call to check_for_timecard');
1742: hr_utility.TRACE ('l_retcode :' || l_retcode);
1743: hr_utility.TRACE ('l_timecard_id :' || l_timecard_id);
1744: hr_utility.TRACE ('l_auto_gen_flag :' || l_auto_gen_flag);
1745: hr_utility.TRACE ('l_retcode :' || l_retcode);
1746: hr_utility.set_location (l_proc, 960);
1747: END IF;
1740: THEN
1741: hr_utility.TRACE ('after call to check_for_timecard');
1742: hr_utility.TRACE ('l_retcode :' || l_retcode);
1743: hr_utility.TRACE ('l_timecard_id :' || l_timecard_id);
1744: hr_utility.TRACE ('l_auto_gen_flag :' || l_auto_gen_flag);
1745: hr_utility.TRACE ('l_retcode :' || l_retcode);
1746: hr_utility.set_location (l_proc, 960);
1747: END IF;
1748:
1741: hr_utility.TRACE ('after call to check_for_timecard');
1742: hr_utility.TRACE ('l_retcode :' || l_retcode);
1743: hr_utility.TRACE ('l_timecard_id :' || l_timecard_id);
1744: hr_utility.TRACE ('l_auto_gen_flag :' || l_auto_gen_flag);
1745: hr_utility.TRACE ('l_retcode :' || l_retcode);
1746: hr_utility.set_location (l_proc, 960);
1747: END IF;
1748:
1749: IF l_retcode = 0
1742: hr_utility.TRACE ('l_retcode :' || l_retcode);
1743: hr_utility.TRACE ('l_timecard_id :' || l_timecard_id);
1744: hr_utility.TRACE ('l_auto_gen_flag :' || l_auto_gen_flag);
1745: hr_utility.TRACE ('l_retcode :' || l_retcode);
1746: hr_utility.set_location (l_proc, 960);
1747: END IF;
1748:
1749: IF l_retcode = 0
1750: THEN
1749: IF l_retcode = 0
1750: THEN
1751: IF g_debug
1752: THEN
1753: hr_utility.set_location (l_proc, 970);
1754: END IF;
1755:
1756: g_timecard_err_id := l_timecard_id;
1757:
1772: ELSIF l_retcode = 1
1773: THEN
1774: IF g_debug
1775: THEN
1776: hr_utility.set_location (l_proc, 980);
1777: hr_utility.TRACE ('BEFORE create timecard');
1778: END IF;
1779:
1780: l_retcode :=
1773: THEN
1774: IF g_debug
1775: THEN
1776: hr_utility.set_location (l_proc, 980);
1777: hr_utility.TRACE ('BEFORE create timecard');
1778: END IF;
1779:
1780: l_retcode :=
1781: create_timecard (l_person_id,
1789: );
1790:
1791: IF g_debug
1792: THEN
1793: hr_utility.TRACE ('l_retcode :' || l_retcode);
1794: END IF;
1795:
1796: IF l_retcode = 1
1797: THEN
1796: IF l_retcode = 1
1797: THEN
1798: IF g_debug
1799: THEN
1800: hr_utility.set_location (l_proc, 990);
1801: END IF;
1802:
1803: RAISE l_make_card_data_err;
1804: ELSIF l_retcode = 2
1804: ELSIF l_retcode = 2
1805: THEN
1806: IF g_debug
1807: THEN
1808: hr_utility.set_location (l_proc, 1000);
1809: END IF;
1810:
1811: RAISE l_make_card_sys_err;
1812: END IF;
1812: END IF;
1813:
1814: IF g_debug
1815: THEN
1816: hr_utility.set_location (l_proc, 1010);
1817: END IF;
1818:
1819: g_timecard_err_id := l_timecard_id;
1820:
1819: g_timecard_err_id := l_timecard_id;
1820:
1821: IF g_debug
1822: THEN
1823: hr_utility.TRACE ('Created TIMECARD. ID is ' || l_timecard_id);
1824: END IF;
1825:
1826: /* Create holiday hours on the new timecard */
1827: /*l_retcode := create_holiday_hours(l_person_id,
1861: end_time);
1862: --p_mode);
1863:
1864:
1865: hr_utility.set_location(l_proc, 1020);
1866: hr_utility.trace('Created Holiday Hours ');
1867: hr_utility.trace('l_retcode :'||l_retcode);
1868:
1869: IF l_retcode = 1 THEN
1862: --p_mode);
1863:
1864:
1865: hr_utility.set_location(l_proc, 1020);
1866: hr_utility.trace('Created Holiday Hours ');
1867: hr_utility.trace('l_retcode :'||l_retcode);
1868:
1869: IF l_retcode = 1 THEN
1870: hr_utility.set_location(l_proc, 1030);
1863:
1864:
1865: hr_utility.set_location(l_proc, 1020);
1866: hr_utility.trace('Created Holiday Hours ');
1867: hr_utility.trace('l_retcode :'||l_retcode);
1868:
1869: IF l_retcode = 1 THEN
1870: hr_utility.set_location(l_proc, 1030);
1871: RAISE l_make_hol_data_err;
1866: hr_utility.trace('Created Holiday Hours ');
1867: hr_utility.trace('l_retcode :'||l_retcode);
1868:
1869: IF l_retcode = 1 THEN
1870: hr_utility.set_location(l_proc, 1030);
1871: RAISE l_make_hol_data_err;
1872: ELSIF l_retcode = 2 THEN
1873: hr_utility.set_location(l_proc, 1040);
1874: RAISE l_make_hol_sys_err;
1869: IF l_retcode = 1 THEN
1870: hr_utility.set_location(l_proc, 1030);
1871: RAISE l_make_hol_data_err;
1872: ELSIF l_retcode = 2 THEN
1873: hr_utility.set_location(l_proc, 1040);
1874: RAISE l_make_hol_sys_err;
1875: END IF;
1876: */
1877: IF g_debug
1875: END IF;
1876: */
1877: IF g_debug
1878: THEN
1879: hr_utility.set_location (l_proc, 1050);
1880: END IF;
1881: ELSIF l_retcode = 2
1882: THEN
1883: IF g_debug
1881: ELSIF l_retcode = 2
1882: THEN
1883: IF g_debug
1884: THEN
1885: hr_utility.set_location (l_proc, 1060);
1886: END IF;
1887:
1888: RAISE l_istimecard_sys_err;
1889: END IF;
1894: IF l_auto_gen_flag = 'A'
1895: THEN
1896: IF g_debug
1897: THEN
1898: hr_utility.set_location (l_proc, 1070);
1899: END IF;
1900:
1901: RAISE l_autogen_error;
1902: END IF;
1902: END IF;
1903:
1904: IF g_debug
1905: THEN
1906: hr_utility.set_location (l_proc, 1080);
1907: END IF;
1908:
1909: l_retcode := check_for_batch_status (g_batch_err_id, l_batch_status);
1910:
1909: l_retcode := check_for_batch_status (g_batch_err_id, l_batch_status);
1910:
1911: IF g_debug
1912: THEN
1913: hr_utility.TRACE ('l_retcode :' || l_retcode);
1914: hr_utility.TRACE ('delete_yn:' || delete_yn);
1915: END IF;
1916:
1917: IF delete_yn = 'N'
1910:
1911: IF g_debug
1912: THEN
1913: hr_utility.TRACE ('l_retcode :' || l_retcode);
1914: hr_utility.TRACE ('delete_yn:' || delete_yn);
1915: END IF;
1916:
1917: IF delete_yn = 'N'
1918: THEN
1924: -- Insert hours to the hxt_sum_hours_worked table and
1925: -- call generate details
1926: IF g_debug
1927: THEN
1928: hr_utility.TRACE ('BEFORE record_hours worked');
1929: END IF;
1930:
1931: l_retcode :=
1932: record_hours_worked (timecard_source,
1977: );
1978:
1979: IF g_debug
1980: THEN
1981: hr_utility.set_location (l_proc, 1090);
1982: hr_utility.TRACE ('AFTER record_hours worked');
1983: hr_utility.TRACE ( 'AFTER record_hours worked RET CODE IS '
1984: || TO_CHAR (l_retcode)
1985: );
1978:
1979: IF g_debug
1980: THEN
1981: hr_utility.set_location (l_proc, 1090);
1982: hr_utility.TRACE ('AFTER record_hours worked');
1983: hr_utility.TRACE ( 'AFTER record_hours worked RET CODE IS '
1984: || TO_CHAR (l_retcode)
1985: );
1986: hr_utility.TRACE ('OTM ERROR IS ' || l_otm_error);
1979: IF g_debug
1980: THEN
1981: hr_utility.set_location (l_proc, 1090);
1982: hr_utility.TRACE ('AFTER record_hours worked');
1983: hr_utility.TRACE ( 'AFTER record_hours worked RET CODE IS '
1984: || TO_CHAR (l_retcode)
1985: );
1986: hr_utility.TRACE ('OTM ERROR IS ' || l_otm_error);
1987: hr_utility.TRACE ('ORACLE ERROR IS ' || l_oracle_error);
1982: hr_utility.TRACE ('AFTER record_hours worked');
1983: hr_utility.TRACE ( 'AFTER record_hours worked RET CODE IS '
1984: || TO_CHAR (l_retcode)
1985: );
1986: hr_utility.TRACE ('OTM ERROR IS ' || l_otm_error);
1987: hr_utility.TRACE ('ORACLE ERROR IS ' || l_oracle_error);
1988: END IF;
1989:
1990: IF l_retcode = 1
1983: hr_utility.TRACE ( 'AFTER record_hours worked RET CODE IS '
1984: || TO_CHAR (l_retcode)
1985: );
1986: hr_utility.TRACE ('OTM ERROR IS ' || l_otm_error);
1987: hr_utility.TRACE ('ORACLE ERROR IS ' || l_oracle_error);
1988: END IF;
1989:
1990: IF l_retcode = 1
1991: THEN
1990: IF l_retcode = 1
1991: THEN
1992: IF g_debug
1993: THEN
1994: hr_utility.set_location (l_proc, 1100);
1995: END IF;
1996:
1997: otm_error := l_otm_error;
1998: oracle_error := l_oracle_error;
2000: ELSIF l_retcode = 2
2001: THEN
2002: IF g_debug
2003: THEN
2004: hr_utility.set_location (l_proc, 1110);
2005: END IF;
2006:
2007: otm_error := l_otm_error;
2008: oracle_error := l_oracle_error;
2013: created_tim_sum_id := l_created_tim_sum_id;
2014:
2015: IF g_debug
2016: THEN
2017: hr_utility.TRACE ('created_tim_sum_id :' || created_tim_sum_id);
2018: END IF;
2019:
2020: --
2021: otm_error := NULL;
2025: IF p_validate
2026: THEN
2027: IF g_debug
2028: THEN
2029: hr_utility.set_location (l_proc, 1120);
2030: hr_utility.TRACE ('VALIDATE only so ROLLBACK');
2031: END IF;
2032:
2033: ROLLBACK TO only_validate;
2026: THEN
2027: IF g_debug
2028: THEN
2029: hr_utility.set_location (l_proc, 1120);
2030: hr_utility.TRACE ('VALIDATE only so ROLLBACK');
2031: END IF;
2032:
2033: ROLLBACK TO only_validate;
2034: created_tim_sum_id := 0;
2034: created_tim_sum_id := 0;
2035:
2036: IF g_debug
2037: THEN
2038: hr_utility.TRACE ('created_tim_sum_id :' || created_tim_sum_id);
2039: END IF;
2040: END IF; -- End of p_mode check
2041:
2042: IF g_debug
2040: END IF; -- End of p_mode check
2041:
2042: IF g_debug
2043: THEN
2044: hr_utility.set_location (l_proc, 1130);
2045: END IF;
2046:
2047: RETURN;
2048: EXCEPTION
2049: WHEN l_person_id_data_err
2050: THEN
2051: IF g_debug
2052: THEN
2053: hr_utility.set_location (l_proc, 1140);
2054: END IF;
2055:
2056: fnd_message.set_name ('HXT', 'HXT_39308_EMPLYEE_NF');
2057: fnd_message.set_token ('EMP_NUMBER', employee_number);
2064: WHEN l_person_id_sys_err
2065: THEN
2066: IF g_debug
2067: THEN
2068: hr_utility.set_location (l_proc, 1150);
2069: END IF;
2070:
2071: fnd_message.set_name ('HXT', 'HXT_39529_EMP_DATA_SYS_ERR');
2072: fnd_message.set_token ('EMP_NUMBER', employee_number);
2079: WHEN l_appr_id_data_err
2080: THEN
2081: IF g_debug
2082: THEN
2083: hr_utility.set_location (l_proc, 1160);
2084: END IF;
2085:
2086: fnd_message.set_name ('HXT', 'HXT_39530_APPRVR_NF');
2087: fnd_message.set_token ('APP_NUMBER', approver_number);
2094: WHEN l_appr_id_sys_err
2095: THEN
2096: IF g_debug
2097: THEN
2098: hr_utility.set_location (l_proc, 1170);
2099: END IF;
2100:
2101: fnd_message.set_name ('HXT', 'HXT_39531_APP_DATA_SYS_ERR');
2102: fnd_message.set_token ('APP_NUMBER', approver_number);
2109: WHEN l_assign_id_data_err
2110: THEN
2111: IF g_debug
2112: THEN
2113: hr_utility.set_location (l_proc, 1180);
2114: END IF;
2115:
2116: fnd_message.set_name ('HXT', 'HXT_39306_ASSIGN_NF');
2117: fnd_message.set_token ('FIRST_NAME', l_first_name);
2126: WHEN l_assign_id_sys_err
2127: THEN
2128: IF g_debug
2129: THEN
2130: hr_utility.set_location (l_proc, 1190);
2131: END IF;
2132:
2133: fnd_message.set_name ('HXT', 'HXT_39319_ERR_GET_ASSIGN');
2134: l_otm_error := fnd_message.get;
2140: WHEN l_pay_date_data_err
2141: THEN
2142: IF g_debug
2143: THEN
2144: hr_utility.set_location (l_proc, 1200);
2145: END IF;
2146:
2147: fnd_message.set_name ('HXT', 'HXT_39331_CANT_CALC_DAT_WRKED');
2148: fnd_message.set_token ('START_TIME', TO_CHAR (start_time));
2155: WHEN l_pay_date_sys_err
2156: THEN
2157: IF g_debug
2158: THEN
2159: hr_utility.set_location (l_proc, 1210);
2160: END IF;
2161:
2162: fnd_message.set_name ('HXT', 'HXT_39323_ERR_DATE_WRKED');
2163: l_otm_error := fnd_message.get;
2169: WHEN l_prev_wage_data_err
2170: THEN
2171: IF g_debug
2172: THEN
2173: hr_utility.set_location (l_proc, 1220);
2174: END IF;
2175:
2176: fnd_message.set_name ('HXT', 'HXT_39532_INV_PREV_WAGE_CODE');
2177: fnd_message.set_token ('WAGE_CODE', wage_code);
2184: WHEN l_prev_wage_sys_err
2185: THEN
2186: IF g_debug
2187: THEN
2188: hr_utility.set_location (l_proc, 1230);
2189: END IF;
2190:
2191: fnd_message.set_name ('HXT', 'HXT_39533_PREV_WAGE_CD_SYS_ERR');
2192: l_error_text := fnd_message.get;
2198: WHEN l_elem_type_data_err
2199: THEN
2200: IF g_debug
2201: THEN
2202: hr_utility.set_location (l_proc, 1240);
2203: END IF;
2204:
2205: fnd_message.set_name ('HXT', 'HXT_39534_ELEM_TYPE_NF');
2206: fnd_message.set_token ('HRS_TYPE', hours_type);
2213: WHEN l_elem_type_sys_err
2214: THEN
2215: IF g_debug
2216: THEN
2217: hr_utility.set_location (l_proc, 1250);
2218: END IF;
2219:
2220: fnd_message.set_name ('HXT', 'HXT_39535_ELEM_TYPE_SYS_ERR');
2221: l_otm_error := fnd_message.get;
2227: WHEN l_elem_link_data_err
2228: THEN
2229: IF g_debug
2230: THEN
2231: hr_utility.set_location (l_proc, 1260);
2232: END IF;
2233:
2234: fnd_message.set_name ('HXT', 'HXT_ELEM_LINK_NF');
2235: fnd_message.set_token ('HRS_TYPE', hours_type);
2242: WHEN l_elem_link_sys_err
2243: THEN
2244: IF g_debug
2245: THEN
2246: hr_utility.set_location (l_proc, 1270);
2247: END IF;
2248:
2249: fnd_message.set_name ('HXT', 'HXT_ELEM_LINK_SYS_ERR');
2250: l_otm_error := fnd_message.get;
2256: WHEN l_task_id_data_err
2257: THEN
2258: IF g_debug
2259: THEN
2260: hr_utility.set_location (l_proc, 1280);
2261: END IF;
2262:
2263: fnd_message.set_name ('HXT', 'HXT_39536_TASK_ID_NF');
2264: fnd_message.set_token ('TASK_NUMBER', task_number);
2271: WHEN l_task_id_sys_err
2272: THEN
2273: IF g_debug
2274: THEN
2275: hr_utility.set_location (l_proc, 1290);
2276: END IF;
2277:
2278: fnd_message.set_name ('HXT', 'HXT_39537_TASK_ID_SYS_ERR');
2279: l_otm_error := fnd_message.get;
2283: WHEN l_locn_id_data_err
2284: THEN
2285: IF g_debug
2286: THEN
2287: hr_utility.set_location (l_proc, 1300);
2288: END IF;
2289:
2290: fnd_message.set_name ('HXT', 'HXT_39538_LOC_ID_NF');
2291: fnd_message.set_token ('LOC_CODE', location_code);
2298: WHEN l_locn_id_sys_err
2299: THEN
2300: IF g_debug
2301: THEN
2302: hr_utility.set_location (l_proc, 1310);
2303: END IF;
2304:
2305: fnd_message.set_name ('HXT', 'HXT_39539_LOC_ID_SYS_ERR');
2306: l_otm_error := fnd_message.get;
2312: WHEN l_proj_id_data_err
2313: THEN
2314: IF g_debug
2315: THEN
2316: hr_utility.set_location (l_proc, 1320);
2317: END IF;
2318:
2319: fnd_message.set_name ('HXT', 'HXT_39540_PRJ_ID_NF');
2320: fnd_message.set_token ('PRJ_NUMBER', project);
2327: WHEN l_proj_id_sys_err
2328: THEN
2329: IF g_debug
2330: THEN
2331: hr_utility.set_location (l_proc, 1330);
2332: END IF;
2333:
2334: fnd_message.set_name ('HXT', 'HXT_39541_PRJ_ID_SYS_ERR');
2335: l_otm_error := fnd_message.get;
2341: WHEN l_hours_reason_data_err
2342: THEN
2343: IF g_debug
2344: THEN
2345: hr_utility.set_location (l_proc, 1340);
2346: END IF;
2347:
2348: fnd_message.set_name ('HXT', 'HXT_39542_ERN_RSN_WO_HRS_TYPE');
2349: l_otm_error := fnd_message.get;
2355: WHEN l_reason_code_data_err
2356: THEN
2357: IF g_debug
2358: THEN
2359: hr_utility.set_location (l_proc, 1350);
2360: END IF;
2361:
2362: fnd_message.set_name ('HXT', 'HXT_39543_ERN_RSN_NF');
2363: fnd_message.set_token ('ERN_RSN_CD', earn_reason_code);
2370: WHEN l_reason_code_sys_err
2371: THEN
2372: IF g_debug
2373: THEN
2374: hr_utility.set_location (l_proc, 1360);
2375: END IF;
2376:
2377: fnd_message.set_name ('HXT', 'HXT_39544_ERN_RSN_SYS_ERR');
2378: l_otm_error := fnd_message.get;
2384: WHEN l_sep_chk_flg_data_err
2385: THEN
2386: IF g_debug
2387: THEN
2388: hr_utility.set_location (l_proc, 1370);
2389: END IF;
2390:
2391: fnd_message.set_name ('HXT', 'HXT_39545_SEP_CHK_NF');
2392: fnd_message.set_token ('SEP_CHK', l_sep_chk_flg);
2399: WHEN l_time_per_data_err
2400: THEN
2401: IF g_debug
2402: THEN
2403: hr_utility.set_location (l_proc, 1380);
2404: END IF;
2405:
2406: fnd_message.set_name ('HXT', 'HXT_39330_CANT_CALC_TIM_PER');
2407: fnd_message.set_token ('DATE_WORKED', TO_CHAR (l_date_worked));
2415: WHEN l_time_per_sys_err
2416: THEN
2417: IF g_debug
2418: THEN
2419: hr_utility.set_location (l_proc, 1390);
2420: END IF;
2421:
2422: fnd_message.set_name ('HXT', 'HXT_39324_ERR_TIME_PERIOD');
2423: fnd_message.set_token ('SQLERR', SQLERRM);
2430: WHEN l_istimecard_sys_err
2431: THEN
2432: IF g_debug
2433: THEN
2434: hr_utility.set_location (l_proc, 1400);
2435: END IF;
2436:
2437: fnd_message.set_name ('HXT', 'HXT_39298_ERR_GET_TIMCARD');
2438: l_otm_error := fnd_message.get;
2444: WHEN l_autogen_error
2445: THEN
2446: IF g_debug
2447: THEN
2448: hr_utility.set_location (l_proc, 1410);
2449: END IF;
2450:
2451: fnd_message.set_name ('HXT', 'HXT_39267_AG_TCARD_EXISTS');
2452: fnd_message.set_token ('FIRST_NAME', l_first_name);
2461: WHEN l_make_card_data_err
2462: THEN
2463: IF g_debug
2464: THEN
2465: hr_utility.set_location (l_proc, 1420);
2466: END IF;
2467:
2468: fnd_message.set_name ('HXT', 'HXT_39291_CRT_TCARD_ERR');
2469: fnd_message.set_token ('FIRST_NAME', l_first_name);
2478: WHEN l_make_card_sys_err
2479: THEN
2480: IF g_debug
2481: THEN
2482: hr_utility.set_location (l_proc, 1430);
2483: END IF;
2484:
2485: fnd_message.set_name ('HXT', 'HXT_39318_ERR_CREAT_TCARD');
2486: fnd_message.set_token ('FIRST_NAME', l_first_name);
2496: WHEN l_make_hol_data_err
2497: THEN
2498: IF g_debug
2499: THEN
2500: hr_utility.set_location (l_proc, 1440);
2501: END IF;
2502:
2503: fnd_message.set_name ('HXT', 'HXT_39292_CRT_HOL_HRS');
2504: fnd_message.set_token ('FIRST_NAME', l_first_name);
2513: WHEN l_make_hol_sys_err
2514: THEN
2515: IF g_debug
2516: THEN
2517: hr_utility.set_location (l_proc, 1450);
2518: END IF;
2519:
2520: fnd_message.set_name ('HXT', 'HXT_39320_ERR_CREAT_HOL');
2521: fnd_message.set_token ('FIRST_NAME', l_first_name);
2530: WHEN l_rec_hours_data_err
2531: THEN
2532: IF g_debug
2533: THEN
2534: hr_utility.set_location (l_proc, 1460);
2535: END IF;
2536:
2537: -- GPM v115.23
2538: -- there is no point writing over a specific system error
2558: WHEN l_rec_hours_sys_err
2559: THEN
2560: IF g_debug
2561: THEN
2562: hr_utility.set_location (l_proc, 1470);
2563: END IF;
2564:
2565: -- GPM v115.23
2566: -- there is no point writing over a specific system error
2587: WHEN l_hours_amount_data_err
2588: THEN
2589: IF g_debug
2590: THEN
2591: hr_utility.set_location (l_proc, 1480);
2592: END IF;
2593:
2594: fnd_message.set_name ('HXT', 'HXT_39527_HRS_REQ_IF_AMT');
2595: l_otm_error := fnd_message.get;
2601: WHEN l_amt_hrs_elmnt_data_err
2602: THEN
2603: IF g_debug
2604: THEN
2605: hr_utility.set_location (l_proc, 1490);
2606: END IF;
2607:
2608: fnd_message.set_name ('HXT', 'HXT_39528_HRS_NE0_IF_NO_HRSTYP');
2609: l_otm_error := fnd_message.get;
2615: WHEN l_amt_hrs_zero_data_err
2616: THEN
2617: IF g_debug
2618: THEN
2619: hr_utility.set_location (l_proc, 1500);
2620: END IF;
2621:
2622: fnd_message.set_name ('HXT', 'HXT_39546_HRS_NE0_IF_NO_AMT');
2623: l_otm_error := fnd_message.get;
2629: WHEN l_start_end_data_err
2630: THEN
2631: IF g_debug
2632: THEN
2633: hr_utility.set_location (l_proc, 1510);
2634: END IF;
2635:
2636: fnd_message.set_name ('HXT', 'HXT_39547_START_END_REQ');
2637: l_otm_error := fnd_message.get;
2643: WHEN l_hours_null_data_err
2644: THEN
2645: IF g_debug
2646: THEN
2647: hr_utility.set_location (l_proc, 1520);
2648: END IF;
2649:
2650: fnd_message.set_name ('HXT', 'HXT_39548_HRS_REQ_IF_DT_WRK');
2651: l_otm_error := fnd_message.get;
2657: WHEN l_no_time_data_err
2658: THEN
2659: IF g_debug
2660: THEN
2661: hr_utility.set_location (l_proc, 1530);
2662: END IF;
2663:
2664: fnd_message.set_name ('HXT', 'HXT_39549_ST_END_OR_DT_WRK_REQ');
2665: l_otm_error := fnd_message.get;
2671: WHEN l_tim_src_data_err
2672: THEN
2673: IF g_debug
2674: THEN
2675: hr_utility.set_location (l_proc, 1540);
2676: END IF;
2677:
2678: fnd_message.set_name ('HXT', 'HXT_39550_TIM_SRC_NF');
2679: l_otm_error := fnd_message.get;
2685: WHEN l_tim_src_sys_err
2686: THEN
2687: IF g_debug
2688: THEN
2689: hr_utility.set_location (l_proc, 1550);
2690: END IF;
2691:
2692: fnd_message.set_name ('HXT', 'HXT_39551_TIM_SRC_SYS_ERR');
2693: l_otm_error := fnd_message.get;
2699: WHEN l_time_summary_id_data_err
2700: THEN
2701: IF g_debug
2702: THEN
2703: hr_utility.set_location (l_proc, 1560);
2704: END IF;
2705:
2706: fnd_message.set_name ('HXT', 'HXT_39552_TIM_SUM_ID_NF');
2707: l_otm_error := fnd_message.get;
2713: WHEN l_time_summary_id_sys_err
2714: THEN
2715: IF g_debug
2716: THEN
2717: hr_utility.set_location (l_proc, 1570);
2718: END IF;
2719:
2720: fnd_message.set_name ('HXT', 'HXT_39553_TIM_SUM_ID_SYS_ERR');
2721: l_otm_error := fnd_message.get;
2727: WHEN l_earn_pol_data_err
2728: THEN
2729: IF g_debug
2730: THEN
2731: hr_utility.set_location (l_proc, 1580);
2732: END IF;
2733:
2734: fnd_message.set_name ('HXT', 'HXT_39554_ERN_POL_NF');
2735: l_otm_error := fnd_message.get;
2741: WHEN l_earn_pol_sys_err
2742: THEN
2743: IF g_debug
2744: THEN
2745: hr_utility.set_location (l_proc, 1590);
2746: END IF;
2747:
2748: fnd_message.set_name ('HXT', 'HXT_39555_ERN_POL_SYS_ERR');
2749: l_otm_error := fnd_message.get;
2755: WHEN l_sess_date_err
2756: THEN
2757: IF g_debug
2758: THEN
2759: hr_utility.set_location (l_proc, 1600);
2760: END IF;
2761:
2762: fnd_message.set_name ('HXT', 'HXT_39556_SESSION_DT_NF');
2763: l_otm_error := fnd_message.get;
2769: WHEN l_date_worked_time_err
2770: THEN
2771: IF g_debug
2772: THEN
2773: hr_utility.set_location (l_proc, 1610);
2774: END IF;
2775:
2776: fnd_message.set_name ('HXT', 'HXT_39557_NO_TIME_IN_DT_WRK');
2777: l_otm_error := fnd_message.get;
2783: WHEN l_delete_sys_error
2784: THEN
2785: IF g_debug
2786: THEN
2787: hr_utility.set_location (l_proc, 1620);
2788: END IF;
2789:
2790: fnd_message.set_name ('HXT', 'HXT_39558_ERR_IN_DSR');
2791: l_otm_error := fnd_message.get;
2797: WHEN l_delete_finished
2798: THEN
2799: IF g_debug
2800: THEN
2801: hr_utility.set_location (l_proc, 1630);
2802: END IF;
2803:
2804: NULL;
2805: --SIR290
2806: WHEN l_dt_update_mode_err
2807: THEN
2808: IF g_debug
2809: THEN
2810: hr_utility.set_location (l_proc, 1640);
2811: END IF;
2812:
2813: fnd_message.set_name ('HXT', 'HXT_39559_DT_UPD_MODE_INV');
2814: fnd_message.set_token ('DT_UPD_MODE', dt_update_mode);
2822: WHEN l_dt_upt_mode_null_err
2823: THEN
2824: IF g_debug
2825: THEN
2826: hr_utility.set_location (l_proc, 1650);
2827: END IF;
2828:
2829: fnd_message.set_name ('HXT', 'HXT_39560_DT_UPD_MODE_NULL');
2830: l_otm_error := fnd_message.get;
2839: WHEN l_archived_period
2840: THEN
2841: IF g_debug
2842: THEN
2843: hr_utility.set_location (l_proc, 1655);
2844: hr_utility.trace('The timecard is archived ');
2845: END IF;
2846:
2847: fnd_message.set_name ('HXC', 'HXC_SELECTED_ARCHIVED_PERIOD');
2840: THEN
2841: IF g_debug
2842: THEN
2843: hr_utility.set_location (l_proc, 1655);
2844: hr_utility.trace('The timecard is archived ');
2845: END IF;
2846:
2847: fnd_message.set_name ('HXC', 'HXC_SELECTED_ARCHIVED_PERIOD');
2848: l_otm_error := fnd_message.get;
2853:
2854:
2855: WHEN OTHERS
2856: THEN
2857: hr_utility.trace(dbms_utility.format_error_backtrace);
2858: IF g_debug
2859: THEN
2860: hr_utility.set_location (l_proc, 1660);
2861: END IF;
2856: THEN
2857: hr_utility.trace(dbms_utility.format_error_backtrace);
2858: IF g_debug
2859: THEN
2860: hr_utility.set_location (l_proc, 1660);
2861: END IF;
2862:
2863: -- GPM v115.23
2864: IF (l_otm_error IS NULL)
3111: l_session_date DATE;
3112: l_sess_date_err EXCEPTION;
3113: BEGIN
3114: /* Initialize globals */
3115: g_debug := hr_utility.debug_enabled;
3116: g_sysdate := TRUNC (SYSDATE);
3117: g_sysdatetime := SYSDATE;
3118: g_user_id := fnd_global.user_id;
3119: g_login_id := fnd_global.login_id;
3119: g_login_id := fnd_global.login_id;
3120:
3121: IF g_debug
3122: THEN
3123: hr_utility.TRACE ('start re explode for loop');
3124: END IF;
3125:
3126: --
3127: -- Retrieve the timecard's header information.
3192: --
3193: -- Call record_hours_worked to re-explode each summary record.
3194: IF g_debug
3195: THEN
3196: hr_utility.TRACE ('Before for loop');
3197: END IF;
3198:
3199: --
3200: -- Bug 7359347
3255: );
3256: -- Bug 12919783
3257: -- Recording the tim_ids and OVNs for each building block exploded here.
3258:
3259: hr_utility.trace(' l_sum_hours_rec.time_building_block_id: '||l_sum_hours_rec.time_building_block_id);
3260:
3261: --Added condition for the Bug 14030642
3262:
3263: IF (l_sum_hours_rec.time_building_block_id IS NOT NULL
3273:
3274:
3275: IF g_debug
3276: THEN
3277: hr_utility.TRACE ('l_retcode is :' || TO_CHAR (l_retcode));
3278: hr_utility.trace('l_sum_hours_rec.tim_id '||l_sum_hours_rec.tim_id);
3279: hr_utility.trace('l_sum_hours_rec.time_building_block_id '||l_sum_hours_rec.time_building_block_id);
3280: hr_utility.trace('l_sum_hours_rec.time_building_block_ovn '||l_sum_hours_rec.time_building_block_ovn);
3281: END IF;
3274:
3275: IF g_debug
3276: THEN
3277: hr_utility.TRACE ('l_retcode is :' || TO_CHAR (l_retcode));
3278: hr_utility.trace('l_sum_hours_rec.tim_id '||l_sum_hours_rec.tim_id);
3279: hr_utility.trace('l_sum_hours_rec.time_building_block_id '||l_sum_hours_rec.time_building_block_id);
3280: hr_utility.trace('l_sum_hours_rec.time_building_block_ovn '||l_sum_hours_rec.time_building_block_ovn);
3281: END IF;
3282:
3275: IF g_debug
3276: THEN
3277: hr_utility.TRACE ('l_retcode is :' || TO_CHAR (l_retcode));
3278: hr_utility.trace('l_sum_hours_rec.tim_id '||l_sum_hours_rec.tim_id);
3279: hr_utility.trace('l_sum_hours_rec.time_building_block_id '||l_sum_hours_rec.time_building_block_id);
3280: hr_utility.trace('l_sum_hours_rec.time_building_block_ovn '||l_sum_hours_rec.time_building_block_ovn);
3281: END IF;
3282:
3283: IF l_retcode = 1
3276: THEN
3277: hr_utility.TRACE ('l_retcode is :' || TO_CHAR (l_retcode));
3278: hr_utility.trace('l_sum_hours_rec.tim_id '||l_sum_hours_rec.tim_id);
3279: hr_utility.trace('l_sum_hours_rec.time_building_block_id '||l_sum_hours_rec.time_building_block_id);
3280: hr_utility.trace('l_sum_hours_rec.time_building_block_ovn '||l_sum_hours_rec.time_building_block_ovn);
3281: END IF;
3282:
3283: IF l_retcode = 1
3284: THEN
3324: --2278400
3325: --end SIR334
3326: WHEN OTHERS
3327: THEN
3328: hr_utility.trace(dbms_utility.format_error_backtrace);
3329: fnd_message.set_name ('HXT', 'HXT_39564_EXCP_IN_RET');
3330: otm_error := fnd_message.get;
3331: oracle_error := SQLERRM;
3332: call_hxthxc_gen_error ('HXT', 'HXT_39564_EXCP_IN_RET', NULL);
3367: THEN
3368: RETURN 1;
3369: WHEN OTHERS
3370: THEN
3371: hr_utility.trace(dbms_utility.format_error_backtrace);
3372: RETURN 2;
3373: END get_time_period;
3374:
3375: /***************************************************
3387: IS
3388: BEGIN
3389: IF g_debug
3390: THEN
3391: hr_utility.set_location ('hxt_time_collection.check_for_timecard',
3392: 10
3393: );
3394: END IF;
3395:
3399: WHERE for_person_id = i_person_id AND time_period_id = i_time_period_id;
3400:
3401: IF g_debug
3402: THEN
3403: hr_utility.TRACE ('Timecard id is:' || o_timecard_id);
3404: hr_utility.TRACE ('auto_gen_flag :' || o_auto_gen_flag);
3405: hr_utility.TRACE ('batch_id :' || g_batch_err_id);
3406: hr_utility.set_location ('hxt_time_collection.check_for_timecard',
3407: 20
3400:
3401: IF g_debug
3402: THEN
3403: hr_utility.TRACE ('Timecard id is:' || o_timecard_id);
3404: hr_utility.TRACE ('auto_gen_flag :' || o_auto_gen_flag);
3405: hr_utility.TRACE ('batch_id :' || g_batch_err_id);
3406: hr_utility.set_location ('hxt_time_collection.check_for_timecard',
3407: 20
3408: );
3401: IF g_debug
3402: THEN
3403: hr_utility.TRACE ('Timecard id is:' || o_timecard_id);
3404: hr_utility.TRACE ('auto_gen_flag :' || o_auto_gen_flag);
3405: hr_utility.TRACE ('batch_id :' || g_batch_err_id);
3406: hr_utility.set_location ('hxt_time_collection.check_for_timecard',
3407: 20
3408: );
3409: END IF;
3402: THEN
3403: hr_utility.TRACE ('Timecard id is:' || o_timecard_id);
3404: hr_utility.TRACE ('auto_gen_flag :' || o_auto_gen_flag);
3405: hr_utility.TRACE ('batch_id :' || g_batch_err_id);
3406: hr_utility.set_location ('hxt_time_collection.check_for_timecard',
3407: 20
3408: );
3409: END IF;
3410:
3413: WHEN NO_DATA_FOUND
3414: THEN
3415: IF g_debug
3416: THEN
3417: hr_utility.set_location
3418: ('hxt_time_collection.check_for_timecard',
3419: 30
3420: );
3421: END IF;
3422:
3423: RETURN 1;
3424: WHEN OTHERS
3425: THEN
3426: hr_utility.trace(dbms_utility.format_error_backtrace);
3427: IF g_debug
3428: THEN
3429: hr_utility.set_location
3430: ('hxt_time_collection.check_for_timecard',
3425: THEN
3426: hr_utility.trace(dbms_utility.format_error_backtrace);
3427: IF g_debug
3428: THEN
3429: hr_utility.set_location
3430: ('hxt_time_collection.check_for_timecard',
3431: 40
3432: );
3433: END IF;
3456: THEN
3457: RETURN 1;
3458: WHEN OTHERS
3459: THEN
3460: hr_utility.trace(dbms_utility.format_error_backtrace);
3461: RETURN 2;
3462: END check_for_batch_status;
3463:
3464: /********************************************************
3492: /* Obtain a batch id for the new timecard */
3493: IF g_debug
3494: THEN
3495: l_proc := g_package || 'create_timecard';
3496: hr_utility.set_location ('Entering ' || l_proc, 10);
3497: END IF;
3498:
3499: l_batch_id :=
3500: find_existing_batch (p_time_period_id => i_time_period_id,
3506: IF (l_batch_id IS NULL)
3507: THEN
3508: IF g_debug
3509: THEN
3510: hr_utility.TRACE ('No existing_batch ');
3511: END IF;
3512:
3513: /* Create a batch id for the new timecard */
3514: /* A Autogen; C Autogen (changed); M Manual; U Manual (changed);
3524: );
3525:
3526: IF g_debug
3527: THEN
3528: hr_utility.TRACE ( 'AFTER create batch. Create batch id is '
3529: || TO_CHAR (l_batch_id)
3530: );
3531: hr_utility.TRACE ( 'AFTER create batch. RETCODE is '
3532: || TO_CHAR (l_retcode)
3527: THEN
3528: hr_utility.TRACE ( 'AFTER create batch. Create batch id is '
3529: || TO_CHAR (l_batch_id)
3530: );
3531: hr_utility.TRACE ( 'AFTER create batch. RETCODE is '
3532: || TO_CHAR (l_retcode)
3533: );
3534: END IF;
3535:
3594:
3595: /* Call dml to insert new timecard. */
3596: IF g_debug
3597: THEN
3598: hr_utility.TRACE ('BEFORE DML create timecard');
3599: END IF;
3600:
3601: hxt_dml.insert_hxt_timecards
3602: (p_rowid => l_rowid,
3622: o_timecard_id := l_timecard_id;
3623:
3624: IF g_debug
3625: THEN
3626: hr_utility.TRACE ( 'AFTER DML create timecard. timecard id is '
3627: || TO_CHAR (l_timecard_id)
3628: );
3629: END IF;
3630:
3640: THEN
3641: RETURN 2;
3642: WHEN OTHERS
3643: THEN
3644: hr_utility.trace(dbms_utility.format_error_backtrace);
3645: RETURN 2;
3646: END create_timecard;
3647:
3648: /******************************************************************
3675: l_object_version_number NUMBER;
3676: BEGIN
3677: IF g_debug
3678: THEN
3679: hr_utility.TRACE ('IN cREATE BATCH ');
3680: END IF;
3681:
3682: IF (i_source = 'S') OR (g_batch_ref IS NOT NULL)
3683: THEN
3695: END IF;
3696:
3697: IF g_debug
3698: THEN
3699: hr_utility.TRACE ('AFTER REF NUM ');
3700: END IF;
3701:
3702: IF l_error_text <> NULL
3703: THEN
3702: IF l_error_text <> NULL
3703: THEN
3704: IF g_debug
3705: THEN
3706: hr_utility.TRACE ('ERROR IS ' || l_error_text);
3707: END IF;
3708:
3709: RAISE l_reference_num_error;
3710: END IF;
3711:
3712: --
3713: IF g_debug
3714: THEN
3715: hr_utility.TRACE ('GET batch id');
3716: END IF;
3717:
3718: /* Get next batch number */
3719: /* l_batch_id := hxt_time_gen.get_next_batch_id;
3719: /* l_batch_id := hxt_time_gen.get_next_batch_id;
3720:
3721: IF l_batch_id = NULL
3722: THEN
3723: hr_utility.TRACE ('batch id is null');
3724: RAISE l_batch_id_error;
3725: END IF;
3726:
3727: --
3724: RAISE l_batch_id_error;
3725: END IF;
3726:
3727: --
3728: hr_utility.TRACE ( 'batch id is -----'
3729: || TO_CHAR (l_batch_id));
3730: IF i_source = 'S'
3731: THEN
3732: l_batch_name := g_batch_name
3740: END IF;
3741: */
3742: IF g_debug
3743: THEN
3744: hr_utility.TRACE ('batch name is -----' || l_batch_name);
3745: END IF;
3746:
3747: IF l_error_text <> NULL
3748: THEN
3747: IF l_error_text <> NULL
3748: THEN
3749: IF g_debug
3750: THEN
3751: hr_utility.TRACE ('batch name error ');
3752: END IF;
3753:
3754: RAISE l_batch_name_error;
3755: END IF;
3755: END IF;
3756:
3757: IF g_debug
3758: THEN
3759: hr_utility.TRACE ('BEFORE INSERT batch ');
3760: END IF;
3761:
3762: /* INSERT INTO pay_batch_headers
3763: (batch_id, business_group_id, batch_name, batch_status,
3770: 'N', 'N',
3771: g_sysdatetime, g_user_id, g_login_id,
3772: g_user_id, g_sysdatetime);
3773:
3774: hr_utility.TRACE ('AFTER insert batch ');
3775: */-- create a batch first
3776: pay_batch_element_entry_api.create_batch_header
3777: (p_session_date => g_sysdatetime,
3778: p_batch_name => TO_CHAR
3835: --2278400
3836: RETURN l_retcode;
3837: WHEN OTHERS
3838: THEN
3839: hr_utility.trace(dbms_utility.format_error_backtrace);
3840: fnd_message.set_name ('HXT', 'HXT_39411_CREATE_BATCH_FUNC');
3841: call_hxthxc_gen_error ('HXT', 'HXT_39411_CREATE_BATCH_FUNC', NULL);
3842: --2278400
3843: RETURN 2;
3880: BEGIN
3881: IF g_debug
3882: THEN
3883: l_proc := g_package || 'find_existing_batch';
3884: hr_utility.set_location ('Entering:' || l_proc, 10);
3885: END IF;
3886:
3887: IF (CACHE)
3888: THEN
3911:
3912: -- to trigger exit of loop
3913: IF g_debug
3914: THEN
3915: hr_utility.set_location ( ' Found batch_id in cache:'
3916: || l_batch_id,
3917: 20
3918: );
3919: END IF;
3924: END IF;
3925:
3926: IF g_debug
3927: THEN
3928: hr_utility.set_location ('Leaving:' || l_proc, 100);
3929: END IF;
3930:
3931: RETURN l_batch_id;
3932: EXCEPTION
3931: RETURN l_batch_id;
3932: EXCEPTION
3933: WHEN OTHERS
3934: THEN
3935: hr_utility.trace(dbms_utility.format_error_backtrace);
3936: fnd_message.set_name ('HXT', 'HXT_39412_FIND_BATCH_FUNC');
3937: call_hxthxc_gen_error ('HXT', 'HXT_39412_FIND_BATCH_FUNC', NULL);
3938: RETURN NULL;
3939: END find_existing_batch;
4008: BEGIN
4009: IF g_debug
4010: THEN
4011: l_proc := 'hxt_time_collection.CREATE_HOLIDAY_HOURS';
4012: hr_utility.set_location (l_proc, 10);
4013: hr_utility.TRACE ('i_start_date :' || i_start_date);
4014: hr_utility.TRACE ('i_end_date :' || i_end_date);
4015: hr_utility.TRACE ('i_hcl_id :' || i_hcl_id);
4016: hr_utility.TRACE ( 'i_start_time is '
4009: IF g_debug
4010: THEN
4011: l_proc := 'hxt_time_collection.CREATE_HOLIDAY_HOURS';
4012: hr_utility.set_location (l_proc, 10);
4013: hr_utility.TRACE ('i_start_date :' || i_start_date);
4014: hr_utility.TRACE ('i_end_date :' || i_end_date);
4015: hr_utility.TRACE ('i_hcl_id :' || i_hcl_id);
4016: hr_utility.TRACE ( 'i_start_time is '
4017: || TO_CHAR (i_start_time, 'DD-MON-YYYY HH:MI:SS')
4010: THEN
4011: l_proc := 'hxt_time_collection.CREATE_HOLIDAY_HOURS';
4012: hr_utility.set_location (l_proc, 10);
4013: hr_utility.TRACE ('i_start_date :' || i_start_date);
4014: hr_utility.TRACE ('i_end_date :' || i_end_date);
4015: hr_utility.TRACE ('i_hcl_id :' || i_hcl_id);
4016: hr_utility.TRACE ( 'i_start_time is '
4017: || TO_CHAR (i_start_time, 'DD-MON-YYYY HH:MI:SS')
4018: );
4011: l_proc := 'hxt_time_collection.CREATE_HOLIDAY_HOURS';
4012: hr_utility.set_location (l_proc, 10);
4013: hr_utility.TRACE ('i_start_date :' || i_start_date);
4014: hr_utility.TRACE ('i_end_date :' || i_end_date);
4015: hr_utility.TRACE ('i_hcl_id :' || i_hcl_id);
4016: hr_utility.TRACE ( 'i_start_time is '
4017: || TO_CHAR (i_start_time, 'DD-MON-YYYY HH:MI:SS')
4018: );
4019: hr_utility.TRACE ( 'i_end_time is '
4012: hr_utility.set_location (l_proc, 10);
4013: hr_utility.TRACE ('i_start_date :' || i_start_date);
4014: hr_utility.TRACE ('i_end_date :' || i_end_date);
4015: hr_utility.TRACE ('i_hcl_id :' || i_hcl_id);
4016: hr_utility.TRACE ( 'i_start_time is '
4017: || TO_CHAR (i_start_time, 'DD-MON-YYYY HH:MI:SS')
4018: );
4019: hr_utility.TRACE ( 'i_end_time is '
4020: || TO_CHAR (i_end_time, 'DD-MON-YYYY HH:MI:SS')
4015: hr_utility.TRACE ('i_hcl_id :' || i_hcl_id);
4016: hr_utility.TRACE ( 'i_start_time is '
4017: || TO_CHAR (i_start_time, 'DD-MON-YYYY HH:MI:SS')
4018: );
4019: hr_utility.TRACE ( 'i_end_time is '
4020: || TO_CHAR (i_end_time, 'DD-MON-YYYY HH:MI:SS')
4021: );
4022: END IF;
4023:
4022: END IF;
4023:
4024: FOR l_hol_rec IN g_hol_cur (i_start_date, i_end_date, i_hcl_id)
4025: LOOP
4026: hr_utility.set_location (l_proc, 20);
4027:
4028: IF ( fnd_profile.VALUE ('HXT_HOL_HOURS_FROM_HOL_CAL') = 'Y'
4029: OR fnd_profile.VALUE ('HXT_HOL_HOURS_FROM_HOL_CAL') IS NULL
4030: )
4030: )
4031: THEN
4032: IF g_debug
4033: THEN
4034: hr_utility.set_location (l_proc, 30);
4035: END IF;
4036:
4037: l_hours := l_hol_rec.hours;
4038: l_time_out := NULL;
4039: l_time_in := NULL;
4040:
4041: IF g_debug
4042: THEN
4043: hr_utility.TRACE ('l_hours :' || l_hours);
4044: hr_utility.TRACE ('l_time_in :' || l_time_in);
4045: hr_utility.TRACE ('l_time_out :' || l_time_out);
4046: END IF;
4047: ELSE
4040:
4041: IF g_debug
4042: THEN
4043: hr_utility.TRACE ('l_hours :' || l_hours);
4044: hr_utility.TRACE ('l_time_in :' || l_time_in);
4045: hr_utility.TRACE ('l_time_out :' || l_time_out);
4046: END IF;
4047: ELSE
4048: IF g_debug
4041: IF g_debug
4042: THEN
4043: hr_utility.TRACE ('l_hours :' || l_hours);
4044: hr_utility.TRACE ('l_time_in :' || l_time_in);
4045: hr_utility.TRACE ('l_time_out :' || l_time_out);
4046: END IF;
4047: ELSE
4048: IF g_debug
4049: THEN
4046: END IF;
4047: ELSE
4048: IF g_debug
4049: THEN
4050: hr_utility.set_location (l_proc, 40);
4051: END IF;
4052:
4053: IF i_hxt_rotation_plan IS NOT NULL
4054: THEN
4053: IF i_hxt_rotation_plan IS NOT NULL
4054: THEN
4055: IF g_debug
4056: THEN
4057: hr_utility.set_location (l_proc, 50);
4058: END IF;
4059:
4060: hxt_util.get_shift_info (l_hol_rec.holiday_date,
4061: l_work_id,
4071: );
4072:
4073: IF g_debug
4074: THEN
4075: hr_utility.TRACE ('l_retcode :' || l_retcode);
4076: END IF;
4077:
4078: IF l_retcode <> 0
4079: THEN
4078: IF l_retcode <> 0
4079: THEN
4080: IF g_debug
4081: THEN
4082: hr_utility.set_location (l_proc, 60);
4083: END IF;
4084:
4085: RAISE l_hours_worked_error;
4086: END IF;
4088: IF l_hours IS NOT NULL
4089: THEN
4090: IF g_debug
4091: THEN
4092: hr_utility.set_location (l_proc, 70);
4093: END IF;
4094:
4095: l_time_out := NULL;
4096: l_time_in := NULL;
4096: l_time_in := NULL;
4097:
4098: IF g_debug
4099: THEN
4100: hr_utility.TRACE ('l_time_in :' || l_time_in);
4101: hr_utility.TRACE ('l_time_out :' || l_time_out);
4102: END IF;
4103: ELSE
4104: IF g_debug
4097:
4098: IF g_debug
4099: THEN
4100: hr_utility.TRACE ('l_time_in :' || l_time_in);
4101: hr_utility.TRACE ('l_time_out :' || l_time_out);
4102: END IF;
4103: ELSE
4104: IF g_debug
4105: THEN
4102: END IF;
4103: ELSE
4104: IF g_debug
4105: THEN
4106: hr_utility.set_location (l_proc, 80);
4107: END IF;
4108:
4109: l_time_in :=
4110: TO_DATE ( TO_CHAR (l_hol_rec.holiday_date, 'DDMMYYYY ')
4119: l_hours := 24 * (l_time_out - l_time_in);
4120:
4121: IF g_debug
4122: THEN
4123: hr_utility.TRACE ('l_hours :' || l_hours);
4124: hr_utility.TRACE ('l_time_in :' || l_time_in);
4125: hr_utility.TRACE ('l_time_out :' || l_time_out);
4126: END IF;
4127:
4120:
4121: IF g_debug
4122: THEN
4123: hr_utility.TRACE ('l_hours :' || l_hours);
4124: hr_utility.TRACE ('l_time_in :' || l_time_in);
4125: hr_utility.TRACE ('l_time_out :' || l_time_out);
4126: END IF;
4127:
4128: IF l_hours = 0
4121: IF g_debug
4122: THEN
4123: hr_utility.TRACE ('l_hours :' || l_hours);
4124: hr_utility.TRACE ('l_time_in :' || l_time_in);
4125: hr_utility.TRACE ('l_time_out :' || l_time_out);
4126: END IF;
4127:
4128: IF l_hours = 0
4129: THEN
4128: IF l_hours = 0
4129: THEN
4130: IF g_debug
4131: THEN
4132: hr_utility.set_location (l_proc, 90);
4133: END IF;
4134:
4135: l_time_out := NULL;
4136: l_time_in := NULL;
4136: l_time_in := NULL;
4137:
4138: IF g_debug
4139: THEN
4140: hr_utility.TRACE ('l_time_in :' || l_time_in);
4141: hr_utility.TRACE ('l_time_out :' || l_time_out);
4142: END IF;
4143: END IF;
4144:
4137:
4138: IF g_debug
4139: THEN
4140: hr_utility.TRACE ('l_time_in :' || l_time_in);
4141: hr_utility.TRACE ('l_time_out :' || l_time_out);
4142: END IF;
4143: END IF;
4144:
4145: IF g_debug
4143: END IF;
4144:
4145: IF g_debug
4146: THEN
4147: hr_utility.set_location (l_proc, 100);
4148: END IF;
4149: END IF;
4150:
4151: IF g_debug
4149: END IF;
4150:
4151: IF g_debug
4152: THEN
4153: hr_utility.set_location (l_proc, 110);
4154: END IF;
4155: END IF;
4156:
4157: IF g_debug
4155: END IF;
4156:
4157: IF g_debug
4158: THEN
4159: hr_utility.set_location (l_proc, 120);
4160: END IF;
4161: END IF;
4162:
4163: IF g_debug
4161: END IF;
4162:
4163: IF g_debug
4164: THEN
4165: hr_utility.TRACE ('l_hours:' || l_hours);
4166: END IF;
4167:
4168: IF l_hours >= 0
4169: THEN
4168: IF l_hours >= 0
4169: THEN
4170: IF g_debug
4171: THEN
4172: hr_utility.set_location (l_proc, 130);
4173: END IF;
4174:
4175: l_retcode :=
4176: record_hours_worked (NULL,
4221:
4222: --p_mode);
4223: IF g_debug
4224: THEN
4225: hr_utility.TRACE ('l_retcode :' || l_retcode);
4226: hr_utility.set_location (l_proc, 140);
4227: END IF;
4228: END IF;
4229:
4222: --p_mode);
4223: IF g_debug
4224: THEN
4225: hr_utility.TRACE ('l_retcode :' || l_retcode);
4226: hr_utility.set_location (l_proc, 140);
4227: END IF;
4228: END IF;
4229:
4230: IF l_retcode <> 0
4230: IF l_retcode <> 0
4231: THEN
4232: IF g_debug
4233: THEN
4234: hr_utility.set_location (l_proc, 150);
4235: END IF;
4236:
4237: RAISE l_hours_worked_error;
4238: END IF;
4238: END IF;
4239:
4240: IF g_debug
4241: THEN
4242: hr_utility.set_location (l_proc, 160);
4243: END IF;
4244:
4245: o_otm_error := l_otm_error;
4246: o_oracle_error := l_oracle_error;
4247: o_created_tim_sum_id := l_created_tim_sum_id;
4248:
4249: IF g_debug
4250: THEN
4251: hr_utility.TRACE ('o_otm_error :' || o_otm_error);
4252: hr_utility.TRACE ('o_oracle_error :' || o_oracle_error);
4253: hr_utility.TRACE ('o_created_tim_sum_id :' || o_created_tim_sum_id
4254: );
4255: END IF;
4248:
4249: IF g_debug
4250: THEN
4251: hr_utility.TRACE ('o_otm_error :' || o_otm_error);
4252: hr_utility.TRACE ('o_oracle_error :' || o_oracle_error);
4253: hr_utility.TRACE ('o_created_tim_sum_id :' || o_created_tim_sum_id
4254: );
4255: END IF;
4256: END LOOP;
4249: IF g_debug
4250: THEN
4251: hr_utility.TRACE ('o_otm_error :' || o_otm_error);
4252: hr_utility.TRACE ('o_oracle_error :' || o_oracle_error);
4253: hr_utility.TRACE ('o_created_tim_sum_id :' || o_created_tim_sum_id
4254: );
4255: END IF;
4256: END LOOP;
4257:
4256: END LOOP;
4257:
4258: IF g_debug
4259: THEN
4260: hr_utility.set_location (l_proc, 170);
4261: END IF;
4262:
4263: RETURN 0;
4264: EXCEPTION
4265: WHEN NO_DATA_FOUND
4266: THEN
4267: IF g_debug
4268: THEN
4269: hr_utility.set_location (l_proc, 180);
4270: END IF;
4271:
4272: RETURN 0;
4273: WHEN l_hours_worked_error
4273: WHEN l_hours_worked_error
4274: THEN
4275: IF g_debug
4276: THEN
4277: hr_utility.set_location (l_proc, 190);
4278: END IF;
4279:
4280: fnd_message.set_name ('HXT', 'HXT_39565_ERR_IN_CHH');
4281: o_otm_error := fnd_message.get;
4284: --2278400
4285: RETURN 1;
4286: WHEN OTHERS
4287: THEN
4288: hr_utility.trace(dbms_utility.format_error_backtrace);
4289: IF g_debug
4290: THEN
4291: hr_utility.set_location (l_proc, 200);
4292: END IF;
4287: THEN
4288: hr_utility.trace(dbms_utility.format_error_backtrace);
4289: IF g_debug
4290: THEN
4291: hr_utility.set_location (l_proc, 200);
4292: END IF;
4293:
4294: fnd_message.set_name ('HXT', 'HXT_39413_LOC_HOL');
4295: fnd_message.set_token ('ASG_ID', TO_CHAR (i_assignment_id));
4362: error_in_shift_info EXCEPTION;
4363: -- error_in_check_hol exception;
4364: l_proc VARCHAR2 (100);
4365: BEGIN
4366: g_debug := hr_utility.debug_enabled;
4367:
4368: IF g_debug
4369: THEN
4370: l_proc := 'hxt_time_collection.LOAD_POLICIES';
4367:
4368: IF g_debug
4369: THEN
4370: l_proc := 'hxt_time_collection.LOAD_POLICIES';
4371: hr_utility.set_location (l_proc, 10);
4372: END IF;
4373:
4374: p_hol_yn := 'N';
4375:
4376: -- Get policies assigned to person
4377: BEGIN
4378: IF g_debug
4379: THEN
4380: hr_utility.set_location (l_proc, 20);
4381: END IF;
4382:
4383: p_egp_id := p_summ_earn_pol_id;
4384: hxt_util.get_policies (p_egp_id,
4401: );
4402:
4403: IF g_debug
4404: THEN
4405: hr_utility.set_location (l_proc, 30);
4406: END IF;
4407:
4408: -- Check if error encountered
4409: IF p_error <> 0
4409: IF p_error <> 0
4410: THEN
4411: IF g_debug
4412: THEN
4413: hr_utility.set_location (l_proc, 40);
4414: END IF;
4415:
4416: RAISE error_in_policies;
4417: END IF;
4417: END IF;
4418:
4419: IF g_debug
4420: THEN
4421: hr_utility.set_location (l_proc, 50);
4422: END IF;
4423: END;
4424:
4425: -- Check if person assigned work or rotation plan
4425: -- Check if person assigned work or rotation plan
4426: BEGIN
4427: IF g_debug
4428: THEN
4429: hr_utility.set_location (l_proc, 60);
4430: END IF;
4431:
4432: IF (p_work_plan IS NOT NULL) OR (p_rotation_plan IS NOT NULL)
4433: THEN
4432: IF (p_work_plan IS NOT NULL) OR (p_rotation_plan IS NOT NULL)
4433: THEN
4434: IF g_debug
4435: THEN
4436: hr_utility.set_location (l_proc, 70);
4437: END IF;
4438:
4439: -- Get premiums for shift
4440: hxt_util.get_shift_info (p_summ_date_worked,
4451: );
4452:
4453: IF g_debug
4454: THEN
4455: hr_utility.set_location (l_proc, 80);
4456: END IF;
4457:
4458: -- Check if error encountered
4459: IF p_error <> 0
4459: IF p_error <> 0
4460: THEN
4461: IF g_debug
4462: THEN
4463: hr_utility.set_location (l_proc, 90);
4464: END IF;
4465:
4466: RAISE error_in_shift_info;
4467: END IF;
4467: END IF;
4468:
4469: IF g_debug
4470: THEN
4471: hr_utility.set_location (l_proc, 100);
4472: END IF;
4473: END IF; -- person assigned work or rotation plan
4474:
4475: IF g_debug
4473: END IF; -- person assigned work or rotation plan
4474:
4475: IF g_debug
4476: THEN
4477: hr_utility.set_location (l_proc, 110);
4478: END IF;
4479: END;
4480: -- Get holiday earning, day before/after, etc
4481: /* BEGIN
4502: WHEN error_in_policies
4503: THEN
4504: IF g_debug
4505: THEN
4506: hr_utility.set_location (l_proc, 120);
4507: END IF;
4508:
4509: fnd_message.set_name ('HXT', 'HXT_39171_ERN_POL_OP_VIOL');
4510: fnd_message.set_token ('ORA_ERROR', SQLERRM);
4512: WHEN error_in_shift_info
4513: THEN
4514: IF g_debug
4515: THEN
4516: hr_utility.set_location (l_proc, 130);
4517: END IF;
4518:
4519: fnd_message.set_name ('HXT', 'HXT_39172_SHF_PREMS_OP_VIOL');
4520: fnd_message.set_token ('ORA_ERROR', SQLERRM);
4699: BEGIN
4700: IF g_debug
4701: THEN
4702: l_proc := 'hxt_time_collection.RECORD_HOURS_WORKED';
4703: hr_utility.set_location (l_proc, 10);
4704: END IF;
4705:
4706: /*Fetch additional assignment details about this employee*/
4707: /*
4705:
4706: /*Fetch additional assignment details about this employee*/
4707: /*
4708: BEGIN
4709: hr_utility.set_location (l_proc, 20);
4710: OPEN g_details_cur (i_assignment_id, i_date_worked);
4711: FETCH g_details_cur INTO l_det_rec;
4712: CLOSE g_details_cur;
4713: EXCEPTION
4712: CLOSE g_details_cur;
4713: EXCEPTION
4714: WHEN NO_DATA_FOUND
4715: THEN
4716: hr_utility.set_location (l_proc, 30);
4717: RAISE l_details_error;
4718: WHEN OTHERS
4719: THEN
4720: hr_utility.set_location (l_proc, 40);
4716: hr_utility.set_location (l_proc, 30);
4717: RAISE l_details_error;
4718: WHEN OTHERS
4719: THEN
4720: hr_utility.set_location (l_proc, 40);
4721: RAISE l_details_system_error;
4722: END;
4723: */
4724: /*Get earning policy details */
4722: END;
4723: */
4724: /*Get earning policy details */
4725: /*
4726: hr_utility.set_location (l_proc, 50);
4727: OPEN g_earn_pol_details_cur (
4728: NVL (i_earn_pol_id, l_det_rec.hxt_earning_policy),
4729: i_date_worked
4730: );
4769: );
4770:
4771: IF g_debug
4772: THEN
4773: hr_utility.set_location (l_proc, 20);
4774: END IF;
4775:
4776: IF l_otm_error IS NOT NULL
4777: THEN
4776: IF l_otm_error IS NOT NULL
4777: THEN
4778: IF g_debug
4779: THEN
4780: hr_utility.set_location (l_proc, 30);
4781: END IF;
4782:
4783: RAISE l_details_error;
4784: END IF;
4790:
4791: /*Obtain a unique hours worked id*/
4792: IF g_debug
4793: THEN
4794: hr_utility.set_location (l_proc, 40);
4795: END IF;
4796:
4797: IF i_time_summary_id IS NULL
4798: THEN
4797: IF i_time_summary_id IS NULL
4798: THEN
4799: IF g_debug
4800: THEN
4801: hr_utility.set_location (l_proc, 50);
4802: END IF;
4803:
4804: l_hours_worked_id := hxt_time_gen.get_hxt_seqno;
4805:
4804: l_hours_worked_id := hxt_time_gen.get_hxt_seqno;
4805:
4806: IF g_debug
4807: THEN
4808: hr_utility.TRACE ('l_hours_worked_id :' || l_hours_worked_id);
4809: END IF;
4810: ELSE
4811: IF g_debug
4812: THEN
4809: END IF;
4810: ELSE
4811: IF g_debug
4812: THEN
4813: hr_utility.set_location (l_proc, 60);
4814: END IF;
4815:
4816: l_hours_worked_id := i_time_summary_id;
4817:
4816: l_hours_worked_id := i_time_summary_id;
4817:
4818: IF g_debug
4819: THEN
4820: hr_utility.TRACE ('l_hours_worked_id :' || l_hours_worked_id);
4821: END IF;
4822: END IF;
4823:
4824: IF g_debug
4822: END IF;
4823:
4824: IF g_debug
4825: THEN
4826: hr_utility.set_location (l_proc, 70);
4827: END IF;
4828:
4829: IF l_hours_worked_id = NULL
4830: THEN
4829: IF l_hours_worked_id = NULL
4830: THEN
4831: IF g_debug
4832: THEN
4833: hr_utility.set_location (l_proc, 80);
4834: END IF;
4835:
4836: RAISE l_hours_worked_id_error;
4837: END IF;
4837: END IF;
4838:
4839: IF g_debug
4840: THEN
4841: hr_utility.set_location (l_proc, 90);
4842: END IF;
4843:
4844: g_hours_worked_err_id := l_hours_worked_id;
4845: o_created_tim_sum_id := l_hours_worked_id;
4845: o_created_tim_sum_id := l_hours_worked_id;
4846:
4847: IF g_debug
4848: THEN
4849: hr_utility.TRACE ('g_hours_worked_err_id :' || g_hours_worked_err_id);
4850: hr_utility.TRACE ('o_created_tim_sum_id :' || o_created_tim_sum_id);
4851: END IF;
4852:
4853: IF b_generate_holiday = TRUE
4846:
4847: IF g_debug
4848: THEN
4849: hr_utility.TRACE ('g_hours_worked_err_id :' || g_hours_worked_err_id);
4850: hr_utility.TRACE ('o_created_tim_sum_id :' || o_created_tim_sum_id);
4851: END IF;
4852:
4853: IF b_generate_holiday = TRUE
4854: THEN
4853: IF b_generate_holiday = TRUE
4854: THEN
4855: IF g_debug
4856: THEN
4857: hr_utility.set_location (l_proc, 100);
4858: END IF;
4859:
4860: l_hours := i_hours;
4861: l_start_time := i_start_time;
4863: l_hol_yn := 'Y';
4864:
4865: IF g_debug
4866: THEN
4867: hr_utility.TRACE ('l_hours :' || l_hours);
4868: hr_utility.TRACE ('l_start_time :' || l_start_time);
4869: hr_utility.TRACE ('l_end_time :' || l_end_time);
4870: hr_utility.TRACE ('l_hol_yn :' || l_hol_yn);
4871: END IF;
4864:
4865: IF g_debug
4866: THEN
4867: hr_utility.TRACE ('l_hours :' || l_hours);
4868: hr_utility.TRACE ('l_start_time :' || l_start_time);
4869: hr_utility.TRACE ('l_end_time :' || l_end_time);
4870: hr_utility.TRACE ('l_hol_yn :' || l_hol_yn);
4871: END IF;
4872: ELSE
4865: IF g_debug
4866: THEN
4867: hr_utility.TRACE ('l_hours :' || l_hours);
4868: hr_utility.TRACE ('l_start_time :' || l_start_time);
4869: hr_utility.TRACE ('l_end_time :' || l_end_time);
4870: hr_utility.TRACE ('l_hol_yn :' || l_hol_yn);
4871: END IF;
4872: ELSE
4873: IF (i_start_time IS NOT NULL AND i_end_time IS NOT NULL)
4866: THEN
4867: hr_utility.TRACE ('l_hours :' || l_hours);
4868: hr_utility.TRACE ('l_start_time :' || l_start_time);
4869: hr_utility.TRACE ('l_end_time :' || l_end_time);
4870: hr_utility.TRACE ('l_hol_yn :' || l_hol_yn);
4871: END IF;
4872: ELSE
4873: IF (i_start_time IS NOT NULL AND i_end_time IS NOT NULL)
4874: THEN
4873: IF (i_start_time IS NOT NULL AND i_end_time IS NOT NULL)
4874: THEN
4875: IF g_debug
4876: THEN
4877: hr_utility.set_location (l_proc, 110);
4878: hr_utility.TRACE ('before Adjust_Timings');
4879: END IF;
4880:
4881: hxt_time_collection.adjust_timings
4874: THEN
4875: IF g_debug
4876: THEN
4877: hr_utility.set_location (l_proc, 110);
4878: hr_utility.TRACE ('before Adjust_Timings');
4879: END IF;
4880:
4881: hxt_time_collection.adjust_timings
4882: (p_timecard_source,
4899: ); -- SIR236
4900:
4901: IF g_debug
4902: THEN
4903: hr_utility.set_location (l_proc, 120);
4904: hr_utility.TRACE ('after Adjust_Timings');
4905: hr_utility.TRACE ('l_ad_error is : ' || l_ad_error);
4906: hr_utility.TRACE ('l_ad_code is : ' || TO_CHAR (l_ad_code));
4907: END IF;
4900:
4901: IF g_debug
4902: THEN
4903: hr_utility.set_location (l_proc, 120);
4904: hr_utility.TRACE ('after Adjust_Timings');
4905: hr_utility.TRACE ('l_ad_error is : ' || l_ad_error);
4906: hr_utility.TRACE ('l_ad_code is : ' || TO_CHAR (l_ad_code));
4907: END IF;
4908:
4901: IF g_debug
4902: THEN
4903: hr_utility.set_location (l_proc, 120);
4904: hr_utility.TRACE ('after Adjust_Timings');
4905: hr_utility.TRACE ('l_ad_error is : ' || l_ad_error);
4906: hr_utility.TRACE ('l_ad_code is : ' || TO_CHAR (l_ad_code));
4907: END IF;
4908:
4909: IF l_ad_code <> 0
4902: THEN
4903: hr_utility.set_location (l_proc, 120);
4904: hr_utility.TRACE ('after Adjust_Timings');
4905: hr_utility.TRACE ('l_ad_error is : ' || l_ad_error);
4906: hr_utility.TRACE ('l_ad_code is : ' || TO_CHAR (l_ad_code));
4907: END IF;
4908:
4909: IF l_ad_code <> 0
4910: THEN -- SIR236
4909: IF l_ad_code <> 0
4910: THEN -- SIR236
4911: IF g_debug
4912: THEN
4913: hr_utility.set_location (l_proc, 125);
4914: END IF;
4915:
4916: RAISE l_adjust_tim_error;
4917: END IF;
4917: END IF;
4918:
4919: IF g_debug
4920: THEN
4921: hr_utility.set_location (l_proc, 130);
4922: END IF;
4923:
4924: l_hours := reset_hours (l_start_time, l_end_time);
4925:
4924: l_hours := reset_hours (l_start_time, l_end_time);
4925:
4926: IF g_debug
4927: THEN
4928: hr_utility.set_location (l_proc, 140);
4929: hr_utility.TRACE ('l_hours :' || l_hours);
4930: END IF;
4931: END IF;
4932:
4925:
4926: IF g_debug
4927: THEN
4928: hr_utility.set_location (l_proc, 140);
4929: hr_utility.TRACE ('l_hours :' || l_hours);
4930: END IF;
4931: END IF;
4932:
4933: IF g_debug
4931: END IF;
4932:
4933: IF g_debug
4934: THEN
4935: hr_utility.set_location (l_proc, 150);
4936: END IF;
4937: END IF;
4938:
4939: /*Obtain a unique hours worked id*/
4954: o_created_tim_sum_id := l_hours_worked_id;
4955: */
4956: IF g_debug
4957: THEN
4958: hr_utility.set_location (l_proc, 155);
4959: END IF;
4960:
4961: /*Obtain the next sequence number for hours worked on this day*/
4962: l_sequence_number :=
4963: hxt_util.get_next_seqno (i_timecard_id, i_date_worked);
4964:
4965: IF g_debug
4966: THEN
4967: hr_utility.TRACE ('l_sequence_number :' || l_sequence_number);
4968: END IF;
4969:
4970: --
4971: IF l_sequence_number = NULL
4971: IF l_sequence_number = NULL
4972: THEN
4973: IF g_debug
4974: THEN
4975: hr_utility.set_location (l_proc, 160);
4976: END IF;
4977:
4978: RAISE l_seq_num_error;
4979: END IF;
4982: IF i_writesum_yn = 'Y'
4983: THEN
4984: IF g_debug
4985: THEN
4986: hr_utility.set_location (l_proc, 170);
4987: END IF;
4988:
4989: IF i_time_summary_id IS NULL
4990: THEN
4989: IF i_time_summary_id IS NULL
4990: THEN
4991: IF g_debug
4992: THEN
4993: hr_utility.set_location (l_proc, 180);
4994: END IF;
4995:
4996: -- SELECT hxt_group_id_s.nextval
4997: -- INTO l_group_id
5112: );
5113:
5114: IF g_debug
5115: THEN
5116: hr_utility.set_location (l_proc, 190);
5117: END IF;
5118: --
5119: -- Note: If a non-NULL tim_summary_id value is received by the API, check
5120: -- the current batch status. If the batch is in a hold state the
5127: --
5128: ELSE
5129: IF g_debug
5130: THEN
5131: hr_utility.set_location (l_proc, 200);
5132: END IF;
5133:
5134: --SIR290 IF nvl(i_batch_status, 'QQ') in ('VV','VW', 'H', 'VE') THEN
5135: --
5141: INTO l_allow_sum_correction;
5142:
5143: IF g_debug
5144: THEN
5145: hr_utility.TRACE ( 'l_allow_sum_correction :'
5146: || l_allow_sum_correction
5147: );
5148: END IF;
5149:
5154: AND (l_allow_sum_correction = 'Y')
5155: THEN
5156: IF g_debug
5157: THEN
5158: hr_utility.set_location (l_proc, 210);
5159: END IF;
5160:
5161: /* UPDATE hxt_sum_hours_worked_f
5162: SET effective_start_date = i_tim_sum_eff_start_date,
5215:
5216:
5217: IF g_debug
5218: THEN
5219: hr_utility.set_location (l_proc, 220);
5220: END IF;
5221:
5222: hxt_dml.update_hxt_sum_hours_worked
5223: (p_rowid => l_rowid,
5266: );
5267: ELSE
5268: IF g_debug
5269: THEN
5270: hr_utility.set_location (l_proc, 230);
5271: END IF;
5272:
5273: -- Bug 7359347
5274: -- Picking up rowid, so querying on the base table instead of the view.
5361: WHERE ROWID = v_row_id;
5362:
5363: IF g_debug
5364: THEN
5365: hr_utility.set_location (l_proc, 240);
5366: END IF;
5367:
5368: hxt_dml.insert_hxt_sum_hours_worked
5369: (p_rowid => l_rowid,
5412: );
5413:
5414: IF g_debug
5415: THEN
5416: hr_utility.set_location (l_proc, 250);
5417: END IF;
5418:
5419: --
5420: UPDATE hxt_sum_hours_worked_f
5423:
5424: --
5425: IF g_debug
5426: THEN
5427: hr_utility.set_location (l_proc, 260);
5428: END IF;
5429: END IF; -- End of Correction/History Check
5430:
5431: IF g_debug
5429: END IF; -- End of Correction/History Check
5430:
5431: IF g_debug
5432: THEN
5433: hr_utility.set_location (l_proc, 270);
5434: END IF;
5435: END IF; -- End of Time Summary Id Check
5436:
5437: IF g_debug
5435: END IF; -- End of Time Summary Id Check
5436:
5437: IF g_debug
5438: THEN
5439: hr_utility.set_location (l_proc, 280);
5440: END IF;
5441: END IF; -- End of Write Summary Check
5442:
5443: /*Generate time details*/
5442:
5443: /*Generate time details*/
5444: IF g_debug
5445: THEN
5446: hr_utility.set_location (l_proc, 290);
5447: END IF;
5448:
5449: OPEN upd_det_cur (l_hours_worked_id);
5450:
5457: IF i_explode_yn = 'Y'
5458: THEN
5459: IF g_debug
5460: THEN
5461: hr_utility.set_location (l_proc, 300);
5462: END IF;
5463:
5464: --
5465: IF g_sess_date IS NULL
5476:
5477:
5478: IF g_debug
5479: THEN
5480: hr_utility.TRACE ('l_retcode :' || l_retcode);
5481: END IF;
5482:
5483: IF l_retcode = 1
5484: THEN
5483: IF l_retcode = 1
5484: THEN
5485: IF g_debug
5486: THEN
5487: hr_utility.set_location (l_proc, 310);
5488: END IF;
5489:
5490: RAISE l_sess_date_err;
5491: END IF;
5492:
5493: --
5494: IF g_debug
5495: THEN
5496: hr_utility.set_location (l_proc, 320);
5497: END IF;
5498:
5499: hxt_td_util.retro_restrict_edit (p_tim_id => i_timecard_id,
5500: p_session_date => l_session_date,
5505: );
5506:
5507: IF g_debug
5508: THEN
5509: hr_utility.set_location (l_proc, 330);
5510: hr_utility.TRACE ('o_return_code :' || o_return_code);
5511: END IF;
5512:
5513: IF o_return_code = 1 OR l_otm_error IS NOT NULL
5506:
5507: IF g_debug
5508: THEN
5509: hr_utility.set_location (l_proc, 330);
5510: hr_utility.TRACE ('o_return_code :' || o_return_code);
5511: END IF;
5512:
5513: IF o_return_code = 1 OR l_otm_error IS NOT NULL
5514: THEN
5513: IF o_return_code = 1 OR l_otm_error IS NOT NULL
5514: THEN
5515: IF g_debug
5516: THEN
5517: hr_utility.set_location (l_proc, 340);
5518: END IF;
5519:
5520: -- Bug 7380181
5521: -- Raised the exception here instead of raising it from the
5569: IF NVL (l_dt_update_mode, 'CORRECTION') = 'CORRECTION'
5570: THEN
5571: IF g_debug
5572: THEN
5573: hr_utility.set_location (l_proc, 350);
5574: END IF;
5575:
5576: -- Delete
5577: -- Bug 7359347
5600: ); --level errors
5601: ELSE
5602: IF g_debug
5603: THEN
5604: hr_utility.set_location (l_proc, 360);
5605: END IF;
5606:
5607: -- Expire
5608: -- Bug 7359347
5637: END IF; -- Update or Correction
5638:
5639: IF g_debug
5640: THEN
5641: hr_utility.set_location (l_proc, 370);
5642: END IF;
5643: EXCEPTION
5644: WHEN OTHERS
5645: THEN
5644: WHEN OTHERS
5645: THEN
5646: IF g_debug
5647: THEN
5648: hr_utility.set_location (l_proc, 380);
5649: END IF;
5650: hr_utility.trace(dbms_utility.format_error_backtrace);
5651:
5652: fnd_message.set_name ('HXT', 'HXT_39567_ERR_IN_DD');
5646: IF g_debug
5647: THEN
5648: hr_utility.set_location (l_proc, 380);
5649: END IF;
5650: hr_utility.trace(dbms_utility.format_error_backtrace);
5651:
5652: fnd_message.set_name ('HXT', 'HXT_39567_ERR_IN_DD');
5653: fnd_message.set_token ('ERR_TEXT', SQLERRM);
5654: o_error_message := fnd_message.get;
5659: END; -- delete details
5660:
5661: IF g_debug
5662: THEN
5663: hr_utility.set_location (l_proc, 390);
5664: hr_utility.TRACE ('Before Generate_Details ');
5665: hr_utility.TRACE ('l_osp_id :' || l_osp_id);
5666: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
5667: hr_utility.TRACE ('l_sdp_id :' || l_sdp_id);
5660:
5661: IF g_debug
5662: THEN
5663: hr_utility.set_location (l_proc, 390);
5664: hr_utility.TRACE ('Before Generate_Details ');
5665: hr_utility.TRACE ('l_osp_id :' || l_osp_id);
5666: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
5667: hr_utility.TRACE ('l_sdp_id :' || l_sdp_id);
5668: hr_utility.TRACE ('l_hdp_id :' || l_hdp_id);
5661: IF g_debug
5662: THEN
5663: hr_utility.set_location (l_proc, 390);
5664: hr_utility.TRACE ('Before Generate_Details ');
5665: hr_utility.TRACE ('l_osp_id :' || l_osp_id);
5666: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
5667: hr_utility.TRACE ('l_sdp_id :' || l_sdp_id);
5668: hr_utility.TRACE ('l_hdp_id :' || l_hdp_id);
5669: hr_utility.TRACE ('l_egp_id :' || l_egp_id);
5662: THEN
5663: hr_utility.set_location (l_proc, 390);
5664: hr_utility.TRACE ('Before Generate_Details ');
5665: hr_utility.TRACE ('l_osp_id :' || l_osp_id);
5666: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
5667: hr_utility.TRACE ('l_sdp_id :' || l_sdp_id);
5668: hr_utility.TRACE ('l_hdp_id :' || l_hdp_id);
5669: hr_utility.TRACE ('l_egp_id :' || l_egp_id);
5670: hr_utility.TRACE ('l_rotation_plan:' || l_rotation_plan);
5663: hr_utility.set_location (l_proc, 390);
5664: hr_utility.TRACE ('Before Generate_Details ');
5665: hr_utility.TRACE ('l_osp_id :' || l_osp_id);
5666: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
5667: hr_utility.TRACE ('l_sdp_id :' || l_sdp_id);
5668: hr_utility.TRACE ('l_hdp_id :' || l_hdp_id);
5669: hr_utility.TRACE ('l_egp_id :' || l_egp_id);
5670: hr_utility.TRACE ('l_rotation_plan:' || l_rotation_plan);
5671: END IF;
5664: hr_utility.TRACE ('Before Generate_Details ');
5665: hr_utility.TRACE ('l_osp_id :' || l_osp_id);
5666: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
5667: hr_utility.TRACE ('l_sdp_id :' || l_sdp_id);
5668: hr_utility.TRACE ('l_hdp_id :' || l_hdp_id);
5669: hr_utility.TRACE ('l_egp_id :' || l_egp_id);
5670: hr_utility.TRACE ('l_rotation_plan:' || l_rotation_plan);
5671: END IF;
5672:
5665: hr_utility.TRACE ('l_osp_id :' || l_osp_id);
5666: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
5667: hr_utility.TRACE ('l_sdp_id :' || l_sdp_id);
5668: hr_utility.TRACE ('l_hdp_id :' || l_hdp_id);
5669: hr_utility.TRACE ('l_egp_id :' || l_egp_id);
5670: hr_utility.TRACE ('l_rotation_plan:' || l_rotation_plan);
5671: END IF;
5672:
5673: --
5666: hr_utility.TRACE ('l_sdf_id :' || l_sdf_id);
5667: hr_utility.TRACE ('l_sdp_id :' || l_sdp_id);
5668: hr_utility.TRACE ('l_hdp_id :' || l_hdp_id);
5669: hr_utility.TRACE ('l_egp_id :' || l_egp_id);
5670: hr_utility.TRACE ('l_rotation_plan:' || l_rotation_plan);
5671: END IF;
5672:
5673: --
5674: l_retcode :=
5766: );
5767:
5768: IF g_debug
5769: THEN
5770: hr_utility.set_location (l_proc, 400);
5771: hr_utility.TRACE ('l_retcode :' || l_retcode);
5772: END IF;
5773:
5774: IF l_retcode = 2
5767:
5768: IF g_debug
5769: THEN
5770: hr_utility.set_location (l_proc, 400);
5771: hr_utility.TRACE ('l_retcode :' || l_retcode);
5772: END IF;
5773:
5774: IF l_retcode = 2
5775: THEN
5774: IF l_retcode = 2
5775: THEN
5776: IF g_debug
5777: THEN
5778: hr_utility.set_location (l_proc, 410);
5779: END IF;
5780:
5781: RAISE l_generate_details_error;
5782: END IF;
5784: IF l_retcode = 11
5785: THEN
5786: IF g_debug
5787: THEN
5788: hr_utility.set_location (l_proc, 415);
5789: END IF;
5790:
5791: RAISE l_inc_tim_hr_entry_err;
5792: END IF;
5792: END IF;
5793:
5794: IF g_debug
5795: THEN
5796: hr_utility.set_location (l_proc, 420);
5797: END IF;
5798: END IF; -- End of Explode YN Check
5799:
5800: --
5799:
5800: --
5801: IF g_debug
5802: THEN
5803: hr_utility.set_location (l_proc, 430);
5804: END IF;
5805:
5806: RETURN 0;
5807: EXCEPTION
5808: WHEN l_adjust_tim_error
5809: THEN
5810: IF g_debug
5811: THEN
5812: hr_utility.set_location (l_proc, 440);
5813: END IF;
5814:
5815: o_otm_error := l_ad_error;
5816:
5815: o_otm_error := l_ad_error;
5816:
5817: IF g_debug
5818: THEN
5819: hr_utility.TRACE ('o_otm_error :' || o_otm_error);
5820: END IF;
5821:
5822: RETURN 2;
5823: WHEN l_details_error
5823: WHEN l_details_error
5824: THEN
5825: IF g_debug
5826: THEN
5827: hr_utility.set_location (l_proc, 450);
5828: END IF;
5829:
5830: fnd_message.set_name ('HXT', 'HXT_39414_LOC_ADDL_ASG');
5831: fnd_message.set_token ('ASG_ID', TO_CHAR (i_assignment_id));
5836: WHEN l_details_system_error
5837: THEN
5838: IF g_debug
5839: THEN
5840: hr_utility.set_location (l_proc, 460);
5841: END IF;
5842:
5843: fnd_message.set_name ('HXT', 'HXT_39415_FETCH_ASG_DET');
5844: fnd_message.set_token ('ASG_ID', TO_CHAR (i_assignment_id));
5850: WHEN l_paymix_error
5851: THEN
5852: IF g_debug
5853: THEN
5854: hr_utility.set_location (l_proc, 470);
5855: END IF;
5856:
5857: fnd_message.set_name ('HXT', 'HXT_39445_CHG_DATE');
5858: o_otm_error := fnd_message.get;
5862: WHEN l_hours_worked_id_error
5863: THEN
5864: IF g_debug
5865: THEN
5866: hr_utility.set_location (l_proc, 480);
5867: END IF;
5868:
5869: fnd_message.set_name ('HXT', 'HXT_39416_GET_HRW_ID');
5870: o_otm_error := fnd_message.get;
5875: WHEN l_generate_details_error
5876: THEN
5877: IF g_debug
5878: THEN
5879: hr_utility.set_location (l_proc, 490);
5880: END IF;
5881:
5882: --fnd_message.set_name ('HXT', 'HXT_39417_PROB_GEN_DET');
5883: o_otm_error := fnd_message.get;
5886: WHEN l_inc_tim_hr_entry_err
5887: THEN
5888: IF g_debug
5889: THEN
5890: hr_utility.set_location (l_proc, 495);
5891: END IF;
5892:
5893: fnd_message.set_name ('HXT', 'HXT_39329_INC_TIM_HR_ENTRIES');
5894: o_otm_error := fnd_message.get;
5898: WHEN l_seq_num_error
5899: THEN
5900: IF g_debug
5901: THEN
5902: hr_utility.set_location (l_proc, 500);
5903: END IF;
5904:
5905: fnd_message.set_name ('HXT', 'HXT_39418_GET_HRW_SEQ');
5906: o_otm_error := fnd_message.get;
5911: WHEN l_delete_details_err
5912: THEN
5913: IF g_debug
5914: THEN
5915: hr_utility.set_location (l_proc, 510);
5916: END IF;
5917:
5918: fnd_message.set_name ('HXT', 'HXT_39563_ERR_IN_RET_DD');
5919: fnd_message.set_token ('ERR_TEXT', l_otm_error);
5923: WHEN l_sess_date_err
5924: THEN
5925: IF g_debug
5926: THEN
5927: hr_utility.set_location (l_proc, 520);
5928: END IF;
5929:
5930: fnd_message.set_name ('HXT', 'HXT_39556_SESSION_DT_NF');
5931: o_otm_error := fnd_message.get;
5935: WHEN l_retro_edit_err
5936: THEN
5937: IF g_debug
5938: THEN
5939: hr_utility.set_location (l_proc, 530);
5940: END IF;
5941:
5942: o_otm_error := l_otm_error;
5943: o_oracle_error := SQLERRM;
5952: WHEN l_integ_error
5953: THEN
5954: IF g_debug
5955: THEN
5956: hr_utility.set_location (l_proc, 535);
5957: END IF;
5958:
5959: o_otm_error := l_otm_error;
5960: o_oracle_error := SQLERRM;
5964: );
5965: RETURN 2;
5966: WHEN OTHERS
5967: THEN
5968: hr_utility.trace(dbms_utility.format_error_backtrace);
5969: IF g_debug
5970: THEN
5971: hr_utility.set_location (l_proc, 540);
5972: END IF;
5967: THEN
5968: hr_utility.trace(dbms_utility.format_error_backtrace);
5969: IF g_debug
5970: THEN
5971: hr_utility.set_location (l_proc, 540);
5972: END IF;
5973:
5974: fnd_message.set_name ('HXT', 'HXT_39419_SYSERR_RECFUNC');
5975: o_otm_error := fnd_message.get;
6113: o_otm_error := l_otm_error;
6114: o_oracle_error := SQLERRM;
6115: WHEN OTHERS
6116: THEN
6117: hr_utility.trace(dbms_utility.format_error_backtrace);
6118: fnd_message.set_name ('HXT', 'HXT_39566_ERR_IN_CAE');
6119: l_otm_error := fnd_message.get;
6120: o_otm_error := l_otm_error;
6121: o_oracle_error := SQLERRM;
6162: BEGIN
6163: IF g_debug
6164: THEN
6165: l_proc := g_package || 'tim_id';
6166: hr_utility.set_location ('Entering ' || l_proc, 10);
6167: END IF;
6168:
6169: -- Bug 7359347
6170: -- Added the session_date parameter to the cursor.
6176: CLOSE csr_tim_id;
6177:
6178: IF g_debug
6179: THEN
6180: hr_utility.set_location ( ' returning l_tim_id = '
6181: || l_tim_id.tim_id,
6182: 20
6183: );
6184: hr_utility.set_location ('Leaving ' || l_proc, 100);
6180: hr_utility.set_location ( ' returning l_tim_id = '
6181: || l_tim_id.tim_id,
6182: 20
6183: );
6184: hr_utility.set_location ('Leaving ' || l_proc, 100);
6185: END IF;
6186:
6187: RETURN l_tim_id.tim_id;
6188: END tim_id;
6193: BEGIN
6194: IF g_debug
6195: THEN
6196: l_proc := g_package || 'remove_tc_details';
6197: hr_utility.set_location ('Entering ' || l_proc, 10);
6198: END IF;
6199:
6200: DELETE FROM hxt_det_hours_worked_f
6201: WHERE parent_id = p_sum_id;
6204: WHERE ID = p_sum_id;
6205:
6206: IF g_debug
6207: THEN
6208: hr_utility.set_location ('Leaving ' || l_proc, 100);
6209: END IF;
6210: END remove_tc_details;
6211: BEGIN -- Main delete_summary_record
6212: g_debug := hr_utility.debug_enabled;
6208: hr_utility.set_location ('Leaving ' || l_proc, 100);
6209: END IF;
6210: END remove_tc_details;
6211: BEGIN -- Main delete_summary_record
6212: g_debug := hr_utility.debug_enabled;
6213:
6214: IF g_debug
6215: THEN
6216: l_proc := g_package || 'delete_summary_record';
6213:
6214: IF g_debug
6215: THEN
6216: l_proc := g_package || 'delete_summary_record';
6217: hr_utility.set_location ('Entering ' || l_proc, 10);
6218: END IF;
6219:
6220: hxt_td_util.retro_restrict_edit (p_tim_id => tim_id
6221: (p_sum_id),
6226: );
6227:
6228: IF g_debug
6229: THEN
6230: hr_utility.TRACE (' l_return_code :' || l_return_code);
6231: END IF;
6232:
6233: IF (l_dt_update_mode IS NULL)
6234: THEN
6249: END IF;
6250:
6251: IF g_debug
6252: THEN
6253: hr_utility.set_location ('Leaving ' || l_proc, 100);
6254: END IF;
6255:
6256: RETURN c_success;
6257: EXCEPTION
6258: WHEN l_retro_edit_err
6259: THEN
6260: IF g_debug
6261: THEN
6262: hr_utility.set_location ('Leaving ' || l_proc, 110);
6263: END IF;
6264:
6265: call_hxthxc_gen_error ('HXT',
6266: 'HXT_TC_CANNOT_BE_CHANGED_TODAY',
6271: WHEN l_integ_error
6272: THEN
6273: IF g_debug
6274: THEN
6275: hr_utility.set_location ('Leaving ' || l_proc, 115);
6276: END IF;
6277:
6278: call_hxthxc_gen_error ('HXC',
6279: 'HXC_PROJ_PAY_NO_OTLR',
6283: WHEN l_delete_not_allowed
6284: THEN
6285: IF g_debug
6286: THEN
6287: hr_utility.set_location ('Leaving ' || l_proc, 120);
6288: END IF;
6289:
6290: call_hxthxc_gen_error ('HXT',
6291: 'HXT_TC_CANNOT_BE_DELETED',
6293: );
6294: RETURN c_failure;
6295: WHEN OTHERS
6296: THEN
6297: hr_utility.trace(dbms_utility.format_error_backtrace);
6298: IF g_debug
6299: THEN
6300: hr_utility.set_location ('Leaving ' || l_proc, 130);
6301: END IF;
6296: THEN
6297: hr_utility.trace(dbms_utility.format_error_backtrace);
6298: IF g_debug
6299: THEN
6300: hr_utility.set_location ('Leaving ' || l_proc, 130);
6301: END IF;
6302:
6303: RETURN c_failure;
6304: END delete_summary_record;
6386:
6387: EXCEPTION
6388: WHEN OTHERS
6389: THEN
6390: hr_utility.trace(dbms_utility.format_error_backtrace);
6391: fnd_message.set_name ('HXT', 'HXT_39567_ERR_IN_DD');
6392: fnd_message.set_token ('ERR_TEXT', SQLERRM);
6393: o_error_message := fnd_message.get;
6394: call_hxthxc_gen_error ('HXC',
6449: l_time_out_actual DATE;
6450: l_valid_entry BOOLEAN;
6451: l_proc VARCHAR2 (100);
6452: BEGIN
6453: g_debug := hr_utility.debug_enabled;
6454:
6455: IF g_debug
6456: THEN
6457: l_proc := 'hxt_time_collection.ADJUST_TIMINGS';
6454:
6455: IF g_debug
6456: THEN
6457: l_proc := 'hxt_time_collection.ADJUST_TIMINGS';
6458: hr_utility.TRACE ('hxt_time_collection.ADJUST_TIMINGS BEGIN');
6459: hr_utility.set_location (l_proc, 10);
6460: hr_utility.TRACE ( 'p_time_in:'
6461: || TO_CHAR (p_time_in, 'dd-mon-yyyy hh24:mi:ss')
6462: );
6455: IF g_debug
6456: THEN
6457: l_proc := 'hxt_time_collection.ADJUST_TIMINGS';
6458: hr_utility.TRACE ('hxt_time_collection.ADJUST_TIMINGS BEGIN');
6459: hr_utility.set_location (l_proc, 10);
6460: hr_utility.TRACE ( 'p_time_in:'
6461: || TO_CHAR (p_time_in, 'dd-mon-yyyy hh24:mi:ss')
6462: );
6463: hr_utility.TRACE ( 'p_time_out:'
6456: THEN
6457: l_proc := 'hxt_time_collection.ADJUST_TIMINGS';
6458: hr_utility.TRACE ('hxt_time_collection.ADJUST_TIMINGS BEGIN');
6459: hr_utility.set_location (l_proc, 10);
6460: hr_utility.TRACE ( 'p_time_in:'
6461: || TO_CHAR (p_time_in, 'dd-mon-yyyy hh24:mi:ss')
6462: );
6463: hr_utility.TRACE ( 'p_time_out:'
6464: || TO_CHAR (p_time_out, 'dd-mon-yyyy hh24:mi:ss')
6459: hr_utility.set_location (l_proc, 10);
6460: hr_utility.TRACE ( 'p_time_in:'
6461: || TO_CHAR (p_time_in, 'dd-mon-yyyy hh24:mi:ss')
6462: );
6463: hr_utility.TRACE ( 'p_time_out:'
6464: || TO_CHAR (p_time_out, 'dd-mon-yyyy hh24:mi:ss')
6465: );
6466: hr_utility.TRACE ( 'p_actual_time_in:'
6467: || TO_CHAR (p_actual_time_in,
6462: );
6463: hr_utility.TRACE ( 'p_time_out:'
6464: || TO_CHAR (p_time_out, 'dd-mon-yyyy hh24:mi:ss')
6465: );
6466: hr_utility.TRACE ( 'p_actual_time_in:'
6467: || TO_CHAR (p_actual_time_in,
6468: 'dd-mon-yyyy hh24:mi:ss'
6469: )
6470: );
6467: || TO_CHAR (p_actual_time_in,
6468: 'dd-mon-yyyy hh24:mi:ss'
6469: )
6470: );
6471: hr_utility.TRACE ( 'p_actual_time_out:'
6472: || TO_CHAR (p_actual_time_out,
6473: 'dd-mon-yyyy hh24:mi:ss'
6474: )
6475: );
6472: || TO_CHAR (p_actual_time_out,
6473: 'dd-mon-yyyy hh24:mi:ss'
6474: )
6475: );
6476: hr_utility.TRACE ( 'p_org_in:'
6477: || TO_CHAR (p_org_in, 'dd-mon-yyyy hh24:mi:ss')
6478: );
6479: hr_utility.TRACE ( 'p_org_out:'
6480: || TO_CHAR (p_org_out, 'dd-mon-yyyy hh24:mi:ss')
6475: );
6476: hr_utility.TRACE ( 'p_org_in:'
6477: || TO_CHAR (p_org_in, 'dd-mon-yyyy hh24:mi:ss')
6478: );
6479: hr_utility.TRACE ( 'p_org_out:'
6480: || TO_CHAR (p_org_out, 'dd-mon-yyyy hh24:mi:ss')
6481: );
6482: END IF;
6483:
6497: AND aeiv.effective_end_date;
6498:
6499: IF g_debug
6500: THEN
6501: hr_utility.set_location (l_proc, 20);
6502: hr_utility.TRACE ('l_rot_id :' || l_rot_id);
6503: END IF;
6504: EXCEPTION
6505: WHEN NO_DATA_FOUND
6498:
6499: IF g_debug
6500: THEN
6501: hr_utility.set_location (l_proc, 20);
6502: hr_utility.TRACE ('l_rot_id :' || l_rot_id);
6503: END IF;
6504: EXCEPTION
6505: WHEN NO_DATA_FOUND
6506: THEN
6505: WHEN NO_DATA_FOUND
6506: THEN
6507: IF g_debug
6508: THEN
6509: hr_utility.set_location (l_proc, 30);
6510: END IF;
6511:
6512: l_rot_id := NULL;
6513: END;
6516: IF l_rot_id IS NOT NULL
6517: THEN
6518: IF g_debug
6519: THEN
6520: hr_utility.set_location (l_proc, 40);
6521: END IF;
6522:
6523: hxt_util.get_shift_info (p_date_worked,
6524: l_work_id,
6534: );
6535:
6536: IF g_debug
6537: THEN
6538: hr_utility.set_location (l_proc, 50);
6539: hr_utility.TRACE ('l_error :' || l_error);
6540: END IF;
6541:
6542: IF (l_error = 0)
6535:
6536: IF g_debug
6537: THEN
6538: hr_utility.set_location (l_proc, 50);
6539: hr_utility.TRACE ('l_error :' || l_error);
6540: END IF;
6541:
6542: IF (l_error = 0)
6543: THEN
6542: IF (l_error = 0)
6543: THEN
6544: IF g_debug
6545: THEN
6546: hr_utility.set_location (l_proc, 60);
6547: END IF;
6548:
6549: -- No error, so get the early start,etc timings...
6550: -- convert time_in, standard_start, and early_start to a date, plus
6555: )
6556: THEN
6557: IF g_debug
6558: THEN
6559: hr_utility.set_location (l_proc, 70);
6560: END IF;
6561:
6562: l_time_in_date := p_time_in;
6563: /* ROUND (
6588: 'DD-MM-YYYY HH24MI'
6589: );*/
6590: IF g_debug
6591: THEN
6592: hr_utility.TRACE ( 'l_time_in_date :'
6593: || TO_CHAR (l_time_in_date,
6594: 'DD-MON-YYYY HH24:MI:SS'
6595: )
6596: );
6593: || TO_CHAR (l_time_in_date,
6594: 'DD-MON-YYYY HH24:MI:SS'
6595: )
6596: );
6597: hr_utility.TRACE ( 'l_early_date :'
6598: || TO_CHAR (l_early_date,
6599: 'DD-MON-YYYY HH24:MI:SS'
6600: )
6601: );
6598: || TO_CHAR (l_early_date,
6599: 'DD-MON-YYYY HH24:MI:SS'
6600: )
6601: );
6602: hr_utility.TRACE ( 'l_std_date_start:'
6603: || TO_CHAR (l_std_date_start,
6604: 'DD-MON-YYYY HH24:MI:SS'
6605: )
6606: );
6609: IF l_time_in_date BETWEEN l_early_date AND l_std_date_start
6610: THEN
6611: IF g_debug
6612: THEN
6613: hr_utility.set_location (l_proc, 80);
6614: END IF;
6615:
6616: p_time_in := l_std_date_start;
6617: l_in_time_std := TRUE;
6617: l_in_time_std := TRUE;
6618:
6619: IF g_debug
6620: THEN
6621: hr_utility.TRACE ( 'p_time_in :'
6622: || TO_CHAR (p_time_in,
6623: 'DD-MON-YYYY HH24:MI:SS'
6624: )
6625: );
6627: END IF;
6628:
6629: IF g_debug
6630: THEN
6631: hr_utility.set_location (l_proc, 90);
6632: END IF;
6633: END IF; -- ( l_early_start is not null AND....)
6634: END IF;
6635:
6645: )
6646: THEN
6647: IF g_debug
6648: THEN
6649: hr_utility.set_location (l_proc, 100);
6650: END IF;
6651:
6652: l_time_out_date := p_time_out;
6653:
6665: + hxt_util.time_to_hours (l_late_stop) / 24;
6666:
6667: IF g_debug
6668: THEN
6669: hr_utility.TRACE ( 'l_late_date :'
6670: || TO_CHAR (l_late_date,
6671: 'DD-MON-YYYY HH24:MI:SS'
6672: )
6673: );
6689: 'DD-MM-YYYY HH24MI'
6690: );*/
6691: IF g_debug
6692: THEN
6693: hr_utility.TRACE ( 'l_time_out_date :'
6694: || TO_CHAR (l_time_out_date,
6695: 'DD-MON-YYYY HH24:MI:SS'
6696: )
6697: );
6694: || TO_CHAR (l_time_out_date,
6695: 'DD-MON-YYYY HH24:MI:SS'
6696: )
6697: );
6698: hr_utility.TRACE ( 'l_std_date_stop :'
6699: || TO_CHAR (l_std_date_stop,
6700: 'DD-MON-YYYY HH24:MI:SS'
6701: )
6702: );
6722: )
6723: THEN
6724: IF g_debug
6725: THEN
6726: hr_utility.set_location (l_proc, 105);
6727: END IF;
6728:
6729: l_time_out_date := l_time_out_date + 1;
6730: END IF;
6736: + hxt_util.time_to_hours (l_late_stop) / 24;
6737:
6738: IF g_debug
6739: THEN
6740: hr_utility.TRACE
6741: ( 'l_late_date :'
6742: || TO_CHAR
6743: (l_late_date,
6744: 'DD-MON-YYYY HH24:MI:SS'
6752: + hxt_util.time_to_hours (l_standard_stop) / 24;
6753:
6754: IF g_debug
6755: THEN
6756: hr_utility.TRACE ( 'l_time_out_date :'
6757: || TO_CHAR (l_time_out_date,
6758: 'DD-MON-YYYY HH24:MI:SS'
6759: )
6760: );
6757: || TO_CHAR (l_time_out_date,
6758: 'DD-MON-YYYY HH24:MI:SS'
6759: )
6760: );
6761: hr_utility.TRACE ( 'l_std_date_stop :'
6762: || TO_CHAR (l_std_date_stop,
6763: 'DD-MON-YYYY HH24:MI:SS'
6764: )
6765: );
6766: END IF;
6767:
6768: IF l_time_out_date BETWEEN l_std_date_stop AND l_late_date
6769: THEN
6770: hr_utility.set_location (l_proc, 110);
6771: p_time_out := l_std_date_stop;
6772: l_out_time_std := TRUE;
6773:
6774: IF g_debug
6772: l_out_time_std := TRUE;
6773:
6774: IF g_debug
6775: THEN
6776: hr_utility.TRACE
6777: ( 'p_time_out :'
6778: || TO_CHAR
6779: (p_time_out,
6780: 'DD-MON-YYYY HH24:MI:SS'
6783: END IF;
6784: ELSE
6785: IF g_debug
6786: THEN
6787: hr_utility.set_location (l_proc, 115);
6788: END IF;
6789:
6790: p_time_out := l_time_out_date;
6791:
6790: p_time_out := l_time_out_date;
6791:
6792: IF g_debug
6793: THEN
6794: hr_utility.TRACE
6795: ( 'p_time_out :'
6796: || TO_CHAR
6797: (p_time_out,
6798: 'DD-MON-YYYY HH24:MI:SS'
6802: END IF;
6803: ELSE -- P_timecard_source = 'Time Store'
6804: IF g_debug
6805: THEN
6806: hr_utility.set_location (l_proc, 116);
6807: END IF;
6808:
6809: l_late_date :=
6810: TRUNC (l_time_out_date)
6814: + hxt_util.time_to_hours (l_standard_stop) / 24;
6815:
6816: IF g_debug
6817: THEN
6818: hr_utility.TRACE ( 'l_time_out_date :'
6819: || TO_CHAR (l_time_out_date,
6820: 'DD-MON-YYYY HH24:MI:SS'
6821: )
6822: );
6819: || TO_CHAR (l_time_out_date,
6820: 'DD-MON-YYYY HH24:MI:SS'
6821: )
6822: );
6823: hr_utility.TRACE ( 'l_late_date :'
6824: || TO_CHAR (l_late_date,
6825: 'DD-MON-YYYY HH24:MI:SS'
6826: )
6827: );
6824: || TO_CHAR (l_late_date,
6825: 'DD-MON-YYYY HH24:MI:SS'
6826: )
6827: );
6828: hr_utility.TRACE ( 'l_std_date_stop :'
6829: || TO_CHAR (l_std_date_stop,
6830: 'DD-MON-YYYY HH24:MI:SS'
6831: )
6832: );
6835: IF l_time_out_date BETWEEN l_std_date_stop AND l_late_date
6836: THEN
6837: IF g_debug
6838: THEN
6839: hr_utility.set_location (l_proc, 120);
6840: END IF;
6841:
6842: p_time_out := l_std_date_stop;
6843: l_out_time_std := TRUE;
6843: l_out_time_std := TRUE;
6844:
6845: IF g_debug
6846: THEN
6847: hr_utility.TRACE
6848: ( 'p_time_out :'
6849: || TO_CHAR
6850: (p_time_out,
6851: 'DD-MON-YYYY HH24:MI:SS'
6850: (p_time_out,
6851: 'DD-MON-YYYY HH24:MI:SS'
6852: )
6853: );
6854: hr_utility.TRACE ( 'p_org_out :'
6855: || TO_CHAR
6856: (p_org_out,
6857: 'DD-MON-YYYY HH24:MI:SS'
6858: )
6862: END IF; -- P_timecard_source <> 'Time Store'
6863:
6864: IF g_debug
6865: THEN
6866: hr_utility.set_location (l_proc, 125);
6867: END IF;
6868: END IF; -- ( l_late_stop is not null AND....)
6869: END IF;
6870:
6869: END IF;
6870:
6871: IF g_debug
6872: THEN
6873: hr_utility.set_location (l_proc, 130);
6874: END IF;
6875: END IF; -- (l_error = 0)
6876:
6877: IF g_debug
6875: END IF; -- (l_error = 0)
6876:
6877: IF g_debug
6878: THEN
6879: hr_utility.set_location (l_proc, 140);
6880: END IF;
6881: -- END IF; -- (rot id is not NULL)
6882: ELSE -- l_rot_id IS NULL
6883: IF g_debug
6881: -- END IF; -- (rot id is not NULL)
6882: ELSE -- l_rot_id IS NULL
6883: IF g_debug
6884: THEN
6885: hr_utility.set_location (l_proc, 141);
6886: END IF;
6887:
6888: IF p_time_out IS NOT NULL
6889: THEN
6888: IF p_time_out IS NOT NULL
6889: THEN
6890: IF g_debug
6891: THEN
6892: hr_utility.set_location (l_proc, 142);
6893: END IF;
6894:
6895: l_time_out_date := p_time_out;
6896:
6897: IF p_timecard_source <> 'Time Store' and p_timecard_source <> 'Time Clock'
6898: THEN
6899: IF g_debug
6900: THEN
6901: hr_utility.set_location (l_proc, 143);
6902: END IF;
6903:
6904: -- i.e., adjust_timings being called from the PUI then
6905: -- Check if Time_out goes over midnight
6908: )
6909: THEN
6910: IF g_debug
6911: THEN
6912: hr_utility.set_location (l_proc, 144);
6913: END IF;
6914:
6915: l_time_out_date := l_time_out_date + 1;
6916: END IF;
6916: END IF;
6917:
6918: IF g_debug
6919: THEN
6920: hr_utility.set_location (l_proc, 145);
6921: END IF;
6922: END IF; -- P_timecard_source <> 'Time Store'
6923:
6924: IF g_debug
6922: END IF; -- P_timecard_source <> 'Time Store'
6923:
6924: IF g_debug
6925: THEN
6926: hr_utility.set_location (l_proc, 146);
6927: END IF;
6928:
6929: p_time_out := l_time_out_date;
6930: END IF;
6930: END IF;
6931:
6932: IF g_debug
6933: THEN
6934: hr_utility.set_location (l_proc, 147);
6935: END IF;
6936: END IF; -- (rot id is NULL)
6937:
6938: --Round the timings according to the earn policy, if not std....
6939: IF (l_in_time_std <> TRUE OR l_out_time_std <> TRUE)
6940: THEN
6941: IF g_debug
6942: THEN
6943: hr_utility.set_location (l_proc, 150);
6944: END IF;
6945:
6946: SELECT min_tcard_intvl, round_up
6947: INTO l_tc_intvl, l_round_up
6949: WHERE ID = p_earn_pol_id;
6950:
6951: IF g_debug
6952: THEN
6953: hr_utility.TRACE ('l_tc_intvl :' || l_tc_intvl);
6954: hr_utility.TRACE ('l_round_up :' || l_round_up);
6955: END IF;
6956:
6957: IF (l_in_time_std <> TRUE)
6950:
6951: IF g_debug
6952: THEN
6953: hr_utility.TRACE ('l_tc_intvl :' || l_tc_intvl);
6954: hr_utility.TRACE ('l_round_up :' || l_round_up);
6955: END IF;
6956:
6957: IF (l_in_time_std <> TRUE)
6958: THEN
6957: IF (l_in_time_std <> TRUE)
6958: THEN
6959: IF g_debug
6960: THEN
6961: hr_utility.set_location (l_proc, 160);
6962: END IF;
6963:
6964: p_time_in := round_time (p_time_in, l_tc_intvl, l_round_up);
6965: END IF;
6967: IF (l_out_time_std <> TRUE)
6968: THEN
6969: IF g_debug
6970: THEN
6971: hr_utility.set_location (l_proc, 165);
6972: END IF;
6973:
6974: p_time_out := round_time (p_time_out, l_tc_intvl, l_round_up);
6975: END IF;
6975: END IF;
6976:
6977: IF g_debug
6978: THEN
6979: hr_utility.set_location (l_proc, 170);
6980: END IF;
6981: END IF;
6982:
6983: IF p_timecard_source <> 'Time Store'
6985: IF p_org_in IS NOT NULL
6986: THEN
6987: IF g_debug
6988: THEN
6989: hr_utility.set_location (l_proc, 175);
6990: END IF;
6991:
6992: p_actual_time_in := p_org_in;
6993:
6992: p_actual_time_in := p_org_in;
6993:
6994: IF g_debug
6995: THEN
6996: hr_utility.TRACE ( 'p_actual_time_in :'
6997: || TO_CHAR (p_actual_time_in,
6998: 'DD-MON-YYYY HH24:MI:SS'
6999: )
7000: );
7002: END IF;
7003:
7004: IF g_debug
7005: THEN
7006: hr_utility.TRACE ( 'p_org_out :'
7007: || TO_CHAR (p_org_out, 'DD-MON-YYYY HH24:MI:SS')
7008: );
7009: END IF;
7010:
7011: IF p_org_out IS NOT NULL
7012: THEN
7013: IF g_debug
7014: THEN
7015: hr_utility.set_location (l_proc, 180);
7016: END IF;
7017:
7018: p_actual_time_out := p_org_out;
7019:
7018: p_actual_time_out := p_org_out;
7019:
7020: IF g_debug
7021: THEN
7022: hr_utility.TRACE ( 'p_actual_time_out :'
7023: || TO_CHAR (p_actual_time_out,
7024: 'DD-MON-YYYY HH24:MI:SS'
7025: )
7026: );
7036: --raised instead of two errors.
7037: --Bug 2770487 Sonarasi Over
7038: IF g_debug
7039: THEN
7040: hr_utility.set_location (l_proc, 190);
7041: END IF;
7042:
7043: IF p_timecard_source <> 'Time Store'
7044: THEN
7043: IF p_timecard_source <> 'Time Store'
7044: THEN
7045: IF g_debug
7046: THEN
7047: hr_utility.set_location (l_proc, 191);
7048: END IF;
7049:
7050: l_ovlp_error :=
7051: check_time_overlap (p_date_worked,
7056: );
7057:
7058: IF g_debug
7059: THEN
7060: hr_utility.set_location (l_proc, 200);
7061: hr_utility.TRACE ('l_ovlp_error :' || l_ovlp_error);
7062: END IF;
7063:
7064: -- Raise exception if found
7057:
7058: IF g_debug
7059: THEN
7060: hr_utility.set_location (l_proc, 200);
7061: hr_utility.TRACE ('l_ovlp_error :' || l_ovlp_error);
7062: END IF;
7063:
7064: -- Raise exception if found
7065: IF l_ovlp_error = 'E'
7065: IF l_ovlp_error = 'E'
7066: THEN
7067: IF g_debug
7068: THEN
7069: hr_utility.set_location (l_proc, 210);
7070: END IF;
7071:
7072: fnd_message.set_name ('HXT', 'HXT_39598_IN_OUT_TIME_OVERLAP');
7073: fnd_message.set_token ('TIME_IN', TO_CHAR (p_time_in, 'HH24MI'));
7086: END IF;
7087:
7088: IF g_debug
7089: THEN
7090: hr_utility.TRACE ( 'p_time_in:'
7091: || TO_CHAR (p_time_in, 'DD-MON-YYYY HH24:MI:SS')
7092: );
7093: hr_utility.TRACE ( 'p_time_out:'
7094: || TO_CHAR (p_time_out, 'DD-MON-YYYY HH24:MI:SS')
7089: THEN
7090: hr_utility.TRACE ( 'p_time_in:'
7091: || TO_CHAR (p_time_in, 'DD-MON-YYYY HH24:MI:SS')
7092: );
7093: hr_utility.TRACE ( 'p_time_out:'
7094: || TO_CHAR (p_time_out, 'DD-MON-YYYY HH24:MI:SS')
7095: );
7096: hr_utility.TRACE ( 'p_actual_time_in:'
7097: || TO_CHAR (p_actual_time_in,
7092: );
7093: hr_utility.TRACE ( 'p_time_out:'
7094: || TO_CHAR (p_time_out, 'DD-MON-YYYY HH24:MI:SS')
7095: );
7096: hr_utility.TRACE ( 'p_actual_time_in:'
7097: || TO_CHAR (p_actual_time_in,
7098: 'DD-MON-YYYY HH24:MI:SS'
7099: )
7100: );
7097: || TO_CHAR (p_actual_time_in,
7098: 'DD-MON-YYYY HH24:MI:SS'
7099: )
7100: );
7101: hr_utility.TRACE ( 'p_actual_time_out:'
7102: || TO_CHAR (p_actual_time_out,
7103: 'DD-MON-YYYY HH24:MI:SS'
7104: )
7105: );
7102: || TO_CHAR (p_actual_time_out,
7103: 'DD-MON-YYYY HH24:MI:SS'
7104: )
7105: );
7106: hr_utility.TRACE ( 'l_time_in_actual:'
7107: || TO_CHAR (l_time_in_actual,
7108: 'DD-MON-YYYY HH24:MI:SS'
7109: )
7110: );
7107: || TO_CHAR (l_time_in_actual,
7108: 'DD-MON-YYYY HH24:MI:SS'
7109: )
7110: );
7111: hr_utility.TRACE ( 'l_time_out_actual:'
7112: || TO_CHAR (l_time_out_actual,
7113: 'DD-MON-YYYY HH24:MI:SS'
7114: )
7115: );
7129: IF l_valid_entry = FALSE
7130: THEN
7131: IF g_debug
7132: THEN
7133: hr_utility.set_location (l_proc, 220);
7134: END IF;
7135:
7136: fnd_message.set_name ('HXT', 'HXT_39600_INVALID_ENTRIES');
7137: p_error := fnd_message.get;
7142: END IF;
7143:
7144: IF g_debug
7145: THEN
7146: hr_utility.set_location (l_proc, 250);
7147: END IF;
7148:
7149: p_code := 0;
7150:
7149: p_code := 0;
7150:
7151: IF g_debug
7152: THEN
7153: hr_utility.TRACE ('hxt_time_collection.ADJUST_TIMINGS END');
7154: END IF;
7155: END adjust_timings;
7156:
7157: /**************************************************************
7253: BEGIN
7254: IF g_debug
7255: THEN
7256: l_proc := 'hxt_time_collection.Check_Time_Overlap';
7257: hr_utility.set_location (l_proc, 10);
7258: END IF;
7259:
7260: --Check if overlap found
7261: --begin SPR C245 - have to check for null or this process will hang,
7263: IF p_time_in IS NOT NULL AND p_time_out IS NOT NULL
7264: THEN
7265: IF g_debug
7266: THEN
7267: hr_utility.set_location (l_proc, 20);
7268: END IF;
7269:
7270: --end SPR C245
7271:
7284: INTO l_error;
7285:
7286: IF g_debug
7287: THEN
7288: hr_utility.TRACE ('l_error :' || l_error);
7289: END IF;
7290:
7291: CLOSE c;
7292:
7294: --begin SPR C245
7295: ELSE
7296: IF g_debug
7297: THEN
7298: hr_utility.set_location (l_proc, 30);
7299: END IF;
7300:
7301: RETURN ('');
7302: END IF;
7303:
7304: --end SPR C245
7305: IF g_debug
7306: THEN
7307: hr_utility.set_location (l_proc, 40);
7308: END IF;
7309: END check_time_overlap;
7310:
7311: --------------------------------------------------------------------------------