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

Accessed By FileMan Db Calls, Total: 13

Package Total Routines
Fee Basis 13 FBAACIE    FBAAEPI    FBAAPHV    FBAAPIE    FBAAPIE1    FBAAPII    FBAAPIP    FBAAPIS
FBAAPP    FBAARD2    FBAARR2    FBMRASV1    FBRXFED    

Pointer To FileMan Files, Total: 14

Package Total FileMan Files
Fee Basis 11 ADJUSTMENT REASON(#161.91)[#162.14(.01)]    ADJUSTMENT GROUP(#161.92)[#162.14(1)]    REMITTANCE REMARK(#161.93)[#162.15(.01)]    FEE BASIS CHECK CANCELLATION REASON(#162.95)[#162.11(32)]    FEE BASIS UNAUTHORIZED CLAIMS(#162.7)[#162.11(26)]    VA FORM 10-7078(#162.4)[#162.11(26)]    FEE BASIS SUSPENSION(#161.27)[#162.11(7)]    FEE BASIS BATCH(#161.7)[10, #162.11(13), #162.11(19)]
IPAC VENDOR AGREEMENT FILE(#161.95)[14]    FEE BASIS PATIENT(#161)[#162.11(4)]    FEE BASIS VENDOR(#161.2)[3]    
Kernel 2 INSTITUTION(#4)[#162.11(25)]    NEW PERSON(#200)[2, #162.11(11), #162.11(24)]
Pharmacy Data Management 1 DRUG(#50)[#162.11(9)]    

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

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #203
  • Outpatient Pharmacy
    		•  AMOUNT PAID (6.5).
    Access: Direct Global Read & w/Fileman

    		 The AA cross reference. It is defined asFBAA(162.1,"AA",date_certified,patient,da(1),da) wheredate_certified is the DATE CERTIFIED FOR PAYMENT (#15)patient is the PATIENT (4)da(1) is the IEN of the FEE BASIS PHARMACY INVOICEda is the IEN of the PRESCRIPTION NUMBER multiple
    ICR #2274
  • Scheduling
    		•  VENDOR (3).
    Access: Direct Global Read & w/Fileman

    DRUG NAME (1).
    Access: Direct Global Read & w/Fileman

    QUANTITY (1.6).
    Access: Direct Global Read & w/Fileman

    AMOUNT PAID (6.5).
    Access: Direct Global Read & w/Fileman

    		 'AD' xref.
    ICR #5409
  • Fee Basis
    		•
    ICR #5634
  • Clinical Case Registries
    		•  GENERIC DRUG (9).
    Access: Direct Global Read & w/Fileman

    		 where D0 is the FEE BASIS PHARMACY INVOICE and D1 is thePRESCRIPTION NUMBER
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All