Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^FBAA(162.1

Package: Fee Basis

Global: ^FBAA(162.1

Information

FileMan FileNo	FileMan Filename	Package
162.1	FEE BASIS PHARMACY INVOICE	Fee Basis

Description

Contains Pharmacy invoices and payment data associated with hometown pharmacy payments. Per VHA Directive 10-93-142, this file definition should not be modified.

Accessed By FileMan Db Calls, Total: 13

Pointer To FileMan Files, Total: 14

Fields, Total: 17

Field #	Name	Loc	Type	Details
.01	NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** 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)`
1	DATE CORRECT INVOICE RECV'D	0;2	DATE	**********************REQUIRED FIELD********************** 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`
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.`
2	DATA ENTRY CLERK	0;3	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `APR 05, 1990` DESCRIPTION: `This is the Fee employee who enters the invoice into DHCP from the pharmacy provider.`
3	VENDOR	0;4	POINTER TO FEE BASIS VENDOR FILE (#161.2)	**********************REQUIRED FIELD********************** FEE BASIS VENDOR(#161.2) 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.`
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.`
4	PRESCRIPTION NUMBER	RX;0	Multiple #162.11	162.11 DESCRIPTION: `This multiple allows the user to enter all prescriptions included on a pharmacy invoice.`
5	INVOICE STATUS	0;5	SET	**********************REQUIRED FIELD********************** '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)`
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`
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`
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`
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.`
10	BATCH ASSIGNED	0;11	POINTER TO FEE BASIS BATCH FILE (#161.7)	FEE BASIS BATCH(#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.`
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.`
12	VENDOR INVOICE DATE	0;12	DATE	**********************REQUIRED FIELD********************** 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`
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)`
14	IPAC VENDOR AGREEMENT	0;23	POINTER TO IPAC VENDOR AGREEMENT FILE FILE (#161.95)	IPAC VENDOR AGREEMENT 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.`

ICR, Total: 4

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All