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 |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RAUTODC

Package: Radiology Nuclear Medicine

Routine: RAUTODC


Information

RAUTODC ;HISC/GJC discontinue expired rad orders ;30 Jan 2018 9:01 AM

Source Information

Source file <RAUTODC.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 6 $$EC^%ZOSV  ^%ZTER  $$S^%ZTLOAD  ($$DT,$$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT  OUT^XPDMENU  $$KSP^XUPARAM  
MailMan 1 ^XMD  
Radiology Nuclear Medicine 1 ^RAORDU  
Toolkit 1 (EN,ENVAL)^XPAR  
VA FileMan 1 ENALL^DIK  

Entry Points

Name Comments DBIA/ICR reference
EN1 ;entry point for initial mass discontinue action
KILL ; Kill variables
GETREA() ;get the generic discontinue reason IEN
DISABLE ;disable the notifications that were enabled
ENABLE ;enable the notifications that were disabled
8() ;get SCHEDULED DATE (TIME optional) fld: #23
GETNOTE(ARY,PAR,INST) ; gets both enabled & disabled
NOTEVT(RAENT,Y) ;
OOO(Y) ;place options 'Cancel a Request' & 'Hold a Request' in/out of order
ERROR ;come here on error
EMAIL(RAX) ;email error to us
EN2 ; re-index the new 'DATE DESIRED (Not guaranteed)' (#21) "BDD" xref
EN3 ; re-index the existing 'REQUEST STATUS' (#5) "AS" xref.
STATS ;track DC'd statistics: how many records, how long did it take.
; email to RA REQUEST CANCELLED & POSTMASTER.

External References

Name Field # of Occurrence
$$EC^%ZOSV ERROR+2
^%ZTER ERROR+4
$$S^%ZTLOAD EN1+133
ENALL^DIK EN2+2, EN3+3
^RAORDU EN1+129
$$DT^XLFDT EN1+80
$$FMADD^XLFDT EN1+80
$$FMDIFF^XLFDT STATS+10
$$FMTE^XLFDT STATS+7, STATS+8
$$NOW^XLFDT EN1+102, EN1+136, STATS+5
^XMD EMAIL+7, STATS+13
EN^XPAR NOTEVT+10
ENVAL^XPAR GETNOTE+1
OUT^XPDMENU OOO+4
$$KSP^XUPARAM EMAIL+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAO(75.1 - [#75.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TRAP" EN1+22
^RA(75.2 - [#75.2] GETREA+3
^RAO(75.1 - [#75.1] EN1+106, EN1+108, EN1+109, EN3+2!
^XTMP("RA5_0P135" EN1+80!*, EN1+81*

Label References

Name Line Occurrences
$$8 EN1+122
$$GETREA EN1+47
DISABLE EN1+87
EMAIL EN1+50, EN1+70, EN1+137, GETNOTE+7, ERROR+11
ENABLE EN1+135, EN1+146, ERROR+6
GETNOTE EN1+65
NOTEVT DISABLE+4, ENABLE+6
OOO EN1+87, EN1+135, EN1+146, ERROR+6
STATS EN1+148

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARY GETNOTE~, GETNOTE+1
D0 EMAIL+2~
D1 EMAIL+2~
DA EN2+2!, EN2+3!, EN3+2!, EN3+4!
DIC EMAIL+2~, EN2+2!, EN2+3!, EN3+2!, EN3+4!
DIK EN2+2!*, EN2+3!, EN3+2!, EN3+3*, EN3+4!
DIK(1 EN2+2*, EN3+3*
>> ERR NOTEVT+10
I STATS+3~, STATS+11*
INST GETNOTE~, GETNOTE+1, GETNOTE+4
PAR GETNOTE~, GETNOTE+1, GETNOTE+5
RA135TIME EN1+58*, KILL+1!
RADD21 EN1+91~*, EN1+106*, EN1+108, KILL+1!
RADESC EN1+79*, EN1+80, EN1+81!
RADUZ EN1+91~, EN1+92*, KILL+1!
RAEDTM EN1+95*, EN1+106, EN1+122, KILL+1!
RAENT KILL+1!, DISABLE+1*, DISABLE+2, DISABLE+4, ENABLE+1~, ENABLE+2*, ENABLE+3, ENABLE+6, NOTEVT~, NOTEVT+8
, NOTEVT+10
RAERR EN1+55~, EN1+68, EN1+89!, GETNOTE+1, GETNOTE+3, GETNOTE+4, ERROR+1~, ERROR+2*, ERROR+9
RAI OOO+4*, OOO+5!
RAIEN KILL+1!, DISABLE+2*, DISABLE+4, ENABLE+1~, ENABLE+3*, ENABLE+6, NOTEVT+8, NOTEVT+10
>> RAINT EN1+64*, EN1+65
>> RAMSGNUM EMAIL+7*
RANOTE EN1+63!, EN1+65, EN1+75, EN1+81, KILL+1!, GETNOTE+5
RANOTE( DISABLE+1, DISABLE+2, DISABLE+4, ENABLE+3
RAOIFN EN1+108*, EN1+109, KILL+1!
RAOIFN(0 EN1+109*, EN1+113, 8+1
RAOREA EN1+48!, KILL+2!
RAOREA(1 EN1+47*, EN1+48
RAOREQST EN1+113*, EN1+114, EN1+122, KILL+2!
>> RAOSTS EN1+99*
RAPAR EN1+63*, EN1+65, NOTEVT+6~*, NOTEVT+10
RAQDC EN1+103*, EN1+130*, KILL+2!, STATS+9
RAQFIN KILL+2!, STATS+3~, STATS+5*, STATS+8, STATS+10
RAQST EN1+102*, KILL+2!, STATS+7, STATS+10
RAQUIT EN1+60*, EN1+106, EN1+108, EN1+133*, EN1+146, KILL+2!
RAREQSTS EN1+60*, EN1+114, KILL+2!
RASAV EN1+75!*, KILL+2!
RASAV( ENABLE+2, ENABLE+6, NOTEVT+8
RATEXT STATS+3~
RATEXT(1 STATS+7*
RATEXT(2 STATS+8*
RATEXT(3 STATS+9*
RATEXT(5 STATS+10*
RATXT EN1+137!, GETNOTE+4~, GETNOTE+7, ERROR+1~, ERROR+11
RATXT(1 EN1+136*, GETNOTE+4*, ERROR+8*
RATXT(2 GETNOTE+4*, ERROR+9*
RATXT(3 GETNOTE+5*
RATXT(4 GETNOTE+5*, STATS+9*
RATXT(5 GETNOTE+6*
RAX EN1+49~, EN1+50, EN1+69~, EN1+70, OOO+3*, OOO+4, OOO+5!, EMAIL~, STATS+3~, STATS+4*
, STATS+7, STATS+8
RAX(1 EN1+49*, EN1+69*
RAY NOTEVT+6~, NOTEVT+7*, NOTEVT+8*, NOTEVT+9, NOTEVT+10
RAY(0 NOTEVT+9*
U EN1+113, EN1+114, 8+1
>> X EN1+22*
XMDUN EMAIL+2~
XMDUZ EMAIL+2~, EMAIL+6*, STATS+3~, STATS+4*
XMMG STATS+3~
XMSUB EMAIL+2~, EMAIL+5*, STATS+3~, STATS+6*
XMTEXT EMAIL+6*, STATS+3~, STATS+12*
XMY EMAIL+2~, STATS+3~
XMY( STATS+11*
XMY("greg.cebelinski@domain.ext" EMAIL+3*
XMY("kerry.milligan@domain.ext" EMAIL+4*
XMZ EMAIL+7, STATS+3~
Y NOTEVT~, NOTEVT+7, OOO~, OOO+3
>> ZTDESC ERROR+8
>> ZTQUEUED EN1+142
>> ZTREQ EN1+142*
>> ZTSTOP EN1+133*, EN1+142
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All