1: PACKAGE BODY GHR_LACS_REMARKS AS
2: /* $Header: ghlacrem.pkb 120.15.12020000.2 2012/07/06 09:58:57 vmididho ship $ */
3: g_requests_rec ghr_pa_requests%ROWTYPE;
4: g_position_id ghr_pa_requests.from_position_id%TYPE;
5: g_pay_plan ghr_pa_requests.from_step_or_rate%TYPE;
6: g_step_or_rate ghr_pa_requests.from_pay_plan%TYPE;
7: g_grade_or_level ghr_pa_requests.from_grade_or_level%TYPE;
1: PACKAGE BODY GHR_LACS_REMARKS AS
2: /* $Header: ghlacrem.pkb 120.15.12020000.2 2012/07/06 09:58:57 vmididho ship $ */
3: g_requests_rec ghr_pa_requests%ROWTYPE;
4: g_position_id ghr_pa_requests.from_position_id%TYPE;
5: g_pay_plan ghr_pa_requests.from_step_or_rate%TYPE;
6: g_step_or_rate ghr_pa_requests.from_pay_plan%TYPE;
7: g_grade_or_level ghr_pa_requests.from_grade_or_level%TYPE;
8: g_loc_percentage ghr_locality_pay_areas_f.adjustment_percentage%TYPE;
1: PACKAGE BODY GHR_LACS_REMARKS AS
2: /* $Header: ghlacrem.pkb 120.15.12020000.2 2012/07/06 09:58:57 vmididho ship $ */
3: g_requests_rec ghr_pa_requests%ROWTYPE;
4: g_position_id ghr_pa_requests.from_position_id%TYPE;
5: g_pay_plan ghr_pa_requests.from_step_or_rate%TYPE;
6: g_step_or_rate ghr_pa_requests.from_pay_plan%TYPE;
7: g_grade_or_level ghr_pa_requests.from_grade_or_level%TYPE;
8: g_loc_percentage ghr_locality_pay_areas_f.adjustment_percentage%TYPE;
9: -- Added for MSL expanded func
2: /* $Header: ghlacrem.pkb 120.15.12020000.2 2012/07/06 09:58:57 vmididho ship $ */
3: g_requests_rec ghr_pa_requests%ROWTYPE;
4: g_position_id ghr_pa_requests.from_position_id%TYPE;
5: g_pay_plan ghr_pa_requests.from_step_or_rate%TYPE;
6: g_step_or_rate ghr_pa_requests.from_pay_plan%TYPE;
7: g_grade_or_level ghr_pa_requests.from_grade_or_level%TYPE;
8: g_loc_percentage ghr_locality_pay_areas_f.adjustment_percentage%TYPE;
9: -- Added for MSL expanded func
10: g_pay_table_id VARCHAR2(4);
3: g_requests_rec ghr_pa_requests%ROWTYPE;
4: g_position_id ghr_pa_requests.from_position_id%TYPE;
5: g_pay_plan ghr_pa_requests.from_step_or_rate%TYPE;
6: g_step_or_rate ghr_pa_requests.from_pay_plan%TYPE;
7: g_grade_or_level ghr_pa_requests.from_grade_or_level%TYPE;
8: g_loc_percentage ghr_locality_pay_areas_f.adjustment_percentage%TYPE;
9: -- Added for MSL expanded func
10: g_pay_table_id VARCHAR2(4);
11: g_new_prd VARCHAR2(10);
16: l_package VARCHAR2(30) := 'GHR_LACS_REMARKS';
17: l_location VARCHAR2(200);
18:
19: PROCEDURE Fetch_Data(
20: p_pa_request_id ghr_pa_requests.pa_request_id%TYPE)
21: IS
22: l_grade_id per_grades.grade_id%TYPE;
23: l_assignment_id per_assignments_f.assignment_id%TYPE;
24: l_retained_grade_rec ghr_pay_calc.retained_grade_rec_type;
34: -- Fetch PA_REQUESTS Table
35: l_location := 'Apply_894_Rules:Fetch_Data:Fetching PA_REQUESTS';
36: SELECT *
37: INTO g_requests_rec
38: FROM ghr_pa_requests
39: WHERE pa_request_id = p_pa_request_id;
40: g_position_id := g_requests_rec.from_position_id;
41: BEGIN
42: l_location := 'Apply_894_Rules:Fetch_Data:' ||
114:
115: END;
116:
117: PROCEDURE Apply_894_Rules(
118: p_pa_request_id ghr_pa_requests.pa_request_id%TYPE,
119: p_new_prd ghr_pa_requests.pay_rate_determinant%TYPE,
120: p_old_prd ghr_pa_requests.pay_rate_determinant%TYPE,
121: p_out_step_or_rate GHR_PA_REQUESTS.TO_STEP_OR_RATE%TYPE,
122: p_eo_nbr VARCHAR2 := NULL,
115: END;
116:
117: PROCEDURE Apply_894_Rules(
118: p_pa_request_id ghr_pa_requests.pa_request_id%TYPE,
119: p_new_prd ghr_pa_requests.pay_rate_determinant%TYPE,
120: p_old_prd ghr_pa_requests.pay_rate_determinant%TYPE,
121: p_out_step_or_rate GHR_PA_REQUESTS.TO_STEP_OR_RATE%TYPE,
122: p_eo_nbr VARCHAR2 := NULL,
123: p_eo_date DATE := NULL,
116:
117: PROCEDURE Apply_894_Rules(
118: p_pa_request_id ghr_pa_requests.pa_request_id%TYPE,
119: p_new_prd ghr_pa_requests.pay_rate_determinant%TYPE,
120: p_old_prd ghr_pa_requests.pay_rate_determinant%TYPE,
121: p_out_step_or_rate GHR_PA_REQUESTS.TO_STEP_OR_RATE%TYPE,
122: p_eo_nbr VARCHAR2 := NULL,
123: p_eo_date DATE := NULL,
124: p_opm_nbr VARCHAR2 := NULL,
117: PROCEDURE Apply_894_Rules(
118: p_pa_request_id ghr_pa_requests.pa_request_id%TYPE,
119: p_new_prd ghr_pa_requests.pay_rate_determinant%TYPE,
120: p_old_prd ghr_pa_requests.pay_rate_determinant%TYPE,
121: p_out_step_or_rate GHR_PA_REQUESTS.TO_STEP_OR_RATE%TYPE,
122: p_eo_nbr VARCHAR2 := NULL,
123: p_eo_date DATE := NULL,
124: p_opm_nbr VARCHAR2 := NULL,
125: p_opm_date DATE := NULL,
125: p_opm_date DATE := NULL,
126: p_errbuf IN OUT NOCOPY VARCHAR2,
127: p_retcode IN OUT NOCOPY NUMBER)
128: IS
129: l_la_code1 ghr_pa_requests.first_action_la_code1%TYPE;
130: l_la_code2 ghr_pa_requests.first_action_la_code2%TYPE;
131: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
132: --Bug#4256022 Declared l_la_desc1_out variable.
133: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
126: p_errbuf IN OUT NOCOPY VARCHAR2,
127: p_retcode IN OUT NOCOPY NUMBER)
128: IS
129: l_la_code1 ghr_pa_requests.first_action_la_code1%TYPE;
130: l_la_code2 ghr_pa_requests.first_action_la_code2%TYPE;
131: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
132: --Bug#4256022 Declared l_la_desc1_out variable.
133: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
134: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
127: p_retcode IN OUT NOCOPY NUMBER)
128: IS
129: l_la_code1 ghr_pa_requests.first_action_la_code1%TYPE;
130: l_la_code2 ghr_pa_requests.first_action_la_code2%TYPE;
131: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
132: --Bug#4256022 Declared l_la_desc1_out variable.
133: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
134: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
135: --Bug#4256022 Declared l_la_desc2_out variable.
129: l_la_code1 ghr_pa_requests.first_action_la_code1%TYPE;
130: l_la_code2 ghr_pa_requests.first_action_la_code2%TYPE;
131: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
132: --Bug#4256022 Declared l_la_desc1_out variable.
133: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
134: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
135: --Bug#4256022 Declared l_la_desc2_out variable.
136: l_la_desc2_out ghr_pa_requests.first_action_la_desc1%TYPE;
137: l_insrt_value1 ghr_pa_requests.first_lac1_information1%TYPE;
130: l_la_code2 ghr_pa_requests.first_action_la_code2%TYPE;
131: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
132: --Bug#4256022 Declared l_la_desc1_out variable.
133: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
134: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
135: --Bug#4256022 Declared l_la_desc2_out variable.
136: l_la_desc2_out ghr_pa_requests.first_action_la_desc1%TYPE;
137: l_insrt_value1 ghr_pa_requests.first_lac1_information1%TYPE;
138: l_insrt_value2 ghr_pa_requests.first_lac1_information2%TYPE;
132: --Bug#4256022 Declared l_la_desc1_out variable.
133: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
134: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
135: --Bug#4256022 Declared l_la_desc2_out variable.
136: l_la_desc2_out ghr_pa_requests.first_action_la_desc1%TYPE;
137: l_insrt_value1 ghr_pa_requests.first_lac1_information1%TYPE;
138: l_insrt_value2 ghr_pa_requests.first_lac1_information2%TYPE;
139: l_retcode VARCHAR2(50) ; --For NOCOPY Changes
140: l_errbuf NUMBER ; --For NOCOPY Changes
133: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
134: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
135: --Bug#4256022 Declared l_la_desc2_out variable.
136: l_la_desc2_out ghr_pa_requests.first_action_la_desc1%TYPE;
137: l_insrt_value1 ghr_pa_requests.first_lac1_information1%TYPE;
138: l_insrt_value2 ghr_pa_requests.first_lac1_information2%TYPE;
139: l_retcode VARCHAR2(50) ; --For NOCOPY Changes
140: l_errbuf NUMBER ; --For NOCOPY Changes
141:
134: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
135: --Bug#4256022 Declared l_la_desc2_out variable.
136: l_la_desc2_out ghr_pa_requests.first_action_la_desc1%TYPE;
137: l_insrt_value1 ghr_pa_requests.first_lac1_information1%TYPE;
138: l_insrt_value2 ghr_pa_requests.first_lac1_information2%TYPE;
139: l_retcode VARCHAR2(50) ; --For NOCOPY Changes
140: l_errbuf NUMBER ; --For NOCOPY Changes
141:
142: l_adj_bp ghr_pa_requests.from_adj_basic_pay%type;
138: l_insrt_value2 ghr_pa_requests.first_lac1_information2%TYPE;
139: l_retcode VARCHAR2(50) ; --For NOCOPY Changes
140: l_errbuf NUMBER ; --For NOCOPY Changes
141:
142: l_adj_bp ghr_pa_requests.from_adj_basic_pay%type;
143: l_pay_cap_amount ghr_pa_requests.from_adj_basic_pay%type;
144: l_create_rmk BOOLEAN:=FALSE;
145: l_remark_id ghr_pa_remarks.pa_remark_id%type;
146: l_loc_area_id ghr_duty_Stations_f.locality_pay_area_id%type;
139: l_retcode VARCHAR2(50) ; --For NOCOPY Changes
140: l_errbuf NUMBER ; --For NOCOPY Changes
141:
142: l_adj_bp ghr_pa_requests.from_adj_basic_pay%type;
143: l_pay_cap_amount ghr_pa_requests.from_adj_basic_pay%type;
144: l_create_rmk BOOLEAN:=FALSE;
145: l_remark_id ghr_pa_remarks.pa_remark_id%type;
146: l_loc_area_id ghr_duty_Stations_f.locality_pay_area_id%type;
147: l_loc_perc ghr_locality_pay_areas_f.adjustment_percentage%TYPE;
145: l_remark_id ghr_pa_remarks.pa_remark_id%type;
146: l_loc_area_id ghr_duty_Stations_f.locality_pay_area_id%type;
147: l_loc_perc ghr_locality_pay_areas_f.adjustment_percentage%TYPE;
148: --Begin Bug 10387022
149: l_rpa_type ghr_pa_requests.rpa_type%type;
150: CURSOR cur_rpa_type
151: IS
152: SELECT rpa_type
153: FROM ghr_pa_requests
149: l_rpa_type ghr_pa_requests.rpa_type%type;
150: CURSOR cur_rpa_type
151: IS
152: SELECT rpa_type
153: FROM ghr_pa_requests
154: WHERE pa_request_id =p_pa_request_id;
155: -- End Bug 10387022
156:
157: CURSOR cur_loc_area_id(p_ds_id ghr_duty_Stations_f.duty_station_id%type,
154: WHERE pa_request_id =p_pa_request_id;
155: -- End Bug 10387022
156:
157: CURSOR cur_loc_area_id(p_ds_id ghr_duty_Stations_f.duty_station_id%type,
158: p_eff_date ghr_pa_requests.effective_date%type)
159: IS
160: SELECT locality_pay_area_id
161: FROM ghr_duty_stations_f
162: WHERE duty_station_id=p_ds_id
163: AND p_eff_date between effective_start_date and effective_end_date;
164:
165: CURSOR cur_loc_perc
166: (p_ds_loc_area_id ghr_duty_Stations_f.locality_pay_area_id%type,
167: p_eff_date ghr_pa_requests.effective_date%type)
168: IS
169: SELECT adjustment_percentage
170: FROM ghr_locality_pay_areas_f
171: WHERE locality_pay_area_id = p_ds_loc_area_id
171: WHERE locality_pay_area_id = p_ds_loc_area_id
172: AND p_eff_date between effective_start_date and effective_end_date;
173:
174: PROCEDURE Create_Remark(p_remark_code in ghr_remarks.code%TYPE,
175: p_out_step_or_rate GHR_PA_REQUESTS.TO_STEP_OR_RATE%TYPE)
176: IS
177: l_remark_id ghr_remarks.remark_id%TYPE;
178: l_pa_remark_id ghr_pa_remarks.pa_remark_id%TYPE;
179: l_object_version_nbr ghr_pa_remarks.object_version_number%TYPE;
414: l_insrt_value1 := 'Reg. 534.504';
415: END IF;
416:
417: IF p_retcode = 0 THEN
418: IF l_la_code1 IS NOT NULL THEN -- Update GHR_PA_REQUESTS with new LACs
419: l_location := 'Apply_894_Rules:Replacing Insertion Value';
420: SELECT description
421: INTO l_la_desc1
422: FROM fnd_common_lookups fcl
459: p_information1 => l_insrt_value2,
460: p_desc_out => l_la_desc2_out);
461: l_la_desc2 := l_la_desc2_out;
462: END IF;
463: l_location := 'Apply_894_Rules:Updating GHR_PA_REQUESTS';
464: UPDATE GHR_PA_REQUESTS
465: SET first_action_la_code1 = l_la_code1,
466: first_action_la_code2 = l_la_code2,
467: first_action_la_desc1 = l_la_desc1,
460: p_desc_out => l_la_desc2_out);
461: l_la_desc2 := l_la_desc2_out;
462: END IF;
463: l_location := 'Apply_894_Rules:Updating GHR_PA_REQUESTS';
464: UPDATE GHR_PA_REQUESTS
465: SET first_action_la_code1 = l_la_code1,
466: first_action_la_code2 = l_la_code2,
467: first_action_la_desc1 = l_la_desc1,
468: first_action_la_desc2 = DECODE(l_la_code2, NULL, NULL,
570: p_opm_nbr, p_opm_date,
571: p_retcode, p_errbuf);
572:
573: IF p_retcode = 0 THEN
574: -- Checking existence of LAC in GHR_PA_REQUESTS
575: SELECT first_action_la_code1
576: INTO l_la_code1
577: FROM GHR_PA_REQUESTS
578: WHERE pa_request_id = p_pa_request_id;
573: IF p_retcode = 0 THEN
574: -- Checking existence of LAC in GHR_PA_REQUESTS
575: SELECT first_action_la_code1
576: INTO l_la_code1
577: FROM GHR_PA_REQUESTS
578: WHERE pa_request_id = p_pa_request_id;
579: IF l_la_code1 IS NULL THEN
580: p_retcode := 2;
581: p_errbuf := 'Error in Apply_894_Rules: ' ||
622: END IF;
623:
624: BEGIN
625: -- STAGE 2
626: l_location := 'Apply_895_Rules:Updating GHR_PA_REQUESTS';
627:
628: UPDATE GHR_PA_REQUESTS
629: SET first_action_la_code1 = l_la_code1,
630: first_action_la_desc1 = l_la_desc1,
624: BEGIN
625: -- STAGE 2
626: l_location := 'Apply_895_Rules:Updating GHR_PA_REQUESTS';
627:
628: UPDATE GHR_PA_REQUESTS
629: SET first_action_la_code1 = l_la_code1,
630: first_action_la_desc1 = l_la_desc1,
631: first_lac1_information1 = NULL,
632: first_lac1_information2 = NULL,
680: p_opm_nbr, p_opm_date,
681: p_retcode, p_errbuf);
682:
683: IF p_retcode = 0 THEN
684: -- Checking existence of LAC in GHR_PA_REQUESTS
685: SELECT first_action_la_code1
686: INTO l_la_code1
687: FROM GHR_PA_REQUESTS
688: WHERE pa_request_id = p_pa_request_id;
683: IF p_retcode = 0 THEN
684: -- Checking existence of LAC in GHR_PA_REQUESTS
685: SELECT first_action_la_code1
686: INTO l_la_code1
687: FROM GHR_PA_REQUESTS
688: WHERE pa_request_id = p_pa_request_id;
689: IF l_la_code1 IS NULL THEN
690: p_retcode := 2;
691: p_errbuf := 'Error in Apply_895_Rules: ' ||
703: END;
704:
705: -- FWFA Changes Bug#4444609
706:
707: PROCEDURE apply_fwfa_rules( p_pa_request_id GHR_PA_REQUESTS.PA_REQUEST_ID%TYPE,
708: p_noa_code GHR_PA_REQUESTS.FIRST_NOA_CODE%TYPE,
709: p_pay_plan GHR_PA_REQUESTS.TO_PAY_PLAN%TYPE,
710: p_errbuf IN OUT NOCOPY VARCHAR2,
711: p_retcode IN OUT NOCOPY NUMBER
704:
705: -- FWFA Changes Bug#4444609
706:
707: PROCEDURE apply_fwfa_rules( p_pa_request_id GHR_PA_REQUESTS.PA_REQUEST_ID%TYPE,
708: p_noa_code GHR_PA_REQUESTS.FIRST_NOA_CODE%TYPE,
709: p_pay_plan GHR_PA_REQUESTS.TO_PAY_PLAN%TYPE,
710: p_errbuf IN OUT NOCOPY VARCHAR2,
711: p_retcode IN OUT NOCOPY NUMBER
712: ) is
705: -- FWFA Changes Bug#4444609
706:
707: PROCEDURE apply_fwfa_rules( p_pa_request_id GHR_PA_REQUESTS.PA_REQUEST_ID%TYPE,
708: p_noa_code GHR_PA_REQUESTS.FIRST_NOA_CODE%TYPE,
709: p_pay_plan GHR_PA_REQUESTS.TO_PAY_PLAN%TYPE,
710: p_errbuf IN OUT NOCOPY VARCHAR2,
711: p_retcode IN OUT NOCOPY NUMBER
712: ) is
713: l_la_code1 ghr_pa_requests.first_action_la_code1%TYPE;
709: p_pay_plan GHR_PA_REQUESTS.TO_PAY_PLAN%TYPE,
710: p_errbuf IN OUT NOCOPY VARCHAR2,
711: p_retcode IN OUT NOCOPY NUMBER
712: ) is
713: l_la_code1 ghr_pa_requests.first_action_la_code1%TYPE;
714: l_la_code2 ghr_pa_requests.first_action_la_code2%TYPE;
715: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
716: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
717: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
710: p_errbuf IN OUT NOCOPY VARCHAR2,
711: p_retcode IN OUT NOCOPY NUMBER
712: ) is
713: l_la_code1 ghr_pa_requests.first_action_la_code1%TYPE;
714: l_la_code2 ghr_pa_requests.first_action_la_code2%TYPE;
715: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
716: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
717: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
718: l_la_desc2_out ghr_pa_requests.first_action_la_desc2%TYPE;
711: p_retcode IN OUT NOCOPY NUMBER
712: ) is
713: l_la_code1 ghr_pa_requests.first_action_la_code1%TYPE;
714: l_la_code2 ghr_pa_requests.first_action_la_code2%TYPE;
715: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
716: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
717: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
718: l_la_desc2_out ghr_pa_requests.first_action_la_desc2%TYPE;
719: l_insrt_value ghr_pa_requests.first_lac1_information1%TYPE;
712: ) is
713: l_la_code1 ghr_pa_requests.first_action_la_code1%TYPE;
714: l_la_code2 ghr_pa_requests.first_action_la_code2%TYPE;
715: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
716: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
717: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
718: l_la_desc2_out ghr_pa_requests.first_action_la_desc2%TYPE;
719: l_insrt_value ghr_pa_requests.first_lac1_information1%TYPE;
720:
713: l_la_code1 ghr_pa_requests.first_action_la_code1%TYPE;
714: l_la_code2 ghr_pa_requests.first_action_la_code2%TYPE;
715: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
716: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
717: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
718: l_la_desc2_out ghr_pa_requests.first_action_la_desc2%TYPE;
719: l_insrt_value ghr_pa_requests.first_lac1_information1%TYPE;
720:
721: BEGIN
714: l_la_code2 ghr_pa_requests.first_action_la_code2%TYPE;
715: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
716: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
717: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
718: l_la_desc2_out ghr_pa_requests.first_action_la_desc2%TYPE;
719: l_insrt_value ghr_pa_requests.first_lac1_information1%TYPE;
720:
721: BEGIN
722: p_retcode := 0;
715: l_la_desc1 ghr_pa_requests.first_action_la_desc1%TYPE;
716: l_la_desc1_out ghr_pa_requests.first_action_la_desc1%TYPE;
717: l_la_desc2 ghr_pa_requests.first_action_la_desc2%TYPE;
718: l_la_desc2_out ghr_pa_requests.first_action_la_desc2%TYPE;
719: l_insrt_value ghr_pa_requests.first_lac1_information1%TYPE;
720:
721: BEGIN
722: p_retcode := 0;
723: p_errbuf := NULL;
734: l_la_code2 := 'ZLM';
735: END IF;
736: END IF;
737:
738: l_la_desc1 := ghr_pa_requests_pkg.get_lookup_description(800,'GHR_US_LEGAL_AUTHORITY',l_la_code1);
739: l_la_desc2 := ghr_pa_requests_pkg.get_lookup_description(800,'GHR_US_LEGAL_AUTHORITY',l_la_code2);
740:
741: IF (l_la_code1 = 'ZLM') THEN
742: l_insrt_value := 'P.L. 108-411, Sec. 301 dated 10-30-04.';
735: END IF;
736: END IF;
737:
738: l_la_desc1 := ghr_pa_requests_pkg.get_lookup_description(800,'GHR_US_LEGAL_AUTHORITY',l_la_code1);
739: l_la_desc2 := ghr_pa_requests_pkg.get_lookup_description(800,'GHR_US_LEGAL_AUTHORITY',l_la_code2);
740:
741: IF (l_la_code1 = 'ZLM') THEN
742: l_insrt_value := 'P.L. 108-411, Sec. 301 dated 10-30-04.';
743: ghr_mass_actions_pkg.replace_insertion_values
755: p_desc_out => l_la_desc2_out);
756: l_la_desc2 := l_la_desc2_out;
757: END IF;
758:
759: UPDATE GHR_PA_REQUESTS
760: SET first_action_la_code1 = l_la_code1,
761: first_action_la_code2 = l_la_code2,
762: first_action_la_desc1 = l_la_desc1,
763: first_action_la_desc2 = l_la_Desc2,