APPS.HRASSACT dependencies on DBMS_SQL

Line 3855: sql_cursor := dbms_sql.open_cursor;

3851: l_def_rt_str := l_def_rt_str || ':p_entry, ';
3852: l_def_rt_str := l_def_rt_str || ':p_effdate, ';
3853: l_def_rt_str := l_def_rt_str || ':l_value); end; ';
3854: --
3855: sql_cursor := dbms_sql.open_cursor;
3856: --
3857: dbms_sql.parse(sql_cursor, l_def_rt_str, dbms_sql.v7);
3858: --
3859: --

Line 3857: dbms_sql.parse(sql_cursor, l_def_rt_str, dbms_sql.v7);

3853: l_def_rt_str := l_def_rt_str || ':l_value); end; ';
3854: --
3855: sql_cursor := dbms_sql.open_cursor;
3856: --
3857: dbms_sql.parse(sql_cursor, l_def_rt_str, dbms_sql.v7);
3858: --
3859: --
3860: dbms_sql.bind_variable(sql_cursor, 'p_identifier', p_identifier);
3861: --

Line 3860: dbms_sql.bind_variable(sql_cursor, 'p_identifier', p_identifier);

3856: --
3857: dbms_sql.parse(sql_cursor, l_def_rt_str, dbms_sql.v7);
3858: --
3859: --
3860: dbms_sql.bind_variable(sql_cursor, 'p_identifier', p_identifier);
3861: --
3862: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
3863: --
3864: dbms_sql.bind_variable(sql_cursor, 'p_effdate', p_effdate);

Line 3862: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);

3858: --
3859: --
3860: dbms_sql.bind_variable(sql_cursor, 'p_identifier', p_identifier);
3861: --
3862: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
3863: --
3864: dbms_sql.bind_variable(sql_cursor, 'p_effdate', p_effdate);
3865: --
3866: dbms_sql.bind_variable(sql_cursor, 'l_value', l_value, 30);

Line 3864: dbms_sql.bind_variable(sql_cursor, 'p_effdate', p_effdate);

3860: dbms_sql.bind_variable(sql_cursor, 'p_identifier', p_identifier);
3861: --
3862: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
3863: --
3864: dbms_sql.bind_variable(sql_cursor, 'p_effdate', p_effdate);
3865: --
3866: dbms_sql.bind_variable(sql_cursor, 'l_value', l_value, 30);
3867: --
3868: l_rows := dbms_sql.execute (sql_cursor);

Line 3866: dbms_sql.bind_variable(sql_cursor, 'l_value', l_value, 30);

3862: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
3863: --
3864: dbms_sql.bind_variable(sql_cursor, 'p_effdate', p_effdate);
3865: --
3866: dbms_sql.bind_variable(sql_cursor, 'l_value', l_value, 30);
3867: --
3868: l_rows := dbms_sql.execute (sql_cursor);
3869: --
3870: if (l_rows = 1) then

Line 3868: l_rows := dbms_sql.execute (sql_cursor);

3864: dbms_sql.bind_variable(sql_cursor, 'p_effdate', p_effdate);
3865: --
3866: dbms_sql.bind_variable(sql_cursor, 'l_value', l_value, 30);
3867: --
3868: l_rows := dbms_sql.execute (sql_cursor);
3869: --
3870: if (l_rows = 1) then
3871: dbms_sql.variable_value(sql_cursor, 'l_value',
3872: l_value);

Line 3871: dbms_sql.variable_value(sql_cursor, 'l_value',

3867: --
3868: l_rows := dbms_sql.execute (sql_cursor);
3869: --
3870: if (l_rows = 1) then
3871: dbms_sql.variable_value(sql_cursor, 'l_value',
3872: l_value);
3873: dbms_sql.close_cursor(sql_cursor);
3874: --
3875: else

Line 3873: dbms_sql.close_cursor(sql_cursor);

3869: --
3870: if (l_rows = 1) then
3871: dbms_sql.variable_value(sql_cursor, 'l_value',
3872: l_value);
3873: dbms_sql.close_cursor(sql_cursor);
3874: --
3875: else
3876: l_value := null;
3877: dbms_sql.close_cursor(sql_cursor);

Line 3877: dbms_sql.close_cursor(sql_cursor);

3873: dbms_sql.close_cursor(sql_cursor);
3874: --
3875: else
3876: l_value := null;
3877: dbms_sql.close_cursor(sql_cursor);
3878: end if;
3879: --
3880: p_value := l_value;
3881: --

Line 6110: sql_cursor := dbms_sql.open_cursor;

6106: l_def_jur_str := l_def_jur_str || ':p_assact, ';
6107: l_def_jur_str := l_def_jur_str || ':p_entry, ';
6108: l_def_jur_str := l_def_jur_str || ':l_ctx_value); end; ';
6109: --
6110: sql_cursor := dbms_sql.open_cursor;
6111: --
6112: dbms_sql.parse(sql_cursor, l_def_jur_str, dbms_sql.v7);
6113: --
6114: --

Line 6112: dbms_sql.parse(sql_cursor, l_def_jur_str, dbms_sql.v7);

6108: l_def_jur_str := l_def_jur_str || ':l_ctx_value); end; ';
6109: --
6110: sql_cursor := dbms_sql.open_cursor;
6111: --
6112: dbms_sql.parse(sql_cursor, l_def_jur_str, dbms_sql.v7);
6113: --
6114: --
6115: dbms_sql.bind_variable(sql_cursor, 'p_assact', p_assact);
6116: --

Line 6115: dbms_sql.bind_variable(sql_cursor, 'p_assact', p_assact);

6111: --
6112: dbms_sql.parse(sql_cursor, l_def_jur_str, dbms_sql.v7);
6113: --
6114: --
6115: dbms_sql.bind_variable(sql_cursor, 'p_assact', p_assact);
6116: --
6117: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
6118: --
6119: dbms_sql.bind_variable(sql_cursor, 'l_ctx_value', l_ctx_value, 30);

Line 6117: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);

6113: --
6114: --
6115: dbms_sql.bind_variable(sql_cursor, 'p_assact', p_assact);
6116: --
6117: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
6118: --
6119: dbms_sql.bind_variable(sql_cursor, 'l_ctx_value', l_ctx_value, 30);
6120: --
6121: l_rows := dbms_sql.execute (sql_cursor);

Line 6119: dbms_sql.bind_variable(sql_cursor, 'l_ctx_value', l_ctx_value, 30);

6115: dbms_sql.bind_variable(sql_cursor, 'p_assact', p_assact);
6116: --
6117: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
6118: --
6119: dbms_sql.bind_variable(sql_cursor, 'l_ctx_value', l_ctx_value, 30);
6120: --
6121: l_rows := dbms_sql.execute (sql_cursor);
6122: --
6123: if (l_rows = 1) then

Line 6121: l_rows := dbms_sql.execute (sql_cursor);

6117: dbms_sql.bind_variable(sql_cursor, 'p_entry', p_entry);
6118: --
6119: dbms_sql.bind_variable(sql_cursor, 'l_ctx_value', l_ctx_value, 30);
6120: --
6121: l_rows := dbms_sql.execute (sql_cursor);
6122: --
6123: if (l_rows = 1) then
6124: dbms_sql.variable_value(sql_cursor, 'l_ctx_value',
6125: l_ctx_value);

Line 6124: dbms_sql.variable_value(sql_cursor, 'l_ctx_value',

6120: --
6121: l_rows := dbms_sql.execute (sql_cursor);
6122: --
6123: if (l_rows = 1) then
6124: dbms_sql.variable_value(sql_cursor, 'l_ctx_value',
6125: l_ctx_value);
6126: dbms_sql.close_cursor(sql_cursor);
6127: --
6128: -- OK we got the default, we need to set it

Line 6126: dbms_sql.close_cursor(sql_cursor);

6122: --
6123: if (l_rows = 1) then
6124: dbms_sql.variable_value(sql_cursor, 'l_ctx_value',
6125: l_ctx_value);
6126: dbms_sql.close_cursor(sql_cursor);
6127: --
6128: -- OK we got the default, we need to set it
6129: update pay_run_result_values
6130: set result_value = l_ctx_value

Line 6136: dbms_sql.close_cursor(sql_cursor);

6132: and input_value_id = rrvrec.input_value_id;
6133: --
6134: else
6135: l_ctx_value := null;
6136: dbms_sql.close_cursor(sql_cursor);
6137: end if;
6138: end if;
6139: --
6140: end if;

Line 6969: sql_cursor := dbms_sql.open_cursor; -- step 1

6965: --
6966: if g_debug then
6967: hr_utility.set_location (c_indent, 20);
6968: end if;
6969: sql_cursor := dbms_sql.open_cursor; -- step 1
6970: --
6971: if g_debug then
6972: hr_utility.set_location (c_indent, 25);
6973: end if;

Line 6974: dbms_sql.parse(sql_cursor, l_feed_chk_str, dbms_sql.v7); -- step 2

6970: --
6971: if g_debug then
6972: hr_utility.set_location (c_indent, 25);
6973: end if;
6974: dbms_sql.parse(sql_cursor, l_feed_chk_str, dbms_sql.v7); -- step 2
6975: --
6976: if g_debug then
6977: hr_utility.set_location (c_indent, 30);
6978: end if;

Line 6979: dbms_sql.bind_variable(sql_cursor, 'pactid', pactid); -- step 3:

6975: --
6976: if g_debug then
6977: hr_utility.set_location (c_indent, 30);
6978: end if;
6979: dbms_sql.bind_variable(sql_cursor, 'pactid', pactid); -- step 3:
6980: --
6981: dbms_sql.bind_variable(sql_cursor, 'assactid', assactid);
6982: --
6983: dbms_sql.bind_variable(sql_cursor, 'asgid', asgid);

Line 6981: dbms_sql.bind_variable(sql_cursor, 'assactid', assactid);

6977: hr_utility.set_location (c_indent, 30);
6978: end if;
6979: dbms_sql.bind_variable(sql_cursor, 'pactid', pactid); -- step 3:
6980: --
6981: dbms_sql.bind_variable(sql_cursor, 'assactid', assactid);
6982: --
6983: dbms_sql.bind_variable(sql_cursor, 'asgid', asgid);
6984: --
6985: dbms_sql.bind_variable(sql_cursor, 'effdate', effdate);

Line 6983: dbms_sql.bind_variable(sql_cursor, 'asgid', asgid);

6979: dbms_sql.bind_variable(sql_cursor, 'pactid', pactid); -- step 3:
6980: --
6981: dbms_sql.bind_variable(sql_cursor, 'assactid', assactid);
6982: --
6983: dbms_sql.bind_variable(sql_cursor, 'asgid', asgid);
6984: --
6985: dbms_sql.bind_variable(sql_cursor, 'effdate', effdate);
6986: --
6987: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);

Line 6985: dbms_sql.bind_variable(sql_cursor, 'effdate', effdate);

6981: dbms_sql.bind_variable(sql_cursor, 'assactid', assactid);
6982: --
6983: dbms_sql.bind_variable(sql_cursor, 'asgid', asgid);
6984: --
6985: dbms_sql.bind_variable(sql_cursor, 'effdate', effdate);
6986: --
6987: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
6988: --
6989: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);

Line 6987: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);

6983: dbms_sql.bind_variable(sql_cursor, 'asgid', asgid);
6984: --
6985: dbms_sql.bind_variable(sql_cursor, 'effdate', effdate);
6986: --
6987: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
6988: --
6989: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
6990: --
6991: dbms_sql.bind_variable(sql_cursor, 'l_feed_flag', l_feed_flag);

Line 6989: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);

6985: dbms_sql.bind_variable(sql_cursor, 'effdate', effdate);
6986: --
6987: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
6988: --
6989: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
6990: --
6991: dbms_sql.bind_variable(sql_cursor, 'l_feed_flag', l_feed_flag);
6992: --
6993: if g_debug then

Line 6991: dbms_sql.bind_variable(sql_cursor, 'l_feed_flag', l_feed_flag);

6987: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
6988: --
6989: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
6990: --
6991: dbms_sql.bind_variable(sql_cursor, 'l_feed_flag', l_feed_flag);
6992: --
6993: if g_debug then
6994: hr_utility.set_location (c_indent, 35);
6995: end if;

Line 6996: l_rows := dbms_sql.execute (sql_cursor); -- step 4

6992: --
6993: if g_debug then
6994: hr_utility.set_location (c_indent, 35);
6995: end if;
6996: l_rows := dbms_sql.execute (sql_cursor); -- step 4
6997: --
6998: if (l_rows = 1) then
6999: if g_debug then
7000: hr_utility.set_location (c_indent, 40);

Line 7002: dbms_sql.variable_value(sql_cursor, 'l_feed_flag', -- step 5

6998: if (l_rows = 1) then
6999: if g_debug then
7000: hr_utility.set_location (c_indent, 40);
7001: end if;
7002: dbms_sql.variable_value(sql_cursor, 'l_feed_flag', -- step 5
7003: l_feed_flag);
7004: --
7005: if l_feed_flag = 1 then
7006: l_feed_balance := TRUE;

Line 7012: dbms_sql.close_cursor(sql_cursor); -- step 6

7008: --
7009: if g_debug then
7010: hr_utility.set_location (c_indent, 45);
7011: end if;
7012: dbms_sql.close_cursor(sql_cursor); -- step 6
7013: else
7014: --
7015: -- None or more than 1 row has been returned. We must error as package
7016: -- call can only return 1 row, so this condition should never occur !

Line 7021: dbms_sql.close_cursor(sql_cursor);

7017: --
7018: if g_debug then
7019: hr_utility.set_location (c_indent, 111);
7020: end if;
7021: dbms_sql.close_cursor(sql_cursor);
7022: hr_utility.raise_error;
7023: end if;
7024: --
7025: return(l_feed_balance);

Line 7670: dbms_sql.close_cursor(sql_cursor);

7666: --
7667: if g_debug then
7668: hr_utility.set_location (c_indent, 14);
7669: end if;
7670: dbms_sql.close_cursor(sql_cursor);
7671: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
7672: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
7673: hr_utility.raise_error;
7674: end if;

Line 7708: sql_cursor := dbms_sql.open_cursor; -- step 1

7704: --
7705: if g_debug then
7706: hr_utility.set_location (c_indent, 20);
7707: end if;
7708: sql_cursor := dbms_sql.open_cursor; -- step 1
7709: --
7710: if g_debug then
7711: hr_utility.set_location (c_indent, 25);
7712: end if;

Line 7713: dbms_sql.parse(sql_cursor, l_expiry_chk_str, dbms_sql.v7); -- step 2

7709: --
7710: if g_debug then
7711: hr_utility.set_location (c_indent, 25);
7712: end if;
7713: dbms_sql.parse(sql_cursor, l_expiry_chk_str, dbms_sql.v7); -- step 2
7714: --
7715: if g_debug then
7716: hr_utility.set_location (c_indent||to_char(p_bal_owner_eff_date, 'DD/MM/YYYY'), 30);
7717: end if;

Line 7718: dbms_sql.bind_variable(sql_cursor, 'l_bal_owner_pay_action', l_bal_owner_pay_action); -- step 3:

7714: --
7715: if g_debug then
7716: hr_utility.set_location (c_indent||to_char(p_bal_owner_eff_date, 'DD/MM/YYYY'), 30);
7717: end if;
7718: dbms_sql.bind_variable(sql_cursor, 'l_bal_owner_pay_action', l_bal_owner_pay_action); -- step 3:
7719: --
7720: dbms_sql.bind_variable(sql_cursor, 'l_payroll_action', l_payroll_action);
7721: --
7722: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_asg_actid', p_bal_owner_asg_actid);

Line 7720: dbms_sql.bind_variable(sql_cursor, 'l_payroll_action', l_payroll_action);

7716: hr_utility.set_location (c_indent||to_char(p_bal_owner_eff_date, 'DD/MM/YYYY'), 30);
7717: end if;
7718: dbms_sql.bind_variable(sql_cursor, 'l_bal_owner_pay_action', l_bal_owner_pay_action); -- step 3:
7719: --
7720: dbms_sql.bind_variable(sql_cursor, 'l_payroll_action', l_payroll_action);
7721: --
7722: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_asg_actid', p_bal_owner_asg_actid);
7723: --
7724: dbms_sql.bind_variable(sql_cursor, 'p_ass_action_id', p_ass_action_id);

Line 7722: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_asg_actid', p_bal_owner_asg_actid);

7718: dbms_sql.bind_variable(sql_cursor, 'l_bal_owner_pay_action', l_bal_owner_pay_action); -- step 3:
7719: --
7720: dbms_sql.bind_variable(sql_cursor, 'l_payroll_action', l_payroll_action);
7721: --
7722: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_asg_actid', p_bal_owner_asg_actid);
7723: --
7724: dbms_sql.bind_variable(sql_cursor, 'p_ass_action_id', p_ass_action_id);
7725: --
7726: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_eff_date', p_bal_owner_eff_date);

Line 7724: dbms_sql.bind_variable(sql_cursor, 'p_ass_action_id', p_ass_action_id);

7720: dbms_sql.bind_variable(sql_cursor, 'l_payroll_action', l_payroll_action);
7721: --
7722: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_asg_actid', p_bal_owner_asg_actid);
7723: --
7724: dbms_sql.bind_variable(sql_cursor, 'p_ass_action_id', p_ass_action_id);
7725: --
7726: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_eff_date', p_bal_owner_eff_date);
7727: --
7728: dbms_sql.bind_variable(sql_cursor, 'l_effective_date', l_effective_date);

Line 7726: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_eff_date', p_bal_owner_eff_date);

7722: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_asg_actid', p_bal_owner_asg_actid);
7723: --
7724: dbms_sql.bind_variable(sql_cursor, 'p_ass_action_id', p_ass_action_id);
7725: --
7726: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_eff_date', p_bal_owner_eff_date);
7727: --
7728: dbms_sql.bind_variable(sql_cursor, 'l_effective_date', l_effective_date);
7729: --
7730: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);

Line 7728: dbms_sql.bind_variable(sql_cursor, 'l_effective_date', l_effective_date);

7724: dbms_sql.bind_variable(sql_cursor, 'p_ass_action_id', p_ass_action_id);
7725: --
7726: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_eff_date', p_bal_owner_eff_date);
7727: --
7728: dbms_sql.bind_variable(sql_cursor, 'l_effective_date', l_effective_date);
7729: --
7730: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7731: --
7732: if (p_expiry_check_level in ('A', 'D')) then

Line 7730: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);

7726: dbms_sql.bind_variable(sql_cursor, 'p_bal_owner_eff_date', p_bal_owner_eff_date);
7727: --
7728: dbms_sql.bind_variable(sql_cursor, 'l_effective_date', l_effective_date);
7729: --
7730: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7731: --
7732: if (p_expiry_check_level in ('A', 'D')) then
7733: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
7734: end if;

Line 7733: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);

7729: --
7730: dbms_sql.bind_variable(sql_cursor, 'p_dimension_name', p_dimension_name);
7731: --
7732: if (p_expiry_check_level in ('A', 'D')) then
7733: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
7734: end if;
7735: --
7736: dbms_sql.bind_variable(sql_cursor, 'l_expiry_date', l_expiry_date);
7737: --

Line 7736: dbms_sql.bind_variable(sql_cursor, 'l_expiry_date', l_expiry_date);

7732: if (p_expiry_check_level in ('A', 'D')) then
7733: dbms_sql.bind_variable(sql_cursor, 'p_bal_context_str', p_bal_context_str);
7734: end if;
7735: --
7736: dbms_sql.bind_variable(sql_cursor, 'l_expiry_date', l_expiry_date);
7737: --
7738: if g_debug then
7739: hr_utility.set_location (c_indent, 35);
7740: end if;

Line 7741: l_rows := dbms_sql.execute (sql_cursor); -- step 4

7737: --
7738: if g_debug then
7739: hr_utility.set_location (c_indent, 35);
7740: end if;
7741: l_rows := dbms_sql.execute (sql_cursor); -- step 4
7742: --
7743: if (l_rows = 1) then
7744: if g_debug then
7745: hr_utility.set_location (c_indent, 40);

Line 7747: dbms_sql.variable_value(sql_cursor, 'l_expiry_date', -- step 5

7743: if (l_rows = 1) then
7744: if g_debug then
7745: hr_utility.set_location (c_indent, 40);
7746: end if;
7747: dbms_sql.variable_value(sql_cursor, 'l_expiry_date', -- step 5
7748: l_expiry_date);
7749: --
7750: if g_debug then
7751: hr_utility.set_location (c_indent||to_char(l_expiry_date, 'DD/MM/YYYY'), 45);

Line 7753: dbms_sql.close_cursor(sql_cursor); -- step 6

7749: --
7750: if g_debug then
7751: hr_utility.set_location (c_indent||to_char(l_expiry_date, 'DD/MM/YYYY'), 45);
7752: end if;
7753: dbms_sql.close_cursor(sql_cursor); -- step 6
7754: elsif (l_rows = 0) then
7755: --
7756: -- expiry date procedure didn't exist
7757: --

Line 7761: dbms_sql.close_cursor(sql_cursor);

7757: --
7758: if g_debug then
7759: hr_utility.set_location (c_indent, 50);
7760: end if;
7761: dbms_sql.close_cursor(sql_cursor);
7762: hr_utility.set_message(801, 'HR_7274_PAY_NO_EXPIRY_CODE');
7763: hr_utility.set_message_token ('EXPIRY_CODE', p_expiry_date_code);
7764: hr_utility.raise_error;
7765: else

Line 7773: dbms_sql.close_cursor(sql_cursor);

7769: --
7770: if g_debug then
7771: hr_utility.set_location (c_indent, 60);
7772: end if;
7773: dbms_sql.close_cursor(sql_cursor);
7774: hr_utility.raise_error;
7775: end if;
7776: --
7777: return(l_expiry_date);