[Home] [Help]
1: package body hr_pyoint as
2: /* $Header: pyasgint.pkb 120.0 2005/05/29 03:01:14 appldev noship $ */
3: /*
4: /*
5: Copyright (c) Oracle Corporation 1991,1992,1993. All rights reserved
3: /*
4: /*
5: Copyright (c) Oracle Corporation 1991,1992,1993. All rights reserved
6: --
7: Name : hr_pyoint
8: --
9: Description : Package contains procedure that does interlock checking.
10: --
11: Test List
143: if(itpflag = 'Y') then
144: -- check interlock status for the independent
145: -- time periods case (e.g. the US).
146: begin
147: hr_utility.set_location('hr_pyoint.validate',1);
148: open c_indep(pactid,assignid);
149: fetch c_indep into failed, ed1, ed2;
150:
151: -- Get the assignment_number (note: per_assignments_f is
149: fetch c_indep into failed, ed1, ed2;
150:
151: -- Get the assignment_number (note: per_assignments_f is
152: -- datetracked).
153: hr_utility.set_location('hr_pyoint.validate',2);
154: if(not c_indep%NOTFOUND) then
155: select ass.assignment_number
156: into assnum
157: from pay_payroll_actions ppa,
169: elsif(itpflag = 'G') then
170: -- check interlock status for the dependent
171: -- time periods case (e.g. the UK).
172: begin
173: hr_utility.set_location('hr_pyoint.validate',3);
174: open c_grpdep(pactid,assignid);
175: fetch c_grpdep into failed, ed1, ed2, assnum;
176: close c_grpdep;
177: end;
178: else
179: -- check interlock status for the dependent
180: -- time periods case (e.g. the UK).
181: begin
182: hr_utility.set_location('hr_pyoint.validate',4);
183: open c_dep(pactid,assignid);
184: fetch c_dep into failed, ed1, ed2, assnum;
185: close c_dep;
186: end;
194: else
195: intstat := SUCC;
196: end if;
197: end validate;
198: end hr_pyoint;