APPS.IBY_VALIDATIONSETS_CALLS_PUB dependencies on DUAL

Line 11300: FROM dual;

11296: raise e_kid_feil;
11297: END IF;
11298: SELECT lpad(v_kid_nr,v_kid_lengde,0)
11299: INTO v_kid
11300: FROM dual;
11301: -- uni_lpad_p(v_kid_nr, v_kid_lengde, v_kid);
11302: /* Modulus 10 control */
11303: /* Calculates product and digitsum for each digit,
11304: from right towards left */

Line 11326: /* is residual unlike controldigit, the kid_nr is invalid */

11322: WHILE v_sum_10 > 10 loop
11323: v_sum_10 := v_sum_10 - 10;
11324: END LOOP;
11325: v_rest_10 := 10 - v_sum_10;
11326: /* is residual unlike controldigit, the kid_nr is invalid */
11327: if ((substr(v_kid,25,1)) <> '-') then
11328: if (to_number(substr(v_kid,25,1)) <> v_rest_10) then
11329: v_status_10 := 1;
11330: end if;

Line 11364: /* is residual like 1, must the kid ends with '-' */

11360: /* calculate mod 11 of v_sum_11 */
11361: while v_sum_11 > 11 loop
11362: v_sum_11 := v_sum_11 - 11;
11363: end loop;
11364: /* is residual like 1, must the kid ends with '-' */
11365: if (((v_sum_11 = 1)
11366: and (substr(v_kid,25,1) <> '-'))
11367: or ((v_sum_11 <> 1)
11368: and (substr(v_kid,25,1) = '-'))) then

Line 11372: /* is residual unlike control digit, the kid_nr is invalid */

11368: and (substr(v_kid,25,1) = '-'))) then
11369: v_status_11 := 1;
11370: elsif ((substr(v_kid,25,1)) <> '-') then
11371: v_rest_11 := 11 - v_sum_11;
11372: /* is residual unlike control digit, the kid_nr is invalid */
11373: if (to_number(substr(v_kid,25,1)) <> v_rest_11) then
11374: v_status_11 := 1;
11375: end if;
11376: end if;