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

Name Value
NAME XUS MVI NEW PERSON BULK GET
TAG BULKGET
ROUTINE XUMVINPB
RETURN VALUE TYPE GLOBAL ARRAY
AVAILABILITY AGREEMENT
WORD WRAP ON TRUE
VERSION 1
APP PROXY ALLOWED No
DESCRIPTION 
This restricted RPC is used exclusively by the Master Veteran Index (MVI)
to retrieve data in bulk from the VistA NEW PERSON file (#200).
INPUT PARAMETER
  • 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)
RETURN PARAMETER DESCRIPTION 
  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;EOF^EOF^" - if end of new person file reached 
 
          <> Denotes optional values.
  Fail:
    @XURET@(#)="-1^No Data to Retrieve"
          If Counter populated, denotes multiple value <1-n>
 
    @XURET@(#)="200;IEN^DUZ^^^"
    @XURET@(#)="200;.01^NAME^^^"