2.06 (195)    INDEX (.11)

Name Value
FILE 2.06
NAME AONLYONE
DESCRIPTION 
Cross reference deletes all entries in the multiple EXCEPT the one just
added.  This has the net affect of only allowing one entry to exist in the
multiple.
SHORT DESCRIPTION Only one entry allowed in multiple
TYPE MUMPS
EXECUTION FIELD
USE ACTION
ROOT TYPE INDEX FILE
ROOT FILE 2.06
SET LOGIC N DGFDA,DGMSG,DGD0,DGD1,DGLOOP S DGD0=DA(1),DGD1=DA S DGLOOP=0 F S DGLOOP=$O(^DPT(DGD0,.06,DGLOOP)) Q:'DGLOOP I DGLOOP'=DGD1 S DGFDA(2.06,DGLOOP_","_DGD0_",",.01)="@" D FILE^DIE("","DGFDA","DGMSG") K DGFDA,DGMSG
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   2.06
    FIELD:   .01
    COLLATION:   forwards
KILL LOGIC Q