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

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.

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