DBA Data[Home] [Help]

APPS.GMD_QC_ERES_UTILS dependencies on DUAL

Line 207: FROM sys.dual;

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:

Line 957: --SELECT LENGTH(p_value) INTO l_total_length FROM DUAL;

953: x_decimal_value := p_value;
954: ELSE
955: --QZENG bug 13798271 Round the value, and set value to l_value
956: l_value := to_char(round(to_number(p_value), l_decimal_precision));
957: --SELECT LENGTH(p_value) INTO l_total_length FROM DUAL;
958: SELECT LENGTH(l_value) INTO l_total_length FROM DUAL;
959: --SELECT INSTR(p_value,'.') INTO l_dot_precision FROM DUAL;
960: SELECT INSTR(l_value,'.') INTO l_dot_precision FROM DUAL;
961: IF l_dot_precision > 0 THEN

Line 958: SELECT LENGTH(l_value) INTO l_total_length FROM DUAL;

954: ELSE
955: --QZENG bug 13798271 Round the value, and set value to l_value
956: l_value := to_char(round(to_number(p_value), l_decimal_precision));
957: --SELECT LENGTH(p_value) INTO l_total_length FROM DUAL;
958: SELECT LENGTH(l_value) INTO l_total_length FROM DUAL;
959: --SELECT INSTR(p_value,'.') INTO l_dot_precision FROM DUAL;
960: SELECT INSTR(l_value,'.') INTO l_dot_precision FROM DUAL;
961: IF l_dot_precision > 0 THEN
962: l_decimal_length := l_total_length - l_dot_precision;

Line 959: --SELECT INSTR(p_value,'.') INTO l_dot_precision FROM DUAL;

955: --QZENG bug 13798271 Round the value, and set value to l_value
956: l_value := to_char(round(to_number(p_value), l_decimal_precision));
957: --SELECT LENGTH(p_value) INTO l_total_length FROM DUAL;
958: SELECT LENGTH(l_value) INTO l_total_length FROM DUAL;
959: --SELECT INSTR(p_value,'.') INTO l_dot_precision FROM DUAL;
960: SELECT INSTR(l_value,'.') INTO l_dot_precision FROM DUAL;
961: IF l_dot_precision > 0 THEN
962: l_decimal_length := l_total_length - l_dot_precision;
963: ELSE

Line 960: SELECT INSTR(l_value,'.') INTO l_dot_precision FROM DUAL;

956: l_value := to_char(round(to_number(p_value), l_decimal_precision));
957: --SELECT LENGTH(p_value) INTO l_total_length FROM DUAL;
958: SELECT LENGTH(l_value) INTO l_total_length FROM DUAL;
959: --SELECT INSTR(p_value,'.') INTO l_dot_precision FROM DUAL;
960: SELECT INSTR(l_value,'.') INTO l_dot_precision FROM DUAL;
961: IF l_dot_precision > 0 THEN
962: l_decimal_length := l_total_length - l_dot_precision;
963: ELSE
964: l_decimal_length := 0;

Line 969: --SELECT SUBSTR(p_value, 0) INTO x_decimal_value FROM DUAL;

965: END IF;
966: --QZENG bug 13798271 If l_decimal_precision is 0, then retieve integer number to x_decimal_value.
967: IF l_decimal_precision = 0 THEN
968: IF l_decimal_length = 0 THEN
969: --SELECT SUBSTR(p_value, 0) INTO x_decimal_value FROM DUAL;
970: SELECT SUBSTR(l_value, 0) INTO x_decimal_value FROM DUAL;
971: ELSE
972: IF l_dot_precision = 1 THEN
973: x_decimal_value := '0';

Line 970: SELECT SUBSTR(l_value, 0) INTO x_decimal_value FROM DUAL;

966: --QZENG bug 13798271 If l_decimal_precision is 0, then retieve integer number to x_decimal_value.
967: IF l_decimal_precision = 0 THEN
968: IF l_decimal_length = 0 THEN
969: --SELECT SUBSTR(p_value, 0) INTO x_decimal_value FROM DUAL;
970: SELECT SUBSTR(l_value, 0) INTO x_decimal_value FROM DUAL;
971: ELSE
972: IF l_dot_precision = 1 THEN
973: x_decimal_value := '0';
974: ELSE

Line 975: --SELECT SUBSTR(p_value, 0, l_decimal_length - 1) INTO x_decimal_value FROM DUAL;

971: ELSE
972: IF l_dot_precision = 1 THEN
973: x_decimal_value := '0';
974: ELSE
975: --SELECT SUBSTR(p_value, 0, l_decimal_length - 1) INTO x_decimal_value FROM DUAL;
976: SELECT SUBSTR(l_value, 0, l_dot_precision - 1) INTO x_decimal_value FROM DUAL;
977: END IF;
978: END IF;
979: ELSE

Line 976: SELECT SUBSTR(l_value, 0, l_dot_precision - 1) INTO x_decimal_value FROM DUAL;

972: IF l_dot_precision = 1 THEN
973: x_decimal_value := '0';
974: ELSE
975: --SELECT SUBSTR(p_value, 0, l_decimal_length - 1) INTO x_decimal_value FROM DUAL;
976: SELECT SUBSTR(l_value, 0, l_dot_precision - 1) INTO x_decimal_value FROM DUAL;
977: END IF;
978: END IF;
979: ELSE
980:

Line 986: --SELECT RPAD(p_value,l_total_length,'.') INTO l_value FROM DUAL;

982: --QZENG bug 13798271 set value already.
983: --l_value := p_value;
984: IF l_dot_precision = 0 THEN
985: l_total_length := l_total_length + 1;
986: --SELECT RPAD(p_value,l_total_length,'.') INTO l_value FROM DUAL;
987: SELECT RPAD(l_value,l_total_length,'.') INTO l_value FROM DUAL;
988: END IF;
989: l_final_length := l_total_length + l_extra_decimal;
990: SELECT RPAD(l_value,l_final_length,'0') INTO x_decimal_value FROM DUAL;

Line 987: SELECT RPAD(l_value,l_total_length,'.') INTO l_value FROM DUAL;

983: --l_value := p_value;
984: IF l_dot_precision = 0 THEN
985: l_total_length := l_total_length + 1;
986: --SELECT RPAD(p_value,l_total_length,'.') INTO l_value FROM DUAL;
987: SELECT RPAD(l_value,l_total_length,'.') INTO l_value FROM DUAL;
988: END IF;
989: l_final_length := l_total_length + l_extra_decimal;
990: SELECT RPAD(l_value,l_final_length,'0') INTO x_decimal_value FROM DUAL;
991: END IF;

Line 990: SELECT RPAD(l_value,l_final_length,'0') INTO x_decimal_value FROM DUAL;

986: --SELECT RPAD(p_value,l_total_length,'.') INTO l_value FROM DUAL;
987: SELECT RPAD(l_value,l_total_length,'.') INTO l_value FROM DUAL;
988: END IF;
989: l_final_length := l_total_length + l_extra_decimal;
990: SELECT RPAD(l_value,l_final_length,'0') INTO x_decimal_value FROM DUAL;
991: END IF;
992: END IF;
993: --QZENG bug 13798271 consider exception.
994: EXCEPTION