source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPRP4.m@ 699

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1ENPRP4 ;(WIRMFO)/DH/SAB-Project Tracking Report ;6/12/97
2 ;;7.0;ENGINEERING;**28**;Aug 17, 1993
3 ;construction contract + P&H
4CN ;construction contract
5 N ENPHT,ENCOSAN,ENI,ENY
6 F ENI=8,10,53,64,68 S ENY(ENI)=$G(^ENG("PROJ",ENDA,ENI))
7 W !!,"CONST"
8 W ?7,"Contract: " D W^ENPRP1($P(ENY(8),U),$P(ENY(64),U,11),"H")
9 W ?50,"Add #: "
10 D W^ENPRP1($J($P(ENY(10),U),3),$J($P(ENY(64),U,21),3),"H")
11 W ?63,"$: "
12 D W^ENPRP1($J($FN($P(ENY(10),U,2),","),9),$J($FN($P(ENY(64),U,22),","),9),"H")
13 W !,?7,"Original Award:"
14 ; award date
15 W ?33,"$" D W^ENPRP1($J($FN($P(ENY(8),U,2),","),10),$J($FN($P(ENY(64),U,12),","),10),"HA")
16 W ?50,"Ded #: "
17 D W^ENPRP1($J($P(ENY(10),U,3),3),$J($P(ENY(64),U,23),3),"H")
18 W ?63,"$: "
19 D W^ENPRP1($J($FN($P(ENY(10),U,4),","),9),$J($FN($P(ENY(64),U,24),","),9),"H")
20 W !,?9,$P($G(^ENG("PROJ",ENDA,9)),U)
21 W ?50,"Net",?63,"$: "
22 S ENCOSAN=$P(ENY(10),U,2)-$P(ENY(10),U,4)
23 S ENCOSAN(0)=$P(ENY(64),U,22)-$P(ENY(64),U,24)
24 D W^ENPRP1($J($FN(ENCOSAN,","),9),$J($FN(ENCOSAN(0),","),9),"H")
25 W !,?50,"Extension (days): "
26 D W^ENPRP1($P(ENY(53),U,3),$P(ENY(68),U,13),"HP")
27PH ; P & H section
28 W !,ENDL
29 W !,"P & H OBLIGATIONS:"
30 W ?21,"Labor (to date): ",?39
31 D W^ENPRP1($J($FN($P(ENY(53),U),","),10),$J($FN($P(ENY(68),U,11),","),10),"HP")
32 W !,?21,"Matrls (to date): ",?39
33 D W^ENPRP1($J($FN($P(ENY(53),U,2),","),10),$J($FN($P(ENY(68),U,12),","),10),"HP")
34 W !,?21,"TOTAL P&H: ",?39
35 S ENPHT=$P(ENY(53),U)+$P(ENY(53),U,2)
36 S ENPHT(0)=$P(ENY(68),U,11)+$P(ENY(68),U,12)
37 D W^ENPRP1($J($FN(ENPHT,","),10),$J($FN(ENPHT(0),","),10),"H")
38 Q ;return to ENPRP1
39 ;ENPRP4
Note: See TracBrowser for help on using the repository browser.