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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | 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

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.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All