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 |  Found Entries |  All
Print Page as PDF
Global: ^AUTTVNDR

Package: Utility Tables

Global: ^AUTTVNDR


Information

FileMan FileNo FileMan Filename Package
9999999.11 VENDOR Utility Tables

Description

Directly Accessed By Routines, Total: 245

Package Total Routines
Contract Health Management Information System 90 ACHS278    ACHSA1    ACHSA3    ACHSADTR    ACHSAJ1    ACHSCHF    ACHSCPTF    ACHSCPTH
ACHSCPTI    ACHSDADP    ACHSDAR5    ACHSDN1    ACHSDN3    ACHSDNDP    ACHSDNL    ACHSDNL1
ACHSDNL2    ACHSDNL5    ACHSDOCR    ACHSDPVO    ACHSDSF    ACHSDST    ACHSDSTE    ACHSDSTL
ACHSEOBA    ACHSEOBE    ACHSGAO    ACHSHLG    ACHSHV01    ACHSHV04    ACHSHVR2    ACHSHVT0
ACHSIC3    ACHSMD0    ACHSMD2    ACHSMD2D    ACHSOCV1    ACHSOCV2    ACHSOCVD    ACHSODP1
ACHSPA0    ACHSPAC    ACHSPAZ    ACHSPDC    ACHSPDC1    ACHSRP2    ACHSRPF1    ACHSSIG1
ACHSSIG2    ACHSSIGA    ACHSSIGB    ACHSSVRP    ACHSSVRQ    ACHSTX2    ACHSTX4    ACHSTX44
ACHSTX5    ACHSTX55    ACHSTX6    ACHSTX7    ACHSTX77    ACHSTX7X    ACHSTXA1    ACHSTXF
ACHSTXFT    ACHSTXP2    ACHSTXUT    ACHSUCN    ACHSUDF    ACHSURT    ACHSVDC    ACHSVDF
ACHSVDV    ACHSVDV1    ACHSVDV2    ACHSVDVA    ACHSVDVD    ACHSVLB    ACHSVND    ACHSVNDR
ACHSVUR    ACHSVUR2    ACHSVURT    ACHSWDCS    ACHSWFRS    ACHSWVEN    ACHSYDRV    ACHSYPVR
DOCUMENT    HIGH VOLUME PROVIDERS    
Commitment Register 86 ACR101    ACR103    ACR148    ACR1481    ACR326    ACR349    ACRCD1    ACRCD16
ACRF1449    ACRF26    ACRF33    ACRF347    ACRFACC    ACRFAPVS    ACRFCIS    ACRFDHR
ACRFDT    ACRFEA43    ACRFEVA1    ACRFEVX1    ACRFEXP2    ACRFEXP3    ACRFEXP4    ACRFFF2
ACRFIRS1    ACRFIRS2    ACRFIRS4    ACRFIRS5    ACRFIRS6    ACRFIRS7    ACRFIRSA    ACRFIRSF
ACRFIV12    ACRFIV4    ACRFIVD    ACRFIVDX    ACRFJS    ACRFPAY    ACRFPAY2    ACRFPAY3
ACRFPAY4    ACRFPAY5    ACRFPAY6    ACRFPAY7    ACRFPAY8    ACRFPAY9    ACRFPAYL    ACRFPAYR
ACRFPAYU    ACRFPCC    ACRFPITM    ACRFPO    ACRFPOL    ACRFPQT    ACRFPRC5    ACRFPSC
ACRFPSS    ACRFRR1    ACRFRR11    ACRFSS2    ACRFSSD    ACRFSTOK    ACRFUFM2    ACRFUFM4
ACRFUFMC    ACRFUFMD    ACRFUFMU    ACRFVCTR    ACRFVEN    ACRFVLK    ACRFVLK3    ACRPBI
ACRPCC    ACRPCCV    ACRPII    ACRPOH    ACRPOL    ACRPPO    ACRPPOA    ACRPQT
ACRPRVN    ACRPSS    ACRPTE    ACRPTRG    ACRPVND    ACRRR    
Referred Care Information System 23 BMC    BMCADD1    BMCFDR2    BMCFDR3    BMCFPRN    BMCFPRN2    BMCFPRNP    BMCFUTL
BMCLKID    BMCMINI    BMCRLU    BMCRPC3    BMCRRSP1    BMCRRSPP    BMCRTC1    BMCVDV
BMCVDV1    BMCVDV2    BMCVDVA    BMCVDVD    BMCVUCN    BMCVURT    ^BMCPROV    
Contracts and Grants 11 ACGPO    ACGPSPD    ACGPVND    ACGSNC    ACGSSPR    ACGSTAR1    ACGSTART    ACGSVCTR
ACGSVEND    ACGSVGL    ACGSVITG    
Third Party Billing 8 ABMDE301    ABMDE31    ABMDE3C    ABME5N3    ABME5N4    ABME8N3    ABME8N4    ABME8NM1
NCR Financial System 7 AFSLCKSQ    AFSLDRV    AFSLDRVE    AFSLRTT1    AFSLRTTX    AFSLTT1    AFSLVNV    
Utility Tables 7 AUTPVND    AUTPVND1    AUTSVND    AUTTVLK    AUTTVND2    AUTTVNDR    AUTVDUP    
Patient Chart 4 BPCRC2    BPCRC3    BPCRC5    BPCRC7    
Quality Assurance 4 AQAOPC80    AQAOPV22    AQAOPV23    AQAOT30    
IHS Release Of Information 1 BRN    
Local Area Programs 1 AZAXVL    
PCC Medical Query 1 AMQQMUL1    
Phoenix Devel Center 1 AZXA    
Supply 1 ASUWSND1    

Accessed By FileMan Db Calls, Total: 49

Package Total Routines
Commitment Register 17 ACRFAUTO    ACRFDT    ACRFEA42    ACRFIRS4    ACRFIRS7    ACRFIRS8    ACRFPAY2    ACRFPAY4
ACRFPAY8    ACRFPAYL    ACRFPQT    ACRFRR    ACRFRR1    ACRFSTOK    ACRFUFMD    ACRFUFMU
ACRFVLK    
Contract Health Management Information System 16 ACHS278    ACHSA1    ACHSACO1    ACHSDPVO2    ACHSHLGQ    ACHSHVRC    ACHSSVRP    ACHSTXUT
ACHSVDC    ACHSVDF    ACHSVDV    ACHSVDVA    ACHSVDVD    ACHSVLB    ACHSVPS    ACHSVUR2
Referred Care Information System 8 BMCAPIS    BMCRPC1    BMCRPC2    BMCRPC3    BMCRR1    BMCVDV    BMCVDVA    BMCVDVD
Contracts and Grants 4 ACGSIMP2    ACGSTAR1    ACGSUTIL    ACGSVEND    
NCR Financial System 1 AFSLVIEW    
Quality Assurance 1 AQACVNDR    
Supply 1 ASUJHELP    
Utility Tables 1 AUTTVLK    

Pointed To By FileMan Files, Total: 35

Package Total FileMan Files
Commitment Register 9 ARMS 1099 VENDOR(#9002198.2)[.01]    FMS DOCUMENT(#9002196)[103070, 103950, 103970, 103980, 148181, #9002196.09(.01)]    ARMS VENDOR DISCOUNT TERMS(#9002198.1)[.01]    FMS INVOICE TRACKING(#9002190.1)[.06]    ARMS STANDARD ITEM(#9002195)[24]    FMS REQUEST(#9002189)[100]    FMS APPROVALS FOR PAYMENT(#9002194.2)[16]    FMS SUPPLIES AND SERVICES(#9002193)[20, 141, 143]
FMS SYSTEM DEFAULTS(#9002199.2)[52, 501.1]    
Contract Health Management Information System 7 CHS AREA OFFICE PARAMETERS(#9002079)[#9002079.021(.01)]    CHS ALTERNATE RESOURCES(#9002072.1)[8]    CHS DENIAL DATA(#9002071)[#9002071.01(102), #9002071.02(.01)]    CHS NON-PROCESSED EOBRS(#9002065)[24]    CHS FACILITY(#9002080)[#9002080.01(7), #9002080.018(.01)]    CHS HV NOTIFICATION LOG(#9002078)[.01]    CHS VENDOR PAYMENTS(#9002075)[#9002075.01(.01)]    
IHS Patient 3 SPENDDOWN INFORMATION(#9000047)[#9000047.11(.02)]    V CHS(#9000010.03)[.14]    V EMERGENCY VISIT RECORD(#9000010.29)[.16]    
Referred Care Information System 3 RCIS SECONDARY REFERRAL(#90001.04)[.05]    RCIS REFERRAL(#90001)[.07, #90001.41(.09), #90001.44(.01)]
RCIS ROUTINE REFERRAL DEF(#90001.32)[.07]    
Third Party Billing 3 3P BILL(#9002274.4)[.127]    3P CLAIM DATA(#9002274.3)[.127]    3P REFERENCE LAB LOCATIONS(#9002274.35)[.01]    
Contracts and Grants 2 CIS CONTRACTS AND GRANTS EXPORT(#9002336)[1005, 1054]    CIS CONTRACTS AND GRANTS(#9002330)[1005, 1054]    
Quality Assurance 2 QA CHS ADMISSION(#9002157)[1]    QI OCC PROVIDER(#9002166.7)[.01]    
Supply 2 ASUHST HISTORY TRANSACTIONS(#9002036)[.18]    ASUTRN STATION(#9002036.5)[.19]    
3780 Telecommunications 1 1166 APPROVALS FOR PAYMENT(#9002325)[#9002325.02(16), #9002325.02(65)]    
GUI Objects 1 BGO WEB LINKS(#90362.21)[#90362.2111(.01)]    
IHS Accounts Receivable 1 A/R ACCOUNTS/IHS(#90050.02)[.01]    
Utility Tables 1 VENDOR(#9999999.11)[1124]    

Pointer To FileMan Files, Total: 10

Package Total FileMan Files
Utility Tables 5 GEOGRAPHICAL LOCATION(#9999999.79)[1125]    SIZE OF SMALL BUSINESS(#9999999.81)[1118]    TYPE OF BUSINESS(#9999999.76)[1126]    VENDOR(#9999999.11)[1124]    VENDOR TYPE(#9999999.34)[1103]    
Kernel 4 STATE(#5)[1303, 1308, 1404]
PROVIDER CLASS(#7)[1103.01]    PACKAGE(#9.4)[#9999999.112001(.01)]    PERSON CLASS(#8932.1)[#9999999.112201(.03)]    
Health Level Seven 1 COUNTRY CODE(#779.004)[2401, 2402, 2403]

Fields, Total: 83

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 09, 2010
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    ENTER THE VENDOR NAME
  • DELETE TEST:  .01,0)= I 1
    1,0)= I 1 W !!,*7,"VENDORS cannot be deleted except by a programmer.",!
  • LAYGO TEST:  1,0)= D NAME^AUTTVNDR
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9999999.11^B
    1)= S ^AUTTVNDR("B",$E(X,1,30),DA)=""
    2)= K ^AUTTVNDR("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9999999.11^AD^MUMPS
    1)= D TRIGGER^AUTTVLK
    2)= Q
  • CROSS-REFERENCE:  9999999.11^G^KWIC
    1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^AUTTVNDR("G",I,DA)=""
    2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^AUTTVNDR("G",I,DA)
    3)= DON'T DELETE THIS X-REF.
    Used in an attempt to prevent duplicate entries of vendors.
  • CROSS-REFERENCE:  9999999.11^AE^MUMPS
    1)= S ^AUTTVNDR("ASX",$$^AUTTVND1(X),DA)=""
    2)= K ^AUTTVNDR("ASX",$$^AUTTVND1(X),DA)
.02 SHORT NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  OCT 24, 2005
  • HELP-PROMPT:  Answer must be 3-35 characters in length
  • TECHNICAL DESCR:  
    Added to Vendor file in support of reporting to CORE. LSL 10/24/05
.03 'DOING BUSINESS AS' NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  OCT 24, 2005
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • TECHNICAL DESCR:  
    Added to Vendor File in support of reporting to jDCIS.  LSL 10/24/05
.05 DATE INACTIVATED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND TODAY
.06 BUSINESS SIZE 0;6 SET
  • 'S' FOR SMALL;
  • 'L' FOR LARGE;

  • LAST EDITED:  APR 01, 1995
.07 DUNS 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<9) X
  • LAST EDITED:  AUG 21, 2006
  • HELP-PROMPT:  Answer must be 9 or 13 digits in length
  • DESCRIPTION:  The D-U-N-S Number: A globally recognized Data Universal Numbering System uses a unique 9-digit number to identify a specific business location, access it in the D&B information base and link it to parent companies,
    subsidiaries and branches throughout the life of the business.  The United Nations has endorsed D&B's D-U-N-S Number as a information standard for business identification in cross-border Electronic Data Interchange (EDI)
    transactions.
    The D-U-N-S  Number is also recognized as a standard business identifier by:
    American National Standards Institute (ANSI)
    International Standards Organization (ISO)
    Over 50 global industry associations
  • TECHNICAL DESCR:  The URL for info on the DUNS number is at:
    http://www.dnb.com/dunsno/dunsno.htm
    Here's an excerpt from that site, as of June 30, 2000:
    In today's global economy, D&B's Data Universal Numbering System, the D&B D-U-N-S Number, has become the standard for keeping track of the world's businesses. Its unique nine-digit code helps you identify and link more
    than 57 million companies worldwide.
    What is a D&B D-U-N-S Number?
    The D&B D-U-N-S Number is D&B's distinctive nine-digit identification sequence, which links you to a wealth of quality information products and services originating exclusively from D&B. The D&B D-U-N-S Number is an
    internationally recognized common company identifier in EDI and global electronic commerce transactions.
    The world's most influential standards-setting organizations, more than 50 global, industry and trade associations, and the U.S. Federal Government recognize, recommend and/or require the D&B D-U-N-S Number.
    D&B D-U-N-S Numbers are the key to building corporate family relationships in the D&B file. Since each location of a business may have its own unique D&B D-U-N-S Number, a large organization is likely to have many
    different D&B D-U-N-S Numbers within its corporate "family." D&B links the D&B D-U-N-S Numbers of parents, subsidiaries, headquarters and branches on more than 57 million corporate family members around the world.
  • CROSS-REFERENCE:  9999999.11^H
    1)= S ^AUTTVNDR("H",$E(X,1,30),DA)=""
    2)= K ^AUTTVNDR("H",$E(X,1,30),DA)





.08
DUNS CCR VERIFIED
0;8
SET

  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'M' FOR MANUAL ENTRY;
  • LAST EDITED:  JUL 13, 2006
  • DESCRIPTION:  
    Indicates whether the DUNS entry came from the CCR file.  Yes means it has been electronically updated.  M(anual) means the DUNS was manually entered. N(o) or null means not verified.





1101
EIN NO.
11;1
FREE TEXT 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:($L(X)>10!($L(X)<10)!(12'[$E(X))) X D:$D(X) EIN^AUTTVNDR
  • LAST EDITED:  MAY 02, 2006
  • HELP-PROMPT:  Answer must be 10 characters in length.  The first character must be '1' for an organization or '2' for an individual followed by the 9 digit Social Security or Tax Identification Number.
  • DESCRIPTION:  The EIN NO. is the Entity Identification Number for the organization or individual.  This should be the IRS Tax Identification Number for an organization or the Social Security Number for an individual prefixed by a '1' to
    indicate that the entry is for an organization or prefixed by a '2' to indicate the the entry is for an individual.
    If you don't have the official EIN NO. contact the vendor to get the correct information or enter an interim EIN NO.
  • GROUP:  CHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9999999.11^C
    1)= S ^AUTTVNDR("C",$E(X,1,30),DA)=""
    2)= K ^AUTTVNDR("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.11^1102.01
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9999999.11,1101,1,2,1.1) X ^DD(9999999.11,1101,1,2,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=DIV_$P(Y(1),U,2)
    1.4)= S DIH=$S($D(^AUTTVNDR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,13)=DIV,DIH=9999999.11,DIG=1102.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(9999999.11,1101,1,2,2.4)
    2.4)= S DIH=$S($D(^AUTTVNDR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,13)=DIV,DIH=9999999.11,DIG=1102.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= EIN NO._EIN SUFFIX
    DELETE VALUE)= @
    FIELD)= EIN NO. AND SUFFIX
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.11^1119
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=DIV,X=$E(X) S DIH=$G(^AUTTVNDR(DIV(0),11)),DIV=X S $P(^(11),U,19)=DIV,DIH=9999999.11,DIG=1119 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X="" S DIH=$G(^AUTTVNDR(DIV(0),11)),DIV=X S $P(^(11),U,19)=DIV,DIH=9999999.11,DIG=1119 D ^DICR
    CREATE VALUE)= $E(EIN NO.)
    DELETE VALUE)= @
    FIELD)= ORG





1102
EIN SUFFIX
11;2
FREE TEXT

  • INPUT TRANSFORM:  D 1102^AUTTVND2
  • LAST EDITED:  OCT 27, 2005
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  The EIN SUFFIX must be 2 characters long and can be any combination of upper case letters and numbers, e.g., 'A1' is typically given to the first department of a vendor.  Subsequent departments for a vendor (vendor's that
    have the same Entity Identification Number) can have differing suffices, e.g., 'A2', etc.
  • GROUP:  CHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9999999.11^D^MUMPS
    1)= S ^AUTTVNDR("D",$P(^AUTTVNDR(DA,11),U,1)_X,DA)=""
    2)= K ^AUTTVNDR("D",$P(^AUTTVNDR(DA,11),U,1)_X)
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.11^1102.01
    1)= X ^DD(9999999.11,1102,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9999999.11,1102,1,2,1.1) X ^DD(9999999.11,1102,1,2,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,1)_DIV
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,1)'=""
    1.4)= S DIH=$S($D(^AUTTVNDR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,13)=DIV,DIH=9999999.11,DIG=1102.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(9999999.11,1102,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9999999.11,1102,1,2,2.1) X ^DD(9999999.11,1102,1,2,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,1)
    2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,1)'=""
    2.4)= S DIH=$S($D(^AUTTVNDR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,13)=DIV,DIH=9999999.11,DIG=1102.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= EIN NO.'=""
    CREATE VALUE)= EIN NO._EIN SUFFIX
    DELETE CONDITION)= EIN NO.'=""
    DELETE VALUE)= EIN NO.
    FIELD)= EIN NO. AND SUFF





1102.01
EIN NO. AND SUFFIX
11;13
FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<10) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Do not edit this field.  It is controlled by internal triggers and should never be edited directly.
  • DESCRIPTION:  
    This field is triggered by the other the EIN NO. and the EIN SUFFIX fields and should never be edited directly.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the EIN NO. field of the VENDOR File
    TRIGGERED by the EIN SUFFIX field of the VENDOR File
  • CROSS-REFERENCE:  9999999.11^E
    1)= S ^AUTTVNDR("E",$E(X,1,30),DA)=""
    2)= K ^AUTTVNDR("E",$E(X,1,30),DA)





1103
VENDOR TYPE
11;3
POINTER TO VENDOR TYPE FILE (#9999999.34) 

************************REQUIRED FIELD************************
VENDOR TYPE(#9999999.34)
  • LAST EDITED:  APR 01, 1995
  • GROUP:  CHS





1103.01
PHYSICIAN SPECIALTY
11;4
POINTER TO PROVIDER CLASS FILE (#7)
PROVIDER CLASS(#7)
  • LAST EDITED:  APR 01, 1995





1104
CONTRACT
CN;0
Multiple #9999999.1112
9999999.1112
  • HELP-PROMPT:  ANSWER MUST BE 4-10 CHARACTERS IN LENGTH
  • GROUP:  CHS





1105
SCHEDULE NO.
11;5
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999
  • GROUP:  CHS





1107
YTD PAID
11;7
NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X
  • LAST EDITED:  DEC 17, 1999
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Do not edit.  This field is programatically controlled by the ARMS and CHS applications.
  • TECHNICAL DESCR:  AUT*98.1*4, modifies the field definition of field YTD PAID in the VENDOR file, to increase the allowable values in the field from a penny short of one million dollars (999999.99) to a penny short of one billion dollars
    (999999999.99).
    The ARMS and CHS applications are the primary users of the VENDOR file.  This patch is issued in support of processing the forms 1099s in ARMS for CY 1999, scheduled for late January 2000.
  • GROUP:  CHS





1108
LAST AUTH DATE
11;8
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND DT
  • GROUP:  CHS





1109
MAILING ADDRESS-PHONE
11;9
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<8) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 8-15 characters in length.
  • GROUP:  CHS





1110
FED NON FED CODE
11;10
SET

  • '1' FOR NON FED;
  • '2' FOR FED;
  • LAST EDITED:  APR 01, 1995





1111
DATE OF LAST UPDATE
11;11
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  DO NOT EDIT.  PROGRAMATICALLY CONTROLLED.





1112
CHS TX DATE
11;12
DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  DO NOT EDIT.  PROGRAMATICALLY CONTROLLED.





1114
MAILING ADDRESS-FAX
11;14
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<8) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 8-12 characters in length.





1115
WOMEN OWNED SMALL BUSINESS
11;15
SET

  • '0' FOR EXEMPT;
  • '1' FOR YES;
  • '2' FOR NO;
  • '3' FOR NOT CERTIFIED;
  • LAST EDITED:  APR 01, 1995





1116
CONGRESSIONAL DISTRICT
11;16
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  DEC 13, 2005
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • NOTES:  TRIGGERED by the GEOGRAPHICAL LOCATION field of the VENDOR File





1117
LABOR SURPLUS AREA
11;17
SET

  • '1' FOR YES;
  • '2' FOR NO;
  • LAST EDITED:  APR 01, 1995
  • NOTES:  TRIGGERED by the GEOGRAPHICAL LOCATION field of the VENDOR File





1118
SIZE OF BUSINESS
11;18
POINTER TO SIZE OF SMALL BUSINESS FILE (#9999999.81)
SIZE OF SMALL BUSINESS(#9999999.81)
  • LAST EDITED:  APR 01, 1995





1119
ORGANIZATION/INDIVIDUAL
11;19
SET

  • '1' FOR ORGANIZATION;
  • '2' FOR INDIVIDUAL;
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Enter the appropriate code from the list.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the EIN NO. field of the VENDOR File





1120
MINORITY BUSINESS (FOR PROFIT)
11;20
SET

  • '1' FOR YES;
  • '2' FOR NO;
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Enter the appropriate code from the list.





1121
MINORITY NONPROFIT BUSINESS
11;21
SET

  • '1' FOR YES;
  • '2' FOR NO;
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Enter the appropriate code from the list.





1122
SMALL BUSINESS STATUS
11;22
SET

  • '1' FOR YES;
  • '2' FOR NO;
  • LAST EDITED:  APR 01, 1995





1123
CITY NUMBER
11;23
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 5 characters in length.
  • NOTES:  TRIGGERED by the GEOGRAPHICAL LOCATION field of the VENDOR File





1124
PARENT COMPANY
11;24
POINTER TO VENDOR FILE (#9999999.11)
VENDOR(#9999999.11)
  • LAST EDITED:  APR 01, 1995





1125
GEOGRAPHICAL LOCATION
11;25
POINTER TO GEOGRAPHICAL LOCATION FILE (#9999999.79)
GEOGRAPHICAL LOCATION(#9999999.79)
  • LAST EDITED:  APR 01, 1995
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.11^1116
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(9999999.11,1125,1,1,1.1) X ^DD(9999999.11,1125,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTGL(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTGL(D0,0)):^(0),1:"") S X=$P(Y(101),U,4) S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUTTVNDR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,16)=DIV,DIH=9999999.11,DIG=1116 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(9999999.11,1125,1,1,2.1) X ^DD(9999999.11,1125,1,1,2.4)
    2.1)= S X=DIV X ^DD(9999999.11,1125,1,1,59.2) S X=$P(Y(101),U,4) S D0=I(0,0)
    2.4)= S DIH=$S($D(^AUTTVNDR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,16)=DIV,DIH=9999999.11,DIG=1116 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:""),D0=$P(Y(1),U,25) S:'$D(^AUTTGL(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTGL(D0,0)):^(0),1:"")
    CREATE VALUE)= #1125:#.04
    DELETE VALUE)= #1125:#.04
    FIELD)= #1116
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.11^1117
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(9999999.11,1125,1,2,1.1) X ^DD(9999999.11,1125,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTGL(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTGL(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,7),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUTTVNDR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,17)=DIV,DIH=9999999.11,DIG=1117 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(9999999.11,1125,1,2,2.1) X ^DD(9999999.11,1125,1,2,2.4)
    2.1)= S X=DIV X ^DD(9999999.11,1125,1,2,59.2) S Y(101)=X S X=$P(Y(102),U,7),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^AUTTVNDR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,17)=DIV,DIH=9999999.11,DIG=1117 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:""),D0=$P(Y(1),U,25) S:'$D(^AUTTGL(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTGL(D0,0)):^(0),1:"")
    CREATE VALUE)= #1125:INTERNAL(#.07)
    DELETE VALUE)= #1125:INTERNAL(#.07)
    FIELD)= #1117
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.11^1123
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y X ^DD(9999999.11,1125,1,3,1.1) X ^DD(9999999.11,1125,1,3,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTGL(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTGL(D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUTTVNDR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,23)=DIV,DIH=9999999.11,DIG=1123 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y X ^DD(9999999.11,1125,1,3,2.1) X ^DD(9999999.11,1125,1,3,2.4)
    2.1)= S X=DIV X ^DD(9999999.11,1125,1,3,59.2) S X=$P(Y(101),U,3) S D0=I(0,0)
    2.4)= S DIH=$S($D(^AUTTVNDR(DIV(0),11)):^(11),1:""),DIV=X S $P(^(11),U,23)=DIV,DIH=9999999.11,DIG=1123 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUTTVNDR(D0,11)):^(11),1:""),D0=$P(Y(1),U,25) S:'$D(^AUTTGL(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTGL(D0,0)):^(0),1:"")
    CREATE VALUE)= #1125:#.03
    DELETE VALUE)= #1125:#.03
    FIELD)= #1123





1126
TYPE OF BUSINESS
11;26
POINTER TO TYPE OF BUSINESS FILE (#9999999.76)
TYPE OF BUSINESS(#9999999.76)
  • LAST EDITED:  APR 01, 1995
  • CROSS-REFERENCE:  9999999.11^AC^MUMPS
    1)= I X,$D(^AUTTTOB(X,0)),$D(^AUTTVNDR(DA,11)) S:X<4 $P(^(11),U,22)=1 S:X>3 $P(^(11),U,22)=2
    2)= Q





1127
SMALL PURCHASE TYPE OF BUS.
11;27
SET

  • 'A1' FOR SMALL BUSINESS CONCERN;
  • 'A2' FOR LARGE BUSINESS CONCERN;
  • 'A3' FOR DOMESTIC OUTSIDE U.S./FOREIGN;
  • 'A4' FOR OTHER ENTITY;
  • LAST EDITED:  APR 01, 1995
  • DESCRIPTION:  
    Enter the SMALL PURCHASE SYSTEM Type of Business.





1128
SMALL PURCHASE TYPE OF VENDOR
11;28
SET

  • '1' FOR SMALL DISADVANTAGED BUSINESS;
  • '2' FOR WOMAN-OWNED SMALL BUSINESS;
  • '3' FOR SHELTERED WORKSHOP;
  • '4' FOR UNICOR;
  • '5' FOR OTHER;
  • '6' FOR BUY INDIAN;
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Select the appropriate code from the list.
  • DESCRIPTION:  
    Enter the SMALL PURCHASE SYSTEM Type of Vendor.





1129
LAST 1099 PRT-DT
2;1
DATE

  • INPUT TRANSFORM:  S %DT="ETR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Enter Date & Time of last 1099 print.





1301
MAILING ADDRESS-STREET
13;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH





1302
MAILING ADDRESS-CITY
13;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 3-20 characters in length.





1303
MAILING ADDRESS-STATE
13;3
POINTER TO STATE FILE (#5) 

************************REQUIRED FIELD************************
STATE(#5)
  • LAST EDITED:  JAN 07, 2002
  • TECHNICAL DESCR:  
    AUT 98.1 patch 9 made this field mandatory.





1304
MAILING ADDRESS-ZIP
13;4
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  MAY 02, 2006
  • HELP-PROMPT:  Answer must be 5-10 characters in length.





1305
MAILING ADDRESS-ATTENTION
13;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  ANSWER MUST BE 3-20 CHARACTERS IN LENGTH





1306
BILLING ADDRESS-STREET
13;6
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH





1307
BILLING ADDRESS-CITY
13;7
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 3-20 characters in length.





1308
BILLING ADDRESS-STATE
13;8
POINTER TO STATE FILE (#5)
STATE(#5)
  • LAST EDITED:  APR 01, 1995





1309
BILLING ADDRESS-ZIP
13;9
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 5-10 characters in length.





1310
MAILING ADDRESS-STREET 2
13;10
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.





1311
BILLING ADDRESS-STREET 2
13;11
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.





1312
BILLING ADDRESS-ATTENTION
13;12
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 3-20 characters in length.





1401
REMIT TO ADDRESS-STREET
14;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.





1402
REMIT TO ADDRESS-STREET 2
14;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.





1403
REMIT TO ADDRESS-CITY
14;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 3-20 characters in length.





1404
REMIT TO ADDRESS-STATE
14;4
POINTER TO STATE FILE (#5)
STATE(#5)
  • LAST EDITED:  APR 01, 1995





1405
REMIT TO ADDRESS-ZIP
14;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 5-10 characters in length.





1406
REMIT TO ADDRESS-ATTENTION
14;6
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.





1407
REMIT TO ADDRESS-PHONE
14;7
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<8) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 8-20 characters in length.





1408
BILLING ADDRESS-PHONE
14;8
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<8) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 8-20 characters in length.





1409
BILLING ADDRESS-FAX
14;9
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<8) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 8-20 characters in length.
  • DESCRIPTION:  
    Enter the FAX NUMBER for the billing office.





1410
REMIT TO ADDRESS-FAX
14;10
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<8) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 8-20 characters in length.
  • DESCRIPTION:  
    Enter the FAX NUMBER for the remit to office.





1501
PREVIOUS EIN NO.
15;0
Multiple #9999999.1115
9999999.1115




1601
OTHER NAMES/ABBREVIATIONS
16;0
Multiple #9999999.1116
9999999.1116
  • LAST EDITED:  APR 01, 1995
  • DESCRIPTION:  
    This multiple field allows for entry of other common names and/or abbreviations for the vendor.





1701
UNIFORM PROVIDER ID NUMBER
17;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!($E(X,1)'?1A)!($E(X,2,6)'?1.5N) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Enter the Uniform provider Identification number, answer must be in the form of 1 alpha and 5 numeric
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





1702
RATE ID NUMBER
1;0
Multiple #9999999.111702
9999999.111702




1801
AGREEMENT/RATE/BPA NUMBER
18;0
Multiple #9999999.111801
9999999.111801
  • LAST EDITED:  APR 01, 1995





1901
EFT ACCOUNT TYPE
19;1
SET

  • 'C' FOR CHECKING;
  • 'S' FOR SAVINGS;
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This field indicates the type of bank account to be used for electronic funds transfer to the vendor.





1902
EFT ROUTING TRANSIT NUMBER
19;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 9 characters in length.
  • DESCRIPTION:  
    This field contains the bank routing number need to identify the bank to which funds will be transferred via electronic funds transfer.





1903
EFT DEPOSITOR ACCOUNT NUMBER
19;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-17 characters in length.
  • DESCRIPTION:  
    This field contains the bank account number for the vendor which will be used to transfer funds to the vendor via electronic funds transfer.





1904
EFT SUB-ROUTING TRANSIT NUMBER
19;4
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 9 characters in length.
  • DESCRIPTION:  
    This field contains information for a second bank transit number if needed to make electronic funds transfer to a vendor.





1905
EFT SUB-DEPOSITOR ACCOUNT NO.
19;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-17 characters in length.
  • DESCRIPTION:  
    This field contains information for a second depositor account number if required for electronic funds transfer.





2001
PACKAGE
20;0
POINTER Multiple #9999999.112001
9999999.112001
  • LAST EDITED:  APR 01, 1995





2101
TELECOMM. ADDRESS
21;1
FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<3)!'(X?3L.L) X K:$D(^AUTTVNDR("TC",X)) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 3-6 lower case characters in length and be unique.
  • DESCRIPTION:  
    Telecommunication Address for this particular vendor (3-6 lower case characters).  Must be unique .
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9999999.11^TC^MUMPS
    1)= S ^AUTTVNDR("TC",X,$P(^AUTTVNDR(DA,11),"^",13),DA)=""
    2)= K ^AUTTVNDR("TC",X,$P(^AUTTVNDR(DA,11),"^",13),DA)





2102
WEBSITE URL
21;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  JUL 19, 2002
  • HELP-PROMPT:  Enter the URL for this Vendor's website
  • DESCRIPTION:  If this Vendor has a website, you can enter it, here.  E.g., the home page for the Indian Health Service is:
    http://www.ihs.gov





2103
E-MAIL ADDRESS
21;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUL 19, 2002
  • HELP-PROMPT:  Enter the e-mail address for this Vendor
  • DESCRIPTION:  If this Vendor has a "general" e-mail address, or an address of a representative of the Vendor that you typically use, you can enter it, here.  E.g., the e-mail address of the RPMS Help Desk is:
    ITSCHelp@mail.IHS.gov





2104
DIRECT EMAIL PARTICIPANT
21;4
SET

  • 'Y' FOR YES;
  • 'N' FOR NO;
  • LAST EDITED:  MAY 10, 2013
  • HELP-PROMPT:  If Vendor has a Direct E-Mail account to receive patient visit information, enter Yes.





2105
DIRECT EMAIL ADDRESS
21;5
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  OCT 06, 2014
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
  • DESCRIPTION:  If this Vendor has a Direct e-mail address, you can enter it here.
    ***WARNING*** - Protected Health Information (PHI) may be transmitted to this email address!!!





2201
X12 PROVIDER TAXONOMY
22;0
DATE Multiple #9999999.112201
9999999.112201
  • LAST EDITED:  SEP 23, 2002
  • TECHNICAL DESCR:  
    This multiple added by AUT*98.1*11 in support of HIPAA EDI transactions.





2301
MEDICARE PROVIDER
23;1
SET

  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'P' FOR PENDING;
  • 'W' FOR WAIVED;
  • 'E' FOR EXCLUDED;
  • 'U' FOR UNKNOWN;
  • LAST EDITED:  AUG 17, 2004
  • HELP-PROMPT:  IS THIS A MEDICARE PROVIDER? SELECT FROM THE SET OF CODES.





2302
MEDICARE DATE OF UPDATE
23;2
DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 17, 2004
  • HELP-PROMPT:  DATE FOR THE MEDICARE PROVIDER STATUS





2303
MEDICARE NUMBER
MP;0
Multiple #9999999.112303 
9999999.112303




2401
MAILING ADDRESS-COUNTRY
24;1
POINTER TO COUNTRY CODE FILE (#779.004)
COUNTRY CODE(#779.004)
  • LAST EDITED:  AUG 09, 2006





2402
BILLING ADDRESS-COUNTRY
24;2
POINTER TO COUNTRY CODE FILE (#779.004)
COUNTRY CODE(#779.004)
  • LAST EDITED:  AUG 09, 2006





2403
REMIT TO ADDRESS-COUNTRY
24;3
POINTER TO COUNTRY CODE FILE (#779.004)
COUNTRY CODE(#779.004)
  • LAST EDITED:  AUG 09, 2006





8801
MNEMONIC
88;1
FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    Enter an abbreviation for this vendor.
  • CROSS-REFERENCE:  9999999.11^B^MNEMONIC
    1)= S:'$D(^AUTTVNDR("B",$E(X,1,30),DA)) ^(DA)=1
    2)= I $D(^AUTTVNDR("B",$E(X,1,30),DA)),^(DA) K ^(DA)





11061099
(Y/N)
11;6
SET

  • 'Y' FOR YES;
  • 'N' FOR NO;
  • LAST EDITED:  APR 01, 1995
  • HELP-PROMPT:  Enter 'Y' if a 1099 Vendor or 'N' if not.
  • GROUP:  CHS







    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
Found Entries | 
All