Routine: LRLABELF

Information

LRLABELF ;SLC/CJS/DALISC/DRH - PRINT COLLECTION LIST (CONT.) ; 3/28/89 19:39

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ($$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR
Lab Service	3	$$URGA^LRLABLD (SETUP,T)^LRLABLD0 PT^LRX
Registration	1	KVA^VADPT
VA FileMan	1	^DIR

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

Package	Total	Caller Graph
Lab Service	2	LRLABLD0 LRLABLDS

Entry Points

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

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
^%ZISC	DEV+3, END+4
^DIR	EOP+3
$$URGA^LRLABLD	PRINT+19
SETUP^LRLABLD0	PRINT+3
T^LRLABLD0	PHDR+8
PT^LRX	PRINT+5
KVA^VADPT	END+5
$$FMTE^XLFDT	HEAD+5, HEAD+8, PHDR+5
$$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: !?5,LRPCT,?25,"[ "_LRTYPE_" ]" Line Location: PHDR+6
Function Call: WRITE	Prompt: !?28,$S(S2="":" ",LRTVOL>S2:"Large ",1:"Small "),LRTOP," ",$S($G(LRTVOL):LRTVOL,1:1)," mL ",! Line Location: PHDR+10
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	%ZIS Line Location: DEV+1
Routine Call	DIR Line Location: EOP+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	PRINT+20
^LAB(62 - [#62]	PHDR+9, PRINT+7
^LR - [#63]	PHDR+4
^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+6!

Label References

Name	Line Occurrences
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+4, PRINT+2
^(0	PHDR+9, PRINT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Lab Service