Routine: RAPMW1

Package	Total	Call Graph
Kernel	2	($$FMTE,$$NOW)^XLFDT $$KSP^XUPARAM
Radiology Nuclear Medicine	2	(COLHDS,PTA)^RAPMW2 (RAJOB,RAJOB1)^RAPMW3
VA Fileman	1	GETS^DIQ

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RAPMW RAPMW2

Entry Points

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

External References

Name	Field # of Occurrence
GETS^DIQ	SETHD+6
COLHDS^RAPMW2	PRTS+14, PRTS+19
PTA^RAPMW2	FILTER2+14, EXCL+1
RAJOB^RAPMW3	WRTSUM+3
RAJOB1^RAPMW3	WRTSUM+4
$$FMTE^XLFDT	SETHD+32, SETHD+53
$$NOW^XLFDT	SETHD+52
$$KSP^XUPARAM	SETHD+4

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	FILTER1+5
^RA(72 - [#72]	FILTER2+27, CHECK3+7
^RA(79.2 - [#79.2]	FILTER1+9
^RADPT - [#70]	FILTER1+2, FILTER1+4, FILTER1+8, FILTER2+2, FILTER2+12
^TMP($J	FILTER1+6, FILTER2+4, SETHD+23, SETHD+26, SETHD+28, SETHD+46, SETHD+48

Label References

Name	Line Occurrences
CHECK3	FILTER2+13, FILTER2+31
DAY14	PRTS+23
EXCL	FILTER2+6
FOOTS	WRTSUM+6
HD	PRTS+1
HDSUM	PRTS+1
PRESS	HD+7, PRTS+18, FOOTS+2, FOOTS+4
PRTS	WRTSUM+5
SETHD	WRTSUM+2

Naked Globals

Name	Field # of Occurrence
^(	FILTER2+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DTIME	PRESS+3
DUZ(2	SETHD+4*, SETHD+6, SETHD+8, SETHD+9, SETHD+11, SETHD+12
>> I	FILTER2+10, FILTER2+12, FILTER2+16, SETHD+39, HD+4, HD+6, HD+7, PRTS+2, PRTS+4, PRTS+5 , PRTS+6, PRTS+8, PRTS+9, PRTS+10, PRTS+11, PRTS+12, PRTS+15, PRTS+16, PRTS+20, PRTS+21 , FOOTS+4
IO	PRESS+2
IO(0	PRESS+2
IOF	HD+1, HD+7, FOOTS+2, FOOTS+4
IOM	SETHD+1
IOSL	HD+7, FOOTS+4
IOST	HD+1, HD+7, FOOTS+2, FOOTS+4, PRESS+3
>> J	PRTS+3*, PRTS+4, PRTS+5
>> RA1	SETHD+25, SETHD+27, SETHD+28, SETHD+45, SETHD+47, SETHD+48
>> RA2	SETHD+45, SETHD+46, SETHD+48
>> RA72	FILTER2+27, CHECK3+7, CHECK3+8
>> RAAVG(	PRTS+8*, PRTS+21
>> RABAD	FILTER1+1, FILTER1+2, FILTER1+6, FILTER2+1, FILTER2+3, FILTER2+4, FILTER2+13, FILTER2+20, FILTER2+24, EXCL+2 , CHECK3+2, CHECK3+4, CHECK3+6, CHECK3+8
>> RABDATE	SETHD+32
>> RACHKDIV	FILTER1+5*, FILTER1+6
>> RACN0	FILTER2+2, FILTER2+3, FILTER2+4, FILTER2+6, FILTER2+12, FILTER2+16, FILTER2+26*, FILTER2+27, CHECK3+2, CHECK3+4 , CHECK3+6, CHECK3+7
>> RACNI	FILTER2+2, FILTER2+5, FILTER2+20, FILTER2+22, FILTER2+23, FILTER2+24, FILTER2+26, FILTER2+28, FILTER2+29
>> RACNISAV	FILTER2+5, FILTER2+28
>> RACOL	STORSUM+1*, STORSUM+3
>> RACOL(	STORSUM+3, PRTS+2, PRTS+4, PRTS+5, PRTS+9!, PRTS+10!, PRTS+11!, PRTS+15, PRTS+20, PRTS+21
>> RACOL14(	STORSUM+2*, PRTS+6, PRTS+21
>> RADASH	SETHD+1*
>> RADFN	FILTER1+2, FILTER1+4, FILTER1+8, FILTER2+2, FILTER2+12
>> RADIV	SETHD+25, SETHD+26, SETHD+27, SETHD+28
>> RADTI	FILTER1+2, FILTER1+4, FILTER1+8, FILTER2+2, FILTER2+12
>> RAEDATE	SETHD+32
>> RAH1	SETHD+2*, HD+1
>> RAH3	SETHD+20*, HD+3
RAH4	SETHD+22!
RAH4(	SETHD+27, SETHD+28, HD+4
RAH4(1	SETHD+23, SETHD+25
>> RAH5	SETHD+32*, HD+5
RAH6	SETHD+34!
RAH6(	HD+6
RAH6(1	SETHD+36, SETHD+38, SETHD+39*
RAH7	SETHD+43!
RAH7(	SETHD+48*, HD+7
RAH7(0	SETHD+44*, SETHD+45
RAH7(1	SETHD+45*
>> RAH8	SETHD+53*, HD+9
>> RAHD0	WRTSUM+1*, SETHD+2
>> RAHI	FILTER2+18*, FILTER2+19, FILTER2+22, FILTER2+26
>> RAHIER(	FILTER2+16
>> RAIMGTYP	FILTER1+9, FILTER1+11
>> RAIOM	SETHD+1*, SETHD+27, HD+1
>> RAITYP	FILTER1+8*, FILTER1+9
>> RAKEY	PRESS+3*, PRESS+4
>> RAL99	WRTSUM+4
>> RAMAX	FOOTS+3*, FOOTS+4
>> RANEG	FOOTS+1
>> RANOW	SETHD+52*, SETHD+53
>> RANX	FILTER2+4, FILTER2+6, SETHD+35, SETHD+43, PRTS+10
>> RAPCT(	PRTS+4*, PRTS+16
>> RAPCT14(	PRTS+6*, PRTS+16
>> RAPG	WRTSUM+1, HD+2, PRTS+1
>> RAPTA	FILTER2+16, EXCL+2, STORSUM+2, STORSUM+3, STORSUM+4, STORSUM+6
>> RAR(	SETHD+10, SETHD+11, SETHD+12
>> RAR(4	SETHD+8, SETHD+9
RARY	FILTER2+11!
RARY(	FILTER2+16*, FILTER2+22, FILTER2+26
RARY(""	FILTER2+18
>> RAS99	WRTSUM+3
>> RASAME	PRTS+23
>> RASELDIV	FILTER1+4*, FILTER1+5
>> RATOTAL	STORSUM+4*, HDSUM+1
>> RATOTAL(	STORSUM+4, PRTS+4, PRTS+6, PRTS+8, PRTS+9!, PRTS+10!, PRTS+11!, PRTS+12, PRTS+21
>> RATOTAL("unknown"	FOOTS+3
>> RATYP	SETHD+1
>> RAWAITD	STORSUM+1, STORSUM+2, STORSUM+6
>> RAWAITD(	STORSUM+6*, PRTS+8
>> RAXCLUDE(	EXCL+2, SETHD+39, PRTS+11
>> RAXCLUDE(""	SETHD+37
>> RAXIT	WRTSUM+5, HD+7, HD+8, PRTS+1, PRTS+18, FOOTS+2, FOOTS+4, PRESS+4*
U	FILTER1+4, FILTER1+5, FILTER1+8, FILTER1+9, FILTER2+4, FILTER2+6, FILTER2+27, CHECK3+2, CHECK3+4, CHECK3+6 , CHECK3+7, CHECK3+8
X	SETHD+7!
X(1	SETHD+8*, SETHD+17
X(2	SETHD+9*, SETHD+18
X(3	SETHD+11*, SETHD+13
X(4	SETHD+12*, SETHD+13
X(5	SETHD+13, SETHD+14, SETHD+19
X(6	SETHD+16, SETHD+17, SETHD+18, SETHD+19, SETHD+20
>> ZTQUEUED	PRESS+1

Marked Items

Name	Field # of Occurrence
$T(FOOTS2+I	FOOTS+4

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPMW1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items