Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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

Directly Accessed By Routines, Total: 88

Package Total Routines
Fee Basis 83 FBAABDL    FBAABET    FBAACCB    FBAACCB0    FBAACCB1    FBAADD    FBAADD1    FBAAEPI
FBAAIAR    FBAAIAR1    FBAAIARA    FBAALPI    FBAAPHV    FBAAPIP    FBAAPLU    FBAAPP
FBAARB    FBAARR    FBAARR3    FBAASCB    FBAASLP    FBAAUTL4    FBAAV2    FBAAVR4
FBCKDIS    FBFHLL    FBFPDS    FBPAID2    FBPCR3    FBPHON1    FBPST35B    FBRXFED
FBRXFR    FBSVBR    FBUCUTL    FBXIP165    ^FBAA(161.7    FBUTLMVI    ^FBAA(162.1    ADJUSTMENT
FBAABPG    FBAACIE    FBAAEPI1    FBAAIAD    FBAAIAE    FBAAIARC    FBAAPAR    FBAAPIE
FBAAPIE1    FBAAPP0    FBAAPPH    FBAARD    FBAARD1    FBAARD2    FBAARJP    FBAARR1
FBAARR2    FBAASL1    FBAAV01    FBAAVR1    FBAAVR5    FBBPG7Y    FBCHPSA1    FBCKDIS1
FBFHLD5    FBFPCI    FBMRASV1    FBPAID    FBPAID1    FBPAY3    FBPHON2    FBPMRG
FBRXUTL    FBUCLET2    FBUCMBS    FBXI165A    FBXIP116    FBXIP19    FBXIP91    PRESCRIPTION NUMBER
^FBAA(163.98    REJECT CODE    REMITTANCE REMARK    
Clinical Case Registries 1 RORHL21    

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

    External References

    Name Field # of Occurrence
    ^%DT 1+1, 1.5+1, 12+1
    ^DIC 10+1
    $$CHKBI^FBAAUTL4 .01+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(162.1 3.1+1
    ^FBAA(162.1 - [#162.1] IXAASL+1*, IXAAKL+1!, IXAAKEIC+1!, IXAFCSL+1*, IXAFCKL+1!, IXAFCKEIC+1!, IXAGSL+1*, IXAGKL+1!, IXAGKEIC+1!, IXAGP1CC+1
    , IXAGP2CC+1, IXAJSL+1*, IXAJKL+1!, IXAJKEIC+1!, IXAKSL+1*, IXAKKL+1!, IXAKKEIC+1!, IXAKP1CC+1, .01(XREF 1S), .01(XREF 1K)
    , 3(XREF 1S), 3(XREF 1K), 3.1OF9.2+1, 5(XREF 1S), 5(XREF 1K), 12+1, 14(XREF 1S), 14(XREF 1K)
    ^FBAAV - [#161.2] 3.1+1, 3.1OF9.2+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 3.1+1, 3.1OF9.2+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 1+1*, 1.5+1*, 12+1*
    >> %DT(0 1+1*!
    >> D0 3.1+1*, 3.1OF9.2+1*
    >> DA IXAASL+1, IXAAKL+1, IXAFCSL+1, IXAFCKL+1, IXAGSL+1, IXAGKL+1, IXAJSL+1, IXAJKL+1, IXAKSL+1, IXAKKL+1
    , .01(XREF 1S), .01(XREF 1K), 3(XREF 1S), 3(XREF 1K), 5(XREF 1S), 5(XREF 1K), 12+1, 14(XREF 1S), 14(XREF 1K)
    >> DA(1 IXAASL+1, IXAAKL+1, IXAGSL+1, IXAGKL+1, IXAGP1CC+1, IXAGP2CC+1, IXAJSL+1, IXAJKL+1, IXAKSL+1, IXAKKL+1
    , IXAKP1CC+1
    DIC 10+1!*
    DIC("S" 10+1*, 10SCR+1*
    >> DIE 10+1
    >> DINUM .01+1*
    DT 1+1
    U IXAGP1CC+1, IXAGP2CC+1, IXAKP1CC+1, 3.1+1, 3.1OF9.2+1
    X IXAFCSL+1, IXAFCKL+1, IXAGP1CC+1*, IXAGP2CC+1*, IXAKSCC+1*, IXAKKCC+1*, IXAKP1CC+1*, IXAKP2TS+1*, .01+1!, .01(XREF 1S)
    , .01(XREF 1K), 1+1*!, 1.5+1*!, 3(XREF 1S), 3(XREF 1K), 3.1+1*, 5(XREF 1S), 5(XREF 1K), 6+1*!, 7+1*!
    , 8+1!, 10+1*!, 11+1*!, 12+1*!, 13+1!, 14(XREF 1S), 14(XREF 1K)
    X(1 IXAASL+1, IXAAKL+1, IXAGSL+1, IXAGKL+1, IXAJSL+1, IXAJKL+1, IXAKSL+1, IXAKKL+1
    X(2 IXAASL+1, IXAAKL+1, IXAGSL+1, IXAGKL+1, IXAJSL+1, IXAJKL+1, IXAKSL+1, IXAKKL+1
    X(3 IXAGSL+1, IXAGKL+1, IXAKSL+1, IXAKKL+1
    X(4 IXAGSL+1, IXAGKL+1, IXAKSCC+1, IXAKKCC+1
    >> Y 1+1, 1.5+1, 10+1, 12+1
    >> Y( 3.1+1*, 3.1OF9.2+1*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All