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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RARTST

Package: Radiology Nuclear Medicine

Routine: RARTST


Information

RARTST ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Reports Distribution ;2/10/98 11:02

Source Information

Source file <RARTST.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Radiology Nuclear Medicine 6 PRT^RARTR  (CLOSE,D,ZIS)^RAUTL  UPDLOC^RAUTL10  RASET^RAUTL2  ($$ENV,EMAIL)^RAUTL4  $$DIVSION^RAUTL6  
VA FileMan 3 ^%DT  C^%DTC  ^DIK  
Kernel 2 ^%ZTLOAD  $$UP^XLFSTR  
MailMan 2 KILL^XM  ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Radiology Nuclear Medicine 4 RA RPTDISTAUTOPURGE  RA RPTDISTPURGE  RA RPTDISTREBUILD  RAUTL0  

Entry Points

Name Comments DBIA/ICR reference
STUFF
INIT ; initialize variables
CHK
S
LOCK
DUPCHK ;Check if this report (RARPT) is already in this queue (RAB)
RESET ;; **** Radiology Report Distribution File Rebuild Routine ****
START
Q
LOOP
PURGE ;; **** Routine to Purge Reports Distribution File ****
PURGE1
EXIT
MAIL ; Mail to Req. Physician if applicable

External References

Name Field # of Occurrence
^%DT RESET+1, START, START+6, PURGE+1, PURGE1+5, PURGE1+13
C^%DTC PURGE1+1
^%ZTLOAD PURGE+4
^DIK PURGE1+7, PURGE1+10, PURGE1+11
PRT^RARTR MAIL+12
CLOSE^RAUTL Q
D^RAUTL START, START+6, PURGE1+2, PURGE1+5, PURGE1+13
ZIS^RAUTL RESET+2
UPDLOC^RAUTL10 CHK
RASET^RAUTL2 INIT+1
$$ENV^RAUTL4 MAIL+9
EMAIL^RAUTL4 MAIL+12
$$DIVSION^RAUTL6 MAIL+8
$$UP^XLFSTR MAIL+7
KILL^XM PURGE1, PURGE1+17
^XMD PURGE1+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P($T(RESET),";;",2),!
  • Line Location: RESET+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RESET+2
Function Call: WRITE
  • Prompt: !!,"Distribution files rebuilding process beginning at ",Y
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,"All Distribution Queues have been inactivated. Aborting Distribution File",!,"rebuild."
  • Line Location: START+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !!?3,"Total reports used to rebuild files: ",C1
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!,*7,"Distribution files rebuilding process completed at ",Y,"."
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,$P($T(PURGE),";;",2),!
  • Line Location: PURGE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RABTCH(74.4 - [#74.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( LOCK+3*
^DPT - [#2] MAIL+3
^RA(79 - [#79] MAIL+9
^RABTCH(74.3 - [#74.3] STUFF+1, START+1, PURGE1+8, PURGE1+9, PURGE1+11
^RABTCH(74.4 - [#74.4] S+1, LOCK, LOCK+1*, LOCK+2*, LOCK+3*, DUPCHK+1, START+1!*, PURGE1+7, PURGE1+10
^RADPT - [#70] CHK+4, MAIL+4, MAIL+5
^RAO(75.1 - [#75.1] MAIL+8
^RARPT - [#74] START+4, MAIL+6
^RARPT("AA" START+4
^XMB(3.7 - [#3.7] MAIL+9

Label References

Name Line Occurrences
CHK STUFF+1, LOOP
DUPCHK S
EXIT PURGE+1, PURGE+6
INIT STUFF, START+4
LOCK LOCK
LOOP START+4
MAIL INIT+2
PURGE PURGE+1
Q STUFF, RESET+1, RESET+2, START+2
RESET RESET+1
S CHK+1, CHK+2, CHK+3, CHK+4

Naked Globals

Name Field # of Occurrence
^( STUFF+1, START+1
^("I" STUFF+1, START+1
^(0 STUFF+1, LOCK+3, START+1, START+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT RESET+1*!, START*, START+6*, PURGE+1*!, PURGE1+5*, PURGE1+13*, EXIT!
%DT("A" RESET+1*, PURGE+1*
%X Q!, EXIT!
%XX Q!
%Y Q!, EXIT!
%YY Q!
A1 EXIT+1!
C0 Q!
C1 START+3*, START+4*, START+5, Q!
D EXIT!
DA PURGE1+7*, PURGE1+10*, PURGE1+11*, EXIT!
DA(1 PURGE1+11*
DDH EXIT+1!
DIC EXIT!
DIK PURGE1+7*, PURGE1+10*, PURGE1+11*, EXIT!
DT STUFF+1, LOCK+1, START+1, PURGE1+1, MAIL+8
DUOUT Q+1!
DUZ LOCK+3, PURGE1+15
I S+1*, LOCK*, LOCK+1, LOCK+2, LOCK+3, LOCK+4, Q+1!, EXIT+1!
INACTDT PURGE1+9*, PURGE1+10, EXIT!
IO START
IOP RESET+2*!
MSGTXT PURGE1!, EXIT!
MSGTXT(1 PURGE1+3*
MSGTXT(2 PURGE1+4*
MSGTXT(3 PURGE1+6*
MSGTXT(4 PURGE1+14*
POP Q+1!, EXIT!, EXIT+1!
RA START+1!, START+2, Q!
RA( START+1*, LOOP
RA1 START+4*, Q!, MAIL+1~, MAIL+2*, MAIL+3, MAIL+4, MAIL+5, MAIL+14
RA2 MAIL+1~, MAIL+2*, MAIL+4, MAIL+5, MAIL+14
RA3 MAIL+1~, MAIL+2*, MAIL+5, MAIL+14
RA74 MAIL+1~
RA74(0 MAIL+6*, MAIL+7
RA744 PURGE1+10*, EXIT!
RA74IEN MAIL+1~, MAIL+6*, MAIL+14
RAACNT MAIL+10~, MAIL+11*
RAB STUFF+1*, STUFF+2!, S, LOCK+1, LOCK+2, DUPCHK+1, START+1*, Q!, LOOP*, PURGE1+8*
, PURGE1+9, PURGE1+10, PURGE1+11, EXIT!
RACAT STUFF+1*, STUFF+2!, CHK+1, CHK+2, CHK+3, CHK+4, Q!, LOOP*
RACN Q!
RACNI CHK+4, Q!, MAIL+2, MAIL+14*
RADATE Q!
RADFN CHK+4, Q!, MAIL+2, MAIL+14*
RADIVISN MAIL+1~, MAIL+8*, MAIL+9
RADT RESET+1*, START+4, Q!, PURGE+1*, PURGE1+1*, PURGE1+2, PURGE1+7, PURGE1+10, PURGE1+11, EXIT!
RADTE Q!, PURGE1+7*, EXIT!
RADTI CHK+4, Q!, PURGE1+11*, EXIT!, MAIL+2, MAIL+14*
RADUP744 S!, DUPCHK+1!*
RAFL STUFF+2!, CHK*, CHK+1*, CHK+2*, CHK+3*, CHK+4*, CHK+5
RAMES Q+1!
RAPOP Q!
RARDIFN STUFF+2!, LOCK+4*, Q!, PURGE1+7*, EXIT!
RARPHYS MAIL+10~, MAIL+11*
RARPT INIT+1, LOCK+1, LOCK+2, DUPCHK+1, START+4*, Q!, EXIT!, MAIL+6, MAIL+14*
RASTAT MAIL+1~, MAIL+7*, MAIL+9
RAUTOE MAIL+10~, MAIL+11*
RAY0 MAIL+1~, MAIL+3*
RAY2 MAIL+1~, MAIL+4*
RAY3 STUFF+2!, INIT+2*, CHK+2, CHK+3, CHK+4, LOCK+1, Q!, MAIL+1~, MAIL+5*, MAIL+8
, MAIL+9, MAIL+11
U LOCK+1, DUPCHK+1
X START*, START+1*, START+6*, Q!, PURGE1+1, PURGE1+5*, PURGE1+13*, EXIT!, MAIL+1~
>> X1 PURGE1+1*
>> X2 PURGE1+1*
X744 S+1!, DUPCHK+1*, DUPCHK+2!
>> XMDUZ PURGE1+16*
>> XMSUB PURGE1+15*
>> XMTEXT PURGE1+15*
>> XMY( PURGE1+15*
Y STUFF, INIT+1*, INIT+2, RESET+1, START, START+4, START+6, Q!, PURGE+1, PURGE1+2*
, PURGE1+3, PURGE1+6, PURGE1+14, EXIT!, MAIL+1~
ZTDESC Q+1!, PURGE+3*
>> ZTDTH PURGE+3*
>> ZTIO PURGE+2*
>> ZTQUEUED EXIT+2
>> ZTREQ EXIT+2*
ZTRTN RESET+2*, Q+1!, PURGE+2*
ZTSAVE Q+1!
ZTSAVE("RADT" RESET+2*, PURGE+2*
ZTSK PURGE+5, EXIT!

Marked Items

Name Field # of Occurrence
$T(PURGE PURGE+1
$T(RESET RESET+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All