Routine: RACOMDEL

Information

RACOMDEL ;HIRMFO/GJC-Utility, remove duplicates in ^RAMIS(71.3 ;7/10/97 09:17

Source file <RACOMDEL.m>

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIK

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAO7MFN

Name	Comments	DBIA/ICR reference
SET	; Set the ^TMP($J,"RA CMMN PROC") global. ; RAPROC=pntr to file 71, RAIEN=ien in file 71.3 ; RACTIV=Active flag: 1 for inactive, 0 for active
RESEQ	;Resequence the common procedure list for all imaging types
PURGE(DA)	; Delete duplicate common procedures saving the first ; occurrence of our common in question. Data is stored so that active ; common procedures will sort first. ; Input: DA-ien of entry in 71.3 to be deleted!
VERSION	;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
XIT	; Kill variables and quit
SAVE	; Save off all common procedure data when more than one occurrence.

Name	Line Occurrences (* Changed, ! Killed)
^RAMIS(71.3 - [#71.3]	VERSION+7, VERSION+9, SAVE+3, SAVE+4, SAVE+8, RESEQ+3, RESEQ+5, RESEQ+7
^TMP($J	VERSION+6!, VERSION+13, VERSION+15, VERSION+17, VERSION+19, XIT+1!, SET+3*

Name	Field # of Occurrence
%	PURGE+4!
D	RESEQ+1~
D0	RESEQ+1~
DA	PURGE~, RESEQ+1~, RESEQ+8*
DI	RESEQ+1~
DIC	PURGE+4!, RESEQ+1~
DIE	RESEQ+1~, RESEQ+2*
DIK	PURGE+4!*
DQ	RESEQ+1~
DR	RESEQ+1~, RESEQ+9*
RA1	VERSION+6!, VERSION+14, VERSION+15, VERSION+17, VERSION+19, XIT+1!
RA2	VERSION+6!, VERSION+16, VERSION+17, VERSION+19, XIT+1!
RA3	VERSION+6!, VERSION+18, VERSION+19, VERSION+20, XIT+1!
RA713	SAVE+1!, SAVE+4, SAVE+5, SAVE+8, SAVE+9, SAVE+10!
RACNT	VERSION+6!, VERSION+8, VERSION+10, VERSION+16, VERSION+20, XIT+1!, SAVE+2, RESEQ+1~, RESEQ+4, RESEQ+8
RACTIV	SAVE+1!, SAVE+5, SAVE+9, SAVE+10!, SET+3
RAI	RESEQ+1~, RESEQ+4, RESEQ+5, RESEQ+7
RAIEN	VERSION+6!, VERSION+8, VERSION+9, XIT+1!, SAVE+3~*, SAVE+4, SAVE+8, SET+3
RAIMGTYI	RESEQ+1~, RESEQ+2, RESEQ+3, RESEQ+5, RESEQ+7
RAJ	RESEQ+1~, RESEQ+6, RESEQ+7, RESEQ+8
RAPROC	VERSION+6!, VERSION+7, VERSION+9, XIT+1!, SAVE+3, SET+3
X	PURGE+4!, RESEQ+1~
Y	PURGE+4!, RESEQ+1~