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

Package: Radiology Nuclear Medicine

Routine: RAPMW3


Information

RAPMW3 ;HOIFO/SWM-Radiology Wait Time reports ;3/20/09 14:10

Source Information

Source file <RAPMW3.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;
R1
EOF
PARSE(RA) ; parse Descriptor -- remove double quotes and trailing blanks if any
DATDEL ; Delete all data from file 73.2
SETREC ;
S2
ABEND
DISP ;display one-line text either interactively or within KIDS installation
CLEANUP ;
HD ;Header for email <=30 Days Performance Value Summary.
HDSUM ;
HD1 ;Header for email Wait and Time Performamce Report.
HDSUM1 ;
RAJOB ;PARTIAL process email wait and time report
COLHDS(X) ; moved from RAPMW1
FOOTS ;
RAJOB1 ;process mail wait and time report
COL1(X) ; moved from RAPMW1
FOOTS2 ;
DAY14 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"*****************************************************************"
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !,"This routine requires a tab-delimited VMS text file for input."
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"This text file should come from Sherrill Snuggs' Xcel file."
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !,"ALL DATA FROM FILE 73.2 WILL BE DELETED BEFORE IMPORTING VMS FILE."
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"Only the 1st of duplicate CPT Codes would be imported."
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !,"*****************************************************************"
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !!,"Enter VMS directory :"_RADIR_"//"
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !!,"Full name of input file is ",RAFILE,!
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !!?5,"Nothing Done."
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: !?3,"** This file cannot be opened. **"
  • Line Location: EN1+19
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: R1+17
Function Call: WRITE
  • Prompt: !,"Processing abended."
  • Line Location: ABEND+0
Function Call: WRITE
  • Prompt: !!?5,RATXT
  • Line Location: DISP+1
Info |  Source |  Entry Points |  Interaction Calls