Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call

Print Page as PDF

Routine: RAPURGE1

Package: Radiology Nuclear Medicine

Routine: RAPURGE1

Information

RAPURGE1 ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Purge Rad/NM Data ;9/3/97 12:22

Source Information

Source file <RAPURGE1.m>

Entry Points

Name	Comments	DBIA/ICR reference
START
EXAM	;Purge exam/report data
ORDER	;Purge order/request data
STAT
EXIT
ENPUR	;OE/RR Entry Point for the PURGE ACTION Option
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

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

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

Info | Source | Entry Points | Interaction Calls | FileMan Files Accessed Via FileMan Db Call