Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRMISR

Package: Lab Service

Routine: LRMISR


Information

LRMISR ; IHS/DIR/FJE - INPUT TRANSFORM FOR ANTIBIOTIC SENSITIVITIES 6/14/89 08:36 ;

Source Information

Source file <LRMISR.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 DO^DIC1  DQ^DICQ  
Kernel 1 EN^XQH  
Lab Service 1 (INTRP,IS,STAR)^LRMISR1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 MYCOBACTERIUM  ORGANISM  

Entry Points

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

External References

Name Field # of Occurrence
DO^DIC1 ZQ+1
DQ^DICQ ZQ+1
INTRP^LRMISR1 EN+4
IS^LRMISR1 FILE+4
STAR^LRMISR1 FILE+1
EN^XQH HELP

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(62.06 - [#62.06] FILE+1, FILE+2, EN+3, EN+4, INT, HINT
^LAB(62.5 - [#62.5] Z2
^LR - [#63] SET*, EN+1

Label References

Name Line Occurrences
@( FILE+1
Z2 COM+2

Naked Globals

Name Field # of Occurrence
^( SET*, EN+1, EN+4
^(9 Z2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A2 Z2*, Z2+1!
A4 COM+2*, COM+3!
A6 EN+4*, EN+5!, COM+2*, COM+3!, Z2
B3 COM+2*, COM+3!
B4 Z2*, Z2+1!
B6 COM+2*, COM+3!, Z2*
C2 OUT!, EN+4!
C4 OUT!, EN+4*!
C6 FILE+1*, FILE+2!, FILE+3!, OUT!, EN+3*, EN+4, EN+5!
C8 EN+1*, EN+2, EN+5!
>> D ZQ+1*
>> DA SET, EN+1
>> DA(1 SET
DIC ZQ+1*!
DIC("S" ZQ+1*
DIC(0 ZQ+1*
>> DIE ZQ+1
DO ZQ+1!
>> DQ FILE+1, FILE+3, EN+1, EN+3, INT, HINT
>> DQ( FILE+1, FILE+3, EN+1, EN+3, INT, HINT
>> DZ ZQ+1*
>> I HINT*, Z2*
>> J HINT*
LRBN FILE+3*!, SET, OUT!, EN+1*, EN+5!
>> LRDFN SET, EN+1
>> LRIDT EN+1
LRISR SET, OUT!, EN+4!
LRR FILE+4*, OUT!, EN+4*, EN+5!
LRSCREEN SET, OUT!
U FILE+1, FILE+3, SET, EN+1, EN+2, EN+3, INT, HINT, Z2
X FILE!, FILE+1, FILE+2!, FILE+4, HELP!, INT!, COM+1!, COM+2!, COM+3*, Z2
, ZQ+1*
>> XQH HELP*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All