Global: ^PRC(444

FileMan FileNo	FileMan Filename	Package
444	REQUEST FOR QUOTATION	IFCAP

Package	Total	Routines
IFCAP	45	864 MESSAGES DELIVERY SCHEDULE ITEM ITEM SPECIFIC INFORMATION PRCHNPO7 PRCHQ RFQ MESSAGE SORT PRCHQ RFQ REQUEST PRCHQ1 PRCHQ10 PRCHQ11 PRCHQ12 PRCHQ12A PRCHQ13 PRCHQ13A PRCHQ14 PRCHQ15 PRCHQ1B PRCHQ1C PRCHQ2 PRCHQ2A PRCHQ2B PRCHQ3 PRCHQ4 PRCHQ410 PRCHQ41B PRCHQ4A PRCHQ5 PRCHQ6 PRCHQ6A PRCHQ6B PRCHQ7 PRCHQ8 PRCHQ9 PRCHQM1 PRCHQM3 PRCHQM4 PRCHQRP3 PRCHRQITM PROMPT PAYMENT TERMS ^PRC(444 PRCHQRP4 PRCHQRP5 QUOTES RECIPIENT SOLICITED VENDOR

Package	Total	Routines
IFCAP	17	PRCHQ1 PRCHQ10 PRCHQ13A PRCHQ14 PRCHQ1B PRCHQ2 PRCHQ2B PRCHQ3 PRCHQ5 PRCHQ6 PRCHQ7 PRCHQ8 PRCHQ9 PRCHQM1 PRCHQRP3 PRCHQRP4 PRCHQRP6

Package	Total	FileMan Files
IFCAP	1	EDI SENDER(#443.75)[8]

Package	Total	FileMan Files
IFCAP	12	ADMIN. ACTIVITY SITE PARAMETER(#411)[8.1] VENDOR(#440)[20, 24, #444.01(.01), #444.019(13), #444.019(17), #444.021(11), #444.022(.01), #444.024(.01)] ITEM MASTER(#441)[#444.019(1)] FEDERAL SUPPLY CLASSIFICATION(#441.2)[#444.019(4), #444.026(4)] RFQ VENDOR(#444.1)[20, 24, #444.01(.01), #444.019(17), #444.021(11), #444.022(.01), #444.024(.01)] SIC CODE(#444.2)[#444.019(6), #444.026(6)] BUDGET OBJECT CODE(#420.2)[#444.019(12.5)] UNIT OF ISSUE(#420.5)[#444.019(3), #444.019(14.2), #444.019(18), #444.026(3), #444.027(3)] CONTROL POINT ACTIVITY(#410)[8, #444.019(15), #444.019(21)] SUB-CONTROL POINT(#410.4)[#444.039(4)] DELIVERY SCHEDULE(#410.6)[#444.039(5)] DELIVERY POINT(#410.8)[#444.039(3)]
Kernel	2	SERVICE/SECTION(#49)[9] NEW PERSON(#200)[3, 10, 20.7, 25, #444.021(13), #444.024(13)]

Fields, Total: 40

Field #	Name	Loc	Type	Details
.01	RFQ NBR	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X'?3N1"-"2N1"-RFQ-"5N X` LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `RFQ # consists of 3 digit Station #, hyphen, FY, hyphen, 'RFQ', hyphen, Seq #` DESCRIPTION: `This is the unique reference number for the Request for Quotation entry. It is derived from the following:` `3 digits station number, i.e. 688` `hyphen` `2 digits Fiscal Year, i.e. 96` `hyphen` `string constant 'RFQ'` `hyphen` `5 digits sequence counter padded on the left with zeros. For example 688-96-RFQ-00001.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `444^B` `1)= S ^PRC(444,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(444,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `444^D^MUMPS` `1)= S ^PRC(444,"D",(+$P(X,"-",4))_"-"_$P(X,"-",2),DA)=""` `2)= K ^PRC(444,"D",(+$P(X,"-",4))_"-"_$P(X,"-",2),DA)` `This cross reference permits lookup by Sequence Number plus Fiscal Year.` CROSS-REFERENCE: `444^F^MUMPS` `1)= S:$P($G(^PRC(444,DA,0)),U,8)=1 ^PRC(444,"F",$E(X,1,30),DA)=""` `2)= K ^PRC(444,"F",$E(X,1,30),DA)` `This cross reference is maintained by both the #.01 field and the #7 (Status) field, so that it only contains INCOMPLETE RFQs.`
1	REFERENCE DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:3941231X) X` LAST EDITED: `NOV 13, 1995` HELP-PROMPT: `Enter effective date for RFQ between 1 Jan 1995 and 31 Dec 2094.` DESCRIPTION: `This is the effective date for the RFQ.`
2	QUOTE DUE DATE/TIME	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:3941231X) X I $D(X) S:$P(X,".",2)="" X=X_"."_1630` LAST EDITED: `APR 11, 1996` HELP-PROMPT: `Enter a Date between 1 Jan 1995 and 31 Dec 2094 and time if not 4:30 PM.` DESCRIPTION: `This is the date by which the vendor must submit his quote in order for it to be considered. The time should be entered if other than 4:30 PM local time of that date.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `444^QD^MUMPS` `1)= S ^PRC(444,"QD",$P(X,"."),DA)=""` `2)= K ^PRC(444,"QD",$P(X,"."),DA)` `This cross reference sorts RFQs by Quote Due Date.`
3	CONTRACTING OFFICER	0;4	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^(400)),$P(^(400),U)>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 20, 1996` HELP-PROMPT: `Enter the name of Purchasing Agent processing this RFQ.` DESCRIPTION: `This is the person who should be contacted by the vendor if there are questions concerning the requirements on this RFQ.` SCREEN: `S DIC("S")="I $D(^(400)),$P(^(400),U)>2"` EXPLANATION: `Must be Purchasing Agent or Manager in Supply` CROSS-REFERENCE: `^^TRIGGER^444^3.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(444,3,1,1,1.1) X ^DD(444,3,1,1,1.4)` `1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^VA(200,+D0,0)) D0=-1 S Y(101)=$S($D(^VA(200,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)` `1.4)= S DIH=$S($D(^PRC(444,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=444,DIG=3.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$S($D(^PRC(444,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=444,DIG=3.1 D ^DICR:$O(^DD(DIH,DIG,1` `,0))>0` `CREATE VALUE)= #3:#1` `DELETE VALUE)= @` `FIELD)= #3.1`
3.1	INITIALS OF ADMIN CONTACT	0;7	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:X'?.ANP!(X<0) X I $D(X) K:$L(X)>5!($L(X)<2)!'(X'?.N) X` LAST EDITED: `JUN 28, 1996` HELP-PROMPT: `Answer must be 2-5 characters in length.` DESCRIPTION: `These are the initials of the Administrative Contact/Contracting Officer/ Purchasing Agent assigned to this RFQ.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the CONTRACTING OFFICER field of the REQUEST FOR QUOTATION File`
4	ADMINISTRATIVE CONTACT FAX	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<12)!'(X?3N1"-"3N1"-"4N) X` LAST EDITED: `NOV 13, 1995` HELP-PROMPT: `Enter the FAX number including Area Code as 3N-3N-4N.` DESCRIPTION: `This is the FAX number to which non-EDI vendors may submit quotes or requests for additional information.`
5	PRIORITY OF REQUEST	0;6	SET	'EM' FOR EMERGENCY; 'SP' FOR SPECIAL; 'ST' FOR STANDARD; LAST EDITED: `NOV 14, 1995` DESCRIPTION: `Enter URGENCY best describing this RFQ; it is probably derived from the 2237's PRIORITY.`
7	STATUS	0;8	SET	**********************REQUIRED FIELD********************** '0' FOR CANCELLED; '1' FOR INCOMPLETE; '2' FOR PENDING QUOTES; '3' FOR CLOSED; '4' FOR EVALUATION COMPLETE; '5' FOR AWARDED; LAST EDITED: `MAY 08, 1996` HELP-PROMPT: `Enter the status reflecting the state of the RFQ` DESCRIPTION: `This field indicates where the RFQ is in the process from submission through award.` CROSS-REFERENCE: `444^AF^MUMPS` `1)= D STATUSDT^PRCHQ1B` `2)= Q` `This cross reference triggers the status date in the appropriate field.` CROSS-REFERENCE: `444^AH` `1)= S ^PRC(444,"AH",$E(X,1,30),DA)=""` `2)= K ^PRC(444,"AH",$E(X,1,30),DA)` `This cross reference enables selection of RFQs by status for processing i.e. closing RFQ by background process.` CROSS-REFERENCE: `444^AI^MUMPS` `1)= S:X=1 ^PRC(444,"F",$P(^PRC(444,DA,0),U),DA)=""` `2)= K ^PRC(444,"F",$P(^PRC(444,DA,0),U),DA)` `This "F" node cross reference is jointly maintained by the Status field and the #.01 field so that it only contains INCOMPLETE RFQs.`
7.5	CLOSED DATE/TIME	1;12	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 22, 1996` HELP-PROMPT: `This is the date and time that RFQ was CLOSED.` DESCRIPTION: `This field indicates when the RFQ was closed to further quotes.`
7.6	EVALUATION COMPLETE DATE/TIME	1;13	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 22, 1996` HELP-PROMPT: `This is the date and time that Evaluation of the Quotes was completed.` DESCRIPTION: `This field records when evaluation of the RFQ was completed.`
7.7	AWARDED DATE/TIME	1;14	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 22, 1996` HELP-PROMPT: `This is the date and time that the winning quotes were awarded.` DESCRIPTION: `This records when the wining quotes were awarded.`
7.8	PENDING QUOTES DATE/TIME	1;15	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 22, 1996` HELP-PROMPT: `Enter Date and Time that the Status was changed to Pending Quotes.` DESCRIPTION: `This field indicates when the RFQ was submitted to vendor(s) for quote(s).`
7.9	CANCEL DATE/TIME	1;16	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 27, 1996` HELP-PROMPT: `Enter Date/Time when this RFQ is cancelled.` DESCRIPTION: `This field records when an RFQ has been cancelled.`
8	PRIMARY 2237	0;9	POINTER TO CONTROL POINT ACTIVITY FILE (#410)	**********************REQUIRED FIELD********************** CONTROL POINT ACTIVITY(#410) LAST EDITED: `MAY 03, 1996` DESCRIPTION: `This is the initially added 2237, the one which is the basis for the RFQ number. This 2237 will provide the defaults for the RFQ's header information.` CROSS-REFERENCE: `^^TRIGGER^444^8.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(444,8,1,1,1.1) X ^DD(444,8,1,1,1.4)` `1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^PRCS(410,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCS(410,D0,0)):^(0),1:"") S X=$P(Y(101),U,10),X=X S X=X S D0=I(0,0)` `1.4)= S DIH=$S($D(^PRC(444,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=444,DIG=8.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$S($D(^PRC(444,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=444,DIG=8.1 D ^DICR:$O(^DD(DIH,DIG` `,1,0))>0` `CREATE VALUE)= INTERNAL(#8:#448)` `DELETE VALUE)= @` `FIELD)= #8.1` `This cross reference transfers the 2237's substation to the SUBSTATION field of the RFQ entry.` CROSS-REFERENCE: `^^TRIGGER^444^8.2` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(444,8,1,2,1.1) X ^DD(444,8,1,2,1.4)` `1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^PRCS(410,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCS(410,D0,3)):^(3),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)` `1.4)= S DIH=$S($D(^PRC(444,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,14)=DIV,DIH=444,DIG=8.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= #8:#15` `DELETE VALUE)= NO EFFECT` `FIELD)= #8.2` `This cross reference triggers the Primary 2237's Fund Control Point into the FCP field of the RFQ entry.`
8.1	SUBSTATION	0;10	POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411)	ADMIN. ACTIVITY SITE PARAMETER(#411) LAST EDITED: `MAY 06, 1996` DESCRIPTION: `When the Primary 2237 field #8 is populated, the substation field is triggered into this field if the 2237 has a substation entered in field #448.` NOTES: `TRIGGERED by the PRIMARY 2237 field of the REQUEST FOR QUOTATION File` CROSS-REFERENCE: `^^TRIGGER^444^14` `1)= Q` `2)= X ^DD(444,8.1,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^PRC(444,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(444,8.1,1,1,2.4)` `2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"") S X=$S('$D(^PRC(411,+X,0)):"",1:$P(^(0),U,1))'=$S('$D(^PRC(411,+$P(Y(1),U,10),0)):"",1:$P(^(0),U,1))` `2.4)= S DIH=$S($D(^PRC(444,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=444,DIG=14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= NO EFFECT` `DELETE CONDITION)= OLD SUBSTATION'=SUBSTATION` `DELETE VALUE)= @` `FIELD)= #14` `This trigger cross reference clears the SHIP TO field (#14) whenever the existing value in the SUBSTATION field is changed.`
8.2	FCP	0;14	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X D:$D(X) FCP^PRCHQ1B` LAST EDITED: `APR 26, 1996` HELP-PROMPT: `Answer with Fund Control Point from Primary 2237 imported into this RFQ` DESCRIPTION: `This is the Fund Control Point for this RFQ. It is imported into this RFQ entry at the time the Primary 2237 is selected.` EXECUTABLE HELP: `D FCPHLP^PRCHQ1B` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the PRIMARY 2237 field of the REQUEST FOR QUOTATION File`
9	REQUESTING SERVICE	0;11	POINTER TO SERVICE/SECTION FILE (#49)	**********************REQUIRED FIELD********************** SERVICE/SECTION(#49) LAST EDITED: `NOV 13, 1995` DESCRIPTION: `This is the Service/Section of the Requester.`
10	POINT OF CONTACT	0;12	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `NOV 13, 1995` DESCRIPTION: `This is the Requester of the goods or services.`
11	POINT OF CONTACT PHONE	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>21!($L(X)<4) X` LAST EDITED: `JAN 11, 1996` HELP-PROMPT: `Answer must be 4-21 characters in length.` DESCRIPTION: `This is the Requester's phone number plus any applicable extension.`
12	FOB	1;1	SET	**********************REQUIRED FIELD********************** 'D' FOR DESTINATION; 'O' FOR ORIGIN; LAST EDITED: `NOV 30, 1995` DESCRIPTION: `This field indicates whether prices include shipping. If FOB (Freight on Board) is Destination, there will be no additional shipping fees. If, in contrast, FOB is Origin, the price assumes the buyer will pick up the` `item(s) at the vendor's location, and shipping incurs additional charges.`
13	REQD DELIVERY DATE	1;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:3941231X) X` LAST EDITED: `JAN 11, 1996` HELP-PROMPT: `TYPE A DATE BETWEEN 1/1/1995 AND 12/31/2094` DESCRIPTION: `This is the date by which the vendor must supply the goods or services.`
14	SHIP TO	1;3	NUMBER	INPUT TRANSFORM: `D IT1^PRCHQ1` OUTPUT TRANSFORM: `D OT1^PRCHQ1` LAST EDITED: `NOV 13, 1995` HELP-PROMPT: `Enter a Receiving Location.` DESCRIPTION: `This is the address for the delivery.` EXECUTABLE HELP: `D EH1^PRCHQ1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the SUBSTATION field of the REQUEST FOR QUOTATION File`
15	DELIVER TO	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 13, 1995` HELP-PROMPT: `Enter individual's name and/or the room number receiving delivery. 3-30 chars` DESCRIPTION: `This is the individual or location to which delivery should be made.`
16	SPECIAL REMARKS	3;0	WORD-PROCESSING #444.016	DESCRIPTION: `These are Special Remarks for the Request, originally brought over from the Primary 2237, but subject to subsequent editing.` LAST EDITED: `NOV 14, 1995` DESCRIPTION: `These are special remarks regarding this request. It is initially populated from the Special Remarks field of the Primary 2237.`
17	ADMINISTRATIVE CERTIFICATIONS	4;0	WORD-PROCESSING #444.017	DESCRIPTION: `These are the Administrative Certifications pertaining to the RFQ. This field is originally populated with canned phrases selected from the Adminstrative Certifications file (#442.7), and then subject to further local` `editing.` LAST EDITED: `NOV 14, 1995` DESCRIPTION: `These are the administrative certifications for this RFQ.`
17.5	SET ASIDE?	1;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `AUG 20, 1996` HELP-PROMPT: `Answer 'YES' if award influenced by set aside program (i.e. race or gender)` DESCRIPTION: `This field flags those RFQ's whose award should consider set aside programs for targeted groups.`
18	JUSTIFICATION	6;0	WORD-PROCESSING #444.018	DESCRIPTION: `This field is populated upon the completion of the evaluation of Vendors' quotes and explains the basis of the decisions for award.` LAST EDITED: `NOV 14, 1995` DESCRIPTION: `This field stores the justification/basis of the award decisions.`
19	ITEM	2;0	Multiple #444.019	444.019 DESCRIPTION: `This is the list of items submitted for the vendor's quote.`
20	SOLICITED VENDOR	5;0	VARIABLE POINTER Multiple #444.01	444.01
20.5	TRANSMIT TO 'PUBLIC'	1;8	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `FEB 26, 1996` HELP-PROMPT: `Answer 'YES' if this RFQ is to be broadcast to all possible vendors.` DESCRIPTION: `A 'YES' in this field indicates that the Request for Quotation is to get the widest possible exposure rather than being limited to only those vendors entered into the Solicited Vendors list.`
20.7	REQUEST'S LAST EDITOR	1;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 27, 1996` HELP-PROMPT: `Enter the name of the last editor of the Request for Quotation data.` DESCRIPTION: `This is the Purchasing Agent who last edited the information on the Request that will go to the vendors, soliciting their quotes.`
20.8	LAST EDIT DATE/TIME	1;10	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 27, 1996` HELP-PROMPT: `Enter the Date and Time of the last edit of Request data.` DESCRIPTION: `This field contains the date/time of the last edit of Request information.`
20.9	RFQ'S MAILMAN MSG #	1;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 06, 1996` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits` DESCRIPTION: `This field contains the ID number of the MailMan message which is generated in transmitting an RFQ to Austin for distribution to vendors.`
21	864 MESSAGES	7;0	Multiple #444.021	444.021 DESCRIPTION: `This multiple contains the history of 864 transactions concerning this RFQ.`
22	MSG COUNTER	1;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 21, 1995` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This field is updated each time a message is added to the 864 MESSAGES multiple. The updated counter value is placed in the .01 field.`
23	OUTBOUND MSG COUNTER	1;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 21, 1995` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This is the counter for messages generated on this computer and going to the vendor.`
24	QUOTES	8;0	VARIABLE POINTER Multiple #444.024	444.024 DESCRIPTION: `This multiple contains the quotes submitted by the responding vendors.`
25	EVALUATOR OF QUOTES	1;17	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^(400)),$P(^(400),U)>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 17, 1996` HELP-PROMPT: `Enter the name of the Supply person evaluating the quotes for award.` DESCRIPTION: `This field references the Supply person who assigned vendors to the RFQ items in preparation for making the award.` SCREEN: `S DIC("S")="I $D(^(400)),$P(^(400),U)>2"` EXPLANATION: `Must be Purchasing Agent or Manager in Supply`
26	TRANSMIT DATE/TIME	1;18	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 19, 1996` HELP-PROMPT: `Enter Date/Time that MailMan message set up with 840 data` DESCRIPTION: `This field records the last time that 840 Transaction data was loaded into a MailMan message for transmission to Austin.`
27	MANUAL RFQ PRINT DATE/TIME	9;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 28, 1996` HELP-PROMPT: `Enter the Date and Time when the manual RFQ form was printed` DESCRIPTION: `This field records when the Manual Request for Quotation form was printed for distribution to potential vendors.`

Name	Field # of Occurrence
^%DT	1+1, 2+1, 7.5+1, 7.6+1, 7.7+1, 7.8+1, 7.9+1, 13+1, 20.8+1, 26+1 , 27+1
^DIC	3+1, 25+1
^DICR	3(XREF 1n1.4), 3(XREF 1K), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 2n1.4), 8.1(XREF 1n2.4)
Y^DIQ	ID8+1
EH1^PRCHQ1	14(HELP )
IT1^PRCHQ1	14+1
OT1^PRCHQ1	14OT+1
FCP^PRCHQ1B	8.2+1
FCPHLP^PRCHQ1B	8.2(HELP )
STATUSDT^PRCHQ1B	7(XREF 1S)

Name	Line Occurrences (* Changed, ! Killed)
^DD(	3(XREF 1n1.4), 3(XREF 1K), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 2n1.4), 8.1(XREF 1n2.4)
^DD(410	ID8+1
^DD(444	3(XREF 1S), 8(XREF 1S), 8(XREF 2S), 8.1(XREF 1K)
^PRC(411 - [#411]	8.1(XREF 1n2.3)
^PRC(444 - [#444]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1n1.4) , 3(XREF 1K), 7(XREF 2S), 7(XREF 2K), 7(XREF 3S), 7(XREF 3K), 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 2S), 8(XREF 2n1.4) , 8.1(XREF 1K), 8.1(XREF 1n2.3), 8.1(XREF 1n2.4)
^PRCS(410 - [#410]	ID8+1, 8(XREF 1n1.1), 8(XREF 2n1.1)
^VA(200 - [#200]	3(XREF 1n1.1)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	1+1, 2+1, 7.5+1, 7.6+1, 7.7+1, 7.8+1, 7.9+1, 13+1, 20.8+1, 26+1 , 27+1*
%I	ID8+1*!
>> C	ID8+1*
>> D0	3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1K), 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1K), 8(XREF 2S), 8(XREF 2n1.1), 8.1(XREF 1K), 8.1(XREF 1n2.3)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K) , 7(XREF 2S), 7(XREF 2K), 7(XREF 3S), 7(XREF 3K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8.1(XREF 1n2.3)
DIC	ID7+1, ID8+1, 3+1!, 25+1!
DIC("S"	3+1, 3SCR+1, 25+1, 25SCR+1
>> DIE	3+1, 25+1
>> DIG	3(XREF 1n1.4), 3(XREF 1K), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 2n1.4), 8.1(XREF 1n2.4)
>> DIH	3(XREF 1n1.4), 3(XREF 1K), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 2n1.4), 8.1(XREF 1n2.4)
>> DIU	3(XREF 1S), 3(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8.1(XREF 1K)
DIV	3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1n1.4), 3(XREF 1K), 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 2S), 8(XREF 2n1.1) , 8(XREF 2n1.4), 8.1(XREF 1K), 8.1(XREF 1n2.3), 8.1(XREF 1n2.4)
DIV(0	3(XREF 1S), 3(XREF 1n1.4), 3(XREF 1K), 8(XREF 1S), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 2S), 8(XREF 2n1.4), 8.1(XREF 1n2.3), 8.1(XREF 1n2.4)
>> I(0	3(XREF 1n1.1), 8(XREF 1n1.1), 8(XREF 2n1.1)
U	ID3.1+1, ID8+1, .01(XREF 3S), 3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1n1.4), 3(XREF 1K), 7(XREF 3S), 7(XREF 3K), 8(XREF 1S) , 8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 1K), 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 8.1(XREF 1K), 8.1(XREF 1n2.3), 8.1(XREF 1n2.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1+1!, 2+1!, 2(XREF 1S) , 2(XREF 1K), 3+1!, 3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1n1.4), 3(XREF 1K), 3.1+1!, 4+1!, 7(XREF 2S), 7(XREF 2K) , 7(XREF 3S), 7.5+1!, 7.6+1!, 7.7+1!, 7.8+1!, 7.9+1!, 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 1K) , 8(XREF 2S), 8(XREF 2n1.1), 8(XREF 2n1.4), 8.1(XREF 1K), 8.1(XREF 1n2.3), 8.1(XREF 1n2.4), 8.2+1!, 11+1!, 13+1!, 15+1! , 20.8+1!, 20.9+1!, 22+1!, 23+1!, 25+1!, 26+1!, 27+1*!
Y	ID8+1*, 1+1, 2+1, 3+1, 3(XREF 1S), 3(XREF 1K), 7.5+1, 7.6+1, 7.7+1, 7.8+1 , 7.9+1, 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8.1(XREF 1K), 13+1, 14OT+1, 20.8+1, 25+1, 26+1 , 27+1
Y(0	8.1(XREF 1n2.3), 14OT+1*
Y(1	3(XREF 1S), 3(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8.1(XREF 1K), 8.1(XREF 1n2.3)
Y(101	3(XREF 1n1.1), 8(XREF 1n1.1), 8(XREF 2n1.1)

Customize PDF page

Package: IFCAP

Global: ^PRC(444

Information

Description

Directly Accessed By Routines, Total: 56

Accessed By FileMan Db Calls, Total: 17

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 14

Fields, Total: 40

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^(0	ID3.1+1, ID8+1, 3(XREF 1S), 3(XREF 1n1.1), 3(XREF 1n1.4), 3(XREF 1K), 8(XREF 1S), 8(XREF 1n1.1), 8(XREF 1n1.4), 8(XREF 1K) , 8(XREF 2S), 8(XREF 2n1.4), 8.1(XREF 1n2.3)
^(1	8.1(XREF 1K), 8.1(XREF 1n2.4)
^(3	8(XREF 2n1.1)