| 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") |