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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RAPMW1

Package: Radiology Nuclear Medicine

Routine: RAPMW1


Information

RAPMW1 ;HOIFO/SWM-Radiology Wait Time reports ;3/20/09 13:40

Source Information

Source file <RAPMW1.m>

Entry Points

Name Comments DBIA/ICR reference
FILTER1 ;
FILTER2 ;
EXCL ; skip case if its proc isn't among user-selected procs
CHECK3 ; check inpatient, no credit, cancelled exam
; CATEGORY OF EXAM is inpatient
STORSUM ;
WRTSUM ;
SETHD ; Set up header & dev vars for identical parts of summary and detail reports
HD ;
HDSUM ;
DAY14 ;
PRTS ;
FOOTS ;
PRESS ;
FOOTS2 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !?(RAIOM-$L(RAH1)\2),RAH1
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,"Page: ",RAPG,!
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,RAH3
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,RAH4(I)
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,RAH5
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,RAH6(I)
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,RAH7(I)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,RAH8
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !!,"Total number of procedures registered during specified exam date range: ",RATOTAL,!
  • Line Location: HDSUM+1
Function Call: WRITE
  • Prompt: !!,"The ""<=14 Days"" column contains data that is also in the ""<=30 Days"" column."
  • Line Location: DAY14+1
Function Call: WRITE
  • Prompt: !,"The reason that performance is calculated for both <=14 days and <=30 days is"
  • Line Location: DAY14+2
Function Call: WRITE
  • Prompt: !,"so that facilities can track their performance to a 14 day performance standard"
  • Line Location: DAY14+3
Function Call: WRITE
  • Prompt: !,"rather than a 30 day standard if they choose to do so."
  • Line Location: DAY14+4
Function Call: WRITE
  • Prompt: !?30,"DAYS WAIT -- PERCENTAGES",!
  • Line Location: PRTS+14
Function Call: WRITE
  • Prompt: !!!!?30,"DAYS WAIT -- COUNTS",!
  • Line Location: PRTS+19
Function Call: WRITE
  • Prompt: !!,"Number of procedures cancelled and re-ordered on the same day = ",RASAME
  • Line Location: PRTS+23
Function Call: WRITE
  • Prompt: !!?3,"(There ",$S(RANEG=1:"is",1:"are")," ",RANEG," case",$S(RANEG=1:"",1:"s")," with negative days wait included in the first column.)",!
  • Line Location: FOOTS+1
Function Call: WRITE
  • Prompt: !?4,$P($T(FOOTS2+I),";;",2)
  • Line Location: FOOTS+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: FOOTS+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call