Routine: LRLABELF

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ($$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR
Lab Service	3	$$URGA^LRLABLD (SETUP,T)^LRLABLD0 PT^LRX
IHS Changes To Lab	1	$$ISPIMS^BLRUTIL
VA Fileman	1	^DIR

Package	Total	Caller Graph
Lab Service	2	LRLABLD0 LRLABLDS

Entry Points

Name	Comments	DBIA/ICR reference
EOP	; End-of-page
HEAD	;
EN	;
PAT	;
HDR	;
INIT	;
DEV	;
PHDR
CHDR	;
PRINT	;
END	; ; Called by LRLABLD0, LRLABLDS

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
^%ZISC	DEV+3, END+4
$$ISPIMS^BLRUTIL	END+7
^DIR	EOP+3
$$URGA^LRLABLD	PRINT+19
SETUP^LRLABLD0	PRINT+3
T^LRLABLD0	PHDR+10
PT^LRX	PRINT+5
$$FMTE^XLFDT	HEAD+5, HEAD+8, PHDR+7
$$NOW^XLFDT	INIT+2
$$CJ^XLFSTR	HEAD+6, HEAD+9, HEAD+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: INIT+3
Function Call: WRITE	Prompt: !! Line Location: EN+12
Function Call: WRITE	Prompt: @IOF Line Location: EN+13
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(LRHEAD,IOM) Line Location: HEAD+6
Function Call: WRITE	Prompt: !,"Print Date@Time : ",$$FMTE^XLFDT(LRPRTDT),?60,LRPAGE Line Location: HEAD+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(LRCLOC,IOM,"-") Line Location: HEAD+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("WARD LOC/REQ LOC ",IOM," ") Line Location: HEAD+10
Function Call: WRITE	Prompt: !,PNM Line Location: PHDR+2
Function Call: WRITE	Prompt: ?32,LRRB Line Location: PHDR+2
Function Call: WRITE	Prompt: ?42,SSN,?57,"Order #: ",LRCE Line Location: PHDR+3
Function Call: WRITE	Prompt: ?42,HRCN,?57,"Order #: ",LRCE Line Location: PHDR+4
Function Call: WRITE	Prompt: ?42,HRCN,?53,"Order #: ",LRCE Line Location: PHDR+5
Function Call: WRITE	Prompt: !?5,LRPCT,?25,"[ "_LRTYPE_" ]" Line Location: PHDR+8
Function Call: WRITE	Prompt: !?28,$S(S2="":" ",LRTVOL>S2:"Large ",1:"Small "),LRTOP," ",$S($G(LRTVOL):LRTVOL,1:1)," mL ",! Line Location: PHDR+12
Function Call: WRITE	Prompt: !?10,"<CONTINUE NEXT PAGE # "_PAGE+1_" >" Line Location: CHDR+1
Function Call: WRITE	Prompt: ! Line Location: PRINT+21
Function Call: WRITE	Prompt: ?TAB,$S(LRURGN<3:"** ",1:"")," (",$P(LRURGA,"^"),") ",LRTEST Line Location: PRINT+22
Routine Call	DIR Line Location: EOP+3
Routine Call	%ZIS Line Location: DEV+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	PRINT+20
^LAB(62 - [#62]	PHDR+11, PRINT+7
^LR - [#63]	PHDR+6
^LRO(69 - [#69]	PRINT+2, PRINT+8, PRINT+14, PRINT+16, PRINT+17
^TMP($J	EN+2, EN+4, EN+6, EN+9, PAT+2, END+9!

Label References

Name	Line Occurrences
@(	END+7
EOP	HEAD+3
HDR	PRINT+11, PRINT+21
HEAD	EN+7, HDR+1
INIT	DEV+2
PAT	EN+9
PHDR	CHDR+2, PRINT+12, PRINT+13
PRINT	PAT+5

Naked Globals

Name	Field # of Occurrence
^(	PHDR+6, PRINT+2
^(0	PHDR+11, PRINT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	END+13!
%ZIS	DEV+1!*, END+13!
A	END+10!
AGE	END+20!
C	END+13!
>> CHDR	PHDR, CHDR+2*
CNT	INIT+2*, END+14!
D0	END+15!
D1	END+15!
DFN	END+13!
DIC	END+13!
DIR	EOP+1~, END+10!
DIR(0	EOP+2*
DIRUT	EOP+1~, EOP+4, END+10!
DOB	END+20!
DTOUT	EOP+1~, END+10!
DUOUT	EOP+1~, END+10!
E	END+20!
HRCN	PHDR+5, END+21!
I	END+13!
IO	INIT+1, DEV+2
IOF	INIT+3, EN+13, HEAD+4, DEV+2, END+2
IOM	HEAD+6, HEAD+9, HEAD+10
IOSL	PRINT+11, PRINT+21
IOST	INIT+3, EN+12, HEAD+3, DEV+2, END+2
J	END+13!
L9	END+13!
LN	END+17!
LRACC	END+13!
LRBARID	END+11!
LRCE	PHDR+5, PRINT+2*, END+13!
LRCHLOC	END+13!
LRCLOC	EN+5, EN+6, EN+9, HEAD+9, PAT+2, END+14!
LRCLTY	END+13!
LRCOLTY	END+11!
LRCOLTY(	PRINT+9
LRCT	EN+3, EN+4, EN+6, EN+9, PHDR+7, PAT+2, END+14!
LRCT0	END+16!
LRDAT	END+13!
LRDFN	PRINT+4*, END+16!
LRDPF	PRINT+4!, PRINT+5, END+13!
LRDTC	END+18!
LREND	INIT+2, EN+2, EN+4, EN+6, EN+9, HEAD+1, PAT+2, PRINT+5, PRINT+6, EOP+4 , END+11!
LRHEAD	HEAD+5*, HEAD+6, END+11!
LRINFW	END+16!
LRLABEL	END+16!
LRLLOC	END+16!
LRLOCF	END+13!
LRLOCF1	END+13!
LRNEW	PHDR+1, PAT+4!, PRINT+12, PRINT+13
LRNEWL	END+14!
LRNODE0	PHDR+6, PHDR+9, PHDR+11, PRINT+2*, PRINT+4, PRINT+7, PRINT+9, END+11!
LRODT	EN+1, EN+2, EN+4, EN+6, EN+9, HEAD+5, PAT+2, PRINT+2, PRINT+8, PRINT+14 , PRINT+16, PRINT+17, END+16!
LRORD	PRINT+8*, END+11!
LRORDN	END+14!
>> LRPAGE	HEAD+7*, HEAD+8
LRPCT	PHDR+7*, PHDR+8, END+11!
LRPERH	END+12!
LRPERT	END+12!
LRPICK	INIT+3, EN+7, EN+10, PAT+3, PRINT+3, END+2, END+14!
LRPNM	EN+8, EN+9, PAT+2, PRINT+12, PRINT+13, END+14!
>> LRPORD	PRINT+7*
LRPRAC	END+14!
LRPREF	END+16!
LRPRTDT	INIT+2*, HEAD+8, END+15!
LRRB	PHDR+2, END+16!
LRSING	END+14!
LRSN	PRINT+1*, PRINT+2, PRINT+8, PRINT+14, PRINT+16, PRINT+17, END+16!
LRSNN	PAT+1, PAT+2, PRINT+1, END+14!
LRSP	PRINT+12, PRINT+14, PRINT+16, PRINT+17, END+12!
LRSSP	END+16!
LRSTOP	END+17!
LRTEST	PRINT+17, PRINT+18, PRINT+20, PRINT+22, END+12!
LRTIC	END+17!
LRTJ	END+17!
LRTJDATA	END+17!
LRTOP	PHDR+11, PHDR+12, PRINT+7, END+17!
LRTREA	END+14!
LRTS	END+17!
LRTV	END+17!
LRTVOL	PHDR+9*, PHDR+12, END+17!
LRTXT	END+18!
LRTYPE	PHDR+8, PRINT+7, PRINT+9, PRINT+10*, END+12!
LRUID	END+11!
LRURG	PHDR+9~, END+17!
LRURG0	END+17!
LRURGA	PRINT+15~, PRINT+19*, PRINT+22, END+17!
LRURGN	PRINT+17*, PRINT+19, PRINT+22, END+12!
LRVOL	END+18!
LRWRD	END+13!
LRXL	END+18!
LRY1	END+20!
N	END+18!
NODE	PHDR+9*, END+18!
PAGE	INIT+2, EN+11, HEAD+2, HEAD+5*, HEAD+7, CHDR+1, END+15!
PNM	PHDR+1, PHDR+2, END+20!
POP	DEV+1, END+20!
S	END+13!
S1	END+18!
S2	PHDR+9, PHDR+11, PHDR+12, END+18!
SEX	END+20!
SSN	END+20!
T	END+18!
TAB	PRINT+14, PRINT+21, PRINT+22, END+12!
U	PHDR+11, PRINT+7, PRINT+9, PRINT+17, PRINT+20
VA	END+20!
VAERR	END+20!
X	EOP+1~, END+20!
Y	EOP+1~, END+18!
Y1	END+18!
Y2	END+18!
ZTDESC	END+19!
ZTIO	END+19!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	END+19!
ZTSAVE	END+19!

Customize PDF page

Package: Lab Service

Routine: LRLABELF

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: