352.5 (107)    INDEX (.11)

Name Value
FILE 352.5
NAME AEFFDT
DESCRIPTION
This cross-reference on the CLINIC STOP CODE (#.01) field and the
EFFECTIVE DATE (#.02) field is used to locate the billable type
for a clinic stop code on a specific effective date.
SHORT DESCRIPTION This is a regular index on the clinic stop and effective date fields.
TYPE REGULAR
EXECUTION RECORD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE INDEX FILE
ROOT FILE 352.5
SET LOGIC S ^IBE(352.5,"AEFFDT",X(1),X(2),DA)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   352.5
    FIELD:   .01
    COLLATION:   forwards
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   352.5
    FIELD:   .02
    TRANSFORM FOR STORAGE:   S X=-X
    COLLATION:   forwards
KILL LOGIC K ^IBE(352.5,"AEFFDT",X(1),X(2),DA)
KILL ENTIRE INDEX CODE K ^IBE(352.5,"AEFFDT")