Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ($$STATUS,CLOSE,OPEN)^%ZISH  BMES^XPDUTL  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RAPMW1  

Entry Points

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

External References

Name Field # of Occurrence
$$STATUS^%ZISH R1
CLOSE^%ZISH EOF
OPEN^%ZISH EN1+18
^DIR EN1+17
BMES^XPDUTL DISP+2

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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIR
  • Line Location:
    • EN1+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(73.2 - [#73.2] R1+11, DATDEL+2, DATDEL+4, DATDEL+7!, DATDEL+8!, DATDEL+9*, SETREC+1, S2, S2+1*, S2+2*
, S2+3*, S2+4*, S2+5*, S2+6*
^TMP($J HD+3*, HD+4*, HD+5*, HD+6*, HD+7*, HDSUM+2, HDSUM+3*, HDSUM+4*, HDSUM+5*, HDSUM+6*
, HDSUM+7*, HDSUM+8*, HDSUM+9*, HDSUM+10*, HDSUM+11*, HDSUM+12*, HDSUM+13*, HDSUM+14*, HD1+2*, HD1+3*
, HD1+4*, HD1+5*, HD1+7*, HD1+8*, HD1+9*, HD1+10*, HD1+12*, HD1+13*, HDSUM1+1*, HDSUM1+2*
, RAJOB+16*, RAJOB+17*, COLHDS+2*, COLHDS+3*, COLHDS+5*, COLHDS+7*, COLHDS+9*, COLHDS+10*, COLHDS+12*, COLHDS+14*
, FOOTS+2*, FOOTS+3*, FOOTS+6*, FOOTS+7*, RAJOB1+12*, RAJOB1+13*, RAJOB1+18*, RAJOB1+19*, RAJOB1+20*, RAJOB1+25*
, RAJOB1+26*, RAJOB1+27*, RAJOB1+28*, RAJOB1+29*, COL1+2*, COL1+3*, COL1+5*, COL1+7*, COL1+9*, COL1+10*
, COL1+12*, COL1+14*

Label References

Name Line Occurrences
$$PARSE R1+15
ABEND EN1+19
CLEANUP EN1+17, EOF+2, ABEND+1
COL1 RAJOB1+15, RAJOB1+22
DATDEL EN1+20
DISP EN1+23, R1+5, R1+9, R1+13, EOF+1, DATDEL+2, DATDEL+4, DATDEL+6
EOF R1
FOOTS RAJOB1+30
HD RAJOB+5
HD1 RAJOB1+3
HDSUM RAJOB+5
HDSUM1 RAJOB1+3
R1 R1+3, R1+7, R1+11, R1+18
S2 S2
SETREC R1+17

Naked Globals

Name Field # of Occurrence
^(2 HDSUM+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A R1+1!, CLEANUP+1!
A( R1+2*, S2+1
A(1 R1+3, R1+4, R1+7, R1+11, R1+12, S2+3
A(2 S2+4
A(5 R1+15*, S2+2
A(8 R1+16*
B PARSE+1~, PARSE+6*, PARSE+7
DIR EN1+17!
DIR("A" EN1+14*, EN1+15*
DIR("B" EN1+16*
DIR(0 EN1+14*
DTIME EN1+8, EN1+10, R1
F CLEANUP+1!
I R1+2*, PARSE+1~, PARSE+6*, DATDEL+7*, S2+1*, CLEANUP+1!, HD+5*, HD1+1~, HD1+8*, HD1+10*
, HD1+12*, RAJOB+1~, RAJOB+6*, RAJOB+7, RAJOB+8, RAJOB+9, RAJOB+10, RAJOB+11, RAJOB+12, RAJOB+13
, RAJOB+14*, RAJOB+16, FOOTS+7*, RAJOB1+1~, RAJOB1+4*, RAJOB1+5, RAJOB1+6, RAJOB1+7, RAJOB1+8, RAJOB1+9
, RAJOB1+10, RAJOB1+11, RAJOB1+16*, RAJOB1+18, RAJOB1+23*, RAJOB1+25, RAJOB1+27*
IO R1
J RAJOB+1~, RAJOB+8*, RAJOB1+1~, RAJOB1+6*, RAJOB1+27*
POP EN1+19, CLEANUP+1!
RA PARSE~, PARSE+2, PARSE+3*, PARSE+4*, PARSE+5, PARSE+6, PARSE+7*, PARSE+8, SETREC+1*, S2*
, S2+1, S2+2, S2+3, S2+4, S2+5, CLEANUP+1!
>> RAAVG( RAJOB+9*, RAJOB1+7*, RAJOB1+25
>> RACOL( RAJOB+6, RAJOB+8*, RAJOB+10!, RAJOB+11!, RAJOB+12!, RAJOB+14, RAJOB1+4, RAJOB1+6*, RAJOB1+8!, RAJOB1+9!
, RAJOB1+10!, RAJOB1+16, RAJOB1+23, RAJOB1+25
>> RACOL14( RAJOB+7, RAJOB1+5*, RAJOB1+25
RACOUNT EN1+21*, R1+17*, EOF+1, CLEANUP+1!
RADIR EN1+7*, EN1+8, EN1+9*, EN1+12, EN1+18, CLEANUP+1!
RAFILE EN1+12*, EN1+13, EN1+15, CLEANUP+1!
>> RAH1 HD1+4
>> RAH3 HD+4, HD1+7
>> RAH4( HD+5, HD1+8
>> RAH5 HD+6, HD1+9
>> RAH6( HD1+10
>> RAH7( HD1+12
>> RAH8 HD+7, HD1+13
>> RAMAX FOOTS+5*, FOOTS+7
>> RAN HD+3*, HD+4*, HD+5*, HD+6*, HD+7*, HDSUM+3*, HDSUM+4*, HDSUM+5*, HDSUM+6*, HDSUM+7*
, HDSUM+8*, HDSUM+9*, HDSUM+10*, HDSUM+11*, HDSUM+12*, HDSUM+13*, HDSUM+14*, HD1+2*, HD1+3*, HD1+4
, HD1+5*, HD1+6*, HD1+7*, HD1+8*, HD1+9*, HD1+10*, HD1+11*, HD1+12*, HD1+13*, HDSUM1+1*
, HDSUM1+2, RAJOB+1*, RAJOB+15*, RAJOB+16, RAJOB+17*, COLHDS+2*, COLHDS+3, COLHDS+4*, COLHDS+5, COLHDS+6*
, COLHDS+7, COLHDS+9*, COLHDS+10, COLHDS+11*, COLHDS+12, COLHDS+13*, COLHDS+14, FOOTS+2*, FOOTS+3, FOOTS+6*
, FOOTS+7*, RAJOB1+12*, RAJOB1+13, RAJOB1+17*, RAJOB1+18, RAJOB1+19*, RAJOB1+20*, RAJOB1+24*, RAJOB1+25, RAJOB1+26*
, RAJOB1+27*, RAJOB1+28*, RAJOB1+29, COL1+2*, COL1+3, COL1+4*, COL1+5, COL1+6*, COL1+7, COL1+9*
, COL1+10, COL1+11*, COL1+12, COL1+13*, COL1+14
>> RANEG FOOTS+1, FOOTS+3
>> RANX RAJOB+11, RAJOB1+9
>> RAPCT( RAJOB+7*, RAJOB+8*, RAJOB+16, RAJOB1+5*, RAJOB1+6*, RAJOB1+18
>> RAPG RAJOB+5*, RAJOB1+3*
RAREAD EN1+21*, R1+1*, EOF+1, CLEANUP+1!
>> RASAME RAJOB1+29
RASP10 RAJOB+2~, RAJOB+3*, RAJOB+16
RASP15 RAJOB+2~, RAJOB+4*
RASP20 RAJOB+2~, RAJOB+4*
RASP25 RAJOB+2~, RAJOB+4*, RAJOB1+1~, RAJOB1+2*, RAJOB1+18, RAJOB1+25
RASP3 RAJOB+2~, RAJOB+3*, FOOTS+3, RAJOB1+1~, RAJOB1+2*
RASP31 RAJOB+2~, RAJOB+4*
RASP4 RAJOB+2~, RAJOB+3*, FOOTS+7, RAJOB1+1~, RAJOB1+2*
RASP6 RAJOB+2~, RAJOB+3*, RAJOB1+1~, RAJOB1+2*
RASP8 RAJOB+2~, RAJOB+3*, RAJOB1+1~, RAJOB1+2*
RATAB EN1+21*, R1+2, CLEANUP+1!
>> RATOTAL HDSUM+1*, HDSUM+2*, HDSUM+7, HDSUM1+2
>> RATOTAL( RAJOB+7, RAJOB+8, RAJOB+9, RAJOB+10!, RAJOB+11!, RAJOB+12!, RAJOB+13*, RAJOB1+5, RAJOB1+6, RAJOB1+7
, RAJOB1+8!, RAJOB1+9!, RAJOB1+10!, RAJOB1+11*, RAJOB1+25
>> RATOTAL("unknown" FOOTS+5
RATXT EN1+22*, R1+4*, R1+8*, R1+12*, EOF+1*, DATDEL+1*, DATDEL+3*, DATDEL+5*, DISP+1, DISP+2
, CLEANUP+1!
RAVMS EN1+10*, EN1+11, EN1+12, EN1+18, CLEANUP+1!
>> RAWAITD( RAJOB+9, RAJOB1+7
>> RAXCLUDE( RAJOB+12, RAJOB1+10
>> RAXIT FOOTS+7
X EN1+8*, EN1+9, R1*, R1+2, CLEANUP+1!, COLHDS~, COLHDS+1, COLHDS+8, COL1~, COL1+1
, COL1+8
>> XPDNM DISP+1
Y EN1+17, CLEANUP+1!

Marked Items

Name Field # of Occurrence
$T(DAY14+I RAJOB1+27
$T(FOOTS2+I FOOTS+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All