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

Package: Radiology Nuclear Medicine

Routine: RALWKL1


Information

RALWKL1 ;HISC/GJC-Workload Reports By Functional Area ;4/12/96 10:18

Source Information

Source file <RALWKL1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Radiology Nuclear Medicine 5 (DIVCHK,IMGCHK)^RALWKL2  EN1^RALWKL4  D^RAUTL  $$EOS^RAUTL5  STOPCHK^RAUTL9  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 ^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Radiology Nuclear Medicine 7 RAFLM  RALWKL  RALWKL2  RALWKL4  RAMIS  RAPRC  RAWKL  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry point
PRT1 ; Tabulate the data for non summary report, output the data.
TOT ; Total within Service, Ward, Clinic, etc.
HD ; Header
DISPXAM(A) ; Display Examination Statuses which meet certain criteria.
; 'A' is the equivalent of the variable 'RACRT'. This code is related
; to the 'CRIT^RAUTL1' subroutine. This sets up the RACRT local array
; according to I-Type.

External References

Name Field # of Occurrence
^%DT EN1+1
DIVCHK^RALWKL2 EN1+23
IMGCHK^RALWKL2 EN1+21
EN1^RALWKL4 EN1+4
D^RAUTL EN1+1
$$EOS^RAUTL5 PRT1+5, TOT+2, TOT+9, DISPXAM+10, DISPXAM+18
STOPCHK^RAUTL9 HD+17
$$FMTE^XLFDT EN1+2, EN1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(RAPRC,1,28),?30,$J(+$P(RATTL2,"^"),5),?36,$J(+$P(RATTL2,"^",2),5)
  • Line Location: PRT1+6
Function Call: WRITE
  • Prompt: ?42,$J(+$P(RATTL2,"^",3),5),?48,$J(+$P(RATTL2,"^",4),5)
  • Line Location: PRT1+7
Function Call: WRITE
  • Prompt: ?55,$J(RATTL3,5),?62,$J($S(RATTL1:(100*RATTL3)/RATTL1,1:0),5,1)
  • Line Location: PRT1+8
Function Call: WRITE
  • Prompt: ?68,$J(RAWWU2,5),?75,$J($S(RAWWU1:(RAWWU2*100)/RAWWU1,1:0),5,1)
  • Line Location: PRT1+10
Function Call: WRITE
  • Prompt: !!,$G(RATITLE)_" Total"
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: ?30,$J(+$P(RATTL0,"^"),5),?36,$J(+$P(RATTL0,"^",2),5)
  • Line Location: TOT+4
Function Call: WRITE
  • Prompt: ?42,$J(+$P(RATTL0,"^",3),5),?48,$J(+$P(RATTL0,"^",4),5)
  • Line Location: TOT+5
Function Call: WRITE
  • Prompt: ?55,$J(RATTL1,5)
  • Line Location: TOT+6
Function Call: WRITE
  • Prompt: !,RALN
  • Line Location: TOT+8
Function Call: WRITE
  • Prompt: !?5,">>> "_RATITLE_" Workload Report <<<"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: ?70,"Page: ",RAPG
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !!?4,"Division: ",$S($D(^DIC(4,+RADIV,0)):$P(^(0),U,1),1:"UNKNOWN")
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?52,"For period: ",?64,BEGDATE("X"),?77,"to"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !?4,"Run Date: ",RATDY,?64,ENDDATE("X")
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !!?32,"-------Examinations------",!?62,"% of"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: ?75," % of"
  • Condition for execution: $D(RAFL)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: ?42," Res",?48,"Other",?55,"Total",?62,"Exams"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !,RALN
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: !!?(IOM-$L(RAHD(0))\2),RAHD(0),!?(IOM-$L(RAHD(1))\2),RAHD(1)
  • Line Location: DISPXAM+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPXAM+10
Function Call: WRITE
  • Prompt: !!?10,X,!?10,UNDRLN
  • Line Location: DISPXAM+11
Function Call: WRITE
  • Prompt: @IOF,!?10,X,!?10,UNDRLN
  • Line Location: DISPXAM+19
Function Call: WRITE
  • Prompt: !?15,$P(RA(0),"^")
  • Line Location: DISPXAM+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HD+5
^RA(72 - [#72] DISPXAM+9, DISPXAM+12, DISPXAM+13, DISPXAM+14
^RA(79.2 - [#79.2] HD+6
^TMP($J EN1+5, EN1+6, EN1+7, EN1+9, EN1+10, EN1+13, EN1+15, PRT1+1, TOT+8, DISPXAM+8

Label References

Name Line Occurrences
HD PRT1+4, PRT1+5, TOT+2, TOT+9
PRT1 EN1+16
TOT EN1+19

Naked Globals

Name Field # of Occurrence
^(0 HD+5, HD+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN1+1*!
A DISPXAM~, DISPXAM+15, DISPXAM+16
>> BEGDATE EN1+2
>> BEGDATE("X" EN1+2*, HD+7
>> ENDDATE EN1+3
>> ENDDATE("X" EN1+3*, HD+8
>> I EN1+11*, PRT1+3*
IOF EN1+3, HD+1, DISPXAM+10, DISPXAM+19
IOM DISPXAM+7
IOSL PRT1+5, TOT+2, DISPXAM+10, DISPXAM+18
IOST HD+1
RA DISPXAM+4~
RA( DISPXAM+14*, DISPXAM+15*, DISPXAM+16
RA(0 DISPXAM+14*, DISPXAM+16, DISPXAM+21
RA1 TOT+8~*, TOT+9
>> RACRT( DISPXAM+17*
>> RADIFLG( EN1+23
>> RADIV EN1+5*, EN1+6*, EN1+7, EN1+9, EN1+10, EN1+13, EN1+15, EN1+23, PRT1+1, TOT+8
, HD+5
>> RADIVSUM HD+6, HD+14, HD+16
>> RAFL PRT1+9, TOT+7, HD+9, HD+12
RAFLD EN1+8*, EN1+9*, EN1+10, EN1+13, EN1+15, PRT1+1, TOT+8, TOT+9~*, HD+16
RAHD DISPXAM+4~
RAHD(0 DISPXAM+5*, DISPXAM+7
RAHD(1 DISPXAM+6*, DISPXAM+7
>> RAIMG EN1+5*, EN1+7*, EN1+9, EN1+10, EN1+13, EN1+15, PRT1+1, TOT+8, HD+6
>> RAIMGSUM HD+15, HD+16
>> RALN EN1+1*, TOT+8, HD+13
>> RAMIS EN1+12*, EN1+13*, EN1+14, EN1+15, PRT1+1
>> RAPG EN1+3*, PRT1+4, HD+1, HD+2*, HD+4
>> RAPRC EN1+14*, EN1+15*, PRT1+1, PRT1+6
>> RASUM EN1+4, HD+10, HD+16
>> RATDY EN1+1*, HD+8
>> RATITLE TOT+3, HD+3, HD+10, HD+16
>> RATTL0 EN1+10*, EN1+11, TOT+4, TOT+5
>> RATTL1 EN1+11*, PRT1+8, TOT+1, TOT+6
>> RATTL2 PRT1+1*, PRT1+2, PRT1+3, PRT1+6, PRT1+7
>> RATTL3 PRT1+2*, PRT1+3*, PRT1+8
>> RAWWU1 EN1+10*, PRT1+10, TOT+1, TOT+7
>> RAWWU2 PRT1+2*, PRT1+10
>> RAXIT EN1+6, EN1+7, EN1+9, EN1+13, EN1+15, EN1+19, EN1+21, EN1+23, PRT1+4, PRT1+5*
, TOT+2*, TOT+9*, HD+17*, DISPXAM+8, DISPXAM+10*, DISPXAM+12, DISPXAM+13, DISPXAM+18*
U HD+5, HD+6
UNDRLN DISPXAM+4~, DISPXAM+9!, DISPXAM+11*, DISPXAM+19
X EN1+1*, DISPXAM+4~, DISPXAM+8*, DISPXAM+9, DISPXAM+11, DISPXAM+12, DISPXAM+13, DISPXAM+17, DISPXAM+19
Y EN1+1, DISPXAM+4~, DISPXAM+9*, DISPXAM+12*, DISPXAM+13
Z DISPXAM+4~, DISPXAM+13*, DISPXAM+14, DISPXAM+17
>> ZTQUEUED HD+17
>> ZTSTOP HD+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All