Routine: RABAR1

Package	Total	Call Graph
Radiology Nuclear Medicine	3	(DOLLARY,HDR,KILLDIR,LINE)^RABAR EN1^RASELCT ($$EOS,$$XTERNAL)^RAUTL5
Kernel	1	(PKILL,PSET)^%ZISP
VA Fileman	1	^DIR

Package

Total

Call Graph

(DOLLARY,HDR,KILLDIR,LINE)^RABAR EN1^RASELCT ($$EOS,$$XTERNAL)^RAUTL5

(PKILL,PSET)^%ZISP

^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RABAR

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
PRINT1	; Print the test barcode
ZOSF(DX,DY)	; Called to execute ^%ZOSF("XY")
PROC()	; Select the Procedure(s)
PRINT	; Print the barcode(s) & CPT Code(s)
TEST()	; Does the user wish to print a test barcode. ; Returns '1' if test print is requested, '0' if no test print
ZTSAVE	; Save off variable for ZTLOAD

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(RA71(0),"^"),RASPACE,RA792(3),RASPACE,RA71(6),RASPACE,RA71(9) Line Location: PRINT+16
Function Call: WRITE	Prompt: ! Line Location: PRINT+17
Function Call: WRITE	Prompt: !?10 Line Location: PRINT+22
Function Call: WRITE	Prompt: ! Line Location: PRINT+22
Function Call: WRITE	Prompt: !,$P(RA71(0),"^"),RASPACE,RA792(3),RASPACE,RA71(6),RASPACE,RA71(9) Line Location: PRINT+31
Function Call: WRITE	Prompt: !?10 Line Location: PRINT+32
Function Call: WRITE	Prompt: ! Line Location: PRINT+32
Function Call: WRITE	Prompt: !,$P(RA71(0),"^"),RASPACE,RA792(3),RASPACE,RA71(6),RASPACE,RA71(9) Line Location: PRINT+35
Function Call: WRITE	Prompt: ! Line Location: PRINT+36
Function Call: WRITE	Prompt: ! Line Location: PRINT+36
Function Call: WRITE	Prompt: !,X Line Location: PRINT1+5
Function Call: WRITE	Prompt: @IOBARON,X,@IOBAROFF Line Location: PRINT1+6
Function Call: WRITE	Prompt: !,"To print barcoded procedure list, you will need to know the height (in",!,"vertical lines) of the barcode output on the printer to be used." Line Location: TEST+2
Function Call: WRITE	Prompt: ! Line Location: TEST+3
Routine Call	DIR Line Location: TEST+6

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	ZOSF+1
^DD(71	PRINT+5, PRINT+7, PRINT+17, PRINT+22, PRINT+32, PRINT+36
^RA(79.2 - [#79.2]	PRINT+10
^RAMIS(71 - [#71]	PRINT+3

Name	Field # of Occurrence
D0	PRINT+1~, PRINT+2*, PRINT+3
>> DIR("?"	TEST+4*
>> DIR("A"	TEST+3, TEST+5
>> DIR("B"	TEST+6*
>> DIR(0	TEST+3*
>> DIRUT	TEST+6
DX	ZOSF~
DY	ZOSF~
I	ZTSAVE+1~, ZTSAVE+2*, ZTSAVE+3
>> IOBAROFF	PRINT1+4, PRINT1+6
>> IOBARON	PRINT1+4, PRINT1+6
IOSL	PRINT+12, PRINT+18, PRINT+26
>> RA2	PRINT+2
RA71	PRINT+1~
RA71(0	PRINT+3*, PRINT+4, PRINT+16, PRINT+31, PRINT+35
RA71(12	PRINT+4*, PRINT+10
RA71(6	PRINT+3, PRINT+5, PRINT+16, PRINT+31, PRINT+35
RA71(9	PRINT+4, PRINT+6, PRINT+7, PRINT+9*, PRINT+16, PRINT+31, PRINT+35
RA792	PRINT+1~
RA792(3	PRINT+10*, PRINT+16, PRINT+31, PRINT+35
RADIC	PROC+1~, PROC+2*, PROC+8, PROC+9
RADIC("A"	PROC+2*
RADIC("S"	PROC+6*
RADIC("S1"	PROC+3*, PROC+6
RADIC("S2"	PROC+4*, PROC+6
RADIC("S3"	PROC+5*, PROC+6
RADIC(0	PROC+2*
>> RAEOS	PRINT+12, PRINT+18, PRINT+26
RAINPUT	PROC+1~, PROC+7*, PROC+8, PROC+9
>> RAPRNT	PRINT+11, PRINT+30, PRINT+34
RAQUIT	PROC+1~, PROC+10
>> RASORT	PROC+8, PROC+9, ZTSAVE+5
RASPACE	PRINT+1~*, PRINT+16, PRINT+31, PRINT+35
>> RATEST	ZTSAVE+6
RAUTIL	PROC+1~, PROC+7*, PROC+8, PROC+9
>> RAVHI	PRINT+17, PRINT+23, PRINT+38, ZTSAVE+7
>> RAXIT	PRINT+12, PRINT+13, PRINT+18, PRINT+19, PRINT+26, PRINT+27*
X	PRINT1+1~*, PRINT1+5, PRINT1+6
>> Y	TEST+6*, TEST+8
>> ZTSAVE(	ZTSAVE+3*
>> ZTSAVE("RASORT"	ZTSAVE+5*
>> ZTSAVE("RATEST"	ZTSAVE+6*
>> ZTSAVE("RAVHI"	ZTSAVE+7*

Information