91 lines
4.3 KiB
Mathematica
91 lines
4.3 KiB
Mathematica
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
|