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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LROR4A

Package: Lab Service

Routine: LROR4A


Information

LROR4A ; IHS/DIR/FJE - MICRO PATIENT REPORT - BACTERIA, SIC/SBC, MIC 3/16/88 2:41 PM ;

Source Information

Source file <LROR4A.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 4 PRE^LRMIPSU  (FH,WAIT)^LROR4  BACT^LROR4B  D^LRU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LROR4  

Entry Points

Name Comments DBIA/ICR reference
BRMK
MIC
LST
BACT ;from LRMIPSZ1
ANTI ;from LRMIPSZ1
GRAM
CMNT
SSD
BSMEAR
BUG

External References

Name Field # of Occurrence
PRE^LRMIPSU BUG+3
FH^LROR4 BACT+3, BACT+4, BACT+5, BACT+6, LST+3
WAIT^LROR4 BUG+1
BACT^LROR4B BACT+5
D^LRU BUG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?28,"Antibiotic Level(s):",!,"ANTIBIOTIC",?20,"CONC RANGE (ug/ml)",?42,"DRAW TIME"
  • Line Location: ANTI+1
Function Call: WRITE
  • Prompt: !,$P(^LR(LRDFN,"MI",LRIDT,14,B,0),U),?20,$P(^(0),U,3),?42,$S($P(^(0),U,2)="P":"PEAK",$P(^(0),U,2)="T":"TROUGH",1:"")
  • Line Location: ANTI+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BACT+6
Function Call: WRITE
  • Prompt: !,"Bacteriology Remark(s):"
  • Line Location: BACT+6
Function Call: WRITE
  • Prompt: !,?3,^LR(LRDFN,"MI",LRIDT,4,B,0)
  • Line Location: BACT+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BUG+2
Function Call: WRITE
  • Prompt: !,"* BACTERIOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => "_Y_" TECH CODE: "_DZ
  • Line Location: BUG+2
Function Call: WRITE
  • Prompt: !,"URINE SCREEN: "_$S(LRUS="N":"Negative",LRUS="P":"Positive",1:LRUS)
  • Line Location: BUG+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BUG+4
Function Call: WRITE
  • Prompt: !,"SPUTUM SCREEN: ",LRNS
  • Line Location: BUG+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BUG+5
Function Call: WRITE
  • Prompt: !,"GRAM STAIN:"
  • Line Location: GRAM+0
Function Call: WRITE
  • Prompt: ?14,^(LRGRM,0),!
  • Line Location: GRAM+0
Function Call: WRITE
  • Prompt: !,"BACTERIOLOGY SMEAR/PREP:",!
  • Line Location: BSMEAR+0
Function Call: WRITE
  • Prompt: ?5,^(LRMYC,0),!
  • Line Location: BSMEAR+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !,"CULTURE RESULTS:"
  • Condition for execution: LRAX=1
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRAX>1
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: ?17,$S(LR2ORMOR:LRBUG_". ",1:""),LRQU,LRORG
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SSD+0
Function Call: WRITE
  • Prompt: !,?20,"SIT "
  • Line Location: SSD+1
Function Call: WRITE
  • Prompt: "(",LRDRTM1,")"
  • Condition for execution: $L(LRDRTM1)
  • Line Location: SSD+1
Function Call: WRITE
  • Prompt: ": ",LRSIC1
  • Line Location: SSD+1
Function Call: WRITE
  • Prompt: !,?20,"SBT "
  • Line Location: SSD+2
Function Call: WRITE
  • Prompt: "(",LRDRTM1,")"
  • Condition for execution: $L(LRDRTM1)
  • Line Location: SSD+2
Function Call: WRITE
  • Prompt: ": ",LRSBC1
  • Line Location: SSD+2
Function Call: WRITE
  • Prompt: !,?20,"SIT "
  • Line Location: SSD+3
Function Call: WRITE
  • Prompt: "(",LRDRTM2,")"
  • Condition for execution: $L(LRDRTM2)
  • Line Location: SSD+3
Function Call: WRITE
  • Prompt: ": ",LRSIC2
  • Line Location: SSD+3
Function Call: WRITE
  • Prompt: !,?20,"SBT "
  • Line Location: SSD+4
Function Call: WRITE
  • Prompt: "(",LRDRTM2,")"
  • Condition for execution: $L(LRDRTM2)
  • Line Location: SSD+4
Function Call: WRITE
  • Prompt: ": ",LRSBC2
  • Line Location: SSD+4
Function Call: WRITE
  • Prompt: !,?18,"Antibiotic"
  • Line Location: MIC+0
Function Call: WRITE
  • Prompt: ?35,"MIC (ug/ml)",?50,"MBC (ug/ml)"
  • Line Location: MIC+0
Function Call: WRITE
  • Prompt: !,?18,$P(^(B,0),U),?35,$J($P(^(0),U,2),7),?50,$S($P(^(0),U,3):$J($P(^(0),U,3),7),1:"")
  • Line Location: MIC+1
Function Call: WRITE
  • Prompt: !?20
  • Line Location: CMNT+0
Function Call: WRITE
  • Prompt: "Comment: "
  • Condition for execution: A=0
  • Line Location: CMNT+0
Function Call: WRITE
  • Prompt: ?29,^(LRPC,0)
  • Line Location: CMNT+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.2 - [#61.2] LST
^LR - [#63] ANTI+1, ANTI+2, BACT+1, BACT+3, BACT+4, BACT+5, BACT+6, BUG, GRAM, BSMEAR
, BRMK, BRMK+1, LST, LST+4, LST+5, MIC, MIC+1, CMNT

Label References

Name Line Occurrences
BRMK BACT+5
BSMEAR BACT+4
BUG BACT+2
CMNT LST+5
GRAM BACT+3
LST BRMK+1
MIC LST+4
SSD LST+3

Naked Globals

Name Field # of Occurrence
^( GRAM, BSMEAR, MIC, MIC+1, CMNT
^(0 ANTI+2, BACT+6, LST, LST+4, LST+5, MIC+1
^(1 BUG

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A CMNT*
>> B ANTI+2*, BACT+6*, MIC*, MIC+1*
>> DZ BUG*, BUG+2
>> I ANTI+2*, BACT+6*, GRAM*, BSMEAR*, MIC*, MIC+1*
IOSL BUG+1
>> LR2ORMOR BRMK*, LST+2
>> LRAX BRMK*, BRMK+1*, LST, LST+2
>> LRBUG BRMK*, BRMK+1*, LST, LST+2, LST+4, LST+5, MIC, MIC+1, CMNT
>> LRBUG( LST*
>> LRDFN ANTI+1, ANTI+2, BACT+1, BACT+3, BACT+4, BACT+5, BACT+6, BUG, GRAM, BSMEAR
, BRMK, BRMK+1, LST, LST+4, LST+5, MIC, MIC+1, CMNT
>> LRDRTM1 LST+1*, SSD*, SSD+1, SSD+2
>> LRDRTM2 LST+1*, SSD*, SSD+3, SSD+4
>> LREND BACT+3, BACT+4, BACT+5, BACT+6, BUG+1, LST+3
>> LRFLIP BUG+1
>> LRGRM GRAM*
>> LRHC BACT+6, BUG+2, BUG+4, BUG+5, GRAM+1, LST+2, LST+3
>> LRIDT ANTI+1, ANTI+2, BACT+1, BACT+3, BACT+4, BACT+5, BACT+6, BUG, GRAM, BSMEAR
, BRMK, BRMK+1, LST, LST+4, LST+5, MIC, MIC+1, CMNT
>> LRMYC BSMEAR*
>> LRNS BUG*, BUG+5
>> LRORG LST*, LST+2
>> LRPC CMNT*
>> LRPRE BUG+3*
>> LRQU LST*, LST+2
>> LRSB BACT+1
>> LRSBC1 LST+1*, SSD+2
>> LRSBC2 LST+1*, SSD+4
>> LRSIC1 LST+1*, SSD+1
>> LRSIC2 LST+1*, SSD+3
>> LRSSD LST*, LST+1*, LST+3
>> LRTSTS BRMK+1*, LST+4*
>> LRTUS BUG*, BUG+2
>> LRUS BUG*, BUG+4
>> LRWRDVEW BACT+1
U ANTI+1, ANTI+2, BACT+1, BACT+6, BUG, LST, LST+1, LST+4, LST+5, MIC
, MIC+1
>> Y BUG*, BUG+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All