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

Package: Radiology Nuclear Medicine

Routine: RAPMW2


Information

RAPMW2 ;HOIFO/SWM-Radiology Wait Time reports ;12/05/05 13:41

Source Information

Source file <RAPMW2.m>

Entry Points

Name Comments DBIA/ICR reference
STORDET ;
WRTDET ;
HDDET ;
COLHDD ;
PRTD ;
CKLINE ;
FOOTD ;
CALC ;
PTA ; *79
COLHDS(X) ; moved from RAPMW1
FOOTD2 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sorted by: ",RASORTNM,?38,"Print only cases with minimum Days Wait of: ",RASINCE
  • Line Location: HDDET+1
Function Call: WRITE
  • Prompt: !,"Total number of procedures registered during specified exam date range: ",RATOTAL
  • Line Location: HDDET+2
Function Call: WRITE
  • Prompt: @IOF,!,"Page: ",RAPG
  • Line Location: COLHDD+1
Function Call: WRITE
  • Prompt: !!?31,"Date",?40,"Date",?49,"Date",?58,"Days",?63,"Exam",?75,"CPT",?123,"Img",?127,"PROC."
  • Line Location: COLHDD+3
Function Call: WRITE
  • Prompt: !,"Patient Name",?14,"Case #",?31,"Ordered",?40,"Desired",?49,"Register",?58,"Wait",?63,"Status",?75,"Code",?81,"Name of Procedure",?123,"Typ",?127,"TYPE"
  • Line Location: COLHDD+4
Function Call: WRITE
  • Prompt: !,$E(RADASH,1,12),?14,$E(RADASH,1,16),?31,$E(RADASH,1,8),?40,$E(RADASH,1,8),?49,$E(RADASH,1,8),?58,$E(RADASH,1,4),?63,$E(RADASH,1,11),?75,$E(RADASH,1,5),?81,$E(RADASH,1,41),?123,$E(RADASH,1,3),?127,$E(RADASH,1,5)
  • Line Location: COLHDD+5
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 listing.)",!
  • Line Location: FOOTD+2
Function Call: WRITE
  • Prompt: !?4,$P($T(FOOTD2+I),";;",2)
  • Line Location: FOOTD+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: FOOTD+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call