STANDARD DATA DICTIONARY #64.5 -- LAB REPORTS FILE 3/24/25 PAGE 1
STORED IN ^LAB(64.5, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the design for the output format for the cummulative report and the supervisor's reports. The formats may be
done with tests top to bottom, or left to right; and dates in forward or reverse chronology.
POINTED TO BY: CUMULATIVE REPORT PAGES field (#.01) of the CUMULATIVE REPORT PAGES sub-field (#63.03) of the LAB DATA File (#63)
HEADER field (#.01) of the HEADER sub-field (#64.55) of the DAILY SUMMARY REPORTS sub-field (#64.54) of the LAB
REPORTS File (#64.5)
CROSS
REFERENCED BY: TEST LOCATION(AC), NAME(B), REPORT DATE(MUMPS5)
LAST MODIFIED: JAN 22,2020@11:15:28
64.5,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X I $D(X) S:'$D(^LAB(64.5,1,0)) DINUM=1 K:$D(^LAB(64.5,1,
0)) X
LAST EDITED: NOV 29, 1984
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
There can be only ONE cumulative reports entry.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 64.5^B
1)= S ^LAB(64.5,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.5,"B",$E(X,1,30),DA)
64.5,1 IN/OUT PATIENT 0;6 SET
'1' FOR INPATIENT ONLY;
'2' FOR OUTPATIENT ONLY;
LAST EDITED: APR 03, 1986
HELP-PROMPT: No entry will print all patients. Enter 1 for Inpatients only, 2 for Outpatients only.
DESCRIPTION: This field allows for the turning on or off the ability to print outpatient or inpatient lab
results on the cumulative report. No entry will print all patients. Entry of 1 will print only
inpatients. Entry of 2 will print only outpatients.
64.5,2 REPORT NAME 3;0 Multiple #64.56
DESCRIPTION:
This is an arbitrary report name.
64.56,.01 REPORT NAME 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<2) X
LAST EDITED: FEB 06, 1985
HELP-PROMPT: ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
DESCRIPTION:
This is an arbitrary report name.
CROSS-REFERENCE: 64.56^B
1)= S ^LAB(64.5,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.5,DA(1),3,"B",$E(X,1,30),DA)
64.56,1 DEVICE .1;1 POINTER TO DEVICE FILE (#3.5) (Required)
INPUT TRANSFORM:S PD=$P(X,";",2),X=$P(X,";"),DIC(0)="EMQ" S:$L(PD) DIC("S")="I ^%ZIS(1,+Y,""TYPE"")[""SPL""" D ^DIC
S X=$P(Y,U,2)_$S($L(PD):";",1:"")_PD,DIC=DIE K PD K:Y<1 X
LAST EDITED: APR 30, 1987
HELP-PROMPT: ENTER THE DEVICE FOR THIS RANGE OF LOCATIONS
DESCRIPTION: This field should contain the name(s) of the printers that are used to print the cumulative. A
starting and ending location needs to be defined for each device. This range should include all
locations that desire cumulatives. An example of starting and ending locations for a system using
one printer to print all cumulatives would be:
STARTING LOCATION: (leave blank)
ENDING LOCATION: ZZZZZZ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
64.56,2 MANUAL PRINT .1;2 SET
'1' FOR YES;
LAST EDITED: JAN 17, 1986
HELP-PROMPT: Enter a "YES" in this field if you want to withhold this report from automatic queuing of the
cumulative report.
DESCRIPTION: A "YES" in this field will cause the locations defined in this report not to print with the
automatic queuing capabilities of the cumulative report. To print a report with the manual
designation of this field, use the option LRAC MANUAL and selectively queue this report.
64.56,3 FILE ROOM REPORT .1;3 SET
'1' FOR YES;
LAST EDITED: JAN 13, 1994
HELP-PROMPT: See description for field #17, SEPARATE FILE ROOM, for additional information on using this field.
DESCRIPTION: This field is used to designate a report to print a file room location. It is used in conjunction
with fields #4, "FILE ROOM" and #17 "SEPARATE FILE ROOM". It allows the cumulative to identify
those reports which should be run when a site wishes to print the file room reports and they are
doing so on a schedule separate from the regular cumulative.
See description for field #17, "SEPARATE FILE ROOM", for additional information on using this
field.
SCREEN: S DIC("S")="S LRX=$G(^LAB(64.5,1,3,DA,0)) I $P(LRX,U,2)[""FILE ROOM"",$P(LRX,U,3)[""FILE ROOM"""
EXPLANATION: YES only allowed if starting /ending locations contain "FILE ROOM".
64.56,5 STARTING LOCATION 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: DEC 05, 1985
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION: This is where the starting location is defined for a device printing the cumulative report. If
this field is left blank, then the report will start at the first location.
64.56,10 ENDING LOCATION 0;3 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>20!($L(X)<2) X
LAST EDITED: DEC 17, 1984
HELP-PROMPT: ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
DESCRIPTION:
This is where the ending location is defined for a device printing the cumulative report.
64.56,15 LAST LOCATION 0;4 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X
OUTPUT TRANSFORM:NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAR 13, 1987
HELP-PROMPT: ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
DESCRIPTION: This field is used by the cumulative routines to specify the last printed location for this device.
DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:64.56^MUMPS^MUMPS
1)= S $P(^LAC("DEV",DA,0),"^",1)=X
2)= S $P(^LAC("DEV",DA,0),"^",1)=""
64.56,17 LAST PATIENT 0;5 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<2) X
OUTPUT TRANSFORM:NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAR 13, 1987
HELP-PROMPT: ANSWER MUST BE 2-25 CHARACTERS IN LENGTH
DESCRIPTION: This field is used by the cumulative routines to specify the last printed patient for this device.
DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.
CROSS-REFERENCE:64.56^MUMPS1^MUMPS
1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",2)=X
2)= S $P(^LAC("DEV",DA,0),"^",2)=""
64.56,18 LAST LRDFN 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM:NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAR 13, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999
DESCRIPTION: This field is used by the cumulative routines to specify the last printed DFN. DO NOT FILL IN THIS
FIELD AS PART OF THE INITIAL FILE SET-UP.
CROSS-REFERENCE:64.56^MUMPS2^MUMPS
1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",3)=X
2)= S $P(^LAC("DEV",DA,0),"^",3)=""
64.56,25 STARTING TIME 0;7 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
OUTPUT TRANSFORM:NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAR 13, 1987
DESCRIPTION: This field is used by the cumulative routines to give the starting time of the cumulative for this
device. DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:64.56^MUMPS3^MUMPS
1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",4)=X
2)= S $P(^LAC("DEV",DA,0),"^",4)=""
64.56,26 ENDING TIME 0;8 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
OUTPUT TRANSFORM:NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAR 13, 1987
DESCRIPTION: This field is used by the cumulative routines to give the ending time of the cumulative for this
device. DO NOT FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP.
CROSS-REFERENCE:64.56^MUMPS4^MUMPS
1)= S:$D(X) $P(^LAC("DEV",DA,0),"^",5)=X
2)= S $P(^LAC("DEV",DA,0),"^",5)=""
64.5,3 MICRO REPORTS 0;5 SET
'F' FOR Print only FINAL micro reports;
'P' FOR Print PRELIMINARY & FINAL micro reports;
LAST EDITED: JUN 18, 1987
HELP-PROMPT: If micro reports are to be printed along with cumulative, select the desired entry.
DESCRIPTION: By choosing an entry for this field, microbiology reports will be included with the cumulative.
There are three options available.
1. A null entry means that no micro reports will be included.
2. An entry of "F" means that only 'FINAL' micro reports will print.
3. An entry of "P" means that 'PRELIMINARY' and 'FINAL' reports
will print.
A PRELIMINARY report is one that has a report date approved entered. A FINAL report is one that
has been verified using the Verify by Supervisor option.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
64.5,3.5 BLOOD BANK REPORTS 0;8 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAY 18, 1988
DESCRIPTION: Enter 'YES' if blood bank results are to be printed along
with the cumulative report.
64.5,4 FILE ROOM 0;4 SET
'1' FOR YES;
LAST EDITED: FEB 05, 1985
HELP-PROMPT: AN ENTRY IN THIS FIELD WILL CAUSE ALL OUTPATIENT REPORTS TO PRINT FOR FILE ROOM, AND NOT FOR
REQUESTING CLINIC.
DESCRIPTION: If this field has an entry, then all patients that are considered outpatients (no definition in
^DPT(DFN,.1)), will have their cumulative printed for location: FILE ROOM. No cumulative will be
printed for the requesting location or clinic.
64.5,5 TOP/BOT 0;2 SET (Required)
'T' FOR TOP;
'B' FOR BOTTOM;
DESCRIPTION: This field determines whether the 'VAMC' field is printed at the top of the form or at the bottom
of the form.
64.5,6 SEPARATE REPORT LOCATION 5;0 POINTER Multiple #64.57
DESCRIPTION:
An entry to a separate report location
64.57,.01 SEPARATE REPORT LOCATION 0;1 POINTER TO HOSPITAL LOCATION FILE (#44) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^SC(+Y,0),U,3)'[""W""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 21, 1988
HELP-PROMPT: The location entered in this field will be printed separately from the fileroom
DESCRIPTION: Outpatient locations entered in this field will be excepted from the fileroom print, generating a
separate cumulative report for the location.
SCREEN: S DIC("S")="I $P(^SC(+Y,0),U,3)'[""W"""
EXPLANATION: DO NOT ALLOW INPATIENT LOCATIONS
CROSS-REFERENCE: 64.57^B
1)= S ^LAB(64.5,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.5,DA(1),5,"B",$E(X,1,30),DA)
64.57,1 ALTERNATE FILE ROOM 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<3) X
LAST EDITED: JAN 25, 1994
HELP-PROMPT: Enter a 3-10 character name if this location is to print to an alternate file room.
DESCRIPTION: This field is used to designate those locations which a site wishes to print to a "FILE ROOM"
location but which they do not wish to be a standard file room. This could be sites which have
satellite clinics which have their own file rooms. The name entered here will cause this location
to be sorted to a location called "FILE ROOM_ alternate file room name" followed by a "1" or "2".
The patients will be sorted in terminal digit order similar to the regular file room. This
requires that the site has "FILE ROOM" set to "yes" to sort non in-patients to location "FILE
ROOM".
See description to field #17,"SEPARATE FILE ROOM" for additional information.
64.5,7 REPORT DATE 0;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: MAR 13, 1987
HELP-PROMPT: THIS FIELD IS UPDATED WHEN CUMULATIVE IS RUN. DO NOT EDIT HERE.
DESCRIPTION: REPORT DATE field is used by cumulative routines to keep record of the most recent cumulative
report date. DO NOT edit this field as part of the initial file set-up.
CROSS-REFERENCE: 64.5^MUMPS5^MUMPS
1)= S:$D(X) ^LAC("DEV",0)=X
2)= S ^LAC("DEV",0)=""
64.5,8 COMPLETED DATE 0;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 17, 1986
DESCRIPTION:
This field contains the date the test was completed and verified.
64.5,9 MED CENTER NAME (MISC HEADER) 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<3) X
LAST EDITED: JAN 04, 1989
HELP-PROMPT: ANSWER MUST BE 3-80 CHARACTERS IN LENGTH
DESCRIPTION: The Text entered in this field is printed as the Medical Center name on the MISCELLANEOUS HEADERS
of the Cumulative report.
64.5,10 MAJOR HEADER 1;0 Multiple #64.51
DESCRIPTION:
The major or general heading of the report.
64.51,.001 ORDER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 20, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This defines the page order.
64.51,.01 MAJOR HEADER 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X
LAST EDITED: AUG 20, 1984
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
The major or general heading of the report.
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
CROSS-REFERENCE: 64.51^B
1)= S ^LAB(64.5,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.5,DA(1),1,"B",$E(X,1,30),DA)
64.51,5 MEDICAL CENTER 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<2) X
LAST EDITED: JUL 28, 1986
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
The name of the Medical center or other appropriate text.
64.51,10 MINOR HEADER 1;0 Multiple #64.52
DESCRIPTION:
The minor, or sub, headings.
IDENTIFIED BY: PROFILE SITE/SPECIMEN(#1)[R]
64.52,.001 ORDER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 16, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
64.52,.01 MINOR HEADER 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X Q:$D(DIU(0)) I $D(X) F ZI=0:0 S ZI=$O(^LAB(
64.5,1,1,DA(1),1,ZI)) Q:ZI<1 S F=$S($P(^(ZI,0),U,3)="V":1,1:"") I F W !,"Only one vertical header
allowed." K X Q
MAXIMUM LENGTH: 80
LAST EDITED: OCT 02, 2019
HELP-PROMPT: Answer must be 2-80 characters in length and only 1 vertical format is allowed per major header
DESCRIPTION:
The minor, or sub, heading.
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:64.52^B
1)= S ^LAB(64.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
64.52,1 PROFILE SITE/SPECIMEN 0;2 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
LAST EDITED: JUL 27, 1988
DESCRIPTION:
The Site/Specimen for the Minor Header must be defined.
CROSS-REFERENCE:64.52^AR^MUMPS
1)= Q
2)= Q ;W !,"Re-index ""AR"" x-ref under Lab Test."
CROSS-REFERENCE:64.52^AZ^MUMPS
1)= S ^LAB(64.5,"AZ",DA(1),DA)=""
2)= S ^LAB(64.5,"AZ",DA(1),DA)=""
64.52,2 TYPE OF DISPLAY 0;3 SET (Required)
'H' FOR HORIZONTAL;
'V' FOR VERTICAL;
INPUT TRANSFORM:D TODIT^LRWU
LAST EDITED: OCT 02, 2019
HELP-PROMPT: Formats cannot be mixed within a major header
DESCRIPTION:
'HORIZONTAL' & 'VERTICAL' refer to the placement of the test names.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:64.52^C^MUMPS
1)= F I=0:0 S I=$O(^LAB(64.5,1,1,DA(1),1,I)) Q:I<1 S F=$P(^(I,0),U,3) I X="V",F="H" W !!,*7,"WARNI
NG: MIXING VERT. & HOR. FORMATS WITHIN A MAJOR HEADER ",!,"MAY CORRUPT THE CUMULATIVE!" Q
2)= Q
CROSS-REFERENCE:64.52^AZZ^MUMPS
1)= S ^LAB(64.5,"AZ",DA(1),DA)=""
2)= S ^LAB(64.5,"AZ",DA(1),DA)=""
64.52,3 LOCALE FIELD 0;4 SET (Required)
'0' FOR NO;
'1' FOR YES;
LAST EDITED: SEP 19, 1984
HELP-PROMPT: Setting this field will put an additional field on output, specifing locale of patient at time of
test.
DESCRIPTION:
Yes, if the requesting location is to be displayed with the data.
64.52,10 LAB TEST 1;0 POINTER Multiple #64.53
IDENTIFIED BY:TEST LOCATION(#4)[R]
64.53,.001 ORDER NUMBER
INPUT TRANSFORM:K:+X'=X!(X>50)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 11, 1984
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 50
DESCRIPTION:
The order the tests are to be displayed on the page.
64.53,.01 LAB TEST 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:K:'$L($P(^LAB(60,+X,0),"^",5)) X Q:$D(DIU(0)) I $D(X),$D(^LAB(64.5,"AR",$P(^LAB(64.5,DA(3),1,D
A(2),1,DA(1),0),"^",2),X)) W !!,*7,"TEST WITH THIS SPECIMEN IS ALREADY DEFINED UNDER ANOTHER MINOR
HEADER!" K X Q
LAST EDITED: DEC 06, 1988
HELP-PROMPT:ONLY ONE TEST PER SPECIMEN CAN BE DEFINED ON CUMULATIVE. This must be an ATOMIC test.
DESCRIPTION:
The name of the test as found in file 60.
DELETE TEST: 1,0)= I '$D(^XUSEC("LRLIASON",DUZ))
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:^^TRIGGER^64.53^1
1)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$
S($D(^LAB(64.5,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(1),U,2) S DIU=X K Y S X=DIV S X="7" X ^DD(
64.53,.01,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D
0,0)):^(0),1:"") S X=$P(Y(101),U,5) S D0=Y(1)
1.4)= S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,9
99),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=64.53,DIG=1 D ^DICR:$O(^DD(DIH,D
IG,1,0))>0
2)= Q
S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH
,U,4,99)) S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:
""),DIH=64.53,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= "7"
DELETE VALUE)= NO EFFECT
FIELD)= TEST FIELD LENGTH
CROSS-REFERENCE:^^TRIGGER^64.53^2
1)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$
S($D(^LAB(64.5,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(1),U,3) S DIU=X K Y X ^DD(64.53,.01,1,2,1.
1) X ^DD(64.53,.01,1,2,1.4)
1.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D
0,.1)):^(.1),1:"") S X=$P(Y(101),U,1) S D0=Y(1)
1.4)= S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L(
$P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=64
.53,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= LAB TEST:PRINT NAME
DELETE VALUE)= NO EFFECT
FIELD)= PRINT TEST NAME
CROSS-REFERENCE:^^TRIGGER^64.53^3
1)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$
S($D(^LAB(64.5,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(64.53,.01,1,3,1.
1) X ^DD(64.53,.01,1,3,1.4)
1.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D
0,.1)):^(.1),1:"") S X=$P(Y(101),U,3) S D0=Y(1)
1.4)= S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L(
$P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=64
.53,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= LAB TEST:PRINT CODE
DELETE VALUE)= NO EFFECT
FIELD)= TEST PRINT CODE
CROSS-REFERENCE:^^TRIGGER^64.53^4
1)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$
S($D(^LAB(64.5,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(1),U,5) S DIU=X K Y X ^DD(64.53,.01,1,4,1.
1) X ^DD(64.53,.01,1,4,1.4)
1.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D
0,0)):^(0),1:"") S X=$P(Y(101),U,5) S D0=Y(1)
S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH
,U,4,99)) S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:
""),DIH=64.53,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$
S($D(^LAB(64.5,D0,1,D1,1,D2,1,D3,0)):^(0),1:"") S X=$P(Y(1),U,5) S DIU=X K Y S X=DIV S ^LAB(64.5,"A
Z",D1,D2)="" X ^DD(64.53,.01,1,4,2.4)
S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH
,U,4,99)) S DIH=DIH_U" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:
""),DIH=64.53,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
49.2)= S I(3,0)=$S($D(D3):D3,1:""),I(2,0)=$S($D(D2):D2,1:""),I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D
(D0):D0,1:""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D0,0)):^(0),1:"")
CREATE VALUE)= LAB TEST:LOCATION
DELETE VALUE)= Q
FIELD)= TEST LOCATION
CROSS-REFERENCE:64.53^AR^MUMPS
1)= S ^LAB(64.5,"AR",$P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),0),"^",2),$P(^(1,DA,0),"^",1))=""
1.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D
0,0)):^(0),1:"") S X=$P(Y(101),U,5) S D0=Y(1)
1.4)= S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L(
$P(DIH,U,4,99)) S DIH=DIH_U" S %=$P(DIH,U,6,999),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"":U_%,1:""),DIH=64
.53,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= K ^LAB(64.5,"AR",$P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),0),"^",2),$P(^(1,DA,0),"^",1))
CREATE VALUE)= LAB TEST:LOCATION
DELETE VALUE)= NO EFFECT
FIELD)= TEST LOCATION
CROSS-REFERENCE:64.53^A^MUMPS
1)= S LRSUB=$P(^LAB(60,+X,0),U,5),LRTST=$S($L(LRSUB):$O(^LAB(60,"C",LRSUB,0)),1:-1) S ^LAB(64.5,"A"
,DA(3),DA(2),DA(1),DA)=$S($D(^LAB(60,LRTST,1,$P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),0),U,2),0)):^(0),1:
"") K LRSUB,LRTST
2)= K ^LAB(64.5,"A",DA(3),DA(2),DA(1),DA)
CROSS-REFERENCE:64.53^AZ^MUMPS
1)= S ^LAB(64.5,"AZ",DA(2),DA(1))=""
2)= S ^LAB(64.5,"AZ",DA(2),DA(1))=""
64.53,1 TEST FIELD LENGTH 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>15)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 15
DESCRIPTION:
The number of columns to be devoted to the results.
NOTES: TRIGGERED by the LAB TEST field of the LAB TEST sub-field of the MINOR HEADER sub-field of the
MAJOR HEADER sub-field of the LAB REPORTS File
64.53,2 PRINT TEST NAME 0;3 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>40!($L(X)<2) X
LAST EDITED: OCT 18, 2007
HELP-PROMPT:Answer must be 2-40 characters in length
DESCRIPTION:
The actual name of the test to be printed on the page.
NOTES: TRIGGERED by the LAB TEST field of the LAB TEST sub-field of the MINOR HEADER sub-field of the
MAJOR HEADER sub-field of the LAB REPORTS File
64.53,3 TEST PRINT CODE 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>150!($L(X)<1) X I $D(X) S X="W "_X D ^DIM I $D(X) S X=$E(X,3,256)
LAST EDITED: OCT 26, 1984
HELP-PROMPT:MUMPS PRINT CODE ( ie. $J(X,LRCW,2) )
DESCRIPTION:
Any special output transform to be used on printing.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the LAB TEST field of the LAB TEST sub-field of the MINOR HEADER sub-field of the
MAJOR HEADER sub-field of the LAB REPORTS File
64.53,4 TEST LOCATION 0;5 FREE TEXT (Required)
INPUT TRANSFORM:K:$E(X,1,3)'="CH;"!($P(X,";",2)'>0) X I $D(X) K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2
) X
LAST EDITED: JAN 06, 1987
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH, AND BE A LEGITIMATE TEST LOCATION.
DESCRIPTION:
The internal location of the test in file 63. This field is triggered by the Lab Test field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the LAB TEST field of the LAB TEST sub-field of the MINOR HEADER sub-field of the
MAJOR HEADER sub-field of the LAB REPORTS File
TRIGGERED by the LAB TEST field of the LAB TEST sub-field of the MINOR HEADER sub-field of the
MAJOR HEADER sub-field of the LAB REPORTS File
CROSS-REFERENCE:64.5^AC^MUMPS
1)= S ^LAB(64.5,"AC",+$P($P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),1,DA,0),"^",5),";",2),DA(3),DA(2),DA(1)
,DA)=$P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),0),U,2)
2)= K ^LAB(64.5,"AC",+$P($P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),1,DA,0),"^",5),";",2),DA(3),DA(2),DA(1)
,DA)
64.53,5 DECIMAL PLACES 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>4)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 18, 1984
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 4
DESCRIPTION:
The number of decimal places to justify the output.
64.5,11 MICRO APPROVAL METHOD 0;10 SET
'RE' FOR Results Entry;
'VT' FOR Verification by Tech;
'VS' FOR Verification by Supervisor;
LAST EDITED: MAR 29, 1989
HELP-PROMPT: Select the method used to enter an RPT DATE APPROVAL on micro tests. Results will only be released
for cumulative when approved using the selected option.
DESCRIPTION:
This field contains the what approval method required before this test result can be printed.
64.5,14 SORT BY PATIENT 4;1 SET
'1' FOR YES;
LAST EDITED: JUL 18, 1985
HELP-PROMPT: An entry of 'YES' will cause the supervisor summary to sort by patient name instead of patient
location.
DESCRIPTION: An entry of 'YES' will cause the supervisor summary to sort by patient name instead of patient
location.
64.5,15 DAILY SUMMARY REPORTS 2;0 Multiple #64.54
DESCRIPTION: This report is built from the cumulative. It is queued automatically through the OPTION file and
TASK MANAGER.
64.54,.01 DAILY SUMMARY REPORTS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: JUL 16, 1984
HELP-PROMPT: ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
DESCRIPTION:
This report is built from the cumulative.
CROSS-REFERENCE: 64.54^B
1)= S ^LAB(64.5,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LAB(64.5,DA(1),2,"B",$E(X,1,30),DA)
This is a listing of supervisor summary report formats.
64.54,1 HEADER 1;0 POINTER Multiple #64.55
DESCRIPTION:
This is a multiple field containing the headers for the summary reports.
64.55,.01 HEADER 0;1 POINTER TO MAJOR HEADER FILE (#64.5) (Multiply asked)
LAST EDITED: SEP 03, 1987
DESCRIPTION:
The headings for the summary report.
64.54,2 PREVIOUS SUMMARY DATA 0;2 SET
'1' FOR YES;
LAST EDITED: FEB 10, 1986
HELP-PROMPT: An entry in this field will enable previous data to be printed
DESCRIPTION: This field identifies for each supervisor's summary the option to print previous data along
with current data on the report. Only the two most recent set of results compiled during the
cumulative run will be printed for comparison.
64.5,16 FILE ROOM REPORT DATE 6;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 13, 1994
HELP-PROMPT: This field is updated when the cumulative is run for the FILE ROOM and it is being printed on a
schedule different from the regular cumulative.
DESCRIPTION: This field is used if the site wishes to print the FILEROOM location on a different schedule than
the regular Cumulative print. If this feature is utilized, the last date the FILEROOM location(s)
were printed is stored in this field.
64.5,17 SEPARATE FILE ROOM 6;2 SET
'1' FOR YES;
LAST EDITED: JAN 13, 1994
HELP-PROMPT: Enter YES if the File Room Cumulative is printed on a different schedule from the regular
cumulative.
DESCRIPTION: This field is used to designate the FILE ROOM Cumulative being printed on a schedule different from
the regular cumulative. To utilize this feature the following needs to be setup.
1. Set field #4, FILE ROOM, to "YES" - this sorts all non-inpatients to
two locations, FILE ROOM1 and FILE ROOM2, based on terminal digit of
SSN.
2. Set field #17, SEPARATE FILE ROOM, to "YES" - this tells the
cumulative that you are printing the FILE ROOM on a schedule
different from the regular cumulative schedule.
3. For regular FILE ROOM patients, set up one or two reports as follows:
If one report - starting location: FILE ROOM1
ending location: FILE ROOM2
If two reports -
first report - starting location: FILE ROOM1
ending location: FILE ROOM1
second report - starting location: FILE ROOM2
ending location: FILE ROOM2
Define the other fields as with a regular report.
4. If you also want to print certain locations to an alternate file room,
such as a file room at a satellite clinic then perform the following in
addition to #3 above.
Enter the location(s) that you want to print as a separate report location
by entering them in the "SEPARATE REPORT LOCATION, field #6.
Enter in field #1, "ALTERNATE FILE ROOM" the name to use for this file
room. This name will be concatenated with "FILE ROOM".
e.g. "DALLAS OPC would result in file rooms "FILE ROOM_DALLAS OPC1"
and "FILE ROOM_DALLAS OPC2".
Note: The "_", underscore is used to insure that these
locations sort after the regular file room locations.
Two locations for each file room would be created based on terminal digit
of SSN or identifier (non-file #2 PATIENT) similar to the regular file
rooms.
Note: These locations will print on the same schedule as regular file
rooms.
Either set up separate reports to print these locations or utilize reports
defined in step #3 above and alter the ending location to include these
locations.
5. On each report, set the field #3, FILE ROOM REPORT, in the field #2,
REPORT NAME, multiple to "YES".
The cumulative software will check when attempting to print a cumulative for a location that
contains the name "FILE ROOM" the following. If field #17 is set to "YES" and the report being run
is not set to "YES" for field #3, FILE ROOM REPORT, then it will skip running the cumulative for
that location. This is to prevent another report which may print locations "A" thru "Z" from
printing the file rooms unintentionally.
Related fields used in conjunction with this feature are:
# 4 FILE ROOM
#16 FILE ROOM REPORT DATE
# 1 ALTERNATE FILE ROOM in the #6 SEPARATE REPORT LOCATION multiple.
# 3 FILE ROOM REPORT in the #2 REPORT NAME multiple.
FILES POINTED TO FIELDS
DEVICE (#3.5) REPORT NAME:DEVICE (#1)
HOSPITAL LOCATION (#44) SEPARATE REPORT LOCATION:SEPARATE REPORT LOCATION (#.01)
LABORATORY TEST (#60) LAB TEST:LAB TEST (#.01)
MAJOR HEADER (#64.5) HEADER:HEADER (#.01)
TOPOGRAPHY FIELD (#61) MINOR HEADER:PROFILE SITE/SPECIMEN (#1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):