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

Package: IFCAP

Global: ^PRC(440.3


Information

FileMan FileNo FileMan Filename Package
440.3 VENDOR EDIT IFCAP

Description

Directly Accessed By Routines, Total: 17

Package Total Routines
IFCAP 17 CONTRACT NUMBER    ITEM SPECIFIC INFORMATION    PRCFAC3    PRCFDE2    PRCHE1    PRCHNPO    PRCHUTL    PRCORV
PRCORV1    PRCOVL    PRCOVRQ    PRCOVRQ1    PRCOVTST    ^PRC(440.3    PRCOVL1    PRCOVUP
PRCOVUP4    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
IFCAP 6 PRCHE1    PRCHE1A    PRCHNPO    PRCHUTL    PRCOVL    PRCOVL1    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IFCAP 1 VENDOR EDIT(#440.3)[15, 48, 51]

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
IFCAP 3 VENDOR EDIT(#440.3)[15, 48, 51]
CODE INDEX(#420.6)[#440.31(.01), #440.35(.01)]    SOURCE CODE(#420.8)[.06]    
Kernel 2 STATE(#5)[4.4, 16.5, 17.8, 22.5]    NEW PERSON(#200)[31, 33]    

Fields, Total: 86

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.
.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:  FEB 22, 1994
  • HELP-PROMPT:  ANSWER MUST BE 1-36 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the vendor name.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  440.3^B
    1)= S ^PRC(440.3,"B",X,DA)=""
    2)= K ^PRC(440.3,"B",X,DA)
.05 SUPPLY WHSE. INDICATOR 0;11 SET
  • 'S' FOR SUPPLY WAREHOUSE;

  • INPUT TRANSFORM:  I $D(^PRC(440.3,"AC")) S Z0=+$O(^("AC","S",0)) I $D(^PRC(440.3,Z0,0)) W !,*7,$P(^(0),U,1)_" is already designated as the SUPPLY WAREHOUSE " K X
  • LAST EDITED:  FEB 22, 1994
  • 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
.06 FEDERAL SOURCE 2;2 POINTER TO SOURCE CODE FILE (#420.8) SOURCE CODE(#420.8)

  • INPUT TRANSFORM:  S DIC("S")="I ""1390""[$E(^(0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 04, 1987
  • 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 ""1390""[$E(^(0))"
  • EXPLANATION:  ENTER THE APPROPRIATE SOURCE CODE
.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.
  • DESCRIPTION:  
    This field identifies those vendors who are prepared to receive purchase orders electronically through the EDI system in AUSTIN.
.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:  JUL 26, 1991
  • 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.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
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 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 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 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 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
  • DESCRIPTION:  
    This is the state of the vendor ordering address.
4.6 ORDERING ZIP CODE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)<5!(X'?5N.E)!($L(X)>5&(X'?5N1"-"4N)) X
  • LAST EDITED:  FEB 08, 1986
  • 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.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.7 COUNTY 2;4 FREE TEXT

  • INPUT TRANSFORM:  S Z0=$S($P(^PRC(440.3,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.3,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.3,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 VA P&C contact phone number 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<3) X
  • LAST EDITED:  MAY 27, 1994
  • HELP-PROMPT:  ANSWER MUST BE 3-18 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the phone number of the procurement 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 NUMBER 4;0 Multiple #440.33 440.33

  • DESCRIPTION:  
    This is the vendor contract number.
  • IDENTIFIED BY:  EXPIRATION DATE(#1)[R], CONTRACT TERMS(#2)
8 LABOR SURPLUS AREA? 2;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 19, 1986
  • 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 STATE/LOCAL/ED./NON-PROFIT;
  • '4' FOR OUTSIDE U.S.;
  • '5' FOR FEDERAL GOVT. SOURCE;

  • LAST EDITED:  AUG 25, 1988
  • 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 STATE/LOC/ED/NPF;

  • 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.31 440.31

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

  • 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 EDIT FILE (#440.3) VENDOR EDIT(#440.3)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$D(^(9)):1,+^(9)=0:1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 25, 1987
  • DESCRIPTION:  
    This is the replacement vendor.
  • SCREEN:  S DIC("S")="I $S('$D(^(9)):1,+^(9)=0:1,1:0)"
  • EXPLANATION:  CANNOT CHOOSE AN INACTIVE VENDOR
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)>5&(X'?5N1"-"4N)) X
  • LAST EDITED:  NOV 22, 1986
  • 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.
  • 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

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1) X
  • LAST EDITED:  FEB 09, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-33 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the payment address 1.
17.4 PAYMENT ADDRESS2 7;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1) X
  • LAST EDITED:  FEB 09, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-33 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the payment address 2.
17.5 PAYMENT ADDRESS3 7;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  FEB 09, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the payment address 3.
17.6 PAYMENT ADDRESS4 7;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  FEB 09, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the payment address 4.
17.7 PAYMENT CITY 7;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  FEB 09, 1987
  • 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) STATE(#5)

  • LAST EDITED:  FEB 09, 1987
  • DESCRIPTION:  
    This is the state of the payment address.
17.9 PAYMENT ZIP CODE 7;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)<5!(X'?5N.E)!($L(X)>5&(X'?5N1"-"4N)) X
  • LAST EDITED:  FEB 09, 1987
  • 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.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
18 CALM ID NUMBER 7;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9)!(X'?9UN) X
  • LAST EDITED:  OCT 06, 1989
  • 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
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
20 SYNONYM 5;0 Multiple #440.32 440.32

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

  • DESCRIPTION:  
    These are remarks about the vendor.
  • LAST EDITED:  NOV 22, 1986
  • DESCRIPTION:  
    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:  FEB 22, 1994
  • 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.
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:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  JAN 27, 1994
  • DESCRIPTION:  
    This is the code that FMS uses to identify a vendor. It comes from the SSN/TAX ID NUMBER field in this file.
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 VENDOR 3;6 SET
  • 'N' FOR NON-RECURRING VENDOR;

  • LAST EDITED:  JAN 27, 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:  K:$L(X)>11!($L(X)<9) X
  • LAST EDITED:  MAY 23, 1994
  • HELP-PROMPT:  Answer must be 9-11 characters in length.
  • 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.
39 SSN/TAX ID INDICATOR 3;9 SET
  • 'S' FOR SOCIAL SECURITY NUMBER;
  • 'T' FOR TAX IDENTIFICATION NUMBER;

  • LAST EDITED:  FEB 04, 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
  • 'N' FOR NO;
  • 'Y' FOR YES;

  • LAST EDITED:  FEB 09, 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:  FEB 09, 1994
  • DESCRIPTION:  
    Should all payments for this vendor be sent to one place?
44 VENDOR TYPE 3;14 SET
  • '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;

  • LAST EDITED:  FEB 04, 1994
  • DESCRIPTION:  
    This is a list of different kinds of vendors.
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)<3) X
  • LAST EDITED:  MAY 26, 1994
  • DESCRIPTION:  
    This is the vendor's FAX phone number.
47 FLAG VRQ;1 SET
  • '1' FOR ADD;
  • '2' FOR CHANGE;

  • LAST EDITED:  JAN 29, 1996
  • HELP-PROMPT:  ENTER 'FLAG' VALUE
  • DESCRIPTION:  This field is the parameter from PRCHE1 that decides whether to create a NEW or UPDATE a VENDOR REQUEST.
    In addition the TRIGGER will add one (1) to the VRQ COUNT field when this field is entered.
48 VENDOR RECORD VRQ;2 POINTER TO VENDOR EDIT FILE (#440.3) VENDOR EDIT(#440.3)

  • LAST EDITED:  SEP 23, 1998
  • HELP-PROMPT:  Enter the vendor record selected.
  • DESCRIPTION:  
    This field has the internal entry number for the VENDOR file entry that may be used to create a VRQ to Austin. Actually the field should be the same as the IEN of the entry being edited.
  • CROSS-REFERENCE:  440.3^AD^MUMPS
    1)= S NAME=$S($P($G(^PRC(440.3,DA,0)),U)]"":$P($G(^PRC(440.3,DA,0)),U),1:$P($G(^PRC(440,DA,0)),U)) S:NAME]"" ^PRC(440.3,"AD",NAME,$E(X,1,30),DA)="" K NAME
    2)= S NAME=$S($P($G(^PRC(440.3,DA,0)),U)]"":$P($G(^PRC(440.3,DA,0)),U),1:$P($G(^PRC(440,DA,0)),U)) K:NAME]"" ^PRC(440.3,"AD",NAME,$E(X,1,30),DA) K NAME
    This Is a list of VENDOR file entries that need VRQs created or reviewed.
49 SITE VRQ;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • LAST EDITED:  FEB 22, 1996
  • HELP-PROMPT:  Enter the SITE number.
  • DESCRIPTION:  
    This field will be used to create the VRQ to Austin.
  • CROSS-REFERENCE:  440.3^AC^MUMPS
    1)= D AC^PRCFQ1
    2)= Q
    VRQ)= ^^688
    This M cross-reference will add one (1) to the entry in the COUNTER file (file 422.2). The entry is 123-VRQ-01.
50 FLAG AR AR;1 SET
  • '1' FOR ADD;
  • '2' FOR CHANGE;

  • LAST EDITED:  SEP 03, 1998
  • DESCRIPTION:  
    This field will be filled in when Accounts Receivable chooses a vendor that is not vendorized. This vendor needs to be edited before the VRQ can be sent.
51 VENDOR RECORD - AR AR;2 POINTER TO VENDOR EDIT FILE (#440.3) VENDOR EDIT(#440.3)

  • LAST EDITED:  SEP 23, 1998
  • HELP-PROMPT:  Enter the vendor record selected.
  • DESCRIPTION:  This field has the internal entry number for the VENDOR file entry that needs to be edited. This record needs to be edited because Accounts Receivable is having a record in the DEBTOR file pointing to this record.
    Presently this record is not vendorized and is missing some data to be able to become a VRQ. This record needs to be edited by SUPPLY and maybe FISCAL before it is able to create a VRQ. This field's data should equal the
    IEN for this record.
  • CROSS-REFERENCE:  440.3^AE^MUMPS
    1)= S NAME=$P($G(^PRC(440.3,DA,0)),U) S:NAME]"" ^PRC(440.3,"AE",NAME,$E(X,1,30),DA)="" K NAME
    2)= S NAME=$P($G(^PRC(440.3,DA,0)),U) K:NAME]"" ^PRC(440.3,"AE",NAME,$E(X,1,30),DA) K NAME
    This is a list of VENDOR file entries that AR has selected. These entries need to be vendorized but first need to be edited to supply missing data.
52 SITE AR AR;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?1.3N) X
  • LAST EDITED:  SEP 14, 1998
  • DESCRIPTION:  
    This field will be used to edit this record in preparation to entering a VRQ for this record.
  • CROSS-REFERENCE:  440.3^AF^MUMPS
    1)= D AF^PRCHUTL
    2)= Q
    This M cross-reference will add one (1) to the AR EDIT entry in the COUNTER file.
53 OK AR;4 SET
  • 'OK' FOR OK;
  • 'GOOD' FOR GOOD;

  • LAST EDITED:  OCT 19, 1998
  • DESCRIPTION:  This field, when filled in, will signify that this record has all the required fields to create a VRQ.
    This field is entered in EDIT^PRCOVL.
54 SENT AR;5 SET
  • 'SENT' FOR SENT;

  • LAST EDITED:  SEP 24, 1998
  • DESCRIPTION:  
    When SENT is set the record will have sent a VRQ to Austin or to FISCAL for review. This will be set by programming in VRQ^PRCOVL1.
55 UEI 3;16 FREE TEXT

  • INPUT TRANSFORM:  S X=$$UP^XLFSTR(X) K:'$$VALIDUEI^PRCHUEI(X) X
    MAXIMUM LENGTH: 12
  • LAST EDITED:  FEB 22, 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

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #6979
  • ABOVE PAR
    		•  NAME (.01).
    Access: Both R/W w/Fileman

    ORDERING ADDRESS1 (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

    VA P&C contact phone number (5).
    Access: Both R/W w/Fileman

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

    BILLING ADDRESS1 (22.1).
    Access: Both R/W w/Fileman

    BILLING ADDRESS2 (22.2).
    Access: Both R/W w/Fileman

    BILLING ADDRESS3 (22.3).
    Access: Both R/W w/Fileman

    BILLING CITY (22.4).
    Access: Both R/W w/Fileman

    BILLING STATE (22.5).
    Access: Both R/W w/Fileman

    BILLING ZIP CODE (22.6).
    Access: Both R/W w/Fileman

    BILLING PHONE NUMBER (22.7).
    Access: Both R/W w/Fileman

    TYPE OF OWNERSHIP (FY88) (.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: Both R/W w/Fileman

    FEE VENDOR (12.5).
    Access: Both R/W 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: Both R/W w/Fileman

    ALT-ADDR-IND (35).
    Access: Both R/W w/Fileman

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

    TAX ID/SSN (38).
    Access: Both R/W w/Fileman

    SSN/TAX ID INDICATOR (39).
    Access: Both R/W w/Fileman

    PAYMENT HOLD INDICATOR (40).
    Access: Both R/W w/Fileman

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

    PENDING FLAG (42).
    Access: Both R/W w/Fileman

    CENTRAL REMIT (43).
    Access: Both R/W w/Fileman

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

    MTI ACTION (45).
    Access: Both R/W w/Fileman

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

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

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

    PROMPT PAYMENT TERM DAYS (4).
    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: Both R/W w/Fileman

    SERVICE/RETURN ADDRESS2 (16.1).
    Access: Both R/W w/Fileman

    SERVICE/RETURN ADDRESS3 (16.2).
    Access: Both R/W w/Fileman

    SERVICE/RETURN ADDRESS4 (16.3).
    Access: Both R/W w/Fileman

    SERVICE/RETURN CITY (16.4).
    Access: Both R/W w/Fileman

    SERVICE/RETURN STATE (16.5).
    Access: Both R/W w/Fileman

    SERVICE/RETURN ZIP CODE (16.6).
    Access: Both R/W w/Fileman

    SERVICE CONTACT PERSON (16.7).
    Access: Both R/W w/Fileman

    SERVICE PHONE NO. (16.8).
    Access: Both R/W 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: Both R/W w/Fileman

    PAYMENT ADDRESS4 (17.6).
    Access: Both R/W 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: Both R/W w/Fileman

    CALM STUB NAME (18.2).
    Access: Both R/W w/Fileman

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

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

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

    DATE VENDOR CREATED (30).
    Access: Both R/W w/Fileman

    CREATED BY (31).
    Access: Both R/W w/Fileman

    DATE INACTIVATED (32).
    Access: Both R/W w/Fileman

    INACTIVATED BY (33).
    Access: Both R/W w/Fileman

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

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

    FLAG AR (50).
    Access: Both R/W w/Fileman

    VENDOR RECORD - AR (51).
    Access: Both R/W w/Fileman

    SITE AR (52).
    Access: Both R/W w/Fileman

    OK (53).
    Access: Both R/W w/Fileman

    SENT (54).
    Access: Both R/W w/Fileman

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

    VENDOR RECORD (48).
    Access: Both R/W w/Fileman

    SITE (49).
    Access: Both R/W w/Fileman

    		 "B" cross reference - used to search by Vendor Name.

    External References

    Name Field # of Occurrence
    ^%DT 14+1, 30+1, 32+1
    ^DIC .06+1, 4.7+1, 4.7(HELP ), 15+1
    ADD^PRCFDADD IDZ7+1
    AC^PRCFQ1 49(XREF 1S)
    $$VALIDUEI^PRCHUEI 55+1
    AF^PRCHUTL 52(XREF 1S)
    $$UP^XLFSTR 55+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(5 - [#5] IDZ4+1, 4.7+1, 4.7OT+1, 4.7(HELP )
    ^PRC(440 - [#440] 48(XREF 1S), 48(XREF 1K)
    ^PRC(440.3 - [#440.3] IDZ4+1, IDZ8+1, .01(XREF 1S), .01(XREF 1K), 4.7+1, 4.7OT+1, 4.7(HELP ), 48(XREF 1S), 48(XREF 1K), 51(XREF 1S)
    , 51(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 IDZ2+1, IDZ4+1, IDZ5+1, 4.7+1, 4.7OT+1, 4.7(HELP )
    ^(10 IDZ1+1
    ^(2 IDZ5+1
    ^(3 IDZ0+1, IDZ3+1
    ^(7 IDZ7+1
    ^(9 IDZ1+1

    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 )
    >> DA .01(XREF 1S), .01(XREF 1K), 48(XREF 1S), 48(XREF 1K), 51(XREF 1S), 51(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
    NAME 48(XREF 1S), 48(XREF 1K), 51(XREF 1S), 51(XREF 1K)
    >> PRCFD("PAY" IDZ2+1, IDZ3+1, IDZ4+1, IDZ5+1, IDZ7+1
    >> PRCHPO .01+1
    U IDZ0+1, IDZ1+1, IDZ2+1, IDZ3+1, IDZ4+1, IDZ5+1, 4.7+1, 4.7OT+1, 4.7(HELP ), 48(XREF 1S)
    , 48(XREF 1K), 51(XREF 1S), 51(XREF 1K)
    X .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .06+1*!, .4+1!, 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.2+1!, 18.3+1*!, 22.1+1!
    , 22.2+1!, 22.3+1!, 22.4+1!, 22.6+1!, 22.7+1!, 30+1*!, 32+1*!, 34+1!, 35+1!, 38+1!
    , 46+1!, 48(XREF 1S), 48(XREF 1K), 49+1!, 51(XREF 1S), 51(XREF 1K), 52+1!, 55+1*!
    >> Y IDZ3+1, IDZ4+1, IDZ8+1, .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 )
    Z8 IDZ4+1*, IDZ7+1*, IDZ8+1!
    Z9 IDZ1+1*, IDZ2+1, IDZ3+1, IDZ4+1, IDZ5+1, IDZ7+1, IDZ8+1!
    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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All