355.14 (987)    INDEX (.11)

Name Value
FILE 355.14
NAME AEDT
DESCRIPTION 
This index is used to find the part A and B percentages paid for a type 
the patient's MRA and the Group and Reason Codes for the patient's 
supplemental type of plan.
of plan based on the group and reason codes entered on the MRA.
This index uses computed code:
X(3):  Computed Code: S X=$P($G(^IBE(355.1,DA(3),14,DA(2),0)),U)
which sets X(3) = to the external value of the Group Code
and
X(4):  Computed Code: S X=$P($G(^IBE(355.1,DA(3),14,DA(2),1,DA(1),0)),U)
which sets X(4) = to the external value of the Reason Code.
This allows for an efficient match between the Group and Reason Codes on
SHORT DESCRIPTION Effective Date Index
TYPE MUMPS
EXECUTION RECORD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE WHOLE FILE
ROOT FILE 355.1411
SET LOGIC S ^IBE(355.1,DA(3),14,"AEDT",X(3),X(4),X(5))=X(1)_U_X(2)
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    TYPE OF VALUE:   FIELD
    FILE:   355.1411
    FIELD:   1
    COLLATION:   forwards
  • ORDER NUMBER:   2
    TYPE OF VALUE:   FIELD
    FILE:   355.1411
    FIELD:   2
    COLLATION:   forwards
  • ORDER NUMBER:   3
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$P($G(^IBE(355.1,DA(3),14,DA(2),0)),U)
  • ORDER NUMBER:   4
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$P($G(^IBE(355.1,DA(3),14,DA(2),1,DA(1),0)),U)
  • ORDER NUMBER:   5
    TYPE OF VALUE:   FIELD
    FILE:   355.1411
    FIELD:   .01
    COLLATION:   forwards
KILL LOGIC K ^IBE(355.1,DA(3),14,"AEDT",X(3),X(4),X(5))