| 1 | ENPRP4 ;(WIRMFO)/DH/SAB-Project Tracking Report ;6/12/97
|
|---|
| 2 | ;;7.0;ENGINEERING;**28**;Aug 17, 1993
|
|---|
| 3 | ;construction contract + P&H
|
|---|
| 4 | CN ;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")
|
|---|
| 27 | PH ; 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
|
|---|
