| 1 | PRCHQM3 ;WISC/KMB-MANUAL PRINT OF RFQ ;7/23/99 15:56
|
|---|
| 2 | ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | VET ;
|
|---|
| 5 | U IO W @IOF W "852.219-70 VETERAN-OWNED SMALL BUSINESS (DEC 90)",!!
|
|---|
| 6 | W ?5,"The offeror represents that the firm submitting this offer___is ___is"
|
|---|
| 7 | W !,"not, a veteran-owned small business, ___is ___is not, a Vietnam era"
|
|---|
| 8 | W !,"veteran-owned small business, and ___is ___is not, a disabled veteran-owned"
|
|---|
| 9 | W !,"small business. A veteran-owned small business is defined as a small business, at"
|
|---|
| 10 | W !,"least 51 percent of which is owned by a veteran, who also controls and operates"
|
|---|
| 11 | W !,"the business. Control in this context means exercising the power to make"
|
|---|
| 12 | W !,"policy decisions. Operate in this context means actively involved in"
|
|---|
| 13 | W !,"day-to-day management. For the purpose of this definition, eligible veterans"
|
|---|
| 14 | W !,"include:",!," (a) A person who served in the U.S. Armed Forces and who was discharged"
|
|---|
| 15 | W !,"or released under conditions other than dishonorable."
|
|---|
| 16 | W !," (b) Vietnam era veterans who served for a period of more than 180 days, any"
|
|---|
| 17 | W !,"part of which was between August 5, 1964 and May 7, 1975, and were discharged"
|
|---|
| 18 | W !,"under conditions other than dishonorable."
|
|---|
| 19 | W !," (c) Disabled veterans with a minimum of compensable disability of 30 percent,",!,"or a veteran who was discharged for disability.",!!
|
|---|
| 20 | W !,"Failure to execute this representation will be deemed a minor informality and the"
|
|---|
| 21 | W !,"bidder or offeror shall be permitted to satisfy the requirement prior to award",!,"(see FAR 14.405)",!!!!
|
|---|
| 22 | S P=P+1 W !,"Exception to SF-18",?45,"SF-18 ADP (Rev 10-83)",!,"Approved by OIRM____",?30,"Page ",P
|
|---|
| 23 | Q
|
|---|
| 24 | METRIC ;
|
|---|
| 25 | W !!,"METRIC PRODUCTS - Products manufactured to metric dimensions will be considered on an"
|
|---|
| 26 | W !,"equal basis with those manufactured using inch-pound units, providing they fall "
|
|---|
| 27 | W !,"within the tolerances specified using conversion tables contained in the latest revision"
|
|---|
| 28 | W !,"of Federal Standard No. 376 and all other requirements of this document are met.",!
|
|---|
| 29 | W !,"If a product is manufactured to metric dimensions and those dimensions exceed the"
|
|---|
| 30 | W !,"tolerances specified in the inch-pound units, a request should be made to the Contracting"
|
|---|
| 31 | W !,"Officer to determine if the product is acceptable. The Contracting Officer, in concert"
|
|---|
| 32 | W !,"with COTR (Contracting Officer's Technical Representative) will accept",!,"or reject the product.",!
|
|---|
| 33 | Q
|
|---|
| 34 | HEADER ;
|
|---|
| 35 | W @IOF
|
|---|
| 36 | W !,?30,"FORM APPROVED OMB NO. 2900-0445"," PAGE: ",P
|
|---|
| 37 | S P=P+1
|
|---|
| 38 | Q
|
|---|
| 39 | FOOTER ;
|
|---|
| 40 | F I=1:1:90 W "_"
|
|---|
| 41 | W !,?40,"PAGE ",P
|
|---|
| 42 | Q
|
|---|
| 43 | ITEMS ;
|
|---|
| 44 | N L1,L2,L3 S DIWL=8,DIWR=34,DIWF="",C1=0
|
|---|
| 45 | F I=1:1 K ^UTILITY($J,"W") S C1=$O(^PRC(444,DA,2,LN,2,C1)) Q:C1="" D ITEM1
|
|---|
| 46 | ITEM1 Q:C1="" Q:'$D(^PRC(444,DA,2,LN,2,C1,0))
|
|---|
| 47 | S X=^PRC(444,DA,2,LN,2,C1,0) S:I=1 X=$P(^PRC(444,DA,2,LN,2,0),"^")_" "_X D DIWP^PRCUTL($G(DA))
|
|---|
| 48 | I '$D(^UTILITY($J,"W",DIWL)) S ^(DIWL)=1,^(DIWL,1,0)="*NO DESCRIPTION*"
|
|---|
| 49 | S Z=^UTILITY($J,"W",DIWL) W !
|
|---|
| 50 | I Z>1 F J=1:1:(Z-1) W ?7,"|",^UTILITY($J,"W",DIWL,J,0),?35,"|",?42,"|",?49,"|",?62,"|",?75,"|" D:$Y>61 HEADER W !
|
|---|
| 51 | I Z>1 W ?7,"|",^UTILITY($J,"W",DIWL,Z,0),?35,"|",?42,"|",?49,"|",?62,"|",?75,"|" D:$Y>61 HEADER W !,?7,"|",?35,"|",?42,"|",?49,"|",?62,"|",?75,"|"
|
|---|
| 52 | I Z<2 W ?7,"|",^UTILITY($J,"W",DIWL,1,0),?35,"|",?42,"|",?49,"|",?62,"|",?75,"|" D:$Y>61 HEADER W !,?7,"|",?35,"|",?42,"|",?49,"|",?62,"|",?75,"|"
|
|---|
| 53 | QUIT
|
|---|
| 54 | SVEND ;
|
|---|
| 55 | N ID,FILE,VEN,REF,KK,VENMAIN,VEND,VENRFQ,VENRFQ1
|
|---|
| 56 | K FLAG
|
|---|
| 57 | S ID=$P($G(^PRC(444,DA,5,K,0)),"^") I ID="" S FLAG=1 Q
|
|---|
| 58 | I $P($G(^(0)),"^",2)="e" S FLAG=1 Q
|
|---|
| 59 | S KK=$P(ID,";"),FILE=$P(ID,";",2),REF="^"_FILE_KK_",0)",VEN=@REF
|
|---|
| 60 | S VENPH=$S(FILE[440:$P(VEN,U,10),FILE[444.1:$P(VEN,U,6),1:"")
|
|---|
| 61 | I FILE[440 F I=1:1:8 S SRC(I)=$P(VEN,"^",I)
|
|---|
| 62 | I FILE[444.1 S SRC(1)=$P(VEN,"^") F I=1:1:7 S SRC(I+1)=$P($G(^PRC(444.1,KK,1)),"^",I)
|
|---|
| 63 | S:SRC(7)'="" SRC(7)=$P($G(^DIC(5,SRC(7),0)),"^",2)
|
|---|
| 64 | ;
|
|---|
| 65 | ;setting up FAX# from file 440 and 444.1
|
|---|
| 66 | I FILE[440 S VENMAIN="^"_FILE_KK_",10)" S VEND=$G(@(VENMAIN)) S VENFAX=$P(VEND,"^",6)
|
|---|
| 67 | ;
|
|---|
| 68 | I FILE[444.1 S VENRFQ="^"_FILE_KK_",0)" S VENRFQ1=@(VENRFQ)
|
|---|
| 69 | S:FILE[444.1 VENFAX=$P($G(VENRFQ1),"^",7)
|
|---|
| 70 | QUIT
|
|---|
