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

Package: Radiology Nuclear Medicine

Routine: RAESR3


Information

RAESR3 ;HISC/GJC-Exam Statistics Rpt ;1/20/95 08:31

Source Information

Source file <RAESR3.m>

Entry Points

Name Comments DBIA/ICR reference
PRT ; Update total and Print out date, # of visits, # of exams,
; # of completed exams, and category statistics.
TOT ; Print total line
TOT1
HD ; Print out header info for each new location and each new division

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,RADAT("X"),?13,$J(+$P(RASTAT,"^"),6),?20,$J(+$P(RASTAT,"^",2),6),?29,$J(+$P(RASTAT,"^",3),6),?35
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: ?($X+1),$J(+$P(RASTAT,"^",I),6)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !,?13,"------",?20,"------",?29,"------",?35
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: ?($X+1),"------"
  • Line Location: TOT+3
Function Call: WRITE
  • Prompt: !,"TOTAL",?13,$J(+$P(RATOT,"^"),6),?20,$J(+$P(RATOT,"^",2),6),?29,$J(+$P(RATOT,"^",3),6),?35
  • Line Location: TOT1+0
Function Call: WRITE
  • Prompt: ?($X+1),$J(+$P(RATOT,"^",I),6)
  • Line Location: TOT1+0
Function Call: WRITE
  • Prompt: !?20,">>>>> EXAMINATION STATISTICS <<<<<"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?70,"Page: ",RAPGE
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !!,"Division: ",$E(RADNM,1,25),?40,"Location: ",$E(RALNM,1,25)
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,"Run Date: ",RARUNDT,?40,"Imaging Type: ",$E(RAINM,1,25)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !!,"Division: ",$E(RADNM,1,25),?40,"Location: "
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,"Run Date: ",RARUNDT,?40,"Imaging Type: ",$E(RAINM,1,25)
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !!,"Division: ",$E(RADNM,1,25),?40,"Location: "
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !,"Run Date: ",RARUNDT,?40,"Imaging Type: "
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: !!,"Division: ",?40,"Location: "
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: !,"Run Date: ",RARUNDT,?40,"Imaging Type: "
  • Line Location: HD+16
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(RATMEFRM,IOM)
  • Line Location: HD+17
Function Call: WRITE
  • Prompt: !!,?27,"COMPLETE",?36,"--------------EXAM CATEGORY--------------"
  • Line Location: HD+18
Function Call: WRITE
  • Prompt: !,"DATE",?13,"VISITS",?21,"EXAMS",?30,"EXAMS",?35
  • Line Location: HD+19
Function Call: WRITE
  • Prompt: ?($X+4),$E($P(RADU,";",T),3,5)
  • Line Location: HD+19
Function Call: WRITE
  • Prompt: !,RALINE
  • Line Location: HD+20
Info |  Source |  Entry Points |  Interaction Calls