STANDARD DATA DICTIONARY #161.21 -- FEE BASIS CNH CONTRACT FILE 9/29/25 PAGE 1
STORED IN ^FBAA(161.21, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains CNH vendor contract information.
Per VHA Directive 10-93-142, this file definition should not be modified.
DD ACCESS: @
RD ACCESS: #
WR ACCESS: #
DEL ACCESS: #
LAYGO ACCESS: #
AUDIT ACCESS: #
IDENTIFIED BY: EFFECTIVE DATE (#.02)[R], EXPIRATION DATE (#.03)[R]
POINTED TO BY: CONTRACT field (#.03) of the FEE BASIS CNH RATE File (#161.22)
CROSS
REFERENCED BY: VENDOR(AC), EFFECTIVE DATE(AC1), VENDOR(ACR), EFFECTIVE DATE(ACR1), VENDOR(ADR), EXPIRATION DATE(ADR1),
NUMBER(B), VENDOR(C)
161.21,.01 NUMBER 0;1 FREE TEXT (Required)
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 f
or 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)
161.21,.02 EFFECTIVE DATE 0;2 DATE (Required)
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.
161.21,.03 EXPIRATION DATE 0;3 DATE (Required)
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.
161.21,.04 VENDOR 0;4 POINTER TO FEE BASIS VENDOR FILE (#161.2) (Required)
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.
FILES POINTED TO FIELDS
FEE BASIS VENDOR (#161.2) VENDOR (#.04)
INPUT TEMPLATE(S):
FBNH ENTER CONTRACT OCT 07, 1993@12:36 USER #705
Enter Contract Nursing Home contract information
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):