STANDARD DATA DICTIONARY #408 -- DISCRETIONARY WORKLOAD FILE 3/24/25 PAGE 1
STORED IN ^VAT(408, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds the discretionary workload reports.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: REPORT MONTH/YR (#1), SITE CODE (#2), REPORT TYPE (#4)
CROSS
REFERENCED BY: SITE CODE(AC), *TRANSMISSION(AD), REPORT TYPE(AE), RUN DATE(B), REPORT MONTH/YR(C)
408,.01 RUN DATE 0;1 DATE (Required) (Multiply asked)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X S DINUM=X
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 408^B
1)= S ^VAT(408,"B",$E(X,1,30),DA)=""
2)= K ^VAT(408,"B",$E(X,1,30),DA)
408,1 REPORT MONTH/YR 0;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
CROSS-REFERENCE: 408^C
1)= S ^VAT(408,"C",$E(X,1,30),DA)=""
2)= K ^VAT(408,"C",$E(X,1,30),DA)
408,1.5 REPORT RANGE 0;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: JUL 10, 1989
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
DESCRIPTION:
This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
408,2 SITE CODE 0;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X
HELP-PROMPT: Answer must be 3-15 characters in length.
CROSS-REFERENCE: 408^AC
1)= S ^VAT(408,"AC",$E(X,1,30),DA)=""
2)= K ^VAT(408,"AC",$E(X,1,30),DA)
408,3 INSTITUTION 0;4 POINTER TO INSTITUTION FILE (#4)
408,4 REPORT TYPE 0;5 SET
'1' FOR OPC VISITS;
'2' FOR DISCHARGES;
'3' FOR OPC RESEARCH;
'4' FOR OPC 10/10 VISITS;
CROSS-REFERENCE: 408^AE^MUMPS
1)= S ^VAT(408,"AE",$P(^VAT(408,DA,0),U,2),$P(^(0),U,3),$E(X,1,30),DA)=""
2)= K ^VAT(408,"AE",$P(^VAT(408,DA,0),U,2),$P(^(0),U,3),$E(X,1,30),DA)
408,5 *TRANSMISSION 0;6 SET
'0' FOR NO;
'1' FOR YES;
CROSS-REFERENCE: 408^AD
1)= S ^VAT(408,"AD",$E(X,1,30),DA)=""
2)= K ^VAT(408,"AD",$E(X,1,30),DA)
408,6 ELAPSED TIME 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<3) X
HELP-PROMPT: Answer must be 3-15 characters in length.
408,7 MESSAGE DATE 0;8 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
408,7.5 MESSAGE ID 2;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100000000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 10, 1989
HELP-PROMPT: Type a Number between 0 and 100000000, 0 Decimal Digits
DESCRIPTION:
This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
408,7.7 REMOTE MESSAGE ID 2;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<2) X
LAST EDITED: JUL 10, 1989
HELP-PROMPT: ANSWER MUST BE 2-45 CHARACTERS IN LENGTH
DESCRIPTION:
This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
408,8 ELIGIBILITY 1;0 SET Multiple #408.08 (Add New Entry without Asking)
408.08,.01 ELIGIBILITY 0;1 SET (Multiply asked)
'1' FOR SC 50-100%;
'2' FOR A&A/HB/WW1/POW/MEX;
'3' FOR SC<50%;
'4' FOR NSC/PEN;
'5' FOR NSC;
'6' FOR DOM;
'7' FOR VE ERROR;
'8' FOR CHAMPVA;
'9' FOR COLLATERAL;
'10' FOR EMPLOYEE;
'11' FOR OTHER FED;
'12' FOR ALLIED VET;
'13' FOR HUMANITARIAN;
'14' FOR SHARING;
'15' FOR REIMB INSURANCE;
'16' FOR NV ERROR;
CROSS-REFERENCE: 408.08^B
1)= S ^VAT(408,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^VAT(408,DA(1),1,"B",$E(X,1,30),DA)
408.08,1 AS 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
408.08,2 AN 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
408.08,3 B0 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
408.08,4 C0 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
408.08,5 N0 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
408.08,6 X0 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
408.08,7 U0 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
CROSS-REFERENCE: ^^TRIGGER^408.08^8
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(408,D0,1,D1,0)):^(0),1:"") S
X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(408.08,7,1,1,1.1) X ^DD(408.08,7,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^VAT(408,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2)+$P(Y(1),U,3)+$P(Y(1),U,
4)+$P(Y(1),U,5)+$P(Y(1),U,6)+$P(Y(1),U,7)+DIV
1.4)= S DIH=$S($D(^VAT(408,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99)) S
DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=408.
08,DIG=8 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(408,D0,1,D1,0)):^(0),1:"") S
X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(408.08,7,1,1,2.4)
2.4)= S DIH=$S($D(^VAT(408,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99)) S
DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=408.
08,DIG=8 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= AS+AN+B0+C0+N0+X0+U0
DELETE VALUE)= @
FIELD)= TOTAL MT
408.08,8 TOTAL MT 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
NOTES: TRIGGERED by the U0 field of the ELIGIBILITY sub-field of the DISCRETIONARY WORKLOAD File
408,9 PTS REMAINING 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
408,10 DUZ 2;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 06, 1990
DESCRIPTION:
This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
408,11 COMPLETED? 2;4 SET
'0' FOR PENDING;
'1' FOR COMPLETE;
'2' FOR NEW;
LAST EDITED: JUL 10, 1989
DESCRIPTION:
This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
FILES POINTED TO FIELDS
INSTITUTION (#4) INSTITUTION (#3)
NEW PERSON (#200) DUZ (#10)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
DGOD COMPLETE INP PRINT JUN 23, 1989 USER #0 DISCRETIONARY WORK STATISTICS-INPATIENT
DGOD COMPLETE OPC PRINT JUN 23, 1989 USER #0 DISCRETIONARY WORK STATISTICS-OUTPATIENT
SORT TEMPLATE(S):
DGOD COMPLETE INP JUN 22, 1989 USER #0
SORT BY: ]+#SITE CODE//
WITHIN SITE CODE, SORT BY: +REPORT MONTH/YR// (User is asked range)
WITHIN REPORT MONTH/YR, SORT BY: REPORT TYPE="DISCHARGES";L1// From '0' To '1'
WITHIN REPORT TYPE="DISCHARGES", SORT BY: +@REPORT TYPE//
DGOD COMPLETE OPC JUN 22, 1989 USER #0
SORT BY: ]+#SITE CODE//
WITHIN SITE CODE, SORT BY: +REPORT MONTH/YR// (User is asked range)
WITHIN REPORT MONTH/YR, SORT BY: REPORT TYPE'="DISCHARGES";L1// From '0' To '1'
WITHIN REPORT TYPE'="DISCHARGES", SORT BY: +@REPORT TYPE//
FORM(S)/BLOCK(S):