Routine: RASTRPT

Package	Total	Call Graph
Radiology Nuclear Medicine	6	$$NAMCODE^RACPTMSC ($$GETLOC,$$GETPROC,RPTP20)^RASTRPT1 CLOSE^RAUTL MINUTS^RAUTL1 $$EOS^RAUTL5 STOPCHK^RAUTL9

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RASTAT

Entry Points

Name	Comments	DBIA/ICR reference
Q
HDR2	; Header for division summary
HDR1	; Header for non-division summary report
CPT
SUM
SUM2
SUM1
BP1
NEGRPT	;
DET1
DET2
PROC

External References

Name	Field # of Occurrence
$$NAMCODE^RACPTMSC	CPT+1
$$GETLOC^RASTRPT1	HDR1+6, HDR2+6
$$GETPROC^RASTRPT1	HDR1+6, HDR2+6
RPTP20^RASTRPT1	RASTRPT+6
CLOSE^RAUTL	Q+1
MINUTS^RAUTL1	DET1+1, DET2+1, SUM1+2, SUM2+2
$$EOS^RAUTL5	DET1+2, DET2+2, SUM1+3, SUM2+3, SUM2+7, NEGRPT+4
STOPCHK^RAUTL9	HDR1+11, HDR2+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DET1+0
Function Call: WRITE	Prompt: RACPT,?32,$P(RAPROC,"^",4),?44,$P(RAPROC,"^",2) Line Location: DET1+0
Function Call: WRITE	Prompt: ?56,Y,?70,$J($P(RAPROC,"^",5),5) Line Location: DET1+1
Function Call: WRITE	Prompt: !,?31,"----------",?43,"----------",?55,"----------",?67,"----------",!,?4,"Overall:" Line Location: DET2+0
Function Call: WRITE	Prompt: ?32,$P(RASUM,"^",4),?44,$P(RASUM,"^",2) Line Location: DET2+0
Function Call: WRITE	Prompt: ?56,Y,?70,$J($P(RASUM,"^",5),5) Line Location: DET2+1
Function Call: WRITE	Prompt: !,?4,"From: ",$S($D(^RA(72,+I1,0)):$P(^(0),"^"),1:"Unknown"),!,?4,"To : ",$S($D(^RA(72,+I2,0)):$P(^(0),"^"),1:"Unknown") Line Location: SUM1+0
Function Call: WRITE	Prompt: ?32,$P(RASUM,"^",4),?44,$P(RASUM,"^",2) Line Location: SUM1+1
Function Call: WRITE	Prompt: ?56,Y,?70,$J($P(RASUM,"^",5),5),! Line Location: SUM1+2
Function Call: WRITE	Prompt: !,?31,"----------",?43,"----------",?55,"----------",?67,"----------",!,?4,"From: ",$S($D(^RA(72,+RA(1),0)):$P(^(0),"^"),1:"Unknown"),!,?4,"To : ",$S($D(^RA(72,+RA,0)):$P(^(0),"^"),1:"Unknown") Line Location: SUM2+0
Function Call: WRITE	Prompt: ?32,$P(RACOMP,"^",4),?44,$P(RACOMP,"^",2) Line Location: SUM2+1
Function Call: WRITE	Prompt: ?56,Y Line Location: SUM2+2
Function Call: WRITE	Prompt: !!?4,"Total number of exams moved to a status of COMPLETE" Line Location: SUM2+4
Function Call: WRITE	Prompt: !?4,"for period ",$E(BEGDATE,4,5),"/",$E(BEGDATE,6,7),"/",$E(BEGDATE,2,3)," - ",$E(ENDDATE,4,5),"/",$E(ENDDATE,6,7),"/",$E(ENDDATE,2,3),": ",?70,$J($P(RACOMP,"^",5),5) Line Location: SUM2+5
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+2
Function Call: WRITE	Prompt: !,?20," Status Tracking Statistics Report ",?71,"Page: ",$J(RAPG,3),!,?23,"Division Summary Procedure Detail",!!,?2,"Run Date: ",$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3) Line Location: HDR1+3
Function Call: WRITE	Prompt: ?40,"For Period: ",$E(BEGDATE,4,5),"/",$E(BEGDATE,6,7),"/",$E(BEGDATE,2,3)," - ",$E(ENDDATE,4,5),"/",$E(ENDDATE,6,7),"/",$E(ENDDATE,2,3) Line Location: HDR1+4
Function Call: WRITE	Prompt: !?2,"Division: ",$E($P($G(RACCESS(DUZ,"DIV",RADV,+$O(RACCESS(DUZ,"DIV",RADV,0)))),U,2),1,25),?40,"Imaging Type: ",$E(RAIMAGE(0),1,25) Line Location: HDR1+5
Function Call: WRITE	Prompt: !?2,$$GETLOC^RASTRPT1(),?40,$$GETPROC^RASTRPT1() Line Location: HDR1+6
Function Call: WRITE	Prompt: !!,?10,"From: ",$S($D(^RA(72,+RAFR,0)):$P(^(0),"^"),1:"Unknown"),!,?10,"To : ",$S($D(^RA(72,+RATO,0)):$P(^(0),"^"),1:"Unknown") Line Location: HDR1+7
Function Call: WRITE	Prompt: !!,?33,"Minimum",?45,"Maximum",?57,"Average",!,?34,"Time",?46,"Time",?58,"Time",?67,"Number of",!,?4,"Procedure (CPT)",?31,"(DD:HH:MM)",?43,"(DD:HH:MM)",?55,"(DD:HH:MM)",?67,"Procedures" Line Location: HDR1+8
Function Call: WRITE	Prompt: !,?4,"---------------",?31,"----------",?43,"----------",?55,"----------",?67,"----------",! Line Location: HDR1+9
Function Call: WRITE	Prompt: @IOF Line Location: HDR2+2
Function Call: WRITE	Prompt: !?20," Status Tracking Statistics Report ",?71,"Page: ",$J(RAPG,3),!,?28,"Division Summary Overall",!!,?2,"Run Date: ",$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3) Line Location: HDR2+3
Function Call: WRITE	Prompt: ?40,"For Period: ",$E(BEGDATE,4,5),"/",$E(BEGDATE,6,7),"/",$E(BEGDATE,2,3)," - ",$E(ENDDATE,4,5),"/",$E(ENDDATE,6,7),"/",$E(ENDDATE,2,3) Line Location: HDR2+4
Function Call: WRITE	Prompt: !?2,"Division: ",$E($P($G(RACCESS(DUZ,"DIV",RADV,+$O(RACCESS(DUZ,"DIV",RADV,0)))),U,2),1,25),?40,"Imaging Type: ",$E(RAIMAGE(0),1,25) Line Location: HDR2+5
Function Call: WRITE	Prompt: !?2,$$GETLOC^RASTRPT1(),?40,$$GETPROC^RASTRPT1() Line Location: HDR2+6
Function Call: WRITE	Prompt: !!,?33,"Minimum",?45,"Maximum",?57,"Average",!,?34,"Time",?46,"Time",?58,"Time",?67,"Number of",!,?31,"(DD:HH:MM)",?43,"(DD:HH:MM)",?55,"(DD:HH:MM)",?67,"Procedures" Line Location: HDR2+7
Function Call: WRITE	Prompt: !,?31,"----------",?43,"----------",?55,"----------",?67,"----------",! Line Location: HDR2+8
Function Call: WRITE	Prompt: !,"There are no statistics for this Division and Imaging Type combination.",! Line Location: NEGRPT+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	NEGRPT+1
^RA(72 - [#72]	SUM1, SUM2, HDR1+7
^RAMIS(71 - [#71]	CPT
^TMP($J	RASTRPT+4, RASTRPT+5, BP1, BP1+1, PROC, PROC+1, PROC+2, SUM, SUM+1, SUM2+1 , SUM2+6, NEGRPT+4

Label References

Name	Line Occurrences
CPT	DET1
DET1	PROC
DET2	PROC+2
HDR1	BP1+1, DET1+2
HDR2	SUM+1, SUM1+3, SUM2+3, NEGRPT+2
NEGRPT	RASTRPT+5
PROC	BP1+1
Q	BP1+4
SUM	RASTRPT+4
SUM1	SUM+1
SUM2	SUM+2

Naked Globals

Name	Field # of Occurrence
^("COMPLETE"	SUM2+1
^(0	SUM1, SUM2, HDR1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BEGDATE	SUM2+5, HDR1+4, HDR2+4, Q!
DT	HDR1+3, HDR2+3, CPT+1
DUZ	HDR1+5, HDR2+5
ENDDATE	SUM2+5, HDR1+4, HDR2+4, Q!
I	Q!
I1	SUM+1*, SUM1, Q!
I2	SUM+1*, SUM1, Q!
IO	RASTRPT+3
IOF	HDR1+1, HDR1+2, HDR2+1, HDR2+2
IOSL	DET1+2, SUM1+3, SUM2+3
IOST	DET1+2, DET2+2, SUM1+3, SUM2+3, SUM2+7, HDR1+1, HDR1+2, HDR2+1, HDR2+2
POP	Q!
RA	SUM2, Q!
RA(1	SUM2
>> RACCESS(	HDR1+5, HDR2+5
RACOMP	SUM2+1*, SUM2+2, SUM2+5, Q!
RACPT	RASTRPT+3, DET1, Q!, CPT, CPT+1, CPT+2*
RACTR	RASTRPT+3, DET1+1, SUM1+2, HDR1+10, Q!
RADIVN	Q!
RADIVN(0	NEGRPT+1*
>> RADRPTYN	RASTRPT+6
RADV	RASTRPT+4*, RASTRPT+5, BP1, BP1+1, PROC, PROC+1, PROC+2, SUM, SUM+1, SUM2+1 , SUM2+6, HDR1+5, HDR2+5, Q!, NEGRPT+1, NEGRPT+4
RAFR	RASTRPT+3!, RASTRPT+4, BP1*, BP1+1, PROC, PROC+1, PROC+2, HDR1+7, Q!
RAI	Q!
RAIMAGE	Q!
RAIMAGE(0	HDR1+5, HDR2+5
RAMTIME	Q!
RAPG	RASTRPT+3, HDR1+1, HDR1+2, HDR1+3, HDR2+1*, HDR2+2, HDR2+3, Q!
RAPRC	PROC*, Q!, CPT
RAPROC	PROC*, DET1, DET1+1, DET1+3!
RAQUIT	Q!
RASTAT	Q!
RASUM	PROC+2, SUM+1, DET2, DET2+1, DET2+3!, SUM1+1, SUM1+2, SUM1+4!
RATO	BP1+1*, PROC, PROC+1, PROC+2, HDR1+7, Q!
RAXIT	RASTRPT+4, BP1, BP1+1, PROC, PROC+1, SUM+1, SUM+2, DET1+2, DET2+2, SUM1+3* , SUM2+3, SUM2+7, HDR1+11, HDR2+9, Q!, NEGRPT+2, NEGRPT+4*
RAZZZ	CPT+1*, CPT+2, CPT+3!
U	HDR1+5, HDR2+5, NEGRPT+1
VAL	Q!
VAR	Q!
X	DET1+1, DET2+1, SUM1+2, SUM2+2, Q!
X1	Q!
X2	Q!
Y	DET1+1, DET2+1, SUM1+2, SUM2+2, Q!
Y1	Q!
>> ZTQUEUED	HDR1+11, HDR2+9
>> ZTSTOP	HDR1+11, HDR2+9

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RASTRPT

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: