use loop and declare variables to call procedure

migrate.sql

  BEGIN
  FOR i IN (SELECT DUPPIDM as pidm FROM MIGRATEPIDMS) LOOP

     declare
       P_APPL_NO_OUT NUMBER;
       term NUMBER;
       num_apps NUMBER;
     begin

     select count(*) into num_apps from saradap where saradap_pidm = i.pidm;

      IF num_apps > 0
        THEN

       select saradap_term_code_entry into term from saradap where saradap_pidm = i.pidm and rownum < 2;


       BANINST1.ZP_ADMISSION.ADD_ADMISSION_APPLICATION(
           P_PIDM => i.pidm,
           P_TERM_CODE => term,
           P_APPL_NO => 3,
           P_ADMISSION_TYPE => 'AR',
           P_STUDENT_TYPE => 'N',
           P_LEVEL_CODE => 'GR',
           P_APPLICATION_DATE => sysdate,
           P_APPLICATION_STATUS_CODE => 'X',
           P_CAMPUS_CODE => 'M',
           P_COLLEGE_CODE => 'GS',
           P_DEGREE_CODE => 'CRED',
           P_MAJOR_CODE => 'GEDC',
           P_FEE_IND => 'W',
           P_FEE_DATE => sysdate,
           P_FEE_ACCOUNT_MISC_IND => '',
           P_FEE_AMOUNT => 0,
           P_FEE_TRANSACTION_NUMBER => 0,
           P_FEE_CASHIER_USER_ID => '',
           P_RESIDENCY_CODE => '0',
           P_APPL_NO_OUT => P_APPL_NO_OUT
       );
       dbms_output.put_line('P_APPL_NO_OUT = ' || P_APPL_NO_OUT);
      end if;
     end;
    dbms_output.put_line(i.pidm);
  END LOOP;
END;