Routine: LRBEPRPT

Information

LRBEPRPT ;DALOI/FHS - PRINT CPT CODES FOR TESTS AND PANELS ;03/30/2005

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$CJ^XLFSTR
Lab Service	2	PANEL^LRBEBA4 $$NLT^LRVER1
CPT HCPCS Codes	1	$$CPT^ICPTCOD
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: 1

Package	Total	Caller Graph
Lab Service	1	LRBE PANEL CPT REPORT

Entry Points

Name	Comments	DBIA/ICR reference
BEBA	;Individual test CPT code look-up
LOOP	;
PANEL	;Display panel test CPT
NLT	;
DISPLAY	;
WRT	;
LN	;Check line spacing
HDR	;Report header
TEST	;List all test with CPT codes
T1	;
ATOMIC	; Print Atomic test of panel
ASK	;Present user with a selection of options
DEV	;Select print device
LOAD	;%ZTLOAD section
CLEAN	;Clean-up

External References

Name	Field # of Occurrence
^%ZIS	DEV+3
HOME^%ZIS	LOAD+6
^%ZISC	ASK+14, ASK+21, LOAD+5, CLEAN+8
^%ZTLOAD	LOAD+4
^DIR	BEBA+6, LN+3, ASK+6
$$CPT^ICPTCOD	WRT+5
PANEL^LRBEBA4	LOOP+22, NLT+1
$$NLT^LRVER1	LOOP+7
$$FMTE^XLFDT	HDR+2
$$CJ^XLFSTR	HDR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: BEBA+8
Function Call: WRITE	Prompt: !,+LRBEBY_" = "_$P(^LAB(60,+LRBEBY,0),U) Line Location: BEBA+12
Function Call: WRITE	Prompt: !,"********** ","Invalid data prevents display.",! Line Location: BEBA+13
Function Call: WRITE	Prompt: ! Line Location: LOOP+27
Function Call: WRITE	Prompt: !,LRBETST_" = "_LRREQ_$P($G(LRBEBY),U,2)_" " Line Location: NLT+8
Function Call: WRITE	Prompt: ! Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,LRBETST_" = "_LRREQ_$P(^LAB(60,LRBETST,0),U) Line Location: DISPLAY+6
Function Call: WRITE	Prompt: " / "_$P(^(0),U) Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !?6,$P(XCODE,U,2)_" "_$P(XCODE,U,3)_" ["_LRBECPT(LRBETST,LRI,LRCPT)_"]"_$G(LRPANEL) Line Location: WRT+6
Function Call: WRITE	Prompt: @IOF,! Line Location: HDR+1
Function Call: WRITE	Prompt: $$CJ^XLFSTR($G(LRHDR)_" "_$$FMTE^XLFDT(DT,5)_" Pg "_LRPG,IOM),! Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: T1+7
Function Call: WRITE	Prompt: !,+LRBEBY_" = "_$P(^LAB(60,+LRBEBY,0),U),!,"**********" Line Location: ATOMIC+2
Function Call: WRITE	Prompt: ?15,LRBEBY,! Line Location: ATOMIC+9
Function Call: WRITE	Prompt: @IOF,!,$S($G(ZTSK):"Queued to device "_LRDEV,1:"Not Queued"),! Line Location: LOAD+4
Routine Call	%ZIS Line Location: DEV+3
Routine Call	%ZIS Line Location: LOAD+6
Routine Call	DIR Line Location: BEBA+6 LN+3 ASK+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	BEBA+12, LOOP+8, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+20, LOOP+21, NLT+7, DISPLAY+5 , DISPLAY+6, TEST+9, TEST+12, T1+1, ATOMIC+1, ATOMIC+2, ATOMIC+5, ATOMIC+6, ATOMIC+7, ATOMIC+8
^LAB(61 - [#61]	NLT+9, DISPLAY+6
^TMP("LR"	BEBA+1!, LOOP+5!, CLEAN+7!

Label References

Name	Line Occurrences
ASK	ASK+9, ASK+12, ASK+20
ATOMIC	T1+6
BEBA	BEBA+16, ASK+11
CLEAN	BEBA+7, BEBA+15, TEST+19, ASK+7
DEV	ASK+14, ASK+21
DISPLAY	LOOP+25, PANEL+3
HDR	TEST+3
LN	NLT+4, DISPLAY+4, WRT+1, WRT+4, ATOMIC+9
LOAD	ASK+18, ASK+25
LOOP	BEBA+10, TEST+13, T1+2
T1	BEBA+14, TEST+16
TEST	ASK+19, ASK+26
WRT	NLT+10, DISPLAY+7

Naked Globals

Name	Field # of Occurrence
^(0	NLT+9, DISPLAY+6, TEST+9, ATOMIC+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1~, DEV+2*
%ZIS("A"	DEV+2*
%ZIS("B"	DEV+3*
DIC	LOOP+3!, CLEAN+2!
DIR	BEBA+2!, BEBA+6!, LN+3~, ASK+1!, ASK+6!, CLEAN+2!
DIR("S"	BEBA+5*
DIR(0	BEBA+4, LN+3, ASK+5*
DIRUT	LN+3, CLEAN+2!
DT	BEBA+3, LOOP+2, NLT+1, HDR+2, TEST+4, ASK+4
DTOUT	CLEAN+2!
DUOUT	CLEAN+2!
>> I	LOOP+13*, LOOP+14
IO	TEST+2, ASK+15, ASK+23
IO(0	ASK+15, ASK+23
IOF	BEBA+8, HDR+1, LOAD+4, CLEAN+1
IOM	HDR+2
ION	LOAD+3
IOSL	LN+1
IOST	LN+2
>> K	LOOP+14*, LOOP+15
LRBEBSY	ATOMIC+3~, ATOMIC+4*, ATOMIC+5, ATOMIC+6
LRBEBY	BEBA+9, BEBA+12, LOOP+7, LOOP+8, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+16, PANEL+6 , NLT+8, TEST+8, TEST+9, TEST+12, TEST+17!, T1+1, ATOMIC+1, ATOMIC+2, ATOMIC+4, ATOMIC+6 , ATOMIC+7, ATOMIC+8*, ATOMIC+9, CLEAN+3!
LRBECDT	BEBA+3, LOOP+2, NLT+1, TEST+4, ASK+4*, CLEAN+3!
LRBECPT	BEBA+2, LOOP+3!, LOOP+6, LOOP+17!, PANEL+1!, PANEL+5!, T1+3!, CLEAN+3!
LRBECPT(	LOOP+23, NLT+3, DISPLAY+3, DISPLAY+7, WRT+3, WRT+6, WRT+7!
LRBECPT(0	PANEL+2, NLT+2, DISPLAY+2
LRBEDT	CLEAN+3!
LRBELOP	BEBA+9, PANEL+2, TEST+4, CLEAN+3!
LRBENLT	CLEAN+3!
LRBEPO	PANEL+4, ASK+13*, CLEAN+4!
LRBEPSY	BEBA+2, LOOP+1, LOOP+25, PANEL+1, TEST+11*, T1+8!
LRBEPYS	LOOP+18, PANEL+3, PANEL+4, CLEAN+3!
LRBETST	LOOP+18, LOOP+19, LOOP+20, LOOP+21, LOOP+23, PANEL+6, NLT+3, NLT+7, NLT+8, DISPLAY+3 , DISPLAY+5, DISPLAY+6, DISPLAY+7, WRT+3, WRT+6, WRT+7, CLEAN+3!
LRBEY	TEST+17!, CLEAN+3!
LRBEY(	LOOP+11, LOOP+16, LOOP+19
LRBEYS	CLEAN+3!
LRCFL	CLEAN+3!
LRCPT	WRT+3*, WRT+5, WRT+6, WRT+7, CLEAN+4!
LRDEV	ASK+2!, DEV+3, LOAD+3, LOAD+4, CLEAN+6!
LRHDR	HDR+2, ASK+10, ASK+13, ASK+22*, LOAD+2, CLEAN+6!
LRI	NLT+3, DISPLAY+7, WRT+3, WRT+6, WRT+7, CLEAN+4!
LRIEN	CLEAN+4!
LRII	ATOMIC+3~, ATOMIC+4~, ATOMIC+5, ATOMIC+6
LRM	LOOP+4!, CLEAN+4!
LRMSG	DEV+1~
LRMX	LOOP+4!, CLEAN+4!
LRNAME	LOOP+3!, CLEAN+4!
LRNLT	LOOP+3!, LOOP+7*, CLEAN+4!
LRNX	CLEAN+4!
LRORD	LOOP+3!, CLEAN+4!
LRPANEL	LOOP+18, LOOP+24, LOOP+26*, WRT+6, CLEAN+4!
LRPG	BEBA+2!, HDR+1*, HDR+2, TEST+3, CLEAN+6!
LRPRT	BEBA+9, DISPLAY+2, WRT+2, TEST+11, T1+7, CLEAN+4!
LRREQ	NLT+7, NLT+8, DISPLAY+1!, DISPLAY+5, DISPLAY+6, ATOMIC+3~, ATOMIC+7*, ATOMIC+8
LRSPEC	LOOP+2, NLT+9, DISPLAY+6, TEST+8, T1+1*, CLEAN+5!
LRSTOP	BEBA+2!, LOOP+1, LOOP+19, PANEL+2, NLT+3, NLT+4, DISPLAY+1, DISPLAY+3, DISPLAY+4, WRT+1 , WRT+3, WRT+4, LN+1, LN+2, LN+3*, TEST+6, TEST+10, TEST+15, TEST+18, T1+1 , T1+5, ATOMIC+5, ATOMIC+6, ASK+1!, CLEAN+5!
LRSUB	CLEAN+5!
LRTEST	LOOP+3!, CLEAN+5!
LRTEST(	LOOP+8*, LOOP+9
LRTEST(1	LOOP+7*
LRTN	TEST+5, TEST+6, TEST+7, TEST+8, CLEAN+5!
LRTST	PANEL+6*, CLEAN+5!
LRXX	CLEAN+5!
LRY	LOOP+3!, CLEAN+5!
OPT	ASK+1!, ASK+8*, ASK+9, ASK+12, ASK+20
OUT	BEBA+11, BEBA+14, LOOP+9, LOOP+10, LOOP+15, TEST+14, T1+4, ASK+1!, ASK+3
POP	ASK+1!, ASK+14, ASK+21, CLEAN+6!
S2	CLEAN+5!
T1	LOOP+3!, LOOP+8*, LOOP+9, CLEAN+5!
U	BEBA+12, LOOP+7, LOOP+8, LOOP+9, LOOP+14, LOOP+15, LOOP+21, NLT+7, NLT+8, NLT+9 , DISPLAY+5, DISPLAY+6, WRT+6, TEST+9, TEST+12, ATOMIC+2, ATOMIC+7, ATOMIC+8
X	BEBA+2!, LOOP+7*, CLEAN+5!
XCODE	WRT+5*, WRT+6, WRT+7!
XX	LOOP+9, LOOP+10, LOOP+11, LOOP+15, LOOP+16, ASK+1!
Y	BEBA+2!, BEBA+7, BEBA+9, ASK+1!, ASK+7, ASK+8, CLEAN+5!
YY	CLEAN+5!
ZTDESC	ASK+2!, DEV+1~, LOAD+2*
ZTDTH	ASK+2!, DEV+1~, LOAD+1*
ZTIO	ASK+2!, DEV+1~, LOAD+3*
>> ZTQUEUED	CLEAN+1
ZTRTN	ASK+1!, ASK+17, ASK+24
ZTSAVE	ASK+2!, DEV+1~
ZTSAVE("LRBEPO"	ASK+16*
ZTSAVE("LRHDR"	LOAD+3*
ZTSK	DEV+1~, LOAD+4

Customize PDF page

Package: Lab Service