[Home] [Help]
1565: --
1566: -- Description:
1567: -- This procedure is used in update and delete validation to check the
1568: -- run type value.
1569: -- a) If row exists on pay_legislative_field_info with
1570: -- field_name = 'TAX_PROCESSING_TYPE'
1571: -- target_location = 'PAYWSRQP'
1572: -- rule_type = 'RUN_TYPE_FLAG'
1573: -- rule_mode = 'Y'
1584: )
1585: --
1586: IS
1587: v_proc varchar2(72) := g_package||'chk_run_type';
1588: l_rule_mode pay_legislative_field_info.rule_mode%type;
1589: l_rt_exists pay_run_types_f.run_type_id%type;
1590: --
1591: cursor get_leg_rule is
1592: select lfi.rule_mode
1589: l_rt_exists pay_run_types_f.run_type_id%type;
1590: --
1591: cursor get_leg_rule is
1592: select lfi.rule_mode
1593: from pay_legislative_field_info lfi
1594: where lfi.field_name = 'TAX_PROCESSING_TYPE'
1595: and lfi.target_location = 'PAYWSRQP'
1596: and lfi.rule_type = 'RUN_TYPE_FLAG'
1597: and lfi.validation_type = 'ITEM_PROPERTY'
1606: and rt.business_group_id = p_business_group_id)
1607: or (rt.legislation_code is null and rt.business_group_id is null))
1608: and not exists
1609: ( select null
1610: from pay_legislative_field_info lfi
1611: where lfi.validation_type = 'EXCLUDE'
1612: and lfi.rule_type = 'DATA_VALIDATION'
1613: and lfi.field_name = 'TAX_PROCESSING_TYPE'
1614: and lfi.target_location = 'PAYWSRQP'
1620: begin
1621: hr_utility.set_location('Entering:'|| v_proc, 5);
1622: --
1623: -- Cannot have a run type id as not null if the row on
1624: -- pay_legislative_field_info does not exist.
1625: --
1626: if p_run_type_id is not null then
1627: open get_leg_rule;
1628: fetch get_leg_rule into l_rule_mode;
4196: v_displ_msg varchar2(30);
4197: --
4198: cursor get_leg_rule is
4199: select rule_mode
4200: from pay_legislative_field_info
4201: where legislation_code = v_leg_code
4202: and target_location = 'PAYWSRQP'
4203: and validation_type = 'DISPLAY'
4204: and rule_type = 'DISP_NTG_MSG';