[Home] [Help]
12: ) is
13:
14: l_proc_name Varchar2(150) := g_proc_name ||'.upd_Rslt_Dtl';
15: BEGIN
16: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
17: ---check for null value and replaces with the original value.
18:
19:
20:
475: END IF;
476: IF p_val_tab.val_150 IS NULL THEN
477: p_val_tab.val_150 :=p_dat_tab.val_150;
478: END IF;
479: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
480:
481: END;
482: --=================================================================
483: --Ins_Rslt_Dtl
490: l_proc_name varchar2(150) := g_proc_name||'Ins_Rslt_Dtl';
491: l_dtl_rec_nc ben_ext_rslt_dtl%rowtype;
492:
493: begin -- ins_rslt_dtl
494: Hr_Utility.set_location('Entering :'||l_proc_name, 5);
495: -- nocopy changes
496: --l_dtl_rec_nc := p_dtl_rec;
497: -- Get the next sequence NUMBER to insert a record into the table
498: select ben_ext_rslt_dtl_s.nextval into p_val_tab.ext_rslt_dtl_id from dual;
839: ,p_val_tab.thrd_sort_val
840: ,p_val_tab.trans_seq_num
841: ,p_val_tab.rcrd_seq_num
842: );
843: Hr_Utility.set_location('Leaving :'||l_proc_name, 25);
844: return;
845:
846: exception
847: when Others then
844: return;
845:
846: exception
847: when Others then
848: Hr_Utility.set_location('Leaving - Error :'||sqlerrm|| l_proc_name, 25);
849: --p_dtl_rec := l_dtl_rec_nc;
850: raise;
851: end Ins_Rslt_Dtl;
852: ---============================================================================
872: l_rslt_dtl ben_ext_rslt_dtl%ROWTYPE;
873: l_count NUMBER;
874: l_proc_name Varchar2(150) := g_proc_name ||'.chk_dual_action';
875: BEGIN
876: Hr_Utility.set_location('Entering :'||l_proc_name, 5);
877: OPEN c_get_dual_action (p_request_id
878: ,p_rslt_id
879: );
880: FETCH c_get_dual_action INTO l_count;
878: ,p_rslt_id
879: );
880: FETCH c_get_dual_action INTO l_count;
881: CLOSE c_get_dual_action;
882: Hr_Utility.set_location('l_count: '||l_count, 5);
883:
884: IF l_count > 0 THEN
885: UPDATE ben_ext_rslt_dtl berd
886: SET berd.val_30 = NULL
889: AND berd.val_29 ='352'
890: AND berd.val_30 ='825'
891: AND berd.val_03 ='063' ;
892: END IF;
893: Hr_Utility.set_location('Leaving :'||l_proc_name, 5);
894:
895: END;
896:
897: ---============================================================================
1013: l_upd_flg VARCHAR2(1);
1014: l_proc_name Varchar2(150) := g_proc_name ||'.chk_same_day_act';
1015:
1016: BEGIN
1017: Hr_Utility.set_location('Entering :'||l_proc_name, 5);
1018:
1019: OPEN c_chk_dup_action (p_request_id
1020: ,p_rslt_id
1021: );
1135: l_rslt_dtl_tmp.delete;
1136: END IF;
1137:
1138:
1139: Hr_Utility.set_location('Check for award duplicate row', 5);
1140:
1141: ---Check for award duplicate row
1142: FOR i in 1..l_rslt_dtl_aw.count
1143: LOOP
1208: END IF;
1209: END LOOP;
1210: CLOSE c_chk_same_action;
1211:
1212: Hr_Utility.set_location('check for remaining data', 5);
1213: ----check for remaining data
1214: IF l_rslt_dtl_pa.count > 0 THEN
1215: FOR i in 1..l_rslt_dtl_pa.count
1216: LOOP
1339: l_rslt_dtl_tmp.delete;
1340: END IF;
1341: END IF;
1342: -------
1343: Hr_Utility.set_location('Leaving :'||l_proc_name, 5);
1344:
1345: END;
1346:
1347:
1618: l_rslt_dtl_temp ben_ext_rslt_dtl%ROWTYPE;
1619: l_proc_name Varchar2(150) := g_proc_name ||'.c_get_prev_val_add';
1620:
1621: BEGIN
1622: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
1623: ---Chances of picking a new action is there and need to be tested.
1624: --Ex: when the action comes back as an error and next day there is a cancellation
1625: --and then a same new action is created. Now the error data may pick the new action as same
1626:
1767: END IF;
1768:
1769: END LOOP;
1770: CLOSE c_chk_err_exist;
1771: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
1772:
1773: END;
1774:
1775:
1880: l_chk_unpick_ind c_chk_unpick_ind%ROWTYPE;
1881: l_proc_name Varchar2(150) := g_proc_name ||'.chk_for_err_data_pos';
1882:
1883: BEGIN
1884: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
1885: OPEN c_chk_mast_exist;
1886: FETCH c_chk_mast_exist INTO l_chk_mast_exist;
1887: CLOSE c_chk_mast_exist;
1888: IF l_chk_mast_exist.cnt > 0 THEN
1979: END LOOP;
1980: CLOSE c_chk_unpick_ind;
1981:
1982: END IF;
1983: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
1984:
1985: END;
1986: ---============================================================================
1987: --PROCEDURE populate_pa_error_tab
2177: l_position_id VARCHAR2(9);
2178: l_proc_name Varchar2(150) := g_proc_name ||'.populate_pos_error_tab';
2179:
2180: BEGIN
2181: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
2182:
2183: l_stmt := 'select ext_rslt_dtl_id
2184: , ext_rslt_id
2185: ,ext_rcd_id
2274: ,null
2275: );
2276: END LOOP;
2277: close l_cur;
2278: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
2279:
2280: END;
2281:
2282:
2454: l_count NUMBER;
2455: l_count1 NUMBER;
2456: l_proc_name Varchar2(150) := g_proc_name ||'.NFC_Error_Process';
2457: BEGIN
2458: Hr_Utility.set_location('Entering: '||l_proc_name, 5);
2459:
2460: l_temp_rcd_id :=-1;
2461: l_val:='VAL_';
2462: l_val1:='VAL_0';
2684: l_count :=l_attr_pa.next(l_count);
2685: END LOOP;
2686: END IF;
2687: END IF;
2688: Hr_Utility.set_location('Leaving: '||l_proc_name, 5);
2689:
2690: END;
2691:
2692:
2782: l_effective_date ghr_pa_requests.effective_date%type;
2783:
2784: PROCEDURE debug_prg(txt varchar2) IS
2785: BEGIN
2786: hr_utility.set_location(txt,120);
2787: END debug_prg;
2788:
2789: BEGIN
2790: -- Loop through Cancellation and Correction actions.