364.4 (138)    INDEX (.11)

Name Value
FILE 364.4
NAME AD
SHORT DESCRIPTION Sets the first level of xref to determine which edits are most general.
TYPE MUMPS
EXECUTION RECORD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE INDEX FILE
ROOT FILE 364.4
SET LOGIC S ^IBE(364.4,"AD",X2(1),X2(2),$S(X2(3)=3:X2(3),X2(6)=0:X2(3)#2+1,1:X2(3)),X2(4),DA)=+X2(5)
SET CONDITION CODE I X2(1)=""!(X2(2)="")!(X2(3)="")!(X2(4)="") S X=0
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   364.4
    FIELD:   .03
    COLLATION:   forwards
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   364.4
    FIELD:   .04
    COLLATION:   forwards
  • ORDER NUMBER:   3
    SUBSCRIPT NUMBER:   3
    TYPE OF VALUE:   FIELD
    FILE:   364.4
    FIELD:   .05
    COLLATION:   forwards
  • ORDER NUMBER:   4
    SUBSCRIPT NUMBER:   4
    TYPE OF VALUE:   FIELD
    FILE:   364.4
    FIELD:   .07
    COLLATION:   forwards
  • ORDER NUMBER:   5
    TYPE OF VALUE:   FIELD
    FILE:   364.4
    FIELD:   .06
    COLLATION:   forwards
  • ORDER NUMBER:   6
    TYPE OF VALUE:   FIELD
    FILE:   364.4
    FIELD:   .11
    COLLATION:   forwards
KILL LOGIC K ^IBE(364.4,"AD",X1(1),X1(2),$S(X1(3)=3:X1(3),X1(6)=0:X1(3)#2+1,1:X1(3)),X1(4),DA)
KILL CONDITION CODE I X1(1)=""!(X1(2)="")!(X1(3)="")!(X1(4)="") S X=0
KILL ENTIRE INDEX CODE K ^IBE(364.4,"AD")