Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls