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

Package: Radiology Nuclear Medicine

Routine: RALWKL2


Information

RALWKL2 ;HISC/GJC-Workload Reports By Functional Area ;4/12/96 10:15

Source Information

Source file <RALWKL2.m>

Entry Points

Name Comments DBIA/ICR reference
DIVCHK ; Output statistics within division.
IMGCHK ; Check for EOS on I-Type
PURGE ; Kill & Quit
ZEROUT ; Zero out the data globals.
IT ; calculate imaging type subscript

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(RA1,1,28),?30,$J(+$P(RATTL2,"^"),5)
  • Line Location: DIVCHK+11
Function Call: WRITE
  • Prompt: ?36,$J(+$P(RATTL2,"^",2),5),?42,$J(+$P(RATTL2,"^",3),5)
  • Line Location: DIVCHK+12
Function Call: WRITE
  • Prompt: ?48,$J(+$P(RATTL2,"^",4),5),?55,$J(RATTL3,5)
  • Line Location: DIVCHK+13
Function Call: WRITE
  • Prompt: ?68,$J(RAWWU2,5)
  • Line Location: DIVCHK+15
Function Call: WRITE
  • Prompt: !,RALN,!!,"Division Total",?30,$J(+$P(RATTL0,"^"),5)
  • Line Location: DIVCHK+21
Function Call: WRITE
  • Prompt: ?36,$J(+$P(RATTL0,"^",2),5),?42,$J(+$P(RATTL0,"^",3),5)
  • Line Location: DIVCHK+22
Function Call: WRITE
  • Prompt: ?48,$J(+$P(RATTL0,"^",4),5),?55,$J(RATTL1,5)
  • Line Location: DIVCHK+23
Function Call: WRITE
  • Prompt: ?68,$J(RAWWU1,5)
  • Condition for execution: $D(RAFL)
  • Line Location: DIVCHK+23
Function Call: WRITE
  • Prompt: !!?2,"Imaging Type(s): "
  • Line Location: DIVCHK+25
Function Call: WRITE
  • Prompt: !!?3,"# of "_RATITLE_"s selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT))
  • Line Location: DIVCHK+31
Function Call: WRITE
  • Prompt: !,$E(RA111,1,28),?30,$J(+$P(RATTL2,"^"),5)
  • Line Location: IMGCHK+12
Function Call: WRITE
  • Prompt: ?36,$J(+$P(RATTL2,"^",2),5),?42,$J(+$P(RATTL2,"^",3),5)
  • Line Location: IMGCHK+13
Function Call: WRITE
  • Prompt: ?48,$J(+$P(RATTL2,"^",4),5),?55,$J(RATTL3,5)
  • Line Location: IMGCHK+14
Function Call: WRITE
  • Prompt: ?68,$J(RAWWU2,5)
  • Line Location: IMGCHK+16
Function Call: WRITE
  • Prompt: !,RALN,!!,"Imaging Type Total",?30,$J(+$P(RATTL0,"^"),5)
  • Line Location: IMGCHK+21
Function Call: WRITE
  • Prompt: ?36,$J(+$P(RATTL0,"^",2),5),?42,$J(+$P(RATTL0,"^",3),5)
  • Line Location: IMGCHK+22
Function Call: WRITE
  • Prompt: ?48,$J(+$P(RATTL0,"^",4),5),?55,$J(RATTL1,5),?68,$J(RAWWU1,5)
  • Line Location: IMGCHK+23
Function Call: WRITE
  • Prompt: !!?3,"# of "_RATITLE_"s selected: "_$S(RAINPUT=1:"ALL",1:$G(RAFLDCNT))
  • Line Location: IMGCHK+24
Info |  Source |  Entry Points |  Interaction Calls