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

Package: Lab Service

AUTO INSTRUMENT(#62.4)-->62.43-->62.46

Sub-Field: 62.46


Information

Parent File Name Number Package
62.43 DRUG 62.46 Lab Service

Details

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 03, 1986
  • HELP-PROMPT:  Enter 1-99 matching the index from the instrument.
  • DESCRIPTION:  
    Enter the number used by the instrument to identy the drug in uploaded data stream.
.01 DRUG 0;1 POINTER TO ANTIMICROBIAL SUSCEPTIBILITY FILE (#62.06) ANTIMICROBIAL SUSCEPTIBILITY(#62.06)

  • LAST EDITED:  APR 03, 1986
  • HELP-PROMPT:  
  • CROSS-REFERENCE:  ^^TRIGGER^62.46^1
    1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LAB(62.4,D0,7,D1,2,D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(62.46,.01,1,1,1.1) X ^DD(62.46,.01,1,1,1.4)
    1.1)= S X=DIV X ^DD(62.46,.01,1,1,49.2) S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)
    1.4)= S DIH=$S($D(^LAB(62.4,DIV(0),7,DIV(1),2,DIV(2),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=62.46,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LAB(62.4,D0,7,D1,2,D2,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(62.46,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^LAB(62.4,DIV(0),7,DIV(1),2,DIV(2),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=62.46,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S 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(62.06,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(62.06,D0,0)):^(0),1:"")
    CREATE VALUE)= DRUG:BUG NODE
    DELETE VALUE)= @
    FIELD)= DRUG NODE
1 DRUG NODE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X<1)) X
  • LAST EDITED:  FEB 28, 1991
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the drug name which the number corresponds to in File 62.06.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the DRUG field of the DRUG sub-field of the MICRO CARD TYPE sub-field of the AUTO INSTRUMENT File
2 PARAM1 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X D ^DIM:$D(X)
  • LAST EDITED:  JUL 15, 1986
  • HELP-PROMPT:  MUMPS CODE TO SET S-I-R INTO V FROM CARD DATA
  • DESCRIPTION:  Enter a MUMPS code string needed to convert/extract data into the variable V. This field is similar to Param Fields in other auto instruments.
    The name has been changed to prevent confusion in referring to the two fields.
    WRITE AUTHORITY: @
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 CARD CODE 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  NOV 28, 1990
  • HELP-PROMPT:  This is the code from the card to do the lookup on.
  • DESCRIPTION:  On each card it is possible to have codes represent different messages or canned comments. This sub field identifies the relationship.
    Enter the code the card upload data will contain.
  • CROSS-REFERENCE:  62.46^C
    1)= S ^LAB(62.4,DA(2),7,DA(1),2,"C",$E(X,1,30),DA)=""
    2)= K ^LAB(62.4,DA(2),7,DA(1),2,"C",$E(X,1,30),DA)
4 DISPLAY ORDER 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 24, 1989
  • HELP-PROMPT:  Enter a number between 1-100 for display order, or '0' for file entry order
  • CROSS-REFERENCE:  62.46^AC
    1)= S ^LAB(62.4,DA(2),7,DA(1),2,"AC",$E(X,1,30),DA)=""
    2)= K ^LAB(62.4,DA(2),7,DA(1),2,"AC",$E(X,1,30),DA)
9 SECTION 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
10 BIT POSITION 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 06, 1993
  • HELP-PROMPT:  Enter Bit Position on Card 1-12
  • DESCRIPTION:  What bit (number of characters from the left) position the drug is located.
    THIS FIELD IS NOT USED. RESERVED FOR LATER VERSIONS OF AUTO-INSTRUMENT RELEASES.
Info |  Details