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: -- ----------------------------------------------------------------------------
189: l_proc varchar2(30) := 'retro_asg_tab_insert';
190: l_creation_status varchar2(15);
191: Begin
192: --
193: hr_utility.set_location(l_proc,10);
194: select pay_retro_assignments_s.nextval
195: into p_retro_assignment_id
196: from sys.dual;
197: --
213: , l_creation_status
214: , null
215: );
216: --
217: hr_utility.set_location(l_proc,900);
218: End retro_asg_tab_insert;
219:
220: --
221: -- ----------------------------------------------------------------------------
356:
357: l_proc varchar2(80) := g_package||'.maintain_retro_asg';
358:
359: BEGIN
360: hr_utility.set_location(l_proc,10);
361:
362: for exist_retro_asg in c_retro_asg(p_asg_id) loop
363: --just one row, but fetch neatly
364: --
364: --
365: l_ret_asg_id := exist_retro_asg.ret_asg_id;
366:
367: -- Make sure status is back to unApproved
368: hr_utility.trace('+ RetroAsg exists so update, retro-asg = '||l_ret_asg_id);
369: update PAY_RETRO_ASSIGNMENTS
370: set APPROVAL_STATUS = 'P'
371: where ASSIGNMENT_ID = p_asg_id;
372:
390:
391: end if;
392:
393: p_retro_asg_id := l_ret_asg_id;
394: hr_utility.set_location(l_proc,900);
395:
396: end maintain_retro_asg;
397:
398: --
462: ' AND ' || 'to_date('''||
463: to_char(l_eff_date,'DD-MON-RR')
464: ||''',''DD-MON-RR'') '
465: || ' BETWEEN ' || l_sd_name || ' AND ' || l_ed_name ;
466: hr_utility.trace('Col getting Statement ' || l_statement);
467:
468: wf_engine.setItemAttrText
469: (itemtype => itemtype,
470: itemkey => itemkey,
478: open csr_usr_name(l_usr_id);
479: fetch csr_usr_name into l_user;
480: close csr_usr_name;
481: end if;
482: hr_utility.trace('User ID, Name: '||l_usr_id||', '||l_user);
483:
484: wf_engine.setItemAttrText
485: (itemtype => itemtype,
486: itemkey => itemkey,
545: AND end_date is null;
546:
547: begin
548:
549: hr_utility.set_location(g_package||l_proc,10);
550: open csr_retro_scheduled;
551: fetch csr_retro_scheduled into r_itemkey;
552: close csr_retro_scheduled;
553:
556: else
557: resultout := 'COMPLETE:Y';
558: end if;
559:
560: hr_utility.set_location(g_package||l_proc,900);
561: return;
562: end is_retropay_scheduled;
563:
564:
729: ', p_element_type_id => :p_et_id'||
730: ', p_retro_component_id => :l_rc_id'||
731: '); end;' ;
732:
733: hr_utility.trace(l_sql);
734: execute immediate (l_sql)
735: using in p_element_entry_id, in p_element_type_id, in out l_retro_comp_id;
736:
737: g_ee_id := p_element_type_id;
757: g_rbus_grp := l_bus_grp;
758: g_retro_comp_id := l_retro_comp_id;
759: end if;
760: end if;
761: -- hr_utility.trace(' Returned component_id is '||l_retro_comp_id);
762: return l_retro_comp_id;
763: END get_retro_component_id;
764:
765: