Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 62.31

Package: Lab Service

LAB CONTROL NAME(#62.3)-->62.31

Sub-Field: 62.31


Information

Parent File Name Number Package
LAB CONTROL NAME(#62.3) TEST 62.31 Lab Service

Details

Field # Name Loc Type Details
.01 TEST 0;1 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • INPUT TRANSFORM:  S DIC("S")="I $L($P(^(0),U,5))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 11, 1984
  • DESCRIPTION:  
    This is the individual test for which normal values are going to be entered.
  • CROSS-REFERENCE:  ^^TRIGGER^62.31^3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.3,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(62.31,.01,1,1,1.1) X ^DD(62.31,.01,1,1,1.4)
    1.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(60,D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,5) S D0=Y(1)
    1.4)= S DIH=$S($D(^LAB(62.3,DIV(0),1,DIV(1),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=62.31,DIG=3 D ^DICR:$O(^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(^LAB(62.3,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(62.31,.01,1,1,2.1) X ^DD(62.31,.01,1,1,2.4)
    2.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(60,D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,5) S D0=Y(1)
    2.4)= S DIH=$S($D(^LAB(62.3,DIV(0),1,DIV(1),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=62.31,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TEST:(LOCATION)
    DELETE VALUE)= TEST:(LOCATION)
    FIELD)= LOCATI
  • CROSS-REFERENCE:  62.31^B
    1)= S ^LAB(62.3,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(62.3,DA(1),1,"B",$E(X,1,30),DA)
1 MEAN 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"."5N.N) X
  • LAST EDITED:  DEC 24, 1983
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -99999999 AND 99999999
  • DESCRIPTION:  
    The mean value, or ideal control value of the test.  This is used to determine the center line in the Levey-Jennings plots.
2 1 SD 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"."5N.N) X
  • LAST EDITED:  DEC 24, 1983
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -99999999 AND 99999999
  • DESCRIPTION:  
    Enter the expected value for one standard deviation on the test.  This value is used to compute the 2 standard deviation lines in the Levey-Jennings plots.  It is also used in the Multirule-Shewhart.
3 LOCATION 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  AUG 17, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    These are the "internal" subscripts for the Lab Data file.  This way we don't have to look all over DD to find its home!
    WRITE AUTHORITY:  ^
    UNEDITABLE
  • NOTES:  TRIGGERED by the TEST field of the TEST sub-field of the LAB CONTROL NAME File
Info |  Details |  All