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  | All
Print Page as PDF
Global: ^PRC(444.1

Package: IFCAP

Global: ^PRC(444.1


Information

FileMan FileNo FileMan Filename Package
444.1 RFQ VENDOR IFCAP

Description

Directly Accessed By Routines, Total: 14

Package Total Routines
IFCAP 14 PRCHQ11    PRCHQ13A    PRCHQ1B    PRCHQ2B    PRCHQ3    PRCHQ4    PRCHQ4A    PRCHQ6
PRCHQ6A    PRCHQM1    PRCHQM3    PRCHQRP3    PRCHQRP4    PRCOER    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
IFCAP 5 PRCHQ2B    PRCHQ3    PRCHQ6    PRCHQ6A    PRCHQM1    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IFCAP 1 REQUEST FOR QUOTATION(#444)[2024#444.01(.01)#444.019(17)#444.021(11)#444.022(.01)#444.024(.01)]

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IFCAP 2 VENDOR(#440)[60]    CODE INDEX(#420.6)[#444.11(.01)#444.19(.01)]    
Kernel 1 STATE(#5)[4.417.8]    

Fields, Total: 26

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

  • INPUT TRANSFORM:  K:$L(X)>36!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  NOV 20, 1995
  • HELP-PROMPT:  Answer must be 3-36 characters in length.
  • DESCRIPTION:  
    This is the Vendor's Name.
  • CROSS-REFERENCE:  444.1^B
    1)= S ^PRC(444.1,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(444.1,"B",$E(X,1,30),DA)
1 ORDER ADDR LINE 1 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1) X
  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Answer must be 1-33 characters in length.
  • DESCRIPTION:  
    This is the first line of the Ordering Address.
2 ORDER ADDR LINE 2 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>33!($L(X)<1) X
  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Answer must be 1-33 characters in length.
  • DESCRIPTION:  
    This is the second line of the Ordering Address.
3 ORDER ADDR LINE 3 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Answer must be 1-25 characters in length.
  • DESCRIPTION:  
    This is the third line of the Ordering Address.
4 ORDER ADDR LINE 4 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Answer must be 1-25 characters in length.
  • DESCRIPTION:  
    This is the fourth line of the Ordering Address.
4.2 ORDER ADDR CITY 1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    This is the City field of the Ordering Address.
4.4 ORDER ADDR STATE 1;6 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Enter State's name or abbreviation
  • DESCRIPTION:  
    This is the State of the Ordering Address.
4.6 ORDER ADDR ZIP CODE 1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4N)) X
  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Enter Zip Code as 5 digits or as 5 plus 4 digits.
  • DESCRIPTION:  
    This is the Zip Code of the Ordering Address.
4.8 CONTACT 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X?.ANP) X
  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Enter the name of the contact person for product information (3-30 chars).
  • DESCRIPTION:  
    This is the name of the contact person for information from this vendor.
5 VOICE PHONE 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>21!($L(X)<10) X
  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Answer must be 10-21 characters in length.
  • DESCRIPTION:  
    This is the voice phone number for product and ordering information.
8.3 BUSINESS TYPE 0;5 SET
  • '1' FOR SMALL;
  • '2' FOR LARGE;
  • '3' FOR OUTSIDE U.S.;
  • '4' FOR STATE/LOC/ED/NPF;

  • LAST EDITED:  JAN 18, 1996
  • 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 3;0 POINTER Multiple #444.19 444.19

  • DESCRIPTION:  
    This is the type of ownership.
  • SCREEN:  S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U),$P(^(0),U,3)=0"
  • EXPLANATION:  Can only be an M, W, Y, or V
10 SOCIOECONOMIC GROUP 4;0 POINTER Multiple #444.11 444.11

  • DESCRIPTION:  
    This is the socioeconomic group.
  • SCREEN:  S DIC("S")="I Y>155,$P(^(0),U,3)=1"
  • EXPLANATION:  Select N, P, Q, R, W, or OO
17.1 PAYMENT ADDR NAME 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JAN 19, 1996
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    This is the first line of the Payment Address' Name.
17.15 PAYMENT ADDR NAME 2 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JAN 19, 1996
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    This is the second line of the Payment Address' Name.
17.3 PAYMENT ADDR LINE 1 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JAN 19, 1996
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    This is the first line of the Payment Address.
17.4 PAYMENT ADDR LINE 2 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JAN 19, 1996
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    This is the second line of the Payment Address.
17.5 PAYMENT ADDR LINE 3 2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  JAN 19, 1996
  • HELP-PROMPT:  Answer must be 1-35 characters in length.
  • DESCRIPTION:  
    This is the third line of the Payment Address.
17.7 PAYMENT CITY 2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JAN 19, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This is the City of the Payment Address.
17.8 PAYMENT STATE 2;7 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  JAN 19, 1996
  • HELP-PROMPT:  Enter the State's name or abbreviation.
  • DESCRIPTION:  
    This is the State of the Payment Address.
17.9 PAYMENT ZIP CODE 2;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1"-"4N)) X
  • LAST EDITED:  JAN 19, 1996
  • HELP-PROMPT:  Enter the Zip Code as 5 digits or as 5 plus 4 digits.
  • DESCRIPTION:  
    This is the Zip Code of the Payment Address.
18.3 DUN & BRADSTREET # 0;2 FREE TEXT

  • INPUT TRANSFORM:  S:$E(X,1,3)="DUN" X=$E(X,4,99) K:$L(X)>12!($L(X)<5) X I $D(X)#10,'$$DBCHK^PRCHQ1B(X) D EN^DDIOL("Failed D&B Checksum") K X
  • LAST EDITED:  JUN 13, 1996
  • HELP-PROMPT:  Enter the vendor's 5-12 characters code.
  • DESCRIPTION:  
    This field contains the Dun & Bradstreet # for the Vendor. This is the unique key for the vendor.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  444.1^DB^MUMPS
    1)= S ^PRC(444.1,"DB","DUN"_$E(X,1,30),DA)=""
    2)= K ^PRC(444.1,"DB","DUN"_$E(X,1,30),DA)
    This cross reference enables lookup by Dun & Bradstreet #.
38 TAX ID 0;4 FREE TEXT

  • INPUT TRANSFORM:  S X=$TR(X,"-") K:$L(X)>9!($L(X)<9)!'(X?9N) X
  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Enter 9 digits code without hyphens.
  • DESCRIPTION:  
    This is the Tax ID or Social Security Number for the vendor.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
46 FAX # 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>21!($L(X)<10) X
  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Answer must be 10-21 characters in length.
  • DESCRIPTION:  
    This is the fax phone number.
50 SECTION 8(a) PARTICIPANT 0;8 SET
  • 'y' FOR YES;
  • 'n' FOR NO;

  • LAST EDITED:  MAR 14, 1996
  • HELP-PROMPT:  Enter 'YES' if vendor is a Section 8(a) Program participant.
  • DESCRIPTION:  
    This field indicates whether the vendor is a Section 8(a) program participant.
60 LINK TO FILE 440 VENDOR 0;9 POINTER TO VENDOR FILE (#440) VENDOR(#440)

  • INPUT TRANSFORM:  S DIC("S")="I $P($G(^(7)),U,12)=$P($G(^PRC(444.1,D0,0)),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 06, 1996
  • HELP-PROMPT:  Enter File #440 entry which is the same vendor
  • DESCRIPTION:  This field enables mapping of an entry from RFQ Vendor file (a temporary file) to an entry in the VENDOR file so that 2237s and POs will be built with information from the VENDOR file if the equivalent entry has been
    added.
  • SCREEN:  S DIC("S")="I $P($G(^(7)),U,12)=$P($G(^PRC(444.1,D0,0)),U,2)"
  • EXPLANATION:  Only allow linkage to vendor with same Dun & Bradstreet #
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3705
  • M DATA EXTRACTOR
  • Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All