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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^PRC(440

Package: IFCAP

Global: ^PRC(440


Information

FileMan FileNo FileMan Filename Package
440 VENDOR IFCAP

Description

Directly Accessed By Routines, Total: 273

Package Total Routines
IFCAP 198 CONTRACT/BOA NUMBER    PRCBVE    PRCF FMS VENEDIT1    PRCF FMS VENEDIT1B    PRCF FMS VENEDIT2    PRCF FMS VENEDIT2B    PRCF SUB EDIT    PRCFA TT900.00
PRCFAC01    PRCFAC3    PRCFAC4    PRCFARR    PRCFARR0    PRCFDA1    PRCFDA1X    PRCFDBL
PRCFDBL2    PRCFDCI    PRCFDE    PRCFDE2    PRCFDSC1    PRCFDSUS    PRCFFMO1    PRCFVEX
PRCFVEX1    PRCGARC1    PRCH1A1    PRCH1A2    PRCH410    PRCH442    PRCH516P    PRCH69
PRCH69EN    PRCHAAC    PRCHAM1    PRCHAM4    PRCHAM5    PRCHAMY4    PRCHCON2    PRCHCRD
PRCHCRD1    PRCHCRD2    PRCHCRD3    PRCHCS2    PRCHDAM    PRCHDAM4    PRCHDP1    PRCHDP8
PRCHDPO    PRCHDSP    PRCHDSP2    PRCHDSP7    PRCHE1    PRCHE1A    PRCHEA1    PRCHFPDE
PRCHFPDS    PRCHFPDT    PRCHFPT0    PRCHHI8    PRCHI1    PRCHID    PRCHITX    PRCHJS03
PRCHLO1    PRCHLO6    PRCHMA0    PRCHMA1    PRCHMA2    PRCHNPO1    PRCHNPO4    PRCHNPO5
PRCHNPO7    PRCHNPT    PRCHNRQ    PRCHP18    PRCHPAM    PRCHPAM5    PRCHPAM8    PRCHPNT
PRCHQ11    PRCHQ13A    PRCHQ15    PRCHQ1B    PRCHQ1C    PRCHQ3    PRCHQ4    PRCHQ41B
PRCHQ4A    PRCHQ5    PRCHQ6    PRCHQPST    PRCHQRP3    PRCHQRP4    PRCHRAT9    PRCHRCS
PRCHRCS7    PRCHRP1    PRCHRP10    PRCHRP2    PRCHRP4    PRCHRP5    PRCHRP6    PRCHRP7
PRCHRP9    PRCHRPL    PRCHRPT1    PRCHRPT9    PRCHRPTX    PRCHSP1    PRCHSWCH    PRCHT12
PRCHT13    PRCHT33    PRCHT34    PRCHUTL    PRCHVENDOR    PRCHVENDOR1    PRCHVENDORNOREACT    PRCOE1
PRCOE4    PRCOEC1    PRCOEDI    PRCOER    PRCOESE    PRCOPHA    PRCOPHA1    PRCORV
PRCORV1    PRCOSS1    PRCOSS6    PRCOSSO    PRCOVL    PRCOVRQ    PRCOVRQ1    PRCOVTST
PRCOVUP    PRCOVUP1    PRCOVUP2    PRCOVUP4    PRCP REPORT:POSTED STOCK    PRCP5POS    PRCPAGP0    PRCPAGP1
PRCPAGPR    PRCPAGPV    PRCPAUTH    PRCPAWI0    PRCPAWI1    PRCPCSP1    PRCPDAP2    PRCPEIPS
PRCPEIPU    PRCPEITD    PRCPEIUI    PRCPPOL1    PRCPPOLM    PRCPRAVL    PRCPRCAT    PRCPRCOS
PRCPRDI0    PRCPRDIN    PRCPREME    PRCPRIT1    PRCPRLAS    PRCPRPIT    PRCPRPK1    PRCPRPK2
PRCPRPKG    PRCPRPOS    PRCPSMB1    PRCPSMST    PRCPUMAN    PRCPUUIW    PRCPUX1    PRCPWDOR
PRCPWDOU    PRCPWPLM    PRCPWPPL    PRCSD121    PRCSES    PRCSES1    PRCSP121    PRCSP13
PRCSP132    PRCSRIE    PRCSRIG2    PRCVIBF    PRCVIMF    PRCVIT    PRCVNDR    PRCVRC2
PROCUREMENT SOURCE    SOCIOECONOMIC GROUP (FPDS)    SYNONYM    VENDOR    ^PRC(440    ^PRC(440.3    
Prosthetics 45 RMPOBIL5    RMPOBIL7    RMPOLF2    RMPOLM    RMPOPAT2    RMPORMB    RMPOVDC    RMPR21A
RMPR29B    RMPR29LS    RMPR29U    RMPR31U    RMPR421A    RMPR4LOP    RMPR4OPN    RMPR4P21
RMPR5N2    RMPR5N3    RMPR5SRV    RMPR9P21    RMPR9S4    RMPR9S7    RMPR9S8    RMPRFO2
RMPRFO3    RMPRFO6    RMPRHL    RMPRL22    RMPRL9    RMPRLOP    RMPROPN    RMPROPN1
RMPRP21    RMPRP55    RMPRPAT2    RMPRPCEL    RMPRPI09    RMPRPIYK    RMPRPRT1    RMPRSE1
RMPRSE2    RMPRSE21    RMPRSEA    RMPRST2    RMPRSTK    
Drug Accountability 7 PSACON    PSACON1    PSADRI    PSADRIH    PSADRIP    PSAREC    PSAUNI    
Equipment Turn-In Request 6 PRCN2237    PRCNENG    PRCNHLP    PRCNREQE    PRCNUTL    PRCNUTL1    
Accounts Receivable 4 PRCAEA1    PRCASVC6    RCAMADD    RCTOP1    
Beneficiary Travel 1 DGBTOA2    
Real Time Location System 1 VIAAIMUP    

Accessed By FileMan Db Calls, Total: 44

Package Total Routines
IFCAP 31 PRCFVEX1    PRCHE    PRCHE1    PRCHEA1    PRCHJS03    PRCHLO7    PRCHMA2    PRCHNPO5
PRCHNPT    PRCHQPST    PRCHRPT7    PRCHT13    PRCHT34    PRCHUTL    PRCHVEND    PRCORV
PRCORV1    PRCOVL    PRCOVL1    PRCOVUP    PRCOVUP1    PRCPAGPV    PRCPEIPS    PRCSES
PRCV442A    PRCV442B    PRCVLIC    PRCVRC1    PRCVRC2    PRCVTAP    PRCVTCA    
Prosthetics 6 RMPOPED    RMPRED6    RMPREXT    RMPRPIU0    RMPRPIYA    RMPRPIYE    
Accounts Receivable 3 PRCAEA1    RCAM    RCTOP1    
Beneficiary Travel 2 DGBTOA1    DGBTR125    
Equipment Turn-In Request 2 PRCNUTL    PRCNUTL1    

Pointed To By FileMan Files, Total: 33

Package Total FileMan Files
Prosthetics 14 HOME OXYGEN TRANSACTIONS FILE(#665.72)[#665.7231(.01)#665.7232(5)]    RECORD OF PROS APPLIANCE/REPAIR(#660)[7]    PROS ITEM LOCATION(#661.3)[#661.312(25)]    HCPCS INVENTORY ORDER AND REORDER(#661.41)[4]    PROSTHETIC INVENTORY TRANSACTION(#661.6)[12]    PROSTHETIC TRANSACTION PATIENT ISSUE(#661.63)[9]    VENDOR PRODUCT HCPCS MAP(#661.8)[3]    PROSTHETICS 1358(#664)[4]    PROSTHETIC 2529-3(#664.1)[#664.16(15)]    PROSTHETIC WORK ORDER(#664.2)[#664.22(5)]    PROSTHETICS PATIENT(#665)[#665.194(1)]    PROSTHETIC HOME/LIAISON VISITS(#665.1)[1]    PROS LETTER TRANSACTION FILE(#665.4)[7]    PROSTHETICS SITE PARAMETERS(#669.9)[#669.962(.01)]    
IFCAP 11 VENDOR(#440)[15]    ITEM MASTER(#441)[910#441.01(.01)#441.03(3)]    PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[553]    AMENDMENTS(#443.6)[553]    REQUEST FOR QUOTATION(#444)[2024#444.01(.01)#444.019(13)#444.019(17)#444.021(11)#444.022(.01)#444.024(.01)]    RFQ VENDOR(#444.1)[60]    INVOICE TRACKING(#421.5)[6]    GENERIC INVENTORY(#445)[#445.01(.4)#445.07(.01)]    CONTROL POINT ACTIVITY(#410)[12]    REPETITIVE ITEM LIST(#410.3)[#410.31(4)]    DYNAMED IFCAP INTERFACE AUDIT(#414.02)[2]    
Engineering 2 CATEGORY STOCK NUMBER(#6917)[#6917.016(.01)]    EQUIPMENT INV.(#6914)[10]    
Accounts Receivable 1 AR DEBTOR(#340)[.01.06]    
Beneficiary Travel 1 BENEFICIARY TRAVEL CLAIM(#392)[771]    
Equipment Turn-In Request 1 EQUIPMENT REQUEST(#413)[55.5#413.015(2)]    
Incomplete Records Tracking 1 INCOMPLETE RECORDS(#393)[10.04]    
Integrated Billing 1 PFSS CHARGE CACHE(#373)[23.01]    
Interim Management Support 1 VAMC MANAGEMENT(#731)[#731.02(4)]    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
IFCAP 3 VENDOR(#440)[15]    CODE INDEX(#420.6)[#440.01(.01)#440.05(.01)]    SOURCE CODE(#420.8)[.06]    
Kernel 2 STATE(#5)[4.416.517.822.5]    NEW PERSON(#200)[3133]    

Fields, Total: 78

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 25, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999999
  • DESCRIPTION:  
    This is the vendor number.
  • TECHNICAL DESCR:  
    This is the internal entry number for this vendor.
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>36!($L(X)<1)!'(X'?1P.E) X I $D(X) S:$D(PRCHPO) DIC("DR")="[PRCHVENDOR]"
  • LAST EDITED:  MAY 10, 1999
  • HELP-PROMPT:  ANSWER MUST BE 1-36 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the vendor name.
  • DELETE TEST:  1,0)= I 1 D EN^DDIOL(" VENDOR CAN'T BE DELETED!! ","","?0")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  440^B^MUMPS
    1)= I $D(X) S X=$$UP^XLFSTR(X),^PRC(440,"B",$E(X,1,30),DA)=""
    2)= I $D(X) S X=$$UP^XLFSTR(X) K ^PRC(440,"B",$E(X,1,30),DA)
    TESTING TO SEE IF MIXED OR LOWER CASE SHOWS UP AS UPPERCASE.
  • CROSS-REFERENCE:  440^AD^MUMPS
    1)= I '$D(DIU(0)),$E(X,1,2)'="**" S:$D(DT) $P(^PRC(440,DA,10),U,1)=DT S:$D(DUZ) $P(^(10),U,2)=DUZ
    2)= Q
    This X-REF will SET both the DATE VENDOR CREATED and CREATED BY fields if the vendor is not INACTIVATED.  Inactivation is shown when the first two characters of the vendor's name are '**'.
.05 SUPPLY WHSE. INDICATOR 0;11 SET
  • 'S' FOR SUPPLY WAREHOUSE;

  • INPUT TRANSFORM:  I $D(^PRC(440,"AC")) S Z0=+$O(^("AC","S",0)) I $D(^PRC(440,Z0,0)) W !,*7,$P(^(0),U,1)_" is already designated as the SUPPLY WAREHOUSE " K X
  • LAST EDITED:  JUN 05, 1987
  • HELP-PROMPT:  There can only be one source designated as the SUPPLY WAREHOUSE
  • DESCRIPTION:  
    This is the set of codes for supply warehouse indicator.  Only one source can be designated as the supply warehouse.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  440^AC^MUMPS
    1)= K ^PRC(440,"AC") S ^PRC(440,"AC",X,DA)=""
    2)= K ^PRC(440,"AC",X,DA)
    This X-REF is used to allow only one 'VENDOR' to be the 'SUPPLY WAREHOUSE'.  The input transform for this field will allow only one vendor in this 'AC' X-REF to have a SUPPLY WHSE. INDICATOR, an 'S', in this field.
.06 FEDERAL SOURCE 2;2 POINTER TO SOURCE CODE FILE (#420.8) SOURCE CODE(#420.8)

  • INPUT TRANSFORM:  S DIC("S")="I ""134590""[$E(^(0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 22, 1994
  • HELP-PROMPT:  Enter only if this is Federal Source vendor and will only be used on a requisition.
  • DESCRIPTION:  
    This is the federal source.
  • SCREEN:  S DIC("S")="I ""134590""[$E(^(0))"
  • EXPLANATION:  ENTER THE APPROPRIATE SOURCE CODE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.2 EDI VENDOR? 3;2 SET
  • 'Y' FOR YES;

  • LAST EDITED:  AUG 01, 1991
  • HELP-PROMPT:  Enter YES if this vendor can accept purchase orders electronically using EDI X12. Do do only if directed from Austin.
  • DESCRIPTION:  This field identifies those vendors who are prepared to receive purchase orders electronically through the EDI system in AUSTIN. Don't enter anything in this field unless directed to do so from the EDI group in Austin,
    Texas.
.4 VENDOR ID NUMBER 3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<5) X I $D(X) K:X'?5.12UN X
  • LAST EDITED:  JUN 18, 1996
  • HELP-PROMPT:  Enter the vendor's EDI identification number. It should be 5-12 upper case alpha/numeric characters.
  • DESCRIPTION:  
    This field uniquely identifies a vendor to the EDI system.  Don't enter anything in this field unless directed to do so from the EDI group in Austin, Texas.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  440^AG
    1)= S ^PRC(440,"AG",$E(X,1,30),DA)=""
    2)= K ^PRC(440,"AG",$E(X,1,30),DA)
    This x-ref allows quick location of the vendor record with the vendor ID number selected.
1 ORDERING ADDRESS1 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1) X
  • LAST EDITED:  FEB 20, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-33 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the vendor ordering address line 1.
2 ORDERING ADDRESS2 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1) X
  • LAST EDITED:  FEB 20, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-33 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the vendor ordering address line 2.
3 ORDERING ADDRESS3 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  FEB 20, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the vendor ordering address line 3.
4 ORDERING ADDRESS4 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  FEB 20, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the vendor ordering address line 4.
4.2 ORDERING CITY 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  FEB 08, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the city of the vendor ordering address.
4.4 ORDERING STATE 0;7 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  FEB 08, 1986
  • HELP-PROMPT:  enter the state that goes with this ORDERING ADDRESS.
  • DESCRIPTION:  
    This is the state for the vendor ordering address.
4.6 ORDERING ZIP CODE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)<5!(X'?5N.E)!($L(X)>10)!($L(X)>5&(X'?5N1"-"4N)) X
  • LAST EDITED:  APR 06, 1995
  • HELP-PROMPT:  5 DIGIT ZIP OR A 9 DIGIT ZIP IN THIS FORMAT 12345-6789
  • DESCRIPTION:  
    This is the zip code of the ordering address.
  • TECHNICAL DESCR:  
    The input transform checks for a pattern of 5 numerics or 5 numerics followed by a dash (-) and 4 numerics.  It also checks for a total length of 10, so fileman will print the zip+4 in outputs.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.7 COUNTY 2;4 FREE TEXT

  • INPUT TRANSFORM:  S Z0=$S($P(^PRC(440,D0,0),U,7)]"":$P(^(0),U,7),1:0) K:'Z0 X Q:'Z0!'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC
  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($P(^PRC(440,D0,0),U,7)]"":$P(^(0),U,7),1:0) Q:'Z0 S Y=$S($D(^DIC(5,Z0,1,Y,0)):$P(^(0),U,1),1:"") K Z0
  • LAST EDITED:  MAY 14, 1986
  • HELP-PROMPT:  Enter the appropriate county for the given state
  • DESCRIPTION:  
    This is the appropriate county for the given state of the vendor ordering address.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=$S($P(^PRC(440,D0,0),U,7)]"":$P(^(0),U,7),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=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.8 PROCUREMENT CONTACT PERSON 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUL 27, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the name of the procurement contact person.
5 VENDOR PHONE NUMBER 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<7) X
  • LAST EDITED:  JUL 07, 1994
  • HELP-PROMPT:  Answer must be 7-18 characters in length.
  • DESCRIPTION:  
    This is the phone number of the vendor contact person.
5.1 ACCOUNT NO. 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-33 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the vendor account number.
5.2 GUARANTEED DELIVERY VENDOR? 2;11 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 20, 1989
  • HELP-PROMPT:  Enter 'Y' if an agreement has been set up with this vendor to guarantee delivery on direct deliveries to patients.
  • DESCRIPTION:  
    Enter YES if there is a guaranteed delivery agreement for this vendor.
6 CONTRACT/BOA NUMBER 4;0 Multiple #440.03 440.03

  • LAST EDITED:  FEB 03, 1997
  • DESCRIPTION:  
    This is the Vendor's Contract # or Basic Ordering Agreement(BOA) #.
  • IDENTIFIED BY:  BEGINING DATE(#.5), EXPIRATION DATE(#1)[R], CONTRACT TERMS(#2), CONTRACT FLAG(#5)[R]
8 LABOR SURPLUS AREA? 2;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 19, 1986
  • HELP-PROMPT:  Enter 'YES' if this vendor is located in a labor surplus area.
  • DESCRIPTION:  
    This indicates whether or not the vendor is located in a labor surplus.
8.2 BUSINESS TYPE (FPDS-88) 2;6 SET
************************REQUIRED FIELD************************
  • '1' FOR SMALL;
  • '2' FOR LARGE;
  • '3' FOR OTHER ENTITIES;
  • '4' FOR OUTSIDE U.S.;
  • '5' FOR FEDERAL GOVT. SOURCE;

  • LAST EDITED:  AUG 25, 1988
  • HELP-PROMPT:  Select one entry from the choices.
  • DESCRIPTION:  
    This is the type of business for FY88 FPDS reporting purposes.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8.3 BUSINESS TYPE (FPDS) 2;3 SET
************************REQUIRED FIELD************************
  • '1' FOR SMALL;
  • '2' FOR LARGE;
  • '3' FOR OUTSIDE U.S.;
  • '4' FOR OTHER ENTITIES;

  • LAST EDITED:  AUG 25, 1988
  • HELP-PROMPT:  Enter FPDS Business Type for FPDS reports for FY 1989 or later.
  • DESCRIPTION:  
    This is the type of business for FY89 FPDS reporting purposes.
9 TYPE OF OWNERSHIP (FY88) 1;0 POINTER Multiple #440.01 440.01

  • DESCRIPTION:  
    This is the type of ownership for FY88 FPDS reporting purposes.
10 SOCIOECONOMIC GROUP (FPDS) 1.1;0 POINTER Multiple #440.05 440.05

  • DESCRIPTION:  
    This is the socioeconomic group of the vendor for the current year.
11 SPECIAL FACTORS 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    These are the special factors to be considered when ordering from this vendor.
12.4 AUSTIN DELETED? 2;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 13, 1986
  • DESCRIPTION:  
    This indicates whether or not the vendor has been deleted from the Austin DPC vendor file.
12.5 FEE VENDOR 2;10 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 13, 1986
  • DESCRIPTION:  
    This indicates whether or not this vendor is a fee basis vendor.
13 IS A SF129 ON FILE? 2;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'NA' FOR NOT APPLICABLE;

  • LAST EDITED:  MAR 29, 1986
  • DESCRIPTION:  
    This indicates whether or not a Standard Form 129 is on file.
14 DATE OF SF129 2;8 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 29, 1986
  • DESCRIPTION:  
    This is the date of the Standard Form 129.
15 REPLACEMENT VENDOR 9;1 POINTER TO VENDOR FILE (#440) VENDOR(#440)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$D(^(10)):1,+$P(^(10),U,5)=0:1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0!(+Y=$G(DA))!(+Y=$G(D0)) X
  • LAST EDITED:  MAY 05, 1997
  • DESCRIPTION:  
    This is the replacement vendor.
  • SCREEN:  S DIC("S")="I $S('$D(^(10)):1,+$P(^(10),U,5)=0:1,1:0)"
  • EXPLANATION:  The Replacement Vendor for a vendor cannot be inactive (or that vendor itself).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
16 SERVICE/RETURN ADDRESS1 6;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1) X
  • LAST EDITED:  NOV 22, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-33 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the service/return address 1.
16.1 SERVICE/RETURN ADDRESS2 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1) X
  • LAST EDITED:  NOV 22, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-33 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the service/return address 2.
16.2 SERVICE/RETURN ADDRESS3 6;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  NOV 22, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the service/return address 3.
16.3 SERVICE/RETURN ADDRESS4 6;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  NOV 22, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the service/return address 4
16.4 SERVICE/RETURN CITY 6;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  NOV 22, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the city of the service/return address.
16.5 SERVICE/RETURN STATE 6;6 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  NOV 22, 1986
  • DESCRIPTION:  
    This is the state of the service/return address.
16.6 SERVICE/RETURN ZIP CODE 6;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)<5!(X'?5N.E)!($L(X)>10)!($L(X)>5&(X'?5N1"-"4N)) X
  • LAST EDITED:  APR 06, 1995
  • HELP-PROMPT:  5 DIGIT ZIP CODE OR 9 DIGIT ZIP CODE IN THIS FORMAT 12345-6789
  • DESCRIPTION:  
    This is the zip code of the service/return address.
  • TECHNICAL DESCR:  
    The input transform checks for a pattern of 5 numerics or 5 numerics followed by a dash (-) and 4 numerics.  It also checks for a total length of 10, so fileman will print the zip+4 in outputs.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
16.7 SERVICE CONTACT PERSON 6;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  NOV 22, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the service contact person.
16.8 SERVICE PHONE NO. 6;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<3) X
  • LAST EDITED:  NOV 22, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-18 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the phone number for the service/return contact person.
17 PAYMENT CONTACT PERSON 7;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  NOV 22, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the payment contact person.
17.2 PAYMENT PHONE NO. 7;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<3) X
  • LAST EDITED:  NOV 22, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-18 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the phone number for the payment contact person.
17.3 PAYMENT ADDRESS1 7;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUL 11, 2001
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the mailing address, where payment of bill will be sent to.
  • TECHNICAL DESCR:  
    Changed from 33 characters maximum to 23 characters for FMS.  Changed from 23 characters maximum to 30 characters by IFCAP patch PRC*5.1*30.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
17.4 PAYMENT ADDRESS2 7;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUL 11, 2001
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the mailing address, where payment of bill will be sent to.
  • TECHNICAL DESCR:  
    Changed from 33 characters maximum to 23 characters for FMS.  Changed from 23 characters maximum to 30 characters by IFCAP patch PRC*5.1*30.
17.5 PAYMENT ADDRESS3 7;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUL 11, 2001
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the mailing address, where payment of bill will be sent to.
  • TECHNICAL DESCR:  
    Changed from 25 characters maximum to 23 characters to be the same as PAYMENT ADDRESS1 and PAYMENT ADDRESS 2.  Changed from 23 characters maximum to 30 characters to be the same as PAYMENT ADDRESS1 and PAYMENT ADDRESS2.
17.6 PAYMENT ADDRESS4 7;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUL 11, 2001
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the mailing address, where payment of bill will be sent to.
  • TECHNICAL DESCR:  
    Changed from 25 characters maximum to 23 characters to be the same as PAYMENT ADDRESS1 and PAYMENT ADDRESS2.  Changed from 23 characters maximum to 30 characters to be the same as PAYMENT ADDRESS1 and PAYMENT ADDRESS2.
17.7 PAYMENT CITY 7;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  JUL 07, 1994
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    This is the city of payment address.
17.8 PAYMENT STATE 7;8 POINTER TO STATE FILE (#5)
************************REQUIRED FIELD************************
STATE(#5)

  • LAST EDITED:  JUL 07, 1994
  • DESCRIPTION:  
    This is the state of the payment address.
17.9 PAYMENT ZIP CODE 7;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)<5!(X'?5N.E)!($L(X)>10)!($L(X)>5&(X'?5N1"-"4N)) X
  • LAST EDITED:  APR 06, 1995
  • HELP-PROMPT:  ENTER 5 DIGIT ZIP CODE OR 9 DIGIT ZIP CODE IN THIS FORMAT 12345-6789
  • DESCRIPTION:  
    This is the zip code for the payment address.
  • TECHNICAL DESCR:  
    The input transform checks for a pattern of 5 numerics or 5 numerics followed by a dash (-) and 4 numerics.  It also checks for a total length of 10, so fileman will print the zip+4 in outputs.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
18 CALM ID NUMBER 7;10 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!(X'?9UN) X
  • LAST EDITED:  JUN 15, 1994
  • HELP-PROMPT:  Answer must be 9 characters in length.
  • DESCRIPTION:  
    This is the CALM identification number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  440^AF
    1)= S ^PRC(440,"AF",$E(X,1,30),DA)=""
    2)= K ^PRC(440,"AF",$E(X,1,30),DA)
    This x-ref is used during FMS-VENDOR conversion as one way to find the vendor record entered in the FMS-CVU document.
18.2 CALM STUB NAME 7;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  FEB 12, 1987
  • HELP-PROMPT:  ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the CALM stub name.
18.3 DUN & BRADSTREET # 7;12 FREE TEXT

  • INPUT TRANSFORM:  S:$E(X,1,3)="DUN" X=$E(X,4,99) K:X'?9N&(X'?13N) X
  • LAST EDITED:  MAR 13, 2007
  • HELP-PROMPT:  ANSWER MUST BE EITHER 9 OR 13 DIGITS IN LENGTH
  • DESCRIPTION:  
    This is the vendor's Dun & Bradstreet number, if applicable.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  440^DB^MUMPS
    1)= S ^PRC(440,"DB","DUN"_$E(X,1,30),DA)=""
    2)= K ^PRC(440,"DB","DUN"_$E(X,1,30),DA)
    This cross reference enables lookup by Dun & Bradstreet #.
20 SYNONYM 5;0 Multiple #440.02 440.02

  • DESCRIPTION:  
    This is a synonym for the vendor.
21 REMARKS 8;0 WORD-PROCESSING #440.04

  • DESCRIPTION:  
    These are remarks about the vendor.
22.1 BILLING ADDRESS1 .11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  MAY 18, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the billing address 1.
22.2 BILLING ADDRESS2 .11;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  MAY 18, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the billing address 2.
22.3 BILLING ADDRESS3 .11;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAY 18, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the billing address 3.
22.4 BILLING CITY .11;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAY 18, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the city of the billing address.
22.5 BILLING STATE .11;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  NOV 25, 1987
  • DESCRIPTION:  
    This is the state of the billing address.
22.6 BILLING ZIP CODE .11;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<5) X
  • LAST EDITED:  MAY 18, 1987
  • HELP-PROMPT:  ANSWER MUST BE 5-9 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the zip code of the billing address.
22.7 BILLING PHONE NUMBER .11;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  MAR 01, 1991
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    This is the phone number of the billing address.
30 DATE VENDOR CREATED 10;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 07, 1989
  • HELP-PROMPT:  Date Vendor was originally created, or Vendor Name was changed.
  • DESCRIPTION:  
    This is the date the vendor was created, or the date the vendor name changed.
31 CREATED BY 10;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 21, 1992
  • HELP-PROMPT:  Name of person who added vendor to this file.
  • DESCRIPTION:  
    This is the person who created the vendor.
31.5 INACTIVATED VENDOR 10;5 SET
  • '1' FOR INACTIVATED;

  • LAST EDITED:  JUL 29, 1993
  • HELP-PROMPT:  Set to '1' automatically by the option used to inactivate a vendor.
  • DESCRIPTION:  
    This field is set automatically by the option used to inactivate a vendor.
  • CROSS-REFERENCE:  440^AE^MUMPS
    1)= I '$D(DIU(0)) S:$D(DT) $P(^PRC(440,DA,10),U,3)=DT S:$D(DUZ) $P(^(10),U,4)=DUZ
    2)= I '$D(DIU(0)) S $P(^PRC(440,DA,10),U,3,4)="^"
    This X-REF will SET the DATE INACTIVATED and the INACTIVATED BY fields when a vendor is inactivated.  If a vendor is reactivated both fields will be set to null in the KILL statement.
32 DATE INACTIVATED 10;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 07, 1989
  • DESCRIPTION:  
    This is the date the vendor was made inactive.
33 INACTIVATED BY 10;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 21, 1992
  • DESCRIPTION:  
    This is the person who made the vendor inactive.
34 FMS VENDOR CODE 3;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9) X
  • LAST EDITED:  FEB 23, 1995
  • HELP-PROMPT:  Answer must be 9 characters in length.
  • DESCRIPTION:  
    This is the code that FMS uses to identify a vendor.  It comes from the SSN/TAX ID NUMBER field in this file.
  • CROSS-REFERENCE:  440^D
    1)= S ^PRC(440,"D",$E(X,1,30),DA)=""
    2)= K ^PRC(440,"D",$E(X,1,30),DA)
34.5 FMS VENDOR NAME 3;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  AUG 08, 1994
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the FMS Vendor Name which is entered in the FMS system.
    UNEDITABLE
35 ALT-ADDR-IND 3;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  JAN 27, 1994
  • DESCRIPTION:  
    This field allows one VENDOR to have many payment addresses.
36 NON-RECURRING/RECURRING VENDOR 3;6 SET
  • 'N' FOR NON-RECURRING VENDOR;
  • 'R' FOR RECURRING;

  • LAST EDITED:  SEP 19, 1994
  • DESCRIPTION:  
    This field having a 'N' will represent that this vendor will be used only one time.
38 TAX ID/SSN 3;8 FREE TEXT

  • INPUT TRANSFORM:  S X=$TR(X,"-") K:$L(X)>9!($L(X)<9)!(X'?9N) X
  • LAST EDITED:  JUL 12, 1994
  • HELP-PROMPT:  Enter 9 digits with 0 Decimal Digits.
  • DESCRIPTION:  
    This field will send FMS information that will be used as the FMS VENDOR CODE.  FMS might use a different FMS VENDOR CODE but that is normally not done.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
39 SSN/TAX ID INDICATOR 3;9 SET
  • 'S' FOR SOCIAL SECURITY NUMBER;
  • 'T' FOR TAX IDENTIFICATION NUMBER;

  • LAST EDITED:  JUL 07, 1994
  • DESCRIPTION:  
    This field identifies what the TAX ID/SSN field is.
40 PAYMENT HOLD INDICATOR 3;10 SET
  • 'N' FOR NO;
  • 'Y' FOR YES;
  • 'C' FOR CORRESPONDENCE;

  • LAST EDITED:  FEB 04, 1994
  • DESCRIPTION:  
    Is payment for this vendor placed on hold?  Do we pay this vendor or don't we.
41 1099 VENDOR INDICATOR 3;11 SET
************************REQUIRED FIELD************************
  • 'N' FOR NO;
  • 'Y' FOR YES;

  • LAST EDITED:  JUL 07, 1994
  • DESCRIPTION:  
    Is a 1099 form filled out for this vendor?
42 PENDING FLAG 3;12 SET
  • 'P' FOR PENDING APPROVAL;
  • 'C' FOR CONFIRMATION OF APPROVAL;

  • LAST EDITED:  FEB 04, 1994
  • DESCRIPTION:  Internal IFCAP flag used to state what is being done with this vendor and FMS. When a vendor request is sent to FMS other requests should wait until there is a FMS VENDOR UPDATE. Actually no other requests can be created
    until the update comes back.
43 CENTRAL REMIT 3;13 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUL 11, 1994
  • DESCRIPTION:  
    Should all payments for this vendor be sent to one place?
44 VENDOR TYPE 3;14 SET
************************REQUIRED FIELD************************
  • 'A' FOR AGENT CASHIER;
  • 'C' FOR COMMERCIAL;
  • 'E' FOR EMPLOYEE;
  • 'F' FOR FEDERAL GOVERNMENT;
  • 'G' FOR GSA;
  • 'I' FOR INDIVIDUALS-OTHER;
  • 'O' FOR OTHER COUNTRIES;
  • 'R' FOR COMMERCIAL-RECURRING PMTS;
  • 'U' FOR UTILITY COMPANIES;
  • 'V' FOR VETERANS;
  • 'K' FOR CANTEEN;

  • LAST EDITED:  APR 24, 1995
  • EXECUTABLE HELP:  I X="??" S XQH="PRCH VENDOR TYPE HELP" D EN^XQH
45 MTI ACTION 3;15 SET
  • 'A' FOR ADD;
  • 'F' FOR ADD IFCAP ONLY;
  • 'C' FOR CHANGE;
  • 'D' FOR DELETE;

  • LAST EDITED:  FEB 17, 1994
  • DESCRIPTION:  
    This is a set of conditions telling IFCAP what to do with the FMS VENDOR UPDATE.  This field is never changed by IFCAP users.
46 FAX # 10;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<7) X
  • LAST EDITED:  JUL 07, 1994
  • HELP-PROMPT:  Answer must be 7-18 characters in length.
  • DESCRIPTION:  
    This is the vendor's FAX phone number.

ICR, Total: 11

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #609
  • PROSTHETICS
  • ICR #800
  • PROSTHETICS
  • M DATA EXTRACTOR
  • ICR #805
  • ACCOUNTS RECEIVABLE
  • ICR #988
  • LIBRARY
  • ICR #1498
  • ENGINEERING
  • NAME (.01).
    Access: Pointed to

    ICR #1525
  • EQUIPMENT/TURN-IN REQUEST
  • NAME (.01).
    Access: Pointed to

    File 413 is the file that contains the non-expendableequipment requests. It is a front-end to the purchasing of equipment.
    ICR #2606
  • PHARMACY BENEFITS MANAGEMENT
  • Name (.01).
    Access: Read w/Fileman

    ICR #2859
  • ACCOUNTS RECEIVABLE
  • TAX ID/SSN (38).
    Access: Read w/Fileman

    SSN/TAX ID INDICATOR (39).
    Access: Read w/Fileman

    ICR #4599
  • PROSTHETICS
  • BUSINESS TYPE (FPDS) (8.3).
    Access: Read w/Fileman

    DUN & BRADSTREET # (18.3).
    Access: Read w/Fileman

    TAX ID/SSN (38).
    Access: Read w/Fileman

    SSN/TAX ID INDICATOR (39).
    Access: Read w/Fileman

    ICR #4676
  • INTEGRATED BILLING
  • NAME (.01).
    Access: Read w/Fileman

    ICR #6530
  • ABOVE PAR
  • ADVANCED PROSTHETICS ACQUISITION TOOL
  • NAME (.01).
    Access: Both R/W w/Fileman

    ORDERING ADDRESS 1 (1).
    Access: Both R/W w/Fileman

    ORDERING ADDRESS2 (2).
    Access: Both R/W w/Fileman

    ORDERING ADDRESS3 (3).
    Access: Both R/W w/Fileman

    ORDERING ADDRESS4 (4).
    Access: Both R/W w/Fileman

    ORDERING CITY (4.2).
    Access: Both R/W w/Fileman

    ORDERING STATE (4.4).
    Access: Both R/W w/Fileman

    ORDERING ZIP CODE (4.6).
    Access: Both R/W w/Fileman

    PROCUREMENT CONTACT PERSON (4.8).
    Access: Both R/W w/Fileman

    VENDOR PHONE NUMBER (5).
    Access: Both R/W w/Fileman

    SUPPLY WHSE. INDICATOR (.05).
    Access: Read w/Fileman

    BILLING ADDRESS1 (22.1).
    Access: Read w/Fileman

    BILLING ADDRESS2 (22.2).
    Access: Read w/Fileman

    BILLING ADDRESS3 (22.3).
    Access: Read w/Fileman

    BILLING CITY (22.4).
    Access: Read w/Fileman

    BILLING STATE (22.5).
    Access: Read w/Fileman

    BILLING ZIP CODE (22.6).
    Access: Read w/Fileman

    BILLING PHONE NUMBER (22.7).
    Access: Read w/Fileman

    TYPE OF OWNERSHIP (.01).
    Access: Both R/W w/Fileman

    SOCIOECONOMIC GROUP(FPDS) (.01).
    Access: Both R/W w/Fileman

    ACCOUNT NO. (5.1).
    Access: Both R/W w/Fileman

    FEDERAL SOURCE (.06).
    Access: Both R/W w/Fileman

    BUSINESS TYPE (FPDS) (8.3).
    Access: Both R/W w/Fileman

    COUNTY (4.7).
    Access: Both R/W w/Fileman

    LABOR SURPLUS AREA? (8).
    Access: Both R/W w/Fileman

    BUSINESS TYPE (FPDS-88) (8.2).
    Access: Both R/W w/Fileman

    IS A SF129 ON FILE? (13).
    Access: Both R/W w/Fileman

    DATE OF SF129 (14).
    Access: Both R/W w/Fileman

    AUSTIN DELETED? (12.4).
    Access: Read w/Fileman

    FEE VENDOR (12.5).
    Access: Read w/Fileman

    GUARANTEED DELIVERY VENDOR? (5.2).
    Access: Both R/W w/Fileman

    SPECIAL FACTORS (11).
    Access: Both R/W w/Fileman

    EDI VENDOR? (.2).
    Access: Both R/W w/Fileman

    VENDOR ID NUMBER (.4).
    Access: Both R/W w/Fileman

    FMS VENDOR CODE (34).
    Access: Read w/Fileman

    ALT-ADDR-IND (35).
    Access: Read w/Fileman

    NON-RECURRING/RECURRING VENDOR (36).
    Access: Both R/W w/Fileman

    FMS VENDOR NAME (34.5).
    Access: Read w/Fileman

    TAX ID/SSN (38).
    Access: Read w/Fileman

    SSN/TAX ID INDICATOR (39).
    Access: Read w/Fileman

    PAYMENT HOLD INDICATOR (40).
    Access: Read w/Fileman

    1099 VENDOR INDICATOR (41).
    Access: Both R/W w/Fileman

    PENDING FLAG (42).
    Access: Read w/Fileman

    CENTRAL REMIT (43).
    Access: Read w/Fileman

    VENDOR TYPE (44).
    Access: Both R/W w/Fileman

    MTI ACTION (45).
    Access: Read w/Fileman

    CONTRACT/BOA NUMBER (.01).
    Access: Both R/W w/Fileman

    EXPIRATION DATE (1).
    Access: Both R/W w/Fileman

    BEGINING DATE (.5).
    Access: Both R/W w/Fileman

    PROMPT PAYMENT TERMS % (3).
    Access: Both R/W w/Fileman

    PROMPT PAYMENT TERMS DAYS (4).
    Access: Both R/W w/Fileman

    CONTRACT FLAG (5).
    Access: Both R/W w/Fileman

    CONTRACT TERMS (2).
    Access: Both R/W w/Fileman

    SYNONYM (.01).
    Access: Both R/W w/Fileman

    SERVICE/RETURN ADDRESS1 (16).
    Access: Read w/Fileman

    SERVICE/RETURN ADDRESS2 (16.1).
    Access: Read w/Fileman

    SERVICE/RETURN ADDRESS3 (16.2).
    Access: Read w/Fileman

    SERVICE/RETURN ADDRESS4 (16.3).
    Access: Read w/Fileman

    SERVICE/RETURN CITY (16.4).
    Access: Read w/Fileman

    SERVICE/RETURN STATE (16.5).
    Access: Read w/Fileman

    SERVICE/RETURN ZIP CODE (16.6).
    Access: Read w/Fileman

    SERVICE CONTACT PERSON (16.7).
    Access: Read w/Fileman

    SERVICE PHONE NO. (16.8).
    Access: Read w/Fileman

    PAYMENT CONTACT PERSON (17).
    Access: Both R/W w/Fileman

    PAYMENT PHONE NO. (17.2).
    Access: Both R/W w/Fileman

    PAYMENT ADDRESS1 (17.3).
    Access: Both R/W w/Fileman

    PAYMENT ADDRESS2 (17.4).
    Access: Both R/W w/Fileman

    PAYMENT ADDRESS3 (17.5).
    Access: Read w/Fileman

    PAYMENT ADDRESS4 (17.6).
    Access: Read w/Fileman

    PAYMENT CITY (17.7).
    Access: Both R/W w/Fileman

    PAYMENT STATE (17.8).
    Access: Both R/W w/Fileman

    PAYMENT ZIP CODE (17.9).
    Access: Both R/W w/Fileman

    CALM ID NUMBER (18).
    Access: Read w/Fileman

    CALM STUB NAME (18.2).
    Access: Read w/Fileman

    DUN & BRADSTREET # (18.3).
    Access: Both R/W w/Fileman

    REMARKS (.01).
    Access: Both R/W w/Fileman

    REPLACEMENT VENDOR CREATED (15).
    Access: Both R/W w/Fileman

    DATE VENDOR CREATED (30).
    Access: Read w/Fileman

    CREATED BY (31).
    Access: Read w/Fileman

    DATE INACTIVATED (32).
    Access: Read w/Fileman

    INACTIVATED BY (33).
    Access: Read w/Fileman

    INACTIVATED VENDOR (31.5).
    Access: Both R/W w/Fileman

    FAX # (46).
    Access: Both R/W w/Fileman

    "B" cross reference Used to look up by NAME"AC" cross reference Used to look up by SUPPLY WHSE.INDICATOR"B" cross reference Used to look up by CONTRACT/BOANUMBER

    External References

    Name Field # of Occurrence
    ^%DT 14+1, 30+1, 32+1
    EN^DDIOL .01DEL1+1
    ^DIC .06+1, 4.7+1, 4.7(HELP ), 15+1
    START^PRCHID IDZ+1
    $$UP^XLFSTR .01(XREF 1S), .01(XREF 1K)
    EN^XQH 44(HELP )

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(5 - [#5] 4.7+1, 4.7OT+1, 4.7(HELP )
    ^PRC(440 - [#440] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .05(XREF 1S), .05(XREF 1K), .4(XREF 1S), .4(XREF 1K), 4.7+1, 4.7OT+1, 4.7(HELP )
    18(XREF 1S), 18(XREF 1K), 18.3(XREF 1S), 18.3(XREF 1K), 31.5(XREF 1S), 31.5(XREF 1K), 34(XREF 1S), 34(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 4.7+1, 4.7OT+1, 4.7(HELP )
    ^(10 .01(XREF 2S), 31.5(XREF 1S)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 14+1*, 30+1*, 32+1*
    >> D 4.7(HELP )
    >> D0 4.7+1, 4.7OT+1, 4.7(HELP ), 15+1
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .05(XREF 1S), .05(XREF 1K), .4(XREF 1S), .4(XREF 1K), 15+1, 18(XREF 1S), 18(XREF 1K)
    18.3(XREF 1S), 18.3(XREF 1K), 31.5(XREF 1S), 31.5(XREF 1K), 34(XREF 1S), 34(XREF 1K)
    DIC .06+1!*, 4.7+1*!, 4.7(HELP ), 15+1!*
    DIC("DR" .01+1*
    DIC("S" .06+1*, .06SCR+1*, 15+1*, 15SCR+1*
    DIC(0 4.7+1*, 4.7(HELP )
    >> DIE .06+1, 4.7(HELP ), 15+1
    >> DIU(0 .01(XREF 2S), 31.5(XREF 1S), 31.5(XREF 1K)
    DT .01(XREF 2S), 31.5(XREF 1S)
    DUZ .01(XREF 2S), 31.5(XREF 1S)
    >> PRCHPO .01+1
    U .01(XREF 2S), 4.7+1, 4.7OT+1, 4.7(HELP ), 31.5(XREF 1S), 31.5(XREF 1K)
    X .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .05(XREF 1S), .05(XREF 1K), .06+1*!, .4+1!, .4(XREF 1S)
    .4(XREF 1K), 1+1!, 2+1!, 3+1!, 4+1!, 4.2+1!, 4.6+1!, 4.7+1!*, 4.7(HELP ), 4.8+1!
    , 5+1!, 5.1+1!, 11+1!, 14+1*!, 15+1*!, 16+1!, 16.1+1!, 16.2+1!, 16.3+1!, 16.4+1!
    , 16.6+1!, 16.7+1!, 16.8+1!, 17+1!, 17.2+1!, 17.3+1!, 17.4+1!, 17.5+1!, 17.6+1!, 17.7+1!
    , 17.9+1!, 18+1!, 18(XREF 1S), 18(XREF 1K), 18.2+1!, 18.3+1*!, 18.3(XREF 1S), 18.3(XREF 1K), 22.1+1!, 22.2+1!
    , 22.3+1!, 22.4+1!, 22.6+1!, 22.7+1!, 30+1*!, 32+1*!, 34+1!, 34(XREF 1S), 34(XREF 1K), 34.5+1!
    , 35+1!, 38+1*!, 44(HELP ), 46+1!
    >> XQH 44(HELP )
    >> Y .06+1, 4.7+1, 4.7OT+1*, 14+1, 15+1, 30+1, 32+1
    >> Y(0 4.7OT+1*
    Z0 4.7+1*!, 4.7OT+1*!, 4.7(HELP )
    ZD 4.7(HELP )
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All