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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RARTE7

Package: Radiology Nuclear Medicine

Routine: RARTE7


Information

RARTE7 ;HISC/SM continuation - Delete a Report, Outside Rpt misc;10/10/08 16:05

Source Information

Source file <RARTE7.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 6 $$GET1^DID  (FILE,UPDATE)^DIE  ^DIK  DA^DILF  $$ROOT^DILFD  $$GET1^DIQ  
Radiology Nuclear Medicine 3 CLOAK^RABUL3  OENOTE^RAUTL00  EN2^RAUTL20  
Kernel 1 $$NOW^XLFDT  

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: 3

Package Total Caller Graph
Radiology Nuclear Medicine 2 RARTE1  RARTE5  
Imaging 1 MAGVIMRA  

Entry Points

Name Comments DBIA/ICR reference
MARKDEL ; set field 5 to "X" to mark rpt as deleted
; also update activity log, send report deletion bulletin, store then delete
; associated DX, Staff, Resident data
PSET ;delete primary and secondary data
KILSEC(RAF2,RAC1) ;kill secondary data
SET7401(X) ; use this for DX, Staff, Resident secondaries
; set activity log's subfiles to store any secondaries
ANYDX(ARRAY) ; called from RARTE5
; input ARRAY name to store all DXs for this case
; output:
; =1 if one or more diag codes
; =0 if no diag code
; ARRAY() stores diag codes as merged from case
ALERT ; for Outside Report, ck if new/changed diags require alert
; this is called from RARTE5 each time an outside report is edited

External References

Name Field # of Occurrence
$$GET1^DID SET7401+19, SET7401+29
FILE^DIE MARKDEL+11, MARKDEL+54, PSET+7
UPDATE^DIE MARKDEL+25, SET7401+28
^DIK KILSEC+12
DA^DILF KILSEC+9
$$ROOT^DILFD KILSEC+6, KILSEC+10, SET7401+15
$$GET1^DIQ SET7401+29
CLOAK^RABUL3 MARKDEL+36
OENOTE^RAUTL00 ALERT+25
EN2^RAUTL20 MARKDEL+45
$$NOW^XLFDT MARKDEL+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(78.3 - [#78.3] ALERT+16
^RADPT - [#70] MARKDEL+16, ANYDX+8, ANYDX+9, ALERT+23
^RARPT - [#74] MARKDEL+9

Label References

Name Line Occurrences
KILSEC MARKDEL+58, PSET+9
PSET MARKDEL+46
SET7401 MARKDEL+41

Naked Globals

Name Field # of Occurrence
^(0 ALERT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY ANYDX~, ANYDX+7!, ANYDX+8*
ARRAY(0 ANYDX+10
ARRAY(9999 ANYDX+9*
DA MARKDEL+3~, KILSEC+4!, KILSEC+9, KILSEC+12*
DIK MARKDEL+3~, KILSEC+4!, KILSEC+10*, KILSEC+13!
DUZ MARKDEL+20
I ALERT+7~, ALERT+9*, ALERT+11*, ALERT+15*, ALERT+16
RA1 MARKDEL+3~, PSET+1*, PSET+2*, PSET+4, PSET+5, PSET+6, PSET+9, SET7401+24*, SET7401+26*
RA2 MARKDEL+3~, KILSEC+11*, KILSEC+12*
RA7003 MARKDEL+4~, MARKDEL+16*, MARKDEL+22, MARKDEL+23, MARKDEL+24
RAA MARKDEL+3~, KILSEC+3~, KILSEC+7*, SET7401+2!, SET7401+16*
RAA( KILSEC+12, SET7401+26
RAA(0 KILSEC+8, SET7401+17
>> RAA1( ALERT+11
>> RAA2( ALERT+11!, ALERT+15, ALERT+16
RAAB ALERT+14!, ALERT+16*, ALERT+22
RAC1 KILSEC~, KILSEC+5
RACLOAK MARKDEL+3~
>> RACNI MARKDEL+16, MARKDEL+51, MARKDEL+52, MARKDEL+53, MARKDEL+58, SET7401+14, ANYDX+6, ANYDX+8, ANYDX+9, ALERT+2
ALERT+5, ALERT+23
>> RADFN MARKDEL+16, MARKDEL+51, MARKDEL+52, MARKDEL+53, PSET+4, PSET+5, PSET+6, KILSEC+5, SET7401+14, ANYDX+6
, ANYDX+8, ANYDX+9, ALERT+2, ALERT+5, ALERT+23
>> RADTI MARKDEL+16, MARKDEL+51, MARKDEL+52, MARKDEL+53, PSET+4, PSET+5, PSET+6, KILSEC+5, SET7401+14, ANYDX+6
, ANYDX+8, ANYDX+9, ALERT+2, ALERT+5, ALERT+23
RAF1 MARKDEL+5~, SET7401+12*, SET7401+27
RAF2 MARKDEL+5~, KILSEC~, KILSEC+6, KILSEC+10, SET7401+13*, SET7401+15, SET7401+19, SET7401+29
RAF3 MARKDEL+5~, SET7401+19*, SET7401+21*, SET7401+29
RAFDA MARKDEL+3~, MARKDEL+12!, MARKDEL+27!, MARKDEL+55!, PSET+8!, SET7401+2!, SET7401+30!
RAFDA( MARKDEL+18*, MARKDEL+19*, MARKDEL+20*, MARKDEL+21*, MARKDEL+22*, MARKDEL+23*, MARKDEL+24*, MARKDEL+51*, MARKDEL+52*, MARKDEL+53*
PSET+4*, PSET+5*, PSET+6*, SET7401+27*
RAFDA(74 MARKDEL+10*
>> RAFIRST ALERT+22
>> RAFLD MARKDEL+41*
>> RAIEN MARKDEL+9, MARKDEL+10, MARKDEL+17, SET7401+25
RAIEN2 MARKDEL+3~, MARKDEL+32*, SET7401+25
RAIENDX MARKDEL+3~, SET7401+25*, SET7401+27
RAIENL MARKDEL+3~, MARKDEL+17*, MARKDEL+18, MARKDEL+19, MARKDEL+20, MARKDEL+21, MARKDEL+22, MARKDEL+23, MARKDEL+24
RAIENS MARKDEL+5~, KILSEC+5*, KILSEC+6, KILSEC+9, KILSEC+10, SET7401+14*, SET7401+15
RAMEMARR MARKDEL+4~, MARKDEL+45
RAMEMARR( PSET+2
RAMSG MARKDEL+4~, SET7401+2!, SET7401+30!
RAMSG("DIERR" MARKDEL+26, SET7401+29
>> RANY1 ALERT+8
>> RANY2 ALERT+8
RAOUT MARKDEL+4~
RAOUT(1 MARKDEL+31, MARKDEL+32
RAPRTSET MARKDEL+4~, MARKDEL+46
RAROOT KILSEC+3~, KILSEC+6*, KILSEC+7, SET7401+15*, SET7401+16
RASAVE MARKDEL+4~, MARKDEL+9*, MARKDEL+21, ALERT+3~
RASAVE("RACNI" ALERT+5*
RASAVE("RADFN" ALERT+5*
RASAVE("RADTI" ALERT+5*
>> RASUB MARKDEL+58*, PSET+9*
RAX MARKDEL+4~, SET7401+26*, SET7401+27, SET7401+29
RAY3 ALERT+3~, ALERT+23*, ALERT+24
U MARKDEL+9, MARKDEL+22, MARKDEL+23, MARKDEL+24, ANYDX+9, ALERT+16
X SET7401~, SET7401+12, SET7401+13, ALERT+3~, ALERT+24*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All