135: and lcb.form_block in ('SAFETY_PHRASES', 'RISK_PHRASES' );
136:
137: CURSOR c_get_safety_phrase_code IS
138: SELECT safety_phrase_code
139: FROM gr_safety_phrases_vl
140: WHERE safety_phrase_code = l_phrase_code;
141:
142: CURSOR c_get_risk_phrase_code IS
143: SELECT risk_phrase_code
447: FALSE);
448: RAISE loop_exception;
449: END IF; -- IF l_phrase_code is null then
450:
451: -- Validate the value for phrase code against the GR_SAFETY_PHRASES_VL.
452: -- An error message will be written to the log file if the value is invalid
453:
454: OPEN c_get_safety_phrase_code;
455: FETCH c_get_safety_phrase_code INTO l_phrase_code2;
632: -- An error message will be written to the log file if the record already exists
633: IF l_form_block = 'SAFETY_PHRASES' THEN
634:
635: dummy:= 0;
636: -- Validate the value for phrase code against the GR_SAFETY_PHRASES_VL.
637: -- An error message will be written to the log file if the value is invalid
638:
639: OPEN c_get_safety_phrase_code;
640: FETCH c_get_safety_phrase_code INTO l_phrase_code2;