source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCHDSP2.m@ 775

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

initial load of WorldVistAEHR

File size: 4.1 KB
RevLine 
[613]1PRCHDSP2 ;TKW/BOISE,ID/RSD,WISC/AKS-DISPLAY AMENDMENT ;2/12/98 2:46 PM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;THIS WILL DISPLAY UNOBLIGATED DATA FROM FILES 443.6 AND 441.7 ONLY
5 N %X,%Y,DIWF,DIWL,DIWR,I,J,P,PRCH0,PRCH1,PRCHAV,PRCHP0,PRCHP1,PRCHPG,PRCHPGT,PRCHUL,X,Y,PRCHREPR,PRCHTPG,PRCHTYP,PRCHX,Z,PRCHDY,SITE
6 S D0=$S($D(PRCHPO):PRCHPO,1:D0),D1=$S($D(PRCHAM):PRCHAM,1:D1)
7 S U="^" Q:'$D(^PRC(443.6,D0,6,D1)) S PRCH0=^(D1,0),PRCH1=^(1),PRCHAV=$S($P(PRCH0,U,8)="Y":1,1:0),PRCHP0=^PRC(443.6,D0,0),PRCHP1=^(1),PRC("SITE")=$P(+PRCHP0,"-",1),PRCHUL="",$P(PRCHUL,"_",80)=""
8 S SITE=$P($G(^PRC(443.6,D0,23)),U,7),SITE=$S($G(SITE)]"":SITE,1:PRC("SITE"))
9 S PRCHPG=1,PRCHPGT=2
10 K ^UTILITY($J,"W"),^TMP($J,"AMD") S DIWL=1,DIWR=91,DIWF="",P=0 I PRCHAV'>0,$P($G(^PRC(443.6,D0,6,D1,2,0)),U,4)'>0 D START^PRCHPAM2(D0,D1) G CONT
11 F PRCHJJ=0:0 S P=$O(^PRC(443.6,D0,6,D1,2,P)) Q:'P!(P'>0) S X=^(P,0) D DIWP^PRCUTL($G(DA))
12 K PRCHJJ S %X="^UTILITY($J,""W"",DIWL,",%Y="^TMP($J,""AMD"",DIWL," D %XY^%RCR
13 S X=+^UTILITY($J,"W",DIWL) I X>37 S X=X-52 F I=0:0 Q:X'>41 S X=X-56,PRCHPGT=PRCHPGT+1
14 S:+^UTILITY($J,"W",DIWL)>37 PRCHPGT=PRCHPGT+1
15CONT G:PRCHAV EN2^PRCHDSP3
16 D HDR^PRCHDSP1 W "2.AMENDMENT/MODIFICATION NO. ",?29,"|3.EFFECTIVE DATE",?46,"|4.REQUISITION/PURCHASE REQ.NO."
17 W !?7,$P(PRCH0,U,1),?29,"| " S Y=$P(PRCH0,U,2) D DT S Y=0 I $P(PRCHP0,U,12),$D(^PRCS(410,+$P(PRCHP0,U,12),0)) S Y=$P(^(0),U,1)
18 W ?46,"| ",$S(Y:Y_"/",1:" "),$P($P(PRCHP0,U,1),"-",2) ;,!,?29,"|",?46,"|"
19 W !,$E(PRCHUL,1,29),"|",$E(PRCHUL,1,16),"|",$E(PRCHUL,1,30)
20 W !,"6.ISSUED BY ",?31,"| 7.ADMINISTERED BY (If other than item 6)" S Y=$G(^PRC(411,SITE,3))
21 W !?3,"A&MM SERVICE",?31,"|",!?3,"VA MEDICAL CENTER",?31,"|",! F I=1:1:2 W:$P(Y,U,I)]"" ?3,$P(Y,U,I),?31,"|",!?3
22 ;W $P(Y,U,3),", ",$S($D(^DIC(5,+$P(Y,U,4),0)):$P(^(0),U,2),1:"")," ",$P(Y,U,5),?31,"|" F I=1:1:2-I W !?31,"|"
23 W $P(Y,U,3),", ",$P($G(^DIC(5,+$P(Y,U,4),0)),U,2)," ",$P(Y,U,5),?31,"|" F I=1:1:2-I W !?31,"|"
24 S X=$G(^PRC(440,+PRCHP1,0)) W !,$E(PRCHUL,1,31),"|",$E(PRCHUL,1,47),!,"8.NAME & ADDRESS OF CONTRACTOR ",?34,"| | 9A.AMENDMENT OF SOLICITATION NO.",!
25 W ?2,"(No.,street,county,St. and ZIP)",?34,"| |",!,?2,$P(X,U),?34,"| |",$E(PRCHUL,1,40),! S J=1 D AL
26 W ?34,"| | 9B.DATED (See Item 11)",! D:J'>5 AL W ?34,"| |",! D:J'>5 AL W ?34,"|___|",$E(PRCHUL,1,40),!
27 D:J'>5 AL W ?34,"| | 10A.MODIF. OF CONT./ORD. NO.",! D:J'>5 AL W ?34,"| X |",?43,$P(PRCHP0,U),!
28 W ?34,"| |",$E(PRCHUL,1,40),!,$E(PRCHUL,1,34),?34,"| | 10B.DATED (See Item 13)",!,"CODE",?20,"|FACILITY CODE",?34,"| |",?45 S Y=$P(PRCHP1,U,15) D DT
29 W !,$E(PRCHUL,1,20),"|",$E(PRCHUL,1,13),"|___|",$E(PRCHUL,1,40),! ;,?16,"11.THIS ITEM ONLY APPLIES TO AMENDMENTS OF SOLICITATIONS",!,PRCHUL,!
30 ;W PRCHUL,!
31 ;W !,"____ The above numbered solicitation is amended as set forth in Item 14. The hour",!,"and date specified for receipt of Offers ____is extended ____is not extended.",!
32 ;W "Offers must acknowledge receipt of this amendment prior to the hour and date",!,"specified in the solicitation or as amended by one of the following methods:",!!
33 ;W "(a) By completing Items 8 and 15 and returning ______ copies of the amendment:",!,"(b) By acknowledging receipt of this amendment on each copy of the offer",!,"submitted: or"
34 ;W "(c) By separate letter or telegram which includes a reference to the solicitation",!,"and amendment numbers. FAILURE OF YOUR ACKNOWLEDGEMENT TO BE RECEIVED AT THE PLACE DESIGNATED",!,"FOR THE RECEIPT"
35 ;W "OF OFFERS PRIOR TO THE HOUR AND DATE SPECIFIED MAY RESULT IN REJECTION",!,"OF YOUR OFFER. If by virtue of this amendment you desire to change an",!,"offer already submitted, such change may be made"
36 ;W "by telegram or letter,",!,"provided each telegram or letter makes reference to the solicitation and",!,"this amendment, and is received prior to the opening hour and date specified.",!
37 G ^PRCHDSP1
38DT Q:'Y W Y\100#100,"/",Y#100\1,"/",Y\10000+1700
39 Q
40AL F I=J:1 S J=J+1 Q:J>6 I $P(X,U,J)]"" G:J=6 AL1 W ?2,$P(X,U,J) Q
41 Q
42AL1 ;W ?8,$P(X,U,6),", ",$S($D(^DIC(5,+$P(X,U,7),0)):$P(^(0),U,2),1:"")," ",$P(X,U,8) Q
43 W ?2,$P(X,U,6),", ",$P($G(^DIC(5,+$P(X,U,7),0)),U,2)," ",$P(X,U,8)
44 Q
Note: See TracBrowser for help on using the repository browser.