XUS MVI NEW PERSON BULK GET (4189)    REMOTE PROCEDURE (8994)

This restricted RPC is used exclusively by the Master Veteran Index (MVI)
to retrieve data in bulk from the VistA NEW PERSON file (#200).

• XUDUZ
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   40
  REQUIRED:   YES
  SEQUENCE NUMBER:   1
  DESCRIPTION:   

  The File IEN in the NEW PERSON file (#200).  The RPC will START looping 
  with this IEN to retrieve the 'NEXT' NEW PERSON meeting the selected
  criteria.
  

• XUTYPE
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   3
  REQUIRED:   YES
  SEQUENCE NUMBER:   2
  DESCRIPTION:   

  The TYPE of NEW PERSON's to retrieve from the NEW PERSON (#200) file:
   
  'A'ctive   (not disuser'd, not terminated and has a primary menu option)
  'D'isuser'd or Terminated
  'V'isitor  (person has visitor records)
  'ALL'      (retrieve all new person's)
  

  Success:
    @XURET@(#)="200;.111^STREET ADDRESS 1^^^"
    @XURET@(#)="200;.112^STREET ADDRESS 2^^^"
    @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;.151^EMAIL ADDRESS^^^"
    @XURET@(#)="200;4^SEX^^^"
    @XURET@(#)="200;5^DOB^^^"
   XURET = ^TMP("XUMVINPU",$J)
    @XURET@(#)="200;7^DISUSER^^^"
    @XURET@(#)="200;8^TITLE^^^"
    @XURET@(#)="200;9^SSN^^^"
    @XURET@(#)="200;9.2^TERMINATION DATE^^^"
    @XURET@(#)="200;16;.01^DIVISION^<1 to 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@(#) = FILE #;FIELD #;<SUBFIELD #>;^FIELD NAME^<COUNTER #>^
    @XURET@(#)="20;5^SUFFIX^^^"
    @XURET@(#)="20;6^DEGREE^^^"
    @XURET@(#)="200;29^SERVICE/SECTION^^^"
    @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^^^"
    @XURET@(#)="200;501.1^NETWORK USERNAME^^^"
    @XURET@(#)="200;41.99^NPI^^^"
                 INTERNAL VALUE^EXTERNAL VALUE
    @XURET@(#)="200;53.2^DEA#^^^"
    @XURET@(#)="200;747.44^DEA EXPIRATION DATE^^^"
    @XURET@(#)="200;201^PRIMARY MENU OPTION^^^"
    @XURET@(#)="200;203;.01^SECONDARY MENU OPTIONS^<1 to n>^^"
    @XURET@(#)="200;51;.01^KEY^<1 to n>^^"
    @XURET@(#)="200;8910;.01~2^VISITED FROM~DUZ AT HOME SITE^<1 to n>^~^~"
    @XURET@(#)="200;101.13;.01~.02~.03^CPRS TAB~EFFECTIVE DATE~EXPIRATION 
                DATE^<1 to n>^~~^~~"
    @XURET@(#)="200;8932.1;.01~2~3~[5]^PERSON CLASS~EFFECTIVE 
                DATE~EXPIRATION DATE~[VA CODE]^<1-n>^~~~^~~~"
          <> Denotes optional values.
    @XURET@(#)="200;53.1^AUTHORIZED TO WRITE MED ORDERS^^^"
    @XURET@(#)="200;53.11^DETOX/MAINTENANCE ID NUMBER^^^"
    @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^^^"
          If Counter populated, denotes multiple value <1-n>
    @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^^^"
    The following fields are returned ONLY if Patch XU*8.0*688 is 
    installed!
      @XURET@(#)="200;9001^DETOX CALCULATED^^^"
      @XURET@(#)="200;53.21;.01~.02^DEA NUMBER~ INDIVIDUAL DEA 
                  SUFFIX^<1-n>^~~^~~"
        *Only returned if there is a DEA NUMBER (200.5321) value!
 
         Immediately follows DEA NUMBER and <#> will match DEA NUMBER 
         Subscript*
          @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@(#)="200;IEN^DUZ^^^"
          @XURET@(#)="8991.9;1.4^STREET ADDRESS 3^<#>^^"
          @XURET@(#)="8991.9;1.5^CITY^<#>^^"
          @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@(#)="200;.01^NAME^^^"
          @XURET@(#)="8991.9;10.1^LAST UPDATED BY^<#>^^"
          @XURET@(#)="8991.9;10.2^LAST UPDATED DATE/TIME^<#>^^"
          @XURET@(#)="8991.9;10.3^LAST DOJ UPDATE DATE/TIME^<#>^^"
    @XURET@(#)="200;20.2^SIGNATURE BLOCK PRINTED NAME^^^"
    @XURET@(#)="200;20.3^SIGNATURE BLOCK TITLE^^^"
    @XURET@(#)="200;EOF^EOF^" - if end of new person file reached 
 
  Fail:
    @XURET@(#)="-1^No Data to Retrieve"