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
Print Page as PDF
Routine: LRMIV4

Package: Lab Service

Routine: LRMIV4


Information

LRMIV4 ;SLC/DLG - MICRO DISPLAY ANTIBIOTICS FOR VERIFY ; 12/8/88 23:02 ;

Source Information

Source file <LRMIV4.m>

Entry Points

Name Comments DBIA/ICR reference
BACT ;from LRMIV1
CHECK
FIRST
LAB
AB
BUGHDR
ORG
SIR
DCOM
SIR1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BACT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: BACT+9
Function Call: WRITE
  • Prompt: !,$E($P(^(0),U),1,14)
  • Line Location: AB+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BUGHDR+1
Function Call: WRITE
  • Prompt: ?J-1*13+15,":"
  • Line Location: BUGHDR+1
Function Call: WRITE
  • Prompt: ?J-1*13+15,"SUSC INTP"
  • Line Location: BUGHDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ORG+0
Function Call: WRITE
  • Prompt: ?($S(LRFMT="B":J-1*13+15,1:J*5+10)),":"
  • Line Location: ORG+0
Function Call: WRITE
  • Prompt: ?($S(LRFMT="B":A*13+15,1:A*5+15)),$S(LR2ORMOR:LRBUG_". ",1:""),LRORG
  • Line Location: ORG+1
Function Call: WRITE
  • Prompt: ?LRCOMTAB,LRDCOM
  • Line Location: DCOM+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: '('K&(LRDCOM=""))
  • Line Location: DCOM+0
Function Call: WRITE
  • Prompt: ?LRCOMTAB,LRDCOM(J,A)
  • Line Location: DCOM+0
Function Call: WRITE
  • Prompt: ?(II-1*13+15),$S($D(LRRES(J)):$P(LRRES(J),U,II),1:""),?(II-1*13+21),$P(LRINT(J),U,II)," "
  • Line Location: SIR1+0
Info |  Source |  Entry Points |  Interaction Calls