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: LRMIPSZ2

Package: Lab Service

Routine: LRMIPSZ2


Information

LRMIPSZ2 ;AVAMC/REG/SLC/CJS/BA - MICRO PATIENT REPORT - BACTERIA, SIC/SBC, MIC ;3/28/90 15:23 ;

Source Information

Source file <LRMIPSZ2.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 3 (FH,PRE,WAIT)^LRMIPSU  BACT^LRMIPSZ5  D^LRU  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRMIPSZ1  LRMIV1  

Entry Points

Name Comments DBIA/ICR reference
BRMK
MIC
LST
BACT ;from LRMIPSZ1
ANTI ;from LRMIPSZ1
; I $P(^LR(LRDFN,"MI",LRIDT,14,0),U,4)>0 W !!,?28,"Antibiotic Level(s):",!,"ANTIBIOTIC",?20,"CONC RANGE (ug/ml)",?42,"DRAW TIME"
; I S B=0 F I=0:0 S B=$O(^LR(LRDFN,"MI",LRIDT,14,B)) Q:B<1 W !,$P(^LR(LRDFN,"MI",LRIDT,14,B,0),U),?20,$P(^(0),U,3),?42,$$EXTERNAL^DILFD(63.42,1,"",$P(^(0),U,2))
; ----- BEGIN IHS/MSC/MKK - LR*5.2*1033
GRAM
CMNT
SSD
BSMEAR
BUG

External References

Name Field # of Occurrence
$$GET1^DIQ ANTI+20
FH^LRMIPSU BACT+3, BACT+4, BACT+5, BACT+6, LST+3
PRE^LRMIPSU BUG+4
WAIT^LRMIPSU BUG+1
BACT^LRMIPSZ5 BACT+5
D^LRU BUG
$$FMTE^XLFDT ANTI+19

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,$$EXTERNAL^DILFD(63.42,1,"",$P(^(0),U,2))
  • Line Location: ANTI+2
Function Call: WRITE
  • Prompt: !,?28,"Antibiotic Level(s):"
  • Line Location: ANTI+6
Function Call: WRITE
  • Prompt: !?20,"CONC"
  • Line Location: ANTI+7
Function Call: WRITE
  • Prompt: !?20,"RANGE",?29,"DRAW"
  • Line Location: ANTI+8
Function Call: WRITE
  • Prompt: !,"ANTIBIOTIC",?19,"(ug/ml)",?29,"TIME",?39,"RESULT DATE",?57,"REF LAB"
  • Line Location: ANTI+9
Function Call: WRITE
  • Prompt: !,$E($P(STR,U),1,18)
  • Line Location: ANTI+16
Function Call: WRITE
  • Prompt: ?19,$P(STR,U,3)
  • Line Location: ANTI+17
Function Call: WRITE
  • Prompt: ?29,$S($P(STR,U,2)="P":"PEAK",$P(STR,U,2)="T":"TROUGH",1:"")
  • Line Location: ANTI+18
Function Call: WRITE
  • Prompt: ?39,$$FMTE^XLFDT(RESULTDT,"5MZ")
  • Line Location: ANTI+19
Function Call: WRITE
  • Prompt: ?57,$E($S(+REFLAB:$$GET1^DIQ(4,REFLAB,"NAME"),1:""),1,23)
  • Line Location: ANTI+20
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: !
  • Condition for execution: LRHC
  • Line Location: BUG+3
Function Call: WRITE
  • Prompt: "* BACTERIOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => "_Y_" TECH CODE: "_DZ
  • Line Location: BUG+3
Function Call: WRITE
  • Prompt: !,"URINE SCREEN: "_$S(LRUS="N":"Negative",LRUS="P":"Positive",1:LRUS)
  • Line Location: BUG+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BUG+5
Function Call: WRITE
  • Prompt: !,"SPUTUM SCREEN: ",LRNS
  • Line Location: BUG+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRHC
  • Line Location: BUG+6
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,$J($P(^(0),U,3),7)
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.2 - [#61.2] LST
^LR - [#63] ANTI+4, ANTI+11, ANTI+12, 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 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+10*, ANTI+11*, ANTI+12, BACT+6*, MIC*, MIC+1*
>> DZ BUG*, BUG+3
>> I 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+4, ANTI+11, ANTI+12, 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+3, BUG+5, BUG+6, GRAM+1, LST+2, LST+3
>> LRIDT ANTI+4, ANTI+11, ANTI+12, 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+6
>> LRORG LST*, LST+2
>> LRPC CMNT*
>> LRPLS( ANTI+15*
>> LRPRE BUG+4*
>> 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+3
>> LRUS BUG*, BUG+5
>> LRWRDVEW BACT+1
REFLAB ANTI+5~, ANTI+14*, ANTI+15, ANTI+20
RESULTDT ANTI+5~, ANTI+13*, ANTI+19
STR ANTI+5~, ANTI+12*, ANTI+13, ANTI+14, ANTI+16, ANTI+17, ANTI+18
U ANTI+4, ANTI+16, ANTI+17, ANTI+18, BACT+1, BACT+6, BUG, LST, LST+1, LST+4
, LST+5, MIC, MIC+1
>> Y BUG*, BUG+3
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