3871: l_def_rt_str := l_def_rt_str || ':p_entry, ';
3872: l_def_rt_str := l_def_rt_str || ':p_effdate, ';
3873: l_def_rt_str := l_def_rt_str || ':l_value); end; ';
3874: --
3875: sql_cursor := dbms_sql.open_cursor;
3876: --
3877: dbms_sql.parse(sql_cursor, l_def_rt_str, dbms_sql.v7);
3878: --
3879: --
3873: l_def_rt_str := l_def_rt_str || ':l_value); end; ';
3874: --
3875: sql_cursor := dbms_sql.open_cursor;
3876: --
3877: dbms_sql.parse(sql_cursor, l_def_rt_str, dbms_sql.v7);
3878: --
3879: --
3880: dbms_sql.bind_variable(sql_cursor, 'p_identifier', p_identifier);
3881: --
3876: --
3877: dbms_sql.parse(sql_cursor, l_def_rt_str, dbms_sql.v7);
3878: --
3879: --
3880: dbms_sql.bind_variable(sql_cursor, 'p_identifier', p_identifier);
3881: --
3882: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
3883: --
3884: dbms_sql.bind_variable(sql_cursor, 'p_effdate', p_effdate);
3878: --
3879: --
3880: dbms_sql.bind_variable(sql_cursor, 'p_identifier', p_identifier);
3881: --
3882: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
3883: --
3884: dbms_sql.bind_variable(sql_cursor, 'p_effdate', p_effdate);
3885: --
3886: dbms_sql.bind_variable(sql_cursor, 'l_value', l_value, 30);
3880: dbms_sql.bind_variable(sql_cursor, 'p_identifier', p_identifier);
3881: --
3882: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
3883: --
3884: dbms_sql.bind_variable(sql_cursor, 'p_effdate', p_effdate);
3885: --
3886: dbms_sql.bind_variable(sql_cursor, 'l_value', l_value, 30);
3887: --
3888: l_rows := dbms_sql.execute (sql_cursor);
3882: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
3883: --
3884: dbms_sql.bind_variable(sql_cursor, 'p_effdate', p_effdate);
3885: --
3886: dbms_sql.bind_variable(sql_cursor, 'l_value', l_value, 30);
3887: --
3888: l_rows := dbms_sql.execute (sql_cursor);
3889: --
3890: if (l_rows = 1) then
3884: dbms_sql.bind_variable(sql_cursor, 'p_effdate', p_effdate);
3885: --
3886: dbms_sql.bind_variable(sql_cursor, 'l_value', l_value, 30);
3887: --
3888: l_rows := dbms_sql.execute (sql_cursor);
3889: --
3890: if (l_rows = 1) then
3891: dbms_sql.variable_value(sql_cursor, 'l_value',
3892: l_value);
3887: --
3888: l_rows := dbms_sql.execute (sql_cursor);
3889: --
3890: if (l_rows = 1) then
3891: dbms_sql.variable_value(sql_cursor, 'l_value',
3892: l_value);
3893: dbms_sql.close_cursor(sql_cursor);
3894: --
3895: else
3889: --
3890: if (l_rows = 1) then
3891: dbms_sql.variable_value(sql_cursor, 'l_value',
3892: l_value);
3893: dbms_sql.close_cursor(sql_cursor);
3894: --
3895: else
3896: l_value := null;
3897: dbms_sql.close_cursor(sql_cursor);
3893: dbms_sql.close_cursor(sql_cursor);
3894: --
3895: else
3896: l_value := null;
3897: dbms_sql.close_cursor(sql_cursor);
3898: end if;
3899: --
3900: p_value := l_value;
3901: --
6370: l_def_jur_str := l_def_jur_str || ':p_assact, ';
6371: l_def_jur_str := l_def_jur_str || ':p_entry, ';
6372: l_def_jur_str := l_def_jur_str || ':l_ctx_value); end; ';
6373: --
6374: sql_cursor := dbms_sql.open_cursor;
6375: --
6376: dbms_sql.parse(sql_cursor, l_def_jur_str, dbms_sql.v7);
6377: --
6378: --
6372: l_def_jur_str := l_def_jur_str || ':l_ctx_value); end; ';
6373: --
6374: sql_cursor := dbms_sql.open_cursor;
6375: --
6376: dbms_sql.parse(sql_cursor, l_def_jur_str, dbms_sql.v7);
6377: --
6378: --
6379: dbms_sql.bind_variable(sql_cursor, 'p_assact', p_assact);
6380: --
6375: --
6376: dbms_sql.parse(sql_cursor, l_def_jur_str, dbms_sql.v7);
6377: --
6378: --
6379: dbms_sql.bind_variable(sql_cursor, 'p_assact', p_assact);
6380: --
6381: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
6382: --
6383: dbms_sql.bind_variable(sql_cursor, 'l_ctx_value', l_ctx_value, 30);
6377: --
6378: --
6379: dbms_sql.bind_variable(sql_cursor, 'p_assact', p_assact);
6380: --
6381: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
6382: --
6383: dbms_sql.bind_variable(sql_cursor, 'l_ctx_value', l_ctx_value, 30);
6384: --
6385: l_rows := dbms_sql.execute (sql_cursor);
6379: dbms_sql.bind_variable(sql_cursor, 'p_assact', p_assact);
6380: --
6381: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
6382: --
6383: dbms_sql.bind_variable(sql_cursor, 'l_ctx_value', l_ctx_value, 30);
6384: --
6385: l_rows := dbms_sql.execute (sql_cursor);
6386: --
6387: if (l_rows = 1) then
6381: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
6382: --
6383: dbms_sql.bind_variable(sql_cursor, 'l_ctx_value', l_ctx_value, 30);
6384: --
6385: l_rows := dbms_sql.execute (sql_cursor);
6386: --
6387: if (l_rows = 1) then
6388: dbms_sql.variable_value(sql_cursor, 'l_ctx_value',
6389: l_ctx_value);
6384: --
6385: l_rows := dbms_sql.execute (sql_cursor);
6386: --
6387: if (l_rows = 1) then
6388: dbms_sql.variable_value(sql_cursor, 'l_ctx_value',
6389: l_ctx_value);
6390: dbms_sql.close_cursor(sql_cursor);
6391: --
6392: -- OK we got the default, we need to set it
6386: --
6387: if (l_rows = 1) then
6388: dbms_sql.variable_value(sql_cursor, 'l_ctx_value',
6389: l_ctx_value);
6390: dbms_sql.close_cursor(sql_cursor);
6391: --
6392: -- OK we got the default, we need to set it
6393: update pay_run_result_values
6394: set result_value = l_ctx_value
6396: and input_value_id = rrvrec.input_value_id;
6397: --
6398: else
6399: l_ctx_value := null;
6400: dbms_sql.close_cursor(sql_cursor);
6401: end if;
6402: end if;
6403: --
6404: end if;
7230: --
7231: if g_debug then
7232: hr_utility.set_location (c_indent, 20);
7233: end if;
7234: sql_cursor := dbms_sql.open_cursor; -- step 1
7235: --
7236: if g_debug then
7237: hr_utility.set_location (c_indent, 25);
7238: end if;
7235: --
7236: if g_debug then
7237: hr_utility.set_location (c_indent, 25);
7238: end if;
7239: dbms_sql.parse(sql_cursor, l_feed_chk_str, dbms_sql.v7); -- step 2
7240: --
7241: if g_debug then
7242: hr_utility.set_location (c_indent, 30);
7243: end if;
7240: --
7241: if g_debug then
7242: hr_utility.set_location (c_indent, 30);
7243: end if;
7244: dbms_sql.bind_variable(sql_cursor, 'pactid', pactid); -- step 3:
7245: --
7246: dbms_sql.bind_variable(sql_cursor, 'assactid', assactid);
7247: --
7248: dbms_sql.bind_variable(sql_cursor, 'asgid', asgid);
7242: hr_utility.set_location (c_indent, 30);
7243: end if;
7244: dbms_sql.bind_variable(sql_cursor, 'pactid', pactid); -- step 3:
7245: --
7246: dbms_sql.bind_variable(sql_cursor, 'assactid', assactid);
7247: --
7248: dbms_sql.bind_variable(sql_cursor, 'asgid', asgid);
7249: --
7250: dbms_sql.bind_variable(sql_cursor, 'effdate', effdate);
7244: dbms_sql.bind_variable(sql_cursor, 'pactid', pactid); -- step 3:
7245: --
7246: dbms_sql.bind_variable(sql_cursor, 'assactid', assactid);
7247: --
7248: dbms_sql.bind_variable(sql_cursor, 'asgid', asgid);
7249: --
7250: dbms_sql.bind_variable(sql_cursor, 'effdate', effdate);
7251: --
7252: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7246: dbms_sql.bind_variable(sql_cursor, 'assactid', assactid);
7247: --
7248: dbms_sql.bind_variable(sql_cursor, 'asgid', asgid);
7249: --
7250: dbms_sql.bind_variable(sql_cursor, 'effdate', effdate);
7251: --
7252: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7253: --
7254: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
7248: dbms_sql.bind_variable(sql_cursor, 'asgid', asgid);
7249: --
7250: dbms_sql.bind_variable(sql_cursor, 'effdate', effdate);
7251: --
7252: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7253: --
7254: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
7255: --
7256: dbms_sql.bind_variable(sql_cursor, 'l_feed_flag', l_feed_flag);
7250: dbms_sql.bind_variable(sql_cursor, 'effdate', effdate);
7251: --
7252: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7253: --
7254: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
7255: --
7256: dbms_sql.bind_variable(sql_cursor, 'l_feed_flag', l_feed_flag);
7257: --
7258: if g_debug then
7252: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7253: --
7254: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
7255: --
7256: dbms_sql.bind_variable(sql_cursor, 'l_feed_flag', l_feed_flag);
7257: --
7258: if g_debug then
7259: hr_utility.set_location (c_indent, 35);
7260: end if;
7257: --
7258: if g_debug then
7259: hr_utility.set_location (c_indent, 35);
7260: end if;
7261: l_rows := dbms_sql.execute (sql_cursor); -- step 4
7262: --
7263: if (l_rows = 1) then
7264: if g_debug then
7265: hr_utility.set_location (c_indent, 40);
7263: if (l_rows = 1) then
7264: if g_debug then
7265: hr_utility.set_location (c_indent, 40);
7266: end if;
7267: dbms_sql.variable_value(sql_cursor, 'l_feed_flag', -- step 5
7268: l_feed_flag);
7269: --
7270: if l_feed_flag = 1 then
7271: l_feed_balance := TRUE;
7273: --
7274: if g_debug then
7275: hr_utility.set_location (c_indent, 45);
7276: end if;
7277: dbms_sql.close_cursor(sql_cursor); -- step 6
7278: else
7279: --
7280: -- None or more than 1 row has been returned. We must error as package
7281: -- call can only return 1 row, so this condition should never occur !
7282: --
7283: if g_debug then
7284: hr_utility.set_location (c_indent, 111);
7285: end if;
7286: dbms_sql.close_cursor(sql_cursor);
7287: hr_utility.raise_error;
7288: end if;
7289: --
7290: return(l_feed_balance);
7931: --
7932: if g_debug then
7933: hr_utility.set_location (c_indent, 14);
7934: end if;
7935: dbms_sql.close_cursor(sql_cursor);
7936: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
7937: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
7938: hr_utility.raise_error;
7939: end if;
7969: --
7970: if g_debug then
7971: hr_utility.set_location (c_indent, 20);
7972: end if;
7973: sql_cursor := dbms_sql.open_cursor; -- step 1
7974: --
7975: if g_debug then
7976: hr_utility.set_location (c_indent, 25);
7977: end if;
7974: --
7975: if g_debug then
7976: hr_utility.set_location (c_indent, 25);
7977: end if;
7978: dbms_sql.parse(sql_cursor, l_expiry_chk_str, dbms_sql.v7); -- step 2
7979: --
7980: if g_debug then
7981: hr_utility.set_location (c_indent||to_char(p_bal_owner_eff_date, 'DD/MM/YYYY'), 30);
7982: end if;
7979: --
7980: if g_debug then
7981: hr_utility.set_location (c_indent||to_char(p_bal_owner_eff_date, 'DD/MM/YYYY'), 30);
7982: end if;
7983: dbms_sql.bind_variable(sql_cursor, 'l_bal_owner_pay_action', l_bal_owner_pay_action); -- step 3:
7984: --
7985: dbms_sql.bind_variable(sql_cursor, 'l_payroll_action', l_payroll_action);
7986: --
7987: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_asg_actid', p_bal_owner_asg_actid);
7981: hr_utility.set_location (c_indent||to_char(p_bal_owner_eff_date, 'DD/MM/YYYY'), 30);
7982: end if;
7983: dbms_sql.bind_variable(sql_cursor, 'l_bal_owner_pay_action', l_bal_owner_pay_action); -- step 3:
7984: --
7985: dbms_sql.bind_variable(sql_cursor, 'l_payroll_action', l_payroll_action);
7986: --
7987: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_asg_actid', p_bal_owner_asg_actid);
7988: --
7989: dbms_sql.bind_variable(sql_cursor, 'p_ass_action_id', p_ass_action_id);
7983: dbms_sql.bind_variable(sql_cursor, 'l_bal_owner_pay_action', l_bal_owner_pay_action); -- step 3:
7984: --
7985: dbms_sql.bind_variable(sql_cursor, 'l_payroll_action', l_payroll_action);
7986: --
7987: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_asg_actid', p_bal_owner_asg_actid);
7988: --
7989: dbms_sql.bind_variable(sql_cursor, 'p_ass_action_id', p_ass_action_id);
7990: --
7991: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_eff_date', p_bal_owner_eff_date);
7985: dbms_sql.bind_variable(sql_cursor, 'l_payroll_action', l_payroll_action);
7986: --
7987: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_asg_actid', p_bal_owner_asg_actid);
7988: --
7989: dbms_sql.bind_variable(sql_cursor, 'p_ass_action_id', p_ass_action_id);
7990: --
7991: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_eff_date', p_bal_owner_eff_date);
7992: --
7993: dbms_sql.bind_variable(sql_cursor, 'l_effective_date', l_effective_date);
7987: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_asg_actid', p_bal_owner_asg_actid);
7988: --
7989: dbms_sql.bind_variable(sql_cursor, 'p_ass_action_id', p_ass_action_id);
7990: --
7991: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_eff_date', p_bal_owner_eff_date);
7992: --
7993: dbms_sql.bind_variable(sql_cursor, 'l_effective_date', l_effective_date);
7994: --
7995: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7989: dbms_sql.bind_variable(sql_cursor, 'p_ass_action_id', p_ass_action_id);
7990: --
7991: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_eff_date', p_bal_owner_eff_date);
7992: --
7993: dbms_sql.bind_variable(sql_cursor, 'l_effective_date', l_effective_date);
7994: --
7995: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7996: --
7997: if (p_expiry_check_level in ('A', 'D')) then
7991: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_eff_date', p_bal_owner_eff_date);
7992: --
7993: dbms_sql.bind_variable(sql_cursor, 'l_effective_date', l_effective_date);
7994: --
7995: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7996: --
7997: if (p_expiry_check_level in ('A', 'D')) then
7998: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
7999: end if;
7994: --
7995: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7996: --
7997: if (p_expiry_check_level in ('A', 'D')) then
7998: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
7999: end if;
8000: --
8001: dbms_sql.bind_variable(sql_cursor, 'l_expiry_date', l_expiry_date);
8002: --
7997: if (p_expiry_check_level in ('A', 'D')) then
7998: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
7999: end if;
8000: --
8001: dbms_sql.bind_variable(sql_cursor, 'l_expiry_date', l_expiry_date);
8002: --
8003: if g_debug then
8004: hr_utility.set_location (c_indent, 35);
8005: end if;
8002: --
8003: if g_debug then
8004: hr_utility.set_location (c_indent, 35);
8005: end if;
8006: l_rows := dbms_sql.execute (sql_cursor); -- step 4
8007: --
8008: if (l_rows = 1) then
8009: if g_debug then
8010: hr_utility.set_location (c_indent, 40);
8008: if (l_rows = 1) then
8009: if g_debug then
8010: hr_utility.set_location (c_indent, 40);
8011: end if;
8012: dbms_sql.variable_value(sql_cursor, 'l_expiry_date', -- step 5
8013: l_expiry_date);
8014: --
8015: if g_debug then
8016: hr_utility.set_location (c_indent||to_char(l_expiry_date, 'DD/MM/YYYY'), 45);
8014: --
8015: if g_debug then
8016: hr_utility.set_location (c_indent||to_char(l_expiry_date, 'DD/MM/YYYY'), 45);
8017: end if;
8018: dbms_sql.close_cursor(sql_cursor); -- step 6
8019: elsif (l_rows = 0) then
8020: --
8021: -- expiry date procedure didn't exist
8022: --
8022: --
8023: if g_debug then
8024: hr_utility.set_location (c_indent, 50);
8025: end if;
8026: dbms_sql.close_cursor(sql_cursor);
8027: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
8028: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
8029: hr_utility.raise_error;
8030: else
8034: --
8035: if g_debug then
8036: hr_utility.set_location (c_indent, 60);
8037: end if;
8038: dbms_sql.close_cursor(sql_cursor);
8039: hr_utility.raise_error;
8040: end if;
8041: --
8042: return(l_expiry_date);