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

Package: Lab Service

ANTIMICROBIAL SUSCEPTIBILITY(#62.06)-->62.061-->62.081

Sub-Field: 62.081


Information

Parent File Name Number Package
62.061 *ORGANISM 62.081 Lab Service

Details

Field # Name Loc Type Details
.01 *ORGANISM 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) ETIOLOGY FIELD(#61.2)

  • INPUT TRANSFORM:  S DIC("S")="I 0,$D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""B""!($P(^(0),U,5)=""F"")!($P(^(0),U,5)=""M"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 16, 1986
  • DESCRIPTION:  
    No longer used. Will be deleted after 1/89.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  62.081^B
    1)= S ^LAB(62.06,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(62.06,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
1 *ALTERNATE INTERPRETATION 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  DEC 16, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    No longer used. Will be deleted after 1/89.
2 *ADDITIONAL DISPLAY COMMENT 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<2) X
  • LAST EDITED:  DEC 16, 1986
  • HELP-PROMPT:  ANSWER MUST BE 2-40 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    No longer used. Will be deleted after 1/89.
Info |  Details