Routine: LRMIPSZ2

Information

LRMIPSZ2 ;DALOI/STAFF - MICRO PATIENT REPORT - BACTERIA, SIC/SBC, MIC ;Jul 15, 2021@13:13

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Lab Service	4	(FH,PRE)^LRMIPSU NP^LRMIPSZ1 BACT^LRMIPSZ5 D^LRU
VA FileMan	2	$$EXTERNAL^DILFD ^DIWP

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Lab Service	4	LRMIPSZ1 LRMIPSZ3 LRMIPSZ4 LRMIV1

Entry Points

Name	Comments	DBIA/ICR reference
ANTI	; ; from LRMIPSZ1
MES	;LR5.2547: Display informational message if accession/test is currently being edited.
BACT	; ; from LRMIPSZ1
BUG	;
GRAM	;
BSMEAR	;
BRMK	; ; also called from T51^LRMIV1
LST	;
SSD	;
MIC	;
CMNT	;
NP	; ; Convenience method

External References

Name	Field # of Occurrence
$$EXTERNAL^DILFD	ANTI+8
^DIWP	CMNT+7
FH^LRMIPSU	LST+24
PRE^LRMIPSU	BUG+12
NP^LRMIPSZ1	NP+2
BACT^LRMIPSZ5	BACT+24
D^LRU	BUG+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?28,"Antibiotic Level(s):" Line Location: ANTI+4
Function Call: WRITE	Prompt: !,"ANTIBIOTIC",?20,"CONC RANGE (ug/ml)",?42,"DRAW TIME" Line Location: ANTI+5
Function Call: WRITE	Prompt: !,$P(^TMP("LRMI",$J,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+8
Function Call: WRITE	Prompt: !,?22,"** ATTENTION **",!,?10,"The "_LR7AREA_" Report is being edited",!,?10,"by tech code ",^XTMP("LRMICRO EDIT",LRDFN,LRIDT,LR7SB) Line Location: MES+5
Function Call: WRITE	Prompt: " and current results",!,?10,"may not be visible until approved.",! Line Location: MES+6
Function Call: WRITE	Prompt: ! Line Location: BACT+30
Function Call: WRITE	Prompt: !,"Bacteriology Remark(s):" Line Location: BACT+31
Function Call: WRITE	Prompt: !,?3,^TMP("LRMI",$J,LRDFN,"MI",LRIDT,4,B,0) Line Location: BACT+34
Function Call: WRITE	Prompt: !,"* BACTERIOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => "_Y_" TECH CODE: "_DZ Line Location: BUG+9
Function Call: WRITE	Prompt: !,"URINE SCREEN: "_$S(LRUS="N":"Negative",LRUS="P":"Positive",1:LRUS) Line Location: BUG+13
Function Call: WRITE	Prompt: ! Condition for execution: LRHC Line Location: BUG+13
Function Call: WRITE	Prompt: !,"SPUTUM SCREEN: ",LRNS Line Location: BUG+14
Function Call: WRITE	Prompt: ! Condition for execution: LRHC Line Location: BUG+14
Function Call: WRITE	Prompt: !,"GRAM STAIN:" Line Location: GRAM+4
Function Call: WRITE	Prompt: ! Condition for execution: CNT>1 Line Location: GRAM+6
Function Call: WRITE	Prompt: ?12,^(LRGRM,0) Line Location: GRAM+6
Function Call: WRITE	Prompt: ! Line Location: GRAM+7
Function Call: WRITE	Prompt: !,"BACTERIOLOGY SMEAR/PREP:",! Line Location: BSMEAR+1
Function Call: WRITE	Prompt: ?5,^(LRMYC,0),! Line Location: BSMEAR+3
Function Call: WRITE	Prompt: !,"CULTURE RESULTS:" Line Location: LST+14
Function Call: WRITE	Prompt: ! Line Location: LST+15
Function Call: WRITE	Prompt: ?17,$S(LR2ORMOR:$J(LRBUG,2)_". ",1:" "),LRORG Line Location: LST+16
Function Call: WRITE	Prompt: !,?21 Line Location: LST+21
Function Call: WRITE	Prompt: LRX Line Location: LST+22
Function Call: WRITE	Prompt: ! Line Location: SSD+2
Function Call: WRITE	Prompt: ": ",LRSIC1 Line Location: SSD+8
Function Call: WRITE	Prompt: ": ",LRSBC1 Line Location: SSD+13
Function Call: WRITE	Prompt: ": ",LRSIC2 Line Location: SSD+18
Function Call: WRITE	Prompt: ": ",LRSBC2 Line Location: SSD+23
Function Call: WRITE	Prompt: !,?21,"Antibiotic" Line Location: MIC+3
Function Call: WRITE	Prompt: ?38,"MIC (ug/ml)",?53,"MBC (ug/ml)" Line Location: MIC+7
Function Call: WRITE	Prompt: !,?21,$P(^(B,0),U),?38,$J($P(^(0),U,2),7),?53,$J($P(^(0),U,3),7) Line Location: MIC+11
Function Call: WRITE	Prompt: !,?21,"Comment: "_^UTILITY($J,"W",31,1,0) Line Location: CMNT+9
Function Call: WRITE	Prompt: !,?21," "_^UTILITY($J,"W",31,LRIDX,0) Line Location: CMNT+15

FileNo	Call Tags
63.42	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61.2 - [#61.2]	LST+9
^LR - [#63]	BRMK+6
^TMP("LRMI"	ANTI+3, ANTI+7, ANTI+8, BACT+2, BACT+9, BACT+15, BACT+20, BACT+27, BACT+34, BUG+3 , GRAM+6, BSMEAR+3, BRMK+4, BRMK+6*, BRMK+9, BRMK+10, BRMK+12!, LST+7, LST+25, LST+26 , MIC+7, MIC+11, CMNT+4, CMNT+5
^UTILITY($J	CMNT+6!, CMNT+8, CMNT+9, CMNT+10!, CMNT+13, CMNT+14, CMNT+15, CMNT+17!
^XTMP("LRMICRO EDIT"	MES+4, MES+5, BACT+3

Label References

Name	Line Occurrences
BRMK	BACT+22
BSMEAR	BACT+17
BUG	BACT+8
CMNT	LST+27
GRAM	BACT+11
LST	BRMK+10
MES	BACT+7
MIC	LST+26
NP	BACT+10, BACT+12, BACT+16, BACT+18, BACT+21, BACT+23, BACT+25, BACT+29, BACT+30, BACT+32 , BACT+34, BUG+6, BUG+8, BUG+10, BUG+13, BUG+14, GRAM+3, GRAM+6, GRAM+8, LST+12 , SSD+1, SSD+4, SSD+9, SSD+14, SSD+19, SSD+24, CMNT+11, CMNT+16
SSD	LST+24

Naked Globals

Name	Field # of Occurrence
^(	GRAM+6, BSMEAR+3, MIC+7, MIC+11
^(0	ANTI+8, MIC+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	CMNT+1~, CMNT+4*, CMNT+8
B	ANTI+2~, ANTI+6, ANTI+7, ANTI+8, BACT+28~, BACT+33, BACT+34, MIC+2~, MIC+6, MIC+7 , MIC+10, MIC+11
CNT	GRAM+1~, GRAM+5, GRAM+6
DIWF	CMNT+1~, CMNT+3*
DIWL	CMNT+1~, CMNT+3*
DIWR	CMNT+1~, CMNT+3*
>> DZ	BUG+3*, BUG+9
I	ANTI+2~, BACT+28~, BACT+34*
IOM	LST+21, CMNT+3
>> LR2ORMOR	BRMK+8, BRMK+9, LST+16
LR7AREA	MES+2~, MES+3*, MES+5
LR7SB	MES+1, MES+3, MES+4, MES+5, BACT+6~*
>> LRABORT	BACT+9, BACT+10, BACT+13, BACT+15, BACT+16, BACT+20, BACT+21, BACT+23, BACT+27, BACT+29 , BACT+30, BACT+32, BACT+34, BUG+6, BUG+8, BUG+10, BUG+13, BUG+14, GRAM+3, GRAM+6 , LST+12, SSD+1, SSD+4, SSD+10, SSD+15, SSD+20, CMNT+4, CMNT+11
>> LRAX	BRMK+9, BRMK+10, LST+9, LST+14
LRBLDTMP	BRMK+2~, BRMK+3, BRMK+5, BRMK+12
>> LRBUG	BRMK+8, BRMK+9, BRMK+10*, LST+7, LST+16, LST+25, LST+26, MIC+7, MIC+11, CMNT+4 , CMNT+5
>> LRBUG(	LST+9*
>> LRDFN	ANTI+3, ANTI+7, ANTI+8, MES+4, MES+5, BACT+2, BACT+3, BACT+9, BACT+15, BACT+20 , BACT+27, BACT+34, BUG+3, GRAM+6, BSMEAR+3, BRMK+4, BRMK+6, BRMK+9, BRMK+10, BRMK+12 , LST+7, LST+25, LST+26, MIC+7, MIC+11, CMNT+4, CMNT+5
>> LRDRTM1	LST+11, SSD+5, SSD+8, SSD+13
>> LRDRTM2	LST+11, SSD+5, SSD+18, SSD+23
>> LREND	BACT+22, LST+8*, LST+24
>> LRGRM	GRAM+5, GRAM+6
>> LRHC	BACT+30, BUG+7, BUG+13, BUG+14, GRAM+7, LST+13, LST+24
>> LRIDT	ANTI+3, ANTI+7, ANTI+8, MES+4, MES+5, BACT+2, BACT+3, BACT+9, BACT+15, BACT+20 , BACT+27, BACT+34, BUG+3, GRAM+6, BSMEAR+3, BRMK+4, BRMK+6, BRMK+9, BRMK+10, BRMK+12 , LST+7, LST+25, LST+26, MIC+7, MIC+11, CMNT+4, CMNT+5
LRIDX	CMNT+1~, CMNT+12, CMNT+13, CMNT+14, CMNT+15
>> LRINTYPE	LST+8
>> LRLABKY	BACT+2
>> LRMYC	BSMEAR+2, BSMEAR+3
LRNS	BUG+1~, BUG+3*, BUG+14
>> LRORG	LST+9*, LST+16
>> LRPC	CMNT+3, CMNT+4, CMNT+5
>> LRPRE	BUG+11*
>> LRQU	LST+9*, LST+19, LST+20
>> LRSB	BACT+2
>> LRSBC1	LST+11*, SSD+12, SSD+13
>> LRSBC2	LST+11*, SSD+22, SSD+23
>> LRSIC1	LST+11*, SSD+7, SSD+8
>> LRSIC2	LST+11*, SSD+17, SSD+18
>> LRSSD	LST+9, LST+11, LST+24
>> LRTSTS	BRMK+10, LST+25
LRTUS	BUG+1~, BUG+3*, BUG+9
LRUS	BUG+1~, BUG+3*, BUG+13
>> LRWRDVEW	BACT+2
LRX	LST+2~, LST+7, LST+8, LST+9, LST+20, LST+21, LST+22, CMNT+1~, CMNT+5*
>> LRXPROB	LST+8*
U	ANTI+8, BACT+2, BUG+3, LST+9, LST+11, MIC+7, MIC+11
X	BUG+1~, BUG+3, CMNT+1~, CMNT+5
>> Y	BUG+3*, BUG+9

Customize PDF page

Package: Lab Service