STANDARD DATA DICTIONARY #394.87 -- VAQ - WORKLOAD FILE 6/27/25 PAGE 1
STORED IN ^VAT(394.87, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains statistics concerning the workload done using PDX. PDX workload is considered to be requesting patient
information from another facility, manually processing requests from another facility, and uploading PDX data to the Patient File.
Work done by the PDX Server is also stored in this file.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: Date/Time of Work(B)
394.87,.01 Date/Time of Work 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 28, 1993
DESCRIPTION:
When work was done.
CROSS-REFERENCE: 394.87^B
1)= S ^VAT(394.87,"B",$E(X,1,30),DA)=""
2)= K ^VAT(394.87,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^394.87^.02
1)= X ^DD(394.87,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.87,D0,0)):^(0),1:"") S X=$P(Y(1),U,
2),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.87,.01,1,2,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.87,D0,0)):^(0),1:"") S X=$S('$D(
^VA(200,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))=""
1.4)= S DIH=$S($D(^VAT(394.87,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.87,DIG=.02 D ^
DICR:$N(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= Done By=""
CREATE VALUE)= S X=$G(DUZ)
DELETE VALUE)= NO EFFECT
FIELD)= Done By
User that did the specified work is automatically added.
394.87,.02 Done By 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 08, 1992
DESCRIPTION:
Who did the work.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the Date/Time of Work field of the VAQ - WORKLOAD File
394.87,.03 Work Done 0;3 POINTER TO VAQ - WORK FILE (#394.88)
LAST EDITED: DEC 08, 1992
DESCRIPTION:
Type of work done.
394.87,10 Patient Ptr PAT;1 POINTER TO PATIENT FILE (#2)
LAST EDITED: DEC 08, 1992
DESCRIPTION:
On whom the work was done.
CROSS-REFERENCE: ^^TRIGGER^394.87^11
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.87,D0,"PAT")):^("PAT"),1:"") S X=$P(Y(1),U,
2),X=X S DIU=X K Y X ^DD(394.87,10,1,1,1.1) X ^DD(394.87,10,1,1,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.87,DIV(0),"PAT")):^("PAT"),1:""),DIV=X S $P(^("PAT"),U,2)=DIV,DIH=394.87
,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.87,D0,"PAT")):^("PAT"),1:"") S X=$P(Y(1),U,
2),X=X S DIU=X K Y S X="" X ^DD(394.87,10,1,1,2.4)
2.4)= S DIH=$S($D(^VAT(394.87,DIV(0),"PAT")):^("PAT"),1:""),DIV=X S $P(^("PAT"),U,2)=DIV,DIH=394.87
,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= Patient Ptr:NAME
DELETE VALUE)= @
FIELD)= #11
CROSS-REFERENCE: ^^TRIGGER^394.87^12
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.87,D0,"PAT")):^("PAT"),1:"") S X=$P(Y(1),U,
3),X=X S DIU=X K Y X ^DD(394.87,10,1,2,1.1) X ^DD(394.87,10,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,9) S D0=I(0,0)
1.4)= S DIH=$S($D(^VAT(394.87,DIV(0),"PAT")):^("PAT"),1:""),DIV=X S $P(^("PAT"),U,3)=DIV,DIH=394.87
,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.87,D0,"PAT")):^("PAT"),1:"") S X=$P(Y(1),U,
3),X=X S DIU=X K Y S X="" X ^DD(394.87,10,1,2,2.4)
2.4)= S DIH=$S($D(^VAT(394.87,DIV(0),"PAT")):^("PAT"),1:""),DIV=X S $P(^("PAT"),U,3)=DIV,DIH=394.87
,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= Patient Ptr:SOCIAL SECURITY NUMBER
DELETE VALUE)= @
FIELD)= #12
394.87,11 Patient's Name PAT;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: DEC 08, 1992
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION:
Name of the patient on whom the work was done.
NOTES: TRIGGERED by the Patient Ptr field of the VAQ - WORKLOAD File
394.87,12 Patient's SSN PAT;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<9)!'((X?9N)!(X?9N1"P")) X
LAST EDITED: DEC 08, 1992
HELP-PROMPT: Answer must be 9-10 characters in length.
DESCRIPTION:
Social Security Number of the patient on whom the work was done.
NOTES: TRIGGERED by the Patient Ptr field of the VAQ - WORKLOAD File
394.87,13 Patient ID PAT;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 15, 1993
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION:
Patient ID of the patient on whom the work was done.
394.87,20 Remote Facility FAC;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: DEC 08, 1992
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION:
Facility associated with the transaction.
394.87,21 Remote Domain FAC;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>120!($L(X)<1) X
LAST EDITED: DEC 08, 1992
HELP-PROMPT: Answer must be 1-120 characters in length.
DESCRIPTION:
Domain associated with the transaction.
394.87,30 Segment in Transaction SGMNT;0 POINTER Multiple #394.873
DESCRIPTION:
Multiple containing all data segments contained in the transaction.
394.873,.01 Segment in Transaction 0;1 POINTER TO VAQ - DATA SEGMENT FILE (#394.71) (Multiply asked)
LAST EDITED: MAR 10, 1993
DESCRIPTION:
Data segment that was contained in the transaction.
CROSS-REFERENCE: 394.873^B
1)= S ^VAT(394.87,DA(1),"SGMNT","B",$E(X,1,30),DA)=""
2)= K ^VAT(394.87,DA(1),"SGMNT","B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
NEW PERSON (#200) Done By (#.02)
PATIENT (#2) Patient Ptr (#10)
VAQ - DATA SEGMENT (#394.71) Segment in Transaction:Segment in Transaction (#.01)
VAQ - WORK (#394.88) Work Done (#.03)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
VAQ WORK-LOAD REPORT SEP 21, 1993@08:49 USER #0 Work Done Using Patient Data Exchange (PDX)
SORT TEMPLATE(S):
VAQ WORK-LOAD BY DATE JAN 22, 1993@11:26 USER #0
SORT BY: Date/Time of Work// (User is asked range)
VAQ WORK-LOAD BY FACILITY JAN 21, 1993@13:57 USER #0
SORT BY: Remote Facility//
WITHIN Remote Facility, SORT BY: Date/Time of Work//
VAQ WORK-LOAD BY PATIENT JAN 26, 1993@14:22 USER #0
SORT BY: Patient's Name//
WITHIN Patient's Name, SORT BY: Patient ID//
WITHIN Patient ID, SORT BY: Remote Facility//
WITHIN Remote Facility, SORT BY: Date/Time of Work//
VAQ WORK-LOAD BY WORK SEP 21, 1993@08:54 USER #0
SORT BY: @Work Done:Work//
WITHIN Work Done:Work, SORT BY: Date/Time of Work//
FORM(S)/BLOCK(S):