APPS.PER_RO_NI_VALIDATION dependencies on DUAL

Line 129: select extract(YEAR FROM P_DATE_OF_BIRTH) into l_year from dual;

125: Y2:=to_number(substr(P_NATIONAL_IDENTIFIER,2,2));
126: M4:=to_number(substr(P_NATIONAL_IDENTIFIER,4,2));
127: D6:=to_number(substr(P_NATIONAL_IDENTIFIER,6,2));
128: C8:=to_number(substr(P_NATIONAL_IDENTIFIER,8,2));
129: select extract(YEAR FROM P_DATE_OF_BIRTH) into l_year from dual;
130: select extract(Month FROM P_DATE_OF_BIRTH) into l_month from dual;
131: select extract(day FROM P_DATE_OF_BIRTH) into l_date from dual;
132:
133: if (S1 in (1,3,5,7,9) and P_SEX <> 'M') or (S1 in (2,4,6,8,9) and P_SEX <> 'F') or S1 =0 then

Line 130: select extract(Month FROM P_DATE_OF_BIRTH) into l_month from dual;

126: M4:=to_number(substr(P_NATIONAL_IDENTIFIER,4,2));
127: D6:=to_number(substr(P_NATIONAL_IDENTIFIER,6,2));
128: C8:=to_number(substr(P_NATIONAL_IDENTIFIER,8,2));
129: select extract(YEAR FROM P_DATE_OF_BIRTH) into l_year from dual;
130: select extract(Month FROM P_DATE_OF_BIRTH) into l_month from dual;
131: select extract(day FROM P_DATE_OF_BIRTH) into l_date from dual;
132:
133: if (S1 in (1,3,5,7,9) and P_SEX <> 'M') or (S1 in (2,4,6,8,9) and P_SEX <> 'F') or S1 =0 then
134: l_valid_flag := FALSE;

Line 131: select extract(day FROM P_DATE_OF_BIRTH) into l_date from dual;

127: D6:=to_number(substr(P_NATIONAL_IDENTIFIER,6,2));
128: C8:=to_number(substr(P_NATIONAL_IDENTIFIER,8,2));
129: select extract(YEAR FROM P_DATE_OF_BIRTH) into l_year from dual;
130: select extract(Month FROM P_DATE_OF_BIRTH) into l_month from dual;
131: select extract(day FROM P_DATE_OF_BIRTH) into l_date from dual;
132:
133: if (S1 in (1,3,5,7,9) and P_SEX <> 'M') or (S1 in (2,4,6,8,9) and P_SEX <> 'F') or S1 =0 then
134: l_valid_flag := FALSE;
135: return_value := 4;