STANDARD DATA DICTIONARY #440 -- VENDOR FILE                                                                      6/27/25    PAGE 1
STORED IN ^PRC(440,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                         (VERSION 5.1)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the listing of Vendors used by the facility. The data includes the name, address, contact person, contract
number and FPDS data used when entering a request and purchase order.  


FILE SCREEN (SCR-node) : X:$D(PRCHREAV) PRCHREAV
IDENTIFIED BY: 
          "Z": G START^PRCHID

POINTED TO BY: DEBTOR field (#.01) of the AR DEBTOR File (#340) 
               VENDOR LINK field (#.06) of the AR DEBTOR File (#340) 
               VENDOR field (#23.01) of the PFSS CHARGE CACHE File (#373) 
               CARRIER field (#7) of the BENEFICIARY TRAVEL CLAIM File (#392) 
               SPECIAL MODE VENDOR field (#71) of the BENEFICIARY TRAVEL CLAIM File (#392) 
               TRANSCRIBED BY field (#10.04) of the INCOMPLETE RECORDS File (#393) 
               VENDOR(POINTER) field (#12) of the CONTROL POINT ACTIVITY File (#410) 
               VENDOR(POINTER) field (#4) of the ITEM sub-field (#410.31) of the REPETITIVE ITEM LIST File (#410.3) 
               ENG TRAIN VENDOR PTR field (#55.5) of the EQUIPMENT REQUEST File (#413) 
               POTENTIAL VENDOR PTR field (#2) of the LINE ITEM NUMBER sub-field (#413.015) of the EQUIPMENT REQUEST File (#413) 
               VENDOR field (#2) of the DYNAMED IFCAP INTERFACE AUDIT File (#414.02) 
               VENDOR field (#6) of the INVOICE TRACKING File (#421.5) 
               REPLACEMENT VENDOR field (#15) of the VENDOR File (#440) 
               LAST VENDOR ORDERED field (#9) of the ITEM MASTER File (#441) 
               MANDATORY SOURCE field (#10) of the ITEM MASTER File (#441) 
               VENDOR field (#.01) of the VENDOR sub-field (#441.01) of the ITEM MASTER File (#441) 
               PREFERRED VENDOR field (#3) of the FCP sub-field (#441.03) of the ITEM MASTER File (#441) 
               VENDOR field (#5) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File (#442) 
               PCDO VENDOR field (#53) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File (#442) 
               VENDOR field (#5) of the AMENDMENTS File (#443.6) 
               PCDO VENDOR field (#53) of the AMENDMENTS File (#443.6) 
               SOLICITED VENDOR field (#20) of the REQUEST FOR QUOTATION File (#444) 
               QUOTES field (#24) of the REQUEST FOR QUOTATION File (#444) 
               SOLICITED VENDOR field (#.01) of the SOLICITED VENDOR sub-field (#444.01) of the REQUEST FOR QUOTATION File (#444) 
               PRIOR VENDOR field (#13) of the ITEM sub-field (#444.019) of the REQUEST FOR QUOTATION File (#444) 
               VENDOR SELECTED field (#17) of the ITEM sub-field (#444.019) of the REQUEST FOR QUOTATION File (#444) 
               RECIPIENT field (#11) of the 864 MESSAGES sub-field (#444.021) of the REQUEST FOR QUOTATION File (#444) 
               RECIPIENT field (#.01) of the RECIPIENT sub-field (#444.022) of the 864 MESSAGES sub-field (#444.021) of the REQUEST 
                   FOR QUOTATION File (#444) 
               QUOTE VENDOR field (#.01) of the QUOTES sub-field (#444.024) of the REQUEST FOR QUOTATION File (#444) 
               LINK TO FILE 440 VENDOR field (#60) of the RFQ VENDOR File (#444.1) 
               MANDATORY OR REQUESTED SOURCE field (#.4) of the INVENTORY ITEM sub-field (#445.01) of the GENERIC INVENTORY File 
                   (#445) 
               PROCUREMENT SOURCE field (#.01) of the PROCUREMENT SOURCE sub-field (#445.07) of the INVENTORY ITEM sub-field 
                   (#445.01) of the GENERIC INVENTORY File (#445) 
               VENDOR field (#7) of the RECORD OF PROS APPLIANCE/REPAIR File (#660) 
               VENDOR field (#25) of the ITEM sub-field (#661.312) of the HCPCS sub-field (#661.31) of the PROS ITEM LOCATION File 
                   (#661.3) 
               VENDOR field (#4) of the HCPCS INVENTORY ORDER AND REORDER File (#661.41) 
               VENDOR field (#12) of the PROSTHETIC INVENTORY TRANSACTION File (#661.6) 
               VENDOR field (#9) of the PROSTHETIC TRANSACTION PATIENT ISSUE File (#661.63) 
               VENDOR VA CODE field (#3) of the VENDOR PRODUCT HCPCS MAP File (#661.8) 
               VENDOR field (#4) of the PROSTHETICS 1358 File (#664) 
               VENDOR field (#15) of the ITEM sub-field (#664.16) of the PROSTHETIC 2529-3 File (#664.1) 
               VENDOR field (#5) of the MATERIALS USED sub-field (#664.22) of the PROSTHETIC WORK ORDER File (#664.2) 
               PATIENT NAME/INSTITUTION field (#1) of the PROSTHETIC HOME/LIAISON VISITS File (#665.1) 
               VENDOR field (#1) of the HOME OXYGEN ITEM sub-field (#665.194) of the PROSTHETICS PATIENT File (#665) 
               VENDOR field (#7) of the PROS LETTER TRANSACTION FILE File (#665.4) 
               VENDOR field (#.01) of the VENDOR sub-field (#665.7231) of the BILLING MONTH sub-field (#665.723) of the HOME OXYGEN 
                   TRANSACTIONS FILE File (#665.72) 
               VENDOR field (#5) of the FUND CONTROL POINT sub-field (#665.7232) of the BILLING MONTH sub-field (#665.723) of the 
                   HOME OXYGEN TRANSACTIONS FILE File (#665.72) 
               HOME OXYGEN VENDORS field (#.01) of the HOME OXYGEN VENDOR sub-field (#669.962) of the PROSTHETICS SITE PARAMETERS 
                   File (#669.9) 
               VENDOR field (#4) of the CONTRACT sub-field (#731.02) of the VAMC MANAGEMENT File (#731) 
               VENDOR POINTER field (#10) of the EQUIPMENT INV. File (#6914) 
               VENDOR field (#.01) of the VENDOR sub-field (#6917.016) of the CATEGORY STOCK NUMBER File (#6917) 
               

CROSS
REFERENCED BY: SUPPLY WHSE. INDICATOR(AC), NAME(AD), INACTIVATED VENDOR(AE), CALM ID NUMBER(AF), VENDOR ID NUMBER(AG), NAME(B), 
               SYNONYM(C), FMS VENDOR CODE(D), DUN & BRADSTREET #(DB), UEI(E)

    LAST MODIFIED: SEP 20,2022@22:00:58

440,.001      NUMBER                     NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) K:$$NOK^PRCHE1(X) X
              LAST EDITED:      MAR 17, 2017 
              HELP-PROMPT:      Type a whole number between 1 and 949999; 950000-999999 are reserved. 
              DESCRIPTION:      This is the vendor number. Values 950000 and higher are reserved for vendor entries controlled by
                                the VHA Procurement & Logistics Office.  

              TECHNICAL DESCR:
                                This is the internal entry number for this vendor.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


440,.01       NAME                   0;1 FREE TEXT (Required)

              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")="[PR
                                CHVENDOR]"
              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 '**'.  



440,.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.  



440,.06       FEDERAL SOURCE         2;2 POINTER TO SOURCE CODE FILE (#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


440,.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.  


440,.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.  



440,1         ORDERING ADDRESS1      0;2 FREE TEXT (Required)

              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.  


440,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.  


440,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.  


440,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.  


440,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.  


440,4.4       ORDERING STATE         0;7 POINTER TO STATE FILE (#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.  


440,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


440,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="^D
                                IC(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


440,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.  


440,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.  


440,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.  


440,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.  


440,6         CONTRACT/BOA NUMBER    4;0 Multiple #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]

440.03,.01      CONTRACT/BOA NUMBER    0;1 FREE TEXT (Multiply asked)

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>19!($L(X)<7) X
                LAST EDITED:      MAR 04, 1997 
                HELP-PROMPT:      ANSWER MUST BE 7-19 CHARACTERS IN LENGTH 
                DESCRIPTION:      This is the Contract/BOA number.  This field will have values for Contract # or BOA # as
                                  appropriate.  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  440.03^B 
                                  1)= S ^PRC(440,DA(1),4,"B",$E(X,1,30),DA)=""
                                  2)= K ^PRC(440,DA(1),4,"B",$E(X,1,30),DA)


440.03,.5       BEGINING DATE          0;3 DATE

                INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      MAR 07, 1994 
                HELP-PROMPT:      Enter the starting date for this contract. 
                DESCRIPTION:
                                  This is the starting date for this contract.  


440.03,1        EXPIRATION DATE        0;2 DATE (Required)

                INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      NOV 22, 1986 
                HELP-PROMPT:      Enter the ending date for this vendor contract. 
                DESCRIPTION:
                                  This is the expiration date of this vendor contract.  


440.03,2        CONTRACT TERMS         1;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
                LAST EDITED:      APR 05, 1986 
                HELP-PROMPT:      ANSWER MUST BE 3-50 CHARACTERS IN LENGTH 
                DESCRIPTION:
                                  These are the contract terms.  


440.03,3        PROMPT PAYMENT TERMS % 0;4 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
                LAST EDITED:      MAR 04, 1986 
                HELP-PROMPT:      ANSWER MUST BE 1-5 CHARACTERS IN LENGTH 
                DESCRIPTION:
                                  These are the prompt payment terms.  


440.03,4        PROMPT PAYMENT TERMS DAYS 0;5 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>60)!(X<1)!(X?.E1"."1N.N) X
                LAST EDITED:      MAR 04, 1986 
                HELP-PROMPT:      TYPE A WHOLE NUMBER BETWEEN 1 AND 60 
                DESCRIPTION:
                                  These are the prompt payment terms number of days.  


440.03,5        CONTRACT FLAG          0;6 SET (Required)

                                  'C' FOR CONTRACT; 
                                  'B' FOR BASIC ORDERING AGREEMENT; 
                INPUT TRANSFORM:  D EN14^PRCHNPO5
                LAST EDITED:      FEB 20, 1997 
                DESCRIPTION:      This field will indicate whether the CONTRACT NUMBER field contains a Contract # or a Basic
                                  Ordering Agreement(BOA) #.  

                EXECUTABLE HELP:  I X="??" S XQH="PRCH CONTRACT FLAG HELP" D EN^XQH
                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER




440,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.  


440,8.2       BUSINESS TYPE (FPDS-88) 2;6 SET (Required)

                                '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


440,8.3       BUSINESS TYPE (FPDS)   2;3 SET (Required)

                                '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.  


440,9         TYPE OF OWNERSHIP (FY88) 1;0 POINTER Multiple #440.01 (Add New Entry without Asking)

              DESCRIPTION:
                                This is the type of ownership for FY88 FPDS reporting purposes.  


440.01,.01      TYPE OF OWNERSHIP (FY88) 0;1 POINTER TO CODE INDEX FILE (#420.6) (Multiply asked)

                INPUT TRANSFORM:S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                                 I $D(X) S DINUM=X
                OUTPUT TRANSFORM:Q:Y=""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""),Y=$P(Y,U,1)_"   "_$P(Y,U,2)
                LAST EDITED:    SEP 21, 1988 
                DESCRIPTION:
                                This is the type of ownership.  

                SCREEN:         S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0"
                EXPLANATION:    CAN ONLY BE AN M,W,Y OR V
                NOTES:          XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER




440,10        SOCIOECONOMIC GROUP (FPDS) 1.1;0 POINTER Multiple #440.05

              DESCRIPTION:
                                This is the socioeconomic group of the vendor for the current year.  


440.05,.01      SOCIOECONOMIC GROUP (FPDS) 0;1 POINTER TO CODE INDEX FILE (#420.6) (Required) (Multiply asked)

                INPUT TRANSFORM:S DIC("S")="I Y>155,$P(^(0),U,3)=1",DIC("S")=DIC("S")_$S($P(^PRC(440,DA,2),U,3)'=4:",Y<169",1:",Y<1
                                69") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
                OUTPUT TRANSFORM:Q:Y=""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""),Y=$P(Y,U,1)_"  "_$P(Y,U,2)
                LAST EDITED:    JAN 09, 2001 
                HELP-PROMPT:    Enter FPDS Socioeconomic Group for use in FPDS reporting for FY 1989 or later. 
                DESCRIPTION:
                                This is the socioeconomic group.  

                SCREEN:         S DIC("S")="I Y>155,$P(^(0),U,3)=1",DIC("S")=DIC("S")_$S($P(^PRC(440,DA,2),U,3)'=4:",Y<169",1:",Y<1
                                69")
                EXPLANATION:    Select HZ,N,P,RV,W,S,U,LW,LV, or OO
                NOTES:          XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER




440,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.  


440,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.  


440,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.  


440,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.  


440,14        DATE OF SF129          2;8 DATE (Required)

              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.  


440,15        REPLACEMENT VENDOR     9;1 POINTER TO VENDOR FILE (#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


440,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.  


440,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.  


440,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.  


440,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 


440,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.  


440,16.5      SERVICE/RETURN STATE   6;6 POINTER TO STATE FILE (#5)

              LAST EDITED:      NOV 22, 1986 
              DESCRIPTION:
                                This is the state of the service/return address.  


440,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


440,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.  


440,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.  


440,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.  


440,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.  


440,17.3      PAYMENT ADDRESS1       7;3 FREE TEXT (Required)

              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


440,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.  


440,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.  


440,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.  


440,17.7      PAYMENT CITY           7;7 FREE TEXT (Required)

              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.  


440,17.8      PAYMENT STATE          7;8 POINTER TO STATE FILE (#5) (Required)

              LAST EDITED:      JUL 07, 1994 
              DESCRIPTION:
                                This is the state of the payment address.  


440,17.9      PAYMENT ZIP CODE       7;9 FREE TEXT (Required)

              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


440,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.  



440,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.  


440,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 #.  



440,20        SYNONYM                5;0 Multiple #440.02

              DESCRIPTION:
                                This is a synonym for the vendor.  


440.02,.01      SYNONYM                0;1 FREE TEXT (Multiply asked)

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>36!($L(X)<3) X
                LAST EDITED:      JUL 27, 1985 
                HELP-PROMPT:      ANSWER MUST BE 3-36 CHARACTERS IN LENGTH 
                DESCRIPTION:
                                  This is the synonym for the vendor.  

                CROSS-REFERENCE:  440^C 
                                  1)= S ^PRC(440,"C",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^PRC(440,"C",$E(X,1,30),DA(1),DA)
                                  This X-REF contains the SYNONYM for each vendor.  There can be multiple SYNONYMS for each vendor. 
                                  There can be the same SYNONYM for different vendors.  





440,21        REMARKS                8;0   WORD-PROCESSING #440.04

              DESCRIPTION:
                                These are remarks about the vendor.  


                LAST EDITED:      NOV 22, 1986 
                DESCRIPTION:
                                   Remarks about the vendor 




440,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.  


440,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.  


440,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.  


440,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.  


440,22.5      BILLING STATE          .11;5 POINTER TO STATE FILE (#5)

              LAST EDITED:      NOV 25, 1987 
              DESCRIPTION:
                                This is the state of the billing address.  


440,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.  


440,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.  


440,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.  


440,31        CREATED BY             10;2 POINTER TO NEW PERSON FILE (#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.  


440,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.  



440,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.  


440,33        INACTIVATED BY         10;4 POINTER TO NEW PERSON FILE (#200)

              LAST EDITED:      DEC 21, 1992 
              DESCRIPTION:
                                This is the person who made the vendor inactive.  


440,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)


440,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

440,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.  


440,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.  


440,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


440,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.  


440,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.  


440,41        1099 VENDOR INDICATOR  3;11 SET (Required)

                                'N' FOR NO; 
                                'Y' FOR YES; 
              LAST EDITED:      JUL 07, 1994 
              DESCRIPTION:
                                Is a 1099 form filled out for this vendor? 


440,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.  


440,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? 


440,44        VENDOR TYPE            3;14 SET (Required)

                                '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

440,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.  


440,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.  


440,55        UEI                    3;16 FREE TEXT

              INPUT TRANSFORM:  S X=$$UP^XLFSTR(X) K:'$$VALIDUEI^PRCHUEI(X) X
              MAXIMUM LENGTH:   12
              LAST EDITED:      FEB 24, 2022 
              HELP-PROMPT:      Enter GSA's 12 characters Unique Entity Identifier for this vendor. 
              DESCRIPTION:      This field holds the Unique Entity Identifier (UEI) which is the alphanumeric value used as the
                                primary key for vendors in GSA's System of Award Management (SAM).  Value does not contain letters 
                                'O' or 'I'.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  440^E 
                                1)= S ^PRC(440,"E",$E(X,1,30),DA)=""
                                2)= K ^PRC(440,"E",$E(X,1,30),DA)
                                This cross reference enables the lookup and sorting of vendor entries by the Unique Entity
                                Identifier (UEI).  




      FILES POINTED TO                      FIELDS

CODE INDEX (#420.6)               TYPE OF OWNERSHIP (FY88):TYPE OF OWNERSHIP (FY88) (#.01)
                                  SOCIOECONOMIC GROUP (FPDS):SOCIOECONOMIC GROUP (FPDS) (#.01)

NEW PERSON (#200)                 CREATED BY (#31)
                                  INACTIVATED BY (#33)

SOURCE CODE (#420.8)              FEDERAL SOURCE (#.06)

STATE (#5)                        ORDERING STATE (#4.4)
                                  SERVICE/RETURN STATE (#16.5)
                                  PAYMENT STATE (#17.8)
                                  BILLING STATE (#22.5)

VENDOR (#440)                     REPLACEMENT VENDOR (#15)



INPUT TEMPLATE(S):
PRCF FMS VENEDIT1             FEB 01, 2022@14:08  USER #0    
PRCF FMS VENEDIT1B            FEB 01, 2022@13:41  USER #0    
PRCF FMS VENEDIT2             FEB 01, 2022@14:39  USER #0    
PRCF FMS VENEDIT2B            FEB 01, 2022@14:50  USER #0    
PRCFACALM                     MAY 25, 1994@10:47  USER #0    
PRCHFEDVEN                    JAN 27, 2022@17:56  USER #0    
PRCHVENDOR                    DEC 03, 2019@11:22  USER #0    
PRCHVENDOR1                   JAN 28, 2022@17:52  USER #0    
PRCHVENDORNOREACT             JAN 31, 2022@16:12  USER #0    
PRCO EDI VENDOR               JAN 14, 1993@14:18  USER #0    

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):