VIAB GETDEM (4456)    REMOTE PROCEDURE (8994)

Name Value
NAME VIAB GETDEM
TAG GETDEM
ROUTINE VIABRPC3
RETURN VALUE TYPE GLOBAL ARRAY
AVAILABILITY PUBLIC
WORD WRAP ON TRUE
APP PROXY ALLOWED Yes
DESCRIPTION
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.
INPUT PARAMETER
  • DFN
    PARAMETER TYPE:   LITERAL
    MAXIMUM DATA LENGTH:   12
    REQUIRED:   YES
    SEQUENCE NUMBER:   1
    DESCRIPTION:   
    DFN = PATIENT FILE 2 IEN
    
RETURN PARAMETER DESCRIPTION
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)=""