source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCHQM2.m@ 1046

Last change on this file since 1046 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

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