Routine: LRMIPSU

Package	Total	Call Graph
IHS Changes To Lab	3	^BLRALAU ($$ADDON,ESIGINFO)^BLRUTIL LABHDR^BLRUTIL2
Kernel	2	($$FMTE,$$HTE)^XLFDT $$CJ^XLFSTR
Lab Service	2	^LRAIPRIV $$INS^LRU
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Lab Service	7	LRMIPSZ1 LRMIPSZ2 LRMIPSZ3 LRMIPSZ4 LRMIPSZ5 LROR4 LROR4A

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;EP - from LRMIPSZ2, LRMIPSZ3, LRMIPSZ4
HDR	;EP - from LRMIPSZ1
IHSKEY	; EP -- Legends for Micro Reports
REFS	;EP - from LRMIPSZ1
LIST
FOOT	;EP - from LRMIPSZ1 ; F X=1:1 W ! Q:$Y>(IOSL-LRFLIP)
WR
FH	;EP - from LRMIPSZ1, LRMIPSZ2, LRMIPSZ5
WAIT	; EP - from LRMIPSZ1, LRMIPSZ2 ;
FHR	;EP - from LRMIPSZ1, LRMIPSZ2

External References

Name	Field # of Occurrence
^BLRALAU	WAIT+4
$$ADDON^BLRUTIL	WAIT+4
ESIGINFO^BLRUTIL	HDR+35
LABHDR^BLRUTIL2	HDR+26
^LRAIPRIV	HDR+28
$$INS^LRU	FOOT+11
$$FMTE^XLFDT	HDR+10
$$HTE^XLFDT	HDR+13
$$CJ^XLFSTR	IHSKEY+2, IHSKEY+3, HDR+20, HDR+21
$$GET^XPAR	HDR+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$J(LREF,2),". ",$P(X1,U,2),!,$P(X1,U) Line Location: WR+3
Function Call: WRITE	Prompt: ! Line Location: WR+4
Function Call: WRITE	Prompt: $P(^LAB(95,$P(X1,U,3),0),U)," ",$P(X1,U,4),":" Condition for execution: $L($P(X1,U,3)) Line Location: WR+4
Function Call: WRITE	Prompt: $P(X1,U,5) Line Location: WR+5
Function Call: WRITE	Prompt: ",",$E($P(X1,U,6),1,3)+1700 Condition for execution: $L($P(X1,U,6)) Line Location: WR+5
Function Call: WRITE	Prompt: ! Line Location: FOOT+1
Function Call: WRITE	Prompt: ! Line Location: FOOT+2
Function Call: WRITE	Prompt: !,"Collection sample: ",LRCS,?40,"Collection date: ",LRTK Line Location: FOOT+3
Function Call: WRITE	Prompt: !! Line Location: FOOT+4
Function Call: WRITE	Prompt: ! Line Location: FOOT+5
Function Call: WRITE	Prompt: IA Condition for execution: $D(IA) Line Location: FOOT+6
Function Call: WRITE	Prompt: ?60," ROUTING: ",LRPATLOC,! Line Location: FOOT+6
Function Call: WRITE	Prompt: !,PNM,?$X+3,HRCN,?$X+3 Line Location: FOOT+10
Function Call: WRITE	Prompt: IA Condition for execution: $D(IA) Line Location: FOOT+10
Function Call: WRITE	Prompt: ?60," ROUTING: ",LRPATLOC,! Line Location: FOOT+10
Function Call: WRITE	Prompt: $$INS^LRU," LABORATORY",?62,LRACC,!,"MICROBIOLOGY",?62,"page ",LRPG,! Line Location: FOOT+11
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","=") Line Location: IHSKEY+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("S=Sensitive I=Intermediate R=Resistant NI=Not Immune I=Immune",IOM) Line Location: IHSKEY+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" IB=Inducible Beta Lactam NR=Non Reactive WR=Weakly Reactive R=Reactive",IOM),! Line Location: IHSKEY+3
Function Call: WRITE	Prompt: !,PNM,?20," ",HRCN,?35," AGE: ",AGE Line Location: HDR+4
Function Call: WRITE	Prompt: ?46,"LOC: ",LRWRD Condition for execution: $L(LRWRD) Line Location: HDR+4
Function Call: WRITE	Prompt: ?61," ",LRDT0 Line Location: HDR+5
Function Call: WRITE	Prompt: " ",Y Line Location: HDR+6
Function Call: WRITE	Prompt: ! Condition for execution: LRHC Line Location: HDR+6
Function Call: WRITE	Prompt: !,$E(PNM,1,18),?19,HRCN Line Location: HDR+9
Function Call: WRITE	Prompt: ?29,"DOB: ",$$FMTE^XLFDT(DOB,"5DZ") Line Location: HDR+10
Function Call: WRITE	Prompt: ?29,"AGE: ",AGE Line Location: HDR+11
Function Call: WRITE	Prompt: ?64,$TR($$HTE^XLFDT($H,"5MZ"),"@"," ") Line Location: HDR+13
Function Call: WRITE	Prompt: !,HDRSTR Line Location: HDR+24
Function Call: WRITE	Prompt: !,HDRSTR,! Line Location: HDR+25
Function Call: WRITE	Prompt: !,"Collection sample: ",LRCS,?40,"Collection date: ",LRTK Line Location: HDR+31
Function Call: WRITE	Prompt: !,"Site/Specimen: ",LRST Line Location: HDR+32
Function Call: WRITE	Prompt: !,"Provider: ",LRDOC,! Line Location: HDR+33
Function Call: WRITE	Prompt: "Comment on specimen: ",LRCMNT,! Condition for execution: $L(LRCMNT) Line Location: HDR+33
Function Call: WRITE	Prompt: ! Line Location: WAIT+9
Function Call: READ	Timeout: DTIME Variable: X Line Location: WAIT+10
Function Call: READ	Timeout: DTIME Variable: X Line Location: WAIT+11
Function Call: WRITE	Prompt: !,"Preliminary Comments: " Condition for execution: +$O(^LR(LRDFN,"MI",LRIDT,LRPRE,0)) Line Location: PRE+1
Function Call: WRITE	Prompt: !?3,^(J,0) Line Location: PRE+1
Function Call: WRITE	Prompt: ! Line Location: PRE+2

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61.2 - [#61.2]	LIST, LIST+2, WR
^LAB(95 - [#95]	WR+4
^LR - [#63]	PRE+1
^XUSEC("LRLAB"	HDR+29, PRE+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGE	HDR+11
>> B	REFS+1, WR+2
>> DOB	HDR+10
DTIME	WAIT+11
DUZ	HDR+29, PRE+1
DUZ("AG"	HDR+28
DUZ(2	WAIT+4
HDRSTR	HDR+19~, HDR+20, HDR+21, HDR+23*, HDR+25
>> HRCN	FOOT+10, HDR+9, WAIT+11
>> I	REFS+2, LIST+2, WAIT+9, PRE+1
>> IA	FOOT+10
IOF	HDR+2
IOM	IHSKEY+1, IHSKEY+2, IHSKEY+3, HDR+20, HDR+21
IOSL	FH+1, FHR+1, WR+1, FOOT+2, WAIT+9
IOST	HDR+2, WAIT+7
>> J	PRE+1*
>> LRACC	FOOT+11, HDR+21, HDR+30
LRBUG	REFS+3!
LRBUG(	REFS+2
>> LRCMNT	HDR+33
>> LRCS	FOOT+3, FOOT+5, HDR+31, HDR+32
>> LRDFN	PRE+1
>> LRDOC	HDR+33
>> LREF	REFS+1, REFS+2, WR+3
>> LREND	FHR+1, REFS+2, LIST+2, WR+1, HDR+1, WAIT+11*
>> LRFLIP	FH+1, FHR+1, WR+1, FOOT+2
>> LRH	HDR+29
>> LRHC	FOOT+3, HDR+14, HDR+29, WAIT+11
>> LRIDT	PRE+1
>> LRIFN	REFS+2*, LIST, LIST+2, WR
>> LRJ0	HDR+2
>> LRJ02	HDR+2*
>> LRNUM	LIST+1, LIST+2, WR
>> LRPATLOC	FOOT+10, WAIT+11
>> LRPG	FOOT+11, HDR+1*, HDR+20, HDR+21, HDR+23, HDR+30, HDR+32, HDR+33
>> LRPRE	PRE+1
>> LRRC	HDR+30
>> LRST	FOOT+5, HDR+32
>> LRTK	FOOT+3, HDR+31
>> LRTUS	PRE+1
>> LRWRD	HDR+12
>> LRWRDVEW	HDR+29, PRE+1
>> PNM	FOOT+10, HDR+9, WAIT+11
U	WR, WR+3, WR+4, WR+5, WAIT+3
>> X	FOOT+2, WAIT+11
>> X1	WR*, WR+3, WR+4, WR+5
>> XQY0	WAIT+3

Customize PDF page

Package: Lab Service

Routine: LRMIPSU

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
FOOT	FH+1, FHR+1, WR+1
HDR	FH+1, FHR+1, WR+1
IHSKEY	FOOT+8, WAIT+7
LIST	REFS+2
REFS	FHR+1
WAIT	HDR+1
WR	LIST+2