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: 61.211

Package: Lab Service

ETIOLOGY FIELD(#61.2)-->61.211

Sub-Field: 61.211


Information

Parent File Name Number Package
ETIOLOGY FIELD(#61.2) ETIOLOGY WKLD CODE 61.211 Lab Service

Details

Field # Name Loc Type Details
.01 ETIOLOGY WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) WKLD CODE(#64)

  • INPUT TRANSFORM:  I $D(X) S DINUM=X
  • LAST EDITED:  FEB 11, 1993
  • DESCRIPTION:  Enter a WKLD code which can be associated with the isolation and identification of the this particular organism. The verifier will be able to select from these entries for additional work load.
    NOTE: THIS FIELD IS ONLY USED FOR MICROBIOLOGY WORKLOAD.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^61.211^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.2,D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^LAM(DA,0),U,2) X ^DD(61.211,.01,1,1,1.4)
    1.4)= S DIH=$S($D(^LAB(61.2,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.211,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(61.2,D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(61.211,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^LAB(61.2,DIV(0),9,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.211,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$P(^LAM(DA,0),U,2)
    DELETE VALUE)= @
    FIELD)= WKLD CODE
  • CROSS-REFERENCE:  61.211^B
    1)= S ^LAB(61.2,DA(1),9,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(61.2,DA(1),9,"B",$E(X,1,30),DA)
1 ETIOLOGY WKLD CODE # 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<9) X
  • LAST EDITED:  JUL 07, 1992
  • HELP-PROMPT:  Answer must be 9 characters in length.
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the ETIOLOGY WKLD CODE field of the ETIOLOGY WKLD CODE sub-field of the ETIOLOGY FIELD File
2 MULTIPLY BY 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 27, 1990
  • HELP-PROMPT:  Type a Number between 1 and 20, 0 Decimal Digits
  • DESCRIPTION:  
    If this WKLD code should be counted more than once, enter the number here. The default is 1.
Info |  Details |  All