Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 64.53

Package: Lab Service

LAB REPORTS(#64.5)-->64.51-->64.52-->64.53

Sub-Field: 64.53

Information

Parent File	Name	Number	Package
64.52	LAB TEST	64.53	Lab Service

Details

Field #	Name	Loc	Type	Details
.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.`
.01	LAB TEST	0;1	POINTER TO LABORATORY TEST FILE (#60)	LABORATORY TEST(#60) 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,DA(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,D0,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,999),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,DIG,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 ^D` `ICR:$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,D0,.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,D0,.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,D0,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 ^D` `ICR:$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,"AZ",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 ^D` `ICR:$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,D0,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))=""`
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`
2	PRINT TEST NAME	0;3	FREE TEXT	**********************REQUIRED FIELD********************** 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`
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`
4	TEST LOCATION	0;5	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
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.`