Routine: RAWORK

Information

RAWORK ;HISC/CAH,FPT,GJC AISC/TMP,RMO-Rad/Nuc Med Worksheet print (132 Char. Format) ;9/5/95 12:39

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
Radiology Nuclear Medicine	1	(CLOSE,ZIS)^RAUTL

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: 5

Package	Total	Caller Graph
Radiology Nuclear Medicine	5	RA WORKSHEETS RAORDC RAORDU RAPERR RAUTL0

Entry Points

Name	Comments	DBIA/ICR reference
ASKNUM
START
Q
RAREP
LINE1
PCE()	;Switch to turn on/off the PCE API vs the SDACS credit interface

External References

Name	Field # of Occurrence
CLOSE^RAUTL	Q+1
ZIS^RAUTL	ASKNUM+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"* RADIOLOGY/NUCLEAR MEDICINE WORKSHEETS *",!!! Line Location: RAWORK+2
Function Call: READ	Formatting: !! Prompt: "Enter the number of worksheets needed: " Variable: X Timeout: DTIME Line Location: ASKNUM+0
Function Call: WRITE	Prompt: !!?3,"Enter the number of worksheets to be printed." Line Location: ASKNUM+0
Function Call: WRITE	Prompt: !!,"NOTE: This output should be sent to a printer that supports 132 columns.",! Line Location: ASKNUM+2
Function Call: WRITE	Prompt: @IOF Condition for execution: J>1 Line Location: RAREP+0
Function Call: WRITE	Prompt: !,?56,"RADIOLOGY/NUCLEAR MEDICINE WORKSHEET",! Line Location: RAREP+0
Function Call: WRITE	Prompt: RALINE Line Location: RAREP+0
Function Call: WRITE	Prompt: @RASKIP,!,"\| \|",?9,"VAMC ",RADIV,?64,"\|",?131,"\|",@RASKIP,!,"\| \| DATE ",$E(RALINE,1,32),?46,"AGE ",$E(RALINE,1,11),?64,"\|",?75,"TIME: ",$E(RALINE,1,20),?131,"\|",@RASKIP Line Location: RAREP+1
Function Call: WRITE	Prompt: !,"\| \| SSN ",$E(RALINE,1,32),?46,"TCH ",$E(RALINE,1,11),?64,"\|",?75,"LAST EXAM: ",$E(RALINE,1,15),?131,"\|",@RASKIP,!,"\| \| NAME ",$E(RALINE,1,32),?64,"\|",?75,"WARD OR OTHER: ",$E(RALINE,1,11),?131,"\|" Line Location: RAREP+2
Function Call: WRITE	Prompt: @RASKIP Line Location: RAREP+3
Function Call: WRITE	Prompt: !,"\| \|",$E(RALINE,1,60),"\|",?131,"\|",!,"\|",?131,"\|" Line Location: RAREP+4
Function Call: WRITE	Prompt: !,"\|",?131,"\|",!,"!",?9,"AMIS",?21,"\|",?47,"DESCRIPTION",?83,"\|",?89,"TECH",?99,"\|",?105,"DIAG.",?115,"\|",?121,"M.D.",?131,"\|" Line Location: RAREP+5
Function Call: WRITE	Prompt: @RASKIP1 Line Location: RAREP+6
Function Call: WRITE	Prompt: !,?120,"__________",!,?100,"DATA ENTRY CLERK: \| \|",!,?119,"\|__________\|" Line Location: RAREP+7
Function Call: WRITE	Prompt: !,"\|",$E(RALINE,1,20),"\|",$E(RALINE,1,61),"\|",$E(RALINE,1,15),"\|",$E(RALINE,1,15),"\|",$E(RALINE,1,15),"\|" Line Location: LINE1+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	ASKNUM+1

Label References

Name	Line Occurrences
ASKNUM	ASKNUM
LINE1	RAREP+6, RAREP+7
Q	ASKNUM, ASKNUM+3
RAREP	START+2

Naked Globals

Name	Field # of Occurrence
^(0	ASKNUM+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DTIME	ASKNUM
DUOUT	Q!
I	Q!, RAREP+3*
I1	Q!, RAREP+6*
I2	Q!, RAREP+6*
IO	START
IOF	RAREP
J	START+2*, Q!, RAREP
POP	Q!
RADIV	ASKNUM+1*, Q!, RAREP+1
RALIM	Q!
RALINE	START*, Q!, RAREP, RAREP+1, RAREP+2, RAREP+4, LINE1
>> RAMDIV	ASKNUM+1
RAMES	Q!
RANUM	ASKNUM+1*, START+2, Q!
RAPOP	ASKNUM+3, Q!
RASKIP	START*, Q!, RAREP+1, RAREP+2, RAREP+3
RASKIP1	START+1*, Q!, RAREP+6
RAZIS	ASKNUM+3*, Q!
X	ASKNUM*, ASKNUM+1, Q!
ZTDESC	Q!
ZTRTN	ASKNUM+3*, Q!
ZTSAVE	Q!
ZTSAVE("RADIV"	ASKNUM+3*
ZTSAVE("RANUM"	ASKNUM+3*

Customize PDF page

Package: Radiology Nuclear Medicine