RACOMDEL ;HIRMFO/GJC-Utility, remove duplicates in ^RAMIS(71.3 ;7/10/97 09:17
Source file <RACOMDEL.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| 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~ |