162.1 (70)    INDEX (.11)

Name Value
FILE 162.1
NAME AK
DESCRIPTION
The "AK" cross reference is a whole file compound cross reference on
 
The "AK" cross-reference should only exist when the BATCH NUMBER (#13)
field in subfile 162.11 contains data.
fields in the FEE BASIS PHARMACY INVOICE file and the PRESCRIPTION NUMBER
subfile. It is defined as
   ^FBAA(162.1,"AK",vendor,9999999-date_filled,patient,da(1),da)
 where vendor      is the VENDOR (#3) in file 162.1
       date_filled is the DATE PRESCRIPTION FILLED (#2) in subfile 162.11
       patient     is the PATIENT (4) in subfile 162.11
       da(1)       is the IEN of the FEE BASIS PHARMACY INVOICE
       da          is the IEN of the PRESCRIPTION NUMBER multiple
SHORT DESCRIPTION Index of RXs on invoice by vendor, date filled, and patient.
TYPE REGULAR
EXECUTION RECORD
ACTIVITY IR
USE SORTING ONLY
ROOT TYPE WHOLE FILE
ROOT FILE 162.11
SET LOGIC S ^FBAA(162.1,"AK",X(1),X(2),X(3),DA(1),DA)=""
SET CONDITION CODE S X=$S(X(4)]"":1,1:0)
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:   FIELD
    FILE:   162.11
    FIELD:   2
    TRANSFORM FOR STORAGE:   S X=9999999-X
    COLLATION:   forwards
  • ORDER NUMBER:   3
    SUBSCRIPT NUMBER:   3
    TYPE OF VALUE:   FIELD
    FILE:   162.11
    FIELD:   4
    COLLATION:   forwards
  • ORDER NUMBER:   4
    TYPE OF VALUE:   FIELD
    FILE:   162.11
    FIELD:   13
    COLLATION:   forwards
KILL LOGIC K ^FBAA(162.1,"AK",X(1),X(2),X(3),DA(1),DA)
KILL CONDITION CODE S X=$S(X(4)]"":1,1:0)
KILL ENTIRE INDEX CODE K ^FBAA(162.1,"AK")