Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
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.
Info |  Details