STANDARD DATA DICTIONARY #394 -- *PDX TRANSACTION FILE 3/24/25 PAGE 1
STORED IN ^VAT(394, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file has been replaced with the VAQ - TRANSACTION file (#394.61).
Version 1.0 of PDX used this file to store administrative information concerning all PDX transmissions. Version 1.5 of PDX has
marked it for deletion and version 2.0 will delete it.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: PATIENT NAME (#3)[R], SOCIAL SECURITY # (#4)[R]
POINTED TO BY: DATE/TIME OF REPLY field (#.03) of the *PDX DATA File (#394.1)
CROSS
REFERENCED BY: AUTHORIZER FACILITY(A1AY), DATE/TIME OF REQUEST(AC), PDX STATUS(AD), LOCAL MESSAGE ID(AE),
AUTHORIZER FACILITY(APDX), DATE/TIME OF REQUEST(B), AUTHORIZER FACILITY(BS5), PATIENT NAME(NAME),
SOCIAL SECURITY #(SS)
394,.01 DATE/TIME OF REQUEST 0;1 DATE (Required) (Multiply asked)
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 entere
d/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
394,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
394,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
394,3 PATIENT NAME 0;4 FREE TEXT (Required)
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)
394,4 SOCIAL SECURITY # 0;5 FREE TEXT (Required)
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)
394,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.
394,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
394,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.
394,8 PATIENT POINTER 0;9 POINTER TO PATIENT FILE (#2)
LAST EDITED: APR 11, 1990
394,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
394,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.
394,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.
394,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.
394,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.
394,11 PDX STATUS 0;12 POINTER TO *PDX STATUS FILE (#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)
394,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
394,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
394,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)
394,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
394,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.
394,16 AUTHORIZER FACILITY 0;17 FREE TEXT (Required)
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.99
9999-$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
394,17 PURGE 0;18 SET
'1' FOR YES;
LAST EDITED: APR 11, 1990
FILES POINTED TO FIELDS
*PDX STATUS (#394.3) PDX STATUS (#11)
PATIENT (#2) PATIENT POINTER (#8)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):