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

Package: Fee Basis

Global: ^FBAA(161.21


Information

FileMan FileNo FileMan Filename Package
161.21 FEE BASIS CNH CONTRACT Fee Basis

Description

Directly Accessed By Routines, Total: 14

Package Total Routines
Fee Basis 13 FBNH ENTER CONTRACT    FBNHRCS1    ^FBAA(163.98    FBAAUTL2    FBAAVD1    FBAAVD2    FBCH78A    FBMRASV1
FBNHEAU2    FBNHEXP    FBNHRAT1    FBNHRDEL    ^FBAA(161.21    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Fee Basis 3 FBAAVD2    FBMRASV1    FBNHRDEL    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Fee Basis 1 FEE BASIS CNH RATE(#161.22)[.03]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Fee Basis 1 FEE BASIS VENDOR(#161.2)[.04]    

Fields, Total: 4

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

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3)!'(X'?1P.E) X I $D(X),$D(^FBAA(161.21,"B",X)) W !,*7,"Contract already exists for another vendor.",! K X
  • LAST EDITED:  SEP 03, 1993
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • DESCRIPTION:  
    This is the Contract number assigned by contracting for the Community Nursing Home.
  • DELETE TEST:  .01,0)= I $D(^FBAA(161.22,"AC",DA)) W !,*7,"You cannot delete a contract that has rates associated with it.",!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  161.21^B
    1)= S ^FBAA(161.21,"B",$E(X,1,30),DA)=""
    2)= K ^FBAA(161.21,"B",$E(X,1,30),DA)
.02 EFFECTIVE DATE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) D CONDAT^FBAAUTL2
  • LAST EDITED:  MAR 25, 1993
  • DESCRIPTION:  
    This is the beginning date of the contract.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  161.21^ACR1^MUMPS
    1)= S:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,"ACR",$P(^(0),U,4),-$E(X,1,30),DA)=""
    2)= K:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,"ACR",$P(^(0),U,4),-$E(X,1,30),DA)
    update the 'ACR' cross-reference on the vendor field (.04).
  • CROSS-REFERENCE:  161.21^AC1^MUMPS
    1)= S:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,"AC",$P(^(0),U,4),$E(X,1,30),DA)=""
    2)= K:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,"AC",$P(^(0),U,4),$E(X,1,30),DA)
    This will keep the 'AC' x-ref on the vendor field updated.
.03 EXPIRATION DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) D CONDAT^FBAAUTL2 I $D(X),$P(^FBAA(161.21,DA,0),U,2)>X K X W !!,"Expiration date must be after the effective date.",!
  • LAST EDITED:  MAR 08, 1993
  • DESCRIPTION:  
    This is the date the contract expires.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  161.21^ADR1^MUMPS
    1)= S:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,"ADR",$P(^(0),U,4),-$E(X,1,30),DA)=""
    2)= K:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,"ADR",$P(^(0),U,4),-X,DA)
    Updates the vendor cross-reference if the expiration date is changed.
.04 VENDOR 0;4 POINTER TO FEE BASIS VENDOR FILE (#161.2)
************************REQUIRED FIELD************************
FEE BASIS VENDOR(#161.2)

  • LAST EDITED:  MAR 25, 1993
  • DESCRIPTION:  
    Contains the vendor for which the contract applies.
  • CROSS-REFERENCE:  161.21^C
    1)= S ^FBAA(161.21,"C",$E(X,1,30),DA)=""
    2)= K ^FBAA(161.21,"C",$E(X,1,30),DA)
    This cross-reference allows look-up by vendor.
  • CROSS-REFERENCE:  161.21^ADR^MUMPS
    1)= S:$P(^FBAA(161.21,DA,0),U,3) ^FBAA(161.21,"ADR",$E(X,1,30),-$P(^(0),U,3),DA)=""
    2)= K:$P(^FBAA(161.21,DA,0),U,3) ^FBAA(161.21,"ADR",X,-$P(^(0),U,3),DA)
    Cross-reference by vendor, negative date. Used to retrieve the latest contract for a vendor.
  • CROSS-REFERENCE:  161.21^ACR^MUMPS
    1)= S:$P(^FBAA(161.21,DA,0),U,2) ^FBAA(161.21,"ACR",$E(X,1,30),-$P(^(0),U,2),DA)=""
    2)= K:$P(^FBAA(161.21,DA,0),U,2) ^FBAA(161.21,"ACR",X,-$P(^(0),U,2),DA)
    Inverse date order cross-reference vendor, from date of contract.
  • CROSS-REFERENCE:  161.21^AC^MUMPS
    1)= S:$P(^FBAA(161.21,DA,0),U,2) ^FBAA(161.21,"AC",X,$P(^(0),U,2),DA)=""
    2)= K:$P(^FBAA(161.21,DA,0),U,2) ^FBAA(161.21,"AC",X,$P(^(0),U,2),DA)
    used to find next available contract when multiple contracts involved with an authorization period.

External References

Name Field # of Occurrence
^%DT .02+1, .03+1
CONDAT^FBAAUTL2 .02+1, .03+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(161.21 - [#161.21] .01+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1, .03(XREF 1S), .03(XREF 1K)
, .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K), .04(XREF 4S), .04(XREF 4K)
^FBAA(161.22 - [#161.22] .01DEL.01+1

Naked Globals

Name Field # of Occurrence
^(0 .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .04(XREF 2S), .04(XREF 2K), .04(XREF 3S), .04(XREF 3K)
, .04(XREF 4S), .04(XREF 4K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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