203: 'S','oracle.apps.gmd.qm.spec.vr.sup',
204: 'R','oracle.apps.gmd.qm.spec.vr.mon',
205: 'L','oracle.apps.gmd.qm.spec.vr.mon')
206: INTO l_event_name
207: FROM sys.dual;
208: EDR_STANDARD.psig_required (p_event => l_event_name
209: ,p_event_key => l_spec_validity_rule_id
210: ,p_status => l_status);
211:
942: FETCH get_decimal_precision INTO l_decimal_precision;
943: CLOSE get_decimal_precision;
944: END IF;
945:
946: SELECT LENGTH(p_value) INTO l_total_length FROM DUAL;
947: SELECT INSTR(p_value,'.') INTO l_dot_precision FROM DUAL;
948: IF l_dot_precision > 0 THEN
949: l_decimal_length := l_total_length - l_dot_precision;
950: ELSE
943: CLOSE get_decimal_precision;
944: END IF;
945:
946: SELECT LENGTH(p_value) INTO l_total_length FROM DUAL;
947: SELECT INSTR(p_value,'.') INTO l_dot_precision FROM DUAL;
948: IF l_dot_precision > 0 THEN
949: l_decimal_length := l_total_length - l_dot_precision;
950: ELSE
951: l_decimal_length := 0;
953: l_extra_decimal := l_decimal_precision - l_decimal_length;
954: l_value := p_value;
955: IF l_dot_precision = 0 THEN
956: l_total_length := l_total_length + 1;
957: SELECT RPAD(p_value,l_total_length,'.') INTO l_value FROM DUAL;
958: END IF;
959: l_final_length := l_total_length + l_extra_decimal;
960: SELECT RPAD(l_value,l_final_length,'0') INTO x_decimal_value FROM DUAL;
961:
956: l_total_length := l_total_length + 1;
957: SELECT RPAD(p_value,l_total_length,'.') INTO l_value FROM DUAL;
958: END IF;
959: l_final_length := l_total_length + l_extra_decimal;
960: SELECT RPAD(l_value,l_final_length,'0') INTO x_decimal_value FROM DUAL;
961:
962: END GET_DECIMAL_VALUE;
963:
964: /* Bug 5023089. RLNAGARA 09-Mar-2006. To display the from and to Sample's disposition */