Routine: RASTRPT1

Package	Total	Call Graph
Radiology Nuclear Medicine	4	$$NAMCODE^RACPTMSC MINUTS^RAUTL1 $$EOS^RAUTL5 STOPCHK^RAUTL9

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RASTRPT

Entry Points

External References

Name	Field # of Occurrence
$$NAMCODE^RACPTMSC	CPT+1
MINUTS^RAUTL1	DET1+3, DET2+1, SUM1+2, SUM2+3
$$EOS^RAUTL5	DET1+4, DET2+2, SUM1+3, SUM2+4, SUM2+8, STRT+2, LST
STOPCHK^RAUTL9	HDR3+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HDR3+2
Function Call: WRITE	Prompt: !,?20," Status Tracking Statistics Report ",?71,"Page: ",$J(RAPG,3) Line Location: HDR3+3
Function Call: WRITE	Prompt: !,?20,"Procedure Detail by Requesting Location" Line Location: HDR3+4
Function Call: WRITE	Prompt: !,?19,"Division Summary Requesting Location Details" Line Location: HDR3+5
Function Call: WRITE	Prompt: !?14,"(Only requesting locations with data are included)" Line Location: HDR3+6
Function Call: WRITE	Prompt: !!,?2,"Run Date: ",$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3) Line Location: HDR3+7
Function Call: WRITE	Prompt: ?42,"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: HDR3+8
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: HDR3+9
Function Call: WRITE	Prompt: !?2,"Requesting Location: ",$E(RARL,1,76) Line Location: HDR3+11
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: HDR3+12
Function Call: WRITE	Prompt: !,?33,"Minimum",?45,"Maximum",?57,"Average",!,?34,"Time",?46,"Time",?58,"Time",?67,"Number of",! Line Location: HDR3+13
Function Call: WRITE	Prompt: ?4,"Procedure (CPT)" Line Location: HDR3+14
Function Call: WRITE	Prompt: ?31,"(DD:HH:MM)",?43,"(DD:HH:MM)",?55,"(DD:HH:MM)",?67,"Procedures" Line Location: HDR3+15
Function Call: WRITE	Prompt: !,?4,"---------------" Line Location: HDR3+16
Function Call: WRITE	Prompt: !?31,"----------",?43,"----------",?55,"----------",?67,"----------",! Line Location: HDR3+17
Function Call: WRITE	Prompt: ! Line Location: DET1+0
Function Call: WRITE	Prompt: RACPT Line Location: DET1+1
Function Call: WRITE	Prompt: ?32,$P(RAPROC,"^",4),?44,$P(RAPROC,"^",2) Line Location: DET1+2
Function Call: WRITE	Prompt: ?56,Y,?70,$J($P(RAPROC,"^",5),5) Line Location: DET1+3
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,RAFR,0)):$P(^(0),"^"),1:"Unknown"),!,?4,"To : ",$S($D(^RA(72,+RATO,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+3
Function Call: WRITE	Prompt: !!?4,"Total number of exams moved to a status of COMPLETE" Line Location: SUM2+5
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(RAZZSS1,5) Line Location: SUM2+6
Function Call: WRITE	Prompt: !?2,RA20B,!?2,RA20C Line Location: STRT+0
Function Call: WRITE	Prompt: !?2,RA20A Line Location: STRT+2
Function Call: WRITE	Prompt: !?2,RA20B,!?2,RA20C Line Location: STRT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	HDR3+12, SUM1, SUM2
^RAMIS(71 - [#71]	CPT
^TMP(	STRT+2
^TMP($J	RPTP20+4, RPTP20+5, RPTP20+7, RPTP20S+5, RPTP20S+6, RPTP20S+8, PROC, PROC+1, PROC+2, SUM2+1 , SUM2+2, SUM2+7, ISTHERE+3

Label References

Name	Line Occurrences
$$ISTHERE	STRT+2
CPT	DET1+1
DET1	PROC
DET2	PROC+2
HDR3	RPTP20+7, RPTP20S+5, DET1+4, SUM1+3, SUM2+4, STRT, STRT+2
LST	STRT+2
PROC	RPTP20+7
PUTNOST	RPTP20+11
RPTP20S	RPTP20+10
STRT	LST+2
SUM1	RPTP20S+8
SUM2	BP2

Naked Globals

Name	Field # of Occurrence
^("COMPLETE"	SUM2+1
^(0	HDR3+12, SUM1, SUM2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BEGDATE	HDR3+8, SUM2+6
DT	HDR3+7, CPT+1
DUZ	HDR3+9
>> ENDDATE	HDR3+8, SUM2+6
I1	RPTP20S+3~
I2	RPTP20S+3~
IOF	HDR3+1, HDR3+2
IOSL	DET1+4, SUM1+3, SUM2+4, STRT+2
IOST	HDR3+1, HDR3+2, DET1+4, DET2+2, SUM1+3, SUM2+4, SUM2+8, STRT+2, LST
>> RA	SUM2
>> RA(1	SUM2
RA20	GETLOC+1~, GETLOC+2, GETLOC+3, GETLOC+4, GETPROC+1~, GETPROC+2, GETPROC+3, GETPROC+4
RA20A	PUTNOST+1~, STRT+1, STRT+2, ISTHERE+1~, ISTHERE+2, ISTHERE+3
RA20B	PUTNOST+1~, PUTNOST+3, STRT, STRT+2, ISTHERE+1~, ISTHERE+2, ISTHERE+3*, ISTHERE+4
RA20C	PUTNOST+1~, PUTNOST+3*, STRT, STRT+2, ISTHERE+1~
RA20FL	PUTNOST+1~, PUTNOST+3, STRT+2, LST+1
RA20J	PUTNOST~, STRT+2
RA20PASS	PUTNOST+1~, PUTNOST+3, STRT, STRT+2, LST, LST+1, LST+2
>> RA20RLOC	RPTP20+11, HDR3+6, GETLOC+2, GETLOC+3
>> RACCESS(	HDR3+9
>> RACOMP	SUM2+1*, SUM2+3
>> RACPT	DET1+1, CPT, CPT+1, CPT+2
>> RACTR	HDR3+18, DET1+3, SUM1+2*
RADV	RPTP20+2, RPTP20S+2, HDR3+9, ISTHERE~, ISTHERE+3
RADV1	RPTP20+2~, RPTP20+4, RPTP20+5, RPTP20+7, RPTP20+11, RPTP20S+2~, RPTP20S+5, RPTP20S+6, RPTP20S+8, PROC , PROC+1, PROC+2, SUM2+1, SUM2+2, SUM2+7, PUTNOST~, STRT+2
>> RAFR	RPTP20+5, RPTP20+7, RPTP20S+6, RPTP20S+8, HDR3+12, PROC, PROC+1, PROC+2, SUM1
RAIM	ISTHERE~, ISTHERE+3
RAIM1	PUTNOST~, STRT+2
>> RAIMAGE	RPTP20+4, RPTP20+5, RPTP20+7, RPTP20+11, RPTP20S+5, RPTP20S+6, RPTP20S+8, PROC, PROC+1, PROC+2 , SUM2+1, SUM2+2
>> RAIMAGE(0	HDR3+9
RALOC	ISTHERE~, ISTHERE+3
>> RAPG	HDR3+1*, HDR3+2, HDR3+3
>> RAPRC	PROC*, CPT
RAPROC	PROC*, DET1+2, DET1+3, DET1+5!
>> RAPROCED	GETPROC+2, GETPROC+3
RARL	RPTP20+1~, RPTP20+2, RPTP20+4, RPTP20+5, RPTP20+7, RPTP20S+1~, RPTP20S+2, RPTP20S+5, RPTP20S+6, RPTP20S+8 , HDR3+11, PROC, PROC+1, PROC+2, SUM2+1, SUM2+2
RASUM	RPTP20S+8, PROC+2, DET2, DET2+1, DET2+3!, SUM1+1, SUM1+2, SUM1+4!
>> RATO	RPTP20+6, RPTP20+7, RPTP20S+7, RPTP20S+8, HDR3+12, PROC, PROC+1, PROC+2, SUM1
>> RAXIT	RPTP20+4, RPTP20+5, RPTP20+7, RPTP20S+5, RPTP20S+6, RPTP20S+8, BP2, HDR3+19, PROC, PROC+1 , DET1+4, DET2+2, SUM1+3, SUM2+4, SUM2+8, STRT+2, LST
RAZZSS1	SUM2+2~*, SUM2+6
RAZZSSFL	RPTP20+3~, RPTP20S+4~, HDR3+4, HDR3+10, HDR3+12, HDR3+14, HDR3+16, HDR3+18, DET1+1, PUTNOST+2*
RAZZZ	CPT+1*, CPT+2, CPT+3!
U	HDR3+9
>> X	DET1+3, DET2+1, SUM1+2, SUM2+3
>> Y	DET1+3, DET2+1, SUM1+2, SUM2+3
>> ZTQUEUED	HDR3+19
>> ZTSTOP	HDR3+19

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RASTRPT1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HDR3	; Header for detailed report by requesting locations
GETLOC()	;P20 by SS
ISTHERE(RAIM,RADV,RALOC)	;Does this requesting location have exams is in ^TMP($J..)
CPT
RPTP20	;P20, create report by requesting locations from ^TMP with proc details
SUM2
SUM1
STRT
RPTP20S	;P20, create report by requesting locations from ^TMP proc summary
LST
BP2
PUTNOST(RAIM1,RADV1,RA20J)	;P20 by SS Display all locations which have not exams
DET1
GETPROC()	;P20 by SS
DET2
PROC