Global: ^VAT(394

FileMan FileNo	FileMan Filename	Package
394	*PDX TRANSACTION	Patient Data Exchange

Package	Total	Routines
Patient Data Exchange	4	VAQPST21 VAQPST22 VAQPST23 VAQUTL1

Package	Total	FileMan Files
Patient Data Exchange	1	*PDX DATA(#394.1)[.03]

Package	Total	FileMan Files
Patient Data Exchange	1	*PDX STATUS(#394.3)[11]
Registration	1	PATIENT(#2)[8]

Fields, Total: 22

Field #	Name	Loc	Type	Details
.01	DATE/TIME OF REQUEST	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 15, 1990` DESCRIPTION: `This is the date/time that the request was entered or returned from the processing site.` PRE-LOOKUP: `Q:(X="")!(X["^") I '$D(VAQFLAG) K X W:DIC(0)["E" !,*7,"Information in this file may only be entered/edited through the PDX routines"` CROSS-REFERENCE: `394^B` `1)= S ^VAT(394,"B",$E(X,1,30),DA)=""` `2)= K ^VAT(394,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `394^AC^MUMPS` `1)= S $P(^VAT(394,DA,0),U,2)=DA` `2)= Q`
1	PDX REQUEST #	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 11, 1990` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
2	PARENT PDX #	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 11, 1990` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
3	PATIENT NAME	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 15, 1990` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `394^NAME` `1)= S ^VAT(394,"NAME",$E(X,1,30),DA)=""` `2)= K ^VAT(394,"NAME",$E(X,1,30),DA)`
4	SOCIAL SECURITY #	0;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1)!'((X?9N)!(X?9N1"P")) X` LAST EDITED: `DEC 03, 1990` HELP-PROMPT: `Enter patient's SSN without dashes (123-45-6789 becomes 123456789)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `394^SS` `1)= S ^VAT(394,"SS",$E(X,1,30),DA)=""` `2)= K ^VAT(394,"SS",$E(X,1,30),DA)`
5	CLAIM #	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `NOV 19, 1990` HELP-PROMPT: `Answer must be 1-10 characters in length.`
6	DATE OF BIRTH	0;7	DATE	INPUT TRANSFORM: `S %DT="E",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 03, 1990` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	PID	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 11, 1990` HELP-PROMPT: `Answer must be 1-20 characters in length.`
8	PATIENT POINTER	0;9	POINTER TO PATIENT FILE (#2)	PATIENT(#2) LAST EDITED: `APR 11, 1990`
9	REQUESTOR DUZ	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `MAY 24, 1990` HELP-PROMPT: `Type a Number between 0 and 999999, 1 Decimal Digit`
9.5	REQUESTOR NAME	0;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 24, 1990` HELP-PROMPT: `Answer must be 3-30 characters in length.`
9.7	REQUESTOR FACILITY	0;20	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `NOV 13, 1990` HELP-PROMPT: `Answer must be 1-9 characters in length.`
9.9	NETWORK ADDRESS	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `NOV 15, 1990` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `THIS IS THE "RETURN" ADDRESS FOR THE MESSAGE. THE NETWORK ADDRESS OF THE SITE SENDING THIS MESSAGE IS STORED HERE.`
10	PDX CODE	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `APR 11, 1990` HELP-PROMPT: `Answer must be 1-7 characters in length.`
11	PDX STATUS	0;12	POINTER TO *PDX STATUS FILE (#394.3)	*PDX STATUS(#394.3) LAST EDITED: `NOV 13, 1990` CROSS-REFERENCE: `394^AD` `1)= S ^VAT(394,"AD",$E(X,1,30),DA)=""` `2)= K ^VAT(394,"AD",$E(X,1,30),DA)`
11.5	COMMENTS	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `JUN 18, 1991` HELP-PROMPT: `Enter any comments included with the message`
12	REMOTE MESSAGE ID	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 11, 1990` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
13	LOCAL MESSAGE ID	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 19, 1990` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits` CROSS-REFERENCE: `394^AE` `1)= S ^VAT(394,"AE",$E(X,1,30),DA)=""` `2)= K ^VAT(394,"AE",$E(X,1,30),DA)`
14	AUTHORIZER DUZ	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `MAY 24, 1990` HELP-PROMPT: `Type a Number between 0 and 999999, 1 Decimal Digit`
15	AUTHORIZER NAME	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 11, 1990` HELP-PROMPT: `Answer must be 3-30 characters in length.`
16	AUTHORIZER FACILITY	0;17	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X` LAST EDITED: `APR 28, 1993` HELP-PROMPT: `Answer must be 1-9 characters in length.` CROSS-REFERENCE: `394^BS5^MUMPS` `1)= Q:($P(^VAT(394,DA,0),U,4)']"")!($P(^VAT(394,DA,0),U,5)']"") S ^VAT(394,"BS5",$E($P(^(0),U,4),1)_$E($P(^(0),U,5),6,9),DA)=""` `2)= Q:($P(^VAT(394,DA,0),U,4)']"")!($P(^VAT(394,DA,0),U,5)']"") K ^VAT(394,"BS5",$E($P(^(0),U,4),1)_$E($P(^(0),U,5),6,9),DA)` CROSS-REFERENCE: `394^APDX^MUMPS` `1)= Q:($P(^VAT(394,DA,0),U,1)']"")!($P(^(0),U,4)']"") S VAQTMP=0 S:'$D(VAQ15) VAQ15=$O(^VAT(394.3,"B",15,"")),VAQ16=$O(^VAT(394.3,"B",16,"")),VAQTMP=1 D APDX^VAQUTL1` `2)= Q:($P(^VAT(394,DA,0),U,1)']"")!($P(^(0),U,4)']"") K ^VAT(394,"APDX",$P(^(0),U,4),X,(9999999.999999-$P(^(0),U,1)),DA)` CROSS-REFERENCE: `394^A1AY^MUMPS` `1)= Q:($T(^A1AYFMX2)="") D PDXTRIG^A1AYFMX2(1)` `2)= Q:($T(^A1AYFMX2)="") D PDXTRIG^A1AYFMX2(0)` `This MUMPS cross-reference is used to update information in the A1AY FOREIGN FACILITY XREF file (#11400.2). It updates the following information :` `LAST PDX TRANSACTION (#3) - Sets/kills the pointer to PDX message` `LAST PDX DATE (#4) - Sets field to date of PDX message` `LAST PDX STATUS (#5) - Sets field to status of PDX message`
17	PURGE	0;18	SET	'1' FOR YES; LAST EDITED: `APR 11, 1990`

Customize PDF page

Package: Patient Data Exchange

Global: ^VAT(394

Information

Description

Directly Accessed By Routines, Total: 4

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 22