Routine: RAPURGE

Information

RAPURGE ;HISC/CAH - AISC/MJK - Schedule Data Purge ;4/17/03 08:45

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
Radiology Nuclear Medicine	2	START^RAPURGE1 ZIS^RAUTL

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA PURGE

Name	Comments	DBIA/ICR reference
Q
ASKF	;ask final question
SCH	;Edit purge parameters and schedule Rad/Nuc Med data purge
REMIND	;
EDIT
PURGE
RECORD	; select which records to purge
QB

Name	Field # of Occurrence
^DIC	EDIT
^DIE	EDIT, PURGE+15
^DIR	SCH+4, PURGE+1, PURGE+8, PURGE+12, RECORD+5, ASKF+8
START^RAPURGE1	PURGE+18
ZIS^RAUTL	PURGE+17

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"No 'DUZ' code. Purging not allowed.",! Line Location: SCH+1
Function Call: WRITE	Prompt: !!,$C(7),"Not a valid 'DUZ' code. Purging not allowed.",! Line Location: SCH+2
Function Call: WRITE	Prompt: !?9,$P($T(REMIND+I),";;",2) Line Location: SCH+3
Function Call: WRITE	Prompt: !! Line Location: EDIT+0
Function Call: WRITE	Prompt: ! Line Location: PURGE+0
Function Call: WRITE	Prompt: !!?12,"IMAGING TYPES",!?12,"-------------",! Line Location: PURGE+5
Function Call: WRITE	Prompt: !?3,CNT,") ",I Line Location: PURGE+7
Function Call: WRITE	Prompt: ! Line Location: PURGE+8
Function Call: WRITE	Prompt: ! Line Location: PURGE+11
Function Call: WRITE	Prompt: ! Line Location: PURGE+17
Function Call: WRITE	Prompt: !,"--Nothing Done--" Line Location: QB+0
Function Call: WRITE	Prompt: !!,"You have chosen to purge ",$S(RAPURTYP="E":"Exam",RAPURTYP="R":"Report",RAPURTYP="B":"Exam & Report",1:"?")," records from " Line Location: ASKF+2
Function Call: WRITE	Prompt: " ",$P(^RA(79.2,I,0),U) Line Location: ASKF+4
Function Call: WRITE	Prompt: "," Condition for execution: $O(RAPUR(I)) Line Location: ASKF+4
Function Call: WRITE	Prompt: ! Line Location: ASKF+5
Routine Call	DIE Line Location: EDIT PURGE+15
Routine Call	DIC Line Location: EDIT
Routine Call	DIR Line Location: SCH+4 PURGE+1 PURGE+8 PURGE+12 RECORD+5 ASKF+8

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

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.2 - [#79.2]	PURGE+7, ASKF+4
^VA(200 - [#200]	SCH+2

Name	Field # of Occurrence
CNT	PURGE+4~, PURGE+7, PURGE+8
D0	Q!
D1	Q!
DA	EDIT, PURGE+15, PURGE+16!, Q!
DE	EDIT!, PURGE+16!
DIC	EDIT*!
DIC("A"	EDIT*
DIC(0	EDIT*
DIE	EDIT!, PURGE+15, PURGE+16!
DIE("NO^"	EDIT*
DIR	SCH+4!, PURGE+1!, PURGE+8!, PURGE+12!, RECORD+5!, ASKF+8!
DIR("?"	SCH+4, PURGE, PURGE+8, PURGE+11, RECORD+2, ASKF+7
DIR("A"	SCH+4, PURGE, PURGE+8, PURGE+11, RECORD+3, ASKF+6
DIR("B"	SCH+4, PURGE, PURGE+11, RECORD+4, ASKF+6*
DIR(0	SCH+4, PURGE, PURGE+8, PURGE+11, RECORD+1, ASKF+6
>> DIRUT	SCH+4, PURGE+1, PURGE+8, PURGE+12
DLAYGO	Q!
DQ	EDIT!, PURGE+16!
DR	EDIT!, PURGE+15, PURGE+16!
DR(2	PURGE+15*
DUZ	SCH+1, SCH+2, PURGE+15
I	SCH+3, PURGE+4~, PURGE+7, PURGE+10, ASKF+3, ASKF+4
J	PURGE+4~, PURGE+7, PURGE+10*
POP	Q!
RAGO	PURGE+14, Q!, ASKF+1, ASKF+9
RAMES	Q!
RAPOP	PURGE+17, Q!
RAPR	Q!
RAPUR	PURGE+4!, Q!
RAPUR(	PURGE+10*, PURGE+15, ASKF+4
RAPURTYP	Q!, RECORD+6*, ASKF+2
RAREPURG	PURGE+12*, Q!
RAX	PURGE+4~, PURGE+15!*
RAX(	PURGE+7*, PURGE+10
U	ASKF+4
X	Q!
Y	SCH+4, EDIT, PURGE+1, PURGE+10, PURGE+12, Q!, RECORD+6, ASKF+9
ZTDESC	PURGE+17*, Q!
ZTRTN	PURGE+17*, Q!
ZTSAVE	Q!
ZTSAVE("RAPUR*"	PURGE+17*
ZTSAVE("RAREPURG"	PURGE+17*

Name	Field # of Occurrence
$T(REMIND+I	SCH+3