VIAB GETDEM (4456)    REMOTE PROCEDURE (8994)

CALLS VADPT WITH DFN AND RETURNS AN ARRAY WITH PATIENT DEMOGRAPHIC DATA :
 
Using GLOBAL ARRAY with $NA returning the ^TMP global reference. See PIMS 
manual for details of the ^VADPT API call.

• DFN
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   12
  REQUIRED:   YES
  SEQUENCE NUMBER:   1
  DESCRIPTION:   

  DFN = PATIENT FILE 2 IEN
  

Arrayfrom VADPT that looks as such:
^TMP("VIABDEM",6379,9)="6^PRESBYTERIAN"
^TMP("VIABDEM",6379,10)="2^MARRIED"
^TMP("VIABDEM",6379,11)=1
^TMP("VIABDEM",6379,11,1)="2^NOT HISPANIC OR LATINO"
^TMP("VIABDEM",6379,11,1,1)="1^SELF IDENTIFICATION"
^TMP("VIABDEM",6379,12)=3
^TMP("VIABDEM",6379,12,1)="5^ASIAN"
^TMP("VIABDEM",6379,12,1,1)="2^PROXY"
^TMP("VIABDEM",6379,12,2)="11^NATIVE HAWAIIAN OR OTHER PACIFIC ISLANDER"
^TMP("VIABDEM",6379,12,2,1)="4^UNKNOWN"
^TMP("VIABDEM",6379,1)="PATIENT,GETDEM"
^TMP("VIABDEM",6379,12,3)="13^WHITE"
^TMP("VIABDEM",6379,12,3,1)="1^SELF IDENTIFICATION"
^TMP("VIABDEM",6379,13)=""
^TMP("VIABDEM",6379,13,1)=""
^TMP("VIABDEM",6379,"BID")=FOUR
^TMP("VIABDEM",6379,"PID")="SSN-NO-FOUR"
 
Will appear to web service as such:
 
PATIENT,GETDEM
^TMP("VIABDEM",6379,2)="SOCIALSECURITYNUMBER^SSN-NO-FOUR"
SOCIALSECURITYNUMBER^SSN-NO-FOUR
2440923^SEP 23,1944
M^MALE
 
 
 
6^PRESBYTERIAN
2^MARRIED
^TMP("VIABDEM",6379,3)="2440923^SEP 23,1944"
2^NOT HISPANIC OR LATINO
1^SELF IDENTIFICATION
5^ASIAN
2^PROXY
11^NATIVE HAWAIIAN OR OTHER PACIFIC ISLANDER
4^UNKNOWN
13^WHITE
1^SELF IDENTIFICATION
^TMP("VIABDEM",6379,4)=75
^TMP("VIABDEM",6379,5)="M^MALE"
^TMP("VIABDEM",6379,6)=""
^TMP("VIABDEM",6379,7)=""
^TMP("VIABDEM",6379,8)=""