RACOMDEL ;HIRMFO/GJC-Utility, remove duplicates in ^RAMIS(71.3 ;7/10/97 09:17
Source file <RACOMDEL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VERSION | ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
|
| XIT | ; Kill variables and quit
|
|
| 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! |
|
| SAVE | ; Save off all common procedure data when more than one occurrence.
|
|
| 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
|
| FileNo | Call Tags |
|---|---|
| ^RAMIS(71.3 - [#71.3] | Classic Fileman Calls |
