Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RASTRPT

Package: Radiology Nuclear Medicine

Routine: RASTRPT


Information

RASTRPT ;HISC/DAD,FPT,SS AISC/TMP-Status Tracking Statistics Report ;2/12/99 14:45

Source Information

Source file <RASTRPT.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 1

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All