Testing LOA-WD procedures

declare
  spriden_id_in          varchar2(9)  := '999999999';
  p_pidm_in              number       := 0;
  loaw_ind_in            varchar2(1)  := 'W';
  request_date           date         := '11-SEP-2012';
  p_leave_term_code      varchar2(6)  := '201310';
  probable_return_term   varchar2(6)  := 'N/A';
  p_leav_code_in         varchar2(1)  := 'F';
  p_wdrl_code_in         varchar2(2)  := 'WO';
begin
  -- get the ID
  select spriden_pidm into p_pidm_in
   from spriden
   where spriden_change_ind is null
   and spriden_id = spriden_id_in;
   
  pkg_drew_wf_loa_wd.p_drop_reg ( p_pidm_in            => p_pidm_in,
                                  loaw_ind_in          => loaw_ind_in,
                                  request_date         => request_date,
                                  p_leave_term_code    => p_leave_term_code,
                                  probable_return_term => probable_return_term );
                                  
  pkg_drew_wf_loa_wd.p_update_stdn ( p_pidm_in            => p_pidm_in,
                                     loaw_ind_in          => loaw_ind_in,
                                     request_date         => request_date,
                                     p_leave_term_code    => p_leave_term_code,
                                     probable_return_term => probable_return_term,
                                     p_leav_code_in       => p_leav_code_in );
               
  pkg_drew_wf_loa_wd.p_add_hold ( p_pidm_in            => p_pidm_in,
                                  request_date         => request_date );

  pkg_drew_wf_loa_wd.p_create_wdrl ( p_pidm_in         => p_pidm_in,
                                     request_date      => request_date,
                                     p_leave_term_code => p_leave_term_code,
                                     p_wdrl_code_in    => p_wdrl_code_in );

  commit;
  
end;
/