143: --| Validates Reason Code |
144: --| |
145: --| DESCRIPTION |
146: --| This generic function validates that the Reason Code passed exists |
147: --| on sy_reas_cds |
148: --| |
149: --| PARAMETERS |
150: --| p_reason_code IN VARCHAR2 - Reason Code |
151: --| |
157: --| |
158: --+==========================================================================+
159: -- Func end of comments
160: FUNCTION Validate_reason_code
161: (p_reason_code IN sy_reas_cds.reason_code%TYPE
162: )
163: RETURN BOOLEAN
164: IS
165: l_reason_code VARCHAR2(4);
162: )
163: RETURN BOOLEAN
164: IS
165: l_reason_code VARCHAR2(4);
166: CURSOR sy_reas_cds_c1 IS
167: SELECT
168: reason_code
169: FROM
170: sy_reas_cds
166: CURSOR sy_reas_cds_c1 IS
167: SELECT
168: reason_code
169: FROM
170: sy_reas_cds
171: WHERE
172: reason_code = p_reason_code
173: AND delete_mark = 0;
174:
172: reason_code = p_reason_code
173: AND delete_mark = 0;
174:
175: BEGIN
176: OPEN sy_reas_cds_c1;
177: FETCH sy_reas_cds_c1 INTO l_reason_code;
178: IF (sy_reas_cds_c1%NOTFOUND)
179: THEN
180: CLOSE sy_reas_cds_c1;
173: AND delete_mark = 0;
174:
175: BEGIN
176: OPEN sy_reas_cds_c1;
177: FETCH sy_reas_cds_c1 INTO l_reason_code;
178: IF (sy_reas_cds_c1%NOTFOUND)
179: THEN
180: CLOSE sy_reas_cds_c1;
181: RETURN FALSE;
174:
175: BEGIN
176: OPEN sy_reas_cds_c1;
177: FETCH sy_reas_cds_c1 INTO l_reason_code;
178: IF (sy_reas_cds_c1%NOTFOUND)
179: THEN
180: CLOSE sy_reas_cds_c1;
181: RETURN FALSE;
182: ELSE
176: OPEN sy_reas_cds_c1;
177: FETCH sy_reas_cds_c1 INTO l_reason_code;
178: IF (sy_reas_cds_c1%NOTFOUND)
179: THEN
180: CLOSE sy_reas_cds_c1;
181: RETURN FALSE;
182: ELSE
183: CLOSE sy_reas_cds_c1;
184: RETURN TRUE;
179: THEN
180: CLOSE sy_reas_cds_c1;
181: RETURN FALSE;
182: ELSE
183: CLOSE sy_reas_cds_c1;
184: RETURN TRUE;
185: END IF;
186:
187: EXCEPTION