Global: ^FBAAV

FileMan FileNo	FileMan Filename	Package
161.2	FEE BASIS VENDOR	Fee Basis

Package	Total	Routines
Fee Basis	102	FBAA79 FBAACCB FBAACO1 FBAADEM1 FBAADV FBAAFED FBAAFS FBAAIAE FBAAIAR FBAAIAR1 FBAAIARB FBAAMST FBAAPH FBAAPIE FBAAPIN FBAAPLU FBAAPP FBAAPV FBAASLP FBAAV1 FBAAV6 FBAAVD FBAAVD1 FBAAVD3 FBAAVD4 FBAAVLU FBCHPRC FBCHVH FBCNHCEN FBCTV3 FBLTCAR FBMRASVR FBNHAMI2 FBNHAMIE FBNHEP FBNHEP1 FBNHPLT FBNPILK FBPAY2 FBPAY67 FBPCR3 FBPCR67 FBUC STATUS BY PATIENT FBUC STATUS BY VENDOR ^FB7078 FBUCOUT1 FBUCUTL2 FBVDISP FBXBIPS FBXIP36 ^FBAA(161.95 DATE/TIME OF LAST NPI CHANGE FB35P50 FBAAAV FBAACCB0 FBAACIE FBAAIARA FBAAIARC FBAAMPG1 FBAAMPRG FBAAPIE1 FBAAPPH FBAASL1 FBAAV0 FBAAV2 FBAAV5 FBAAV8 FBAAVD2 FBAAVP FBAAVS FBCHACT FBCHACT1 FBCHEP FBCHP78 FBCHSL1 FBCHSLP FBCHSTA FBCHSTAT FBCHVP FBCTV FBFPDS FBLTCAR2 FBMRASV1 FBMRASV2 FBNHEAU2 FBNHEXP FBNHRCS1 FBPAY3 FBPST35B FBUCUTL FBUTL135 FBXIP39 ^FB583 ^FBAA(162.1 ^FBAAV FBPCR2 FBPCR671 FBPST35C FBSHRAD SOCIOECONOMIC GROUP (FPDS) ^FBAA(162.2 ^FBAA(163.98
Registration	6	DGRUGIX DGRUGPI DGRUGPP DGRUGPP1 DGRUGS DGRUGU1
Kernel	1	XUXCTY

Package	Total	Routines
Fee Basis	35	FBAAAV FBAACLU FBAACO1 FBAADV FBAAIAE FBAAIAR FBAAIARB FBAAIAU FBAAMP FBAAPIE FBAAPLU FBAAUTL6 FBAAV1 FBAAVD FBAAVD2 FBAAVD3 FBAAVLU FBAAVP FBAAVS FBCHEP FBCHREQ1 FBCTV FBCTV3 FBFPDS FBMRASV1 FBMRASVR FBNHRAT FBNPILK FBPAID3A FBPAY FBPCR2 FBPRICE FBPST35B FBPST35C FBXIP108
Integrated Billing	2	IBFBWL2 IBFBWL3
Registration	1	DGRUGU1

Package	Total	FileMan Files
Fee Basis	13	FEE BASIS UNAUTHORIZED CLAIMS(#162.7)[1, 23] VA FORM 10-7078(#162.4)[1] FEE BASIS CNH CONTRACT(#161.21)[.04] FEE BASIS VENDOR CORRECTION(#161.25)[.01] FEE BASIS CONTRACT(#161.43)[#161.433(.01)] FEE CH REPORT OF CONTACT(#161.5)[1] IPAC VENDOR AGREEMENT FILE(#161.95)[1] FEE BASIS PHARMACY INVOICE(#162.1)[3] FEE NOTIFICATION/REQUEST(#162.2)[1] FEE BASIS PATIENT(#161)[#161.01(.04)] FEE BASIS PAYMENT(#162)[#162.01(.01)] FEE CNH ACTIVITY(#162.3)[8] FEE BASIS INVOICE(#162.5)[2]
Registration	1	PAF(#45.9)[70]

Package	Total	FileMan Files
Fee Basis	2	FEE BASIS SPECIALTY CODE(#161.6)[.05] FEE BASIS PARTICIPATION CODE(#161.81)[7]
Kernel	2	STATE(#5)[4] NEW PERSON(#200)[#161.24(.04)]
IFCAP	1	CODE INDEX(#420.6)[#161.225(.01)]

Fields, Total: 36

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>46!($L(X)<2)!'(X'?1P.E)!(X[", ") X I $D(X) S X=$$UP^FBAAUTL3(X) I $D(X),'$D(ZTQUEUED),'$D(^XUSEC("FBAA ESTABLISH VENDOR",DUZ)) K X W !!,7,"You do not have the required key to add a new vendor to the Vendor file!",` `!` LAST EDITED: `JAN 11, 1995` HELP-PROMPT: `ANSWER MUST BE 2-46 CHARACTERS IN LENGTH. YOU MUST BE ASSIGNED A KEY TO BE ABLE TO ADD A NEW VENDOR. IF USING FORMAT LAST,FIRST DO NOT INCLUDE SPACES AFTER COMMA.` DESCRIPTION: `Name of the private vendor/provider providing fee services.` DELETE TEST: `.01,0)= W !,7,"You cannot delete vendors from the DHCP Vendor file!!"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `161.2^B` `1)= S ^FBAAV("B",$E(X,1,46),DA)=""` `2)= K ^FBAAV("B",$E(X,1,46),DA)`
.05	SPECIALTY CODE	0;8	POINTER TO FEE BASIS SPECIALTY CODE FILE (#161.6)	FEE BASIS SPECIALTY CODE(#161.6) LAST EDITED: `MAY 01, 1986` DESCRIPTION: `The specialty code which describes this vendors area of expertise (ie Dermatology, Anesthesiology, Neurology). Valid codes are documented in M-1, Part I, chapter 18, Appendix A.`
.18	NUMBER OF CNH BEDS	1;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 01, 1993` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: `Indicates the number of Contract Nursing Home Beds for this vendor.`
1	ID NUMBER	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<9)!(+X=0)!(X'?9N.2AN) X` OUTPUT TRANSFORM: `S Y=$E(Y,1,3)_"-"_$E(Y,4,5)_"-"_$E(Y,6,99)` LAST EDITED: `JUN 10, 1994` HELP-PROMPT: `Answer must be 9-11 characters in length. Nine zeros is not a valid ID.` DESCRIPTION: `Provider's Federal ID Tax number. The first 9 characters of the ID number must be numeric. If the ID number is 11 characters long the 10th and 11th characters may be alphanumeric. An ID number of '000000000' is not valid.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `161.2^C` `1)= S ^FBAAV("C",$E(X,1,30),DA)=""` `2)= K ^FBAAV("C",$E(X,1,30),DA)` CROSS-REFERENCE: `161.2^BS^MUMPS` `1)= S ^FBAAV("BS",$E(X,6,9),DA)=""` `2)= K ^FBAAV("BS",$E(X,6,9),DA)` CROSS-REFERENCE: `161.2^AD1^MUMPS` `1)= S:$P(^FBAAV(DA,0),U,10) ^FBAAV("AD",X_$E("0000",$L($P(^(0),U,10))+1,4)_$P(^(0),U,10),DA)=""` `2)= K:$P(^FBAAV(DA,0),U,10) ^FBAAV("AD",X_$E("0000",$L($P(^(0),U,10))+1,4)_$P(^(0),U,10),DA)` `X-Ref used to update the AD X-Ref located on the Chain Store field. If Vendor Id is changed, the AD1 X-Ref will delete the associated AD X-Ref and add a new X-Ref (^FBAAV("AD",(VENDOR ID_CHAIN STORE),DA).` CROSS-REFERENCE: `161.2^E^MUMPS` `1)= S ^FBAAV("E",$E(X,1,9),DA)=""` `2)= K ^FBAAV("E",$E(X,1,9),DA)` `This cross-reference is on the base 9 of the Tax-ID number. It will group all alpha and numeric suffixes when the base 9 is typed in for look-up.`
2	STREET ADDRESS	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `First line of vendor's street address.`
2.5	STREET ADDRESS 2	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAR 24, 1986` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `Second line of vendor's street address.`
3	CITY	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>33!($L(X)<1) X` LAST EDITED: `OCT 21, 1993` HELP-PROMPT: `Answer must be 1-33 characters in length.` DESCRIPTION: `City in which the vendor's mailing address is located.`
4	STATE	0;5	POINTER TO STATE FILE (#5)	**********************REQUIRED FIELD********************** STATE(#5) LAST EDITED: `AUG 29, 1997` DESCRIPTION: `State in which the vendor's mailing address is located.` CROSS-REFERENCE: `^^TRIGGER^161.2^5.5` `1)= Q` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FBAAV(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" S DIH=$S($D(^FBAAV(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=161.2,DIG=5.5 D ^DICR:$O(^DD(DIH,DIG,1` `,0))>0` `2.4)= S DIH=$S($D(^FBAAV(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,12,99)) S DIH=DIH_U" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(0)=$P(DIH,U,1,12)_U_DIV_$S(%]"":U_%,1:""),DIH=161.2,DIG=5.5 D ^DICR:$N(^DD(DIH,DIG` `,1,0))>0` `CREATE VALUE)= NO EFFECT` `DELETE VALUE)= @` `FIELD)= #5.5`
5	ZIP CODE	0;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)<5!(X'?5N.E)!($L(X)>5&(X'?5N1"-"4N))!(X?5"0") X` LAST EDITED: `OCT 22, 1993` HELP-PROMPT: `Answer must be 5-10 characters in length in 12345-1234 format.` DESCRIPTION: `Zip Code in which the vendor's mailing address is located.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5.18	MAIL ROUTE CODE	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `MAR 01, 1993` HELP-PROMPT: `Answer must be 2 numerics in length.` DESCRIPTION: `This field will eventually be populated with the Postal Service mail router.` TECHNICAL DESCR: `This field will hold the "plus 2" in Zip+4+2.`
5.5	COUNTY	0;13	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S Z0=$S($P(^FBAAV(D0,0),"^",5)]"":$P(^(0),"^",5),1:0) K:'Z0 X Q:'Z0!'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEMN" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC` OUTPUT TRANSFORM: `S Y(0)=Y Q:Y']"" S Z0=$S($D(^FBAAV(D0,0)):+$P(^(0),"^",5),1:"") Q:'Z0 S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""),"^",1)` LAST EDITED: `SEP 16, 1993` HELP-PROMPT: `Enter the county or county code (whole number between 1 and 9999). The counties are based upon the value for STATE.` DESCRIPTION: `The County in which the vendor is located.` EXECUTABLE HELP: `S FBZD=D,X="?",Z0=$S($P(^FBAAV(D0,0),"^",5)]"":$P(^(0),"^",5),1:0) Q:'Z0!'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=FBZD K FBZD` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the STATE field of the FEE BASIS VENDOR File`
6	TYPE OF VENDOR	0;7	SET	**********************REQUIRED FIELD********************** '1' FOR PUBLIC HOSPITAL; '2' FOR PHYSICIAN; '3' FOR PHARMACY; '4' FOR PROSTHETICS; '5' FOR TRAVEL; '6' FOR RADIOLOGY; '7' FOR LABORATORY; '8' FOR OTHER; '9' FOR PRIVATE HOSPITAL; '10' FOR FEDERAL HOSPITAL; LAST EDITED: `AUG 17, 1990` DESCRIPTION: `Identifies the type of services this vendor provides. (ie HOSPITAL, PHYSICIAN, OR PHARMACY)`
7	PART CODE	0;9	POINTER TO FEE BASIS PARTICIPATION CODE FILE (#161.81)	**********************REQUIRED FIELD********************** FEE BASIS PARTICIPATION CODE(#161.81) LAST EDITED: `MAY 01, 1986` DESCRIPTION: `This field is a pointer to the Participation code file which is a description of the type of vendor.`
8	CHAIN	0;10	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<3)!(X'?3N.1N) X` LAST EDITED: `MAR 23, 1993` HELP-PROMPT: `Answer must be 3-4 numerics.` DESCRIPTION: `This is a number that pharmacies use to identify multiple stores in the chain.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `161.2^AD^MUMPS` `1)= S:$P(^FBAAV(DA,0),U,2) ^FBAAV("AD",$P(^(0),U,2)_$E("0000",$L(X)+1,4)_X,DA)=""` `2)= K:$P(^FBAAV(DA,0),U,2) ^FBAAV("AD",$P(^(0),U,2)_$E("0000",$L(X)+1,4)_X,DA)` `Sets up mumps X-Ref on the Chain Store field using vendor id_chain store combination. Used for lookups for pharmacy vendors when receiving MRA's back from Austin.`
9	AUSTIN DELETED	ADEL;1	SET	'Y' FOR YES; LAST EDITED: `FEB 23, 1993` DESCRIPTION: `This is a flag that is set by the fee software when a delete vendor master record adjustment is transmitted to Austin.`
12	DATE LAST CORRECTION TO AUSTIN	ADEL;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 09, 1993` DESCRIPTION: `This field contains the date the last master record adjustment was sent to Austin for this vendor.` TECHNICAL DESCR: CROSS-REFERENCE: `161.2^AC` `1)= S ^FBAAV("AC",$E(X,1,30),DA)=""` `2)= K ^FBAAV("AC",$E(X,1,30),DA)` `Allows for the retrieval of when the last correction was sent to Austin via master record transaction.`
12.1	DATE LAST UPDATE FROM AUSTIN	ADEL;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 28, 1993` HELP-PROMPT: `Date the last master record adjustment was received from Austin for this vendor.` DESCRIPTION: `This field contains the date the last master record adjustment was received from Austin for this vendor.` `This field is updated as the record is processed by the server.`
13	DATE OF AUSTIN DELETE	ADEL;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 23, 1993` DESCRIPTION: `This field contains the date that a delete master record transaction was sent to Austin, for this vendor.`
13.1	STATION AFFECTING LAST CHANGE	ADEL;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `NOV 30, 1994` HELP-PROMPT: `Answer must be 3 numerics in length.` DESCRIPTION: `This field stores the station number that made the last change to the vendor. If the station number is set to '000', that means the change was picked up off the 'VLOG' file in Austin and affected by a non-fee system.`
14	PHONE NUMBER	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `JUN 02, 1987` HELP-PROMPT: `ANSWER MUST BE 3-20 CHARACTERS IN LENGTH` DESCRIPTION: `This field allows the user to enter the telephone number of the vendor.`
18	INSPECTED/ACCREDITED	1;4	SET	**********************REQUIRED FIELD********************** 'I' FOR INSPECTED BY VA; 'A' FOR ACCREDITED BY JCAH; 'B' FOR BOTH INSPECTED AND ACCREDITED; LAST EDITED: `SEP 02, 1988` DESCRIPTION: `This field allows the user to track the status of the CNH as of the last assesment.`
19	CERTIFIED MEDICARE/MEDICAID	1;5	SET	**********************REQUIRED FIELD********************** '1' FOR NOT CERTIFIED FOR EITHER; '2' FOR CERTIFIED FOR MEDICARE; '3' FOR CERTIFIED FOR MEDICAID; '4' FOR CERTIFIED FOR BOTH; LAST EDITED: `MAY 14, 1990` DESCRIPTION: `Indicates that the Nursing Home has been certified by Medicare/Medicaid.`
20	DATE OF LAST ASSESSMENT	1;6	DATE	INPUT TRANSFORM: `S %DT="EX",%DT(0)="-"_DT D ^%DT K %DT S X=Y K:Y<1 X` LAST EDITED: `MAY 14, 1990` DESCRIPTION: `The date that the nursing home was last evaluated by either a partial or full VA team.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
22	MEDICARE ID NUMBER	0;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6) X` LAST EDITED: `JUL 13, 1994` HELP-PROMPT: `Answer must be 6 characters in length.` DESCRIPTION: `The Medicare Provider ID number assigned to this vendor.`
23	FAX NUMBER	1;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 11, 1994` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `This field allows the user to enter the fax number of the vendor.`
24	BUSINESS TYPE (FPDS)	1;10	SET	'1' FOR SMALL BUSINESS; '2' FOR LARGE BUSINESS; '3' FOR OUTSIDE U.S.; '4' FOR OTHER ENTITIES; LAST EDITED: `JUL 31, 1997` HELP-PROMPT: `Enter FPDS Business Type for FPDS reports.` DESCRIPTION: `Business type for FPDS reporting purposes.`
25	SOCIOECONOMIC GROUP (FPDS)	2;0	POINTER Multiple #161.225	161.225 SCREEN: `S DIC("S")="I Y>155,Y<167"` EXPLANATION: `Select from groups appropriate for the business type.`
30.01	AUSTIN NAME FIELD	AMS;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X` LAST EDITED: `MAR 09, 1993` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This field is populated by the software. It reflects the vendor name as it is on the centralized Austin databases.` TECHNICAL DESCR: `This field is populated by the background server. It contains the vendor name as entered into the FMS vendor table in Austin. Until this field is populated, no payments can be sent to Austin for processing.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `161.2^D` `1)= S ^FBAAV("D",$E(X,1,30),DA)=""` `2)= K ^FBAAV("D",$E(X,1,30),DA)` `This field, populated by the data returned from Austin contains a match with central fee and FMS name fields. It will allow the user to lookup vendors both ways.`
30.02	PRICER EXEMPT	AMS;2	FREE TEXT	INPUT TRANSFORM: `I $D(X) D YN^FBAAUTL3` OUTPUT TRANSFORM: `D OUTYN^FBAAUTL3` LAST EDITED: `MAR 18, 1994` HELP-PROMPT: `Answer 'Yes' or '1' for YES and a 'No' or '0' for NO.` DESCRIPTION: `There are certain vendors that are exempt from the medicare payment methodology and are paid at a percentage of what is claimed.` TECHNICAL DESCR: `This flag will tell the software that any inpatient payments made to this vendor will not pass through the Austin Pricer system.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
30.03	1099 VENDOR	AMS;3	FREE TEXT	INPUT TRANSFORM: `I $D(X) D YN^FBAAUTL3` OUTPUT TRANSFORM: `D OUTYN^FBAAUTL3` LAST EDITED: `MAR 18, 1994` HELP-PROMPT: `Answer 'Yes' or '1' for YES and a 'No' or '0' for NO.` DESCRIPTION: `This is a flag that tells the central vendor unit is Austin whether or not a 1099 tax form should be sent to the vendor. At this time a decision from finance is that all Fee vendors are 1099 vendors.` TECHNICAL DESCR: `This is a flag, that will always be set to yes currrently. If finance should change their position on 1099 vendors, this flag will be used to notify Austin which vendors should receive 1099s.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
30.04	FMS VENDOR TYPE	AMS;4	SET	'C' FOR commercial; 'I' FOR individual; 'F' FOR federal; LAST EDITED: `MAR 01, 1993` DESCRIPTION: `This field is sent with other vendor data to let the central vendorizing unit know the type of vendor for the FMS vendor table.` TECHNICAL DESCR: `This set of codes that will be determined by field 6 ('Type of Vendor'). It is a manditory data element with the FMS vendor table.`
30.05	PROVIDER CODE	AMS;5	SET	'B' FOR both; 'V' FOR vendor only; 'P' FOR provider only; LAST EDITED: `MAR 01, 1993` DESCRIPTION: `This flag is a mandatory field on the FMS vendor table. Choices are V for VENDOR ONLY, P for PROVIDER ONLY or B for both. All Fee vendors are classified as both.` TECHNICAL DESCR: `Currently always set to 'B' by the software.`
30.06	TAX ID/SSN FLAG	AMS;6	SET	**********************REQUIRED FIELD********************** 'T' FOR TAX ID NUMBER; 'S' FOR SSN NUMBER; LAST EDITED: `MAR 05, 1993` DESCRIPTION: `This field will be populated and sent to central vendorizing unit to notify the IRS if the 'ID NUMBER' is a Tax ID number or the vendor's SSN number.` TECHNICAL DESCR: `Flag used by the FMS vendor table to know if the ID NUMBER sent to the table is a TAX ID number or SSN number.`
40	DATE/TIME OF LAST NPI CHANGE	NPI;0	DATE Multiple #161.24	161.24
41.01	NPI	3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10)!('$$CHKDGT^XUSNPI(X))!($$DUP^FBNPILK(X)>0) X` LAST EDITED: `SEP 13, 2006` HELP-PROMPT: `Answer must be a unique 10 character numeric value and a valid NPI number.` DESCRIPTION: `Unique National Provider Identifier. A unique integer assigned to providers by CMS. This is the current, active, NPI.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `161.2^NPI` `1)= S ^FBAAV("NPI",$E(X,1,30),DA)=""` `2)= K ^FBAAV("NPI",$E(X,1,30),DA)` CROSS-REFERENCE: `161.2^NPIHISTORY` `1)= S ^FBAAV("NPIHISTORY",$E(X,1,30),DA)=""` `2)= K ^FBAAV("NPIHISTORY",$E(X,1,30),DA)` `3)= An entry into the NPI History cross reference should not be deleted` `This cross reference holds the entire history of the NPIs used in the Fee Basis Vendor file`
42	TAXONOMY CODE	3;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<10) X` LAST EDITED: `APR 22, 2011` HELP-PROMPT: `Answer must be 10 characters in length.` DESCRIPTION: `Enter the Vendor's Taxonomy code. This value must be 10 characters.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #1530	Registration	PART CODE (7). Access: Direct Global Read & w/Fileman AUSTIN DELETED (9). Access: Direct Global Read & w/Fileman	A variable pointer from PIMS file PAF (#45.9), fieldLOCATION (#70) with a DIC("S") screen that will only allow CNH vendors thathave not been deleted by Austin.
ICR #5278	Fee Basis
ICR #6398	Integrated Billing	NPI (41.01). Access: Read w/Fileman TAXONOMY CODE (42). Access: Read w/Fileman

Name	Field # of Occurrence
^%DT	12+1, 12.1+1, 13+1, 20+1
^DIC	5.5+1, 5.5(HELP )
^DICR	4(XREF 1K), 4(XREF 1n2.4)
$$UP^FBAAUTL3	.01+1
OUTYN^FBAAUTL3	30.02OT+1, 30.03OT+1
YN^FBAAUTL3	30.02+1, 30.03+1
$$DUP^FBNPILK	41.01+1
^FBVDISP	IDWRITE+1
$$CHKDGT^XUSNPI	41.01+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	4(XREF 1K), 4(XREF 1n2.4)
^DIC(5 - [#5]	5.5+1, 5.5OT+1, 5.5(HELP )
^FBAAV - [#161.2]	1(XREF 3S), 1(XREF 3K), 4(XREF 1K), 4(XREF 1n2.4), 5.5+1, 5.5OT+1, 5.5(HELP ), 8(XREF 1S), 8(XREF 1K)
^FBAAV("AC"	12(XREF 1S), 12(XREF 1K)
^FBAAV("AD"	1(XREF 3S), 1(XREF 3K), 8(XREF 1S), 8(XREF 1K)
^FBAAV("B"	.01(XREF 1S), .01(XREF 1K)
^FBAAV("BS"	1(XREF 2S), 1(XREF 2K)
^FBAAV("C"	1(XREF 1S), 1(XREF 1K)
^FBAAV("D"	30.01(XREF 1S), 30.01(XREF 1K)
^FBAAV("E"	1(XREF 4S), 1(XREF 4K)
^FBAAV("NPI"	41.01(XREF 3S), 41.01(XREF 3K)
^FBAAV("NPIHISTORY"	41.01(XREF 4S), 41.01(XREF 4K)
^XUSEC("FBAA ESTABLISH VENDOR"	.01+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	4(XREF 1n2.4)
%DT	12+1, 12.1+1, 13+1, 20+1!
%DT(0	20+1*
>> D	5.5(HELP )
>> D0	4(XREF 1K), 5.5+1, 5.5OT+1, 5.5(HELP )
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K), 1(XREF 4S), 1(XREF 4K) , 4(XREF 1K), 8(XREF 1S), 8(XREF 1K), 12(XREF 1S), 12(XREF 1K), 30.01(XREF 1S), 30.01(XREF 1K), 41.01(XREF 3S), 41.01(XREF 3K), 41.01(XREF 4S) , 41.01(XREF 4K)
DIC	5.5+1*!, 5.5(HELP )
DIC(0	5.5+1*, 5.5(HELP )
>> DIE	5.5(HELP )
>> DIG	4(XREF 1K), 4(XREF 1n2.4)
>> DIH	4(XREF 1K), 4(XREF 1n2.4)
>> DIU	4(XREF 1K), 4(XREF 1n2.4)
DIV	4(XREF 1K), 4(XREF 1n2.4)
DIV(0	4(XREF 1K), 4(XREF 1n2.4)
DT	20+1
DUZ	.01+1
FBZD	5.5(HELP )
U	1(XREF 3S), 1(XREF 3K), 4(XREF 1K), 4(XREF 1n2.4), 8(XREF 1S), 8(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .18+1!, 1+1!, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S) , 1(XREF 3K), 1(XREF 4S), 1(XREF 4K), 2+1!, 2.5+1!, 3+1!, 4(XREF 1K), 4(XREF 1n2.4), 5+1!, 5.18+1! , 5.5+1!, 5.5(HELP ), 8+1!, 8(XREF 1S), 8(XREF 1K), 12+1!, 12(XREF 1S), 12(XREF 1K), 12.1+1!, 13+1! , 13.1+1!, 14+1!, 20+1!, 22+1!, 23+1!, 30.01+1!, 30.01(XREF 1S), 30.01(XREF 1K), 30.02+1, 30.03+1 , 41.01+1!, 41.01(XREF 3S), 41.01(XREF 3K), 41.01(XREF 4S), 41.01(XREF 4K), 42+1!
Y	1OT+1, 4(XREF 1K), 5.5+1, 5.5OT+1, 12+1, 12.1+1, 13+1, 20+1, 30.02OT+1, 30.03OT+1
Y(0	1OT+1, 5.5OT+1, 30.02OT+1, 30.03OT+1
Y(1	4(XREF 1K)
Z0	5.5+1!, 5.5OT+1, 5.5(HELP )
>> ZTQUEUED	.01+1

Customize PDF page

Package: Fee Basis

Global: ^FBAAV

Information

Description

Directly Accessed By Routines, Total: 109

Accessed By FileMan Db Calls, Total: 38

Pointed To By FileMan Files, Total: 14

Pointer To FileMan Files, Total: 5

Fields, Total: 36

ICR, Total: 3

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: