XUS MVI NEW PERSON GET (3817)    REMOTE PROCEDURE (8994)

This restricted RPC is used exclusively by the Master Veteran Index (MVI) 
to retrieve data (by DUZ, SECID, NPI or SSN) from the VistA NEW PERSON 
file (#200).

 Success:
   @XURET@(#)="200;4^SEX^^^"
   @XURET@(#)="8991.9;1.6^STATE^<#>^^"
   @XURET@(#)="8991.9;1.7^ZIP CODE^<#>^^"
   @XURET@(#)="8991.9;2.1^SCHEDULE II NARCOTIC?^<#>^^"
   @XURET@(#)="8991.9;2.2^SCHEDULE II NON-NARCOTIC?^<#>^^"
   @XURET@(#)="8991.9;2.3^SCHEDULE III NARCOTIC?^<#>^^"
   @XURET@(#)="8991.9;2.4^SCHEDULE III NON-NARCOTIC?^<#>^^"
   @XURET@(#)="8991.9;2.5^SCHEDULE IV?^<#>^^"
   @XURET@(#)="8991.9;2.6^SCHEDULE V?^<#>^^"
   @XURET@(#)="8991.9;10.1^LAST UPDATED BY^<#>^^"
   @XURET@(#)="8991.9;10.2^LAST UPDATED DATE/TIME^<#>^^"
   @XURET@(#)="200;5^DOB^^^"
   @XURET@(#)="8991.9;10.3^LAST DOJ UPDATE DATE/TIME^<#>^^"
 
 Fail:
  XURET = ^TMP("XUMVINPU",$J)
  @XURET@(1)="-1^Invalid User"
           or
  @XURET@(1)="-1^No Data for User: ######"
   @XURET@(#)="200;8^TITLE^^^"
   @XURET@(#)="200;7^DISUSER^^^"
   @XURET@(#)="200;9.2^TERMINATION DATE^^^"
   @XURET@(#)="200;9.4^Termination Reason^^^"
   @XURET@(#)="200;15^PROHIBITED TIMES FOR SIGN-ON^^^"
   @XURET@(#)="200;11.2^DATE VERIFY CODE LAST CHANGED^^^"
   @XURET@(#)="200;.111^STREET ADDRESS 1^^^"
   @XURET@(#)="200;.112^STREET ADDRESS 2^^^"
  XURET = ^TMP("XUMVINPU",$J)
   @XURET@(#)="200;.113^STREET ADDRESS 3^^^"
   @XURET@(#)="200;.114^CITY^^^"
   @XURET@(#)="200;.115^STATE^^^"
   @XURET@(#)="200;.116^ZIP CODE^^^"
   @XURET@(#)="200;.132^OFFICE PHONE^^^"  
   @XURET@(#)="200;.136^FAX NUMBER^^^"
   @XURET@(#)="200;.151^EMAIL ADDRESS^^^"
   @XURET@(#)="200;30^DATE ENTERED^^^"
   @XURET@(#)="200;31^CREATOR^^^"
   @XURET@(#)="200;41.98^NPI ENTRY STATUS^^^"
   @XURET@(#) = FILE #;FIELD #<;SUBFIELD #><;FILE POINTER>^FIELD 
   @XURET@(#)="200;41.99^NPI^^^"
   @XURET@(#)="200;9^SSN^^^"
   @XURET@(#)="200;42;.01^EFFECTIVE DATE/TIME^<1-n>^^"
   @XURET@(#)="200;42;.02^STATUS^<#>^^"
   @XURET@(#)="200;42;.03^NPI^<#>^^"
   @XURET@(#)="200;101.13;.01^CPRS TAB^<1-n>^^"
   @XURET@(#)="200;101.13;.02^EFFECTIVE DATE^<#>^^"
   @XURET@(#)="200;101.13;.03^EXPIRATION DATE^<#>^^"
   @XURET@(#)="200;202^LAST SIGN-ON DATE/TIME^^^"
   @XURET@(#)="200;202.02^XUS Logon Attempt Count^^^"
NAME^<COUNTER #>^INTERNAL VALUE^EXTERNAL VALUE
   @XURET@(#)="200;202.03^XUS Active User^^^"
   @XURET@(#)="200;202.04^Entry Last Edit Date^^^"
   @XURET@(#)="200;202.05^LOCKOUT USER UNTIL^^^"
   @XURET@(#)="200;16;.01^DIVISION^<1-n>^^"
   @XURET@(#)="200;10.1^NAME COMPONENTS^^^"
   @XURET@(#)="20;1^FAMILY (LAST) NAME^^^"
   @XURET@(#)="20;2^GIVEN (FIRST) NAME^^^"
   @XURET@(#)="20;3^MIDDLE NAME^^^"
   @XURET@(#)="20;4^PREFIX^^^"
   @XURET@(#)="20;5^SUFFIX^^^"
     <> Denotes optional values. If Counter populated, denotes multiple 
   @XURET@(#)="20;6^DEGREE^^^"
   @XURET@(#)="200;29^SERVICE/SECTION^^^"
   @XURET@(#)="200;201^PRIMARY MENU OPTION^^^"
   @XURET@(#)="200;203;.01^SECONDARY MENU OPTIONS^<1-n>^^"
   @XURET@(#)="200;51;.01^KEYS^<1-n>^^"
   @XURET@(#)="200;205.1^SECID^^^"
   @XURET@(#)="200;205.2^SUBJECT ORGANIZATION^^^"
   @XURET@(#)="200;205.3^SUBJECT ORGANIZATION ID^^^"
   @XURET@(#)="200;205.4^UNIQUE USER ID^^^"
   @XURET@(#)="200;205.5^ADUPN^^^"
        value <1-n>
   @XURET@(#)="200;501.1^NETWORK USERNAME^^^"
   @XURET@(#)="200;8932.1;.01^PERSON CLASS^<1-n>^^"
   @XURET@(#)="200;8932.1;2^EFFECTIVE DATE^<#>^^"
   @XURET@(#)="200;8932.1;3^EXPIRATION DATE^<#>^^"
   @XURET@(#)="200;53.1^AUTHORIZED TO WRITE MED ORDERS^^^"
   @XURET@(#)="200;53.11^DETOX/MAINTENANCE ID NUMBER^^^"
   @XURET@(#)="200;53.2^DEA#^^^"
   @XURET@(#)="200;747.44^DEA EXPIRATION DATE^^^"
   @XURET@(#)="200;53.4^INACTIVE DATE^^^"
   @XURET@(#)="200;53.5^PROVIDER CLASS^^^"
   
   @XURET@(#)="200;53.6^PROVIDER TYPE^^^"
   @XURET@(#)="200;53.9^REMARKS^^^"
   @XURET@(#)="200;53.91^NON-VA PRESCRIBER^^^"
   @XURET@(#)="200;53.92^TAX ID^^^"
   @XURET@(#)="200;55.1^SCHEDULE II NARCOTIC^^^"
   @XURET@(#)="200;55.2^SCHEDULE II NON-NARCOTIC^^^"
   @XURET@(#)="200;55.3^SCHEDULE III NARCOTIC^^^"
   @XURET@(#)="200;55.4^SCHEDULE III NON-NARCOTIC^^^"
   @XURET@(#)="200;55.5^SCHEDULE IV^^^"
   @XURET@(#)="200;55.6^SCHEDULE V^^^"
   @XURET@(#)="200;IEN^DUZ^^^"
 
   **The following are ONLY returned if patch
   **XU*8.0*688 has been installed.
   **Subscript Counter (#) will denote the DEA Data that belongs to the 
     DEA NUMBER subscript
   ** New DEA Data will always follow the DEA NUMBER entry!
   @XURET@(#)="200;9001^DETOX CALCULATED^^^"
   @XURET@(#)="200;53.21;.01;8991.9^DEA NUMBER^<1-n>^^"
   @XURET@(#)="200;53.21;.02^INDIVIDUAL DEA SUFFIX^<#>^^"
   **Only returned if there is a DEA NUMBER (200.5321) value!!**
   @XURET@(#)="200;.01^NAME^^^"
   @XURET@(#)="8991.9;.02^BUSINESS ACTIVITY CODE^<#>^^"
   @XURET@(#)="8991.9;.03^DETOX NUMBER^<#>^^"
   @XURET@(#)="8991.9;.04^EXPIRATION DATE^<#>^^"
   @XURET@(#)="8991.9;.06^USE FOR INPATIENT ORDERS?^<#>^^"
   @XURET@(#)="8991.9;.07^TYPE^<#>^^"
   @XURET@(#)="8991.9;1.1^NAME (PROVIDER OR INSTITUTION)^<#>^^"
   @XURET@(#)="8991.9;1.2^STREET ADDRESS 1^<#>^^"
   @XURET@(#)="8991.9;1.3^STREET ADDRESS 2^<#>^^"
   @XURET@(#)="8991.9;1.4^STREET ADDRESS 3^<#>^^"
   @XURET@(#)="8991.9;1.5^CITY^<#>^^"