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 ; 17 Aug 2011 4:25 PM

Source Information

Source file <RARTE7.m>

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

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RARTE1  RARTE5  

Entry Points

Name Comments DBIA/ICR reference
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
PSET ;delete primary and secondary data
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
KILSEC(RAF2,RAC1) ;kill secondary data

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(78.3 - [#78.3] ALERT+15
^RADPT - [#70] MARKDEL+16, ANYDX+8, ANYDX+9, ALERT+22
^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+15

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+14*, ALERT+15
RA1 MARKDEL+3~, PSET+1*, PSET+2*, PSET+4, PSET+5, PSET+6, PSET+9, SET7401+30*, SET7401+32*
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+22*
RAA( KILSEC+12, SET7401+32
RAA(0 KILSEC+8, SET7401+23
>> RAA1( ALERT+11
>> RAA2( ALERT+11!, ALERT+14, ALERT+15
>> RAA2(0 ALERT+12
RAAB ALERT+13!, ALERT+15*, ALERT+21
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+22
>> 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+22
>> 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+22
RAF1 MARKDEL+5~, SET7401+12*, SET7401+33
RAF2 MARKDEL+5~, KILSEC~, KILSEC+6, KILSEC+10, SET7401+13*, SET7401+15, SET7401+25, SET7401+35
RAF3 MARKDEL+5~, SET7401+25*, SET7401+27*, SET7401+35
RAFDA MARKDEL+3~, MARKDEL+12!, MARKDEL+27!, MARKDEL+55!, PSET+8!, SET7401+2!, SET7401+36!
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+33*
RAFDA(74 MARKDEL+10*
>> RAFIRST ALERT+21
>> RAFLD MARKDEL+41*
>> RAIEN MARKDEL+9, MARKDEL+10, MARKDEL+17, SET7401+31
RAIEN2 MARKDEL+3~, MARKDEL+32*, SET7401+31
RAIENDX MARKDEL+3~, SET7401+31*, SET7401+33
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+36!
RAMSG("DIERR" MARKDEL+26, SET7401+35
>> 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+19, SET7401+22
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+32*, SET7401+33, SET7401+35
RAY3 ALERT+3~, ALERT+22*, ALERT+23
U MARKDEL+9, MARKDEL+22, MARKDEL+23, MARKDEL+24, ANYDX+9, ALERT+15
X SET7401~, SET7401+12, SET7401+13, ALERT+3~, ALERT+23*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All