Routine: LRAC6

Information

LRAC6 ;SLC/DCM/MIWL/JMC - PRINT CUMULATIVE REPORT CONT. (MISC.) ; 1/31/89 15:02 ;

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Lab Service	3	ENT^LRAC7 REG^LRAC9 (DASH,EQUALS)^LRX

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	LRAC3 LRAC4 LRAC5 LRAC7

Entry Points

Name	Comments	DBIA/ICR reference
LRFD1
HEAD1
HEAD	;from LRAC3, LRAC4, LRAC5, LRAC7
TOP	;from LRAC3
LRBOT	;from LRAC3
Y
LRUDT
LRKILL
LRMISC
MHI
MDT
LRMIT
WR1
WR
TXT
END
PRE	;from LRAC3
LRCNT

External References

Name	Field # of Occurrence
ENT^LRAC7	WR
REG^LRAC9	MDT+1
DASH^LRX	WR+5
EQUALS^LRX	WR, END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PNM,?20,SSN,?33,"AGE: ",AGE Line Location: TOP+3
Function Call: WRITE	Prompt: ?(IOM-42)," LOC: ",LRWRD Line Location: TOP+4
Function Call: WRITE	Prompt: ?(IOM-22),$S($D(LRCDT):LRCDT,1:"??"),?(IOM-13),"PAGE: " Line Location: TOP+5
Function Call: WRITE	Prompt: $S($D(LRMISC):"MISC",1:LRMH),":",LRPG Line Location: TOP+6
Function Call: WRITE	Prompt: ! Condition for execution: LRBOT="T" Line Location: TOP+6
Function Call: WRITE	Prompt: !,$S($D(^LAB(64.5,1,1,LRMH,0)):$P(^(0),U,2),1:$P(^LAB(64.5,1,0),U,9)) Line Location: TOP+7
Function Call: WRITE	Prompt: ! Line Location: LRBOT+1
Function Call: WRITE	Prompt: ! Line Location: Y+0
Function Call: WRITE	Prompt: $E(PNM,1,20),?21,SSN,?(IOM-46),"ROUTING: ",$E(LRLLOC,1,15),?(IOM-26) Line Location: Y+1
Function Call: WRITE	Prompt: $S(LRFULL!(LRPERM):" PERMANENT",1:" ") Line Location: Y+2
Function Call: WRITE	Prompt: " CHART COPY" Line Location: Y+3
Function Call: WRITE	Prompt: $S($D(^LAB(64.5,1,1,LRMH,0)):$P(^(0),U,2),1:$P(^LAB(64.5,1,0),U,9)) Line Location: Y+5
Function Call: WRITE	Prompt: ?(IOM-22),$S($D(LRCDT):LRCDT,1:"??"),?(IOM-13),"PAGE: " Line Location: Y+7
Function Call: WRITE	Prompt: $S($D(LRMISC):"MISC",1:LRMH),":",LRPG Line Location: Y+8
Function Call: WRITE	Prompt: !?LRTAB,$E(LRMHN,1,IOM-LRTAB) Line Location: Y+9
Function Call: WRITE	Prompt: !,"COMMENT: ",LRVAL Line Location: LRMIT+6
Function Call: WRITE	Prompt: !!,LRUDT,?15,LRSPEM,?36,LRNAME,":",?50,@$S(LRPC="":"X",1:LRPC)," " Line Location: WR1+1
Function Call: WRITE	Prompt: X1," ",LRUNT,?67 Line Location: WR1+2
Function Call: WRITE	Prompt: LRLO,"-",LRHI Condition for execution: $L(LRLO) Line Location: WR1+2
Function Call: WRITE	Prompt: !,IA Line Location: WR1+3
Function Call: WRITE	Prompt: !!!?LRCL Line Location: WR+1
Function Call: WRITE	Prompt: "* " Line Location: WR+1
Function Call: WRITE	Prompt: " ",$E(LRMHN,I) Line Location: WR+2
Function Call: WRITE	Prompt: " " Line Location: WR+3
Function Call: WRITE	Prompt: " *" Line Location: WR+3
Function Call: WRITE	Prompt: !!," Date Time Specimen",?37,"Test",?50,"Results" Line Location: WR+4
Function Call: WRITE	Prompt: ?64,"Ref ranges" Line Location: WR+5
Function Call: WRITE	Prompt: !,^(I,0) Line Location: TXT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	LRMIT+7, LRMIT+8
^LAB(61 - [#61]	LRMIT+5
^LAB(64.5 - [#64.5]	TOP+7, Y+5
^LAC(	MHI, MDT, MDT+3, LRMIT, LRMIT+1, LRMIT+3, TXT+1, PRE+1, PRE+5, LRCNT+1 , LRCNT+2
^LAC("LGOT"	LRMISC
^LAC("LRKILL"	LRFD1, HEAD1+1
^LR - [#63]	LRFD1+1, LRFD1+2, HEAD1+1, PRE+3
^TMP($J	LRFD1, HEAD1+1, TOP+8!, LRMISC!, MDT+3, LRMIT+1, WR!

Label References

Name	Line Occurrences
END	MDT
HEAD	LRKILL, WR
HEAD1	LRKILL
LRBOT	HEAD+1, END+1
LRCNT	MDT+2
LRFD1	HEAD1+1
LRMISC	PRE+6
LRMIT	LRMIT+6, WR1+4
LRUDT	MDT+2
MDT	TXT+2
TOP	HEAD+1, LRMISC+1
TXT	LRMIT
WR	MHI, MDT+2
Y	Y

Naked Globals

Name	Field # of Occurrence
^(	HEAD1+1, LRMIT+7, TXT+1, PRE+3
^(0	LRFD1+1, TOP+7, Y+5, LRMIT+3, LRMIT+8, PRE+1, PRE+5*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGE	TOP+3
DUZ("AG"	MDT+1
>> I	LRUDT, WR+1, WR+2, WR+3, TXT, TXT+1, LRCNT, LRCNT+1
IA	WR1+3!
IADA	WR1+3!
IARNO	WR1+3!
IAX	WR1+3!
IOF	TOP+1
IOM	TOP+4, TOP+5, Y+1, Y+7, Y+9
IOSL	Y, MDT+2, WR
IOST	TOP+1
>> J	LRCNT+2*
K	LRFD1, HEAD1+1*, HEAD1+2!
K(2	HEAD1+1*
K(3	LRFD1+1, LRFD1+2, HEAD1+1*
>> LRAG	TOP+8*
>> LRBOT	TOP+6, Y+4, Y+6
>> LRCDT	TOP+5, Y+7
>> LRCL	WR+1*
>> LRCNT	MHI, MDT+2, WR, LRCNT, LRCNT+1, LRCNT+3
>> LRCTN	LRCNT+2*, LRCNT+3
>> LRCW	WR1*
>> LRDFN	LRFD1, LRFD1+1, LRFD1+2, HEAD1+1, LRMISC, MHI, MDT, MDT+3, LRMIT, LRMIT+1 , LRMIT+3, TXT+1, PRE+1, PRE+3, PRE+5, LRCNT+1, LRCNT+2
>> LRDPF	TOP+4, MDT+1
LRFD	LRFD1, HEAD1+1*, HEAD1+2!
>> LRFD1	LRFD1*
>> LRFDT	LRUDT, LRUDT+2, LRMISC+1, MDT, MDT+3, LRMIT, LRMIT+1, LRMIT+3, TXT+1, LRCNT+1 , LRCNT+2
>> LRFULL	HEAD1, Y+2, WR*
>> LRHI	LRMIT+2*, WR1+2
>> LRJ02	TOP+1, TOP+2*
>> LRKL	HEAD1, TOP+8
>> LRLLOC	Y+1
>> LRLO	LRMIT+2, WR1+2, END+1
>> LRMH	LRFD1, LRFD1+2, HEAD1+1, TOP+6, TOP+7, Y+5, Y+8, Y+9, MHI, PRE+3 , PRE+4*, LRCNT+1, LRCNT+2
>> LRMHN	Y+9, MHI*, WR+1, WR+2
LRMISC	TOP+6, Y+8, END+1!, PRE+2*
>> LRMIT	MDT+3, LRMIT, LRMIT+1, LRMIT+3
>> LRNAME	LRMIT+7*, WR1+1
>> LRPC	LRMIT+7*, WR1+1
>> LRPERM	HEAD1, Y+2, LRMISC
>> LRPG	LRFD1+2, HEAD1+1, TOP+6, Y+8, Y+10, LRMISC, PRE+3*, PRE+5
>> LRPG1	Y+10, LRMISC, PRE+3
>> LRRE	HEAD1+1, PRE+3, PRE+5
LRSB	END+1!
>> LRSPE	LRMIT+4*, LRMIT+5, LRMIT+8
>> LRSPEM	LRMIT+5*, WR1+1
>> LRTAB	Y+9*
>> LRTEST	LRMIT+4*, LRMIT+6, LRMIT+7, LRMIT+8
>> LRTIM	LRUDT, LRUDT+1, LRUDT+2
>> LRUDT	LRUDT+2*, WR1+1
>> LRUNT	LRMIT+7, LRMIT+8, WR1+2
>> LRVAL	LRMIT+3*, LRMIT+6, WR1
>> LRWRD	TOP+4
>> LRX19	LRMIT+3*, LRMIT+4
>> LRX21	PRE+1*, PRE+3
>> LRXLR	MHI, MDT, MDT+3, LRMIT, LRMIT+1, LRMIT+3, TXT+1, PRE+1, PRE+5, LRCNT+1 , LRCNT+2
>> P	LRFD1+1*, LRFD1+2
>> PNM	TOP+3, Y+1
>> SSN	TOP+3, Y+1
U	LRFD1+1, LRFD1+2, HEAD1+1, TOP+7, Y+5, MHI, LRMIT+1, LRMIT+3, LRMIT+4, LRMIT+5 , LRMIT+7, LRMIT+8, PRE+3, PRE+5
>> X	WR1*
>> X1	LRMIT+4*, WR1+2
>> Z	HEAD1+1*

Customize PDF page

Package: Lab Service