STANDARD DATA DICTIONARY #162.1 -- FEE BASIS PHARMACY INVOICE FILE 9/29/25 PAGE 1
STORED IN ^FBAA(162.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains Pharmacy invoices and payment data associated with hometown pharmacy payments.
Per VHA Directive 10-93-142, this file definition should not be modified.
DD ACCESS: @
RD ACCESS: #
WR ACCESS: #
DEL ACCESS: #
LAYGO ACCESS: #
CROSS
REFERENCED BY: INVOICE STATUS(AC), CHECK NUMBER(ACK), PATIENT(AD), BATCH NUMBER(AE), OLD BATCH NUMBER(AF),
GENERIC DRUG ONLY STATUS(AH), ADJUSTMENT REASON(AI), VENDOR(AN), ASSOCIATED 7078/583(AO), NUMBER(B),
DoD INVOICE NUMBER(DODI), IPAC VENDOR AGREEMENT(IPAC)
INDEXED BY: DATE CERTIFIED FOR PAYMENT & PATIENT (AA), FPPS CLAIM ID (AFC), PATIENT & SUSPEND CODE (AG), BATCH NUMBER & PATIENT
(AJ), DATE PRESCRIPTION FILLED & PATIENT & BATCH NUMBER (AK)
LAST MODIFIED: JAN 30,2018@14:48:55
162.1,.01 NUMBER 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N)!('$$CHKBI^FBAAUTL4(X)) X S:$D(X) DINUM=X
LAST EDITED: JUL 22, 1994
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999
DESCRIPTION:
This is an autogenerated number by the FEE system used to enter payments for a provider.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 162.1^B
1)= S ^FBAA(162.1,"B",$E(X,1,30),DA)=""
2)= K ^FBAA(162.1,"B",$E(X,1,30),DA)
162.1,1 DATE CORRECT INVOICE RECV'D 0;2 DATE (Required)
INPUT TRANSFORM: S %DT="EX",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: NOV 04, 1990
DESCRIPTION:
This is the date FEE service receives the correct invoice from the pharmacy provider.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
162.1,1.5 DATE INVOICE ENTERED 0;8 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 29, 1986
DESCRIPTION:
This is the date the data entry clerk begins to enter in the invoice from the pharmacy provider.
162.1,2 DATA ENTRY CLERK 0;3 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: APR 05, 1990
DESCRIPTION:
This is the Fee employee who enters the invoice into DHCP from the pharmacy provider.
162.1,3 VENDOR 0;4 POINTER TO FEE BASIS VENDOR FILE (#161.2) (Required)
LAST EDITED: SEP 01, 1992
DESCRIPTION:
This is the name of the pharmacy provider whose invoice is being entered for payment.
CROSS-REFERENCE: 162.1^AN
1)= S ^FBAA(162.1,"AN",$E(X,1,30),DA)=""
2)= K ^FBAA(162.1,"AN",$E(X,1,30),DA)
Used to sort by vendor.
162.1,3.1 CHAIN STORE ; COMPUTED
MUMPS CODE: X ^DD(162.1,3.1,9.2) S Y(162.1,3.1,101)=$S($D(^FBAAV(D0,0)):^(0),1:"") S X=$P(Y(162.1,3.1,101),U,10
) S D0=Y(162.1,3.1,80)
9.2 = S Y(162.1,3.1,80)=$S($D(D0):D0,1:""),Y(162.1,3.1,1)=$S($D(^FBAA(162.1,D0,0)):^(0),1:""),D0=$P
(Y(162.1,3.1,1),U,4) S:'$D(^FBAAV(+D0,0)) D0=-1
ALGORITHM: VENDOR:CHAIN
DESCRIPTION: This is a four digit number that is assigned by chain stores to differentiate one store in the
chain from another.
162.1,4 PRESCRIPTION NUMBER RX;0 Multiple #162.11
DESCRIPTION:
This multiple allows the user to enter all prescriptions included on a pharmacy invoice.
162.11,.01 PRESCRIPTION NUMBER 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!($F(X," "))!(X?1P.E) X
LAST EDITED: OCT 17, 2000
HELP-PROMPT: ANSWER MUST BE 1-8 CHARACTERS IN LENGTH AND NOT CONTAIN BLANKS OR LEADING PUNCTUATION.
DESCRIPTION:
This is a reference number assigned by a pharmacy provider for a prescription.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 162.11^AB
1)= S ^FBAA(162.1,DA(1),"RX","AB",$E(X,1,30),DA)=""
2)= K ^FBAA(162.1,DA(1),"RX","AB",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^162.1^8
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I '$D(FBAAOUT) I X S X=DIV S Y(1)=$S($D(^FBAA(1
62.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DIU+1 X ^DD(162.11,.01,1,2,1.4)
1.4)= S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=162.1,DIG=8 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^FBAA(162.1,D0,0)):^(0),1:"") S X=$P(Y(1),U
,9),X=X S DIU=X K Y S X=DIV S X=DIU-1 S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=
162.1,DIG=8 D ^DICR
CREATE CONDITION)= I '$D(FBAAOUT)
CREATE VALUE)= TOTAL LINE COUNT+1
DELETE VALUE)= TOTAL LINE COUNT-1
DIC)=
FIELD)= TOTAL LINE COUNT
Trigger to maintain the total line count for the invoice.
CROSS-REFERENCE:162.11^B
1)= S ^FBAA(162.1,DA(1),"RX","B",$E(X,1,30),DA)=""
2)= K ^FBAA(162.1,DA(1),"RX","B",$E(X,1,30),DA)
CROSS-REFERENCE:162.11^AM^MUMPS
1)= I $D(^FBAA(162.1,DA(1),0)),$P(^(0),U,4)]"",$D(^FBAA(162.1,DA(1),"RX",DA,0)),$P(^(0),U,3)]"" S ^
FBAA(162.1,"AL",$P(^FBAA(162.1,DA(1),0),U,4),$E(X,1,30),$P(^FBAA(162.1,DA(1),"RX",DA,0),U,3),DA(1),
DA)=""
2)= I $D(^FBAA(162.1,DA(1),0)),$P(^(0),U,4)]"",$D(^FBAA(162.1,DA(1),"RX",DA,0)),$P(^(0),U,3)]"" K ^
FBAA(162.1,"AL",$P(^FBAA(162.1,DA(1),0),U,4),$E(X,1,30),$P(^FBAA(162.1,DA(1),"RX",DA,0),U,3),DA(1),
DA)
Updates the AL X-Ref on field 2 if there is a change to the prescription number.
162.11,1 DRUG NAME 0;2 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>45!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-45 CHARACTERS IN LENGTH
DESCRIPTION:
This is the name of the medication that was dispensed to the patient by the FEE provider.
162.11,1.4 MANUFACTURER 2;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAY 05, 1987
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the name of the company whose drug was dispensed to the patient.
162.11,1.5 STRENGTH 0;12 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<2) X
LAST EDITED: FEB 25, 1987
HELP-PROMPT: ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the labeled strength of the medication dispensed to the patient.
162.11,1.6 QUANTITY 0;13 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>15!($L(X)<1) X
LAST EDITED: FEB 25, 1987
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
DESCRIPTION:
This is the total number of units dispensed to the patient.
162.11,2 DATE PRESCRIPTION FILLED 0;3 DATE (Required)
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 24, 2000
DESCRIPTION:
This is the date the provider has filled the prescription for dispensing to the patient.
CROSS-REFERENCE:162.11^AL^MUMPS
1)= I $D(^FBAA(162.1,DA(1),0)),$P(^(0),U,4)]"" S ^FBAA(162.1,"AL",$P(^FBAA(162.1,DA(1),0),U,4),$P(^
FBAA(162.1,DA(1),"RX",DA,0),U,1),$E(X,1,30),DA(1),DA)=""
2)= I $D(^FBAA(162.1,DA(1),0)),$P(^(0),U,4)]"" K ^FBAA(162.1,"AL",$P(^FBAA(162.1,DA(1),0),U,4),$P(^
FBAA(162.1,DA(1),"RX",DA,0),U,1),$E(X,1,30),DA(1),DA)
X-Referenced to identify the Prescription number and date RX filled.
RECORD INDEXES: AK (#70) (WHOLE FILE #162.1)
162.11,3 AMOUNT CLAIMED 0;4 NUMBER (Required)
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<.01) X
LAST EDITED: OCT 17, 2000
HELP-PROMPT: Type a Dollar Amount between .01 and 9999.99, 2 Decimal Digits
DESCRIPTION:
This is the dollar amount claimed by the FEE provider for the prescription supplied to the patient.
CROSS-REFERENCE:^^TRIGGER^162.1^6
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I '$D(FBAAOUT) I X S X=DIV S Y(1)=$S($D(^FBAA(1
62.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(162.11,3,1,1,1.4)
1.4)= S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=162.1,DIG=6 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I '$D(FBAAOUT) I X S X=DIV S Y(1)=$S($D(^FBAA(1
62.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(162.11,3,1,1,2.4)
2.4)= S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=162.1,DIG=6 D ^DICR
CREATE CONDITION)= I '$D(FBAAOUT)
CREATE VALUE)= TOTAL AMOUNT CLAIMED+AMOUNT CLAIMED
DELETE CONDITION)= I '$D(FBAAOUT)
DELETE VALUE)= TOTAL AMOUNT CLAIMED-OLD AMOUNT CLAIMED
DIC)=
FIELD)= TOTAL AMOUNT CLAIMED
Trigger to maintain the total amount claimed for the invoice.
162.11,4 PATIENT 0;5 POINTER TO FEE BASIS PATIENT FILE (#161) (Required)
LAST EDITED: OCT 24, 2000
DESCRIPTION: This is the name of the patient whose prescription/s are being submitted by the FEE provider for
payment.
CROSS-REFERENCE:162.11^C
1)= S ^FBAA(162.1,DA(1),"RX","C",$E(X,1,30),DA)=""
2)= K ^FBAA(162.1,DA(1),"RX","C",$E(X,1,30),DA)
CROSS-REFERENCE:162.1^AD^MUMPS
1)= S ^FBAA(162.1,"AD",$E(X,1,30),9999999-$P(^FBAA(162.1,DA(1),"RX",DA,0),U,3),DA(1),DA)=""
2)= K ^FBAA(162.1,"AD",$E(X,1,30),9999999-$P(^FBAA(162.1,DA(1),"RX",DA,0),U,3),DA(1),DA)
RECORD INDEXES: AA (#67) (WHOLE FILE #162.1), AG (#68) (WHOLE FILE #162.1), AJ (#69) (WHOLE FILE #162.1), AK (#70)
(WHOLE FILE #162.1)
162.11,5 RED BOOK COST 0;6 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
LAST EDITED: AUG 31, 1993
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
This is the cost of the generic drug dispensed to the patient as listed in the 'RED BOOK'.
162.11,6 AMOUNT SUSPENDED 0;7 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
LAST EDITED: FEB 16, 1988
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION: This is the difference between the amount claimed by the FEE provider and the amount paid by the
VA.
162.11,6.5 AMOUNT PAID 0;16 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
LAST EDITED: OCT 17, 2000
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION: This field is either the amount claimed by the FEE provider or the sum of RED BOOK cost and the
professional dispensing fee - whichever is less.
CROSS-REFERENCE:^^TRIGGER^162.1^7
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I '$D(FBAAOUT) I X S X=DIV S Y(1)=$S($D(^FBAA(1
62.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(162.11,6.5,1,1,1.
4)
1.4)= S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=162.1,DIG=7 D ^DICR
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I '$D(FBAAOUT) I X S X=DIV S Y(1)=$S($D(^FBAA(1
62.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(162.11,6.5,1,1,2.4)
2.4)= S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=162.1,DIG=7 D ^DICR
CREATE CONDITION)= I '$D(FBAAOUT)
CREATE VALUE)= TOTAL AMOUNT PAID+AMOUNT PAID
DELETE CONDITION)= I '$D(FBAAOUT)
DELETE VALUE)= TOTAL AMOUNT PAID-OLD AMOUNT PAID
DIC)=
FIELD)= TOTAL AMOUNT PAID
Trigger to maintain the total amount paid for the invoice.
162.11,7 SUSPEND CODE 0;8 POINTER TO FEE BASIS SUSPENSION FILE (#161.27)
LAST EDITED: OCT 24, 2000
DESCRIPTION: This is the explanation why the amount claimed by the FEE provider is not the same as the amount
paid.These codes are listed in M-1,Part I,Chapter 18,Appendix A for reference.
RECORD INDEXES: AG (#68) (WHOLE FILE #162.1)
162.11,8 LINE ITEM STATUS 0;9 SET (Required)
'1' FOR PENDING PHARMACY DETERMINATION;
'2' FOR PENDING MAS COMPLETION;
'3' FOR PENDING PAYMENT PROCESS;
'4' FOR COMPLETED;
'0' FOR COMPLETED, WILL NOT PAY;
LAST EDITED: MAY 15, 1986
DESCRIPTION:
This tells the current status of review of this line item within the invoice.
CROSS-REFERENCE:162.11^AC
1)= S ^FBAA(162.1,DA(1),"RX","AC",$E(X,1,30),DA)=""
2)= K ^FBAA(162.1,DA(1),"RX","AC",$E(X,1,30),DA)
162.11,8.5 SUBSTITUTE GENERIC DRUG 0;21 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: APR 20, 2005
DESCRIPTION:
This field shows if a generic drug was or could have been dispensed to the patient.
162.11,9 GENERIC DRUG 0;10 POINTER TO DRUG FILE (#50) (Required)
LAST EDITED: DEC 09, 1986
DESCRIPTION: This is the name of the generic equivalent found in the VA drug file that was dispensed to the
patient.
162.11,10 PHARMACY DETERMINATION 0;11 SET
'1' FOR APPROVED FOR PAYMENT;
'0' FOR DISAPPROVED FOR PAYMENT;
LAST EDITED: MAR 27, 1986
DESCRIPTION: This is a professional determination by the VA pharmacist to determine if the medication dispensed
was for an authorized condition and whether or not the drug is on the 'inactive drug list' .
162.11,11 PHARMACIST 0;14 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 05, 1990
DESCRIPTION:
This is the name of the VA pharmacist who reviewed the patient's prescriptions for appropriateness.
162.11,12 DATE OF DETERMINATION 0;15 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 10, 1986
DESCRIPTION:
This is the date the VA pharmacist reviewed the prescriptions for appropriateness of payment.
162.11,13 BATCH NUMBER 0;17 POINTER TO FEE BASIS BATCH FILE (#161.7) (Required)
LAST EDITED: OCT 24, 2000
DESCRIPTION:
This is the Batch number associated with this line item for payment.
CROSS-REFERENCE:162.1^AE
1)= S ^FBAA(162.1,"AE",$E(X,1,30),DA(1),DA)=""
2)= K ^FBAA(162.1,"AE",$E(X,1,30),DA(1),DA)
RECORD INDEXES: AJ (#69) (WHOLE FILE #162.1), AK (#70) (WHOLE FILE #162.1)
162.11,14 OBLIGATION NUMBER 0;18 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>6!($L(X)<6) X D:$D(X) CKOB^FBAAUTL1
LAST EDITED: APR 12, 1990
HELP-PROMPT: ANSWER MUST BE 6 CHARACTERS IN LENGTH
DESCRIPTION:
This is the account from which the money is taken to pay the line item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
162.11,15 DATE CERTIFIED FOR PAYMENT 0;19 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 31, 2000
DESCRIPTION:
This is the date that the line item has been approved, by FEE, for payment.
CROSS-REFERENCE:162.11^AI^MUMPS
1)= I $D(^FBAA(162.1,DA(1),"RX",DA,0)),$P(^(0),U,17)]"",$D(^(2)),$P(^(2),U,5)]"" S ^FBAA(162.1,"AI"
,$P(^FBAA(162.1,DA(1),"RX",DA,2),U,5),9999999-$E(X,1,30),DA(1),DA)=""
2)= I $D(^FBAA(162.1,DA(1),"RX",DA,0)),$P(^(0),U,17)]"",$D(^(2)),$P(^(2),U,5) K ^FBAA(162.1,"AI",$P
(^FBAA(162.1,DA(1),"RX",DA,2),U,5),9999999-$E(X,1,30),DA(1),DA)
RECORD INDEXES: AA (#67) (WHOLE FILE #162.1)
162.11,16 PAYMENT TYPE CODE 0;20 SET
'V' FOR VENDOR;
'R' FOR REIMBURSEMENT;
'S' FOR STATISTICAL;
'SR' FOR STAT-REIMBURSEMENT;
LAST EDITED: SEP 26, 1994
DESCRIPTION: This field represents what type of payment this line item is. The choices are payment to a Vendor,
patient Reimbursement or paid 'out-of-system' for Statistical and stat reimbursement reporting.
162.11,17 REJECT STATUS FBREJ;1 SET
'P' FOR REJECTED, PENDING;
'C' FOR REJECTED, COMPLETED;
LAST EDITED: AUG 11, 1986
DESCRIPTION: This field represents the status of the Rejected line item in the invoice. It would either be
Pending or Completed.
162.11,18 REJECT REASON FBREJ;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>40!($L(X)<2) X
LAST EDITED: AUG 11, 1986
HELP-PROMPT: ANSWER MUST BE 2-40 CHARACTERS IN LENGTH
DESCRIPTION:
This is a free text field that allows comment on why Fee rejected this line item payment.
162.11,19 OLD BATCH NUMBER FBREJ;3 POINTER TO FEE BASIS BATCH FILE (#161.7)
LAST EDITED: AUG 11, 1986
DESCRIPTION: When a line item was rejected then assigned to a new batch this field stores the old batch number
it belonged to.
CROSS-REFERENCE:162.1^AF
1)= S ^FBAA(162.1,"AF",$E(X,1,30),DA(1),DA)=""
2)= K ^FBAA(162.1,"AF",$E(X,1,30),DA(1),DA)
162.11,19.3 INTERFACE REJECT FBREJ;4 SET
'1' FOR YES;
LAST EDITED: DEC 12, 2011
HELP-PROMPT: Enter YES if the line item was rejected by Central Fee.
DESCRIPTION: This field is populated by the FBAA BATCH SERVER and FBAA REJECT SERVER server options when a
payment line item is rejected via the interface with Central Fee. This field is used to
distinguish line items that were locally rejected from those that were rejected by a downstream
system. This field is not populated for a local reject.
162.11,19.6 REJECT CODE FBREJC;0 Multiple #162.111
DESCRIPTION: The REJECT CODE multiple is populated with one to four reject codes by the FBAA BATCH SERVER and
FBAA REJECT SERVER server options when a line item is rejected via the interface with Central Fee.
The REJECT CODE multiple is not used for local rejects. The reason for a local reject is entered
into the REJECT REASON (#18) field.
162.111,.01 REJECT CODE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>4!($L(X)<1) X
LAST EDITED: FEB 01, 2012
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: The REJECT CODE field is populated by the FBAA BATCH SERVER and FBAA REJECT SERVER server options
when a line item is rejected via the interface with Central Fee. The REJECT CODE field is not
used for local rejects. The reason for a local reject is entered into the REJECT REASON (#18)
field.
TECHNICAL DESCR:Values stored in the REJECT CODE field are normally expected to have a matching entry in the FEE
BASIS PAYMENT REJECT CODE (#161.99) file. The FEE BASIS PAYMENT REJECT CODE file contains a list
of reject codes and their descriptions.
However it is possible that a new reject code will be transmitted to VistA by Central Fee and
stored in the REJECT CODE field before the FEE BASIS PAYMENT REJECT CODE file is updated with
that new code. In this case outputs that display the description of a code will display text
similar to "Reject reason code not currently defined in list."
CROSS-REFERENCE:162.111^B
1)= S ^FBAA(162.1,DA(2),"RX",DA(1),"FBREJC","B",$E(X,1,30),DA)=""
2)= K ^FBAA(162.1,DA(2),"RX",DA(1),"FBREJC","B",$E(X,1,30),DA)
162.11,20 SUSPENSION DESCRIPTION 1;0 WORD-PROCESSING #162.12
DESCRIPTION: This field allows the entry of a description of why the amount claimed for a prescription is not
the same as the amount paid .
LAST EDITED: OCT 23, 1986
DESCRIPTION: This allows the entry of a description of why the amount claimed for the line item does not
match the amount paid.
162.11,21 GENERIC DRUG ONLY STATUS 2;1 SET
'P' FOR PENDING;
LAST EDITED: DEC 09, 1986
DESCRIPTION: This field reflects whether or not pharmacy has made the match with the drug dispensed in the
VA Drug File.
CROSS-REFERENCE:162.1^AH
1)= S ^FBAA(162.1,"AH",$E(X,1,30),DA(1),DA)=""
2)= K ^FBAA(162.1,"AH",$E(X,1,30),DA(1),DA)
162.11,22 PHARMACY REMARKS 0;22 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: FEB 25, 1987
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION: This allows pharmacy service to enter in remarks on their decision for payment of the
prescription.
162.11,23 VOID PAYMENT 2;3 SET
'V' FOR VOID;
LAST EDITED: MAR 31, 1988
DESCRIPTION:
This field shows if a Fee supervisor voided this payment after the invoice had been completed.
162.11,23.5 REASON FOR VOIDED PAYMENT R;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>75!($L(X)<3) X
LAST EDITED: AUG 31, 1992
HELP-PROMPT: Answer must be 3-75 characters in length.
DESCRIPTION:
This field is used by the supervisor to enter a reason why a payment had to be voided.
162.11,24 SUPERVISOR 2;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 05, 1990
DESCRIPTION:
This field stores the supervisor who voided a payment.
162.11,25 PRIMARY SERVICE FACILITY 2;5 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: APR 19, 1990
DESCRIPTION:
The VA Hospital responsible for the veterans care.
162.11,26 ASSOCIATED 7078/583 2;6 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
162.4 1 FB7078 n Select associated 7078
162.7 2 FB583 n Select associated 583
LAST EDITED: JAN 11, 1993
DESCRIPTION:
This field contains the related 7078 or 583 if an unauthorized claim.
CROSS-REFERENCE:162.1^AO
1)= S ^FBAA(162.1,"AO",$E(X,1,30),DA(1),DA)=""
2)= K ^FBAA(162.1,"AO",$E(X,1,30),DA(1),DA)
162.11,27 AUTHORIZATION POINTER 2;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 03, 1992
HELP-PROMPT: Type a Number between 1 and 9999999, 0 Decimal Digits
DESCRIPTION: This field is set internally to the patient's authorization in the Fee Basis Patient file. It
is used to display only the authorization associated with the prescription to the pharmacist
during their review.
162.11,28 DATE PAID 2;8 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 16, 1994
HELP-PROMPT: This is the date of the check, as issued by the treasury.
DESCRIPTION: This is the date of the check, as issued by the treasury. This information will be passed back
to DHCP from the Financial Management System (FMS) when the check is issued to the vendor.
This field will use the check date beginning with version 3.5 of Fee Basis.
162.11,29 PROMPT PAY TYPE 2;9 SET
'1' FOR MONEY MANAGED;
LAST EDITED: MAR 18, 1994
HELP-PROMPT: Set equal to 1 if payment is subject to interest payments.
DESCRIPTION: Field is set to 1 if the payment is subject to interest payments (prompt pay). Otherwise it
remains blank.
162.11,30 CHECK NUMBER 2;10 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?.AN) X
LAST EDITED: APR 25, 1994
HELP-PROMPT: Answer must be 1-8 characters in length.
DESCRIPTION: Contains the check number as issued by the treasury. This field is updated after the check is
issued, through a server option that records actual payment information for each Fee payment
made.
CROSS-REFERENCE:162.1^ACK^MUMPS
1)= S ^FBAA(162.1,"ACK",X,DA(1),DA)=""
2)= K ^FBAA(162.1,"ACK",X,DA(1),DA)
This cross-reference is used to find payment line items for a specific check number.
162.11,31 CANCELLATION DATE 2;11 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 16, 1994
HELP-PROMPT: The date the check was cancelled by the treasury.
DESCRIPTION: This is the date the treasury cancelled the check. This field is updated through a server
option that records cancellations of previously recorded payment data.
162.11,32 REASON CODE 2;12 POINTER TO FEE BASIS CHECK CANCELLATION REASON FILE (#162.95)
LAST EDITED: MAR 16, 1994
HELP-PROMPT: Enter the reason the check was cancelled.
DESCRIPTION: This field contains a pointer to the Fee Basis Check Cancellation Reason file. It is populated
through a server option that updates the payment record when the treasury cancels a check that
was previously payed.
162.11,33 CANCELLATION ACTIVITY 2;13 SET
'R' FOR WILL BE REPLACED;
'C' FOR WILL BE REISSUED;
'X' FOR WILL NOT BE REISSUED;
LAST EDITED: APR 26, 1994
HELP-PROMPT: Field will contain cancellation code if there has been cancellation activity on this payment.
DESCRIPTION: This field is populated when a cancellation is recorded for the payment referenced. This field
will always remain populated, to indicate that there was cancellation activity on this payment
at one time. New payments will replace the cancellation date and reason code fields, but the
cancellation activity flag will not be overwritten. This flag will allow the user to know that
previous cancellation activity existed, and to review the cancellation history output for
further information.
162.11,34 DISBURSED AMOUNT 2;14 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
LAST EDITED: APR 21, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
DESCRIPTION:
This is the dollar amount paid by the treasury, less any interest paid.
162.11,35 INTEREST AMOUNT 2;15 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
LAST EDITED: APR 21, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
DESCRIPTION:
The interest amount paid on this line item by the treasury.
162.11,36 FPPS LINE ITEM 3;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>40!($L(X)<1) X
LAST EDITED: JUN 17, 2003
HELP-PROMPT: This response must be a number or a list or range, e.g., 1,3,5 or 2-4,8.
DESCRIPTION: Enter the line item sequence number associated with this charge. Each charge on the FPPS
invoice document will have a line item sequence number associated with it. A line item can be
entered individually or a group of charges from multiple lines can be entered. If all line
items in a group are in numerical sequence, you may enter the first line item sequence number
followed by a hyphen and the last line item sequence number. If the grouped charges are not in
sequential order, each line item must be entered individually, followed by a comma.
162.11,37 ADJUSTMENT 4;0 POINTER Multiple #162.14
162.14,.01 ADJUSTMENT REASON 0;1 POINTER TO ADJUSTMENT REASON FILE (#161.91) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P($$AR^FBUTL1(Y),U,4)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 26, 2015
HELP-PROMPT: Select a HIPAA Adjustment (suspense) Reason Code.
DESCRIPTION:
Adjustment reason codes explain why the amount paid differs from the amount claimed.
SCREEN: S DIC("S")="I $P($$AR^FBUTL1(Y),U,4)=1"
EXPLANATION: Only adjustment reasons that are applicable for Fee use can be selected.
CROSS-REFERENCE:162.14^B
1)= S ^FBAA(162.1,DA(2),"RX",DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^FBAA(162.1,DA(2),"RX",DA(1),4,"B",$E(X,1,30),DA)
CROSS-REFERENCE:162.1^AI^MUMPS
1)= Q
2)= D KILLRR^FBRXFR(X,.DA)
Deletes remittance remarks associated with the adjustment reason when the reason is deleted.
162.14,1 ADJUSTMENT GROUP 0;2 POINTER TO ADJUSTMENT GROUP FILE (#161.92)
INPUT TRANSFORM:S DIC("S")="I $P($$AG^FBUTL1(Y),U,4)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 18, 2003
HELP-PROMPT: Select a HIPAA Adjustment Group Code.
DESCRIPTION:
The Adjustment Group Code pertains to the previously entered adjustment reason code.
SCREEN: S DIC("S")="I $P($$AG^FBUTL1(Y),U,4)=1"
EXPLANATION: Only adjustment groups that are applicable for Fee use can be selected.
162.14,2 ADJUSTMENT AMOUNT 0;3 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<.01) X
LAST EDITED: JUN 17, 2003
HELP-PROMPT: Type a Dollar Amount between .01 and 999999, 2 Decimal Digits
DESCRIPTION:
Enter the dollar amount that is not being paid for this charge per the adjustment reason.
162.11,38 REMITTANCE REMARK 5;0 POINTER Multiple #162.15
162.15,.01 REMITTANCE REMARK 0;1 POINTER TO REMITTANCE REMARK FILE (#161.93) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P($$RR^FBUTL1(Y),U,4)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 18, 2003
HELP-PROMPT: Select a HIPAA Remittance Remark Code.
DESCRIPTION: Select a remittance remark code to provide non-financial information critical to
understanding the adjudication of the claim.
SCREEN: S DIC("S")="I $P($$RR^FBUTL1(Y),U,4)=1"
EXPLANATION: Only remittance remarks that are applicable for Fee use can be selected.
CROSS-REFERENCE:162.15^B
1)= S ^FBAA(162.1,DA(2),"RX",DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^FBAA(162.1,DA(2),"RX",DA(1),5,"B",$E(X,1,30),DA)
162.15,1 ADJUSTMENT 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 17, 2015
HELP-PROMPT: Type a number between 0 and 999, 0 decimal digits.
DESCRIPTION: For Internal use only. Used to associate a remittance remark entry with an adjustment
reason within the ADJUSTMENT Multiple. The value entered into the ADJUSTMENT field is the
DA of the adjustment reason entry.
162.11,39 DoD INVOICE NUMBER 6;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>22!($L(X)<3) X
LAST EDITED: JAN 30, 2014
HELP-PROMPT: Answer must be 3-22 characters in length.
DESCRIPTION: This is the DoD invoice number that is found in box 3a on the UB04 form or box 26 on the
CMS 1500 form.
CROSS-REFERENCE:162.1^DODI
1)= S ^FBAA(162.1,"DODI",$E(X,1,30),DA(1),DA)=""
2)= K ^FBAA(162.1,"DODI",$E(X,1,30),DA(1),DA)
This is the DoD invoice number cross reference
162.11,40 AUTHORIZATION NUMBER 3;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAY 27, 2015
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This field holds the authorization numbers transmitted from FBCS.
162.1,5 INVOICE STATUS 0;5 SET (Required)
'1' FOR PENDING PHARMACY DETERMINATION;
'2' FOR PENDING MAS COMPLETION;
'3' FOR PENDING PAYMENT PROCESS;
'4' FOR COMPLETED;
LAST EDITED: MAR 31, 1986
DESCRIPTION:
This field shows the current status of the invoice in the payment process.
CROSS-REFERENCE: 162.1^AC
1)= S ^FBAA(162.1,"AC",$E(X,1,30),DA)=""
2)= K ^FBAA(162.1,"AC",$E(X,1,30),DA)
162.1,6 TOTAL AMOUNT CLAIMED 0;6 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<.01) X
HELP-PROMPT: TYPE A NUMBER BETWEEN .01 AND 999999.99
DESCRIPTION: This is the total dollar amount for each of the line items in the invoice claimed by the pharmacy
provider.
NOTES: TRIGGERED by the AMOUNT CLAIMED field of the PRESCRIPTION NUMBER sub-field of the FEE BASIS
PHARMACY INVOICE File
162.1,7 TOTAL AMOUNT PAID 0;7 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X
LAST EDITED: JUL 09, 1990
HELP-PROMPT: TYPE A NUMBER BETWEEN .01 AND 999999.99
DESCRIPTION: This is the total dollar amount for each of the line items in the invoice paid to the pharmacy
provider.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the AMOUNT PAID field of the PRESCRIPTION NUMBER sub-field of the FEE BASIS PHARMACY
INVOICE File
162.1,8 TOTAL LINE COUNT 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 29, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
This is the total number of line items contained in the invoice.
NOTES: TRIGGERED by the PRESCRIPTION NUMBER field of the PRESCRIPTION NUMBER sub-field of the FEE BASIS
PHARMACY INVOICE File
162.1,9 GENERIC DRUG NAME STATUS 0;10 SET
'P' FOR PENDING;
LAST EDITED: DEC 30, 1986
DESCRIPTION: This field tells you if pharmacy service has not made a correlation between the drug entered by the
FEE employee and the Generic drug in the VA drug file.
162.1,10 BATCH ASSIGNED 0;11 POINTER TO FEE BASIS BATCH FILE (#161.7)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)=""B5""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 25, 1987
DESCRIPTION:
This is the batch number assigned by the FEE employee to this invoice for payment.
SCREEN: S DIC("S")="I $P(^(0),U,3)=""B5"""
EXPLANATION: Allows selection of only 'Pharmacy' batch types.
162.1,11 PAID TO DATE 1;E1,245 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
LAST EDITED: NOV 03, 1988
HELP-PROMPT: Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
DESCRIPTION: This field is populated when payment information is passed back to DHCP from the Financial
Management System in Austin. It is the date the check is issued.
162.1,12 VENDOR INVOICE DATE 0;12 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) I X>$P(^FBAA(162.1,DA,0),"^",2) W !,*7,"Vendor Invoice Date
cannot be later than the Date Correct Invoice Received" K X
LAST EDITED: MAY 09, 1994
HELP-PROMPT: Enter the date the vendor issued the invoice.
DESCRIPTION:
This is the date that the vendor issued the invoice.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
162.1,13 FPPS CLAIM ID 0;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>32!($L(X)<1)!'(X?1.32N) X
LAST EDITED: JUN 18, 2003
HELP-PROMPT: Enter a non-zero number from 1 to 32 digits long, 0 decimal digits.
DESCRIPTION: Enter the entire FPPS Claim ID as shown on the invoice document. (1-32 character text ID created
by FPPS system).
FIELD INDEX: AFC (#300) REGULAR IR SORTING ONLY
Short Descr: Whole file cross-reference on FPPS CLAIM ID.
Description: Regular cross-reference on the FPPS CLAIM ID.
Set Logic: S ^FBAA(162.1,"AFC",$E(X,1,32),DA)=""
Kill Logic: K ^FBAA(162.1,"AFC",$E(X,1,32),DA)
Whole Kill: K ^FBAA(162.1,"AFC")
X(1): FPPS CLAIM ID (162.1,13) (Subscr 1) (Len 32) (forwards)
162.1,14 IPAC VENDOR AGREEMENT 0;23 POINTER TO IPAC VENDOR AGREEMENT FILE FILE (#161.95)
LAST EDITED: MAR 05, 2014
HELP-PROMPT: Enter the Active IPAC vendor agreement ID.
DESCRIPTION: The IPAC Vendor Agreement that is associated with the pharmacy invoice. Note that if the pharmacy
invoice is not for a federal vendor this field is null.
CROSS-REFERENCE: 162.1^IPAC
1)= S ^FBAA(162.1,"IPAC",$E(X,1,30),DA)=""
2)= K ^FBAA(162.1,"IPAC",$E(X,1,30),DA)
This cross reference is used to identify invoices associated with IPAC.
FILES POINTED TO FIELDS
ADJUSTMENT GROUP (#161.92) ADJUSTMENT:ADJUSTMENT GROUP (#1)
ADJUSTMENT REASON (#161.91) ADJUSTMENT:ADJUSTMENT REASON (#.01)
DRUG (#50) FIELD^NL^40^49:GENERIC DRUG (#9)
FEE BASIS BATCH (#161.7) BATCH ASSIGNED (#10)
FIELD^NL^40^49:BATCH NUMBER (#13)
OLD BATCH NUMBER (#19)
FEE BASIS CHECK CANCELLATION R
(#162.95) FIELD^NL^40^49:REASON CODE (#32)
FEE BASIS PATIENT (#161) FIELD^NL^40^49:PATIENT (#4)
FEE BASIS PHARMACY INVOICE
(#162.1) FIELD^NL^40^49:PRESCRIPTION NUMBER (#.01)
AMOUNT CLAIMED (#3)
AMOUNT PAID (#6.5)
FEE BASIS SUSPENSION (#161.27) FIELD^NL^40^49:SUSPEND CODE (#7)
FEE BASIS VENDOR (#161.2) VENDOR (#3)
INSTITUTION (#4) FIELD^NL^40^49:PRIMARY SERVICE FACILITY (#25)
IPAC VENDOR AGREEMENT FILE
(#161.95) IPAC VENDOR AGREEMENT (#14)
NEW PERSON (#200) DATA ENTRY CLERK (#2)
FIELD^NL^40^49:PHARMACIST (#11)
SUPERVISOR (#24)
REMITTANCE REMARK (#161.93) FIELD^NL^1^2:REMITTANCE REMARK (#.01)
Subfile #162.11
Record Indexes:
AA (#67) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#162.1)
Short Descr: Index of prescriptions on invoice by date certified and patient.
Description: The AA cross reference is a whole file compound cross reference on fields within the PRESCRIPTION NUMBER
subfile. It is defined as
FBAA(162.1,"AA",date_certified,patient,da(1),da)
where date_certified is the DATE CERTIFIED FOR PAYMENT (#15)
patient is the PATIENT (4)
da(1) is the IEN of the FEE BASIS PHARMACY INVOICE
da is the IEN of the PRESCRIPTION NUMBER multiple
Set Logic: S ^FBAA(162.1,"AA",X(1),X(2),DA(1),DA)=""
Kill Logic: K ^FBAA(162.1,"AA",X(1),X(2),DA(1),DA)
Whole Kill: K ^FBAA(162.1,"AA")
X(1): DATE CERTIFIED FOR PAYMENT (162.11,15) (Subscr 1) (forwards)
X(2): PATIENT (162.11,4) (Subscr 2) (forwards)
AG (#68) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#162.1)
Short Descr: Index of RXs on invoice by vendor, date entered, patient, and suspend code.
Description: This cross-reference is used for date sort when printing suspense letters. 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
da(1) is the IEN of the FEE BASIS PHARMACY INVOICE entry
da is the IEN of the PRESCRIPTION NUMBER multiple
Set Logic: S ^FBAA(162.1,"AG",X(1),X(2),X(3),X(4),DA(1),DA)=""
Kill Logic: K ^FBAA(162.1,"AG",X(1),X(2),X(3),X(4),DA(1),DA)
Whole Kill: K ^FBAA(162.1,"AG")
X(1): Computed Code: S X=$P($G(^FBAA(162.1,DA(1),0)),U,4)
(Subscr 1)
X(2): Computed Code: S X=$P($G(^FBAA(162.1,DA(1),0)),U,8)
(Subscr 2)
X(3): PATIENT (162.11,4) (Subscr 3) (forwards)
X(4): SUSPEND CODE (162.11,7) (Subscr 4) (forwards)
AJ (#69) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#162.1)
Short Descr: Index of prescriptions on invoice by batch number and patient.
Description: The AJ cross reference is a whole file compound cross reference on fields in the PRESCRIPTION NUMBER subfile.
It is defined as
FBAA(162.1,"AJ",batch_number,patient,da(1),da)
where batch_number is the BATCH NUMBER (#13)
patient is the PATIENT (#4)
da(1) is the IEN of the FEE BASIS PHARMACY INVOICE
da is the IEN of the PRESCRIPTION NUMBER multiple
Set Logic: S ^FBAA(162.1,"AJ",X(1),X(2),DA(1),DA)=""
Kill Logic: K ^FBAA(162.1,"AJ",X(1),X(2),DA(1),DA)
Whole Kill: K ^FBAA(162.1,"AJ")
X(1): BATCH NUMBER (162.11,13) (Subscr 1) (forwards)
X(2): PATIENT (162.11,4) (Subscr 2) (forwards)
AK (#70) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#162.1)
Short Descr: Index of RXs on invoice by vendor, date filled, and patient.
Description: The "AK" 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,"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
The "AK" cross-reference should only exist when the BATCH NUMBER (#13) field in subfile 162.11 contains data.
Set Logic: S ^FBAA(162.1,"AK",X(1),X(2),X(3),DA(1),DA)=""
Set Cond: S X=$S(X(4)]"":1,1:0)
Kill Logic: K ^FBAA(162.1,"AK",X(1),X(2),X(3),DA(1),DA)
Kill Cond: S X=$S(X(4)]"":1,1:0)
Whole Kill: K ^FBAA(162.1,"AK")
X(1): Computed Code: S X=$P($G(^FBAA(162.1,DA(1),0)),U,4)
(Subscr 1)
X(2): DATE PRESCRIPTION FILLED (162.11,2) (Subscr 2) (forwards)
Transform (Storage): S X=9999999-X
X(3): PATIENT (162.11,4) (Subscr 3) (forwards)
X(4): BATCH NUMBER (162.11,13) (forwards)
INPUT TEMPLATE(S):
FB ADD RX DEC 10, 2013@12:12 USER #0
Add pharmacy prescription
PRINT TEMPLATE(S):
FBAA RX PENDING MAR 01, 2004@13:57 USER #0 PRESCRIPTIONS PENDING PHARMACY REVIEW
Prescriptions pending pharmacy review
SORT TEMPLATE(S):
FBAA RX PENDING AUG 27, 1992@14:21 USER #705
SORT BY: PRESCRIPTION NUMBER//
FIELD: PATIENT//
WITHIN PATIENT, SORT BY: @INVOICE STATUS// From '1' To '1^1'
WITHIN INVOICE STATUS, SORT BY: @PRESCRIPTION NUMBER//
FIELD: LINE ITEM STATUS// From '1' To '1^1'
Prescriptions pending pharmacy review
FORM(S)/BLOCK(S):