[Home] [Help]
39: l_proc varchar2(72) := g_package||'set_security_group_id';
40: --
41: begin
42: --
43: hr_utility.set_location('Entering:'|| l_proc, 10);
44: --
45: -- Ensure that all the mandatory parameter are not null
46: --
47: hr_api.mandatory_arg_error
70: hr_api.set_security_group_id
71: (p_security_group_id => l_security_group_id
72: );
73: --
74: hr_utility.set_location(' Leaving:'|| l_proc, 20);
75: --
76: end set_security_group_id;
77: --
78: -- ---------------------------------------------------------------------------
101: l_proc varchar2(72) := g_package||'return_legislation_code';
102: --
103: Begin
104: --
105: hr_utility.set_location('Entering:'|| l_proc, 10);
106: --
107: -- Ensure that all the mandatory parameter are not null
108: --
109: hr_api.mandatory_arg_error
118: -- call to this function. Just return the value in the global
119: -- variable.
120: --
121: l_legislation_code := per_inc_bus.g_legislation_code;
122: hr_utility.set_location(l_proc, 20);
123: else
124: --
125: -- The ID is different to the last call to this function
126: -- or this is the first call to this function.
135: close csr_leg_code;
136: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
137: fnd_message.raise_error;
138: end if;
139: hr_utility.set_location(l_proc,30);
140: --
141: -- Set the global variables so the values are
142: -- available for the next call to this function.
143: --
144: close csr_leg_code;
145: per_inc_bus.g_incident_id := p_incident_id;
146: per_inc_bus.g_legislation_code := l_legislation_code;
147: end if;
148: hr_utility.set_location(' Leaving:'|| l_proc, 40);
149: return l_legislation_code;
150: end return_legislation_code;
151: --
152: -- ----------------------------------------------------------------------------
183: --
184: l_proc varchar2(72) := g_package || 'chk_ddf';
185: --
186: begin
187: hr_utility.set_location('Entering:'||l_proc,10);
188: --
189: if ((p_rec.incident_id is not null) and (
190: nvl(per_inc_shd.g_old_rec.inc_information_category, hr_api.g_varchar2) <>
191: nvl(p_rec.inc_information_category, hr_api.g_varchar2) or
255: -- a) During update, the structure column value or any
256: -- of the attribute values have actually changed.
257: -- b) During insert.
258: --
259: hr_utility.set_location(' INC Cat:'||p_rec.inc_information_category,20);
260: hr_dflex_utility.ins_or_upd_descflex_attribs
261: (p_appl_short_name => 'PER'
262: ,p_descflex_name => 'Work Incident Developer DF'
263: ,p_attribute_category => p_rec.INC_INFORMATION_CATEGORY
323: ,p_attribute30_value => p_rec.inc_information30
324: );
325: end if;
326: --
327: hr_utility.set_location(' Leaving:'||l_proc,20);
328: end chk_ddf;
329: --
330: -- ----------------------------------------------------------------------------
331: -- |------------------------------< chk_df >----------------------------------|
361: --
362: l_proc varchar2(72) := g_package || 'chk_df';
363: --
364: begin
365: hr_utility.set_location('Entering:'||l_proc,10);
366: --
367: if ((p_rec.incident_id is not null) and (
368: nvl(per_inc_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
369: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
500: ,p_attribute30_value => p_rec.attribute30
501: );
502: end if;
503: --
504: hr_utility.set_location(' Leaving:'||l_proc,20);
505: end chk_df;
506: --
507: --
508: -- ----------------------------------------------------------------------------
554: fnd_message.set_token('STEP ', '5');
555: fnd_message.raise_error;
556: END IF;
557: --
558: hr_utility.set_location(l_proc, 30);
559: --
560: if nvl(p_rec.person_id, hr_api.g_number) <>
561: nvl(per_inc_shd.g_old_rec.person_id
562: ,hr_api.g_number) then
622: and p_effective_date between per.effective_start_date
623: and per.effective_end_date;
624: --
625: begin
626: hr_utility.set_location('Entering:'||l_proc, 1);
627: --
628: -- Check mandatory person_id is set
629: --
630: if p_person_id is null then
627: --
628: -- Check mandatory person_id is set
629: --
630: if p_person_id is null then
631: hr_utility.set_message(800, 'HR_52891_INC_PERSON_ID_NULL');
632: hr_utility.raise_error;
633: end if;
634: --
635: hr_utility.set_location(l_proc, 5);
628: -- Check mandatory person_id is set
629: --
630: if p_person_id is null then
631: hr_utility.set_message(800, 'HR_52891_INC_PERSON_ID_NULL');
632: hr_utility.raise_error;
633: end if;
634: --
635: hr_utility.set_location(l_proc, 5);
636: --
631: hr_utility.set_message(800, 'HR_52891_INC_PERSON_ID_NULL');
632: hr_utility.raise_error;
633: end if;
634: --
635: hr_utility.set_location(l_proc, 5);
636: --
637: --
638: --
639: -- Only proceed with validation if :
640: -- a) on insert (non-updateable param)
641: --
642: if (p_incident_id is null) then
643: --
644: hr_utility.set_location(l_proc, 10);
645: --
646: -- Check that the person_id is in the per_people_f view on the effective_date.
647: --
648: open csr_person_id;
648: open csr_person_id;
649: fetch csr_person_id into l_dummy;
650: if csr_person_id%notfound then
651: close csr_person_id;
652: hr_utility.set_message(800, 'HR_52896_INC_FK_NOT_FOUND');
653: hr_utility.raise_error;
654: end if;
655: close csr_person_id;
656: end if;
649: fetch csr_person_id into l_dummy;
650: if csr_person_id%notfound then
651: close csr_person_id;
652: hr_utility.set_message(800, 'HR_52896_INC_FK_NOT_FOUND');
653: hr_utility.raise_error;
654: end if;
655: close csr_person_id;
656: end if;
657: --
654: end if;
655: close csr_person_id;
656: end if;
657: --
658: hr_utility.set_location(' Leaving:'||l_proc, 15);
659: --
660: end chk_person_id;
661: --
662: --
693: --
694: l_proc varchar2(72) := g_package||'chk_incident_date';
695: --
696: begin
697: hr_utility.set_location('Entering:'||l_proc, 1);
698: --
699: -- Check mandatory incident_date is set
700: --
701: if p_incident_date is null then
698: --
699: -- Check mandatory incident_date is set
700: --
701: if p_incident_date is null then
702: hr_utility.set_message(800, 'HR_52895_INC_INC_DATE_NULL');
703: hr_utility.raise_error;
704: end if;
705: --
706: hr_utility.set_location(' Leaving:'||l_proc, 5);
699: -- Check mandatory incident_date is set
700: --
701: if p_incident_date is null then
702: hr_utility.set_message(800, 'HR_52895_INC_INC_DATE_NULL');
703: hr_utility.raise_error;
704: end if;
705: --
706: hr_utility.set_location(' Leaving:'||l_proc, 5);
707: --
702: hr_utility.set_message(800, 'HR_52895_INC_INC_DATE_NULL');
703: hr_utility.raise_error;
704: end if;
705: --
706: hr_utility.set_location(' Leaving:'||l_proc, 5);
707: --
708: end chk_incident_date;
709: --
710: --
744: l_output varchar2(60) := p_incident_time;
745: l_rgeflg varchar2(1);
746: --
747: begin
748: hr_utility.set_location('Entering:'||l_proc, 1);
749: --
750: -- Check incident_time is in HH24:MI format
751: --
752: if p_incident_time is not null then
754:
755: hr_chkfmt.checkformat(l_value, 'TIMES', l_output, NULL, NULL, 'Y', l_rgeflg, NULL);
756:
757: if p_incident_time <> l_output then
758: hr_utility.set_message(800, 'HR_289019_INC_INV_ITIME');
759: hr_utility.raise_error;
760: end if;
761:
762: exception
755: hr_chkfmt.checkformat(l_value, 'TIMES', l_output, NULL, NULL, 'Y', l_rgeflg, NULL);
756:
757: if p_incident_time <> l_output then
758: hr_utility.set_message(800, 'HR_289019_INC_INV_ITIME');
759: hr_utility.raise_error;
760: end if;
761:
762: exception
763: when others then
760: end if;
761:
762: exception
763: when others then
764: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
765: hr_utility.set_message_token('ARG_NAME', 'incident_time');
766: hr_utility.set_message_token('ARG_VALUE', p_incident_time);
767: hr_utility.raise_error;
768: end;
761:
762: exception
763: when others then
764: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
765: hr_utility.set_message_token('ARG_NAME', 'incident_time');
766: hr_utility.set_message_token('ARG_VALUE', p_incident_time);
767: hr_utility.raise_error;
768: end;
769: end if;
762: exception
763: when others then
764: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
765: hr_utility.set_message_token('ARG_NAME', 'incident_time');
766: hr_utility.set_message_token('ARG_VALUE', p_incident_time);
767: hr_utility.raise_error;
768: end;
769: end if;
770: --
763: when others then
764: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
765: hr_utility.set_message_token('ARG_NAME', 'incident_time');
766: hr_utility.set_message_token('ARG_VALUE', p_incident_time);
767: hr_utility.raise_error;
768: end;
769: end if;
770: --
771: hr_utility.set_location(' Leaving:'||l_proc, 5);
767: hr_utility.raise_error;
768: end;
769: end if;
770: --
771: hr_utility.set_location(' Leaving:'||l_proc, 5);
772: --
773: end chk_incident_time;
774: --
775: --
800: l_proc varchar2(72) := g_package||'get_osha_case_number';
801: --
802: Begin
803: --
804: hr_utility.set_location('Entering:'|| l_proc, 10);
805: p_year :=to_number(to_char(p_date,'YYYY'));
806: hr_utility.set_location('Year '||p_year||'-'|| l_proc, 11);
807: hr_utility.set_location('BGID '||p_bg_id||'-'|| l_proc, 12);
808: --
802: Begin
803: --
804: hr_utility.set_location('Entering:'|| l_proc, 10);
805: p_year :=to_number(to_char(p_date,'YYYY'));
806: hr_utility.set_location('Year '||p_year||'-'|| l_proc, 11);
807: hr_utility.set_location('BGID '||p_bg_id||'-'|| l_proc, 12);
808: --
809: -- Get the next case number from cursor
810: --
803: --
804: hr_utility.set_location('Entering:'|| l_proc, 10);
805: p_year :=to_number(to_char(p_date,'YYYY'));
806: hr_utility.set_location('Year '||p_year||'-'|| l_proc, 11);
807: hr_utility.set_location('BGID '||p_bg_id||'-'|| l_proc, 12);
808: --
809: -- Get the next case number from cursor
810: --
811: open csr_num(p_year,p_bg_id);
813: --
814: if csr_num%notfound then
815: --
816: close csr_num;
817: hr_utility.set_location(l_proc, 20);
818: fnd_message.set_name('PER','HR_289811_INC_RUN_CONC_OSHA');
819: fnd_message.raise_error;
820: --
821: else
826: --
827: close csr_num;
828: --
829: l_case_num := substr(to_char(p_year),3,2)||'-'||l_next_num;
830: hr_utility.set_location('Case num '||l_case_num, 25);
831: hr_utility.set_location(' Leaving:'|| l_proc, 30);
832: return l_case_num;
833: --
834: end if;
827: close csr_num;
828: --
829: l_case_num := substr(to_char(p_year),3,2)||'-'||l_next_num;
830: hr_utility.set_location('Case num '||l_case_num, 25);
831: hr_utility.set_location(' Leaving:'|| l_proc, 30);
832: return l_case_num;
833: --
834: end if;
835: hr_utility.set_location(' Leaving:'|| l_proc, 30);
831: hr_utility.set_location(' Leaving:'|| l_proc, 30);
832: return l_case_num;
833: --
834: end if;
835: hr_utility.set_location(' Leaving:'|| l_proc, 30);
836: --
837: end get_osha_case_number;
838: --
839: --
880: l_api_updating boolean;
881:
882: --
883: begin
884: hr_utility.set_location('Entering:'||l_proc, 1);
885: --
886: --
887: if p_incident_reference is not null then
888:
893:
894: l_api_updating := per_inc_shd.api_updating
895: (p_incident_id => p_incident_id
896: ,p_object_version_number => p_object_version_number);
897: hr_utility.set_location(l_proc, 30);
898: --
899: -- Check if the incident is being inserted or updated.
900: --
901: if ((l_api_updating and
903: <> nvl(p_incident_reference, hr_api.g_varchar2))
904: or (NOT l_api_updating))
905: then
906: --
907: hr_utility.set_location(l_proc, 10);
908: --
909: -- validate unique reference.#1296633
910: --
911: open csr_ref_unique;
911: open csr_ref_unique;
912: fetch csr_ref_unique into l_dummy;
913: if csr_ref_unique%found then
914: close csr_ref_unique;
915: hr_utility.set_message(800, 'HR_52889_INC_REF_NOT_UNIQUE');
916: hr_utility.raise_error;
917: end if;
918: close csr_ref_unique;
919: end if;
912: fetch csr_ref_unique into l_dummy;
913: if csr_ref_unique%found then
914: close csr_ref_unique;
915: hr_utility.set_message(800, 'HR_52889_INC_REF_NOT_UNIQUE');
916: hr_utility.raise_error;
917: end if;
918: close csr_ref_unique;
919: end if;
920: --
920: --
921: END IF ;
922: --
923: else
924: hr_utility.set_message(800, 'HR_52890_INC_REF_NOT_NULL');
925: hr_utility.raise_error;
926: end if;
927: --
928: --
921: END IF ;
922: --
923: else
924: hr_utility.set_message(800, 'HR_52890_INC_REF_NOT_NULL');
925: hr_utility.raise_error;
926: end if;
927: --
928: --
929: hr_utility.set_location(' Leaving:'||l_proc, 3);
925: hr_utility.raise_error;
926: end if;
927: --
928: --
929: hr_utility.set_location(' Leaving:'||l_proc, 3);
930: --
931: end chk_incident_reference;
932: --
933: --
969: --
970: l_proc varchar2(72) := g_package||'chk_incident_type';
971: --
972: begin
973: hr_utility.set_location('Entering:'|| l_proc, 1);
974: --
975: -- Check mandatory parameters have been set
976: --
977: hr_api.mandatory_arg_error
982: --
983: --
984: if p_incident_type is not null then
985: --
986: hr_utility.set_location(l_proc, 5);
987: --
988: -- Only proceed with validation if :
989: -- a) Inserting or
990: -- b) The value for incident type has changed
1003: ,p_lookup_code => p_incident_type
1004: )
1005: then
1006: --
1007: hr_utility.set_message(800, 'HR_52897_INC_INC_TYPE_INV');
1008: hr_utility.raise_error;
1009: --
1010: end if;
1011: END IF;
1004: )
1005: then
1006: --
1007: hr_utility.set_message(800, 'HR_52897_INC_INC_TYPE_INV');
1008: hr_utility.raise_error;
1009: --
1010: end if;
1011: END IF;
1012: --
1021: ,p_lookup_code => p_incident_type
1022: )
1023: then
1024: --
1025: hr_utility.set_message(800, 'HR_52897_INC_INC_TYPE_INV');
1026: hr_utility.raise_error;
1027: --
1028: end if;
1029: --
1022: )
1023: then
1024: --
1025: hr_utility.set_message(800, 'HR_52897_INC_INC_TYPE_INV');
1026: hr_utility.raise_error;
1027: --
1028: end if;
1029: --
1030: END IF;
1031: --
1032: end if;
1033: --
1034: else
1035: hr_utility.set_location(l_proc, 15);
1036: hr_utility.set_message(800, 'HR_52898_INC_INC_TYPE_NULL');
1037: hr_utility.raise_error;
1038: end if;
1039: --
1032: end if;
1033: --
1034: else
1035: hr_utility.set_location(l_proc, 15);
1036: hr_utility.set_message(800, 'HR_52898_INC_INC_TYPE_NULL');
1037: hr_utility.raise_error;
1038: end if;
1039: --
1040: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1033: --
1034: else
1035: hr_utility.set_location(l_proc, 15);
1036: hr_utility.set_message(800, 'HR_52898_INC_INC_TYPE_NULL');
1037: hr_utility.raise_error;
1038: end if;
1039: --
1040: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1041: --
1036: hr_utility.set_message(800, 'HR_52898_INC_INC_TYPE_NULL');
1037: hr_utility.raise_error;
1038: end if;
1039: --
1040: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1041: --
1042: end chk_incident_type;
1043: --
1044: --
1089: --
1090: l_proc varchar2(72) := g_package||'chk_related_incident_id';
1091: --
1092: begin
1093: hr_utility.set_location('Entering:'||l_proc, 1);
1094: --
1095: --
1096: if ((p_incident_id is null) or
1097: ((p_incident_id is not null) and
1098: (per_inc_shd.g_old_rec.related_incident_id <> p_related_incident_id))) then
1099: --
1100: -- related inc cannot be current record
1101: if p_incident_id = p_related_incident_id then
1102: hr_utility.set_message(800, 'HR_289020_INC_INV_RELINC');
1103: hr_utility.raise_error;
1104: end if;
1105: --
1106: hr_utility.set_location(l_proc, 20);
1099: --
1100: -- related inc cannot be current record
1101: if p_incident_id = p_related_incident_id then
1102: hr_utility.set_message(800, 'HR_289020_INC_INV_RELINC');
1103: hr_utility.raise_error;
1104: end if;
1105: --
1106: hr_utility.set_location(l_proc, 20);
1107: --
1102: hr_utility.set_message(800, 'HR_289020_INC_INV_RELINC');
1103: hr_utility.raise_error;
1104: end if;
1105: --
1106: hr_utility.set_location(l_proc, 20);
1107: --
1108: open csr_rel_inc;
1109: if csr_rel_inc%notfound then
1110: close csr_rel_inc;
1109: if csr_rel_inc%notfound then
1110: close csr_rel_inc;
1111: -- related inc not found for the person
1112: -- before the current record's incident date.
1113: hr_utility.set_message(800, 'HR_289020_INC_INV_RELINC');
1114: hr_utility.raise_error;
1115: end if;
1116: close csr_rel_inc;
1117: --
1110: close csr_rel_inc;
1111: -- related inc not found for the person
1112: -- before the current record's incident date.
1113: hr_utility.set_message(800, 'HR_289020_INC_INV_RELINC');
1114: hr_utility.raise_error;
1115: end if;
1116: close csr_rel_inc;
1117: --
1118: end if;
1116: close csr_rel_inc;
1117: --
1118: end if;
1119: --
1120: hr_utility.set_location(' Leaving:'||l_proc, 3);
1121: --
1122: end chk_related_incident_id;
1123: --
1124: --
1157: --
1158: l_proc varchar2(72) := g_package||'chk_org_notified_date';
1159: --
1160: begin
1161: hr_utility.set_location('Entering:'||l_proc, 1);
1162: --
1163: if p_org_notified_date is not null then
1164: if p_org_notified_date < p_incident_date then
1165: hr_utility.set_message(800, 'HR_289021_INC_INV_NODATE');
1161: hr_utility.set_location('Entering:'||l_proc, 1);
1162: --
1163: if p_org_notified_date is not null then
1164: if p_org_notified_date < p_incident_date then
1165: hr_utility.set_message(800, 'HR_289021_INC_INV_NODATE');
1166: hr_utility.raise_error;
1167: end if;
1168: end if;
1169: --
1162: --
1163: if p_org_notified_date is not null then
1164: if p_org_notified_date < p_incident_date then
1165: hr_utility.set_message(800, 'HR_289021_INC_INV_NODATE');
1166: hr_utility.raise_error;
1167: end if;
1168: end if;
1169: --
1170: hr_utility.set_location(' Leaving:'||l_proc, 5);
1166: hr_utility.raise_error;
1167: end if;
1168: end if;
1169: --
1170: hr_utility.set_location(' Leaving:'||l_proc, 5);
1171: --
1172: end chk_org_notified_date;
1173: --
1174: --
1200: --
1201: l_proc varchar2(72) := g_package||'chk_over_time_flag';
1202: --
1203: begin
1204: hr_utility.set_location('Entering:'|| l_proc, 1);
1205: --
1206: if p_over_time_flag is not null then
1207: if p_over_time_flag not in ('Y','N') then
1208: hr_utility.set_message(800, 'HR_289028_INC_INV_OTF');
1204: hr_utility.set_location('Entering:'|| l_proc, 1);
1205: --
1206: if p_over_time_flag is not null then
1207: if p_over_time_flag not in ('Y','N') then
1208: hr_utility.set_message(800, 'HR_289028_INC_INV_OTF');
1209: hr_utility.raise_error;
1210: end if;
1211: end if;
1212: --
1205: --
1206: if p_over_time_flag is not null then
1207: if p_over_time_flag not in ('Y','N') then
1208: hr_utility.set_message(800, 'HR_289028_INC_INV_OTF');
1209: hr_utility.raise_error;
1210: end if;
1211: end if;
1212: --
1213: hr_utility.set_location('Leaving:'|| l_proc, 5);
1209: hr_utility.raise_error;
1210: end if;
1211: end if;
1212: --
1213: hr_utility.set_location('Leaving:'|| l_proc, 5);
1214: --
1215: end chk_over_time_flag;
1216: -- ---------------------------------------------------------------------------
1217: -- |-------------------------< chk_at_work_flag >---------------------------|
1246: --
1247: l_proc varchar2(72) := g_package||'chk_at_work_flag';
1248: --
1249: begin
1250: hr_utility.set_location('Entering:'|| l_proc, 1);
1251: --
1252: -- Check mandatory parameters have been set
1253: --
1254: hr_api.mandatory_arg_error
1263: IF hr_api.get_legislation_context <> 'US' then
1264: --
1265: if p_at_work_flag is not null then
1266: --
1267: hr_utility.set_location(l_proc, 5);
1268: --
1269: -- Only proceed with validation if :
1270: -- a) Inserting or
1271: -- b) The value for at_work_flag has changed
1280: ,p_lookup_code => p_at_work_flag
1281: )
1282: then
1283: --
1284: hr_utility.set_message(800, 'HR_52899_INC_AWF_INV');
1285: hr_utility.raise_error;
1286: --
1287: end if;
1288: end if;
1281: )
1282: then
1283: --
1284: hr_utility.set_message(800, 'HR_52899_INC_AWF_INV');
1285: hr_utility.raise_error;
1286: --
1287: end if;
1288: end if;
1289: else
1286: --
1287: end if;
1288: end if;
1289: else
1290: hr_utility.set_message(800, 'HR_52899_INC_AWF_INV');
1291: hr_utility.raise_error;
1292: end if;
1293: --
1294: END IF;
1287: end if;
1288: end if;
1289: else
1290: hr_utility.set_message(800, 'HR_52899_INC_AWF_INV');
1291: hr_utility.raise_error;
1292: end if;
1293: --
1294: END IF;
1295: --
1293: --
1294: END IF;
1295: --
1296: --
1297: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1298: --
1299: end chk_at_work_flag;
1300: --
1301: --
1332: --
1333: l_proc varchar2(72) := g_package||'chk_hazard_type';
1334: --
1335: begin
1336: hr_utility.set_location('Entering:'|| l_proc, 1);
1337: --
1338: -- Check mandatory parameters have been set
1339: --
1340: hr_api.mandatory_arg_error
1344: );
1345: --
1346: if p_hazard_type is not null then
1347: --
1348: hr_utility.set_location(l_proc, 5);
1349: --
1350: -- Only proceed with validation if :
1351: -- a) Inserting or
1352: -- b) The value for hazard_type has changed
1361: ,p_lookup_code => p_hazard_type
1362: )
1363: then
1364: --
1365: hr_utility.set_message(800, 'HR_289022_INC_HAZ_TYPE_INV');
1366: hr_utility.raise_error;
1367: --
1368: end if;
1369: end if;
1362: )
1363: then
1364: --
1365: hr_utility.set_message(800, 'HR_289022_INC_HAZ_TYPE_INV');
1366: hr_utility.raise_error;
1367: --
1368: end if;
1369: end if;
1370: end if;
1368: end if;
1369: end if;
1370: end if;
1371: --
1372: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1373: --
1374: end chk_hazard_type;
1375: --
1376: --
1407: --
1408: l_proc varchar2(72) := g_package||'chk_injury_type';
1409: --
1410: begin
1411: hr_utility.set_location('Entering:'|| l_proc, 1);
1412: --
1413: -- Check mandatory parameters have been set
1414: --
1415: hr_api.mandatory_arg_error
1419: );
1420: --
1421: if p_injury_type is not null then
1422: --
1423: hr_utility.set_location(l_proc, 5);
1424: --
1425: -- Only proceed with validation if :
1426: -- a) Inserting or
1427: -- b) The value for injury_type has changed
1436: ,p_lookup_code => p_injury_type
1437: )
1438: then
1439: --
1440: hr_utility.set_message(800, 'HR_289023_INC_INJ_TYPE_INV');
1441: hr_utility.raise_error;
1442: --
1443: end if;
1444: end if;
1437: )
1438: then
1439: --
1440: hr_utility.set_message(800, 'HR_289023_INC_INJ_TYPE_INV');
1441: hr_utility.raise_error;
1442: --
1443: end if;
1444: end if;
1445: end if;
1443: end if;
1444: end if;
1445: end if;
1446: --
1447: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1448: --
1449: end chk_injury_type;
1450: --
1451: --
1482: --
1483: l_proc varchar2(72) := g_package||'chk_disease_type';
1484: --
1485: begin
1486: hr_utility.set_location('Entering:'|| l_proc, 1);
1487: --
1488: -- Check mandatory parameters have been set
1489: --
1490: hr_api.mandatory_arg_error
1494: );
1495: --
1496: if p_disease_type is not null then
1497: --
1498: hr_utility.set_location(l_proc, 5);
1499: --
1500: -- Only proceed with validation if :
1501: -- a) Inserting or
1502: -- b) The value for disease_type has changed
1511: ,p_lookup_code => p_disease_type
1512: )
1513: then
1514: --
1515: hr_utility.set_message(800, 'HR_289024_INC_DIS_TYPE_INV');
1516: hr_utility.raise_error;
1517: --
1518: end if;
1519: end if;
1512: )
1513: then
1514: --
1515: hr_utility.set_message(800, 'HR_289024_INC_DIS_TYPE_INV');
1516: hr_utility.raise_error;
1517: --
1518: end if;
1519: end if;
1520: end if;
1518: end if;
1519: end if;
1520: end if;
1521: --
1522: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1523: --
1524: end chk_disease_type;
1525: --
1526: --
1561: l_output varchar2(60) := p_work_start_time;
1562: l_rgeflg varchar2(1);
1563: --
1564: begin
1565: hr_utility.set_location('Entering:'||l_proc, 1);
1566: --
1567: -- Check work_start_time is in HH24:MI format
1568: --
1569: if p_work_start_time is not null then
1571:
1572: hr_chkfmt.checkformat(l_value, 'TIMES', l_output, NULL, NULL, 'Y', l_rgeflg, NULL);
1573:
1574: if p_work_start_time <> l_output then
1575: hr_utility.set_message(800, 'HR_289810_INC_INV_WKST_TIME');
1576: hr_utility.raise_error;
1577: end if;
1578:
1579: exception
1572: hr_chkfmt.checkformat(l_value, 'TIMES', l_output, NULL, NULL, 'Y', l_rgeflg, NULL);
1573:
1574: if p_work_start_time <> l_output then
1575: hr_utility.set_message(800, 'HR_289810_INC_INV_WKST_TIME');
1576: hr_utility.raise_error;
1577: end if;
1578:
1579: exception
1580: when others then
1577: end if;
1578:
1579: exception
1580: when others then
1581: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
1582: hr_utility.set_message_token('ARG_NAME', 'work_start_time');
1583: hr_utility.set_message_token('ARG_VALUE', p_work_start_time);
1584: hr_utility.raise_error;
1585: end;
1578:
1579: exception
1580: when others then
1581: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
1582: hr_utility.set_message_token('ARG_NAME', 'work_start_time');
1583: hr_utility.set_message_token('ARG_VALUE', p_work_start_time);
1584: hr_utility.raise_error;
1585: end;
1586:
1579: exception
1580: when others then
1581: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
1582: hr_utility.set_message_token('ARG_NAME', 'work_start_time');
1583: hr_utility.set_message_token('ARG_VALUE', p_work_start_time);
1584: hr_utility.raise_error;
1585: end;
1586:
1587: end if;
1580: when others then
1581: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
1582: hr_utility.set_message_token('ARG_NAME', 'work_start_time');
1583: hr_utility.set_message_token('ARG_VALUE', p_work_start_time);
1584: hr_utility.raise_error;
1585: end;
1586:
1587: end if;
1588: --
1585: end;
1586:
1587: end if;
1588: --
1589: hr_utility.set_location(' Leaving:'||l_proc, 5);
1590: --
1591: end chk_work_start_time;
1592: --
1593: --
1628: l_api_updating boolean;
1629: --
1630: begin
1631: --
1632: hr_utility.set_location('Entering:'||l_proc, 1);
1633: --
1634: -- date_of_death cannot pre-date incident_date.
1635: --
1636: if nvl(p_date_of_death, p_incident_date) < p_incident_date then
1633: --
1634: -- date_of_death cannot pre-date incident_date.
1635: --
1636: if nvl(p_date_of_death, p_incident_date) < p_incident_date then
1637: hr_utility.set_message(800, 'HR_289809_INC_INV_DEATH_DATE');
1638: hr_utility.raise_error;
1639: end if;
1640: --
1641: hr_utility.set_location(' Leaving:'||l_proc, 5);
1634: -- date_of_death cannot pre-date incident_date.
1635: --
1636: if nvl(p_date_of_death, p_incident_date) < p_incident_date then
1637: hr_utility.set_message(800, 'HR_289809_INC_INV_DEATH_DATE');
1638: hr_utility.raise_error;
1639: end if;
1640: --
1641: hr_utility.set_location(' Leaving:'||l_proc, 5);
1642: --
1637: hr_utility.set_message(800, 'HR_289809_INC_INV_DEATH_DATE');
1638: hr_utility.raise_error;
1639: end if;
1640: --
1641: hr_utility.set_location(' Leaving:'||l_proc, 5);
1642: --
1643: end chk_date_of_death;
1644: --
1645: --
1671: --
1672: l_proc varchar2(72) := g_package||'chk_hospitalized_flag';
1673: --
1674: begin
1675: hr_utility.set_location('Entering:'|| l_proc, 1);
1676: --
1677: if p_hospitalized_flag is not null then
1678: if p_hospitalized_flag not in ('Y','N') then
1679: hr_utility.set_message(800, 'HR_289805_INC_INV_HOSP_FLAG');
1675: hr_utility.set_location('Entering:'|| l_proc, 1);
1676: --
1677: if p_hospitalized_flag is not null then
1678: if p_hospitalized_flag not in ('Y','N') then
1679: hr_utility.set_message(800, 'HR_289805_INC_INV_HOSP_FLAG');
1680: hr_utility.raise_error;
1681: end if;
1682: end if;
1683: --
1676: --
1677: if p_hospitalized_flag is not null then
1678: if p_hospitalized_flag not in ('Y','N') then
1679: hr_utility.set_message(800, 'HR_289805_INC_INV_HOSP_FLAG');
1680: hr_utility.raise_error;
1681: end if;
1682: end if;
1683: --
1684: hr_utility.set_location('Leaving:'|| l_proc, 5);
1680: hr_utility.raise_error;
1681: end if;
1682: end if;
1683: --
1684: hr_utility.set_location('Leaving:'|| l_proc, 5);
1685: --
1686: end chk_hospitalized_flag;
1687: --
1688: --
1714: --
1715: l_proc varchar2(72) := g_package||'chk_privacy_issue';
1716: --
1717: begin
1718: hr_utility.set_location('Entering:'|| l_proc, 1);
1719: --
1720: if p_privacy_issue is not null then
1721: if p_privacy_issue not in ('Y','N') then
1722: hr_utility.set_message(800, 'HR_289806_INC_INV_PRIV_ISSUE');
1718: hr_utility.set_location('Entering:'|| l_proc, 1);
1719: --
1720: if p_privacy_issue is not null then
1721: if p_privacy_issue not in ('Y','N') then
1722: hr_utility.set_message(800, 'HR_289806_INC_INV_PRIV_ISSUE');
1723: hr_utility.raise_error;
1724: end if;
1725: end if;
1726: --
1719: --
1720: if p_privacy_issue is not null then
1721: if p_privacy_issue not in ('Y','N') then
1722: hr_utility.set_message(800, 'HR_289806_INC_INV_PRIV_ISSUE');
1723: hr_utility.raise_error;
1724: end if;
1725: end if;
1726: --
1727: hr_utility.set_location('Leaving:'|| l_proc, 5);
1723: hr_utility.raise_error;
1724: end if;
1725: end if;
1726: --
1727: hr_utility.set_location('Leaving:'|| l_proc, 5);
1728: --
1729: end chk_privacy_issue;
1730: --
1731: --
1757: --
1758: l_proc varchar2(72) := g_package||'chk_emergency_code';
1759: --
1760: begin
1761: hr_utility.set_location('Entering:'|| l_proc, 1);
1762: --
1763: if p_emergency_code is not null then
1764: if p_emergency_code not in ('Y','N') then
1765: hr_utility.set_message(800, 'HR_289807_INC_INV_EMERG_CODE');
1761: hr_utility.set_location('Entering:'|| l_proc, 1);
1762: --
1763: if p_emergency_code is not null then
1764: if p_emergency_code not in ('Y','N') then
1765: hr_utility.set_message(800, 'HR_289807_INC_INV_EMERG_CODE');
1766: hr_utility.raise_error;
1767: end if;
1768: end if;
1769: --
1762: --
1763: if p_emergency_code is not null then
1764: if p_emergency_code not in ('Y','N') then
1765: hr_utility.set_message(800, 'HR_289807_INC_INV_EMERG_CODE');
1766: hr_utility.raise_error;
1767: end if;
1768: end if;
1769: --
1770: hr_utility.set_location('Leaving:'|| l_proc, 5);
1766: hr_utility.raise_error;
1767: end if;
1768: end if;
1769: --
1770: hr_utility.set_location('Leaving:'|| l_proc, 5);
1771: --
1772: end chk_emergency_code;
1773: --
1774: --
1833: l_api_updating boolean;
1834: --
1835: begin
1836: --
1837: hr_utility.set_location('Entering:'||l_proc, 1);
1838: --
1839: -- report_date cannot pre-date incident_date.
1840: --
1841: if nvl(p_report_date, p_incident_date) < p_incident_date then
1838: --
1839: -- report_date cannot pre-date incident_date.
1840: --
1841: if nvl(p_report_date, p_incident_date) < p_incident_date then
1842: hr_utility.set_message(800, 'HR_289030_INC_INV_RDATE');
1843: hr_utility.raise_error;
1844: end if;
1845: --
1846: -- Error if incident date and report date are the same
1839: -- report_date cannot pre-date incident_date.
1840: --
1841: if nvl(p_report_date, p_incident_date) < p_incident_date then
1842: hr_utility.set_message(800, 'HR_289030_INC_INV_RDATE');
1843: hr_utility.raise_error;
1844: end if;
1845: --
1846: -- Error if incident date and report date are the same
1847: -- and report time is earlier than incident time.
1848: --
1849: if p_report_date = p_incident_date then
1850: if p_report_time is not null and p_incident_time is not null then
1851: if to_date(p_report_time,'HH24:MI') < to_date(p_incident_time,'HH24:MI') then
1852: hr_utility.set_message(800, 'HR_289032_INC_INV_IRTIME');
1853: hr_utility.raise_error;
1854: end if;
1855: end if;
1856: end if;
1849: if p_report_date = p_incident_date then
1850: if p_report_time is not null and p_incident_time is not null then
1851: if to_date(p_report_time,'HH24:MI') < to_date(p_incident_time,'HH24:MI') then
1852: hr_utility.set_message(800, 'HR_289032_INC_INV_IRTIME');
1853: hr_utility.raise_error;
1854: end if;
1855: end if;
1856: end if;
1857: --
1855: end if;
1856: end if;
1857: --
1858: --
1859: hr_utility.set_location(l_proc, 3);
1860: --
1861: l_api_updating := per_inc_shd.api_updating
1862: (p_incident_id => p_incident_id
1863: ,p_object_version_number => p_object_version_number);
1875: fetch c_person into l_dummy;
1876: if c_person%notfound then
1877: close c_person;
1878: -- Person reported by does not exist on the report date
1879: hr_utility.set_message(800, 'HR_289029_INC_INV_PREPBY');
1880: hr_utility.raise_error;
1881: end if;
1882: close c_person;
1883: end if;
1876: if c_person%notfound then
1877: close c_person;
1878: -- Person reported by does not exist on the report date
1879: hr_utility.set_message(800, 'HR_289029_INC_INV_PREPBY');
1880: hr_utility.raise_error;
1881: end if;
1882: close c_person;
1883: end if;
1884: end if;
1882: close c_person;
1883: end if;
1884: end if;
1885: --
1886: hr_utility.set_location(' Leaving:'||l_proc, 5);
1887: --
1888: end chk_person_reported_date_time;
1889: --
1890: --
1921: --
1922: l_proc varchar2(72) := g_package||'chk_report_method';
1923: --
1924: begin
1925: hr_utility.set_location('Entering:'|| l_proc, 1);
1926: --
1927: -- Check mandatory parameters have been set
1928: --
1929: hr_api.mandatory_arg_error
1933: );
1934: --
1935: if p_report_method is not null then
1936: --
1937: hr_utility.set_location(l_proc, 5);
1938: --
1939: -- Only proceed with validation if :
1940: -- a) Inserting or
1941: -- b) The value for report_method has changed
1950: ,p_lookup_code => p_report_method
1951: )
1952: then
1953: --
1954: hr_utility.set_message(800, 'HR_52391_PDM_INV_DLVRY_METHOD');
1955: hr_utility.raise_error;
1956: --
1957: end if;
1958: end if;
1951: )
1952: then
1953: --
1954: hr_utility.set_message(800, 'HR_52391_PDM_INV_DLVRY_METHOD');
1955: hr_utility.raise_error;
1956: --
1957: end if;
1958: end if;
1959: end if;
1957: end if;
1958: end if;
1959: end if;
1960: --
1961: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1962: --
1963: end chk_report_method;
1964: --
1965: -- ---------------------------------------------------------------------------
2017: l_api_updating boolean;
2018: --
2019: begin
2020: --
2021: hr_utility.set_location('Entering:'||l_proc, 1);
2022: --
2023: --
2024: hr_api.mandatory_arg_error
2025: (p_api_name => l_proc
2029: --
2030: -- hsrep_date cannot pre-date incident_date.
2031: --
2032: if nvl(p_notified_hsrep_date, p_incident_date) < p_incident_date then
2033: hr_utility.set_message(800, 'HR_289033_INC_INV_HSDATE');
2034: hr_utility.raise_error;
2035: end if;
2036: --
2037: l_api_updating := per_inc_shd.api_updating
2030: -- hsrep_date cannot pre-date incident_date.
2031: --
2032: if nvl(p_notified_hsrep_date, p_incident_date) < p_incident_date then
2033: hr_utility.set_message(800, 'HR_289033_INC_INV_HSDATE');
2034: hr_utility.raise_error;
2035: end if;
2036: --
2037: l_api_updating := per_inc_shd.api_updating
2038: (p_incident_id => p_incident_id
2037: l_api_updating := per_inc_shd.api_updating
2038: (p_incident_id => p_incident_id
2039: ,p_object_version_number => p_object_version_number);
2040: --
2041: hr_utility.set_location(l_proc, 5);
2042:
2043: if p_notified_hsrep_id is not null then
2044: --
2045: if ((l_api_updating and
2053: fetch c_person into l_dummy;
2054: if c_person%notfound then
2055: close c_person;
2056: -- hsrep by does not exist in papf on the report date
2057: hr_utility.set_message(800, 'HR_289034_INC_INV_HSREP');
2058: hr_utility.raise_error;
2059: end if;
2060: close c_person;
2061: end if;
2054: if c_person%notfound then
2055: close c_person;
2056: -- hsrep by does not exist in papf on the report date
2057: hr_utility.set_message(800, 'HR_289034_INC_INV_HSREP');
2058: hr_utility.raise_error;
2059: end if;
2060: close c_person;
2061: end if;
2062: elsif p_notified_hsrep_date is not null then
2059: end if;
2060: close c_person;
2061: end if;
2062: elsif p_notified_hsrep_date is not null then
2063: hr_utility.set_message(800, 'HR_289035_INC_HSDATE_NULL');
2064: hr_utility.raise_error;
2065: end if;
2066: --
2067: hr_utility.set_location(' Leaving:'||l_proc, 5);
2060: close c_person;
2061: end if;
2062: elsif p_notified_hsrep_date is not null then
2063: hr_utility.set_message(800, 'HR_289035_INC_HSDATE_NULL');
2064: hr_utility.raise_error;
2065: end if;
2066: --
2067: hr_utility.set_location(' Leaving:'||l_proc, 5);
2068: --
2063: hr_utility.set_message(800, 'HR_289035_INC_HSDATE_NULL');
2064: hr_utility.raise_error;
2065: end if;
2066: --
2067: hr_utility.set_location(' Leaving:'||l_proc, 5);
2068: --
2069: end chk_notified_hsrep_and_date;
2070: --
2071: --
2155: l_api_updating boolean;
2156: --
2157: begin
2158: --
2159: hr_utility.set_location('Entering:'||l_proc, 1);
2160: --
2161: hr_api.mandatory_arg_error
2162: (p_api_name => l_proc
2163: ,p_argument => 'incident_date'
2168: --
2169: -- notified_rep_date cannot pre-date incident_date.
2170: --
2171: if p_notified_rep_date < p_incident_date then
2172: hr_utility.set_message(800, 'HR_289036_INC_INV_NRBDATE');
2173: hr_utility.raise_error;
2174: end if;
2175: --
2176: -- notified_rep_date must be null if notified_hsrep_id is null.
2169: -- notified_rep_date cannot pre-date incident_date.
2170: --
2171: if p_notified_rep_date < p_incident_date then
2172: hr_utility.set_message(800, 'HR_289036_INC_INV_NRBDATE');
2173: hr_utility.raise_error;
2174: end if;
2175: --
2176: -- notified_rep_date must be null if notified_hsrep_id is null.
2177: --
2175: --
2176: -- notified_rep_date must be null if notified_hsrep_id is null.
2177: --
2178: if p_notified_rep_id is null then
2179: hr_utility.set_message(800, 'HR_289037_INC_NRBDATE_NULL');
2180: hr_utility.raise_error;
2181: end if;
2182: end if;
2183: --
2176: -- notified_rep_date must be null if notified_hsrep_id is null.
2177: --
2178: if p_notified_rep_id is null then
2179: hr_utility.set_message(800, 'HR_289037_INC_NRBDATE_NULL');
2180: hr_utility.raise_error;
2181: end if;
2182: end if;
2183: --
2184: if p_notified_rep_id is not null then
2185: --
2186: -- notified_rep_id must be null if notified_rep_org_id is null.
2187: --
2188: if p_notified_rep_org_id is null then
2189: hr_utility.set_message(800, 'HR_289038_INC_NREP_NULL');
2190: hr_utility.raise_error;
2191: end if;
2192: end if;
2193: --
2186: -- notified_rep_id must be null if notified_rep_org_id is null.
2187: --
2188: if p_notified_rep_org_id is null then
2189: hr_utility.set_message(800, 'HR_289038_INC_NREP_NULL');
2190: hr_utility.raise_error;
2191: end if;
2192: end if;
2193: --
2194: l_api_updating := per_inc_shd.api_updating
2194: l_api_updating := per_inc_shd.api_updating
2195: (p_incident_id => p_incident_id
2196: ,p_object_version_number => p_object_version_number);
2197: --
2198: hr_utility.set_location(l_proc, 5);
2199: --
2200: -- Validate the rep_body org supplied.
2201: --
2202: if p_notified_rep_org_id is not null then
2209: fetch c_org into l_dummy;
2210: if c_org%notfound then
2211: close c_org;
2212: -- repbody org does not exist, so error.
2213: hr_utility.set_message(800, 'HR_289039_INC_INV_REPBODY');
2214: hr_utility.raise_error;
2215: end if;
2216: close c_org;
2217: end if;
2210: if c_org%notfound then
2211: close c_org;
2212: -- repbody org does not exist, so error.
2213: hr_utility.set_message(800, 'HR_289039_INC_INV_REPBODY');
2214: hr_utility.raise_error;
2215: end if;
2216: close c_org;
2217: end if;
2218: end if;
2216: close c_org;
2217: end if;
2218: end if;
2219: --
2220: hr_utility.set_location(l_proc, 15);
2221: --
2222: -- Validate the representative exists for the rep body.
2223: --
2224: if p_notified_rep_id is not null then
2231: fetch c_person into l_dummy;
2232: if c_person%notfound then
2233: close c_person;
2234: -- repbody org does not exist, so error.
2235: hr_utility.set_message(800, 'HR_289040_INC_INV_REP');
2236: hr_utility.raise_error;
2237: end if;
2238: close c_person;
2239: end if;
2232: if c_person%notfound then
2233: close c_person;
2234: -- repbody org does not exist, so error.
2235: hr_utility.set_message(800, 'HR_289040_INC_INV_REP');
2236: hr_utility.raise_error;
2237: end if;
2238: close c_person;
2239: end if;
2240: end if;
2239: end if;
2240: end if;
2241: --
2242: --
2243: hr_utility.set_location(l_proc,25);
2244: --
2245: end chk_notified_rep_org_date;
2246: --
2247: --
2283: --
2284: l_proc varchar2(72) := g_package||'chk_hospital_doctor_details';
2285: --
2286: begin
2287: hr_utility.set_location('Entering:'||l_proc, 1);
2288: --
2289: if p_treatment_received_flag is not null and p_treatment_received_flag not in ('Y','N') then
2290: hr_utility.set_message(800, 'HR_289027_INC_TREATMENT_INV');
2291: hr_utility.raise_error;
2286: begin
2287: hr_utility.set_location('Entering:'||l_proc, 1);
2288: --
2289: if p_treatment_received_flag is not null and p_treatment_received_flag not in ('Y','N') then
2290: hr_utility.set_message(800, 'HR_289027_INC_TREATMENT_INV');
2291: hr_utility.raise_error;
2292: end if;
2293: --
2294: -- Following IF (..) <> 'US' condition is added for OSHA localization.
2287: hr_utility.set_location('Entering:'||l_proc, 1);
2288: --
2289: if p_treatment_received_flag is not null and p_treatment_received_flag not in ('Y','N') then
2290: hr_utility.set_message(800, 'HR_289027_INC_TREATMENT_INV');
2291: hr_utility.raise_error;
2292: end if;
2293: --
2294: -- Following IF (..) <> 'US' condition is added for OSHA localization.
2295: --
2295: --
2296: IF (hr_api.get_legislation_context) <> 'US' then
2297: if p_treatment_received_flag <> 'Y' then
2298: if p_hospital_details is not null then
2299: hr_utility.set_message(800, 'HR_289025_INC_HOSP_NULL');
2300: hr_utility.raise_error;
2301: elsif p_doctor_name is not null then
2302: hr_utility.set_message(800, 'HR_289026_INC_DOC_NULL');
2303: hr_utility.raise_error;
2296: IF (hr_api.get_legislation_context) <> 'US' then
2297: if p_treatment_received_flag <> 'Y' then
2298: if p_hospital_details is not null then
2299: hr_utility.set_message(800, 'HR_289025_INC_HOSP_NULL');
2300: hr_utility.raise_error;
2301: elsif p_doctor_name is not null then
2302: hr_utility.set_message(800, 'HR_289026_INC_DOC_NULL');
2303: hr_utility.raise_error;
2304: end if;
2298: if p_hospital_details is not null then
2299: hr_utility.set_message(800, 'HR_289025_INC_HOSP_NULL');
2300: hr_utility.raise_error;
2301: elsif p_doctor_name is not null then
2302: hr_utility.set_message(800, 'HR_289026_INC_DOC_NULL');
2303: hr_utility.raise_error;
2304: end if;
2305: end if;
2306: END IF;
2299: hr_utility.set_message(800, 'HR_289025_INC_HOSP_NULL');
2300: hr_utility.raise_error;
2301: elsif p_doctor_name is not null then
2302: hr_utility.set_message(800, 'HR_289026_INC_DOC_NULL');
2303: hr_utility.raise_error;
2304: end if;
2305: end if;
2306: END IF;
2307: --
2304: end if;
2305: end if;
2306: END IF;
2307: --
2308: hr_utility.set_location(' Leaving:'||l_proc, 5);
2309: --
2310: end chk_hospital_doctor_details;
2311: --
2312: --
2346: l_output varchar2(60) := p_report_time;
2347: l_rgeflg varchar2(1);
2348: --
2349: begin
2350: hr_utility.set_location('Entering:'||l_proc, 1);
2351: --
2352: -- Check report_time is in HH24:MI format
2353: --
2354: if p_report_time is not null then
2356:
2357: hr_chkfmt.checkformat(l_value, 'TIMES', l_output, NULL, NULL, 'Y', l_rgeflg, NULL);
2358:
2359: if p_report_time <> l_output then
2360: hr_utility.set_message(800, 'HR_289031_INC_INV_RTIME');
2361: hr_utility.raise_error;
2362: end if;
2363:
2364: exception
2357: hr_chkfmt.checkformat(l_value, 'TIMES', l_output, NULL, NULL, 'Y', l_rgeflg, NULL);
2358:
2359: if p_report_time <> l_output then
2360: hr_utility.set_message(800, 'HR_289031_INC_INV_RTIME');
2361: hr_utility.raise_error;
2362: end if;
2363:
2364: exception
2365: when others then
2362: end if;
2363:
2364: exception
2365: when others then
2366: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
2367: hr_utility.set_message_token('ARG_NAME', 'report_time');
2368: hr_utility.set_message_token('ARG_VALUE', p_report_time);
2369: hr_utility.raise_error;
2370: end;
2363:
2364: exception
2365: when others then
2366: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
2367: hr_utility.set_message_token('ARG_NAME', 'report_time');
2368: hr_utility.set_message_token('ARG_VALUE', p_report_time);
2369: hr_utility.raise_error;
2370: end;
2371: end if;
2364: exception
2365: when others then
2366: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
2367: hr_utility.set_message_token('ARG_NAME', 'report_time');
2368: hr_utility.set_message_token('ARG_VALUE', p_report_time);
2369: hr_utility.raise_error;
2370: end;
2371: end if;
2372: --
2365: when others then
2366: hr_utility.set_message(801,'HR_7916_CHECK_FMT_HHMM');
2367: hr_utility.set_message_token('ARG_NAME', 'report_time');
2368: hr_utility.set_message_token('ARG_VALUE', p_report_time);
2369: hr_utility.raise_error;
2370: end;
2371: end if;
2372: --
2373: hr_utility.set_location(' Leaving:'||l_proc, 5);
2369: hr_utility.raise_error;
2370: end;
2371: end if;
2372: --
2373: hr_utility.set_location(' Leaving:'||l_proc, 5);
2374: --
2375: end chk_report_time;
2376: --
2377: -- ---------------------------------------------------------------------------
2423: and p_incident_date between asg.effective_start_date
2424: and asg.effective_end_date;
2425: --
2426: begin
2427: hr_utility.set_location('Entering:'||l_proc, 1);
2428: --
2429: hr_api.mandatory_arg_error
2430: (p_api_name => l_proc
2431: ,p_argument => 'person_id'
2439: );
2440: --
2441: if p_assignment_id is not null then
2442: --
2443: hr_utility.set_location(' Leaving:'||l_proc, 15);
2444: --
2445: if ((p_incident_id is null) or
2446: ((p_incident_id is not null) and
2447: ((per_inc_shd.g_old_rec.assignment_id <> p_assignment_id)
2453: open csr_asg;
2454: fetch csr_asg into l_dummy;
2455: if csr_asg%notfound then
2456: close csr_asg;
2457: hr_utility.set_message(800, 'HR_289041_INC_ASG_FK_NOT_FOUND');
2458: hr_utility.raise_error;
2459: end if;
2460: close csr_asg;
2461: end if;
2454: fetch csr_asg into l_dummy;
2455: if csr_asg%notfound then
2456: close csr_asg;
2457: hr_utility.set_message(800, 'HR_289041_INC_ASG_FK_NOT_FOUND');
2458: hr_utility.raise_error;
2459: end if;
2460: close csr_asg;
2461: end if;
2462: end if;
2460: close csr_asg;
2461: end if;
2462: end if;
2463: --
2464: hr_utility.set_location(' Leaving:'||l_proc, 15);
2465: --
2466: end chk_assignment_id;
2467: --
2468: -- ---------------------------------------------------------------------------
2511: l_reg varchar2(60);
2512: --
2513: --
2514: begin
2515: hr_utility.set_location('Entering:'||l_proc, 1);
2516: --
2517: -- ensure both currency and amount are not null
2518: -- if either is not null.
2519: if (p_compensation_currency is null and p_compensation_amount is not null)
2517: -- ensure both currency and amount are not null
2518: -- if either is not null.
2519: if (p_compensation_currency is null and p_compensation_amount is not null)
2520: or (p_compensation_currency is not null and p_compensation_amount is null) then
2521: hr_utility.set_message(800, 'HR_289043_INC_CURR_NULL');
2522: hr_utility.raise_error;
2523: end if;
2524: --
2525: -- compensation_date cannot pre-date incident_date.
2518: -- if either is not null.
2519: if (p_compensation_currency is null and p_compensation_amount is not null)
2520: or (p_compensation_currency is not null and p_compensation_amount is null) then
2521: hr_utility.set_message(800, 'HR_289043_INC_CURR_NULL');
2522: hr_utility.raise_error;
2523: end if;
2524: --
2525: -- compensation_date cannot pre-date incident_date.
2526: --
2524: --
2525: -- compensation_date cannot pre-date incident_date.
2526: --
2527: if p_compensation_date < p_incident_date then
2528: hr_utility.set_message(800, 'HR_289045_INC_INV_CDATE');
2529: hr_utility.raise_error;
2530: end if;
2531: --
2532: hr_utility.set_location(l_proc, 10);
2525: -- compensation_date cannot pre-date incident_date.
2526: --
2527: if p_compensation_date < p_incident_date then
2528: hr_utility.set_message(800, 'HR_289045_INC_INV_CDATE');
2529: hr_utility.raise_error;
2530: end if;
2531: --
2532: hr_utility.set_location(l_proc, 10);
2533: --
2528: hr_utility.set_message(800, 'HR_289045_INC_INV_CDATE');
2529: hr_utility.raise_error;
2530: end if;
2531: --
2532: hr_utility.set_location(l_proc, 10);
2533: --
2534: -- check currency_code and currency_amount are is valid.
2535: --
2536: if ((p_incident_id is null) or
2546: hr_chkfmt.checkformat(l_value, 'MONEY', l_output, NULL, NULL, 'Y', l_reg, p_compensation_currency);
2547:
2548: exception
2549: when others then
2550: hr_utility.set_message(801,'HR_7912_CHECK_FMT_MONEY');
2551: hr_utility.set_message_token('ARG_NAME', 'compensation amount');
2552: hr_utility.set_message_token('ARG_VALUE', l_value);
2553: hr_utility.raise_error;
2554: end;
2547:
2548: exception
2549: when others then
2550: hr_utility.set_message(801,'HR_7912_CHECK_FMT_MONEY');
2551: hr_utility.set_message_token('ARG_NAME', 'compensation amount');
2552: hr_utility.set_message_token('ARG_VALUE', l_value);
2553: hr_utility.raise_error;
2554: end;
2555: end if;
2548: exception
2549: when others then
2550: hr_utility.set_message(801,'HR_7912_CHECK_FMT_MONEY');
2551: hr_utility.set_message_token('ARG_NAME', 'compensation amount');
2552: hr_utility.set_message_token('ARG_VALUE', l_value);
2553: hr_utility.raise_error;
2554: end;
2555: end if;
2556: --
2549: when others then
2550: hr_utility.set_message(801,'HR_7912_CHECK_FMT_MONEY');
2551: hr_utility.set_message_token('ARG_NAME', 'compensation amount');
2552: hr_utility.set_message_token('ARG_VALUE', l_value);
2553: hr_utility.raise_error;
2554: end;
2555: end if;
2556: --
2557: hr_utility.set_location(' Leaving:'||l_proc, 15);
2553: hr_utility.raise_error;
2554: end;
2555: end if;
2556: --
2557: hr_utility.set_location(' Leaving:'||l_proc, 15);
2558: --
2559: end chk_compensation_details;
2560: --
2561: --
2595: --
2596: l_proc varchar2(72) := g_package||'chk_absence_exists_flag';
2597: --
2598: begin
2599: hr_utility.set_location('Entering:'||l_proc, 1);
2600: --
2601: if p_absence_exists_flag is not null and p_absence_exists_flag not in ('Y','N') then
2602: hr_utility.set_message(800, 'HR_289042_INC_ABS_EXISTS_INV');
2603: hr_utility.raise_error;
2598: begin
2599: hr_utility.set_location('Entering:'||l_proc, 1);
2600: --
2601: if p_absence_exists_flag is not null and p_absence_exists_flag not in ('Y','N') then
2602: hr_utility.set_message(800, 'HR_289042_INC_ABS_EXISTS_INV');
2603: hr_utility.raise_error;
2604: end if;
2605: --
2606: hr_utility.set_location(' Leaving:'||l_proc, 5);
2599: hr_utility.set_location('Entering:'||l_proc, 1);
2600: --
2601: if p_absence_exists_flag is not null and p_absence_exists_flag not in ('Y','N') then
2602: hr_utility.set_message(800, 'HR_289042_INC_ABS_EXISTS_INV');
2603: hr_utility.raise_error;
2604: end if;
2605: --
2606: hr_utility.set_location(' Leaving:'||l_proc, 5);
2607: --
2602: hr_utility.set_message(800, 'HR_289042_INC_ABS_EXISTS_INV');
2603: hr_utility.raise_error;
2604: end if;
2605: --
2606: hr_utility.set_location(' Leaving:'||l_proc, 5);
2607: --
2608: end chk_absence_exists_flag;
2609: --
2610: --
2642: --
2643: l_proc varchar2(72) := g_package||'chk_object_version_number';
2644: --
2645: begin
2646: hr_utility.set_location('Entering:'||l_proc, 1);
2647: --
2648: -- Check mandatory parameters have been set
2649: --
2650: hr_api.mandatory_arg_error
2652: ,p_argument => 'object_version_number'
2653: ,p_argument_value => p_object_version_number
2654: );
2655: --
2656: hr_utility.set_location(' Leaving:'||l_proc, 3);
2657: --
2658: end chk_object_version_number;
2659: --
2660: --
2674: l_proc varchar2(72) := g_package||'insert_validate';
2675: l_bg_id per_all_people_f.business_group_id%TYPE;
2676: --
2677: Begin
2678: hr_utility.set_location('Entering:'||l_proc, 5);
2679: --
2680: -- Call all supporting business operations
2681: --
2682: -- Call parent person table's set_security_group_id function
2870: -- Validate Descriptive Flexfield
2871: --
2872: per_inc_bus.chk_df(p_rec);
2873: --
2874: hr_utility.set_location(' Leaving:'||l_proc, 10);
2875: End insert_validate;
2876: --
2877: -- ----------------------------------------------------------------------------
2878: -- |---------------------------< update_validate >----------------------------|
2890: l_bg_id per_all_people_f.business_group_id%TYPE;
2891: l_proc varchar2(72) := g_package||'update_validate';
2892: --
2893: Begin
2894: hr_utility.set_location('Entering:'||l_proc, 5);
2895: --
2896: -- Call all supporting business operations
2897: -- Call parent person table's set_security_group_id function
2898: per_per_bus.set_security_group_id(p_person_id => to_number(p_rec.person_id));
3057: -- Validate Descriptive Flexfield
3058: --
3059: per_inc_bus.chk_df(p_rec);
3060: --
3061: hr_utility.set_location(' Leaving:'||l_proc, 10);
3062: End update_validate;
3063: --
3064: -- ----------------------------------------------------------------------------
3065: -- |---------------------------< delete_validate >----------------------------|
3070: --
3071: l_proc varchar2(72) := g_package||'delete_validate';
3072: --
3073: Begin
3074: hr_utility.set_location('Entering:'||l_proc, 5);
3075: --
3076: -- Call all supporting business operations
3077: --
3078: -- Validate Object Version Number
3080: chk_object_version_number
3081: (p_object_version_number => p_rec.object_version_number);
3082: --
3083: --
3084: hr_utility.set_location(' Leaving:'||l_proc, 10);
3085: End delete_validate;
3086: --
3087: --
3088: --******************************************************************************
3143: l_proc varchar2(72) := g_package||'delete_validate';
3144: --
3145:
3146: Begin
3147: hr_utility.set_location('Entering:'||l_proc, 5);
3148: --
3149: --
3150: -- Loop for all the existing US business Groups
3151: --
3183: commit;
3184: --
3185: end loop; -- Business Groups Loop
3186: --
3187: hr_utility.set_location(' Leaving:'||l_proc, 10);
3188: --
3189: End create_osha_numbers;
3190: --
3191: --