Global: ^VAT(394.61

Information

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

Description

This file holds information describing each PDX transaction. A PDX transaction is created when one of the following events occur. (1) A PDX Request is defined and sent (2) A PDX Request is received from a remote facility (3) An Unsolicited PDX is defined and sent (4) An Unsolicited PDX is received from a remote facility Per VHA Directive 10-93-142, this file definition should not be modified.

Package	Total	Routines
Patient Data Exchange	71	Data Segment Notify VAQ REQUIRES PROCESSING VAQ TRANSACTIONS BY STATUS VAQADM22 VAQADM50 VAQADS01 VAQBUL01 VAQBUL02 VAQBUL03 VAQBUL04 VAQBUL06 VAQCON0 VAQCON1 VAQCON2 VAQCON3 VAQCON4 VAQCON5 VAQCON6 VAQCON7 VAQCON8 VAQCON93 VAQCON94 VAQCON97 VAQCON98 VAQCON99 VAQDBI VAQDBIM VAQDBIM0 VAQDBIP VAQDBIP1 VAQDBIP3 VAQDBIP4 VAQDIS11 VAQDIS12 VAQDIS15 VAQEXT01 VAQEXT04 VAQEXT05 VAQEXT06 VAQFIL10 VAQFIL12 VAQFIL13 VAQFIL14 VAQFIL15 VAQFIL16 VAQFIL17 VAQFIL18 VAQFILE VAQFILE1 VAQHSH VAQLED01 VAQLED02 VAQLED04 VAQLED07 VAQLED09 VAQLED10 VAQPSE01 VAQPSE02 VAQPUR10 VAQPUR11 VAQREQ01 VAQUPD1 VAQUPD2 VAQUPD25 VAQUTL3 ^VAT(394.61 VAQUTL92 VAQUTL96 VAQUTL97 VAQXRF2
Pharmacy Prescription Practice	2	Data Segment Notify
Registration	2	VAQ REQUIRES PROCESSING VAQ TRANSACTIONS BY STATUS
Health Summary	1	GMTSPDX
Integrated Billing	1	IBAPDX

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, Total: 4

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

External References

Name	Field # of Occurrence
^%DT	12+1, 20+1, 50+1, 12+1, 20+1, 50+1
^DICR	.03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4), .03(XREF 4n1.4), .03(XREF 4n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4) , .03(XREF 4n1.4), .03(XREF 4n2.4)
PDXTRIG^PPPFMX2	.02(XREF 2S), .02(XREF 2K), .02(XREF 2S), .02(XREF 2K)
$$AUTO^VAQXRF2	.01TPL+1, .01TPL+1
$$BS5^VAQXRF2	10(XREF 2S), 10(XREF 2K), 11(XREF 2S), 11(XREF 2K), 10(XREF 2S), 10(XREF 2K), 11(XREF 2S), 11(XREF 2K)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	.02(XREF 2S), .02(XREF 2K), .02(XREF 2S), .02(XREF 2K)
^DD(	.03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4), .03(XREF 4n1.4), .03(XREF 4n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4) , .03(XREF 4n1.4), .03(XREF 4n2.4)
^DD(394.61	.03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K) , .03(XREF 4S), .03(XREF 4K)
^DPT - [#2]	.03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1), .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1)
^VAT(394.61 - [#394.61]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4) , .03(XREF 3S), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), 10(XREF 1S), 10(XREF 1K) , 11(XREF 1S), 11(XREF 1K), 21(XREF 1S), 21(XREF 1K), 90(XREF 1S), 90(XREF 1K), .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K) , .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4) , .03(XREF 4S), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), 10(XREF 1S), 10(XREF 1K), 11(XREF 1S), 11(XREF 1K), 21(XREF 1S), 21(XREF 1K) , 90(XREF 1S), 90(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^("QRY"	IDWRITE1+1, .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S) , .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), IDWRITE1+1, .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.4) , .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4)
^(0	.03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1), .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	12+1, 20+1, 50+1, 12+1, 20+1, 50+1
>> D0	.03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2K), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3K), .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4K), .03(XREF 2S) , .03(XREF 2n1.1), .03(XREF 2K), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3K), .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4K)
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K) , .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 11(XREF 1S), 11(XREF 1K) , 11(XREF 2S), 11(XREF 2K), 21(XREF 1S), 21(XREF 1K), 90(XREF 1S), 90(XREF 1K), .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K) , .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K) , 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K), 11(XREF 1S), 11(XREF 1K), 11(XREF 2S), 11(XREF 2K), 21(XREF 1S), 21(XREF 1K) , 90(XREF 1S), 90(XREF 1K)
>> DIG	.03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4), .03(XREF 4n1.4), .03(XREF 4n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4) , .03(XREF 4n1.4), .03(XREF 4n2.4)
>> DIH	.03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4), .03(XREF 4n1.4), .03(XREF 4n2.4), .03(XREF 2n1.4), .03(XREF 2n2.4), .03(XREF 3n1.4), .03(XREF 3n2.4) , .03(XREF 4n1.4), .03(XREF 4n2.4)
>> DIU	.03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K) , .03(XREF 4S), .03(XREF 4K)
DIV	.03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4) , .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4) , .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4)
DIV(0	.03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.4) , .03(XREF 4K), .03(XREF 4n2.4), .03(XREF 2S), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4) , .03(XREF 4S), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4)
>> I(0	.03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1), .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1)
U	IDWRITE1+1, .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K) , .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), IDWRITE1+1, .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4) , .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4n1.4) , .03(XREF 4K), .03(XREF 4n2.4)
VAQXRF	IDWRITE1+1!, .02(XREF 2S), .02(XREF 2K), 10(XREF 2S), 10(XREF 2K), 11(XREF 2S), 11(XREF 2K), IDWRITE1+1!, .02(XREF 2S), .02(XREF 2K) , 10(XREF 2S), 10(XREF 2K), 11(XREF 2S), 11(XREF 2K)
X	.01+1!, .01TPL+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4) , .03(XREF 4S), .03(XREF 4n1.1), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), .06+1!, .07+1!, 10+1!, 10(XREF 1S), 10(XREF 1K) , 10(XREF 2K), 11+1!, 11(XREF 1S), 11(XREF 1K), 11(XREF 2K), 12+1!, 13+1!, 20+1!, 21+1!, 21(XREF 1S) , 21(XREF 1K), 30+1!, 31+1!, 50+1!, 51+1!, 60+1!, 61+1!, 90(XREF 1S), 90(XREF 1K), .01+1! , .01TPL+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S) , .03(XREF 2n1.1), .03(XREF 2n1.4), .03(XREF 2K), .03(XREF 2n2.4), .03(XREF 3S), .03(XREF 3n1.1), .03(XREF 3n1.4), .03(XREF 3K), .03(XREF 3n2.4), .03(XREF 4S) , .03(XREF 4n1.1), .03(XREF 4n1.4), .03(XREF 4K), .03(XREF 4n2.4), .06+1!, .07+1!, 10+1!, 10(XREF 1S), 10(XREF 1K), 10(XREF 2K) , 11+1!, 11(XREF 1S), 11(XREF 1K), 11(XREF 2K), 12+1!, 13+1!, 20+1!, 21+1!, 21(XREF 1S), 21(XREF 1K) , 30+1!, 31+1!, 50+1!, 51+1!, 60+1!, 61+1!, 90(XREF 1S), 90(XREF 1K)
Y	.03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), 12+1, 20+1, 50+1, .03(XREF 2S) , .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), 12+1, 20+1, 50+1
Y(1	.03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .03(XREF 4S), .03(XREF 4K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K) , .03(XREF 4S), .03(XREF 4K)
Y(101	.03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1), .03(XREF 2n1.1), .03(XREF 3n1.1), .03(XREF 4n1.1)

Customize PDF page

Package: Patient Data Exchange

Global: ^VAT(394.61

Information

Description

Directly Accessed By Routines, Total: 87

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

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: