Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^FBAAV

Package: Fee Basis

Global: ^FBAAV


Information

FileMan FileNo FileMan Filename Package
161.2 FEE BASIS VENDOR Fee Basis

Description

Directly Accessed By Routines, Total: 108

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

Accessed By FileMan Db Calls, Total: 38

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    

Pointed To By FileMan Files, Total: 14

Package Total FileMan Files
Fee Basis 13 FEE BASIS UNAUTHORIZED CLAIMS(#162.7)[123]    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]    

Pointer To FileMan Files, Total: 5

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, Total: 3

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

    External References

    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

    Global Variables Directly Accessed

    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

    Naked Globals

    Name Field # of Occurrence
    ^(0 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)

    Local Variables

    Legend:

    >> 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
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All