source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCHP181.m@ 1005

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

initial load of WorldVistAEHR

File size: 3.4 KB
Line 
1PRCHP181 ;SF/FKV-PRINT FOR SF18 REQUEST FOR QUOTATIONS ;7-20-89/8:36 AM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN W "10.PLEASE FURNISH QUOTATIONS TO",?35,"|11.BUSINESS CLASSIFICATION (check appropriate boxes)",!,?3,"THE ISSUING OFFICE ON OR BE-",?35,"|",!
6 W ?3,"FORE CLOSE OF BUSINESS (date)",?35,"| ___SMALL",?52,"___OTHER THAN SMALL",?73,"___VIETNAM VETERAN-OWNED",!
7 W ?6,PRCHDT1,?35,"| ___WOMEN-OWNED",?52,"___DISADVANTAGED",?73,"___DISABLED VETERAN-OWNED",!,$E(PRCHUNDL,1,35),"|",$E(PRCHUNDL,1,62),!
8 W "IMPORTANT: This is a request for information, and quotations furnished are not offers. If you are",!
9 W "unable to quote, please so indicate on this form and return it. This request does not commit the",!
10 W "Government to pay any costs incurred in the preparation of the submission of this quotation or to",!
11 W "contract for supplies or services. Supplies are of domestic origin unless otherwise indicated by",!
12 W "quoter. Any representations and/or certifications attached to this Request for Quotations must be",!,"completed by the quoter.",!,PRCHUNDL,!
13 W ?18,"12.SCHEDULE (Include applicable Federal, State and local taxes)",!,PRCHUNDL,!
14 W "ITEM NO.",?9,"|",?15,"SUPPLIES/SERVICES",?44,"|",?47,"QUANTITY",?56,"|",?58,"UNIT",?64,"|",?69,"UNIT PRICE",?81,"|",?88,"AMOUNT",!
15 W "__(a)____|___________(b)____________________|____(c)____|__(d)__|_______(e)______|_______(f)______",!
16 ; PRINT ITEMS ON QUOTATION
17 S PRCHLI="F K=44,56,64,81 W ?K,""|"" W:K=81 !",DIWL=1,DIWR=33,DIWF="",PRCHDY=43,PRCHI=0 D ITEM
18 G ^PRCHP183
19 ;
20ITEM ;
21 S PRCHI=$O(^PRCS(410,PRCHD0,"IT",PRCHI)) Q:'PRCHI G:'$D(^(PRCHI,0)) ITEM S PRCHX=^(0),PRCHITEM=+$P(PRCHX,U,1),PRCHIMAS=+$P(PRCHX,U,5)
22 K ^UTILITY($J,"W")
23 I $D(^PRC(441,PRCHIMAS,0)) S PRCHP=0 F PRCHJJ=1:1 S PRCHP=$O(^PRC(441,PRCHIMAS,1,PRCHP)) Q:PRCHP="" S X=^(PRCHP,0) D DIWP^PRCUTL($G(DA))
24 I '$D(^PRC(441,PRCHIMAS,0)) S PRCHP=0 F PRCHJJ=1:1 S PRCHP=$O(^PRCS(410,PRCHD0,"IT",PRCHI,1,PRCHP)) Q:PRCHP="" S X=^(PRCHP,0) D DIWP^PRCUTL($G(DA))
25 K ^TMP($J,"W")
26 S %X="^UTILITY($J,",%Y="^TMP($J," D %XY^%RCR K ^UTILITY($J,"W")
27 ;K PRCHJJ S PRCHUNIT=+$P(PRCHX,U,3),PRCHUNIT=$S($D(^PRCD(420.5,PRCHUNIT,0)):$P(^(0),U,1),1:"")
28 K PRCHJJ S PRCHUNIT=+$P(PRCHX,U,3),PRCHUNIT=$P($G(^PRCD(420.5,PRCHUNIT,0)),U,1)
29 S PRCHQTY=$S($P(^PRCS(410,PRCHD0,"IT",PRCHI,0),U,2)[".":$J($P(PRCHX,U,2),10,2),1:$J($P(PRCHX,U,2),7))
30 S (PRCHUP,PRCHNSN,PRCHVS,PRCHPM)="" I $D(^PRC(441,PRCHIMAS,0))#2 S PRCHNSN=$P(^(0),U,5)
31 I $D(^PRC(441,PRCHIMAS,2,PRCHVCNT,0))#2 S PRCHVS=$P(^(0),U,4),PRCHUP=$P(^(0),U,7),PRCHPM=$P(^(0),U,8)
32 I PRCHUP]"",$D(^PRCD(420.5,PRCHUP,0)) S PRCHUP=$S($P(^(0),U,2)]"":$P(^(0),U,2),1:$P(^(0),U))
33 I '$D(^TMP($J,"W")) S ^TMP($J,"W",1)=1,^(1,1,0)="***NO DESCRIPTION***"
34 S PRCHCNT=+^TMP($J,"W",1)
35 I PRCHUP]"",PRCHPM]"" S PRCHCNT=PRCHCNT+1,^TMP($J,"W",1,PRCHCNT,0)=PRCHPM_" Per "_PRCHUP
36 I PRCHVS]"" S PRCHCNT=PRCHCNT+1,^TMP($J,"W",1,PRCHCNT,0)="STK# "_PRCHVS
37 I PRCHNSN]"" S PRCHCNT=PRCHCNT+1,^TMP($J,"W",1,PRCHCNT,0)="NSN# "_PRCHNSN
38 S:PRCHCNT'>0 PRCHCNT=1
39 S X=PRCHDY,PRCHDY=PRCHDY+PRCHCNT+1 I PRCHDY>64 S PRCHDY=X D ENDPG S PRCHDY=PRCHCNT+2
40 S I=0,J=0 D PRT G ITEM
41 ;
42PRT S I=I+1,J=$O(^TMP($J,"W",1,J)) Q:'J S X=$G(^(J,0)) I I=1 W ?9,"|",?44,"|",?56,"|",?64,"|",?81,"|",!,$J(PRCHITEM,8)
43 W ?9,"|",?11,X I I'=1 X PRCHLI G PRT
44 W ?44,"|",?46,PRCHQTY,?56,"|",?59,PRCHUNIT,?64,"|",?81,"|",!
45 G PRT
46 ;
47ENDPG F Z=0:0 W:PRCHDY<63 ! S PRCHDY=PRCHDY+1 I PRCHDY>62 W ?45,"PAGE "_PRCHPAGE,! S PRCHPAGE=PRCHPAGE+1 W @IOF K Z Q
48 Q
Note: See TracBrowser for help on using the repository browser.