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 |  Local Variables |  All
Print Page as PDF
Routine: RAPMW

Package: Radiology Nuclear Medicine

Routine: RAPMW


Information

RAPMW ;HOIFO/SWM-Radiology Wait Time reports ;03/19/05 12:45

Source Information

Source file <RAPMW.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Radiology Nuclear Medicine 7 $$NAMCODE^RACPTMSC  CHECK^RADLQ3  (FILTER1,FILTER2,WRTSUM)^RAPMW1  (CALC,WRTDET)^RAPMW2  EN1^RASELCT  (CLOSE,ZIS)^RAUTL  ($$SETUPDI,SELDIV)^RAUTL7  
VA Fileman 2 C^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RA TIMELINESS REPORT  RAPM  

Entry Points

Name Comments DBIA/ICR reference
TASK ; set vars for taskman
GETTYP ;
GETDEV ;
ASKSORT ;
SETPTA ;Set up Proc Type Array, w Sherrill Snuggs' Xcel file
; also setup RATOTAL(), RACOL(,), RAHIER()
ASKDAYS ;
START ; taskman to del task after job, set Radiology IO
GETPROC ;
GETDIV() ;
PWT(RABDATE,RAEDATE) ;entry point of EMAIL performance and wait time as part of a task job
EXIT ;
GETDATA ;
ASKIP ;
GETDATE ; start and end dates

External References

Name Field # of Occurrence
C^%DTC GETDATE+9
^DIR GETTYP+5, GETDATE+5, GETDATE+15, ASKIP+15, ASKSORT+5, ASKDAYS+7
$$NAMCODE^RACPTMSC GETPROC+8
CHECK^RADLQ3 RAPMW+5
FILTER1^RAPMW1 GETDATA+6
FILTER2^RAPMW1 GETDATA+7
WRTSUM^RAPMW1 START+9
CALC^RAPMW2 GETDATA+7
WRTDET^RAPMW2 START+11
EN1^RASELCT GETPROC+4
CLOSE^RAUTL EXIT+2
ZIS^RAUTL GETDEV+3
$$SETUPDI^RAUTL7 GETDIV+1
SELDIV^RAUTL7 GETDIV+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RAPMW+24
Function Call: WRITE
  • Prompt: !,"Radiology Outpatient Procedure Wait Time Report"
  • Line Location: RAPMW+25
Function Call: WRITE
  • Prompt: !!
  • Line Location: RAPMW+29
Function Call: WRITE
  • Prompt: "."
  • Line Location: RAPMW+34
Function Call: WRITE
  • Prompt: I
  • Line Location: RAPMW+38
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $O(RAXCLUDE(I))]""
  • Line Location: RAPMW+38
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !!,"Enter Report Type"
  • Line Location: GETTYP+4
Function Call: WRITE
  • Prompt: !?4,"The starting and ending dates are based upon what was entered at",!?4,"the ""Imaging Exam Date/Time"" prompt during Registration.",!
  • Line Location: GETDATE+2
Function Call: WRITE
  • Prompt: !!?4,"** Ending Date cannot be later than today's date. **",!
  • Line Location: GETDATE+10
Function Call: WRITE
  • Prompt: !!,"Enter next item to select."
  • Line Location: ASKIP+14
Function Call: WRITE
  • Prompt: !!,"Sort report by"
  • Line Location: ASKSORT+4
Routine Call
  • DIR
  • Line Location:
    • GETTYP+5
    • GETDATE+5
    • GETDATE+15
    • ASKIP+15
    • ASKSORT+5
    • ASKDAYS+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(73.2 - [#73.2] SETPTA+8
^RADPT - [#70] GETDATA+7
^RADPT("AR" GETDATA+4, GETDATA+5, GETDATA+6
^RAMIS(71 - [#71] GETPROC+8, GETPROC+10, GETPROC+11
^TMP($J RAPMW+7!, GETDIV+3, GETDIV+4!, GETPROC+7, GETPROC+8*, GETPROC+11*, EXIT+12!

Label References

Name Line Occurrences
$$GETDIV RAPMW+31
ASKDAYS RAPMW+47
ASKIP RAPMW+33
ASKSORT RAPMW+46
EXIT RAPMW+27, RAPMW+29, RAPMW+31, RAPMW+33, RAPMW+40, RAPMW+45, RAPMW+54, START+12, PWT+6
GETDATA START+7
GETDATE RAPMW+29
GETDEV RAPMW+54
GETPROC RAPMW+42
GETTYP RAPMW+27
SETPTA RAPMW+22, PWT+2
START RAPMW+55, PWT+5
TASK GETDEV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR GETTYP+5!, GETDATE+5!, GETDATE+15!, ASKIP+15!, ASKSORT+6!, ASKSORT+10!, ASKDAYS+7!
DIR("?" GETTYP+3*, GETDATE+4*, GETDATE+13*, GETDATE+14*, ASKIP+3*, ASKIP+4*, ASKIP+5*, ASKIP+6*, ASKIP+7*, ASKIP+8*
, ASKIP+9*, ASKIP+10*, ASKIP+11*, ASKIP+12*, ASKSORT+2*, ASKDAYS+4*, ASKDAYS+5*, ASKDAYS+6*
DIR("A" GETTYP+2*, GETDATE+3*, GETDATE+12*, ASKIP+13*, ASKSORT+3*, ASKDAYS+2*
DIR("B" GETTYP+2*, ASKIP+13*, ASKSORT+3*, ASKDAYS+3*
DIR(0 GETTYP+1*, GETDATE+1*, GETDATE+11*, ASKIP+2*, ASKSORT+1*, ASKDAYS+1*
>> DIRUT RAPMW+27, RAPMW+29, RAPMW+45, RAPMW+46, GETTYP+6, GETDATE+6, GETDATE+16, ASKIP+16, ASKSORT+6, ASKDAYS+7
DT GETDATE+1, GETDATE+10, GETPROC+8
DUZ RAPMW+5, GETDIV+4
I RAPMW+38*, EXIT+3!, SETPTA+2~, SETPTA+3*, SETPTA+8*, SETPTA+9*, SETPTA+13*, SETPTA+14*, SETPTA+15, SETPTA+16
IO START+1, START+8
IOF RAPMW+24, START+10
IOST START+10
J EXIT+3!, SETPTA+2~, SETPTA+8*, SETPTA+9*, SETPTA+15*, SETPTA+16
POP EXIT+3!
RA0 EXIT+3!
RA1 GETPROC+6*, GETPROC+7*, GETPROC+8, EXIT+3!
RA16 EXIT+3!
RA2 GETPROC+7*, GETPROC+8*, GETPROC+10, GETPROC+11, EXIT+3!
RA3 GETPROC+11*, EXIT+3!
RA71REC EXIT+3!
RA72 EXIT+3!
RAAVG EXIT+10!
RAAVG( SETPTA+8*, SETPTA+9*
RABAD GETDATA+1*, GETDATA+5*, GETDATA+6, GETDATA+7, EXIT+4!
RABDATE GETDATE+7*, GETDATE+9, GETDATE+11, GETDATE+23, EXIT+12!, PWT~
RABEGDT GETDATE+23*, GETDATA+3, EXIT+12!
>> RACCESS( RAPMW+5, GETDIV+4!
RACHKDIV EXIT+4!
RACN0 EXIT+4!
RACNI GETDATA+7*, EXIT+4!
RACNISAV EXIT+4!
RACNL EXIT+4!
RACOL EXIT+4!
RACOL( SETPTA+8*, SETPTA+9*
RACOL14 EXIT+4!
RACOL14( SETPTA+8*, SETPTA+9*
RACPT EXIT+5!
RACPTC EXIT+11!
RACPTI EXIT+11!
RADASH EXIT+5!
RADD GETDATE+9*, EXIT+5!
RADFN GETDATA+5*, GETDATA+6, GETDATA+7, EXIT+5!
RADIC GETPROC+1*, GETPROC+4, EXIT+5!
RADIC("A" GETPROC+2*
RADIC(0 GETPROC+1*
RADIV EXIT+5!
RADSDT EXIT+5!
RADTE GETDATA+3*, GETDATA+4*, GETDATA+5, GETDATA+6, EXIT+5!
RADTI GETDATA+6*, GETDATA+7, EXIT+5!
RADTORD EXIT+5!
RAEDATE GETDATE+21*, EXIT+12!, PWT~
RAENDDT GETDATE+21*, GETDATA+4, EXIT+12!
RAH1 EXIT+6!
RAH3 EXIT+6!
RAH4 EXIT+6!
RAH5 EXIT+6!
RAH6 EXIT+6!
RAH7 EXIT+6!
RAH8 EXIT+6!
RAHD0 EXIT+6!
RAHI EXIT+11!
RAHIER EXIT+11!
RAHIER( SETPTA+16*
RAIMGTYP EXIT+6!
RAIO START+1*, START+8, EXIT+12!
RAIOM EXIT+12!
RAIT EXIT+7!
RAITYP EXIT+7!
RAKEY EXIT+7!
>> RAL99 START+9, EXIT+1, PWT+3
RALINE RAPMW+51*, RAPMW+52, EXIT+7!
RAMAX EXIT+7!
RAMAXDT GETDATE+9*, GETDATE+10*, GETDATE+11, EXIT+7!
RAMES EXIT+11!
RANEG START+6*, EXIT+7!
RANOW EXIT+7!
RANX RAPMW+33, RAPMW+34, RAPMW+40, ASKIP+1*, ASKIP+17*, EXIT+7!, PWT+4*
RAOREC EXIT+8!
RAORIEN EXIT+8!
>> RAP99 EXIT+1*, EXIT+2, EXIT+12
RAPATND EXIT+8!
RAPATNM EXIT+8!
RAPCT EXIT+11!
RAPCT14 EXIT+11!
RAPG EXIT+8!
RAPOP RAPMW+54, EXIT+8!
RAPRC EXIT+11!
RAPROCNM EXIT+8!
RAPSTX EXIT+8!
RAPTA EXIT+11!
RAQUIT RAPMW+40, GETDIV+3, GETPROC+5, EXIT+8!
RAR EXIT+9!
RAREC EXIT+9!
RARY EXIT+11!
RAS99 START+9, EXIT+1, PWT+3!
RASAME START+5*, EXIT+9!
RASAME2 EXIT+9!
RASELDIV EXIT+9!
RASINCE ASKDAYS+7*, EXIT+9!
RASORT ASKSORT+7*, EXIT+9!
RASORTNM ASKSORT+8*, ASKSORT+9*, EXIT+9!
RATOTAL RAPMW+23*, EXIT+10!, PWT+2*
RATOTAL( SETPTA+8*, SETPTA+9*, SETPTA+14
RATXT RAPMW+50*, RAPMW+51, RAPMW+52, EXIT+10!
RATYP RAPMW+45, RAPMW+49, START+9, START+10, START+11, GETTYP+7*, GETDEV+1, EXIT+10!, PWT+4*
RAUTIL GETPROC+3*, GETPROC+4, EXIT+10!
RAWAITD EXIT+10!
RAWAITD( SETPTA+8*, SETPTA+9*
RAXCLUDE EXIT+11!
RAXCLUDE( RAPMW+38
RAXCLUDE("" RAPMW+36
RAXCLUDE("RAD IATION THERAPY" , RAPMW+19*, PWT+1*
RAXDT EXIT+10!
RAXIT RAPMW+23*, EXIT+10!, PWT+2*
RAXMST EXIT+10!
U GETPROC+8, GETPROC+10
X RAPMW+31*, GETDATE+9, GETDIV+1~*, EXIT+3!
X1 GETDATE+9*, EXIT+3!
X2 GETDATE+9*, EXIT+3!
Y GETTYP+7, GETDATE+7, GETDATE+21, ASKIP+17, ASKSORT+7, ASKDAYS+7, EXIT+3!
Y(0 ASKSORT+8
>> ZTDESC TASK+4*
>> ZTQUEUED START+1
>> ZTREQ START+1*
>> ZTRTN TASK+1*
>> ZTSAVE("RA*" TASK+2*
>> ZTSAVE("^TMP($J," TASK+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All