[Home] [Help]
1: package body PAY_MONETARY_UNITS_PKG as
2: /* $Header: pymon01t.pkb 115.3 2003/08/05 07:01:07 scchakra ship $ */
3: --
4: -- define globals for validating translation.
5: --
16: where territory_code = p_terr_code;
17: --
18: begin
19: --
20: hr_utility.set_location('pay_monetary_units_pkg.pop_flds',1);
21: --
22: open c2;
23: --
24: fetch c2 into p_country;
59: or (p_rowid is not null and chartorowid(p_rowid) <> pmu.rowid));
60: --
61: begin
62: --
63: hr_utility.set_location('pay_monetary_units_pkg.chk_unq_row',1);
64: --
65: if p_unit_name is not null then
66: open c3('MONETARY_UNIT_NAME');
67: --
100: from sys.dual;
101: --
102: begin
103: --
104: hr_utility.set_location('pay_monetary_units_pkg.get_id',1);
105: --
106: open c4;
107: --
108: fetch c4 into p_munit_id;
121: where monetary_unit_id = p_munit_id;
122: --
123: begin
124: --
125: hr_utility.set_location('pay_monetary_units_pkg.stb_del_valid',1);
126: --
127: open c5;
128: --
129: fetch c5 into l_exists;
647: or p_business_group_id is null)
648: and (pmu.legislation_code = p_legislation_code
649: or p_legislation_code is null);
650: --
651: l_proc_name VARCHAR2(80) := 'PAY_MONETARY_UNITS_PKG.VALIDATE_TRANSLATION';
652: l_bus_grp_id NUMBER := nvl(p_business_group_id, g_business_group_id);
653: l_leg_code VARCHAR2(150) := nvl(p_legislation_code, g_legislation_code);
654: l_exists number(1);
655: --
673: --
674: hr_utility.set_location(l_proc_name, 10);
675: end VALIDATE_TRANSLATION;
676: --
677: end PAY_MONETARY_UNITS_PKG;