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

Package: Radiology Nuclear Medicine

Routine: RALWKL4


Information

RALWKL4 ;HISC/FPT-Workload Reports By Functional Area ;4/11/96 09:33

Source Information

Source file <RALWKL4.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Radiology Nuclear Medicine 3 HD^RALWKL1  $$EOS^RAUTL5  STOPCHK^RAUTL9  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RALWKL1  

Entry Points

Name Comments DBIA/ICR reference
IMGSUM ; imaging summary
PFLDTOT ; print rafld totals within imaging type
RAFLD ;
EN1 ; This subroutine prints out only the Summary data as requested by the
; user.
PDIVFLD ;
DIVHDR ; division totals header
PDIVTOT ;
PIMGTOT ; print imaging type totals
DIVSUM ; print division totals
IMGTOT ; calculate imaging totals

External References

Name Field # of Occurrence
HD^RALWKL1 IMGSUM+3, PFLDTOT+12, PIMGTOT+1
$$EOS^RAUTL5 IMGSUM+3, PFLDTOT+12, PIMGTOT+1, DIVSUM+1, DIVSUM+7, PDIVFLD+7, PDIVTOT+1, PDIVTOT+4, PDIVTOT+8
STOPCHK^RAUTL9 DIVHDR+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(RAFLD,1,28),?30,$J(+$P(RAFLDNDE,U,1),5)
  • Line Location: PFLDTOT+4
Function Call: WRITE
  • Prompt: ?36,$J(+$P(RAFLDNDE,U,2),5)
  • Line Location: PFLDTOT+5
Function Call: WRITE
  • Prompt: ?42,$J(+$P(RAFLDNDE,U,3),5)
  • Line Location: PFLDTOT+6
Function Call: WRITE
  • Prompt: ?48,$J(+$P(RAFLDNDE,U,4),5)
  • Line Location: PFLDTOT+7
Function Call: WRITE
  • Prompt: ?55,$J(RAFLDTOT,5)
  • Line Location: PFLDTOT+8
Function Call: WRITE
  • Prompt: ?68,$J(RAFLDWWU,5)
  • Line Location: PFLDTOT+10
Function Call: WRITE
  • Prompt: !,RALN
  • Line Location: PIMGTOT+2
Function Call: WRITE
  • Prompt: !!,"Imaging Type Total:",?30,$J(+$P(RAIMGNDE,U,1),5)
  • Line Location: PIMGTOT+3
Function Call: WRITE
  • Prompt: ?36,$J(+$P(RAIMGNDE,U,2),5)
  • Line Location: PIMGTOT+4
Function Call: WRITE
  • Prompt: ?42,$J(+$P(RAIMGNDE,U,3),5)
  • Line Location: PIMGTOT+5
Function Call: WRITE
  • Prompt: ?48,$J(+$P(RAIMGNDE,U,4),5)
  • Line Location: PIMGTOT+6
Function Call: WRITE
  • Prompt: ?55,$J(RAIMGTOT,5)
  • Line Location: PIMGTOT+7
Function Call: WRITE
  • Prompt: ?68,$J(RAIMGWWU,5)
  • Line Location: PIMGTOT+8
Function Call: WRITE
  • Prompt: !!?3,"# of "_RATITLE_"s selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT))
  • Line Location: PIMGTOT+9
Function Call: WRITE
  • Prompt: !,$E(RAFLD,1,28),?30,$J(+$P(RASUMNDE,U,1),5),?36,$J(+$P(RASUMNDE,U,2),5),?42,$J(+$P(RASUMNDE,U,3),5),?48,$J(+$P(RASUMNDE,U,4),5),?55,$J(RAFLDTOT,5)
  • Line Location: PDIVFLD+3
Function Call: WRITE
  • Prompt: ?62,$J($S(RADIVTOT:(RAFLDTOT*100)/RADIVTOT,1:0),5,1)
  • Line Location: PDIVFLD+4
Function Call: WRITE
  • Prompt: ?68,$J(+$P(RASUMNDE,U,5),5)
  • Line Location: PDIVFLD+5
Function Call: WRITE
  • Prompt: !,RALN,!!,"Division Total",?30,$J(+$P(RADIVNDE,U,1),5),?36,$J(+$P(RADIVNDE,U,2),5),?42,$J(+$P(RADIVNDE,U,3),5),?48,$J(+$P(RADIVNDE,U,4),5),?55,$J(RADIVTOT,5)
  • Line Location: PDIVTOT+2
Function Call: WRITE
  • Prompt: ?68,$J(+$P(RADIVNDE,U,5),5)
  • Line Location: PDIVTOT+3
Function Call: WRITE
  • Prompt: !!?2,"Imaging Type(s): "
  • Line Location: PDIVTOT+5
Function Call: WRITE
  • Prompt: !!?3,"# of "_RATITLE_"s selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT))
  • Line Location: PDIVTOT+11
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: DIVHDR+1
Function Call: WRITE
  • Prompt: !?5,">>> ",RATITLE," Workload Report <<<"
  • Line Location: DIVHDR+1
Function Call: WRITE
  • Prompt: ?70,"Page: ",RAPG
  • Line Location: DIVHDR+1
Function Call: WRITE
  • Prompt: !!,?4,"Division: ",$S($D(^DIC(4,+RADIV,0)):$P(^(0),U,1),1:"UNKNOWN"),?52,"For period: "
  • Line Location: DIVHDR+2
Function Call: WRITE
  • Prompt: ?64,BEGDATE("X"),?76," to"
  • Line Location: DIVHDR+2
Function Call: WRITE
  • Prompt: !?4,"Run Date: ",RATDY
  • Line Location: DIVHDR+3
Function Call: WRITE
  • Prompt: ?64,ENDDATE("X")
  • Line Location: DIVHDR+3
Function Call: WRITE
  • Prompt: !!?32,"-------Examinations------",!?62,"% of"
  • Line Location: DIVHDR+4
Function Call: WRITE
  • Prompt: ?75," % of"
  • Condition for execution: $D(RAFL)
  • Line Location: DIVHDR+4
Function Call: WRITE
  • Prompt: !,RATITLE,?30," Inpt",?36," Opt",?42," Res",?48,"Other",?55,"Total",?62,"Exams"
  • Line Location: DIVHDR+5
Function Call: WRITE
  • Prompt: !,RALN
  • Line Location: DIVHDR+7
Function Call: WRITE
  • Prompt: !?10,"(Division Summary)"
  • Line Location: DIVHDR+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] DIVHDR+2
^RA(79.2 - [#79.2] PDIVTOT+9
^TMP($J EN1+3, IMGSUM+3, RAFLD+2, PFLDTOT+12, DIVSUM+5, DIVSUM+7, PDIVTOT+7

Label References

Name Line Occurrences
DIVHDR DIVSUM+3, PDIVFLD+7, PDIVTOT+1, PDIVTOT+4, PDIVTOT+8
DIVSUM EN1+3
IMGSUM EN1+3
IMGTOT IMGSUM+3
PDIVFLD DIVSUM+5
PDIVTOT DIVSUM+6
PFLDTOT RAFLD+2
PIMGTOT IMGSUM+3
RAFLD IMGSUM+3

Naked Globals

Name Field # of Occurrence
^( EN1+3, IMGSUM+3, RAFLD+2, DIVSUM+5
^(0 PDIVTOT+9, DIVHDR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDATE EN1+4!
BEGDATE("X" DIVHDR+2
ENDDATE EN1+4!
ENDDATE("X" DIVHDR+3
I EN1+4!, IMGSUM+2*, IMGTOT+2*, PFLDTOT+2*, PDIVFLD+2*
IOF DIVHDR+1
IOSL PFLDTOT+12, PIMGTOT+1, PDIVFLD+7, PDIVTOT+1, PDIVTOT+4, PDIVTOT+8
RADIFLG EN1+4!
RADIFLG( IMGSUM+3, DIVSUM+1, DIVSUM+2, PDIVTOT+4
RADIV EN1+2*, EN1+3*, EN1+4!, IMGSUM+3, RAFLD+2, PFLDTOT+12, DIVSUM+1, DIVSUM+2, DIVSUM+5, DIVSUM+7
, PDIVTOT+4, PDIVTOT+7, DIVHDR+2
RADIVNDE EN1+3*, EN1+4!, IMGSUM+1, IMGSUM+2, PDIVTOT+2, PDIVTOT+3
RADIVTOT EN1+4!, IMGSUM+1*, IMGSUM+2*, PDIVFLD+4, PDIVTOT+2
RADIVWWU EN1+4!, IMGSUM+1*, PDIVFLD+6
RAFL EN1+4!, PFLDTOT+9, PFLDTOT+11, PDIVFLD+6, DIVHDR+4, DIVHDR+6
RAFLD EN1+4!, RAFLD+1*, RAFLD+2*, PFLDTOT+4, PFLDTOT+12, DIVSUM+4*, DIVSUM+5*, PDIVFLD+3
RAFLDCNT EN1+4!, PIMGTOT+9, PDIVTOT+11
RAFLDNDE EN1+4!, RAFLD+2*, PFLDTOT+1, PFLDTOT+2, PFLDTOT+4, PFLDTOT+5, PFLDTOT+6, PFLDTOT+7
RAFLDTOT EN1+4!, PFLDTOT+1*, PFLDTOT+2*, PFLDTOT+3, PFLDTOT+8, PFLDTOT+9, PDIVFLD+1*, PDIVFLD+2*, PDIVFLD+3, PDIVFLD+4
RAFLDWWU EN1+4!, PFLDTOT+1*, PFLDTOT+10, PFLDTOT+11
RAIMG EN1+4!, IMGSUM+1*, IMGSUM+3*, RAFLD+2, PFLDTOT+12
RAIMGNDE EN1+4!, IMGSUM+3*, IMGTOT+1, IMGTOT+2, PIMGTOT+3, PIMGTOT+4, PIMGTOT+5, PIMGTOT+6
RAIMGSUM EN1+4!, IMGSUM+1*
RAIMGTOT EN1+4!, IMGTOT+1*, IMGTOT+2*, PFLDTOT+9, PIMGTOT+7
RAIMGWWU EN1+4!, IMGTOT+1*, PFLDTOT+11, PIMGTOT+8
RAINPUT EN1+4!, PIMGTOT+9, PDIVTOT+11
RAITCNT EN1+4!
RAITHLD EN1+4!, PDIVTOT+6*, PDIVTOT+7*, PDIVTOT+9
RALN EN1+4!, PIMGTOT+2, PDIVTOT+2, DIVHDR+7
RAPG EN1+4!, DIVHDR+1*
RASUMNDE EN1+4!, DIVSUM+5*, PDIVFLD+2, PDIVFLD+3, PDIVFLD+5, PDIVFLD+6
RATDY EN1+4!, DIVHDR+3
RATITLE EN1+4!, PIMGTOT+9, PDIVTOT+11, DIVHDR+1, DIVHDR+5
RAXIT EN1+3, EN1+4!, IMGSUM+3*, RAFLD+2, PFLDTOT+12*, PIMGTOT+1*, PIMGTOT+2, DIVSUM+1*, DIVSUM+3, DIVSUM+5
, DIVSUM+6, DIVSUM+7*, PDIVFLD+7*, PDIVTOT+1*, PDIVTOT+4*, PDIVTOT+7, PDIVTOT+8*, PDIVTOT+10, DIVHDR+9*
U IMGSUM+1, IMGSUM+2, IMGTOT+1, IMGTOT+2, PFLDTOT+1, PFLDTOT+2, PFLDTOT+4, PFLDTOT+5, PFLDTOT+6, PFLDTOT+7
, PIMGTOT+3, PIMGTOT+4, PIMGTOT+5, PIMGTOT+6, PDIVFLD+2, PDIVFLD+3, PDIVFLD+5, PDIVFLD+6, PDIVTOT+2, PDIVTOT+3
, PDIVTOT+9, DIVHDR+2
>> ZTQUEUED DIVHDR+9
>> ZTSTOP DIVHDR+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All