Routine: RABAR

Information

RABAR ;HISC/GJC-Procedure & CPT Code barcode output (part 1 of 2) ;7/31/96 08:57

Source Information

Source file <RABAR.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Radiology Nuclear Medicine	3	($$PROC,$$TEST,PRINT,PRINT1,ZOSF,ZTSAVE)^RABAR1 EN1^RASELCT STOPCHK^RAUTL9
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RA BARPROCPRINT RABAR1

Entry Points

Name	Comments	DBIA/ICR reference
DOLLARY	; Caculate the new value of $Y for formatting purposes.
BOTH	; Ask the user which to sort by i.e, CPT Code -or- Procedure
INA(Y)	; Determines if the procedure is inactive ; Input : IEN of file 71 ; Output: 1 if active, 0 if inactive
HDR	; Header
START	; Start processing data & printing to the device here
KILLDIR	; Kill off variables from DIR call
DEV	; Device selection
ITYPE()	; Select the Imaging Type(s)
EN1	; Entry point for RA BARPROCPRINT (Barcoded Procedure List) ; variable list: ; 'RADIC' : namespaced DIC input variables passed to EN1^RASELCT ; 'RAPRNT': data elements to print i.e, CPT Code, Procedure or both ; 'RASORT': data elements to sort by i.e, CPT Code or Procedure ; '^TMP($J,"RA I-TYPE")': Imaging Type(s) selected by the user ; '^TMP($J,"RA PROC")' : Procedure(s) selected by the user
KILL	; Kill all other variables [ includes ^TMP($J) ]
DSCR(Y)	; Device screen logic, select only barcode capable devices.
LINE	; Print ten lines of text
HI()	; user input of height (in lines) of the barcode ; returns the height (in lines) of the barcode, OR -1 if user chooses ; to exit without inputting a number.
HELP	; Help message for barcode height prompt

External References

Name	Field # of Occurrence
^%ZIS	DEV+3
HOME^%ZIS	DEV+11
^%ZISC	START+22
^%ZTLOAD	DEV+9
^DIR	EN1+21, BOTH+5, HI+9
$$PROC^RABAR1	EN1+25
$$TEST^RABAR1	EN1+11
PRINT^RABAR1	START+18
PRINT1^RABAR1	START+12
ZOSF^RABAR1	DOLLARY+1
ZTSAVE^RABAR1	DEV+9
EN1^RASELCT	ITYPE+3
STOPCHK^RAUTL9	HDR+7
$$FMTE^XLFDT	EN1+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !?5,"Request Queued, Task #: ",$G(ZTSK) Line Location: DEV+10
Function Call: WRITE	Prompt: ! Line Location: START+22
Function Call: WRITE	Prompt: ! Line Location: BOTH+1
Function Call: WRITE	Prompt: !?(IOM-$L(RAHD1)\2),RAHD1 Line Location: HDR+2
Function Call: WRITE	Prompt: !?(IOM-$L(RAHD2)\2),RAHD2 Line Location: HDR+3
Function Call: WRITE	Prompt: ?$S(IOM=132:116,1:64),"Page: ",RAPG Line Location: HDR+4
Function Call: WRITE	Prompt: !,RALINE Line Location: HDR+5
Function Call: WRITE	Prompt: !,"If you don't know how to answer this prompt, first determine which printer",!,"you are going to use. Then exit this option and re-select it from your menu." Line Location: HELP+1
Function Call: WRITE	Prompt: !,"When you are asked if you want to print a sample barcode, enter 'Yes'." Line Location: HELP+2
Function Call: WRITE	Prompt: !,"Enter your printer selection at the 'DEVICE' prompt, then retrieve your",!,"sample printout. If no barcode has printed, contact your IRM and ask them" Line Location: HELP+3
Function Call: WRITE	Prompt: !,"to set up the printer for barcode printing. If a barcode has printed, use",!,"the line counts printed above and below the barcode to determine how many" Line Location: HELP+4
Function Call: WRITE	Prompt: !,"vertical lines the barcode occupies (include the procedure name line printed",!,"below the barcode)." Line Location: HELP+5
Function Call: WRITE	Prompt: ! Line Location: HI+4
Function Call: WRITE	Prompt: !,"LINE ",I Line Location: LINE+1
Routine Call	%ZIS Line Location: DEV+11
Routine Call	DIR Line Location: EN1+21 BOTH+5 HI+9
Routine Call	%ZIS Line Location: DEV+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DSCR+1
^%ZIS(2 - [#3.2]	DSCR+3, DSCR+4
^RAMIS(71 - [#71]	INA+3, INA+4
^TMP($J	EN1+8!, EN1+26, DEV+2, DEV+5*, START+16, START+17, KILL+1!, KILL+2!

Label References

Name	Line Occurrences
$$HI	EN1+14
$$ITYPE	EN1+24
BOTH	EN1+23
DEV	EN1+12
HDR	START+12, START+15
KILL	EN1+11, EN1+15, EN1+22, EN1+23, EN1+24, EN1+25, EN1+26, DEV+4, DEV+6, START+23
KILLDIR	EN1+16, EN1+22, BOTH+1, BOTH+6, HI+4, HI+9

Naked Globals

Name	Field # of Occurrence
^("RA BARDEV"	DEV+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%X	DEV+12!, KILL+3!
%XX	DEV+12!, KILL+3!
%Y	DEV+12!, KILL+3!
%YY	DEV+12!, KILL+3!
>> %ZIS	DEV+1*
>> %ZIS("A"	DEV+1*
>> %ZIS("B"	DEV+2*
>> %ZIS("S"	DEV+3*
DDH	KILL+5!
DIR	KILLDIR+1!
DIR("?"	EN1+18, EN1+19, EN1+20, BOTH+3, BOTH+4, HI+6, HI+7*
DIR("??"	HI+8*
DIR("A"	EN1+17, BOTH+2, HI+5*
DIR(0	EN1+16, BOTH+1, HI+4*
DIROUT	KILLDIR+1!
DIRUT	EN1+21, BOTH+5, HI+9, KILLDIR+1!
DT	EN1+10, INA+4
DTOUT	KILLDIR+1!
DUOUT	KILLDIR+1!
I	KILL+5!, LINE+1~*
IO	START+1
IO("Q"	DEV+6, DEV+12!
IOF	HDR+1
IOM	START+10, HDR+2, HDR+3, HDR+4
ION	DEV+5
POP	DEV+4, KILL+5!
RA1	START+10, START+16, START+17, KILL+3!
RA2	START+17*, KILL+3!
RABAR0	DSCR+1~, DSCR+3*, DSCR+5
RABAR1	DSCR+1~, DSCR+4*, DSCR+5
RADIC	EN1+9~, ITYPE+1~, ITYPE+2*, ITYPE+3
RADIC("A"	ITYPE+2*
RADIC(0	ITYPE+2*
RADT	EN1+9~, EN1+10*, START+9
RADX	EN1+9~, DOLLARY+1*
RADY	EN1+9~, DOLLARY+1*
RAEOS	START+15~*
RAHD1	START+3, START+4, START+5, START+6, START+8*, HDR+2, KILL+3!
RAHD2	START+9*, HDR+3, KILL+3!
RAHI	HI+3~*, HI+4, HI+6
RAINPUT	ITYPE+1~, ITYPE+3*
RALINE	START+10*, HDR+5, KILL+3!
RALOW	HI+3~*, HI+4, HI+6
RAPG	START+9, HDR+1, HDR+4, KILL+3!
RAPG1	KILL+3!
RAPRNT	EN1+9~, EN1+22*, EN1+23, START+4, START+5, START+6
RAQUIT	ITYPE+1~, ITYPE+4
RASORT	EN1+9~, BOTH+6*
RATERMTY	DSCR+1~*, DSCR+2, DSCR+3, DSCR+4
RATEST	EN1+11*, EN1+12, EN1+13!, DEV+5, START+2, START+8, START+11, KILL+1, KILL+3!
RAUTIL	ITYPE+1~, ITYPE+3*
RAVHI	EN1+9~, EN1+14*, EN1+15, START+15, DOLLARY+1
RAXIT	EN1+9~, EN1+10, EN1+21, EN1+22, EN1+23, EN1+24, EN1+25, START+12, START+15, START+16 , START+17, BOTH+5, BOTH+6, HDR+7
X	DEV+12!, KILL+3!
Y	DEV+12!, DSCR~, DSCR+1, HI+9*, HI+10, INA~, INA+3, INA+4, KILL+3!
Y(0	EN1+22, BOTH+6
ZTDESC	DEV+8*, KILL+4!
>> ZTQUEUED	START+1, HDR+7
>> ZTREQ	START+1*
ZTRTN	DEV+7*, KILL+4!
ZTSAVE	KILL+4!
>> ZTSK	DEV+10
>> ZTSK("D"	DEV+10
>> ZTSTOP	HDR+7

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RABAR

Call Graph Total: 8

Caller Graph Total: 2