--It is always a good practice to initialize apps and set global policy context
PROCEDURE get_service_duration (
p_serv_period IN VARCHAR2,
p_end_date IN DATE,
p_start_date IN DATE,
p_serv_duration IN NUMBER,
p_out_serv_duration OUT NOCOPY NUMBER,
p_out_service_period OUT NOCOPY VARCHAR2,
p_out_end_date OUT NOCOPY VARCHAR2,
p_out_dur_return_sts OUT NOCOPY VARCHAR2
)
IS
v_ou_dur_return_sts VARCHAR2 (1) := fnd_api.g_ret_sts_success;
v_dur_line_rec oe_oe_form_line.line_rec_type;
v_dur_null_line_rec oe_oe_form_line.line_rec_type;
v_dur_line_rec oe_oe_form_line.line_rec_type;
BEGIN
v_dur_line_rec := v_dur_null_line_rec;
v_dur_line_rec.service_duration := p_serv_duration;
v_dur_line_rec.service_start_date := p_start_date;
v_dur_line_rec.service_period := p_serv_period;
v_dur_line_rec.service_end_date := p_end_date;
oe_service_util.get_service_duration (x_return_status => v_dur_return_sts,
p_line_rec => v_dur_line_rec,
x_line_rec => v_dur_line_rec
);
p_out_service_period := v_dur_line_rec.service_period;
p_out_serv_duration := v_dur_line_rec.service_duration;
p_out_dur_return_sts := v_dur_return_sts;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (SQLERRM);
END get_service_duration;
PROCEDURE get_service_duration (
p_serv_period IN VARCHAR2,
p_end_date IN DATE,
p_start_date IN DATE,
p_serv_duration IN NUMBER,
p_out_serv_duration OUT NOCOPY NUMBER,
p_out_service_period OUT NOCOPY VARCHAR2,
p_out_end_date OUT NOCOPY VARCHAR2,
p_out_dur_return_sts OUT NOCOPY VARCHAR2
)
IS
v_ou_dur_return_sts VARCHAR2 (1) := fnd_api.g_ret_sts_success;
v_dur_line_rec oe_oe_form_line.line_rec_type;
v_dur_null_line_rec oe_oe_form_line.line_rec_type;
v_dur_line_rec oe_oe_form_line.line_rec_type;
BEGIN
v_dur_line_rec := v_dur_null_line_rec;
v_dur_line_rec.service_duration := p_serv_duration;
v_dur_line_rec.service_start_date := p_start_date;
v_dur_line_rec.service_period := p_serv_period;
v_dur_line_rec.service_end_date := p_end_date;
oe_service_util.get_service_duration (x_return_status => v_dur_return_sts,
p_line_rec => v_dur_line_rec,
x_line_rec => v_dur_line_rec
);
p_out_service_period := v_dur_line_rec.service_period;
p_out_serv_duration := v_dur_line_rec.service_duration;
p_out_dur_return_sts := v_dur_return_sts;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (SQLERRM);
END get_service_duration;
No comments:
Post a Comment