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

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

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!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPMW3

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items