STANDARD DATA DICTIONARY #161.25 -- FEE BASIS VENDOR CORRECTION FILE 9/29/25 PAGE 1
STORED IN ^FBAA(161.25, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains those vendors whose master record information has changed and which must be sent to the Austin Centralized Fee system for
updating the master record data.
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: #
CROSS
REFERENCED BY: NON PHARMACY TYPE OF CORR(AC), DATE TRANSMITTED(AD), PHARMACY TYPE ACTION(AE), LINKED VENDOR(AF), NAME(B)
161.25,.01 NAME 0;1 POINTER TO FEE BASIS VENDOR FILE (#161.2) (Required)
INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: MAR 24, 1993
DESCRIPTION:
Vendor to whom this master record adjustment pertains.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 161.25^B
1)= S ^FBAA(161.25,"B",$E(X,1,30),DA)=""
2)= K ^FBAA(161.25,"B",$E(X,1,30),DA)
161.25,1 PHARMACY TYPE ACTION 0;2 SET
'N' FOR NEW;
'C' FOR CHANGE;
'D' FOR DELETE;
'R' FOR REINSTATE;
'F' FOR FPDS ONLY CHANGE;
LAST EDITED: AUG 26, 1997
DESCRIPTION:
For pharmacy type vendors, the type of MRA transaction (ie new, change) is entered here.
CROSS-REFERENCE: 161.25^AE^MUMPS
1)= S:$P(^FBAA(161.25,DA,0),U,5)="" ^FBAA(161.25,"AE","P",DA)=""
2)= K ^FBAA(161.25,"AE","P",DA)
This cross-reference is used to determine which vendors need to be transmitted to Austin. It is
deleted when data is transmitted.
161.25,2 NON PHARMACY TYPE OF CORR 0;3 SET (Required)
'N' FOR NEW;
'C' FOR CHANGE;
'D' FOR DELETED;
'R' FOR REINSTATE;
'F' FOR FPDS ONLY CHANGE;
LAST EDITED: AUG 26, 1997
DESCRIPTION: For non-pharmacy type vendors, the master record adjustment transaction type (ie new,change) is
entered here.
CROSS-REFERENCE: 161.25^AC^MUMPS
1)= S:$P(^FBAA(161.25,DA,0),U,5)="" ^FBAA(161.25,"AE","O",DA)=""
2)= K ^FBAA(161.25,"AE","O",DA)
This cross-reference is used to determine which vendors need to be transmitted to Austin. It is
deleted when data is transmitted.
161.25,3 FEE ONLY INDICATOR 0;4 SET
'Y' FOR YES;
LAST EDITED: MAR 24, 1993
DESCRIPTION: If the data to be changed should ONLY affect the Central Fee file and not the CALM file, this field
must be set.
161.25,4 DATE TRANSMITTED 0;5 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 24, 1993
DESCRIPTION:
The date that the last master record adjustment for this vendor was transmitted to Austin.
CROSS-REFERENCE: 161.25^AD^MUMPS
1)= S ^FBAA(161.25,"AD",$E(X,1,30),$S($P(^FBAA(161.25,DA,0),U,2)]"":"P",1:"O"),DA)=""
2)= K ^FBAA(161.25,"AD",$E(X,1,30),$S($P(^FBAA(161.25,DA,0),U,2)]"":"P",1:"O"),DA)
This cross-reference is used when exercising the purging of MRA's for a transmitted dated range.
It is also used in the retransmit MRA's for a date.
161.25,5 LINKED VENDOR 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 17, 1993
HELP-PROMPT: Type a Number between 0 and 99999999999999, 0 Decimal Digits
DESCRIPTION: If the vendor correction is a change, this entry will contain the internal entry number of the
vendor the change was originated from. This will allow for reference to the original vendor, if
Austin processes the record and indicates the two vendors are the same.
CROSS-REFERENCE: 161.25^AF
1)= S ^FBAA(161.25,"AF",$E(X,1,30),DA)=""
2)= K ^FBAA(161.25,"AF",$E(X,1,30),DA)
Cross-reference on Linked Vendor field to determine what vendor this change was made from.
FILES POINTED TO FIELDS
FEE BASIS VENDOR (#161.2) NAME (#.01)
INPUT TEMPLATE(S):
FBAA VENDOR MRA AUG 16, 1993@13:53 USER #10116
Create a vendor MRA to send to Austin
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):