162.1 (68)    INDEX (.11)

Name Value
FILE 162.1
NAME AG
DESCRIPTION
This cross-reference is used for date sort when printing suspense letters.
       da(1)        is the IEN of the FEE BASIS PHARMACY INVOICE entry
       da           is the IEN of the PRESCRIPTION NUMBER multiple
The "AG" cross-reference is a whole file compound cross reference on
fields in the FEE BASIS PHARMACY INVOICE file and the PRESCRIPTION NUMBER
subfile. It is defined as
   ^FBAA(162.1,"AG",vendor,entered_date,patient,suspend_code,da(1),da)
 where vendor       is the VENDOR (#3) in file 162.1
       entered_date is the DATE INVOICE ENTERED (#1.5) in file 162.1
       patient      is the PATIENT (#4) in subfile 162.11
       suspend_code is the SUSPEND CODE (#7) in subfile 162.11
SHORT DESCRIPTION Index of RXs on invoice by vendor, date entered, patient, and suspend code.
TYPE REGULAR
EXECUTION RECORD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE WHOLE FILE
ROOT FILE 162.11
SET LOGIC S ^FBAA(162.1,"AG",X(1),X(2),X(3),X(4),DA(1),DA)=""
CROSS-REFERENCE VALUES
  • ORDER NUMBER:   1
    SUBSCRIPT NUMBER:   1
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$P($G(^FBAA(162.1,DA(1),0)),U,4)
  • ORDER NUMBER:   2
    SUBSCRIPT NUMBER:   2
    TYPE OF VALUE:   COMPUTED VALUE
    COMPUTED CODE:   S X=$P($G(^FBAA(162.1,DA(1),0)),U,8)
  • ORDER NUMBER:   3
    SUBSCRIPT NUMBER:   3
    TYPE OF VALUE:   FIELD
    FILE:   162.11
    FIELD:   4
    COLLATION:   forwards
  • ORDER NUMBER:   4
    SUBSCRIPT NUMBER:   4
    TYPE OF VALUE:   FIELD
    FILE:   162.11
    FIELD:   7
    COLLATION:   forwards
KILL LOGIC K ^FBAA(162.1,"AG",X(1),X(2),X(3),X(4),DA(1),DA)
KILL ENTIRE INDEX CODE K ^FBAA(162.1,"AG")