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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^FB7078

Package: Fee Basis

Global: ^FB7078


Information

FileMan FileNo FileMan Filename Package
162.4 VA FORM 10-7078 Fee Basis

Description

Directly Accessed By Routines, Total: 35

Package Total Routines
Fee Basis 34 FBAACLU    FBAARD3    FBAASCB0    FBAAUTL1    FBAAV0    FBAAV2    FBAAV5    FBAAV6
FBCH78    FBCH780    FBCHACT    FBCHACT0    FBCHCD    FBCHCR    FBCHDI    FBCHDI2
FBCHEP    FBCHP78    FBCHREQ    FBCHRJP    FBCHSTA    FBCNHCEN    FBMRASV1    FBNHAMI1
FBNHEAUT    FBNHEDAT    FBNHPAMS    FBNHPC    FBNHRCS2    FBUTL9    FBXIP154    USER AUDIT
^FB7078    ^FBAA(163.98    
Integrated Billing 1 IBFBNP1    

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
Fee Basis 11 FBAACLU    FBCH78    FBCH780    FBCHC78    FBCHCD    FBCHP78    FBMRASV1    FBNHEAUT
FBNHED    FBNHEDAT    FBPHON2    
Clinical Case Registries 1 RORHL21    

Pointed To By FileMan Files, Total: 6

Package Total FileMan Files
Fee Basis 6 FEE BASIS CNH AUTHORIZATION RATE(#161.23)[.03]    FEE BASIS PHARMACY INVOICE(#162.1)[#162.11(26)]    FEE NOTIFICATION/REQUEST(#162.2)[16]    FEE BASIS PATIENT(#161)[#161.01(.055)]    FEE BASIS PAYMENT(#162)[#162.03(27)]    FEE BASIS INVOICE(#162.5)[4]    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Fee Basis 2 FEE BASIS PROGRAM(#161.8)[.5]    FEE BASIS VENDOR(#161.2)[1]    
Registration 2 VA ADMITTING REGULATION(#43.4)[5]    PATIENT(#2)[2]    
Kernel 1 NEW PERSON(#200)[.013815#162.492(1)]    

Fields, Total: 20

Field # Name Loc Type Details
.01 REFERENCE NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<7) X
  • LAST EDITED:  JUL 26, 1996
  • HELP-PROMPT:  Answer must be 7-11 characters in length and populated by calls to IFCAP.
  • DESCRIPTION:  
    This number is internally generated and tracked by the IFCAP software.
  • TECHNICAL DESCR:  
    The format of this field is determined in the IFCAP software. The field is populated by using the obligation number and the reference number. Sample format - C12345.0002
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  162.4^B
    1)= S ^FB7078("B",$E(X,1,30),DA)=""
    2)= K ^FB7078("B",$E(X,1,30),DA)
.013 USER WHO CANCELLED 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 22, 1992
  • DESCRIPTION:  
    This field contains the name of the supervisor who cancelled the 7078.
.014 DATE CANCELLED 0;14 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 22, 1992
  • DESCRIPTION:  
    This field contains the date that a supervisor cancelled the 7078.
.5 FEE PROGRAM 0;11 POINTER TO FEE BASIS PROGRAM FILE (#161.8)
************************REQUIRED FIELD************************
FEE BASIS PROGRAM(#161.8)

  • LAST EDITED:  FEB 10, 1989
  • DESCRIPTION:  
    This field contains the valid Fee Program associated with this 7078, as defined in the Fee Basis Program file (i.e. Outpatient Medical, Contract Hospital, Community Nursing Home).
1 VENDOR 0;2 VARIABLE POINTER
************************REQUIRED FIELD************************
FEE BASIS VENDOR(#161.2)  

  • OUTPUT TRANSFORM:  S Y(0)=Y Q:Y']"" S Z0=$P(^FB7078(D0,0),U,2) I $P(Z0,";",2)="FBAAV(" S Y=$S($D(^FBAAV(+Z0,0)):$E($P(^(0),U),1,20)_" "_$P(^(0),U,2),1:"") K Z0
  • LAST EDITED:  SEP 04, 1990
  • DESCRIPTION:  
    This is the vendor that is entered in the request/ notification process.
  • CROSS-REFERENCE:  162.4^C
    1)= S ^FB7078("C",$E(X,1,30),DA)=""
    2)= K ^FB7078("C",$E(X,1,30),DA)
2 VETERAN 0;3 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  AUG 20, 1993
  • DESCRIPTION:  
    This is the veteran that was entered in the request/ notification process.
  • CROSS-REFERENCE:  162.4^D
    1)= S ^FB7078("D",$E(X,1,30),DA)=""
    2)= K ^FB7078("D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  162.4^AB^MUMPS
    1)= S ^FB7078("AB",$E(X,1,30),$P($P(^FB7078(DA,0),"^",1),".",1),DA)=""
    2)= K ^FB7078("AB",$E(X,1,30),$P($P(^FB7078(DA,0),"^",1),".",1),DA)
  • CROSS-REFERENCE:  162.4^AC1^MUMPS
    1)= S:$P(^FB7078(DA,0),U,9)]"" ^FB7078("AC",$E($P(^FB7078(DA,0),U,9),1,30),X,DA)=""
    2)= K:$P(^FB7078(DA,0),U,9)]"" ^FB7078("AC",$E($P(^FB7078(DA,0),U,9),1,30),X,DA)
    Cross reference by status and veteran.
3 AUTHORIZATION FROM DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 01, 1990
  • DESCRIPTION:  
    This is the date that is entered in the 'Authorization From Date' field during the request/notification process.
  • CROSS-REFERENCE:  162.4^AA^MUMPS
    1)= S ^FB7078("AA",$P(^FB7078(DA,0),U,11),$E(X,1,30),DA)=""
    2)= K ^FB7078("AA",$P(^FB7078(DA,0),U,11),$E(X,1,30),DA)
3.5 DATE OF ADMISSION 0;15 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 15, 1993
  • DESCRIPTION:  
    This is the date that is entered in the 'Date of Admission' field during the request/notification process.
4 AUTHORIZATION TO DATE 0;5 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^FB7078(DA,0),U,4)>X K X W !!,"To Date cannot be earlier than the From Date!",!
  • LAST EDITED:  MAY 10, 1993
  • DESCRIPTION:  
    This is the date you determine the VA will no longer cover the veteran.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  162.4^AD^MUMPS
    1)= S ^FB7078("AD",$P(^FB7078(DA,0),"^",11),$E(X,1,30),DA)=""
    2)= K ^FB7078("AD",$P(^FB7078(DA,0),"^",11),$E(X,1,30),DA)
4.5 DATE OF DISCHARGE 0;16 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^FB7078(DA,0),U,5)>X K X W !!,"Date of Discharge cannot be earlier than the Authorization To Date!",!
  • LAST EDITED:  MAR 15, 1993
  • DESCRIPTION:  
    This is the actual date of discharge.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 AUTHORITY 0;6 POINTER TO VA ADMITTING REGULATION FILE (#43.4)
************************REQUIRED FIELD************************
VA ADMITTING REGULATION(#43.4)

  • LAST EDITED:  JAN 30, 1989
  • DESCRIPTION:  
    This field is the Admitting Authority used for the authorization.
6 ESTIMATED AMOUNT 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<.01)!(X?.E1"."3.N) X
  • LAST EDITED:  NOV 17, 2008
  • HELP-PROMPT:  Type a Dollar amount between .01 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This dollar amount is the best estimate of costs that will be incurred by the veteran. This dollar amount is passed to IFCAP.
7 AUTHORIZED SERVICES 1;0 WORD-PROCESSING #162.47

  • DESCRIPTION:  This is a word processing field that should contain a statement similar to the following:
    "Hospitalization and Professional care necessary until the
    patients condition is stabilized or improved enough to permit
    transfer without hazard to a VA or other Federal facility for
    continued treatment." or "Hospitalization and Professional Care".
  • LAST EDITED:  JAN 17, 1991
8 USER ENTERING 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 05, 1990
  • DESCRIPTION:  
    This is the name of the user that enters the authorization.
9 STATUS 0;9 SET
  • 'C' FOR COMPLETE;
  • 'I' FOR INCOMPLETE;
  • 'DC' FOR CANCELLED;

  • LAST EDITED:  AUG 20, 1993
  • DESCRIPTION:  
    The status of the 7078/authorization remains 'Incomplete' until a discharge date is entered. At that time the status is updated to complete and a corresponding authorization is built in file 161.
  • CROSS-REFERENCE:  162.4^AC^MUMPS
    1)= S:+$P(^FB7078(DA,0),U,3) ^FB7078("AC",$E(X,1,30),$P(^FB7078(DA,0),U,3),DA)=""
    2)= K:+$P(^FB7078(DA,0),U,3) ^FB7078("AC",$E(X,1,30),$P(^FB7078(DA,0),U,3),DA)
    Cross-reference by status and patient.
10 DATE OF ISSUE 0;10 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    This is the date the user sets up the 7078.
12 REASON FOR PENDING DISPOSITION 0;12 SET
  • '1' FOR FOLLOW-UP/NOT STABLE;
  • '2' FOR AWAITING DISCHARGE/TRANSFER;

  • LAST EDITED:  JAN 24, 1989
  • DESCRIPTION:  
    If the status of a 7078 is Incomplete, that is the discharge date has not been entered, the user is prompted with this field. Once the status of the 7078 is Complete this field is set to null.
15 REFERRING PROVIDER 0;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $$PROVIDER^FBAAAUT(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 18, 2008
  • HELP-PROMPT:  Enter the VA Physician who made the referral to the Non-VA facility.
  • DESCRIPTION:  
    The VA physician who made the referral on behalf of the veteran to the non-VA hospital for inpatient health care services.
  • SCREEN:  S DIC("S")="I $$PROVIDER^FBAAAUT(+Y)"
  • EXPLANATION:  Types of users allowed should only be providers.
16 REFERRING PROVIDER NPI COMPUTED

  • MUMPS CODE:  S Y(162.4,16,1)=$S($D(^FB7078(D0,0)):^(0),1:"") S X=$P(Y(162.4,16,1),U,17),X=X S X=X,X=$$REFNPI^FBCH78(X)
  • ALGORITHM:  FB REF PROV NPI(INTERNAL(REFERRING PROVIDER))
  • LAST EDITED:  APR 16, 2008
292 USER AUDIT LOG1;0 DATE Multiple #162.492 162.492

  • DESCRIPTION:  
    The user audit tracks users that enter or edit the authorization. This includes edits to the authorization rate or patient movements for nursing home authorizations.
  • TECHNICAL DESCR:  The USER AUDIT multiple was added by patch FB*3.5*154 and does not reflect actions taken prior to patch installation with one exception. During the install the patch attempts to create an entry in the multiple for each
    pre-existing authorization using data from the DATE OF ISSUE (#10) and USER ENTERING (#8) fields.
  • INDEXED BY:  EDITED BY (AU)

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #5104
  • Fee Basis
  • Clinical Case Registries
  • External References

    Name Field # of Occurrence
    ^%DT .014+1, 3+1, 3.5+1, 4+1, 4.5+1, 10+1
    ^DIC 15+1
    NAME^DICM2 ID1+1
    Y^DIQ ID2+1
    $$REFNPI^FBCH78 16+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(2 ID2+1
    ^DPT - [#2] ID2+1
    ^FB7078 - [#162.4] 1OT+1, 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 3(XREF 1S), 3(XREF 1K), 4+1, 4(XREF 1S), 4(XREF 1K)
    , 4.5+1, 9(XREF 1S), 9(XREF 1K), 16+1
    ^FB7078("AA" 3(XREF 1S), 3(XREF 1K)
    ^FB7078("AB" 2(XREF 2S), 2(XREF 2K)
    ^FB7078("AC" 2(XREF 3S), 2(XREF 3K), 9(XREF 1S), 9(XREF 1K)
    ^FB7078("AD" 4(XREF 1S), 4(XREF 1K)
    ^FB7078("B" .01(XREF 1S), .01(XREF 1K)
    ^FB7078("C" 1(XREF 1S), 1(XREF 1K)
    ^FB7078("D" 2(XREF 1S), 2(XREF 1K)
    ^FBAAV - [#161.2] 1OT+1

    Naked Globals

    Name Field # of Occurrence
    ^("0" ID1+1
    ^(0 ID2+1, 1OT+1, 16+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .014+1*, 3+1*, 3.5+1*, 4+1*, 4.5+1*, 10+1*
    %I ID2+1*!
    >> C ID2+1*
    >> D0 1OT+1, 16+1
    >> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K)
    3(XREF 1S), 3(XREF 1K), 4+1, 4(XREF 1S), 4(XREF 1K), 4.5+1, 9(XREF 1S), 9(XREF 1K)
    DIC ID1+1, ID2+1, ID9+1, 15+1!*
    DIC("S" 15+1*, 15SCR+1*
    >> DIE 15+1
    >> DINAME ID1+1
    >> DIY ID1+1*
    U ID1+1, ID2+1, 1OT+1, 2(XREF 3S), 2(XREF 3K), 3(XREF 1S), 3(XREF 1K), 4+1, 4.5+1, 9(XREF 1S)
    9(XREF 1K), 16+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .014+1*!, 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
    2(XREF 3S), 2(XREF 3K), 3+1*!, 3(XREF 1S), 3(XREF 1K), 3.5+1*!, 4+1*!, 4(XREF 1S), 4(XREF 1K), 4.5+1*!
    , 6+1*!, 9(XREF 1S), 9(XREF 1K), 10+1*!, 15+1*!, 16+1*
    >> Y ID1+1, ID2+1*, .014+1, 1OT+1*, 3+1, 3.5+1, 4+1, 4.5+1, 10+1, 15+1
    >> Y( 16+1*
    >> Y(0 1OT+1*
    Z0 1OT+1*!
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All