PRCHQM2 ;WISC/KMB-MANUAL PRINT OF RFQ ;7/23/99 15:58
;;5.1;IFCAP;;Oct 20, 2000
;Per VHA Directive 10-93-142, this routine should not be modified.
S P=1 U IO D HEADER^PRCHQM3
;print RFQ, vendor, PA, delivery info
U IO W ! F I=1:1:90 W "_"
W !,"REQUEST FOR MANUAL QUOTATIONS | The Notice of Small Business-Small Purchase Set-Aside"
W !," (this is not an order)",?31,"| on the last page of this form"
W !,?31,"| _____is _____is not applicable."
W ! F I=1:1:31 W "_"
W "|" F I=1:1:58 W "_"
W !,"1. REQUEST NO. |2.DATE ISSUED |3.REQUISITION/PURCHASE REQUEST |4.CERT.FOR.NAT. |RATING"
W !,?15,"|",?31,"| NO.",?63,"| DEF. UNDER BDSA |"
W !,?15,"|",RDATE,?31,"|",?33,RFQNUM,?63,"| REG.2 AND/OR DMS|"
W !,?15,"|",?31,"|",?63,"| REG.1->",?81,"|"
W ! F I=1:1:15 W "_"
W "|" F I=1:1:15 W "_"
W "|" F I=1:1:31 W "_"
W "|" F I=1:1:17 W "_"
W "|" F I=1:1:8 W "_"
W !,"5A.ISSUED BY ",ISS(1),?63,"|6.DELIVER BY (Date)"
W !,?15,ISS(2),?63,"|"
W !,?15,ISS(4),",",ISS(5)," ",ISS(6),?63,"|",?65,ADATE
W !,?63,"|" F I=1:1:26 W "_"
W ! F I=1:1:63 W "_"
DELIV ;
W "|7.DELIVERY"
W !,"5B.FOR INFORMATION CALL:(Name & phone no.) (No collect calls) |(unless otherwise"
W !,?63,"| specified)"
W !?4,PA,?31,"PHONE: ",PPHONE,?63,"| FOB",?83,"OTHER"
W !?33,"FAX: ",$G(PAFAX),?63,"|",FOB1," DESTINATION",?81,FOB2,"(See",!
W:$G(PRCEMAIL)'="" ?4,"E-MAIL: ",PRCEMAIL W ?63,"|",?81,"schedule)"
W ! F I=1:1:63 W "_"
W "|" F I=1:1:26 W "_"
W !,"8.TO: NAME AND ADDRESS, INCLUDING ZIP CODE",?63,"|9.DESTINATION (Consignee"
W !,?10,SRC(1),?63,"| and address, using ZIP)"
W !,?10,SRC(2),?63,"| ",$E(FDES1,1,21)
W !,?10,SRC(3),?63,"| ",FDES2
W !,?10,SRC(6),",",SRC(7)," ",SRC(8),?63,"| ",FDES3
W !,"PHONE: ",VENPH,?33,"FAX: "_$G(VENFAX),?63,"| ",FDES4,!
F I=1:1:63 W "_"
W "|" F I=1:1:26 W "_"
W !,"10.PLEASE FURNISH QUOTATIONS TO",?32,"|11.BUSINESS CLASSIFICATION (check appropriate boxes)"
W !," THE ISSUING OFFICE ON OR BE-",?32,"|",?34,BC1,?36,"_SMALL",?58,BC2,?60,"_OTHER THAN SMALL"
W !," FOR CLOSE OF BUSINESS (date)",?32,"|",?34,BC3,?36,"_VIETNAM VETERAN-OWNED",?58,BC4,?60,"_WOMEN-OWNED"
W !,?5,CBDATE,?32,"|",?34,BC5,?36,"_DISADVANTAGED",?58,BC6,?60,"_DISABLED VETERAN-OWNED"
W ! F I=1:1:32 W "_"
W "|" F I=1:1:57 W "_"
W !!,"IMPORTANT: This is a request for information, and quotations furnished are"
W !,"not offers. If you are unable to quote, please so indicate on this form and"
W !,"return it. This request does not commit the Government to pay any costs "
W !,"incurred in the preparation of the submission of this quotation or to "
W !,"contract for supplies or services. Supplies are of domestic origin unless "
W !,"otherwise indicated by quoter. Any representations and/or certifications"
W !,"attached to this Request for Quotations must be completed by the quoter."
W ! F I=1:1:90 W "_"
SCH ;
W !,?10,"12.SCHEDULE (Include applicable Federal, State and local taxes)",!
F I=1:1:90 W "_"
;
W !,"ITEM #",?7,"| DELIVERY LOCATION &",?35,"|"," QTY ",?42,"| UNIT ",?47,"| UNIT PRICE ",?54,"| AMOUNT ",?62,"| DEL. DATE "
W !,?7,"| DESCRIPTION",?35,"|",?42,"|",?49,"|",?62,"|",?75,"|"
W !,"__(a)__",?7,"|_____________(b)___________",?35,"|_(c)__",?42,"|_(d)__",?47,"|_____(e)____",?54,"|_____(f)____",?62,"|_____(g)_____"
S LN="" F S LN=$O(^TMP($J,LN)) Q:LN="" D
.S LD=0 F S LD=$O(^TMP($J,LN,LD)) Q:LD="" D
..I $Y>60 D HEADER^PRCHQM3
..W ! I LD=1 W $P(^TMP($J,LN,LD),"^")
..W ?7,"|",$P(^TMP($J,LN,LD),"^",2),?35,"|",$P(^TMP($J,LN,LD),"^",3),?42,"|",$P(^TMP($J,LN,LD),"^",4)
..W ?49,"|",?62,"|",?75,"|",$P(^TMP($J,LN,LD),"^",6)
.D ITEMS^PRCHQM3
D HEADER^PRCHQM3,METRIC^PRCHQM3
DISC ;
W !,"13.DISCOUNT FOR PROMPT",?22,"|10 CALENDAR DAYS",?40,"|20 CALENDAR DAYS",?58,"|30 CALENDAR DAYS",?76,"|CALENDAR DAYS"
W !,?6,"PAYMENT--->",?22,"|",?39,"%|",?57,"%|",?75,"%| %"
W !,?22,"|",?40,"|",?58,"|",?76,"|"
W ! F I=1:1:90 W "_"
W !,"NOTE: Last page must also be completed by the quoter."
W ! F I=1:1:90 W "_"
W !,"14.NAME AND ADDRESS OF QUOTER (Street, |15.SIGNATURE OF PERSON AUTHORIZED |16.QUOTATION"
W !," city,county, State and ZIP code)",?40,"| TO SIGN QUOTATION",?76,"| DATE"
W !,?40,"|",?76,"|",!,?40,"|"
F I=1:1:35 W "_"
W "|_____________"
W !,?40,"|17.NAME AND TITLE OF SIGNER (Type |18.PHONE NO."
W !,?40,"| or print)",?76,"| (area code)"
W !,?40,"|",?76,"|"
W ! F I=1:1:40 W "_"
W "|" F I=1:1:35 W "_"
W "|_____________"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCHQM2 4532 printed Apr 09, 2024@21:03:38 Page 2
PRCHQM2 ;WISC/KMB-MANUAL PRINT OF RFQ ;7/23/99 15:58
+1 ;;5.1;IFCAP;;Oct 20, 2000
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 SET P=1
USE IO
DO HEADER^PRCHQM3
+4 ;print RFQ, vendor, PA, delivery info
+5 USE IO
WRITE !
FOR I=1:1:90
WRITE "_"
+6 WRITE !,"REQUEST FOR MANUAL QUOTATIONS | The Notice of Small Business-Small Purchase Set-Aside"
+7 WRITE !," (this is not an order)",?31,"| on the last page of this form"
+8 WRITE !,?31,"| _____is _____is not applicable."
+9 WRITE !
FOR I=1:1:31
WRITE "_"
+10 WRITE "|"
FOR I=1:1:58
WRITE "_"
+11 WRITE !,"1. REQUEST NO. |2.DATE ISSUED |3.REQUISITION/PURCHASE REQUEST |4.CERT.FOR.NAT. |RATING"
+12 WRITE !,?15,"|",?31,"| NO.",?63,"| DEF. UNDER BDSA |"
+13 WRITE !,?15,"|",RDATE,?31,"|",?33,RFQNUM,?63,"| REG.2 AND/OR DMS|"
+14 WRITE !,?15,"|",?31,"|",?63,"| REG.1->",?81,"|"
+15 WRITE !
FOR I=1:1:15
WRITE "_"
+16 WRITE "|"
FOR I=1:1:15
WRITE "_"
+17 WRITE "|"
FOR I=1:1:31
WRITE "_"
+18 WRITE "|"
FOR I=1:1:17
WRITE "_"
+19 WRITE "|"
FOR I=1:1:8
WRITE "_"
+20 WRITE !,"5A.ISSUED BY ",ISS(1),?63,"|6.DELIVER BY (Date)"
+21 WRITE !,?15,ISS(2),?63,"|"
+22 WRITE !,?15,ISS(4),",",ISS(5)," ",ISS(6),?63,"|",?65,ADATE
+23 WRITE !,?63,"|"
FOR I=1:1:26
WRITE "_"
+24 WRITE !
FOR I=1:1:63
WRITE "_"
DELIV ;
+1 WRITE "|7.DELIVERY"
+2 WRITE !,"5B.FOR INFORMATION CALL:(Name & phone no.) (No collect calls) |(unless otherwise"
+3 WRITE !,?63,"| specified)"
+4 WRITE !?4,PA,?31,"PHONE: ",PPHONE,?63,"| FOB",?83,"OTHER"
+5 WRITE !?33,"FAX: ",$GET(PAFAX),?63,"|",FOB1," DESTINATION",?81,FOB2,"(See",!
+6 if $GET(PRCEMAIL)'=""
WRITE ?4,"E-MAIL: ",PRCEMAIL
WRITE ?63,"|",?81,"schedule)"
+7 WRITE !
FOR I=1:1:63
WRITE "_"
+8 WRITE "|"
FOR I=1:1:26
WRITE "_"
+9 WRITE !,"8.TO: NAME AND ADDRESS, INCLUDING ZIP CODE",?63,"|9.DESTINATION (Consignee"
+10 WRITE !,?10,SRC(1),?63,"| and address, using ZIP)"
+11 WRITE !,?10,SRC(2),?63,"| ",$EXTRACT(FDES1,1,21)
+12 WRITE !,?10,SRC(3),?63,"| ",FDES2
+13 WRITE !,?10,SRC(6),",",SRC(7)," ",SRC(8),?63,"| ",FDES3
+14 WRITE !,"PHONE: ",VENPH,?33,"FAX: "_$GET(VENFAX),?63,"| ",FDES4,!
+15 FOR I=1:1:63
WRITE "_"
+16 WRITE "|"
FOR I=1:1:26
WRITE "_"
+17 WRITE !,"10.PLEASE FURNISH QUOTATIONS TO",?32,"|11.BUSINESS CLASSIFICATION (check appropriate boxes)"
+18 WRITE !," THE ISSUING OFFICE ON OR BE-",?32,"|",?34,BC1,?36,"_SMALL",?58,BC2,?60,"_OTHER THAN SMALL"
+19 WRITE !," FOR CLOSE OF BUSINESS (date)",?32,"|",?34,BC3,?36,"_VIETNAM VETERAN-OWNED",?58,BC4,?60,"_WOMEN-OWNED"
+20 WRITE !,?5,CBDATE,?32,"|",?34,BC5,?36,"_DISADVANTAGED",?58,BC6,?60,"_DISABLED VETERAN-OWNED"
+21 WRITE !
FOR I=1:1:32
WRITE "_"
+22 WRITE "|"
FOR I=1:1:57
WRITE "_"
+23 WRITE !!,"IMPORTANT: This is a request for information, and quotations furnished are"
+24 WRITE !,"not offers. If you are unable to quote, please so indicate on this form and"
+25 WRITE !,"return it. This request does not commit the Government to pay any costs "
+26 WRITE !,"incurred in the preparation of the submission of this quotation or to "
+27 WRITE !,"contract for supplies or services. Supplies are of domestic origin unless "
+28 WRITE !,"otherwise indicated by quoter. Any representations and/or certifications"
+29 WRITE !,"attached to this Request for Quotations must be completed by the quoter."
+30 WRITE !
FOR I=1:1:90
WRITE "_"
SCH ;
+1 WRITE !,?10,"12.SCHEDULE (Include applicable Federal, State and local taxes)",!
+2 FOR I=1:1:90
WRITE "_"
+3 ;
+4 WRITE !,"ITEM #",?7,"| DELIVERY LOCATION &",?35,"|"," QTY ",?42,"| UNIT ",?47,"| UNIT PRICE ",?54,"| AMOUNT ",?62,"| DEL. DATE "
+5 WRITE !,?7,"| DESCRIPTION",?35,"|",?42,"|",?49,"|",?62,"|",?75,"|"
+6 WRITE !,"__(a)__",?7,"|_____________(b)___________",?35,"|_(c)__",?42,"|_(d)__",?47,"|_____(e)____",?54,"|_____(f)____",?62,"|_____(g)_____"
+7 SET LN=""
FOR
SET LN=$ORDER(^TMP($JOB,LN))
if LN=""
QUIT
Begin DoDot:1
+8 SET LD=0
FOR
SET LD=$ORDER(^TMP($JOB,LN,LD))
if LD=""
QUIT
Begin DoDot:2
+9 IF $Y>60
DO HEADER^PRCHQM3
+10 WRITE !
IF LD=1
WRITE $PIECE(^TMP($JOB,LN,LD),"^")
+11 WRITE ?7,"|",$PIECE(^TMP($JOB,LN,LD),"^",2),?35,"|",$PIECE(^TMP($JOB,LN,LD),"^",3),?42,"|",$PIECE(^TMP($JOB,LN,LD),"^",4)
+12 WRITE ?49,"|",?62,"|",?75,"|",$PIECE(^TMP($JOB,LN,LD),"^",6)
End DoDot:2
+13 DO ITEMS^PRCHQM3
End DoDot:1
+14 DO HEADER^PRCHQM3
DO METRIC^PRCHQM3
DISC ;
+1 WRITE !,"13.DISCOUNT FOR PROMPT",?22,"|10 CALENDAR DAYS",?40,"|20 CALENDAR DAYS",?58,"|30 CALENDAR DAYS",?76,"|CALENDAR DAYS"
+2 WRITE !,?6,"PAYMENT--->",?22,"|",?39,"%|",?57,"%|",?75,"%| %"
+3 WRITE !,?22,"|",?40,"|",?58,"|",?76,"|"
+4 WRITE !
FOR I=1:1:90
WRITE "_"
+5 WRITE !,"NOTE: Last page must also be completed by the quoter."
+6 WRITE !
FOR I=1:1:90
WRITE "_"
+7 WRITE !,"14.NAME AND ADDRESS OF QUOTER (Street, |15.SIGNATURE OF PERSON AUTHORIZED |16.QUOTATION"
+8 WRITE !," city,county, State and ZIP code)",?40,"| TO SIGN QUOTATION",?76,"| DATE"
+9 WRITE !,?40,"|",?76,"|",!,?40,"|"
+10 FOR I=1:1:35
WRITE "_"
+11 WRITE "|_____________"
+12 WRITE !,?40,"|17.NAME AND TITLE OF SIGNER (Type |18.PHONE NO."
+13 WRITE !,?40,"| or print)",?76,"| (area code)"
+14 WRITE !,?40,"|",?76,"|"
+15 WRITE !
FOR I=1:1:40
WRITE "_"
+16 WRITE "|"
FOR I=1:1:35
WRITE "_"
+17 WRITE "|_____________"
+18 QUIT
