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 | Pointer To FileMan Files | Fields | ICR | All

Print Page as PDF

Global: ^FBAA(161.25

Package: Fee Basis

Global: ^FBAA(161.25

Information

FileMan FileNo	FileMan Filename	Package
161.25	FEE BASIS VENDOR CORRECTION	Fee Basis

Description

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.

Accessed By FileMan Db Calls, Total: 6

Pointer To FileMan Files, Total: 1

Fields, Total: 6

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO FEE BASIS VENDOR FILE (#161.2)	**********************REQUIRED FIELD********************** FEE BASIS VENDOR(#161.2) 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)`
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.`
2	NON PHARMACY TYPE OF CORR	0;3	SET	**********************REQUIRED FIELD********************** '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.`
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.`
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.`
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.`

ICR, Total: 1

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | All