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 |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^FBAA(161.23

Package: Fee Basis

Global: ^FBAA(161.23


Information

FileMan FileNo FileMan Filename Package
161.23 FEE BASIS CNH AUTHORIZATION RATE Fee Basis

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Fee Basis 9 FBAAVD2    FBCHC78    FBNHEP2    ^FBAA(161.23    FBNHEDA1    FBNHRAT    FBNHRC    ^FBAA(163.98
FBNHRDEL    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
Fee Basis 6 FBAAVD2    FBCHC78    FBNHEAU2    FBNHEDA1    FBNHRAT1    FBNHRC    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Fee Basis 2 VA FORM 10-7078(#162.4)[.03]    FEE BASIS PATIENT(#161)[.04]    

Fields, Total: 6

Field # Name Loc Type Details
.01 FROM DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 03, 1993
  • DESCRIPTION:  
    This is the beginning date of the authorization rate.
  • CROSS-REFERENCE:  161.23^B
    1)= S ^FBAA(161.23,"B",$E(X,1,30),DA)=""
    2)= K ^FBAA(161.23,"B",$E(X,1,30),DA)
.02 TO DATE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 22, 1993
  • DESCRIPTION:  
    This is the ending date for this patients care at a given rate.
  • CROSS-REFERENCE:  161.23^ADR1^MUMPS
    1)= S:$P(^FBAA(161.23,DA,0),U,3) ^FBAA(161.23,"AD",$E($P(^FBAA(161.23,DA,0),U,3),1,30),-X,DA)=""
    2)= K:$P(^FBAA(161.23,DA,0),U,3) ^FBAA(161.23,"AD",$P(^FBAA(161.23,DA,0),U,3),-X,DA)
    Updates the AD X-Reference on field .03 if the To Date for this CNH Authorization Rate changes.
.03 ASSOCIATED 7078 0;3 POINTER TO VA FORM 10-7078 FILE (#162.4)
************************REQUIRED FIELD************************
VA FORM 10-7078(#162.4)

  • LAST EDITED:  APR 04, 1993
  • DESCRIPTION:  
    This field holds the pointer to file 162.4, 7078 FILE. The field is populated by the system.
  • CROSS-REFERENCE:  161.23^AC^MUMPS
    1)= S ^FBAA(161.23,"AC",$E(X,1,30),DA)=""
    2)= K ^FBAA(161.23,"AC",$E(X,1,30),DA)
    Allows the look-up of all dates associated with this authorization.
  • CROSS-REFERENCE:  161.23^AD^MUMPS
    1)= S ^FBAA(161.23,"AD",$E(X,1,30),-$P(^FBAA(161.23,DA,0),U,2),DA)=""
    2)= K ^FBAA(161.23,"AD",X,-$P(^FBAA(161.23,DA,0),U,2),DA)
    This inverse date crossreference puts the newest rate for a given authorization at the top of the stack.
.04 PATIENT 0;4 POINTER TO FEE BASIS PATIENT FILE (#161)
************************REQUIRED FIELD************************
FEE BASIS PATIENT(#161)

  • LAST EDITED:  APR 03, 1993
  • DESCRIPTION:  
    The name of the Fee Basis Patient.
  • CROSS-REFERENCE:  161.23^C
    1)= S ^FBAA(161.23,"C",$E(X,1,30),DA)=""
    2)= K ^FBAA(161.23,"C",$E(X,1,30),DA)
    Used to locate entries for a patient
.05 PER DIEM RATE 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<.01) X
  • LAST EDITED:  AUG 18, 1993
  • HELP-PROMPT:  Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the dollar amount for this patient's care for a given timeframe.
  • CROSS-REFERENCE:  161.23^AE1^MUMPS
    1)= S:$P(^FBAA(161.23,DA,0),"^",6) ^FBAA(161.23,"AE",$P(^FBAA(161.23,DA,0),"^",6),X,DA)=""
    2)= K:$P(^FBAA(161.23,DA,0),"^",6) ^FBAA(161.23,"AE",$P(^FBAA(161.23,DA,0),"^",6),X,DA)
    Cross Reference built on Contract Number. It uses the Perdium Rate as a second piece in the X-Ref. Whenever a change is made to the perdium rate, an update to the AE X-Ref. will be made.
.06 CONTRACT 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  JUN 16, 1993
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • DESCRIPTION:  
    Contains the contract number associated with this authorization period as listed in the FEE Basis CNH Contract file.
  • CROSS-REFERENCE:  161.23^AE^MUMPS
    1)= S:$P(^FBAA(161.23,DA,0),"^",5) ^FBAA(161.23,"AE",X,$P(^FBAA(161.23,DA,0),"^",5),DA)=""
    2)= K:$P(^FBAA(161.23,DA,0),"^",5) ^FBAA(161.23,"AE",X,$P(^FBAA(161.23,DA,0),"^",5),DA)
    Cross Reference on Contract # field used to identify all rates associated with a particular contract. The rate is a secondary piece of the X-Ref, and an associated entry is made to update the X-Ref whenever a rate changes
    or is added.

External References

Name Field # of Occurrence
^%DT .01+1, .02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(161.23 - [#161.23] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K)
.05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, .02+1*
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K)
.05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K)
U .02(XREF 1S), .02(XREF 1K), .03(XREF 2S), .03(XREF 2K)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
.04(XREF 1S), .04(XREF 1K), .05+1*!, .05(XREF 1S), .05(XREF 1K), .06+1!, .06(XREF 1S), .06(XREF 1K)
>> Y .01+1, .02+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All