ENPRP4 ;(WIRMFO)/DH/SAB-Project Tracking Report ;6/12/97
;;7.0;ENGINEERING;**28**;Aug 17, 1993
;construction contract + P&H
CN ;construction contract
N ENPHT,ENCOSAN,ENI,ENY
F ENI=8,10,53,64,68 S ENY(ENI)=$G(^ENG("PROJ",ENDA,ENI))
W !!,"CONST"
W ?7,"Contract: " D W^ENPRP1($P(ENY(8),U),$P(ENY(64),U,11),"H")
W ?50,"Add #: "
D W^ENPRP1($J($P(ENY(10),U),3),$J($P(ENY(64),U,21),3),"H")
W ?63,"$: "
D W^ENPRP1($J($FN($P(ENY(10),U,2),","),9),$J($FN($P(ENY(64),U,22),","),9),"H")
W !,?7,"Original Award:"
; award date
W ?33,"$" D W^ENPRP1($J($FN($P(ENY(8),U,2),","),10),$J($FN($P(ENY(64),U,12),","),10),"HA")
W ?50,"Ded #: "
D W^ENPRP1($J($P(ENY(10),U,3),3),$J($P(ENY(64),U,23),3),"H")
W ?63,"$: "
D W^ENPRP1($J($FN($P(ENY(10),U,4),","),9),$J($FN($P(ENY(64),U,24),","),9),"H")
W !,?9,$P($G(^ENG("PROJ",ENDA,9)),U)
W ?50,"Net",?63,"$: "
S ENCOSAN=$P(ENY(10),U,2)-$P(ENY(10),U,4)
S ENCOSAN(0)=$P(ENY(64),U,22)-$P(ENY(64),U,24)
D W^ENPRP1($J($FN(ENCOSAN,","),9),$J($FN(ENCOSAN(0),","),9),"H")
W !,?50,"Extension (days): "
D W^ENPRP1($P(ENY(53),U,3),$P(ENY(68),U,13),"HP")
PH ; P & H section
W !,ENDL
W !,"P & H OBLIGATIONS:"
W ?21,"Labor (to date): ",?39
D W^ENPRP1($J($FN($P(ENY(53),U),","),10),$J($FN($P(ENY(68),U,11),","),10),"HP")
W !,?21,"Matrls (to date): ",?39
D W^ENPRP1($J($FN($P(ENY(53),U,2),","),10),$J($FN($P(ENY(68),U,12),","),10),"HP")
W !,?21,"TOTAL P&H: ",?39
S ENPHT=$P(ENY(53),U)+$P(ENY(53),U,2)
S ENPHT(0)=$P(ENY(68),U,11)+$P(ENY(68),U,12)
D W^ENPRP1($J($FN(ENPHT,","),10),$J($FN(ENPHT(0),","),10),"H")
Q ;return to ENPRP1
;ENPRP4
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPRP4 1619 printed Apr 09, 2024@21:00:40 Page 2
ENPRP4 ;(WIRMFO)/DH/SAB-Project Tracking Report ;6/12/97
+1 ;;7.0;ENGINEERING;**28**;Aug 17, 1993
+2 ;construction contract + P&H
CN ;construction contract
+1 NEW ENPHT,ENCOSAN,ENI,ENY
+2 FOR ENI=8,10,53,64,68
SET ENY(ENI)=$GET(^ENG("PROJ",ENDA,ENI))
+3 WRITE !!,"CONST"
+4 WRITE ?7,"Contract: "
DO W^ENPRP1($PIECE(ENY(8),U),$PIECE(ENY(64),U,11),"H")
+5 WRITE ?50,"Add #: "
+6 DO W^ENPRP1($JUSTIFY($PIECE(ENY(10),U),3),$JUSTIFY($PIECE(ENY(64),U,21),3),"H")
+7 WRITE ?63,"$: "
+8 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(10),U,2),","),9),$JUSTIFY($FNUMBER($PIECE(ENY(64),U,22),","),9),"H")
+9 WRITE !,?7,"Original Award:"
+10 ; award date
+11 WRITE ?33,"$"
DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(8),U,2),","),10),$JUSTIFY($FNUMBER($PIECE(ENY(64),U,12),","),10),"HA")
+12 WRITE ?50,"Ded #: "
+13 DO W^ENPRP1($JUSTIFY($PIECE(ENY(10),U,3),3),$JUSTIFY($PIECE(ENY(64),U,23),3),"H")
+14 WRITE ?63,"$: "
+15 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(10),U,4),","),9),$JUSTIFY($FNUMBER($PIECE(ENY(64),U,24),","),9),"H")
+16 WRITE !,?9,$PIECE($GET(^ENG("PROJ",ENDA,9)),U)
+17 WRITE ?50,"Net",?63,"$: "
+18 SET ENCOSAN=$PIECE(ENY(10),U,2)-$PIECE(ENY(10),U,4)
+19 SET ENCOSAN(0)=$PIECE(ENY(64),U,22)-$PIECE(ENY(64),U,24)
+20 DO W^ENPRP1($JUSTIFY($FNUMBER(ENCOSAN,","),9),$JUSTIFY($FNUMBER(ENCOSAN(0),","),9),"H")
+21 WRITE !,?50,"Extension (days): "
+22 DO W^ENPRP1($PIECE(ENY(53),U,3),$PIECE(ENY(68),U,13),"HP")
PH ; P & H section
+1 WRITE !,ENDL
+2 WRITE !,"P & H OBLIGATIONS:"
+3 WRITE ?21,"Labor (to date): ",?39
+4 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(53),U),","),10),$JUSTIFY($FNUMBER($PIECE(ENY(68),U,11),","),10),"HP")
+5 WRITE !,?21,"Matrls (to date): ",?39
+6 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(53),U,2),","),10),$JUSTIFY($FNUMBER($PIECE(ENY(68),U,12),","),10),"HP")
+7 WRITE !,?21,"TOTAL P&H: ",?39
+8 SET ENPHT=$PIECE(ENY(53),U)+$PIECE(ENY(53),U,2)
+9 SET ENPHT(0)=$PIECE(ENY(68),U,11)+$PIECE(ENY(68),U,12)
+10 DO W^ENPRP1($JUSTIFY($FNUMBER(ENPHT,","),10),$JUSTIFY($FNUMBER(ENPHT(0),","),10),"H")
+11 ;return to ENPRP1
QUIT
+12 ;ENPRP4
