CREATE OR REPLACE PACKAGE INVOKE_MAP_NA IS 
 
  PROCEDURE  CALL_MAPPING ( P_IN_ADDRESS IN VARCHAR2
                          , P_IN_CITY IN VARCHAR2
                          , P_IN_STATE IN VARCHAR2
                          , P_IN_ZIP5 IN VARCHAR2
                          , P_OUT_ADDRESS OUT NOCOPY VARCHAR2
                          , P_OUT_CITY OUT NOCOPY VARCHAR2
                          , P_OUT_STATE OUT NOCOPY VARCHAR2
                          , P_OUT_ZIP5 OUT NOCOPY VARCHAR2
                          , P_OUT_ZIP4 OUT NOCOPY VARCHAR2
                          )  ; 
END INVOKE_MAP_NA;
/
     
CREATE OR REPLACE PACKAGE BODY INVOKE_MAP_NA AS 
     
  PROCEDURE  CALL_MAPPING ( P_IN_ADDRESS IN VARCHAR2
                          , P_IN_CITY IN VARCHAR2
                          , P_IN_STATE IN VARCHAR2
                          , P_IN_ZIP5 IN VARCHAR2
                          , P_OUT_ADDRESS OUT NOCOPY VARCHAR2
                          , P_OUT_CITY OUT NOCOPY VARCHAR2
                          , P_OUT_STATE OUT NOCOPY VARCHAR2
                          , P_OUT_ZIP5 OUT NOCOPY VARCHAR2
                          , P_OUT_ZIP4 OUT NOCOPY VARCHAR2
                          ) IS 
    l_result number ;
    l_audit_id number ;

  begin

    rtr.run_owb_code( l_result
    , l_audit_id
    , 'RTR'
    , 'WS_TARGET_LOC'
    , 'PLSQL'
    , 'MAP_NA'
    , '","'
    , 'PI_ADDRESS='
      || p_in_address
      || ',PI_CITY='
      || p_in_city
      || ',PI_STATE='
      || p_in_state
      || ',PI_ZIP5='
      || p_in_zip5
    ) ;

    if l_result = 1
    then

      dbms_output.put_line('Mapping execution was successful') ;

      p_out_address := rtr.wb_rt_api_exec.get_output_parameter(l_audit_id,'PO_ADDRESS') ;
      p_out_city := rtr.wb_rt_api_exec.get_output_parameter(l_audit_id,'PO_CITY') ;
      p_out_state := rtr.wb_rt_api_exec.get_output_parameter(l_audit_id,'PO_STATE') ;
      p_out_zip5 := rtr.wb_rt_api_exec.get_output_parameter(l_audit_id,'PO_ZIP5') ;
      p_out_zip4 := rtr.wb_rt_api_exec.get_output_parameter(l_audit_id,'PO_ZIP4') ;

    elsif l_result = 2
    then

      dbms_output.put_line('Mapping execution with warning') ;

    else

      dbms_output.put_line('Mapping execution failed') ;

    end if ;

    execute immediate 'alter session set current_schema = rt' ;

  end ;


END INVOKE_MAP_NA;
/