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: RAPM1

Package: Radiology Nuclear Medicine

Routine: RAPM1


Information

RAPM1 ;HOIFO/TH-Radiology Performance Monitors/Indicator ;2/18/04 09:42

Source Information

Source file <RAPM1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Radiology Nuclear Medicine 2 HDR^RAPM2  SFOOT^RAPM3  
Kernel 1 $$FMDIFF^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RAPM  

Entry Points

Name Comments DBIA/ICR reference
SRPT2 ; store in tmp
SRPT ; Print summary report
SHDR2 ;save to tmp
SHDR ; Print header of summary report
CAL ; Calculation: Null report pointer, no report, no report date, no
; verfied date are counted as diff=0
; # of Transcribed = Total # of transcribed exams not cancelled.
; # of hrs from exam registration = Date/Time transcribed
; (Date Report Entered) - Exam Date/time
RPTINFO ; Other report info.
; Get Date/Time Report Entered, replace prev RACN with data from Report

External References

Name Field # of Occurrence
HDR^RAPM2 RAPM1+3
SFOOT^RAPM3 RAPM1+12
$$FMDIFF^XLFDT CAL+6, CAL+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Total number of reports expected for procedures performed during "
  • Line Location: RAPM1+5
Function Call: WRITE
  • Prompt: "specified",!,"date range: "
  • Line Location: RAPM1+6
Function Call: WRITE
  • Prompt: $J(+RATOTCNT,$L(+RATOTCNT))
  • Line Location: RAPM1+8
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: SHDR+5
Function Call: WRITE
  • Prompt: !?(RAIOM-$L(RAHDR)\2),RAHDR,?(RAIOM-10),"Page: ",$G(RAPG)
  • Line Location: SHDR+5
Function Call: WRITE
  • Prompt: !!,"Hrs ",?8,">0",?14,">24",?21,">48",?27,">72",?33,">96"
  • Line Location: SHDR+6
Function Call: WRITE
  • Prompt: ?38,">120",?44,">144",?50,">168",?56,">192",?62,">216",?68,">240"
  • Line Location: SHDR+7
Function Call: WRITE
  • Prompt: ?73,"PENDING"
  • Line Location: SHDR+8
Function Call: WRITE
  • Prompt: !,"From",?7,"-24",?14,"-48",?21,"-72",?27,"-96",?32,"-120",?38,"-144"
  • Line Location: SHDR+9
Function Call: WRITE
  • Prompt: ?44,"-168",?50,"-192",?56,"-216",?62,"-240",?68,"Hrs"
  • Line Location: SHDR+10
Function Call: WRITE
  • Prompt: !,"Ex Dt",?7,"Hrs",?14,"Hrs",?21,"Hrs",?27,"Hrs",?33,"Hrs",?39,"Hrs",?45,"Hrs",?51,"Hrs",?57,"Hrs",?63,"Hrs",!
  • Line Location: SHDR+11
Function Call: WRITE
  • Prompt: !,"#Tr",?4,$J(+$G(^TMP($J,"RAPM","TR",1)),6),?11,$J(+$G(^(2)),6),?18,$J(+$G(^(3)),6),?25,$J(+$G(^(4)),5)
  • Line Location: SRPT+5
Function Call: WRITE
  • Prompt: ?31,$J(+$G(^TMP($J,"RAPM","TR",5)),5),?37,$J(+$G(^(6)),5),?43,$J(+$G(^(7)),5),?49,$J(+$G(^(8)),5),?55,$J(+$G(^(9)),5)
  • Line Location: SRPT+6
Function Call: WRITE
  • Prompt: ?61,$J(+$G(^TMP($J,"RAPM","TR",10)),5),?67,$J(+$G(^(11)),5),?73,$J(+$G(^(0)),7)
  • Line Location: SRPT+7
Function Call: WRITE
  • Prompt: !,"%Tr",?4,$J((+$G(^TMP($J,"RAPM","TR",1))/RATOTCNT)*100,6,1)
  • Line Location: SRPT+9
Function Call: WRITE
  • Prompt: ?11,$J((+$G(^TMP($J,"RAPM","TR",2))/RATOTCNT)*100,6,1),?18,$J((+$G(^(3))/RATOTCNT)*100,6,1),?25,$J((+$G(^(4))/RATOTCNT)*100,5,1)
  • Line Location: SRPT+10
Function Call: WRITE
  • Prompt: ?31,$J((+$G(^TMP($J,"RAPM","TR",5))/RATOTCNT)*100,5,1),?37,$J((+$G(^(6))/RATOTCNT)*100,5,1),?43,$J((+$G(^(7))/RATOTCNT)*100,5,1),?49,$J((+$G(^(8))/RATOTCNT)*100,5,1)
  • Line Location: SRPT+11
Function Call: WRITE
  • Prompt: ?55,$J((+$G(^TMP($J,"RAPM","TR",9))/RATOTCNT)*100,5,1),?61,$J((+$G(^(10))/RATOTCNT)*100,5,1),?67,$J((+$G(^(11))/RATOTCNT)*100,5,1),?73,$J((+$G(^(0))/RATOTCNT)*100,7,1),!
  • Line Location: SRPT+12
Function Call: WRITE
  • Prompt: !,"#Vr",?4,$J(+$G(^TMP($J,"RAPM","VR",1)),6),?11,$J(+$G(^(2)),6),?18,$J(+$G(^(3)),6),?25,$J(+$G(^(4)),5),?31,$J(+$G(^(5)),5)
  • Line Location: SRPT+14
Function Call: WRITE
  • Prompt: ?37,$J(+$G(^TMP($J,"RAPM","VR",6)),5),?43,$J(+$G(^(7)),5),?49,$J(+$G(^(8)),5),?55,$J(+$G(^(9)),5),?61,$J(+$G(^(10)),5)
  • Line Location: SRPT+15
Function Call: WRITE
  • Prompt: ?67,$J(+$G(^TMP($J,"RAPM","VR",11)),5),?73,$J(+$G(^(0)),7)
  • Line Location: SRPT+16
Function Call: WRITE
  • Prompt: !,"%Vr",?4,$J((+$G(^TMP($J,"RAPM","VR",1))/RATOTCNT)*100,6,1),?11,$J((+$G(^(2))/RATOTCNT)*100,6,1),?18,$J((+$G(^(3))/RATOTCNT)*100,6,1)
  • Line Location: SRPT+18
Function Call: WRITE
  • Prompt: ?25,$J((+$G(^TMP($J,"RAPM","VR",4))/RATOTCNT)*100,5,1),?31,$J((+$G(^(5))/RATOTCNT)*100,5,1),?37,$J((+$G(^(6))/RATOTCNT)*100,5,1),?43,$J((+$G(^(7))/RATOTCNT)*100,5,1)
  • Line Location: SRPT+19
Function Call: WRITE
  • Prompt: ?49,$J((+$G(^TMP($J,"RAPM","VR",8))/RATOTCNT)*100,5,1),?55,$J((+$G(^(9))/RATOTCNT)*100,5,1),?61,$J((+$G(^(10))/RATOTCNT)*100,5,1),?67,$J((+$G(^(11))/RATOTCNT)*100,5,1)
  • Line Location: SRPT+20
Function Call: WRITE
  • Prompt: ?73,$J((+$G(^TMP($J,"RAPM","VR",0))/RATOTCNT)*100,7,1),!
  • Line Location: SRPT+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RARPT - [#74] RPTINFO+2, RPTINFO+4, RPTINFO+6, RPTINFO+8, RPTINFO+13
^TMP($J RAPM1+7, RAPM1+9*, RAPM1+10*, RAPM1+11*, SHDR2+1*, SHDR2+2*, SHDR2+3*, SHDR2+4*, SRPT+5, SRPT+6
, SRPT+7, SRPT+9, SRPT+10, SRPT+11, SRPT+12, SRPT+14, SRPT+15, SRPT+16, SRPT+18, SRPT+19
, SRPT+20, SRPT+21, SRPT2+1*, SRPT2+2*, SRPT2+3*, SRPT2+5*, SRPT2+6*, SRPT2+7*, SRPT2+8*, SRPT2+9*
, SRPT2+11*, SRPT2+12*, SRPT2+13*, SRPT2+15*, SRPT2+16*, SRPT2+17*, SRPT2+18*, RPTINFO+10*, RPTINFO+11*, CAL+9
, CAL+15

Label References

Name Line Occurrences
SHDR RAPM1+12, SRPT+3
SHDR2 SHDR+1
SRPT RAPM1+12
SRPT2 SRPT+2

Naked Globals

Name Field # of Occurrence
^( RPTINFO+8, CAL+9*, CAL+15*
^(0 SRPT+7, SRPT+12, SRPT+16, SRPT2+3, SRPT2+8, SRPT2+13, SRPT2+18, RPTINFO+2, RPTINFO+8
^(10 SRPT+12, SRPT+15, SRPT+20, SRPT2+2, SRPT2+7, SRPT2+12, SRPT2+17
^(11 SRPT+7, SRPT+12, SRPT+20
^(2 SRPT+5, SRPT+14, SRPT+18, SRPT2+1, SRPT2+5, SRPT2+11, SRPT2+15
^(3 SRPT+5, SRPT+10, SRPT+14, SRPT+18, SRPT2+1, SRPT2+5, SRPT2+11, SRPT2+15
^(4 SRPT+5, SRPT+10, SRPT+14, SRPT2+1, SRPT2+5, SRPT2+11, SRPT2+15
^(5 SRPT+14, SRPT+19, SRPT2+1, SRPT2+11
^(6 SRPT+6, SRPT+11, SRPT+19, SRPT2+6, SRPT2+16
^(7 SRPT+6, SRPT+11, SRPT+15, SRPT+19, SRPT2+2, SRPT2+6, SRPT2+12, SRPT2+16
^(8 SRPT+6, SRPT+11, SRPT+15, SRPT2+2, SRPT2+12
^(9 SRPT+6, SRPT+15, SRPT+20, SRPT2+2, SRPT2+7, SRPT2+12, SRPT2+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DTIME SHDR+3
IO SHDR+2, SRPT+3
IO(0 SHDR+2, SRPT+3
IOF SHDR+5
IOSL SHDR+2, SRPT+3
IOST SHDR+3, SHDR+5
>> RA1 RPTINFO+7*, RPTINFO+8*
>> RACN RPTINFO+2*
>> RADTE CAL+6, CAL+12
>> RAHDR SHDR+4*, SHDR+5
>> RAIO SHDR+1, SRPT+1, SRPT+2
>> RAIOM SHDR+5
>> RAN RAPM1+9*, RAPM1+10*, RAPM1+11*, SHDR2+1*, SHDR2+2*, SHDR2+3*, SHDR2+4*, SRPT2+1, SRPT2+2, SRPT2+3*
, SRPT2+5, SRPT2+6, SRPT2+7, SRPT2+8, SRPT2+9*, SRPT2+11, SRPT2+12, SRPT2+13*, SRPT2+15, SRPT2+16
, SRPT2+17, SRPT2+18*
>> RAPG SHDR+4*, SHDR+5
>> RARPTDT RPTINFO+2*, RPTINFO+10, CAL+5, CAL+6
>> RARPTST RPTINFO+13*
>> RARPTTXT RPTINFO+2, RPTINFO+4, RPTINFO+6, RPTINFO+8, RPTINFO+13
>> RATDFHR CAL+7*, CAL+8
>> RATDFSEC CAL+6*, CAL+7
>> RATHRS CAL+8*, CAL+9
>> RATOTCNT RAPM1+7*, RAPM1+8, RAPM1+11, SRPT+1, SRPT+9, SRPT+10, SRPT+11, SRPT+12, SRPT+18, SRPT+19
, SRPT+20, SRPT+21, SRPT2+5, SRPT2+6, SRPT2+7, SRPT2+8, SRPT2+15, SRPT2+16, SRPT2+17, SRPT2+18
>> RAVDFHR CAL+13*, CAL+14
>> RAVDFSEC CAL+12*, CAL+13
>> RAVERDT RPTINFO+4*, RPTINFO+6, RPTINFO+8*, RPTINFO+11, CAL+11, CAL+12
>> RAVHRS CAL+14*, CAL+15
U RPTINFO+2, RPTINFO+4, RPTINFO+8, RPTINFO+13
>> X SHDR+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All