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

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

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

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*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RARTE7

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: