Routine: RAPRINT

Package	Total	Call Graph
Radiology Nuclear Medicine	7	KILL^RADLY1 (DIV,HANG,HDR)^RAPRINT1 SETVARS^RAPSET1 EN1^RASELCT (CLOSE,DATE,ZIS)^RAUTL ($$SETUPDI,SELDIV,SELIMG)^RAUTL7 STOPCHK^RAUTL9
VA Fileman	1	^DIR

Package

Total

Call Graph

KILL^RADLY1 (DIV,HANG,HDR)^RAPRINT1 SETVARS^RAPSET1 EN1^RASELCT (CLOSE,DATE,ZIS)^RAUTL ($$SETUPDI,SELDIV,SELIMG)^RAUTL7 STOPCHK^RAUTL9

VA Fileman

^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA ABNORMAL

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA ABNORMAL

Entry Points

Name	Comments	DBIA/ICR reference
PAT1
END	;
NEGRPT	; negative reports
START	;
BTG	; build tmp global
OMADX(RAAB)	; One-Many-All selector for Dx codes. ; Input : RAAB=0 - doesn't need 'Print On Abnormal Rpts' set to 'yes' ; RAAB=1 - must have 'Print On Abnormal Rpts' set to 'yes'

External References

Name	Field # of Occurrence
^DIR	RAPRINT+40, RAPRINT+50
KILL^RADLY1	RAPRINT+15, RAPRINT+17
DIV^RAPRINT1	START+5
HANG^RAPRINT1	NEGRPT+5
HDR^RAPRINT1	START+3, NEGRPT+6
SETVARS^RAPSET1	RAPRINT+9
EN1^RASELCT	OMADX+7
CLOSE^RAUTL	END+5
DATE^RAUTL	RAPRINT+54
ZIS^RAUTL	RAPRINT+55
$$SETUPDI^RAUTL7	RAPRINT+12
SELDIV^RAUTL7	RAPRINT+14
SELIMG^RAUTL7	RAPRINT+16
STOPCHK^RAUTL9	BTG+1, NEGRPT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?10,"ABNORMAL EXAM REPORT",! Line Location: RAPRINT+10
Function Call: WRITE	Prompt: !!?3,"No Diagnostic Codes selected, try again later." Line Location: RAPRINT+26
Function Call: WRITE	Prompt: ! Line Location: RAPRINT+48
Function Call: WRITE	Prompt: ! Line Location: RAPRINT+55
Function Call: WRITE	Prompt: ! Line Location: OMADX+7
Routine Call	DIR Line Location: RAPRINT+40 RAPRINT+50

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	BTG+3
^DPT - [#2]	BTG+11
^RA(78.3 - [#78.3]	START+4
^RA(79.2 - [#79.2]	BTG+6
^RADPT - [#70]	PAT1+2, PAT1+3, BTG+2
^RADPT("AD"	START+4, PAT1+1
^RARPT - [#74]	PAT1+4
^TMP($J	RAPRINT+13!, RAPRINT+15, RAPRINT+17, RAPRINT+19, RAPRINT+21, RAPRINT+24!, RAPRINT+25, START+4, END+1!, BTG+4 , BTG+7, BTG+10, BTG+12, NEGRPT+4

Name	Line Occurrences
BTG	PAT1+5, PAT1+8
END	RAPRINT+12, RAPRINT+15, RAPRINT+17, RAPRINT+25, RAPRINT+41, RAPRINT+51, RAPRINT+54, RAPRINT+55, START+3
NEGRPT	START+5
OMADX	RAPRINT+24
PAT1	START+4

Name

Line Occurrences

BTG

PAT1+5, PAT1+8

END

RAPRINT+12, RAPRINT+15, RAPRINT+17, RAPRINT+25, RAPRINT+41, RAPRINT+51, RAPRINT+54, RAPRINT+55, START+3

NEGRPT

START+5

OMADX

RAPRINT+24

PAT1

START+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEGDATE	RAPRINT+54*, START+4, END+1!
CNT	START+2, END+1!, NEGRPT+5, NEGRPT+6, NEGRPT+11
DIR	RAPRINT+28!, RAPRINT+49!, RAPRINT+50!, END+1!
DIR("?"	RAPRINT+32, RAPRINT+33, RAPRINT+34, RAPRINT+35, RAPRINT+36, RAPRINT+37, RAPRINT+38, RAPRINT+50
DIR("A"	RAPRINT+29, RAPRINT+50
DIR("B"	RAPRINT+31, RAPRINT+39, RAPRINT+50*
DIR(0	RAPRINT+30, RAPRINT+50
DIROUT	RAPRINT+28!, RAPRINT+49!, END+1!
DIRUT	RAPRINT+28!, RAPRINT+41, RAPRINT+42, RAPRINT+49!, RAPRINT+51, END+1!
DT	START+2
DTOUT	RAPRINT+28!, RAPRINT+49!, END+1!
DUOUT	RAPRINT+28!, RAPRINT+49!, END+1!
DUZ	RAPRINT+9, RAPRINT+18, RAPRINT+20
ENDDATE	RAPRINT+54*, START+2, END+1!
I	START+2!, START+4*, END+1!, PAT1+1, BTG+12
I1	END+1!
I1("DIV"	START+2*
I1("DX"	START+2*
I1("IT"	START+2*
IO	START+2
J	START+4*, END+1!, PAT1+1, PAT1+2, PAT1+3, BTG+2, BTG+11, BTG+12
K	START+4*, END+1!, PAT1+1, PAT1+2, PAT1+3, BTG+2, BTG+12
L	END+1!, PAT1+1*, PAT1+2, PAT1+3, BTG+12
PDATE	START+2*, END+1!
POP	END+1!, END+3!
QQ	START+2*, END+1!
RAAB	OMADX~, OMADX+6
RACASE	END+2!
RACCESS	END+4!
RACCESS(	RAPRINT+9, RAPRINT+18, RAPRINT+20
RADFN	END+2!
RADIAG	END+2!
RADIC	END+2!, OMADX+3~, OMADX+4*, OMADX+7
RADIC("A"	OMADX+5*
RADIC("B"	OMADX+5*
RADIC("S"	OMADX+6*
RADIC(0	OMADX+4*
RADIVNME	END+2!, BTG+3, BTG+4, BTG+5, BTG+10, BTG+12, NEGRPT+3, NEGRPT+4, NEGRPT+7
RADIVNUM	END+2!, BTG+3*
RADXCODE	END+2!
RAEND	START+2*, START+4, END+2!
RAEXAM	END+2!
RAEXDT	END+2!
RAITNAME	END+2!, BTG+6, BTG+7, BTG+8, BTG+10, BTG+12, NEGRPT+4*, NEGRPT+7
RAITNUM	END+2!, BTG+6*
RAMD	END+2!
RAMES	END+3!
RAOUT	START+2, START+3, START+4, END+2!, PAT1+1, BTG+1, NEGRPT+1, NEGRPT+2, NEGRPT+3, NEGRPT+4 , NEGRPT+5, NEGRPT+6
RAPAT	END+2!
RAPATNME	END+2!, BTG+11*, BTG+12
RAPOP	RAPRINT+54, RAPRINT+55, END+2!
RAPROC	END+2!
RAPSTX	RAPRINT+9*, END+4!
RAQUIT	RAPRINT+15, RAPRINT+17, END+2!, OMADX+3~
>> RARE(0	BTG+2*, BTG+3, BTG+6, BTG+9!
RASDXDTE	END+2!
RASDXIEN	END+2!
RASSN	END+2!
RASW	RAPRINT+52*, END+2!
RATMP	PAT1~, PAT1+3, PAT1+4, PAT1+5, PAT1+6, PAT1+7
RATRPTG	RAPRINT+44*, END+2!
RATYPE	RAPRINT+46*, END+2!, PAT1+6, PAT1+7
RAUTIL	END+2!, OMADX+3~, OMADX+4*, OMADX+7
RAWARD	END+2!
RAXIT	RAPRINT+12*, END+2!
U	PAT1+3, PAT1+4, BTG+3, BTG+6, BTG+11
X	RAPRINT+18*, RAPRINT+19, RAPRINT+20, RAPRINT+21, END+2!
Y	RAPRINT+19, RAPRINT+20, RAPRINT+21, RAPRINT+44, RAPRINT+46, RAPRINT+52, END+2!
ZTDESC	END+3!
>> ZTQUEUED	START+1, BTG+1, NEGRPT+2
>> ZTREQ	START+1*
ZTRTN	RAPRINT+52*, END+3!
ZTSAVE	END+3!
ZTSAVE("BEGDATE"	RAPRINT+52*
ZTSAVE("ENDDATE"	RAPRINT+52*
ZTSAVE("RASW"	RAPRINT+52*
ZTSAVE("RAT*"	RAPRINT+52*
ZTSAVE("^TMP(	$J, ""RA D-TYPE"", " , RAPRINT+52, $J, ""RA DX CODES"", " , RAPRINT+53, $J, ""RA I-TYPE"" , " , RAPRINT+52*
ZTSAVE("^TMP($J,""RADLY"","	RAPRINT+52*
>> ZTSTOP	BTG+1, NEGRPT+2

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPRINT

Information

Source Information