Routine: LRMIPSZ2

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

Package	Total	Caller Graph
Lab Service	2	LRMIPSZ1 LRMIV1

Entry Points

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

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

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

Customize PDF page

Package: Lab Service

Routine: LRMIPSZ2

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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 - LR5.21033
GRAM
CMNT
SSD
BSMEAR
BUG

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