[Home] [Help]
4613: SELECT 1 INTO l_count_rows
4614: FROM dual
4615: WHERE exists
4616: (select 1
4617: from ap_expense_report_params_all
4618: where company_policy_id = p_policy_id and nvl(end_date,p_end_date+1) > p_end_date);
4619:
4620: END IF;
4621:
4662: BEGIN
4663: l_are_enddates_capped := are_exp_type_enddates_capped(p_policy_id, p_end_date);
4664:
4665: IF (l_are_enddates_capped = 'N') THEN
4666: UPDATE ap_expense_report_params_all SET end_date = p_end_date
4667: WHERE company_policy_id = p_policy_id and nvl(end_date,p_end_date+1) > p_end_date;
4668: commit;
4669: END IF;
4670:
6208: INTO l_location_id
6209: FROM (
6210: -- This query verifies that a given location is active within a policy
6211: select location_id
6212: from AP_POL_SCHEDULE_OPTIONS opts, ap_expense_report_params_all p
6213: where p.parameter_id = p_expense_type_id
6214: AND policy_id = p.company_policy_id
6215: AND option_type = 'LOCATION'
6216: AND status = 'ACTIVE'
6217: AND (opts.end_date is null OR opts.end_date >= p_expense_date)
6218: AND LOCATION_ID = p_location_id
6219: UNION ALL
6220: select opts.location_id
6221: from AP_POL_SCHEDULE_OPTIONS opts, AP_POL_LOCATIONS_B loc1, AP_POL_LOCATIONS_B loc2, ap_expense_report_params_all p
6222: where p.parameter_id = p_expense_type_id
6223: AND policy_id = p.company_policy_id
6224: AND opts.option_type = 'LOCATION'
6225: AND opts.status = 'ACTIVE'
6231: AND loc2.location_id = p_location_id
6232: UNION ALL
6233: -- Will find the all other location for a given policy
6234: select loc.location_id
6235: from AP_POL_SCHEDULE_OPTIONS opts, AP_POL_LOCATIONS_B loc, ap_expense_report_params_all p
6236: where p.parameter_id = p_expense_type_id
6237: AND opts.policy_id = p.company_policy_id
6238: AND opts.option_type = 'LOCATION'
6239: AND opts.status = 'ACTIVE'
6289:
6290: l_hr_assignment := Gethrassignment(p_person_id, p_expense_date);
6291:
6292: select nvl(h.location_flag, 'N') into l_location_enabled
6293: from AP_POL_HEADERS h, ap_expense_report_params_all p
6294: where p.parameter_Id = p_expense_type_id
6295: and h.policy_Id = p.company_policy_id;
6296:
6297: If(l_location_enabled = 'Y' And p_location_id Is Null) Then
6301: End If;
6302:
6303: select l.POLICY_LINE_ID
6304: INTO l_policy_line_id
6305: from AP_POL_HEADERS h, AP_POL_LINES l, AP_POL_SCHEDULE_PERIODS sp, AP_SYSTEM_PARAMETERS sys, AP_POL_EXRATE_OPTIONS rate_opts, ap_expense_report_params_all p
6306: where p.parameter_id = p_expense_type_id
6307: AND h.policy_id = p.company_policy_id
6308: AND h.category_code <> 'MILEAGE'
6309: AND h.category_code <> 'PER_DIEM'
7483:
7484: IF l_count > 0 THEN
7485: BEGIN
7486: SELECT duplicates_allowed INTO l_exp_duplicates_allowed
7487: FROM ap_expense_report_params_all WHERE parameter_id = p_web_parameter_id;
7488: EXCEPTION
7489: WHEN OTHERS THEN
7490: l_exp_duplicates_allowed := -1;
7491: END;