eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PER_MEA_BUS dependencies on HR_UTILITY

Line 56: hr_utility.set_location('Entering:'|| l_proc, 10);

52: l_proc varchar2(72) := g_package||'chk_combination_id';
53: --
54: BEGIN
55: --
56: hr_utility.set_location('Entering:'|| l_proc, 10);
57: --
58: -- Check to see that the Conultation_Result and Type combination
59: -- Type combination are valid.
60: --

Line 64: hr_utility.set_message(800, 'HR_52734_MEA_INV_TYPE_RESULT');

60: --
61: IF p_consultation_type = 'DA' AND
62: p_consultation_result = 'DI' THEN
63: --
64: hr_utility.set_message(800, 'HR_52734_MEA_INV_TYPE_RESULT');
65: hr_utility.raise_error;
66: --
67: END IF;
68: --

Line 65: hr_utility.raise_error;

61: IF p_consultation_type = 'DA' AND
62: p_consultation_result = 'DI' THEN
63: --
64: hr_utility.set_message(800, 'HR_52734_MEA_INV_TYPE_RESULT');
65: hr_utility.raise_error;
66: --
67: END IF;
68: --
69: hr_utility.set_location('Leaving:'|| l_proc, 20);

Line 69: hr_utility.set_location('Leaving:'|| l_proc, 20);

65: hr_utility.raise_error;
66: --
67: END IF;
68: --
69: hr_utility.set_location('Leaving:'|| l_proc, 20);
70: --
71: END chk_consultation_combination;
72: --
73: -- ---------------------------------------------------------------------------

Line 118: hr_utility.set_location('Entering:'|| l_proc, 10);

114: WHERE pwi.incident_id = p_incident_id;
115: --
116: BEGIN
117: --
118: hr_utility.set_location('Entering:'|| l_proc, 10);
119: --
120: -- check that the consultation date is
121: -- after the incident date
122: --

Line 125: hr_utility.set_location(l_proc,20);

121: -- after the incident date
122: --
123: IF p_incident_id is not NULL THEN
124: --
125: hr_utility.set_location(l_proc,20);
126: --
127: OPEN get_incident_date;
128: FETCH get_incident_date INTO l_incident_date;
129: CLOSE get_incident_date;

Line 131: hr_utility.set_location(l_proc,30);

127: OPEN get_incident_date;
128: FETCH get_incident_date INTO l_incident_date;
129: CLOSE get_incident_date;
130: --
131: hr_utility.set_location(l_proc,30);
132: --
133: IF TRUNC(l_incident_date) > p_consultation_date THEN
134: --
135: hr_utility.set_message(800, 'HR_289014_INC_CON_DATE_INV');

Line 135: hr_utility.set_message(800, 'HR_289014_INC_CON_DATE_INV');

131: hr_utility.set_location(l_proc,30);
132: --
133: IF TRUNC(l_incident_date) > p_consultation_date THEN
134: --
135: hr_utility.set_message(800, 'HR_289014_INC_CON_DATE_INV');
136: hr_utility.raise_error;
137: --
138: END IF;
139: --

Line 136: hr_utility.raise_error;

132: --
133: IF TRUNC(l_incident_date) > p_consultation_date THEN
134: --
135: hr_utility.set_message(800, 'HR_289014_INC_CON_DATE_INV');
136: hr_utility.raise_error;
137: --
138: END IF;
139: --
140: END IF;

Line 142: hr_utility.set_location('Leaving:'|| l_proc, 50);

138: END IF;
139: --
140: END IF;
141: --
142: hr_utility.set_location('Leaving:'|| l_proc, 50);
143: --
144: END chk_inc_consul_date;
145: --
146: -- ---------------------------------------------------------------------------

Line 186: hr_utility.set_location('Entering:'|| l_proc, 10);

182: l_proc VARCHAR2(72) := g_package||'chk_consultation_date_combinations';
183: --
184: BEGIN
185: --
186: hr_utility.set_location('Entering:'|| l_proc, 10);
187: --
188: -- check that the consultation date is
189: -- before the next consultation date
190: --

Line 193: hr_utility.set_message(800, 'HR_52735_MEA_INV_DATE_COMB');

189: -- before the next consultation date
190: --
191: IF p_consultation_date > nvl(p_next_consultation_date,hr_api.g_eot) THEN
192: --
193: hr_utility.set_message(800, 'HR_52735_MEA_INV_DATE_COMB');
194: hr_utility.raise_error;
195: --
196: END IF;
197: --

Line 194: hr_utility.raise_error;

190: --
191: IF p_consultation_date > nvl(p_next_consultation_date,hr_api.g_eot) THEN
192: --
193: hr_utility.set_message(800, 'HR_52735_MEA_INV_DATE_COMB');
194: hr_utility.raise_error;
195: --
196: END IF;
197: --
198: hr_utility.set_location('Leaving:'|| l_proc, 50);

Line 198: hr_utility.set_location('Leaving:'|| l_proc, 50);

194: hr_utility.raise_error;
195: --
196: END IF;
197: --
198: hr_utility.set_location('Leaving:'|| l_proc, 50);
199: --
200: END chk_date_combinations;
201: --
202: --

Line 251: hr_utility.set_location('Entering:'||l_proc, 1);

247: AND per.effective_end_date;
248: --
249: BEGIN
250: --
251: hr_utility.set_location('Entering:'||l_proc, 1);
252: --
253: -- Check mandatory person_id is set
254: --
255: if p_person_id is null then

Line 257: hr_utility.set_message(800, 'HR_52742_MEA_PERSON_ID_NULL');

253: -- Check mandatory person_id is set
254: --
255: if p_person_id is null then
256: --
257: hr_utility.set_message(800, 'HR_52742_MEA_PERSON_ID_NULL');
258: hr_utility.raise_error;
259: --
260: end if;
261: --

Line 258: hr_utility.raise_error;

254: --
255: if p_person_id is null then
256: --
257: hr_utility.set_message(800, 'HR_52742_MEA_PERSON_ID_NULL');
258: hr_utility.raise_error;
259: --
260: end if;
261: --
262: hr_utility.set_location(l_proc, 5);

Line 262: hr_utility.set_location(l_proc, 5);

258: hr_utility.raise_error;
259: --
260: end if;
261: --
262: hr_utility.set_location(l_proc, 5);
263: --
264: -- Only proceed with validation if :
265: -- a) on insert (non-updateable param)
266: --

Line 269: hr_utility.set_location(l_proc, 10);

265: -- a) on insert (non-updateable param)
266: --
267: if (p_medical_assessment_id is null) then
268: --
269: hr_utility.set_location(l_proc, 10);
270: --
271: -- Check that the person_id is in the per_people_f view on the effective_date.
272: --
273: open csr_person_id;

Line 280: hr_utility.set_message(800, 'HR_52741_MEA_PERSON_ID_INV');

276: if csr_person_id%notfound then
277: --
278: close csr_person_id;
279: --
280: hr_utility.set_message(800, 'HR_52741_MEA_PERSON_ID_INV');
281: hr_utility.raise_error;
282: --
283: end if;
284: --

Line 281: hr_utility.raise_error;

277: --
278: close csr_person_id;
279: --
280: hr_utility.set_message(800, 'HR_52741_MEA_PERSON_ID_INV');
281: hr_utility.raise_error;
282: --
283: end if;
284: --
285: close csr_person_id;

Line 289: hr_utility.set_location(' Leaving:'||l_proc, 15);

285: close csr_person_id;
286: --
287: end if;
288: --
289: hr_utility.set_location(' Leaving:'||l_proc, 15);
290: --
291: end chk_person_id;
292: --
293: -- ---------------------------------------------------------------------------

Line 350: hr_utility.set_location('Entering:'|| l_proc, 10);

346: l_business_group_id per_assignments_f.business_group_id%TYPE;
347: --
348: BEGIN
349: --
350: hr_utility.set_location('Entering:'|| l_proc, 10);
351: --
352: -- Check mandatory parameters have been set
353: --
354: hr_api.mandatory_arg_error

Line 367: hr_utility.set_location(l_proc, 20);

363: --
364: IF p_organization_id is not null AND
365: per_mea_shd.g_old_rec.organization_id <> p_organization_id THEN
366: --
367: hr_utility.set_location(l_proc, 20);
368: --
369: -- check org exists in hr_all_organization_units (fk) for the persons bg
370: -- within the validation date range.
371: --

Line 381: hr_utility.set_message(800, 'HR_52740_MEA_SERV_PROV_INV');

377: CLOSE csr_org;
378: --
379: -- error as org not found
380: --
381: hr_utility.set_message(800, 'HR_52740_MEA_SERV_PROV_INV');
382: hr_utility.raise_error;
383: --
384: ELSIF l_business_group_id <> p_business_group_id THEN
385: --

Line 382: hr_utility.raise_error;

378: --
379: -- error as org not found
380: --
381: hr_utility.set_message(800, 'HR_52740_MEA_SERV_PROV_INV');
382: hr_utility.raise_error;
383: --
384: ELSIF l_business_group_id <> p_business_group_id THEN
385: --
386: CLOSE csr_org;

Line 390: hr_utility.set_message(800, 'HR_52744_MEA_ORG_BG_INV');

386: CLOSE csr_org;
387: --
388: -- error as org is in different business group to person
389: --
390: hr_utility.set_message(800, 'HR_52744_MEA_ORG_BG_INV');
391: hr_utility.raise_error;
392: --
393: END IF;
394: --

Line 391: hr_utility.raise_error;

387: --
388: -- error as org is in different business group to person
389: --
390: hr_utility.set_message(800, 'HR_52744_MEA_ORG_BG_INV');
391: hr_utility.raise_error;
392: --
393: END IF;
394: --
395: CLOSE csr_org;

Line 397: hr_utility.set_location(l_proc, 40);

393: END IF;
394: --
395: CLOSE csr_org;
396: --
397: hr_utility.set_location(l_proc, 40);
398: --
399: -- check org exists in hr_organization_information for the relevant
400: -- organisation class.
401: --

Line 411: hr_utility.set_message(800, 'HR_52743_MEA_SER_ORG_CLASS_INV');

407: CLOSE csr_org_inf;
408: --
409: -- error as org is not in the correct class of disability_org
410: --
411: hr_utility.set_message(800, 'HR_52743_MEA_SER_ORG_CLASS_INV');
412: hr_utility.raise_error;
413: --
414: END IF;
415: --

Line 412: hr_utility.raise_error;

408: --
409: -- error as org is not in the correct class of disability_org
410: --
411: hr_utility.set_message(800, 'HR_52743_MEA_SER_ORG_CLASS_INV');
412: hr_utility.raise_error;
413: --
414: END IF;
415: --
416: CLOSE csr_org_inf;

Line 422: hr_utility.set_location('Entering:'|| l_proc, 50);

418: -- end if;
419: --
420: END IF;
421: --
422: hr_utility.set_location('Entering:'|| l_proc, 50);
423: --
424: END chk_organization_id;
425: --
426: -- ---------------------------------------------------------------------------

Line 463: hr_utility.set_location('Entering:'|| l_proc, 10);

459: l_proc VARCHAR2(72) := g_package||'chk_consultation_date';
460: --
461: BEGIN
462: --
463: hr_utility.set_location('Entering:'|| l_proc, 10);
464: --
465: -- Check mandatory parameters have been set
466: --
467: hr_api.mandatory_arg_error

Line 479: hr_utility.set_location('Entering:'|| l_proc, 50);

475: per_mea_bus.chk_date_combinations
476: (p_next_consultation_date => p_next_consultation_date
477: ,p_consultation_date => p_consultation_date);
478: --
479: hr_utility.set_location('Entering:'|| l_proc, 50);
480: --
481: END chk_consultation_date;
482: --
483: -- ---------------------------------------------------------------------------

Line 527: hr_utility.set_location('Entering:'||l_proc, 10);

523: l_proc varchar2(72) := g_package||'chk_consultation_type';
524: --
525: BEGIN
526: --
527: hr_utility.set_location('Entering:'||l_proc, 10);
528: --
529: -- Check mandatory parameters have been set
530: --
531: hr_api.mandatory_arg_error

Line 536: hr_utility.set_location(l_proc, 20);

532: (p_api_name => l_proc
533: ,p_argument => 'consultation_type'
534: ,p_argument_value => p_consultation_type);
535: --
536: hr_utility.set_location(l_proc, 20);
537: --
538: -- Only proceed with validation if :
539: -- a) Inserting or
540: -- b) The value for consultation type has changed

Line 546: hr_utility.set_location(l_proc, 30);

542: IF ( (p_medical_assessment_id is null) OR
543: ((p_medical_assessment_id is not null) AND
544: (per_mea_shd.g_old_rec.consultation_type <> p_consultation_type))) THEN
545: --
546: hr_utility.set_location(l_proc, 30);
547: --
548: -- Check that the consultation type exists in HR_LOOKUPS
549: --
550: IF hr_api.not_exists_in_hr_lookups

Line 555: hr_utility.set_location(l_proc, 40);

551: (p_effective_date => p_effective_date
552: ,p_lookup_type => 'CONSULTATION_TYPE'
553: ,p_lookup_code => p_consultation_type) THEN
554: --
555: hr_utility.set_location(l_proc, 40);
556: --
557: hr_utility.set_message(800, 'HR_52736_MEA_CONS_TYPE_INV');
558: hr_utility.raise_error;
559: --

Line 557: hr_utility.set_message(800, 'HR_52736_MEA_CONS_TYPE_INV');

553: ,p_lookup_code => p_consultation_type) THEN
554: --
555: hr_utility.set_location(l_proc, 40);
556: --
557: hr_utility.set_message(800, 'HR_52736_MEA_CONS_TYPE_INV');
558: hr_utility.raise_error;
559: --
560: END IF;
561: --

Line 558: hr_utility.raise_error;

554: --
555: hr_utility.set_location(l_proc, 40);
556: --
557: hr_utility.set_message(800, 'HR_52736_MEA_CONS_TYPE_INV');
558: hr_utility.raise_error;
559: --
560: END IF;
561: --
562: -- Check to see that the Conultation_Result and Type combination

Line 571: hr_utility.set_location(' Leaving:'||l_proc, 50);

567: ,p_consultation_result => p_consultation_result);
568: --
569: END IF;
570: --
571: hr_utility.set_location(' Leaving:'||l_proc, 50);
572: --
573: END chk_consultation_type;
574: --
575: -- ---------------------------------------------------------------------------

Line 619: hr_utility.set_location('Entering:'||l_proc, 10);

615: l_proc varchar2(72) := g_package||'chk_consultation_type';
616: --
617: BEGIN
618: --
619: hr_utility.set_location('Entering:'||l_proc, 10);
620: --
621: -- Only proceed with validation if :
622: -- a) Consultation_result is not null
623: -- b) The value for consultation result has changed

Line 628: hr_utility.set_location(l_proc, 20);

624: --
625: IF p_consultation_result IS NOT NULL OR
626: per_mea_shd.g_old_rec.consultation_result <> p_consultation_result THEN
627: --
628: hr_utility.set_location(l_proc, 20);
629: --
630: -- Check that the consultation result exists in HR_LOOKUPS
631: --
632: IF hr_api.not_exists_in_hr_lookups

Line 637: hr_utility.set_location(l_proc, 30);

633: (p_effective_date => p_effective_date
634: ,p_lookup_type => 'CONSULTATION_RESULT'
635: ,p_lookup_code => p_consultation_result) THEN
636: --
637: hr_utility.set_location(l_proc, 30);
638: --
639: hr_utility.set_message(800, 'HR_52737_MEA_CONS_RES_INV');
640: hr_utility.raise_error;
641: --

Line 639: hr_utility.set_message(800, 'HR_52737_MEA_CONS_RES_INV');

635: ,p_lookup_code => p_consultation_result) THEN
636: --
637: hr_utility.set_location(l_proc, 30);
638: --
639: hr_utility.set_message(800, 'HR_52737_MEA_CONS_RES_INV');
640: hr_utility.raise_error;
641: --
642: END IF;
643: --

Line 640: hr_utility.raise_error;

636: --
637: hr_utility.set_location(l_proc, 30);
638: --
639: hr_utility.set_message(800, 'HR_52737_MEA_CONS_RES_INV');
640: hr_utility.raise_error;
641: --
642: END IF;
643: --
644: -- Check to see that the Conultation_Result and Type combination

Line 653: hr_utility.set_location(' Leaving:'||l_proc, 40);

649: ,p_consultation_result => p_consultation_result);
650: --
651: END IF;
652: --
653: hr_utility.set_location(' Leaving:'||l_proc, 40);
654: --
655: END chk_consultation_result;
656: --
657: -- ---------------------------------------------------------------------------

Line 703: hr_utility.set_location('Entering:'|| l_proc, 10);

699: l_dummy_id per_medical_assessments.incident_id%TYPE;
700: --
701: BEGIN
702: --
703: hr_utility.set_location('Entering:'|| l_proc, 10);
704: --
705: -- Only proceed with validation if :
706: -- a) Incident ID is not blank
707: -- b) The value for incident_id has changed

Line 712: hr_utility.set_location(l_proc, 20);

708: --
709: IF p_incident_id IS NOT NULL OR
710: per_mea_shd.g_old_rec.incident_id <> p_incident_id THEN
711: --
712: hr_utility.set_location(l_proc, 20);
713: --
714: -- Check to see if a work incident record
715: -- exists for the incident_id.
716: --

Line 726: hr_utility.set_message(800, 'HR_52738_MEA_WORK_INC_INV');

722: CLOSE c_incident_id;
723: --
724: -- Work Incident record not found so id is invalid. Raise Error.
725: --
726: hr_utility.set_message(800, 'HR_52738_MEA_WORK_INC_INV');
727: hr_utility.raise_error;
728: --
729: END IF;
730: --

Line 727: hr_utility.raise_error;

723: --
724: -- Work Incident record not found so id is invalid. Raise Error.
725: --
726: hr_utility.set_message(800, 'HR_52738_MEA_WORK_INC_INV');
727: hr_utility.raise_error;
728: --
729: END IF;
730: --
731: CLOSE c_incident_id;

Line 735: hr_utility.set_location(' Leaving:'|| l_proc, 30);

731: CLOSE c_incident_id;
732: --
733: END IF;
734: --
735: hr_utility.set_location(' Leaving:'|| l_proc, 30);
736: --
737: END chk_incident_id;
738: --
739: -- ---------------------------------------------------------------------------

Line 793: hr_utility.set_location('Entering:'|| l_proc, 10);

789: l_proc VARCHAR2(72) := g_package||'chk_valid_id_combinations';
790: --
791: BEGIN
792: --
793: hr_utility.set_location('Entering:'|| l_proc, 10);
794: --
795: -- Only proceed with validation if :
796: -- a) Disability ID and Incident ID are not NULL
797: -- b) The value for disability_id and Incident ID has changed.

Line 802: hr_utility.set_location(l_proc, 20);

798: --
799: IF p_disability_id IS NOT NULL AND
800: p_incident_id IS NOT NULL THEN
801: --
802: hr_utility.set_location(l_proc, 20);
803: --
804: -- Only continue if the disability_id or incident_id have
805: -- changed
806: --

Line 810: hr_utility.set_location(l_proc, 30);

806: --
807: IF per_mea_shd.g_old_rec.disability_id <> p_disability_id OR
808: per_mea_shd.g_old_rec.incident_id <> p_incident_id THEN
809: --
810: hr_utility.set_location(l_proc, 30);
811: --
812: -- Check to see if a medical assessment record exists
813: -- with the same disability and incident IDs.
814: --

Line 818: hr_utility.set_location(l_proc, 40);

814: --
815: OPEN c_valid_id;
816: FETCH c_valid_id INTO l_dummy_id;
817: --
818: hr_utility.set_location(l_proc, 40);
819: --
820: IF c_valid_id%FOUND THEN
821: --
822: CLOSE c_valid_id;

Line 826: hr_utility.set_message(800, 'HR_52745_MEA_INC_DIS_EXISTS');

822: CLOSE c_valid_id;
823: --
824: -- Disability record not found so id is invalid. Raise Error.
825: --
826: hr_utility.set_message(800, 'HR_52745_MEA_INC_DIS_EXISTS');
827: hr_utility.raise_error;
828: --
829: END IF;
830: --

Line 827: hr_utility.raise_error;

823: --
824: -- Disability record not found so id is invalid. Raise Error.
825: --
826: hr_utility.set_message(800, 'HR_52745_MEA_INC_DIS_EXISTS');
827: hr_utility.raise_error;
828: --
829: END IF;
830: --
831: CLOSE c_valid_id;

Line 837: hr_utility.set_location('Leaving:'|| l_proc, 50);

833: END IF;
834: --
835: END IF;
836: --
837: hr_utility.set_location('Leaving:'|| l_proc, 50);
838: --
839: END chk_valid_id_combinations;
840: --
841: -- ---------------------------------------------------------------------------

Line 899: hr_utility.set_location('Entering:'|| l_proc, 10);

895: l_proc VARCHAR2(72) := g_package||'chk_inc_against_dis';
896: --
897: BEGIN
898: --
899: hr_utility.set_location('Entering:'|| l_proc, 10);
900: --
901: -- Only proceed with validation if :
902: -- a) Disability ID and Incident ID are not NULL
903: -- b) The value for disability_id and Incident ID has changed.

Line 908: hr_utility.set_location(l_proc, 20);

904: --
905: IF p_disability_id IS NOT NULL AND
906: p_incident_id IS NOT NULL THEN
907: --
908: hr_utility.set_location(l_proc, 20);
909: --
910: -- Only continue if the disability_id or incident_id have
911: -- changed
912: --

Line 916: hr_utility.set_location(l_proc, 30);

912: --
913: IF per_mea_shd.g_old_rec.disability_id <> p_disability_id OR
914: per_mea_shd.g_old_rec.incident_id <> p_incident_id THEN
915: --
916: hr_utility.set_location(l_proc, 30);
917: --
918: -- Check to see if the work incident record has been assigned
919: -- to the disability record.
920: --

Line 924: hr_utility.set_location(l_proc, 40);

920: --
921: OPEN c_disability_id;
922: FETCH c_disability_id INTO l_dummy_id;
923: --
924: hr_utility.set_location(l_proc, 40);
925: --
926: IF c_disability_id%NOTFOUND THEN
927: --
928: CLOSE c_disability_id;

Line 932: hr_utility.set_message(800, 'HR_52764_MEA_INC_DIS_INV');

928: CLOSE c_disability_id;
929: --
930: -- Disability record not found so id is invalid. Raise Error.
931: --
932: hr_utility.set_message(800, 'HR_52764_MEA_INC_DIS_INV');
933: hr_utility.raise_error;
934: --
935: END IF;
936: --

Line 933: hr_utility.raise_error;

929: --
930: -- Disability record not found so id is invalid. Raise Error.
931: --
932: hr_utility.set_message(800, 'HR_52764_MEA_INC_DIS_INV');
933: hr_utility.raise_error;
934: --
935: END IF;
936: --
937: CLOSE c_disability_id;

Line 943: hr_utility.set_location('Leaving:'|| l_proc, 50);

939: END IF;
940: --
941: END IF;
942: --
943: hr_utility.set_location('Leaving:'|| l_proc, 50);
944: --
945: END chk_inc_against_dis;
946: --
947: -- ---------------------------------------------------------------------------

Line 1001: hr_utility.set_location('Entering:'|| l_proc, 10);

997: l_proc VARCHAR2(72) := g_package||'chk_disability_id';
998: --
999: BEGIN
1000: --
1001: hr_utility.set_location('Entering:'|| l_proc, 10);
1002: --
1003: -- Only proceed with validation if :
1004: -- a) Disability ID is not NULL
1005: -- b) The value for disability_id has changed

Line 1013: hr_utility.set_location(l_proc, 20);

1009: IF ((p_medical_assessment_id is null) or
1010: ((p_medical_assessment_id is not null) and
1011: (per_dis_shd.g_old_rec.disability_id <> p_disability_id))) then
1012: --
1013: hr_utility.set_location(l_proc, 20);
1014: --
1015: -- fix #1565679 (point 27) - make disability_id updatable on the medical assessment.
1016: --
1017: -- Check to see if a disability record exists for the disability id

Line 1022: hr_utility.set_location(l_proc, 30);

1018: --
1019: OPEN c_disability_id;
1020: FETCH c_disability_id INTO l_dummy_id;
1021: --
1022: hr_utility.set_location(l_proc, 30);
1023: --
1024: IF c_disability_id%NOTFOUND THEN
1025: --
1026: CLOSE c_disability_id;

Line 1030: hr_utility.set_message(800, 'HR_52739_MEA_DIS_INV');

1026: CLOSE c_disability_id;
1027: --
1028: -- Disability record not found so id is invalid. Raise Error.
1029: --
1030: hr_utility.set_message(800, 'HR_52739_MEA_DIS_INV');
1031: hr_utility.raise_error;
1032: --
1033: END IF;
1034: --

Line 1031: hr_utility.raise_error;

1027: --
1028: -- Disability record not found so id is invalid. Raise Error.
1029: --
1030: hr_utility.set_message(800, 'HR_52739_MEA_DIS_INV');
1031: hr_utility.raise_error;
1032: --
1033: END IF;
1034: --
1035: CLOSE c_disability_id;

Line 1040: hr_utility.set_location('Leaving:'|| l_proc, 40);

1036: --
1037: END IF;
1038: END IF;
1039: --
1040: hr_utility.set_location('Leaving:'|| l_proc, 40);
1041: --
1042: END chk_disability_id;
1043: --
1044: -- ---------------------------------------------------------------------------

Line 1084: hr_utility.set_location('Entering:'||l_proc, 10);

1080: l_proc VARCHAR2(72) := g_package||'chk_next_consultation_date';
1081: --
1082: BEGIN
1083: --
1084: hr_utility.set_location('Entering:'||l_proc, 10);
1085: --
1086: -- Check that the next_consultation_date is valid
1087: -- in relation to the consultation_date
1088: --

Line 1093: hr_utility.set_location('Leaving:'||l_proc, 20);

1089: per_mea_bus.chk_date_combinations
1090: (p_next_consultation_date => p_next_consultation_date
1091: ,p_consultation_date => p_consultation_date);
1092: --
1093: hr_utility.set_location('Leaving:'||l_proc, 20);
1094: --
1095: END chk_next_consultation_date;
1096: --
1097: -- ---------------------------------------------------------------------------

Line 1122: hr_utility.set_location('Entering:'|| l_proc, 10);

1118: l_proc varchar2(72) := g_package||'set_security_group_id';
1119: --
1120: BEGIN
1121: --
1122: hr_utility.set_location('Entering:'|| l_proc, 10);
1123: --
1124: -- Ensure that all the mandatory parameter are not null
1125: --
1126: hr_api.mandatory_arg_error

Line 1153: hr_utility.set_location(' Leaving:'|| l_proc, 20);

1149: hr_api.set_security_group_id
1150: (p_security_group_id => l_security_group_id
1151: );
1152: --
1153: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1154: --
1155: END set_security_group_id;
1156: --
1157: -- ---------------------------------------------------------------------------

Line 1184: hr_utility.set_location('Entering:'|| l_proc, 10);

1180: l_proc varchar2(72) := g_package||'return_legislation_code';
1181: --
1182: Begin
1183: --
1184: hr_utility.set_location('Entering:'|| l_proc, 10);
1185: --
1186: -- Ensure that all the mandatory parameter are not null
1187: --
1188: hr_api.mandatory_arg_error

Line 1203: hr_utility.set_location(l_proc, 20);

1199: -- variable.
1200: --
1201: l_legislation_code := per_mea_bus.g_legislation_code;
1202: --
1203: hr_utility.set_location(l_proc, 20);
1204: else
1205: --
1206: -- The ID is different to the last call to this function
1207: -- or this is the first call to this function.

Line 1220: hr_utility.set_location(l_proc,30);

1216: close csr_leg_code;
1217: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
1218: fnd_message.raise_error;
1219: end if;
1220: hr_utility.set_location(l_proc,30);
1221: --
1222: -- Set the global variables so the values are
1223: -- available for the next call to this function.
1224: --

Line 1229: hr_utility.set_location(' Leaving:'|| l_proc, 40);

1225: close csr_leg_code;
1226: per_mea_bus.g_medical_assessment_id := p_medical_assessment_id;
1227: per_mea_bus.g_legislation_code := l_legislation_code;
1228: end if;
1229: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1230: return l_legislation_code;
1231: end return_legislation_code;
1232: --
1233: -- ----------------------------------------------------------------------------

Line 1268: hr_utility.set_location('Entering:'||l_proc,10);

1264: --
1265: l_proc varchar2(72) := g_package || 'chk_ddf';
1266: --
1267: BEGIN
1268: hr_utility.set_location('Entering:'||l_proc,10);
1269: --
1270: if ((p_rec.medical_assessment_id is not null) and (
1271: nvl(per_mea_shd.g_old_rec.mea_information_category, hr_api.g_varchar2) <>
1272: nvl(p_rec.mea_information_category, hr_api.g_varchar2) or

Line 1407: hr_utility.set_location(' Leaving:'||l_proc,20);

1403: ,p_attribute30_value => p_rec.mea_information30
1404: );
1405: end if;
1406: --
1407: hr_utility.set_location(' Leaving:'||l_proc,20);
1408: end chk_ddf;
1409: --
1410: -- ----------------------------------------------------------------------------
1411: -- |------------------------------< chk_df >----------------------------------|

Line 1445: hr_utility.set_location('Entering:'||l_proc,10);

1441: --
1442: l_proc varchar2(72) := g_package || 'chk_df';
1443: --
1444: BEGIN
1445: hr_utility.set_location('Entering:'||l_proc,10);
1446: --
1447: if ((p_rec.medical_assessment_id is not null) and (
1448: nvl(per_mea_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
1449: nvl(p_rec.attribute_category, hr_api.g_varchar2) or

Line 1584: hr_utility.set_location(' Leaving:'||l_proc,20);

1580: ,p_attribute30_value => p_rec.attribute30
1581: );
1582: end if;
1583: --
1584: hr_utility.set_location(' Leaving:'||l_proc,20);
1585: --
1586: end chk_df;
1587: --
1588: -- ----------------------------------------------------------------------------

Line 1680: hr_utility.set_location('Entering:'||l_proc, 10);

1676: l_business_group_id per_all_people_f.business_group_id%TYPE;
1677: --
1678: BEGIN
1679: --
1680: hr_utility.set_location('Entering:'||l_proc, 10);
1681: --
1682: -- Call all supporting business operations
1683: --
1684: per_per_bus.set_security_group_id(p_person_id => to_number(p_rec.person_id));

Line 1686: hr_utility.set_location(l_proc, 20);

1682: -- Call all supporting business operations
1683: --
1684: per_per_bus.set_security_group_id(p_person_id => to_number(p_rec.person_id));
1685: --
1686: hr_utility.set_location(l_proc, 20);
1687: --
1688: -- Validate person id
1689: --
1690: per_mea_bus.chk_person_id

Line 1695: hr_utility.set_location(l_proc, 30);

1691: (p_medical_assessment_id => p_rec.medical_assessment_id
1692: ,p_person_id => p_rec.person_id
1693: ,p_effective_date => p_effective_date);
1694: --
1695: hr_utility.set_location(l_proc, 30);
1696: --
1697: hr_utility.set_location(l_proc, 40);
1698: --
1699: -- Get Business Group ID for validating organization_id

Line 1697: hr_utility.set_location(l_proc, 40);

1693: ,p_effective_date => p_effective_date);
1694: --
1695: hr_utility.set_location(l_proc, 30);
1696: --
1697: hr_utility.set_location(l_proc, 40);
1698: --
1699: -- Get Business Group ID for validating organization_id
1700: --
1701: OPEN csr_business_group;

Line 1704: hr_utility.set_location(l_proc, 50);

1700: --
1701: OPEN csr_business_group;
1702: FETCH csr_business_group INTO l_business_group_id;
1703: --
1704: hr_utility.set_location(l_proc, 50);
1705: --
1706: IF csr_business_group%NOTFOUND THEN
1707: --
1708: CLOSE csr_business_group;

Line 1710: hr_utility.set_message(800, 'HR_52919_DIS_INV_ORG');

1706: IF csr_business_group%NOTFOUND THEN
1707: --
1708: CLOSE csr_business_group;
1709: --
1710: hr_utility.set_message(800, 'HR_52919_DIS_INV_ORG');
1711: hr_utility.raise_error;
1712: --
1713: END IF;
1714: --

Line 1711: hr_utility.raise_error;

1707: --
1708: CLOSE csr_business_group;
1709: --
1710: hr_utility.set_message(800, 'HR_52919_DIS_INV_ORG');
1711: hr_utility.raise_error;
1712: --
1713: END IF;
1714: --
1715: CLOSE csr_business_group;

Line 1717: hr_utility.set_location(l_proc, 60);

1713: END IF;
1714: --
1715: CLOSE csr_business_group;
1716: --
1717: hr_utility.set_location(l_proc, 60);
1718: --
1719: -- Validate Organization Id (Occupational Health Service Provider)
1720: --
1721: per_mea_bus.chk_organization_id

Line 1727: hr_utility.set_location(l_proc, 70);

1723: ,p_organization_id => p_rec.organization_id
1724: ,p_business_group_id => l_business_group_id
1725: ,p_effective_date => p_effective_date);
1726: --
1727: hr_utility.set_location(l_proc, 70);
1728: --
1729: -- Check Consultation Date
1730: --
1731: per_mea_bus.chk_consultation_date

Line 1735: hr_utility.set_location(l_proc, 80);

1731: per_mea_bus.chk_consultation_date
1732: (p_consultation_date => p_rec.consultation_date
1733: ,p_next_consultation_date => p_rec.consultation_date);
1734: --
1735: hr_utility.set_location(l_proc, 80);
1736: --
1737: -- Check Consultation Type
1738: --
1739: per_mea_bus.chk_consultation_type

Line 1745: hr_utility.set_location(l_proc, 90);

1741: ,p_consultation_type => p_rec.consultation_type
1742: ,p_consultation_result => p_rec.consultation_result
1743: ,p_effective_date => p_effective_date);
1744: --
1745: hr_utility.set_location(l_proc, 90);
1746: --
1747: -- Check Consultation Result
1748: --
1749: per_mea_bus.chk_consultation_result

Line 1755: hr_utility.set_location(l_proc, 100);

1751: ,p_consultation_type => p_rec.consultation_type
1752: ,p_consultation_result => p_rec.consultation_result
1753: ,p_effective_date => p_effective_date);
1754: --
1755: hr_utility.set_location(l_proc, 100);
1756: --
1757: -- Check Incident ID
1758: --
1759: per_mea_bus.chk_incident_id

Line 1763: hr_utility.set_location(l_proc, 105);

1759: per_mea_bus.chk_incident_id
1760: (p_incident_id => p_rec.incident_id
1761: ,p_medical_assessment_id => p_rec.medical_assessment_id);
1762: --
1763: hr_utility.set_location(l_proc, 105);
1764: --
1765: -- Check the incident date is not after the consultation date
1766: --
1767: per_mea_bus.chk_inc_consul_date

Line 1771: hr_utility.set_location(l_proc, 110);

1767: per_mea_bus.chk_inc_consul_date
1768: (p_consultation_date => p_rec.consultation_date
1769: ,p_incident_id => p_rec.incident_id);
1770: --
1771: hr_utility.set_location(l_proc, 110);
1772: --
1773: -- Check Disability ID
1774: --
1775: per_mea_bus.chk_disability_id

Line 1782: hr_utility.set_location(l_proc, 120);

1778: ,p_person_id => p_rec.person_id
1779: ,p_object_version_number => p_rec.object_version_number
1780: ,p_effective_date => p_effective_date);
1781: --
1782: hr_utility.set_location(l_proc, 120);
1783: --
1784: -- Check Next Consultation Date
1785: --
1786: per_mea_bus.chk_next_consultation_date

Line 1790: hr_utility.set_location(l_proc, 130);

1786: per_mea_bus.chk_next_consultation_date
1787: (p_next_consultation_date => p_rec.next_consultation_date
1788: ,p_consultation_date => p_rec.consultation_date );
1789: --
1790: hr_utility.set_location(l_proc, 130);
1791: --
1792: -- Check that no other medical records exists with
1793: -- the same disability ID and Incident ID
1794: --

Line 1801: hr_utility.set_location(l_proc, 140);

1797: ,p_disability_id => p_rec.disability_id
1798: ,p_incident_id => p_rec.incident_id
1799: ,p_person_id => p_rec.person_id);
1800: --
1801: hr_utility.set_location(l_proc, 140);
1802: --
1803: -- Check that the incident id belongs to the disability
1804: -- record, if the disability id is not null
1805: --

Line 1816: hr_utility.set_location(l_proc, 150);

1812: -- Check developer flex field
1813: --
1814: per_mea_bus.chk_ddf(p_rec);
1815: --
1816: hr_utility.set_location(l_proc, 150);
1817: --
1818: -- Check flex field
1819: --
1820: per_mea_bus.chk_df(p_rec);

Line 1822: hr_utility.set_location(' Leaving:'||l_proc, 160);

1818: -- Check flex field
1819: --
1820: per_mea_bus.chk_df(p_rec);
1821: --
1822: hr_utility.set_location(' Leaving:'||l_proc, 160);
1823: --
1824: END insert_validate;
1825: --
1826: -- ----------------------------------------------------------------------------

Line 1850: hr_utility.set_location('Entering:'||l_proc, 10);

1846: l_business_group_id per_all_people_f.business_group_id%TYPE;
1847: --
1848: BEGIN
1849: --
1850: hr_utility.set_location('Entering:'||l_proc, 10);
1851: --
1852: -- Call parent person table's set_security_group_id function
1853: --
1854: per_per_bus.set_security_group_id(p_person_id => to_number(p_rec.person_id));

Line 1862: hr_utility.set_location(l_proc, 40);

1858: chk_non_updateable_args
1859: (p_effective_date => p_effective_date
1860: ,p_rec => p_rec);
1861: --
1862: hr_utility.set_location(l_proc, 40);
1863: --
1864: -- Get Business Group ID for validating organization_id
1865: --
1866: OPEN csr_business_group;

Line 1869: hr_utility.set_location(l_proc, 50);

1865: --
1866: OPEN csr_business_group;
1867: FETCH csr_business_group INTO l_business_group_id;
1868: --
1869: hr_utility.set_location(l_proc, 50);
1870: --
1871: IF csr_business_group%NOTFOUND THEN
1872: --
1873: CLOSE csr_business_group;

Line 1875: hr_utility.set_message(800, 'HR_52919_DIS_INV_ORG');

1871: IF csr_business_group%NOTFOUND THEN
1872: --
1873: CLOSE csr_business_group;
1874: --
1875: hr_utility.set_message(800, 'HR_52919_DIS_INV_ORG');
1876: hr_utility.raise_error;
1877: --
1878: END IF;
1879: --

Line 1876: hr_utility.raise_error;

1872: --
1873: CLOSE csr_business_group;
1874: --
1875: hr_utility.set_message(800, 'HR_52919_DIS_INV_ORG');
1876: hr_utility.raise_error;
1877: --
1878: END IF;
1879: --
1880: CLOSE csr_business_group;

Line 1882: hr_utility.set_location(l_proc, 60);

1878: END IF;
1879: --
1880: CLOSE csr_business_group;
1881: --
1882: hr_utility.set_location(l_proc, 60);
1883: --
1884: -- Validate Organization Id (Occupational Health Service Provider)
1885: --
1886: per_mea_bus.chk_organization_id

Line 1892: hr_utility.set_location(l_proc, 70);

1888: ,p_organization_id => p_rec.organization_id
1889: ,p_business_group_id => l_business_group_id
1890: ,p_effective_date => p_effective_date);
1891: --
1892: hr_utility.set_location(l_proc, 70);
1893: --
1894: -- Check Consultation Date
1895: --
1896: per_mea_bus.chk_consultation_date

Line 1900: hr_utility.set_location(l_proc, 80);

1896: per_mea_bus.chk_consultation_date
1897: (p_consultation_date => p_rec.consultation_date
1898: ,p_next_consultation_date => p_rec.consultation_date);
1899: --
1900: hr_utility.set_location(l_proc, 80);
1901: --
1902: -- Check Consultation Type
1903: --
1904: per_mea_bus.chk_consultation_type

Line 1910: hr_utility.set_location(l_proc, 90);

1906: ,p_consultation_type => p_rec.consultation_type
1907: ,p_consultation_result => p_rec.consultation_result
1908: ,p_effective_date => p_effective_date);
1909: --
1910: hr_utility.set_location(l_proc, 90);
1911: --
1912: -- Check Consultation Result
1913: --
1914: per_mea_bus.chk_consultation_result

Line 1920: hr_utility.set_location(l_proc, 100);

1916: ,p_consultation_type => p_rec.consultation_type
1917: ,p_consultation_result => p_rec.consultation_result
1918: ,p_effective_date => p_effective_date);
1919: --
1920: hr_utility.set_location(l_proc, 100);
1921: --
1922: -- Check Incident ID
1923: --
1924: per_mea_bus.chk_incident_id

Line 1928: hr_utility.set_location(l_proc, 105);

1924: per_mea_bus.chk_incident_id
1925: (p_incident_id => p_rec.incident_id
1926: ,p_medical_assessment_id => p_rec.medical_assessment_id);
1927: --
1928: hr_utility.set_location(l_proc, 105);
1929: --
1930: -- Check the incident date is not after the consultation date
1931: --
1932: per_mea_bus.chk_inc_consul_date

Line 1936: hr_utility.set_location(l_proc, 110);

1932: per_mea_bus.chk_inc_consul_date
1933: (p_consultation_date => p_rec.consultation_date
1934: ,p_incident_id => p_rec.incident_id);
1935: --
1936: hr_utility.set_location(l_proc, 110);
1937: --
1938: -- Check Disability ID
1939: --
1940: per_mea_bus.chk_disability_id

Line 1947: hr_utility.set_location(l_proc, 120);

1943: ,p_person_id => p_rec.person_id
1944: ,p_object_version_number => p_rec.object_version_number
1945: ,p_effective_date => p_effective_date);
1946: --
1947: hr_utility.set_location(l_proc, 120);
1948: --
1949: -- Check Next Consultation Date
1950: --
1951: per_mea_bus.chk_next_consultation_date

Line 1955: hr_utility.set_location(l_proc, 130);

1951: per_mea_bus.chk_next_consultation_date
1952: (p_next_consultation_date => p_rec.next_consultation_date
1953: ,p_consultation_date => p_rec.consultation_date );
1954: --
1955: hr_utility.set_location(l_proc, 130);
1956: --
1957: -- Check that no other medical records exists with
1958: -- the same disability ID and Incident ID
1959: --

Line 1966: hr_utility.set_location(l_proc, 140);

1962: ,p_disability_id => p_rec.disability_id
1963: ,p_incident_id => p_rec.incident_id
1964: ,p_person_id => p_rec.person_id);
1965: --
1966: hr_utility.set_location(l_proc, 140);
1967: --
1968: -- Check that the incident id belongs to the disability
1969: -- record, if the disability id is not null
1970: --

Line 1977: hr_utility.set_location(l_proc, 150);

1973: ,p_incident_id => p_rec.incident_id
1974: ,p_person_id => p_rec.person_id
1975: ,p_effective_date => p_effective_date);
1976: --
1977: hr_utility.set_location(l_proc, 150);
1978: --
1979: per_mea_bus.chk_ddf(p_rec);
1980: --
1981: hr_utility.set_location(l_proc, 160);

Line 1981: hr_utility.set_location(l_proc, 160);

1977: hr_utility.set_location(l_proc, 150);
1978: --
1979: per_mea_bus.chk_ddf(p_rec);
1980: --
1981: hr_utility.set_location(l_proc, 160);
1982: --
1983: per_mea_bus.chk_df(p_rec);
1984: --
1985: hr_utility.set_location(' Leaving:'||l_proc, 130);

Line 1985: hr_utility.set_location(' Leaving:'||l_proc, 130);

1981: hr_utility.set_location(l_proc, 160);
1982: --
1983: per_mea_bus.chk_df(p_rec);
1984: --
1985: hr_utility.set_location(' Leaving:'||l_proc, 130);
1986: --
1987: END update_validate;
1988: --
1989: -- ----------------------------------------------------------------------------

Line 2000: hr_utility.set_location('Entering:'||l_proc, 5);

1996: l_proc VARCHAR2(72) := g_package||'delete_validate';
1997: --
1998: BEGIN
1999: --
2000: hr_utility.set_location('Entering:'||l_proc, 5);
2001: --
2002: -- Call all supporting business operations
2003: --
2004: hr_utility.set_location(' Leaving:'||l_proc, 10);

Line 2004: hr_utility.set_location(' Leaving:'||l_proc, 10);

2000: hr_utility.set_location('Entering:'||l_proc, 5);
2001: --
2002: -- Call all supporting business operations
2003: --
2004: hr_utility.set_location(' Leaving:'||l_proc, 10);
2005: --
2006: END delete_validate;
2007: --
2008: END per_mea_bus;