798 (100)    INDEX (.11)

Name Value
FILE 798
NAME ADELETE
DESCRIPTION 
The "ADELETE" cross-reference is used to delete 
files.
the records of other files associated with the 
main registry record being deleted from the ROR
REGISTRY RECORD file (#798).
 
The cross-reference logic calls the DEL798^RORDD01
procedure, which tries to delete the corresponding
records from the ROR HIV RECORD (#799.4), ROR
PATIENT (#798.4) and ROR PATIENT EVENTS (#798.3)
SHORT DESCRIPTION Deletes the data associated with the registry record
TYPE MUMPS
EXECUTION FIELD
USE ACTION
ROOT TYPE INDEX FILE
ROOT FILE 798
SET LOGIC Q
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   798
    FIELD:   .01
    COLLATION:   forwards
KILL LOGIC D DEL798^RORDD01(DA,X1(1))
KILL CONDITION CODE S X=($G(X2(1))="")