Routine: LRBEPRPT

Information

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

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

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