361.1 (131)    INDEX (.11)

Name Value
FILE 361.1
NAME ABD
SHORT DESCRIPTION This xref provides an index by bill # and EOB date
TYPE REGULAR
EXECUTION RECORD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE INDEX FILE
ROOT FILE 361.1
SET LOGIC S ^IBM(361.1,"ABD",X2(1),X2(2),DA)=""
SET CONDITION CODE I X2(1)=""!(X2(2)="") S X=0
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   361.1
    FIELD:   .01
    COLLATION:   forwards
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   361.1
    FIELD:   .06
    COLLATION:   forwards
KILL LOGIC K ^IBM(361.1,"ABD",X1(1),X1(2),DA)
KILL CONDITION CODE I X1(1)=""!(X1(2)="") S X=0
KILL ENTIRE INDEX CODE K ^IBM(361.1,"ABD")