2: /* $Header: OKLRSORB.pls 115.8 2003/07/23 18:33:03 sgorantl noship $ */
3: G_COLUMN_TOKEN CONSTANT VARCHAR2(100) := 'COLUMN';
4:
5: ---------------------------------------------------------------------------
6: -- PROCEDURE get_rec for: OKL_OPT_RULES_V
7: ---------------------------------------------------------------------------
8: PROCEDURE get_rec (
9: p_orlv_rec IN orlv_rec_type,
10: x_return_status OUT NOCOPY VARCHAR2,
26: CREATION_DATE,
27: LAST_UPDATED_BY,
28: LAST_UPDATE_DATE,
29: NVL(LAST_UPDATE_LOGIN, Okl_Api.G_MISS_NUM) LAST_UPDATE_LOGIN
30: FROM Okl_Opt_Rules_V
31: WHERE okl_Opt_Rules_V.id = p_id;
32: l_okl_orlv_pk okl_orlv_pk_csr%ROWTYPE;
33: l_orlv_rec orlv_rec_type;
34: BEGIN
27: LAST_UPDATED_BY,
28: LAST_UPDATE_DATE,
29: NVL(LAST_UPDATE_LOGIN, Okl_Api.G_MISS_NUM) LAST_UPDATE_LOGIN
30: FROM Okl_Opt_Rules_V
31: WHERE okl_Opt_Rules_V.id = p_id;
32: l_okl_orlv_pk okl_orlv_pk_csr%ROWTYPE;
33: l_orlv_rec orlv_rec_type;
34: BEGIN
35: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
73:
74: END get_rec;
75:
76: ---------------------------------------------------------------------------
77: -- PROCEDURE check_constraints for: OKL_OPT_RULES_V
78: -- To verify whether the dates are valid with respect to options and
79: -- to check whether any of these selected rules are attached to option
80: -- values
81: ---------------------------------------------------------------------------
89: SELECT '1'
90: FROM Okl_Pdt_Opts_V pon
91: WHERE pon.OPT_ID = p_opt_id;
92:
93: CURSOR okl_orl_ovd_fk_csr (p_orl_id IN Okl_Opt_Rules_V.ID%TYPE
94: ) IS
95: SELECT '1'
96: FROM Okl_Opv_Rules_V ovd
97: WHERE ovd.ORL_ID = p_orl_id;
103: FROM Okl_Options_V opt
104: WHERE opt.ID = p_opt_id
105: AND NVL(opt.TO_DATE, p_date) < p_date;
106:
107: CURSOR okl_orl_lsr_fk_csr (p_opt_id IN Okl_Opt_Rules_V.opt_id%TYPE,
108: p_lrg_lse_id IN Okl_Opt_Rules_V.lrg_lse_id%TYPE,
109: p_lrg_srd_id IN Okl_Opt_Rules_V.lrg_srd_id%TYPE,
110: p_srd_id_for IN Okl_Opt_Rules_V.srd_id_for%TYPE,
111: p_rgr_rgd_code IN Okl_Opt_Rules_V.rgr_rgd_code%TYPE,
104: WHERE opt.ID = p_opt_id
105: AND NVL(opt.TO_DATE, p_date) < p_date;
106:
107: CURSOR okl_orl_lsr_fk_csr (p_opt_id IN Okl_Opt_Rules_V.opt_id%TYPE,
108: p_lrg_lse_id IN Okl_Opt_Rules_V.lrg_lse_id%TYPE,
109: p_lrg_srd_id IN Okl_Opt_Rules_V.lrg_srd_id%TYPE,
110: p_srd_id_for IN Okl_Opt_Rules_V.srd_id_for%TYPE,
111: p_rgr_rgd_code IN Okl_Opt_Rules_V.rgr_rgd_code%TYPE,
112: p_rgr_rdf_code IN Okl_Opt_Rules_V.rgr_rdf_code%TYPE
105: AND NVL(opt.TO_DATE, p_date) < p_date;
106:
107: CURSOR okl_orl_lsr_fk_csr (p_opt_id IN Okl_Opt_Rules_V.opt_id%TYPE,
108: p_lrg_lse_id IN Okl_Opt_Rules_V.lrg_lse_id%TYPE,
109: p_lrg_srd_id IN Okl_Opt_Rules_V.lrg_srd_id%TYPE,
110: p_srd_id_for IN Okl_Opt_Rules_V.srd_id_for%TYPE,
111: p_rgr_rgd_code IN Okl_Opt_Rules_V.rgr_rgd_code%TYPE,
112: p_rgr_rdf_code IN Okl_Opt_Rules_V.rgr_rdf_code%TYPE
113: ) IS
106:
107: CURSOR okl_orl_lsr_fk_csr (p_opt_id IN Okl_Opt_Rules_V.opt_id%TYPE,
108: p_lrg_lse_id IN Okl_Opt_Rules_V.lrg_lse_id%TYPE,
109: p_lrg_srd_id IN Okl_Opt_Rules_V.lrg_srd_id%TYPE,
110: p_srd_id_for IN Okl_Opt_Rules_V.srd_id_for%TYPE,
111: p_rgr_rgd_code IN Okl_Opt_Rules_V.rgr_rgd_code%TYPE,
112: p_rgr_rdf_code IN Okl_Opt_Rules_V.rgr_rdf_code%TYPE
113: ) IS
114: SELECT '1'
107: CURSOR okl_orl_lsr_fk_csr (p_opt_id IN Okl_Opt_Rules_V.opt_id%TYPE,
108: p_lrg_lse_id IN Okl_Opt_Rules_V.lrg_lse_id%TYPE,
109: p_lrg_srd_id IN Okl_Opt_Rules_V.lrg_srd_id%TYPE,
110: p_srd_id_for IN Okl_Opt_Rules_V.srd_id_for%TYPE,
111: p_rgr_rgd_code IN Okl_Opt_Rules_V.rgr_rgd_code%TYPE,
112: p_rgr_rdf_code IN Okl_Opt_Rules_V.rgr_rdf_code%TYPE
113: ) IS
114: SELECT '1'
115: FROM Okl_Lse_Scs_Rules_V lsr,
108: p_lrg_lse_id IN Okl_Opt_Rules_V.lrg_lse_id%TYPE,
109: p_lrg_srd_id IN Okl_Opt_Rules_V.lrg_srd_id%TYPE,
110: p_srd_id_for IN Okl_Opt_Rules_V.srd_id_for%TYPE,
111: p_rgr_rgd_code IN Okl_Opt_Rules_V.rgr_rgd_code%TYPE,
112: p_rgr_rdf_code IN Okl_Opt_Rules_V.rgr_rdf_code%TYPE
113: ) IS
114: SELECT '1'
115: FROM Okl_Lse_Scs_Rules_V lsr,
116: Okl_Options_V opt
126: AND lsr.RULE = p_rgr_rdf_code
127: AND (lsr.START_DATE > opt.FROM_DATE OR
128: NVL(lsr.END_DATE, NVL(opt.TO_DATE, Okl_Api.G_MISS_DATE)) < NVL(opt.TO_DATE, Okl_Api.G_MISS_DATE));
129:
130: CURSOR c1(p_opt_id okl_opt_rules_v.opt_id%TYPE,
131: p_rgr_rgd_code okl_opt_rules_v.rgr_rgd_code%TYPE,
132: p_rgr_rdf_code okl_opt_rules_v.rgr_rdf_code%TYPE,
133: p_srd_id_for okl_opt_rules_v.srd_id_for%TYPE) IS
134: SELECT '1'
127: AND (lsr.START_DATE > opt.FROM_DATE OR
128: NVL(lsr.END_DATE, NVL(opt.TO_DATE, Okl_Api.G_MISS_DATE)) < NVL(opt.TO_DATE, Okl_Api.G_MISS_DATE));
129:
130: CURSOR c1(p_opt_id okl_opt_rules_v.opt_id%TYPE,
131: p_rgr_rgd_code okl_opt_rules_v.rgr_rgd_code%TYPE,
132: p_rgr_rdf_code okl_opt_rules_v.rgr_rdf_code%TYPE,
133: p_srd_id_for okl_opt_rules_v.srd_id_for%TYPE) IS
134: SELECT '1'
135: FROM okl_opt_rules_v
128: NVL(lsr.END_DATE, NVL(opt.TO_DATE, Okl_Api.G_MISS_DATE)) < NVL(opt.TO_DATE, Okl_Api.G_MISS_DATE));
129:
130: CURSOR c1(p_opt_id okl_opt_rules_v.opt_id%TYPE,
131: p_rgr_rgd_code okl_opt_rules_v.rgr_rgd_code%TYPE,
132: p_rgr_rdf_code okl_opt_rules_v.rgr_rdf_code%TYPE,
133: p_srd_id_for okl_opt_rules_v.srd_id_for%TYPE) IS
134: SELECT '1'
135: FROM okl_opt_rules_v
136: WHERE opt_id = p_opt_id
129:
130: CURSOR c1(p_opt_id okl_opt_rules_v.opt_id%TYPE,
131: p_rgr_rgd_code okl_opt_rules_v.rgr_rgd_code%TYPE,
132: p_rgr_rdf_code okl_opt_rules_v.rgr_rdf_code%TYPE,
133: p_srd_id_for okl_opt_rules_v.srd_id_for%TYPE) IS
134: SELECT '1'
135: FROM okl_opt_rules_v
136: WHERE opt_id = p_opt_id
137: AND rgr_rgd_code = p_rgr_rgd_code
131: p_rgr_rgd_code okl_opt_rules_v.rgr_rgd_code%TYPE,
132: p_rgr_rdf_code okl_opt_rules_v.rgr_rdf_code%TYPE,
133: p_srd_id_for okl_opt_rules_v.srd_id_for%TYPE) IS
134: SELECT '1'
135: FROM okl_opt_rules_v
136: WHERE opt_id = p_opt_id
137: AND rgr_rgd_code = p_rgr_rgd_code
138: AND rgr_rdf_code = rgr_rdf_code
139: AND srd_id_for = p_srd_id_for
138: AND rgr_rdf_code = rgr_rdf_code
139: AND srd_id_for = p_srd_id_for
140: AND id <> NVL(p_orlv_rec.id,-9999);
141:
142: CURSOR c2(p_opt_id okl_opt_rules_v.opt_id%TYPE,
143: p_rgr_rgd_code okl_opt_rules_v.rgr_rgd_code%TYPE,
144: p_rgr_rdf_code okl_opt_rules_v.rgr_rdf_code%TYPE,
145: p_lrg_lse_id okl_opt_rules_v.lrg_lse_id%TYPE,
146: p_lrg_srd_id okl_opt_rules_v.lrg_srd_id%TYPE) IS
139: AND srd_id_for = p_srd_id_for
140: AND id <> NVL(p_orlv_rec.id,-9999);
141:
142: CURSOR c2(p_opt_id okl_opt_rules_v.opt_id%TYPE,
143: p_rgr_rgd_code okl_opt_rules_v.rgr_rgd_code%TYPE,
144: p_rgr_rdf_code okl_opt_rules_v.rgr_rdf_code%TYPE,
145: p_lrg_lse_id okl_opt_rules_v.lrg_lse_id%TYPE,
146: p_lrg_srd_id okl_opt_rules_v.lrg_srd_id%TYPE) IS
147: SELECT '1'
140: AND id <> NVL(p_orlv_rec.id,-9999);
141:
142: CURSOR c2(p_opt_id okl_opt_rules_v.opt_id%TYPE,
143: p_rgr_rgd_code okl_opt_rules_v.rgr_rgd_code%TYPE,
144: p_rgr_rdf_code okl_opt_rules_v.rgr_rdf_code%TYPE,
145: p_lrg_lse_id okl_opt_rules_v.lrg_lse_id%TYPE,
146: p_lrg_srd_id okl_opt_rules_v.lrg_srd_id%TYPE) IS
147: SELECT '1'
148: FROM okl_opt_rules_v
141:
142: CURSOR c2(p_opt_id okl_opt_rules_v.opt_id%TYPE,
143: p_rgr_rgd_code okl_opt_rules_v.rgr_rgd_code%TYPE,
144: p_rgr_rdf_code okl_opt_rules_v.rgr_rdf_code%TYPE,
145: p_lrg_lse_id okl_opt_rules_v.lrg_lse_id%TYPE,
146: p_lrg_srd_id okl_opt_rules_v.lrg_srd_id%TYPE) IS
147: SELECT '1'
148: FROM okl_opt_rules_v
149: WHERE opt_id = p_opt_id
142: CURSOR c2(p_opt_id okl_opt_rules_v.opt_id%TYPE,
143: p_rgr_rgd_code okl_opt_rules_v.rgr_rgd_code%TYPE,
144: p_rgr_rdf_code okl_opt_rules_v.rgr_rdf_code%TYPE,
145: p_lrg_lse_id okl_opt_rules_v.lrg_lse_id%TYPE,
146: p_lrg_srd_id okl_opt_rules_v.lrg_srd_id%TYPE) IS
147: SELECT '1'
148: FROM okl_opt_rules_v
149: WHERE opt_id = p_opt_id
150: AND rgr_rgd_code = p_rgr_rgd_code
144: p_rgr_rdf_code okl_opt_rules_v.rgr_rdf_code%TYPE,
145: p_lrg_lse_id okl_opt_rules_v.lrg_lse_id%TYPE,
146: p_lrg_srd_id okl_opt_rules_v.lrg_srd_id%TYPE) IS
147: SELECT '1'
148: FROM okl_opt_rules_v
149: WHERE opt_id = p_opt_id
150: AND rgr_rgd_code = p_rgr_rgd_code
151: AND rgr_rdf_code = rgr_rdf_code
152: AND lrg_lse_id = p_lrg_lse_id
455:
456: END Validate_Attributes;
457:
458: ---------------------------------------------------------------------------
459: -- PROCEDURE insert_optrules for: OKL_OPT_RULES_V
460: ---------------------------------------------------------------------------
461: PROCEDURE insert_optrules(p_api_version IN NUMBER,
462: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
463: x_return_status OUT NOCOPY VARCHAR2,
553:
554: END insert_optrules;
555:
556: ---------------------------------------------------------------------------
557: -- PROCEDURE delete_optrules for: OKL_OPT_RULES_V
558: -- This allows the user to delete table of records
559: ---------------------------------------------------------------------------
560: PROCEDURE delete_optrules(p_api_version IN NUMBER,
561: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,