Routine: RAPURGE1

Package	Total	Call Graph
Radiology Nuclear Medicine	3	EN1^RAO7PURG $$ORVR^RAORDU (CLOSE,D)^RAUTL
VA Fileman	3	(C,NOW)^%DTC ^DIE ^DIK
Kernel	1	$$FMADD^XLFDT
Order Entry Results Reporting	1	ST^ORX

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RAO7PURG RAORR RAPURGE

Entry Points

Name	Comments	DBIA/ICR reference
STAT
EXAM	;Purge exam/report data
START
ENPUR	;OE/RR Entry Point for the PURGE ACTION Option
EXIT
DELORD(RAOIFN,RADFN)	; Delete all of the imaging order pointers that refer ; to a specific order. ; input: raoifn-ien of our order in file 75.1 ; radfn-ien of the patient associated with the order
PUROK(RAORD0,RATDAY)	; Determine if an order meets the criteria ; to be purged from the Rad/Nuc Med Orders file. ; Input: RAORD0-0 node of the order record from file 75.1 ; : RATDAY-the current date w/o time ; Output: 1 if the order meets the purge criteria, else 0
ORDER	;Purge order/request data

External References

Name	Field # of Occurrence
C^%DTC	START+5, START+6
NOW^%DTC	START+1, STAT
^DIE	STAT+1, DELORD+11
^DIK	ENPUR+19
ST^ORX	ENPUR+12, ENPUR+13
EN1^RAO7PURG	ENPUR+16
$$ORVR^RAORDU	ENPUR+1, ENPUR+11, ENPUR+16
CLOSE^RAUTL	EXIT+6
D^RAUTL	START+1, STAT
$$FMADD^XLFDT	PUROK+15, PUROK+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"RAPURTYP undefined or null, Purge Not Done." Line Location: START+0
Function Call: WRITE	Prompt: !!,"Purge data routine started at " Line Location: START+1
Function Call: WRITE	Prompt: Y,"." Line Location: START+1
Function Call: WRITE	Prompt: !!,"Purging exams/reports.",! Line Location: EXAM+2
Function Call: WRITE	Prompt: !,"Purging orders/requests.",! Line Location: ORDER+2
Function Call: WRITE	Prompt: !,"Data purge completed at " Line Location: STAT+0
Function Call: WRITE	Prompt: Y,".",!!,"The following purge statistics were compiled:" Line Location: STAT+0
Routine Call	DIE Line Location: STAT+1 DELORD+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.2 - [#79.2]	START+4, STAT+2
^RADPT - [#70]	EXAM+4, EXAM+12, EXAM+13, EXAM+14, EXAM+15, EXAM+16*
^RADPT("AO"	DELORD+5, DELORD+7
^RADPT("AR"	EXAM+3
^RAMIS(71 - [#71]	EXAM+5
^RAO(75.1 - [#75.1]	ORDER+3
^RARPT - [#74]	EXAM+6, EXAM+7, EXAM+8, EXAM+9, EXAM+10, EXAM+11*

Label References

Name	Line Occurrences
$$PUROK	ORDER+4
DELORD	ENPUR+7
ENPUR	ORDER+4
EXIT	START, START+3
ORDER	EXAM+1
STAT	ORDER+1

Naked Globals

Name	Field # of Occurrence
^(	EXAM+4
^("H"	EXAM+10!, EXAM+14!
^("L"	EXAM+9!, EXAM+13!
^("NOPURGE"	EXAM+4
^("PURGE"	EXAM+6
^("R"	EXAM+8!
^("T"	EXAM+15!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+1!, STAT!, ENPUR+15!, ENPUR+20!, DELORD+8!, DELORD+11!
%DT	EXIT!
%H	START+1!, STAT!
%I	START+1!, STAT!
%T	EXIT!
D	EXIT!, DELORD+8!, DELORD+11!
D0	EXIT!, DELORD+8!, DELORD+11!
D1	EXIT!
DA	STAT+1, EXIT!, ENPUR+15!, ENPUR+19, ENPUR+20!, DELORD+8!, DELORD+9*, DELORD+11!
DA(1	DELORD+9*, DELORD+10
DA(2	DELORD+9*, DELORD+10
DDER	EXIT!
DE	EXIT!
DI	EXIT!
DIC	EXIT!, ENPUR+15!, ENPUR+20!, DELORD+8!, DELORD+11!
DIE	STAT+1, EXIT!, DELORD+8!, DELORD+10, DELORD+11!
DIK	ENPUR+15!, ENPUR+19*, ENPUR+20!
DLAYGO	EXIT!
DQ	EXIT!, DELORD+8!, DELORD+11!
DR	STAT+1, EXIT!, DELORD+8!, DELORD+9, DELORD+11!
DR(2	STAT+1*
DT	START+5, START+6, EXAM+11, EXAM+16, ORDER+4
DUZ	STAT+1
IO	START, START+1
IOST	START+1
>> OREND	ENPUR+1*
ORIFN	ENPUR+12*!, ENPUR+13!
>> ORPK	ENPUR+1
ORSTS	ENPUR+1, ENPUR+12!, ENPUR+13!
POP	EXIT!
RA0	EXAM+4*, EXAM+5, EXIT!
RACN	EXAM+4*, EXIT!
RACNI	EXAM+4, EXAM+12, EXAM+13, EXAM+14, EXAM+15, EXAM+16, EXIT!, DELORD+4~, DELORD+6, DELORD+7* , DELORD+9
RACRT	START+1*, EXAM+5, EXIT+1!, ENPUR+9
RADFN	EXAM+3*, EXAM+4, EXAM+12, EXAM+13, EXAM+14, EXAM+15, EXAM+16, EXIT+1!, DELORD~, DELORD+5 , DELORD+7, DELORD+9
RADT	START+4, START+5, EXAM+3, EXIT+1!
RADTE	EXAM+3*, EXAM+8, EXAM+9, EXAM+10, EXAM+13, EXAM+14, EXAM+15, EXIT+1!
RADTI	EXAM+3, EXAM+4, EXAM+12, EXAM+13, EXAM+14, EXAM+15, EXAM+16, EXIT+1!, DELORD+4~, DELORD+5* , DELORD+7, DELORD+9
RAEX	EXAM+12!, EXAM+13, EXAM+14, EXAM+15*, EXAM+16, EXIT+1!
RAGO	EXIT+3!
RAI	START+5, START+7, EXIT+1!
RAIEN	START+4*, START+5, START+6, START+7, EXIT+1!
RAIMAG	EXAM+5, EXAM+8, EXAM+9, EXAM+10, EXAM+11, EXAM+13, EXAM+14, EXAM+15, EXAM+16, ORDER+3 , ORDER+4, EXIT+1!, ENPUR+9
RAODT	START+4, START+6, ORDER+3, EXIT+1!
RAODTE	ORDER+3*, EXIT+1!
RAOIFN	ORDER+3, EXIT+2!, ENPUR+1, ENPUR+7, ENPUR+16, ENPUR+19, DELORD~, DELORD+5, DELORD+7
>> RAORD	EXIT+4, ENPUR+16
RAORD0	ORDER+3*, ORDER+4, EXIT+2!, ENPUR+7, ENPUR+12, PUROK~, PUROK+5, PUROK+8, PUROK+9, PUROK+11 , PUROK+12, PUROK+15, PUROK+17
RAOSTAT	PUROK+5~*, PUROK+8, PUROK+9, PUROK+11, PUROK+12, PUROK+15, PUROK+17
RAPKG	ORDER+3*, EXIT+2!, ENPUR+1, ENPUR+8, ENPUR+12, ENPUR+13
RAPOP	EXIT+2!
RAPUR	EXIT+2!
RAPUR(	START+4, START+5, START+6, START+7, EXAM+5, EXAM+8, EXAM+9, EXAM+10, EXAM+11, EXAM+13 , EXAM+14, EXAM+15, EXAM+16, ORDER+4, STAT+1, STAT+3, STAT+4, STAT+5, ENPUR+9
RAPUR(0	START+3
RAPUROK	ORDER+4*, EXIT+4!
RAPURTYP	START, EXAM+1, EXAM+6, EXAM+12, ORDER+1, EXIT+3!
RAREPURG	EXAM+6, EXAM+12, EXIT+2!
RARP	EXAM+6!, EXAM+8, EXAM+9, EXAM+10*, EXAM+11, EXIT+2!
RARPT	EXAM+4*, EXAM+6, EXAM+7, EXAM+8, EXAM+9, EXAM+10, EXAM+11, EXIT+2!
RARPTNP	EXAM+6*, EXIT+2!
RATDAY	PUROK~, PUROK+8, PUROK+9, PUROK+11, PUROK+12, PUROK+15, PUROK+17
RAX	START+4, START+5, START+6, STAT+1!, STAT+2, STAT+3, STAT+4, STAT+5, EXIT+2!
U	START+5, START+6, STAT+1
X	START+5, START+6, EXIT+2!, DELORD+4~
X1	START+5, START+6, EXIT+4!
X2	START+5, START+6, EXIT+4!
Y	START+1, STAT, EXIT+4!, DELORD+4~

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPURGE1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: