Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRMISR

Package: Lab Service

Routine: LRMISR


Information

LRMISR ;SLC/CJS/BA - INPUT TRANSFORM FOR ANTIBIOTIC SENSITIVITIES ;6/14/89 08:36 ;

Source Information

Source file <LRMISR.m>

Entry Points

Name Comments DBIA/ICR reference
FILE
SET
OUT
EN ;help prompts for antibiotic interpretations
HELP
INT
HINT
COM ;input transform for AFB antibiotics - will expand lab descriptions
Z2
ZQ ;AFB prompts from lab descriptions

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " (",LRISR,")"
  • Condition for execution: $L(LRISR)
  • Line Location: SET+0
Function Call: WRITE
  • Prompt: $S(LRSCREEN="N":" (not displayed)",LRSCREEN="R":" (restricted display)",1:"")
  • Line Location: SET+0
Function Call: WRITE
  • Prompt: !,"Result: ",$P(C8,U),?25,"Interpretation: ",$S($L($P(C8,U,2)):$P(C8,U,2),1:$P(C8,U)),?53,"Screen: ",$S($P(C8,U,3)="N":"Never",$P(C8,U,3)="R":"Restricted",1:"Always")," Display",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM:"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Interpretations for this antibiotic:"
  • Line Location: HINT+0
Function Call: WRITE
  • Prompt: !,?25,J
  • Line Location: HINT+0
Function Call: WRITE
  • Prompt: " too long",!
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: " (",$E(B3,1,$L(B3)-1),")"
  • Line Location: COM+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.5 - [#62.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call