Routine: RACMP

Package	Total	Call Graph
Radiology Nuclear Medicine	7	PRINT^RACMP1 (HEADER,SORT,SYNOP)^RACMP2 SETVARS^RAPSET1 (CLOSE,DATE,ZIS)^RAUTL TIME^RAUTL1 $$EOS^RAUTL5 $$DIVLOC^RAUTL7
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Radiology Nuclear Medicine	4	RA COMPLICATION RACMP2 RADLQ1 RADLY

Entry Points

Name	Comments	DBIA/ICR reference
DIVTOT(Z)	; Check if more than one division is included in the report. ; Pass back '0' if just one division, '1' if more than one division.
ASKLOG	; Ask date range
SET	; Set data global
KILL	; Kill and quit
START	; Start processing data

External References

Name	Field # of Occurrence
NOW^%DTC	START+1
PRINT^RACMP1	START+21
HEADER^RACMP2	START+19, START+25
SORT^RACMP2	START+12
SYNOP^RACMP2	START+25
SETVARS^RAPSET1	RACMP+3
CLOSE^RAUTL	START+15, START+28
DATE^RAUTL	ASKLOG+2
ZIS^RAUTL	ASKLOG+12
TIME^RAUTL1	SET+1
$$EOS^RAUTL5	START+24
$$DIVLOC^RAUTL7	RACMP+9
$$FMTE^XLFDT	START+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You need to define 'NO COMPLICATION' in your Complication " Line Location: RACMP+6
Function Call: WRITE	Prompt: "Types file",!,"in order to run this report!" Line Location: RACMP+7
Function Call: WRITE	Prompt: ! Line Location: ASKLOG+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ASKLOG+6, ASKLOG+7
^RA(78.1 - [#78.1]	RACMP+4
^RADPT - [#70]	SET+10
^RADPT("AR"	START+10, START+11
^RAMIS(71 - [#71]	SET+2
^TMP($J	RACMP+11, RACMP+12, RACMP+13, RACMP+15, ASKLOG+1!, START+16, START+18, START+20, KILL+6!, KILL+7! , KILL+8!, SET+12*, DIVTOT+3, DIVTOT+4
^VA(200 - [#200]	SET+4, SET+6, SET+8

Label References

Name	Line Occurrences
$$DIVTOT	START+23
KILL	RACMP+9, ASKLOG+2, ASKLOG+13, START+15, START+28

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+3, KILL+1!
%DT	KILL+10!
%I	KILL+1!
A	RACMP+10*, RACMP+11, RACMP+12, RACMP+14, ASKLOG+1!
B	RACMP+11, RACMP+12, RACMP+13, RACMP+15, ASKLOG+1!
BEGDATE	ASKLOG+3, ASKLOG+4, ASKLOG+5!, KILL+10!
C	RACMP+14*, RACMP+15, ASKLOG+1!
DUZ	RACMP+3, RACMP+10, RACMP+14, KILL+1
ENDDATE	ASKLOG+3, ASKLOG+4, ASKLOG+5!
I	KILL+10!
IO	START+1
IOM	START+3, START+7, START+8, START+9
POP	KILL+10!
RA0	KILL+1!
RA1	KILL+1!
RA10	KILL+1!
RA2	KILL+1!
RA3	KILL+1!
RA4	KILL+1!
RA5	KILL+1!
RA7	KILL+1!
RACCESS	KILL+9!
RACCESS(	RACMP+3, RACMP+10, RACMP+14, KILL+1!
RACMP	RACMP+4~*, RACMP+5
RACMPTX	KILL+1!, SET+10, SET+11, SET+12
RACNI	KILL+2!, SET+10, SET+12
RACOMP	KILL+2!, SET+12
RADFN	START+11*, KILL+2!, SET+10, SET+12
RADIV	START+19, START+24, KILL+2!, SET+12
RADIVNM	START+23*, KILL+2!
RADTBEG	ASKLOG+4*, START+10, KILL+2!
RADTBEGI	ASKLOG+3*, ASKLOG+6, KILL+2!
RADTBEGX	ASKLOG+6*, START+6, KILL+2!
RADTE	START+10*, START+11, START+12, KILL+2!, SET+1, SET+12
RADTEND	ASKLOG+4*, START+10, KILL+3!
RADTENDI	ASKLOG+3*, ASKLOG+7, KILL+3!
RADTENDX	ASKLOG+7*, START+6, KILL+3!
RADTI	START+12*, KILL+3!, SET+10
RAERR	START+4*, KILL+3!
RAEX	KILL+3!
RAEX(0	SET+2, SET+4, SET+6, SET+8
RAFLG	START+24*, KILL+3!
RAHDR	KILL+3!
RAHDR(1	START+5*
RAHDR(2	START+6*
RAITYPE	START+19, START+24, KILL+3!, SET+12
RALN	START+3*, KILL+3!
RAMES	KILL+10!
RANME	KILL+4!, SET+12
RAPG	START+1*, KILL+4!
RAPHY	KILL+4!, SET+6, SET+7, SET+12
RAPOP	ASKLOG+2, ASKLOG+13, KILL+4!
RAPRC	KILL+4!, SET+2, SET+3, SET+12
RAPSTX	RACMP+3*, KILL+9!
RAQUIT	KILL+5!
RARE	KILL+4!
RARES	KILL+4!, SET+4, SET+5, SET+12
RASSN	KILL+4!, SET+12
RASTF	KILL+4!, SET+8, SET+9, SET+12
RATAB	KILL+4!
RATAB(1	START+7*
RATAB(2	START+7*
RATAB(3	START+8*
RATAB(4	START+8*
RATAB(5	START+9*
RATAB(6	START+9*
RATDY	START+3*, KILL+4!
RATME	KILL+4!, SET+1*, SET+12
RAXIT	START+1, START+10, START+11, START+15, START+22, START+24, START+25, KILL+5!
X	RACMP+9, START+16, START+17, START+18, START+19, KILL+5!, SET+1, DIVTOT+2~, DIVTOT+3
Y	ASKLOG+6, ASKLOG+7, START+17, START+18, START+19, KILL+5!
Y1	DIVTOT+2~, DIVTOT+3*, DIVTOT+4
Y2	DIVTOT+2~, DIVTOT+4*
Z	DIVTOT~, DIVTOT+3, DIVTOT+4
ZTDESC	ASKLOG+8*, KILL+5!
>> ZTQUEUED	START+2
>> ZTREQ	START+2*
ZTRTN	ASKLOG+9*, KILL+5!
ZTSAVE	KILL+5!
ZTSAVE("RACMP"	ASKLOG+9*
ZTSAVE("RADT*"	ASKLOG+10*
ZTSAVE("^TMP(	$J, ""RA D-TYPE"", " , ASKLOG+11, $J, ""RA I-TYPE"", " , ASKLOG+12
ZTSAVE("^TMP($J,""RACMP"","	ASKLOG+10*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RACMP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: