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: 16

Package Total Routines
IFCAP 16 CONTRACT NUMBER    PRCFAC3    PRCFDE2    PRCHE1    PRCHNPO    PRCHUTL    PRCORV    PRCORV1
PRCOVL1    PRCOVRQ    PRCOVTST    ^PRC(440.3    PRCOVL    PRCOVRQ1    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)[154851]

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
IFCAP 3 VENDOR EDIT(#440.3)[154851]
CODE INDEX(#420.6)[#440.31(.01)#440.35(.01)]    SOURCE CODE(#420.8)[.06]    
Kernel 2 STATE(#5)[4.416.517.822.5]    NEW PERSON(#200)[3133]    

Fields, Total: 85

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

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)
    AF^PRCHUTL 52(XREF 1S)

    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!
    >> 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