[Home] [Help]
92: l_retro_component_id NUMBER;
93: l_proc varchar2(80) := g_package||'.retro_ent_tab_insert';
94:
95: Begin
96: hr_utility.set_location(l_proc,10);
97:
98:
99: l_retro_component_id := get_retro_component_id(
100: p_element_entry_id,
99: l_retro_component_id := get_retro_component_id(
100: p_element_entry_id,
101: p_eff_date);
102:
103: hr_utility.set_location(l_proc,20);
104: --
105: INSERT INTO pay_retro_entries
106: ( retro_assignment_id
107: , element_entry_id
117: , l_retro_component_id
118: );
119: --
120:
121: hr_utility.set_location(l_proc,900);
122: End retro_ent_tab_insert;
123: */
124:
125: -- ----------------------------------------------------------------------------
134: --
135: l_proc varchar2(30) := 'get_creation_status';
136: l_creation_status varchar2(15) := 'A'; --dflt auto-included in next RetroPay run
137: begin
138: hr_utility.set_location('Entering '||l_proc, 10);
139: return l_creation_status;
140: END get_creation_status;
141:
142: -- ----------------------------------------------------------------------------
156: l_proc varchar2(30) := 'retro_asg_tab_insert';
157: l_creation_status varchar2(15);
158: Begin
159: --
160: hr_utility.set_location(l_proc,10);
161: select pay_retro_assignments_s.nextval
162: into p_retro_assignment_id
163: from sys.dual;
164: --
180: , l_creation_status
181: , null
182: );
183: --
184: hr_utility.set_location(l_proc,900);
185: End retro_asg_tab_insert;
186:
187: --
188: -- ----------------------------------------------------------------------------
323:
324: l_proc varchar2(80) := g_package||'.maintain_retro_asg';
325:
326: BEGIN
327: hr_utility.set_location(l_proc,10);
328:
329: for exist_retro_asg in c_retro_asg(p_asg_id) loop
330: --just one row, but fetch neatly
331: --
331: --
332: l_ret_asg_id := exist_retro_asg.ret_asg_id;
333:
334: -- Make sure status is back to unApproved
335: hr_utility.trace('+ RetroAsg exists so update, retro-asg = '||l_ret_asg_id);
336: update PAY_RETRO_ASSIGNMENTS
337: set APPROVAL_STATUS = 'P'
338: where ASSIGNMENT_ID = p_asg_id
339: /*Bug#8306525*/
360:
361: end if;
362:
363: p_retro_asg_id := l_ret_asg_id;
364: hr_utility.set_location(l_proc,900);
365:
366: end maintain_retro_asg;
367:
368: --
432: ' AND ' || 'to_date('''||
433: to_char(l_eff_date,'DD-MON-RR')
434: ||''',''DD-MON-RR'') '
435: || ' BETWEEN ' || l_sd_name || ' AND ' || l_ed_name ;
436: hr_utility.trace('Col getting Statement ' || l_statement);
437:
438: wf_engine.setItemAttrText
439: (itemtype => itemtype,
440: itemkey => itemkey,
448: open csr_usr_name(l_usr_id);
449: fetch csr_usr_name into l_user;
450: close csr_usr_name;
451: end if;
452: hr_utility.trace('User ID, Name: '||l_usr_id||', '||l_user);
453:
454: wf_engine.setItemAttrText
455: (itemtype => itemtype,
456: itemkey => itemkey,
515: AND end_date is null;
516:
517: begin
518:
519: hr_utility.set_location(g_package||l_proc,10);
520: open csr_retro_scheduled;
521: fetch csr_retro_scheduled into r_itemkey;
522: close csr_retro_scheduled;
523:
526: else
527: resultout := 'COMPLETE:Y';
528: end if;
529:
530: hr_utility.set_location(g_package||l_proc,900);
531: return;
532: end is_retropay_scheduled;
533:
534:
699: ', p_element_type_id => :p_et_id'||
700: ', p_retro_component_id => :l_rc_id'||
701: '); end;' ;
702:
703: hr_utility.trace(l_sql);
704: execute immediate (l_sql)
705: using in p_element_entry_id, in p_element_type_id, in out l_retro_comp_id;
706:
707: g_ee_id := p_element_type_id;
727: g_rbus_grp := l_bus_grp;
728: g_retro_comp_id := l_retro_comp_id;
729: end if;
730: end if;
731: -- hr_utility.trace(' Returned component_id is '||l_retro_comp_id);
732: return l_retro_comp_id;
733: END get_retro_component_id;
734:
735: