VIAB GETDEM

TITLEVALUE
NAMEVIAB GETDEM
DESCRIPTIONCALLS 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.
TAGGETDEM
ROUTINEVIABRPC3
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERDFN
DESCRIPTIONDFN = PATIENT FILE 2 IEN
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH12

RETURN VALUE TYPEGLOBAL ARRAY
RETURN PARAMETER DESCRIPTIONArrayfrom VADPT that looks as such:
^TMP("VIABDEM",6379,1)="PATIENT,GETDEM"
^TMP("VIABDEM",6379,2)="SOCIALSECURITYNUMBER^SSN-NO-FOUR"
^TMP("VIABDEM",6379,3)="2440923^SEP 23,1944"
^TMP("VIABDEM",6379,4)=75
^TMP("VIABDEM",6379,5)="M^MALE"
^TMP("VIABDEM",6379,6)=""
^TMP("VIABDEM",6379,7)=""
^TMP("VIABDEM",6379,8)=""
^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,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
SOCIALSECURITYNUMBER^SSN-NO-FOUR
2440923^SEP 23,1944
75
M^MALE



6^PRESBYTERIAN
2^MARRIED
1
2^NOT HISPANIC OR LATINO
1^SELF IDENTIFICATION
3
5^ASIAN
2^PROXY
11^NATIVE HAWAIIAN OR OTHER PACIFIC ISLANDER
4^UNKNOWN
13^WHITE
1^SELF IDENTIFICATION
AVAILABILITYPUBLIC
INACTIVE
CLIENT MANAGER
WORD WRAP ONTRUE
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWEDYes