Global: ^VAT(394.61

FileMan FileNo	FileMan Filename	Package
394.61	VAQ - TRANSACTION	Patient Data Exchange

Package	Total	Routines
Patient Data Exchange	7	VAQEXT03 VAQFILE VAQLED09 VAQPRE39 VAQREQ06 VAQUIN01 VAQUTL96

Package	Total	FileMan Files
Patient Data Exchange	1	VAQ - DATA(#394.62)[40]

Package	Total	FileMan Files
Patient Data Exchange	3	VAQ - DATA SEGMENT(#394.71)[#394.618(.01)] VAQ - ENCRYPTION METHOD(#394.72)[41] VAQ - STATUS(#394.85)[.02, .05]
Kernel	1	NEW PERSON(#200)[#394.6171(.01)]
Registration	1	PATIENT(#2)[.03]

Fields, Total: 26

Field #	Name	Loc	Type	Details
.01	Transaction Number	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 08, 1992` HELP-PROMPT: `Type a Number between 1 and 999999999999, 0 Decimal Digits` DESCRIPTION: `Unique number identifying the transaction.` PRE-LOOKUP: `I X="+" S X=$$AUTO^VAQXRF2(1) K:(X<0) X` CROSS-REFERENCE: `394.61^B` `1)= S ^VAT(394.61,"B",$E(X,1,30),DA)=""` `2)= K ^VAT(394.61,"B",$E(X,1,30),DA)`
.02	Current Status	0;2	POINTER TO VAQ - STATUS FILE (#394.85)	VAQ - STATUS(#394.85) LAST EDITED: `FEB 15, 1994` DESCRIPTION: `Current status of the transaction.` CROSS-REFERENCE: `394.61^STATUS` `1)= S ^VAT(394.61,"STATUS",$E(X,1,30),DA)=""` `2)= K ^VAT(394.61,"STATUS",$E(X,1,30),DA)` CROSS-REFERENCE: `394.61^PPP^MUMPS` `1)= S VAQXRF=X S X="PPPFMX2" X ^%ZOSF("TEST") D:($T) PDXTRIG^PPPFMX2(DA,1) S X=VAQXRF K VAQXRF` `2)= S VAQXRF=X S X="PPPFMX2" X ^%ZOSF("TEST") D:($T) PDXTRIG^PPPFMX2(DA,0) S X=VAQXRF K VAQXRF` `Updates information in the PPP FOREIGN FACILITY XREF file (#1020.2). This is only executed if Prescription Practices has been installed at the local facility.`
.03	Patient Ptr	0;3	POINTER TO PATIENT FILE (#2)	PATIENT(#2) LAST EDITED: `DEC 07, 1992` DESCRIPTION: `Link to where the patient is stored locally.` CROSS-REFERENCE: `394.61^PATPTR` `1)= S ^VAT(394.61,"PATPTR",$E(X,1,30),DA)=""` `2)= K ^VAT(394.61,"PATPTR",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^394.61^10` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(394.61,.03,1,2,1.1) X ^DD(394.61,.03,1,2,1.4)` `1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)` `1.4)= S DIH=$S($D(^VAT(394.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,1)=DIV,DIH=394.61,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" X ^DD(394.61,.03,1,2,2.4)` `2.4)= S DIH=$S($D(^VAT(394.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,1)=DIV,DIH=394.61,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= Patient Ptr:NAME` `DELETE VALUE)= @` `FIELD)= #10` CROSS-REFERENCE: `^^TRIGGER^394.61^11` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.61,.03,1,3,1.1) X ^DD(394.61,.03,1,3,1.4)` `1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(101),U,9) S D0=I(0,0)` `1.4)= S DIH=$S($D(^VAT(394.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,2)=DIV,DIH=394.61,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(394.61,.03,1,3,2.4)` `2.4)= S DIH=$S($D(^VAT(394.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,2)=DIV,DIH=394.61,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= Patient Ptr:SOCIAL SECURITY NUMBER` `DELETE VALUE)= @` `FIELD)= #11` CROSS-REFERENCE: `^^TRIGGER^394.61^12` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(394.61,.03,1,4,1.1) X ^DD(394.61,.03,1,4,1.4)` `1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=I(0,0)` `1.4)= S DIH=$S($D(^VAT(394.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,3)=DIV,DIH=394.61,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,"QRY")):^("QRY"),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(394.61,.03,1,4,2.4)` `2.4)= S DIH=$S($D(^VAT(394.61,DIV(0),"QRY")):^("QRY"),1:""),DIV=X S $P(^("QRY"),U,3)=DIV,DIH=394.61,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= Patient Ptr:DATE OF BIRTH` `DELETE VALUE)= @` `FIELD)= #12`
.04	Sensitive Patient	0;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 24, 1992` DESCRIPTION: `Set to YES if the patient was flagged as sensitive at the remote facility.`
.05	Release Status	0;5	POINTER TO VAQ - STATUS FILE (#394.85)	VAQ - STATUS(#394.85) LAST EDITED: `MAR 26, 1993` DESCRIPTION: `This is used when a PDX Request has been processed and requires transmission. The status placed here will be used when building the resulting message (i.e. background job building message will use this status).`
.06	Remote Transaction Number	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 06, 1993` HELP-PROMPT: `Type a Number between 1 and 999999999999, 0 Decimal Digits` DESCRIPTION: `This is used to store the transaction number of this transaction on the remote system. This field will primarily be used for PDX Requests and Unsolicited PDXs that have been received from a remote facility.`
.07	Remote Version Number	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."4N.N) X` LAST EDITED: `APR 21, 1993` HELP-PROMPT: `Type a Number between 1 and 999, 3 Decimal Digits` DESCRIPTION: `This is used to store the version of PDX that the remote site is using. This field will primarily be used when requests are processed and returned and when a message must be retransmitted.`
10	Patient's Name	QRY;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `Name of the patient.` NOTES: `TRIGGERED by the Patient Ptr field of the VAQ - TRANSACTION File` CROSS-REFERENCE: `394.61^NAME` `1)= S ^VAT(394.61,"NAME",$E(X,1,30),DA)=""` `2)= K ^VAT(394.61,"NAME",$E(X,1,30),DA)` CROSS-REFERENCE: `394.61^BS51^MUMPS` `1)= S VAQXRF=$$BS5^VAQXRF2(DA,1) K VAQXRF` `2)= S VAQXRF=$$BS5^VAQXRF2(DA,0,10,X) K VAQXRF` `Creates a cross reference based on the first letter of the patient's last name concatenated with the last 4 digits (plus pseudo indicator) of the patient's social security number.` `Resulting node ==> ^VAT(394.61,"BS5",($E([10],1)_$E([11],6,10)),DA)` `Where: [10] is field number 10` `[11] is field number 11` `DA is the entry number` `The resulting node is created by the BS51 and BS52 cross references. Re-indexing either of these cross references will correctly update/create the resulting node.`
11	Patient's SSN	QRY;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9)!'((X?9N)!(X?9N1"P")) X` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `Answer must be 9-10 characters in length.` DESCRIPTION: `Social Security Number of the patient.` NOTES: `TRIGGERED by the Patient Ptr field of the VAQ - TRANSACTION File` CROSS-REFERENCE: `394.61^SSN` `1)= S ^VAT(394.61,"SSN",$E(X,1,30),DA)=""` `2)= K ^VAT(394.61,"SSN",$E(X,1,30),DA)` CROSS-REFERENCE: `394.61^BS52^MUMPS` `1)= S VAQXRF=$$BS5^VAQXRF2(DA,1) K VAQXRF` `2)= S VAQXRF=$$BS5^VAQXRF2(DA,0,11,X) K VAQXRF` `Creates a cross reference based on the first letter of the patient's last name concatenated with the last 4 digits (plus pseudo indicator) of the patient's social security number.` `Resulting node ==> ^VAT(394.61,"BS5",($E([10],1)_$E([11],6,10)),DA)` `Where: [10] is field number 10` `[11] is field number 11` `DA is the entry number` `The resulting node is created by the BS51 and BS52 cross references. Re-indexing either of these cross references will correctly update/create the resulting node.`
12	Patient's DOB	QRY;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 24, 1992` DESCRIPTION: `Date the patient was born.` NOTES: `TRIGGERED by the Patient Ptr field of the VAQ - TRANSACTION File`
13	Patient ID	QRY;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `NOV 24, 1992` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `A unique identifier of the patient.`
20	Date/Time of Request	RQST1;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 24, 1992` DESCRIPTION: `Date and time the request was made.`
21	Requestor	RQST1;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAY 03, 1993` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `Person who initiated the request.` CROSS-REFERENCE: `394.61^AC` `1)= S ^VAT(394.61,"AC",$E(X,1,30),DA)=""` `2)= K ^VAT(394.61,"AC",$E(X,1,30),DA)`
30	Requesting Site	RQST2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `NOV 24, 1992` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `From where the request was initiated.`
31	Requesting Address	RQST2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<1) X` LAST EDITED: `NOV 24, 1992` HELP-PROMPT: `Answer must be 1-120 characters in length.` DESCRIPTION: `Network address of the requesting site.`
40	Encrypted	NCRPT;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `NOV 24, 1992` DESCRIPTION: `Set to YES if data was encrypted for transmission.`
41	Encryption Method	NCRPT;2	POINTER TO VAQ - ENCRYPTION METHOD FILE (#394.72)	VAQ - ENCRYPTION METHOD(#394.72) LAST EDITED: `NOV 24, 1992` DESCRIPTION: `Type of encryption used.`
50	Date/Time of Reply	ATHR1;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 12, 1993` DESCRIPTION: `Date and time the reply was received.`
51	Authorizer	ATHR1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `NOV 25, 1992` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `Person who released the patient information.`
60	Authorizing Site	ATHR2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `NOV 25, 1992` HELP-PROMPT: `Answer must be 1-80 characters in length.` DESCRIPTION: `From where the patient information came.`
61	Authorizing Address	ATHR2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>120!($L(X)<1) X` LAST EDITED: `NOV 25, 1992` HELP-PROMPT: `Answer must be 1-120 characters in length.` DESCRIPTION: `Network address of the authorizing site.`
70	Data in Notification	NTFY1;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 25, 1992` DESCRIPTION: `Set to YES if requested data is included in the return of data notification(s).`
71	Notify	NTFY2;0	POINTER Multiple #394.6171	394.6171 DESCRIPTION: `Multiple containing all people to notify upon return of data.`
80	Data Segment	SEG;0	POINTER Multiple #394.618	394.618 DESCRIPTION: `Multiple containing the data segments contained in the transaction.`
90	Purge	PRG;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 25, 1992` DESCRIPTION: `Flag indicating if the transaction should be deleted.` CROSS-REFERENCE: `394.61^PURGE` `1)= S ^VAT(394.61,"PURGE",$E(X,1,30),DA)=""` `2)= K ^VAT(394.61,"PURGE",$E(X,1,30),DA)`
100	Comment	CMNT;0	WORD-PROCESSING #394.611	DESCRIPTION: `Comment that was associated with the transaction.` LAST EDITED: `JAN 13, 1993` DESCRIPTION: `Line of text contained in the comment.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #272	Integrated Billing
ICR #298	Health Summary
ICR #439	Pharmacy Prescription Practice	Transaction Number (.01). Access: Read w/Fileman	As the result of changing from a local name space (A1AY)and numbering sequence to a national name space (PPP) andnumbering sequence, Pharmacy Prescription Practices v1.0(PPP) will need to kill and directly set MUMPS crossreferences in the VAQ - TRANSACTION file.As the result of changing from a local name space (A1AY)and numbering sequence to a national name space (PPP) andnumbering sequence, Pharmacy Prescription Practices v1.0(PPP) will need to kill and directly set MUMPS crossreferences in the VAQ - TRANSACTION file.The cross reference to create this is a MUMPS crossreference on the Current Statusfield (#.02) of the VAQ - TRANSACTION file (#394.61) This crossreference is used to update information in the PPP FOREIGN FACILITY XREF file(#1020.2).
ICR #1166	Pharmacy Prescription Practice	Transaction Number (.01). Access: Direct Global Read & w/Fileman Data Segment (80). Access: Direct Global Read & w/Fileman Date/Time of Reply (50). Access: Direct Global Read & w/Fileman Authorizer (51). Access: Direct Global Read & w/Fileman Authorizing Site (60). Access: Direct Global Read & w/Fileman Authorizing Address (61). Access: Direct Global Read & w/Fileman Patients SSN (11). Access: Direct Global Read & w/Fileman

Customize PDF page

Package: Patient Data Exchange

Global: ^VAT(394.61

Information

Description

Accessed By FileMan Db Calls, Total: 7

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 5

Fields, Total: 26

ICR, Total: 4