Global: ^PRC(444.1

FileMan FileNo	FileMan Filename	Package
444.1	RFQ VENDOR	IFCAP

Package	Total	Routines
IFCAP	5	PRCHQ2B PRCHQ3 PRCHQ6 PRCHQ6A PRCHQM1

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

Package	Total	FileMan Files
IFCAP	2	VENDOR(#440)[60] CODE INDEX(#420.6)[#444.11(.01), #444.19(.01)]
Kernel	1	STATE(#5)[4.4, 17.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`

Customize PDF page

Package: IFCAP

Global: ^PRC(444.1

Information

Description

Accessed By FileMan Db Calls, Total: 5

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 26

ICR, Total: 1