DBA Data[Home] [Help]

APPS.PER_MEA_BUS dependencies on PER_MEA_BUS

Line 1: Package Body per_mea_bus as

1: Package Body per_mea_bus as
2: /* $Header: pemearhi.pkb 115.9 2002/12/06 12:20:50 pkakar noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |

Line 8: g_package varchar2(33) := ' per_mea_bus.'; -- Global package name

4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_mea_bus.'; -- Global package name
9: --
10: -- The following two global variables are only to be
11: -- used by the return_legislation_code function.
12: --

Line 475: per_mea_bus.chk_date_combinations

471: --
472: -- Check that the next_consultation_date is valid
473: -- in relation to the consultation_date
474: --
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);

Line 565: per_mea_bus.chk_consultation_combination

561: --
562: -- Check to see that the Conultation_Result and Type combination
563: -- Type combination are valid.
564: --
565: per_mea_bus.chk_consultation_combination
566: (p_consultation_type => p_consultation_type
567: ,p_consultation_result => p_consultation_result);
568: --
569: END IF;

Line 647: per_mea_bus.chk_consultation_combination

643: --
644: -- Check to see that the Conultation_Result and Type combination
645: -- Type combination are valid.
646: --
647: per_mea_bus.chk_consultation_combination
648: (p_consultation_type => p_consultation_type
649: ,p_consultation_result => p_consultation_result);
650: --
651: END IF;

Line 1089: per_mea_bus.chk_date_combinations

1085: --
1086: -- Check that the next_consultation_date is valid
1087: -- in relation to the consultation_date
1088: --
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);

Line 1194: if ( nvl(per_mea_bus.g_medical_assessment_id, hr_api.g_number)

1190: ,p_argument => 'medical_assessment_id'
1191: ,p_argument_value => p_medical_assessment_id
1192: );
1193: --
1194: if ( nvl(per_mea_bus.g_medical_assessment_id, hr_api.g_number)
1195: = p_medical_assessment_id) then
1196: --
1197: -- The legislation code has already been found with a previous
1198: -- call to this function. Just return the value in the global

Line 1201: l_legislation_code := per_mea_bus.g_legislation_code;

1197: -- The legislation code has already been found with a previous
1198: -- call to this function. Just return the value in the global
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: --

Line 1226: per_mea_bus.g_medical_assessment_id := p_medical_assessment_id;

1222: -- Set the global variables so the values are
1223: -- available for the next call to this function.
1224: --
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;

Line 1227: per_mea_bus.g_legislation_code := l_legislation_code;

1223: -- available for the next call to this function.
1224: --
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;

Line 1690: per_mea_bus.chk_person_id

1686: hr_utility.set_location(l_proc, 20);
1687: --
1688: -- Validate person id
1689: --
1690: per_mea_bus.chk_person_id
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: --

Line 1721: per_mea_bus.chk_organization_id

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
1722: (p_medical_assessment_id => p_rec.medical_assessment_id
1723: ,p_organization_id => p_rec.organization_id
1724: ,p_business_group_id => l_business_group_id
1725: ,p_effective_date => p_effective_date);

Line 1731: per_mea_bus.chk_consultation_date

1727: hr_utility.set_location(l_proc, 70);
1728: --
1729: -- Check Consultation Date
1730: --
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);

Line 1739: per_mea_bus.chk_consultation_type

1735: hr_utility.set_location(l_proc, 80);
1736: --
1737: -- Check Consultation Type
1738: --
1739: per_mea_bus.chk_consultation_type
1740: (p_medical_assessment_id => p_rec.medical_assessment_id
1741: ,p_consultation_type => p_rec.consultation_type
1742: ,p_consultation_result => p_rec.consultation_result
1743: ,p_effective_date => p_effective_date);

Line 1749: per_mea_bus.chk_consultation_result

1745: hr_utility.set_location(l_proc, 90);
1746: --
1747: -- Check Consultation Result
1748: --
1749: per_mea_bus.chk_consultation_result
1750: (p_medical_assessment_id => p_rec.medical_assessment_id
1751: ,p_consultation_type => p_rec.consultation_type
1752: ,p_consultation_result => p_rec.consultation_result
1753: ,p_effective_date => p_effective_date);

Line 1759: per_mea_bus.chk_incident_id

1755: hr_utility.set_location(l_proc, 100);
1756: --
1757: -- Check Incident ID
1758: --
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);

Line 1767: per_mea_bus.chk_inc_consul_date

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
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);

Line 1775: per_mea_bus.chk_disability_id

1771: hr_utility.set_location(l_proc, 110);
1772: --
1773: -- Check Disability ID
1774: --
1775: per_mea_bus.chk_disability_id
1776: (p_disability_id => p_rec.disability_id
1777: ,p_medical_assessment_id => p_rec.medical_assessment_id
1778: ,p_person_id => p_rec.person_id
1779: ,p_object_version_number => p_rec.object_version_number

Line 1786: per_mea_bus.chk_next_consultation_date

1782: hr_utility.set_location(l_proc, 120);
1783: --
1784: -- Check Next Consultation Date
1785: --
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);

Line 1795: per_mea_bus.chk_valid_id_combinations

1791: --
1792: -- Check that no other medical records exists with
1793: -- the same disability ID and Incident ID
1794: --
1795: per_mea_bus.chk_valid_id_combinations
1796: (p_medical_assessment_id => p_rec.medical_assessment_id
1797: ,p_disability_id => p_rec.disability_id
1798: ,p_incident_id => p_rec.incident_id
1799: ,p_person_id => p_rec.person_id);

Line 1806: per_mea_bus.chk_inc_against_dis

1802: --
1803: -- Check that the incident id belongs to the disability
1804: -- record, if the disability id is not null
1805: --
1806: per_mea_bus.chk_inc_against_dis
1807: (p_disability_id => p_rec.disability_id
1808: ,p_incident_id => p_rec.incident_id
1809: ,p_person_id => p_rec.person_id
1810: ,p_effective_date => p_effective_date);

Line 1814: per_mea_bus.chk_ddf(p_rec);

1810: ,p_effective_date => p_effective_date);
1811: --
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

Line 1820: per_mea_bus.chk_df(p_rec);

1816: hr_utility.set_location(l_proc, 150);
1817: --
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;

Line 1886: per_mea_bus.chk_organization_id

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
1887: (p_medical_assessment_id => p_rec.medical_assessment_id
1888: ,p_organization_id => p_rec.organization_id
1889: ,p_business_group_id => l_business_group_id
1890: ,p_effective_date => p_effective_date);

Line 1896: per_mea_bus.chk_consultation_date

1892: hr_utility.set_location(l_proc, 70);
1893: --
1894: -- Check Consultation Date
1895: --
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);

Line 1904: per_mea_bus.chk_consultation_type

1900: hr_utility.set_location(l_proc, 80);
1901: --
1902: -- Check Consultation Type
1903: --
1904: per_mea_bus.chk_consultation_type
1905: (p_medical_assessment_id => p_rec.medical_assessment_id
1906: ,p_consultation_type => p_rec.consultation_type
1907: ,p_consultation_result => p_rec.consultation_result
1908: ,p_effective_date => p_effective_date);

Line 1914: per_mea_bus.chk_consultation_result

1910: hr_utility.set_location(l_proc, 90);
1911: --
1912: -- Check Consultation Result
1913: --
1914: per_mea_bus.chk_consultation_result
1915: (p_medical_assessment_id => p_rec.medical_assessment_id
1916: ,p_consultation_type => p_rec.consultation_type
1917: ,p_consultation_result => p_rec.consultation_result
1918: ,p_effective_date => p_effective_date);

Line 1924: per_mea_bus.chk_incident_id

1920: hr_utility.set_location(l_proc, 100);
1921: --
1922: -- Check Incident ID
1923: --
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);

Line 1932: per_mea_bus.chk_inc_consul_date

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
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);

Line 1940: per_mea_bus.chk_disability_id

1936: hr_utility.set_location(l_proc, 110);
1937: --
1938: -- Check Disability ID
1939: --
1940: per_mea_bus.chk_disability_id
1941: (p_disability_id => p_rec.disability_id
1942: ,p_medical_assessment_id => p_rec.medical_assessment_id
1943: ,p_person_id => p_rec.person_id
1944: ,p_object_version_number => p_rec.object_version_number

Line 1951: per_mea_bus.chk_next_consultation_date

1947: hr_utility.set_location(l_proc, 120);
1948: --
1949: -- Check Next Consultation Date
1950: --
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);

Line 1960: per_mea_bus.chk_valid_id_combinations

1956: --
1957: -- Check that no other medical records exists with
1958: -- the same disability ID and Incident ID
1959: --
1960: per_mea_bus.chk_valid_id_combinations
1961: (p_medical_assessment_id => p_rec.medical_assessment_id
1962: ,p_disability_id => p_rec.disability_id
1963: ,p_incident_id => p_rec.incident_id
1964: ,p_person_id => p_rec.person_id);

Line 1971: per_mea_bus.chk_inc_against_dis

1967: --
1968: -- Check that the incident id belongs to the disability
1969: -- record, if the disability id is not null
1970: --
1971: per_mea_bus.chk_inc_against_dis
1972: (p_disability_id => p_rec.disability_id
1973: ,p_incident_id => p_rec.incident_id
1974: ,p_person_id => p_rec.person_id
1975: ,p_effective_date => p_effective_date);

Line 1979: per_mea_bus.chk_ddf(p_rec);

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);
1982: --
1983: per_mea_bus.chk_df(p_rec);

Line 1983: per_mea_bus.chk_df(p_rec);

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);
1986: --
1987: END update_validate;

Line 2008: END per_mea_bus;

2004: hr_utility.set_location(' Leaving:'||l_proc, 10);
2005: --
2006: END delete_validate;
2007: --
2008: END per_mea_bus;