Routine: BLRUER

Package	Total	Call Graph
IHS Changes To Lab	2	(EEP,PRESSKEY)^BLRGMENU ENTRYAUD^BLRUTIL
Kernel	2	($$DT,$$FMTE,$$HTFM)^XLFDT EN^XUTMDEVQ
Lab Service	2	(F,L,M,SSN,V)^LRU END^LRUTL
VA Fileman	2	$$FIND1^DIC $$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
A	; EP
BEGIN	; EP - Beginning
SET	; EP
END	; EP
W1	; EP
P1	; EP
H1	; EP
H2	; EP
H	; EP
B	; EP
EEP	; EP - Ersatz EP
DEBUGFOR	; EP - Check the FOR loop
P	; EP
DONTASK	; EP
QUE	; EP
W	; EP
GETPARAM	; EP - Get the parameters from the IHS LAB SUPERVISOR TASKED REPORTS PARAMETERS (#90475.7) file
X	; EP
TST	; EP

External References

Name	Field # of Occurrence
EEP^BLRGMENU	EEP+1
PRESSKEY^BLRGMENU	BEGIN+3
ENTRYAUD^BLRUTIL	DONTASK+16, QUE+14
$$FIND1^DIC	DEBUGFOR+25
$$GET1^DIQ	GETPARAM+7, GETPARAM+8, GETPARAM+9, GETPARAM+10, GETPARAM+11, GETPARAM+12, GETPARAM+13, GETPARAM+14, GETPARAM+15, GETPARAM+16 , QUE+11, DEBUGFOR+7, DEBUGFOR+8, DEBUGFOR+9, DEBUGFOR+10, DEBUGFOR+11, DEBUGFOR+12, DEBUGFOR+13, DEBUGFOR+14, DEBUGFOR+15 , DEBUGFOR+23, DEBUGFOR+26, DEBUGFOR+28
F^LRU	H+2
L^LRU	QUE+6
M^LRU	H+1
SSN^LRU	P+2
V^LRU	END+1
END^LRUTL	QUE+16
$$DT^XLFDT	DONTASK+5, DEBUGFOR+18, DEBUGFOR+38
$$FMTE^XLFDT	DONTASK+6, DONTASK+7, P+1, DEBUGFOR+19, DEBUGFOR+20, DEBUGFOR+40, DEBUGFOR+41
$$HTFM^XLFDT	DONTASK+4, DEBUGFOR+17, DEBUGFOR+37
EN^XUTMDEVQ	DONTASK+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,"This report can only be run from TASKMAN." Line Location: BEGIN+2
Function Call: WRITE	Prompt: !!,LRA_" "_LRB,?14,LRDATE,?34,LRP," ",HRCN,?67,LRS Line Location: P+3
Function Call: WRITE	Prompt: !?5,B(1) Line Location: P+4
Function Call: WRITE	Prompt: !?5,$P(^LR(LRDFN,"CH",LRI,1,"AC",B,C),"^",3) Line Location: P1+1
Function Call: WRITE	Prompt: ! Condition for execution: $X>60 Line Location: P1+1
Function Call: WRITE	Prompt: " (deleted by ",$S($P(X,"^",2)]"":$P(X,"^",2),1:$P(X,",")),")" Line Location: P1+1
Function Call: WRITE	Prompt: ! Line Location: B+1
Function Call: WRITE	Prompt: "Test(s) ordered:" Condition for execution: E=1 Line Location: B+1
Function Call: WRITE	Prompt: ?18,$P($G(^LAB(60,C,0)),"^"),?49,"Tech: ",J Line Location: B+1
Function Call: WRITE	Prompt: !,LRC(1) Line Location: H+2
Function Call: WRITE	Prompt: ! Condition for execution: $L(LRC(1))>44 Line Location: H+2
Function Call: WRITE	Prompt: " From: ",LRSTR," To: ",LRLST,!,"Acc #",?14,"Date/Time",?34,"Name/HRCN",?67,"Specimen",!,LR("%") Line Location: H+2
Function Call: WRITE	Prompt: !,LRA," ",LRB,?14,LRDATE,?34,LRP," ",HRCN," ",LRS Line Location: H1+1
Function Call: WRITE	Prompt: !,"Test(s) ordered:" Line Location: H2+1
Function Call: WRITE	Prompt: ?4,"GPD1:",GPD1," -- ",$$GET1^DIQ(4,GPD1,.01),! Line Location: DEBUGFOR+28
Function Call: WRITE	Prompt: ?9,"DUZ2:",DUZ2,"; DUZ2DESC:",DUZ2DESC,! Line Location: DEBUGFOR+29
Function Call: WRITE	Prompt: ?9,"PREVREPT:",PREVREPT,! Line Location: DEBUGFOR+30
Function Call: WRITE	Prompt: ?9,"SPECREJ:",SPECREJ,! Line Location: DEBUGFOR+31
Function Call: WRITE	Prompt: ?9,"ACCDELC:",ACCDELC,! Line Location: DEBUGFOR+32
Function Call: WRITE	Prompt: ?9,"LISTTEST:",LISTTEST,! Line Location: DEBUGFOR+33
Function Call: WRITE	Prompt: ?9,"NEWPAGE:",NEWPAGE,! Line Location: DEBUGFOR+34
Function Call: WRITE	Prompt: ?9,"DTRANGE:",DTRANGE,! Line Location: DEBUGFOR+35
Function Call: WRITE	Prompt: ?9,"LRSDT:",LRSDT,?29,"LRLDT:",LRLDT,! Line Location: DEBUGFOR+39
Function Call: WRITE	Prompt: ?9,"LRSTR:",LRSTR,?29,"LRLST:",LRLST,! Line Location: DEBUGFOR+42
Function Call: WRITE	Prompt: ?9,"LRS:",LRS,?29,"LRE:",LRE,! Line Location: DEBUGFOR+44
Function Call: WRITE	Prompt: ?9,"LRSDT:",LRSDT,?29,"LRLDT:",LRLDT,! Line Location: DEBUGFOR+45
Routine Call	DIC Line Location: DEBUGFOR+25

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^%ZIS(1 - [#3.5]	FIND1^DIC, GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^BLRSITE - [#9009029]	GET1^DIQ
90475.71	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRLSRP(1	DEBUGFOR+5
^DD("SITE"	QUE+5
^DIC - [#1]	P+2
^LAB(60 - [#60]	TST+3, B+1
^LAB(61 - [#61]	X+1
^LR - [#63]	QUE+15, A+1, A+2, SET+1, P+2, P+4, P+5, P1+1
^LRO(68 - [#68]	TST+1, TST+3
^LRO(69 - [#69]	QUE+7, QUE+9
^TMP("LRDFN"	QUE+4!, QUE+10*, QUE+13, QUE+15, QUE+16!
^TMP($J	QUE+4!, SET+1*, W+1, W1+1, X+1
^VA(200 - [#200]	P1+1, B+1

Label References

Name	Line Occurrences
A	QUE+15
B	TST+3
DONTASK	GETPARAM+22
END	GETPARAM+24, DONTASK+18, QUE+16
H	QUE+6, W+1, P+3, H1+1
H1	P+4, P+5, H2+1
H2	B+1
P	X+1
P1	P+5
SET	A+1, A+2
TST	P+3
W	QUE+16
W1	W+1
X	W1+1

Naked Globals

Name	Field # of Occurrence
^(	QUE+9, X+1, P+4, TST+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DONTASK+11!, DONTASK+13*, DONTASK+17
A	QUE+3~, QUE+15, W+1
ACCDELC	GETPARAM+1~, GETPARAM+12, DONTASK+2, DEBUGFOR+1~, DEBUGFOR+12, DEBUGFOR+32
B	QUE+3~, QUE+7, QUE+9, A+2, W+1, P+4, P+5*, P1+1
B(1	P+4*
C	QUE+3~, P+5, P1+1, TST+3, B+1
D	QUE+3~
D1	GETPARAM+1~, DEBUGFOR+1~
D1IEN	GETPARAM+1~, GETPARAM+6, GETPARAM+7, GETPARAM+8, GETPARAM+9, GETPARAM+10, GETPARAM+11, GETPARAM+12, GETPARAM+13, GETPARAM+14 , GETPARAM+15, GETPARAM+16, DEBUGFOR+1~, DEBUGFOR+6, DEBUGFOR+7, DEBUGFOR+8, DEBUGFOR+9, DEBUGFOR+10, DEBUGFOR+11, DEBUGFOR+12 , DEBUGFOR+13, DEBUGFOR+14, DEBUGFOR+15, DEBUGFOR+23
DEVDESC	GETPARAM+1~, DEBUGFOR+1~, DEBUGFOR+26*
DEVICE	GETPARAM+1~, GETPARAM+16, GETPARAM+20, DONTASK+15, DEBUGFOR+1~, DEBUGFOR+23, DEBUGFOR+24, DEBUGFOR+25*, DEBUGFOR+26
>> DFN	P+2*
>> DTRANGE	GETPARAM+15, DONTASK+4, DEBUGFOR+15, DEBUGFOR+17, DEBUGFOR+35, DEBUGFOR+37
DUZ(2	QUE+11
DUZ2	GETPARAM+1~, GETPARAM+7, GETPARAM+8, DEBUGFOR+1~, DEBUGFOR+7, DEBUGFOR+8, DEBUGFOR+29
DUZ2DESC	GETPARAM+1~, GETPARAM+9, DEBUGFOR+1~, DEBUGFOR+9, DEBUGFOR+29
E	QUE+3~, P+5, TST+3, B+1, H2+1
E(1	TST+3*
G	QUE+3~, TST+1, TST+2, TST+3
GPD0	GETPARAM+1~, GETPARAM+4*, GETPARAM+6
GPD1	GETPARAM+1~, GETPARAM+4, GETPARAM+6, DEBUGFOR+4, DEBUGFOR+5*, DEBUGFOR+6, DEBUGFOR+28
>> HRCN	P+3, H1+1
I	QUE+8~, QUE+9*
IO	QUE+2
IOP	DONTASK+11!, DONTASK+15*
IOSL	P+3, P+4, P+5, B+1
IOST	H+1
J	QUE+3~, B+1*
LISTTEST	GETPARAM+1~, GETPARAM+13, DONTASK+9, DEBUGFOR+1~, DEBUGFOR+13, DEBUGFOR+33
>> LR(	TST+1*, TST+3
>> LR("%"	H+2
>> LR("F"	QUE+6*, H+1
>> LR("Q"	QUE+5*, W+1, W1+1, X+1, P+3, P+4, P+5, TST+3, B+1, H+1 , H1+1, H2+1
>> LRA	W+1*, W1+1, X+1, P+3, TST+1, TST+3, H1+1
>> LRB	W+1*, W1+1, X+1, P+3, TST+1, TST+2, H1+1
>> LRC	W+1*
>> LRC(1	DONTASK+1*, A+2, H+2
>> LRC(2	DONTASK+2*, A+1
>> LRC(3	DONTASK+3*, A+2
>> LRDATE	P+1*, P+3, H1+1
LRDFN	QUE+3~, QUE+15, A+1, A+2, SET+1, W1+1, X+1, P+2, P+4, P+5 , P1+1
>> LRDPF	P+2*
>> LRE	DONTASK+8, QUE+7, DEBUGFOR+21, DEBUGFOR+43*, DEBUGFOR+44
>> LRF	DONTASK+9*, P+3
>> LRI	QUE+15, A+1, A+2, SET+1, X+1, P+4, P+5, P1+1
>> LRL	DONTASK+10*, W+1
>> LRLDT	DONTASK+5, DONTASK+7, DONTASK+8, QUE+15, DEBUGFOR+18, DEBUGFOR+20, DEBUGFOR+21, DEBUGFOR+38, DEBUGFOR+39, DEBUGFOR+41 , DEBUGFOR+43, DEBUGFOR+45
>> LRLST	DONTASK+7, H+2, DEBUGFOR+20, DEBUGFOR+41*, DEBUGFOR+42
>> LRP	P+2*, P+3, H1+1
>> LRQ	QUE+5*
>> LRQ(1	QUE+5*
>> LRS	DONTASK+8, QUE+7, X+1, P+3, H1+1, DEBUGFOR+21, DEBUGFOR+43, DEBUGFOR+44
>> LRSDT	DONTASK+4, DONTASK+6, DONTASK+8, QUE+15, DEBUGFOR+17, DEBUGFOR+19, DEBUGFOR+21, DEBUGFOR+37, DEBUGFOR+39, DEBUGFOR+40 , DEBUGFOR+43, DEBUGFOR+45
>> LRSTR	DONTASK+6, H+2, DEBUGFOR+19, DEBUGFOR+40*, DEBUGFOR+42
>> LRT	W1+1*, X+1, P+1, TST+1
LRX	QUE+3~, TST+3*, B+1
NEWPAGE	GETPARAM+1~, GETPARAM+14, DONTASK+10, DEBUGFOR+1~, DEBUGFOR+14, DEBUGFOR+34
PREVREPT	GETPARAM+1~, GETPARAM+10, DONTASK+1, DEBUGFOR+1~, DEBUGFOR+10, DEBUGFOR+30
SHOTMP	QUE+12~
SHOTMP("LRDFN"	QUE+13*
SPECREJ	GETPARAM+1~, GETPARAM+11, DONTASK+1, DEBUGFOR+1~, DEBUGFOR+11, DEBUGFOR+31
>> SSN	P+2*
TRANGE	GETPARAM+1~, DEBUGFOR+1~
U	TST+3, B+1
V	QUE+3~, P+2*
X	QUE+3~, QUE+8~, QUE+9, QUE+10, SET+1, X+1, P+2, P1+1, TST+1, TST+2
Y	QUE+3~, SET+1, P+2
Z	QUE+3~, TST+1*, TST+3
>> ZTQUEUED	BEGIN+1, BEGIN+4, QUE+1
>> ZTREQ	BEGIN+4, QUE+1
>> ZTSAVE	DONTASK+17
>> ZTSAVE("*"	DONTASK+12*
ZTSK	DONTASK+11!

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRUER

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: