Routine: RACPT

Package	Total	Call Graph
Radiology Nuclear Medicine	3	($$SRTPA,CHK,HANG,HED,PRINT)^RACPT1 (CLOSE,D)^RAUTL CMLIST^RAWKL1
VA Fileman	2	^%DT Y^DIQ

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA CPTSTATS

Entry Points

Name	Comments	DBIA/ICR reference
SET	;
GET	;
CHK
Q	;
START	; start processing
DIV
MORE	;

External References

Name	Field # of Occurrence
^%DT	START+4
Y^DIQ	MORE+2, MORE+5, SET+5
$$SRTPA^RACPT1	DIV+12
CHK^RACPT1	CHK
HANG^RACPT1	DIV+12, GET+9, GET+16
HED^RACPT1	GET+6
PRINT^RACPT1	GET+13
CLOSE^RAUTL	Q+8
D^RAUTL	START+4
CMLIST^RAWKL1	SET+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: Q+8
Function Call: WRITE	Prompt: !!,"No reports entered for the selected time frame." Line Location: GET+8
Function Call: WRITE	Prompt: !?12,"Total for this imaging type -->",?45,$J(^TMP($J,"RA",RAI,RADIV,RAIMAG(1),"DONE"),5),?63,$J(^("COST"),12,2) Line Location: GET+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(70.02	MORE+1, MORE+4
^DD(70.03	SET+4
^DIC(42 - [#42]	SET+7
^RA(72 - [#72]	SET+1
^RA(79.2 - [#79.2]	GET+4
^RADPT - [#70]	START+7, MORE+7
^RADPT("AR"	START+7
^RAMIS(71 - [#71]	DIV+7, SET+9
^TMP($J	START+1!, DIV+1, DIV+3, DIV+5, DIV+6, DIV+7, DIV+12, Q+1!, MORE+3, MORE+6 , SET+6, SET+11, SET+12, GET+2, GET+7, GET+9, GET+12, GET+13, GET+15, GET+16

Label References

Name	Line Occurrences
GET	DIV+12
MORE	START+7
Q	CHK
SET	MORE+7

Naked Globals

Name	Field # of Occurrence
^(	GET+13
^("COST"	GET+15
^(0	START+7, MORE+7, SET+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	START+4*!, Q+5!
BEGDATE	START+2, Q+2!
BEGDATE(0	START+2*
C	Q+2!, MORE+1, MORE+4, SET+4*
CPT	Q+2!, SET+9, SET+10, SET+11, GET+11, GET+12*, GET+13
DDH	Q+9!
DIR	Q+5!
DIROUT	Q+5!
DIRUT	Q+5!
DTOUT	Q+5!
DUOUT	Q+5!
ENDDATE	START+3, Q+2!
ENDDATE(0	START+3*
I	START+7, Q+1, Q+2!
II	DIV+1, DIV+12, Q+2!
IO	START+1
J	Q+2!, GET+12, GET+13
K	DIV+6*, DIV+7, Q+2!
L	DIV+6*, DIV+7, Q+2!
PAGE	DIV+11*, Q+2!
POP	Q+9!
QQ	START+5*, Q+2!
RABEG	START+7, Q+2!
RACAN	Q+6!, SET+1
RACAT	Q+2!, SET+7*, SET+8, SET+11, SET+12
RACCESS	Q+7!
RACMLIST	Q+6!, SET+10
RACN	Q+2!
RACNI	Q+2!, MORE+7*
RADFN	START+7*, Q+2!, MORE+7
RADIV	DIV+11, DIV+12, Q+3!, SET+3*, SET+11, SET+12, GET+2, GET+7, GET+9, GET+12 , GET+13, GET+15, GET+16
RADIV1	Q+3!
RADIVN	DIV+1, DIV+5, DIV+6, DIV+7, Q+3!, MORE+4, MORE+6
RADIVN(0	DIV+1, MORE+5, MORE+6
RADTI	START+7*, Q+3!, MORE+7
RAEND	START+7, Q+3!
RAEOPFLG	Q+3!, GET+1, GET+9, GET+16*
RAEXIT	DIV+11*, DIV+12, Q+3!, GET+2, GET+12, GET+13
RAI	DIV+1, DIV+5, DIV+6, DIV+7, DIV+11, DIV+12*, Q+3!, GET+2, GET+7, GET+9 , GET+12, GET+13, GET+15, GET+16
RAIMAG	DIV!, DIV+3, DIV+4, Q+3!, MORE+1, MORE+2, MORE+3, GET+3*, GET+4
RAIMAG(0	DIV+2, DIV+3, DIV+4, MORE+2, MORE+3, GET+4, GET+5*
RAIMAG(1	DIV+4, DIV+5, DIV+6, DIV+7, MORE+2, SET+11, SET+12, GET+1, GET+2, GET+3 , GET+7, GET+9, GET+12, GET+13, GET+15, GET+16
RAINPUT	Q+3!, SET+6
RAMES	Q+5!
RANUMPRC	Q+5!
RAPOP	CHK, Q+4!
RAPROC	Q+4!, SET+4*, SET+6, SET+9, SET+11
RAPROC(0	SET+5*, SET+6
RAPSTX	Q+7!
RAQUIT	CHK, Q+4!
RARUNDTE	START+4*, Q+4!
RASORT	START+6*, DIV+1, DIV+12, Q+4!, SET+8
RASV	Q+4!
RASW	Q+4!
RATOT	Q+4!, GET+13*
RATOT(3	GET+2*
RAUT	Q+4!
RAUTIL	Q+5!
RAX	Q+4!, MORE+7*, SET+1, SET+4, SET+7
RAY	START+7*, Q+4!, MORE+1, MORE+4, SET+3
U	DIV+7, MORE+1, MORE+4, SET+4, GET+4
X	START+4, START+5, DIV+11*, Q+5!
Y	START+4, Q+5!, MORE+1, MORE+2, MORE+4, MORE+5, SET+4*, SET+5
Z	Q+5!
ZTDESC	Q+5!
ZTRTN	Q+6!
ZTSAVE	Q+6!
ZTSK	Q+6!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RACPT

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: