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 |
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 |
Package | Total | Caller Graph |
---|---|---|
Radiology Nuclear Medicine | 1 | RAO7MFN |
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~ |