- 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 Feb 18, 2025@23:21:49 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
