STANDARD DATA DICTIONARY #537000 -- VAMC NETWORK HEALTH EXCHANGE FILE 9/29/25 PAGE 1
STORED IN ^AFJ(537000, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
The Network Health Exchange is a program whereby selected hospitals can request complete or pharmacy Health Summaries from each
other.
IDENTIFIED BY:
"W1": N AX S AX=$P(^(0),U,2) D EN^DDIOL($E(AX,4,5)_"-"_$E(AX,6,7)_"-"_$E(AX,2,3),"","?0")
"W3": D EN^DDIOL($P(^(0),U,4),"","?0")
"W7": D EN^DDIOL($P(^(0),U,8),"","?0")
"W8": D EN^DDIOL($$GET1^DIQ(537000,Y_",",8),"","?0")
CROSS
REFERENCED BY: MESSAGE ID(B), REQUESTING PLACE(C), DATE/TIME RECEIVED(D), REQUESTOR NAME(E), PATIENT SSN(F)
537000,.01 MESSAGE ID 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: JAN 11, 1993
HELP-PROMPT: MAIL MESSAGE NUMBER OF REQUESTING FACILITY
DESCRIPTION:
This is the message number from the requesting facility.
CROSS-REFERENCE: 537000^B
1)= S ^AFJ(537000,"B",$E(X,1,30),DA)=""
2)= K ^AFJ(537000,"B",$E(X,1,30),DA)
537000,1 DATE/TIME RECEIVED 0;2 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 27, 1994
DESCRIPTION:
DATE REQUEST WAS MADE.
CROSS-REFERENCE: 537000^D
1)= S ^AFJ(537000,"D",$E(X,1,30),DA)=""
2)= K ^AFJ(537000,"D",$E(X,1,30),DA)
DATE OF REQUEST
537000,2 REQUEST TYPE 1;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: MAY 07, 1993
HELP-PROMPT: ALL DATA OR JUST PHARMACY AND BRIEF
DESCRIPTION:
TYPE OF REQUEST: TOTAL (ALL) OR PHARMACY DATA AND ALSO BRIEF DISPLAY OF DATA
537000,3 PATIENT SSN 0;4 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<9) X
LAST EDITED: MAY 10, 1993
HELP-PROMPT: SSN, ALLOWS FOR DASHES
DESCRIPTION:
PATIENT'S SSN. MUST BE IN YOUR PATIENT FILE
CROSS-REFERENCE: 537000^F
1)= S ^AFJ(537000,"F",$E(X,1,30),DA)=""
2)= K ^AFJ(537000,"F",$E(X,1,30),DA)
SSN
537000,6 REQUESTOR DUZ 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: JAN 11, 1993
HELP-PROMPT: REQUESTOR'S DUZ
DESCRIPTION:
DUZ OF REQUESTOR
537000,7 REQUESTOR NAME 0;8 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X
LAST EDITED: MAR 16, 1995
HELP-PROMPT: NAME OF REQUESTOR
DESCRIPTION:
NAME OF REQUESTOR
CROSS-REFERENCE: 537000^E
1)= S ^AFJ(537000,"E",$E(X,1,30),DA)=""
2)= K ^AFJ(537000,"E",$E(X,1,30),DA)
537000,8 REQUESTING PLACE 1;1 POINTER TO DOMAIN FILE (#4.2)
LAST EDITED: NOV 15, 2001
HELP-PROMPT: Enter the domain where the request originated.
DESCRIPTION:
FACILITY REQUESTING DATA
CROSS-REFERENCE: 537000^C
1)= S ^AFJ(537000,"C",$E(X,1,30),DA)=""
2)= K ^AFJ(537000,"C",$E(X,1,30),DA)
REQUESTING PLACE FOR PATIENT DATA
537000,9 PATIENT DATA FOUND? 1;2 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: AUG 01, 1994
HELP-PROMPT: WAS THE DATA FOUND?
DESCRIPTION:
WAS THIS DATA FOUND SUCESSFULLY. AUDITED
537000,10 SENSITIVE PATIENT? 1;4 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 31, 1993
HELP-PROMPT: WAS THIS SENSITIVE PATIENT, IF SO SENDS BULLETIN TO ISO
DESCRIPTION:
IS THIS A SENSITIVE PATIENT? IF SO, SENDS BULLETIN TO SECURITY OFFICER.
537000,11 OUTGOING REQUEST? 1;5 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: SEP 07, 1993
537000,12 DATE/TIME COMPLETED 1;6 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 27, 1994
FILES POINTED TO FIELDS
DOMAIN (#4.2) REQUESTING PLACE (#8)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):