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.61

Package: Lab Service

ACCESSION TEST GROUP(#62.6)-->62.61

Sub-Field: 62.61


Information

Parent File Name Number Package
ACCESSION TEST GROUP(#62.6) TEST 62.61 Lab Service

Details

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 27, 1997
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The internal number.
.01 TEST 0;1 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • LAST EDITED:  SEP 12, 1985
  • DESCRIPTION:  
    This field specifies all of the tests included in this accession group.
  • CROSS-REFERENCE:  ^^TRIGGER^62.61^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.6,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2) S DIU=X K Y X ^DD(62.61,.01,1,1,1.1) X ^DD(62.61,.01,1,1,1.4)
    1.1)= S X=$S('$D(^LAB(60,+DIV,0)):"",1:$P(^(0),U,1))
    1.4)= S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=62.61,DIG=1 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.6,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2) S DIU=X K Y X ^DD(62.61,.01,1,1,2.1) X ^DD(62.61,.01,1,1,2.4)
    2.1)= S X=$S('$D(^LAB(60,+DIV,0)):"",1:$P(^(0),U,1))
    2.4)= S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=62.61,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TEST
    DELETE VALUE)= TEST
    FIELD)= TEST NAME
  • CROSS-REFERENCE:  62.61^B
    1)= S ^LAB(62.6,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(62.6,DA(1),1,"B",$E(X,1,30),DA)
1 TEST NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Triggered by TEST field.
  • NOTES:  TRIGGERED by the TEST field of the TEST sub-field of the ACCESSION TEST GROUP File
2 COLLECTION SAMPLE 0;3 POINTER TO COLLECTION SAMPLE FILE (#62) COLLECTION SAMPLE(#62)

  • LAST EDITED:  FEB 07, 1984
  • DESCRIPTION:  
    This field contains the correct collection sample for this test.  Points to COLLECTION SAMPLE file.
  • CROSS-REFERENCE:  ^^TRIGGER^62.61^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.6,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(62.61,2,1,1,1.1) X ^DD(62.61,2,1,1,1.4)
    1.1)= S X=$S('$D(^LAB(62,+DIV,0)):"",1:$P(^(0),U,1)_$S($L($P(^(0),U,3)):" ("_$P(^(0),U,3)_")",1:""))
    1.4)= S DIH=$S($D(^LAB(62.6,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.61,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.6,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(62.61,2,1,1,2.1) X ^DD(62.61,2,1,1,2.4)
    2.1)= S X=$S('$D(^LAB(62,+DIV,0)):"",1:$P(^(0),U,1)_$S($L($P(^(0),U,3)):" ("_$P(^(0),U,3)_")",1:""))
    2.4)= S DIH=$S($D(^LAB(62.6,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.61,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= CS
    DELETE VALUE)= CS
    FIELD)= SAMPLE NAME
  • CROSS-REFERENCE:  ^^TRIGGER^62.61^4
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.6,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5) S DIU=X K Y X ^DD(62.61,2,1,2,1.1) X ^DD(62.61,2,1,2,1.4)
    1.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62,D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=Y(1)
    1.4)= S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),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=62.61,DIG=4 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.6,D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,5) S DIU=X K Y X ^DD(62.61,2,1,2,2.1) X ^DD(62.61,2,1,2,2.4)
    2.1)= S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62,D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=Y(1)
    2.4)= S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),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=62.61,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= CS:INTERNAL(DEFAULT SPECIMEN)
    DELETE VALUE)= CS:INTERNAL(DEFAULT SPECIMEN)
    FIELD)= SPECIMEN
3 SAMPLE NAME 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Triggered by the COLLECTION SAMPLE field.
  • NOTES:  TRIGGERED by the COLLECTION SAMPLE field of the TEST sub-field of the ACCESSION TEST GROUP File
4 SPECIMEN 0;5 POINTER TO TOPOGRAPHY FIELD FILE (#61) TOPOGRAPHY FIELD(#61)

  • DESCRIPTION:  
    Triggered by the COLLECTION SAMPLE field.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the COLLECTION SAMPLE field of the TEST sub-field of the ACCESSION TEST GROUP File
5 *LABEL 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  AUG 31, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    This field is used as a quick look-up reference in Albany routines.  It has an "AC" cross-reference.
  • CROSS-REFERENCE:  62.61^AC
    1)= S ^LAB(62.6,DA(1),1,"AC",$E(X,1,30),DA)=""
    2)= K ^LAB(62.6,DA(1),1,"AC",$E(X,1,30),DA)
Info |  Details |  All