ENPRP3 ;(WIRMFO)/DLM/DH/SAB-Project Tracking Report ;6/12/97
;;7.0;ENGINEERING;**18,28**;Aug 17, 1993
AE ;print A/E data block
N ENAESAN,ENAEST,ENI,ENY
F ENI=5,51,64,67 S ENY(ENI)=$G(^ENG("PROJ",ENDA,ENI))
W !,"A/E",?7,"Contract: " D W^ENPRP1($P(ENY(5),U),$P(ENY(64),U),"H")
W ?50,"Add #: "
D W^ENPRP1($J($P(ENY(51),U,9),3),$J($P(ENY(67),U,9),3),"H")
W ?63,"$: "
D W^ENPRP1($J($FN($P(ENY(51),U,10),","),9),$J($FN($P(ENY(67),U,10),","),9),"H")
W !,?7,"Original Award: "
;award date
W ?33,"$" D W^ENPRP1($J($FN($P(ENY(5),U,9),","),9),$J($FN($P(ENY(64),U,9),","),9),"HA")
W ?50,"Ded #: "
D W^ENPRP1($J($P(ENY(51),U,11),3),$J($P(ENY(67),U,11),3),"H")
W ?63,"$: "
D W^ENPRP1($J($FN($P(ENY(51),U,12),","),9),$J($FN($P(ENY(67),U,12),","),9),"H")
W !,?9,$P($G(^ENG("PROJ",ENDA,6)),U) ; a/e name
S ENAESAN=$P(ENY(51),U,10)-$P(ENY(51),U,12)
S ENAESAN(0)=$P(ENY(67),U,10)-$P(ENY(67),U,12)
W ?50,"Net",?63,"$: " D W^ENPRP1($J($FN(ENAESAN,","),9),$J($FN(ENAESAN(0),","),9),"H")
W !,?7,"Study:",?27
D W^ENPRP1($J($FN($P(ENY(51),U,6),","),8),$J($FN($P(ENY(67),U,6),","),8),"HP")
W !,?7,"Schematics:",?27
D W^ENPRP1($J($FN($P(ENY(5),U,3),","),8),$J($FN($P(ENY(64),U,3),","),8),"HP")
W !,?7,"Site Survey:",?27
D W^ENPRP1($J($FN($P(ENY(5),U,10),","),8),$J($FN($P(ENY(64),U,10),","),8),"HP")
W !,?7,"Design Development:",?27
D W^ENPRP1($J($FN($P(ENY(51),U,7),","),8),$J($FN($P(ENY(67),U,7),","),8),"HP")
W !,?7,"Const. Documents:",?27
D W^ENPRP1($J($FN($P(ENY(5),U,4),","),8),$J($FN($P(ENY(64),U,4),","),8),"HP")
W !,?7,"Site Visits:",?27
D W^ENPRP1($J($FN($P(ENY(5),U,5),","),8),$J($FN($P(ENY(64),U,5),","),8),"HP")
W !,?7,"Const. Period Svcs.:",?27
D W^ENPRP1($J($FN($P(ENY(5),U,6),","),8),$J($FN($P(ENY(64),U,6),","),8),"HP")
W !,?7,"Other:",?27
D W^ENPRP1($J($FN($P(ENY(51),U,8),","),8),$J($FN($P(ENY(67),U,8),","),8),"HP")
W !,?7,"Subtotal:",?27
S ENAEST=$P(ENY(51),U,6)+$P(ENY(5),U,3)+$P(ENY(5),U,10)+$P(ENY(51),U,7)+$P(ENY(5),U,4)+$P(ENY(5),U,5)+$P(ENY(5),U,6)+$P(ENY(51),U,8)
S ENAEST(0)=$P(ENY(67),U,6)+$P(ENY(64),U,3)+$P(ENY(64),U,10)+$P(ENY(67),U,7)+$P(ENY(64),U,4)+$P(ENY(64),U,5)+$P(ENY(64),U,6)+$P(ENY(67),U,8)
D W^ENPRP1($J($FN(ENAEST,","),8),$J($FN(ENAEST(0),","),8),"HP")
Q
;ENPRP3
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPRP3 2264 printed Nov 22, 2024@17:05:33 Page 2
ENPRP3 ;(WIRMFO)/DLM/DH/SAB-Project Tracking Report ;6/12/97
+1 ;;7.0;ENGINEERING;**18,28**;Aug 17, 1993
AE ;print A/E data block
+1 NEW ENAESAN,ENAEST,ENI,ENY
+2 FOR ENI=5,51,64,67
SET ENY(ENI)=$GET(^ENG("PROJ",ENDA,ENI))
+3 WRITE !,"A/E",?7,"Contract: "
DO W^ENPRP1($PIECE(ENY(5),U),$PIECE(ENY(64),U),"H")
+4 WRITE ?50,"Add #: "
+5 DO W^ENPRP1($JUSTIFY($PIECE(ENY(51),U,9),3),$JUSTIFY($PIECE(ENY(67),U,9),3),"H")
+6 WRITE ?63,"$: "
+7 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(51),U,10),","),9),$JUSTIFY($FNUMBER($PIECE(ENY(67),U,10),","),9),"H")
+8 WRITE !,?7,"Original Award: "
+9 ;award date
+10 WRITE ?33,"$"
DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(5),U,9),","),9),$JUSTIFY($FNUMBER($PIECE(ENY(64),U,9),","),9),"HA")
+11 WRITE ?50,"Ded #: "
+12 DO W^ENPRP1($JUSTIFY($PIECE(ENY(51),U,11),3),$JUSTIFY($PIECE(ENY(67),U,11),3),"H")
+13 WRITE ?63,"$: "
+14 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(51),U,12),","),9),$JUSTIFY($FNUMBER($PIECE(ENY(67),U,12),","),9),"H")
+15 ; a/e name
WRITE !,?9,$PIECE($GET(^ENG("PROJ",ENDA,6)),U)
+16 SET ENAESAN=$PIECE(ENY(51),U,10)-$PIECE(ENY(51),U,12)
+17 SET ENAESAN(0)=$PIECE(ENY(67),U,10)-$PIECE(ENY(67),U,12)
+18 WRITE ?50,"Net",?63,"$: "
DO W^ENPRP1($JUSTIFY($FNUMBER(ENAESAN,","),9),$JUSTIFY($FNUMBER(ENAESAN(0),","),9),"H")
+19 WRITE !,?7,"Study:",?27
+20 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(51),U,6),","),8),$JUSTIFY($FNUMBER($PIECE(ENY(67),U,6),","),8),"HP")
+21 WRITE !,?7,"Schematics:",?27
+22 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(5),U,3),","),8),$JUSTIFY($FNUMBER($PIECE(ENY(64),U,3),","),8),"HP")
+23 WRITE !,?7,"Site Survey:",?27
+24 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(5),U,10),","),8),$JUSTIFY($FNUMBER($PIECE(ENY(64),U,10),","),8),"HP")
+25 WRITE !,?7,"Design Development:",?27
+26 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(51),U,7),","),8),$JUSTIFY($FNUMBER($PIECE(ENY(67),U,7),","),8),"HP")
+27 WRITE !,?7,"Const. Documents:",?27
+28 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(5),U,4),","),8),$JUSTIFY($FNUMBER($PIECE(ENY(64),U,4),","),8),"HP")
+29 WRITE !,?7,"Site Visits:",?27
+30 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(5),U,5),","),8),$JUSTIFY($FNUMBER($PIECE(ENY(64),U,5),","),8),"HP")
+31 WRITE !,?7,"Const. Period Svcs.:",?27
+32 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(5),U,6),","),8),$JUSTIFY($FNUMBER($PIECE(ENY(64),U,6),","),8),"HP")
+33 WRITE !,?7,"Other:",?27
+34 DO W^ENPRP1($JUSTIFY($FNUMBER($PIECE(ENY(51),U,8),","),8),$JUSTIFY($FNUMBER($PIECE(ENY(67),U,8),","),8),"HP")
+35 WRITE !,?7,"Subtotal:",?27
+36 SET ENAEST=$PIECE(ENY(51),U,6)+$PIECE(ENY(5),U,3)+$PIECE(ENY(5),U,10)+$PIECE(ENY(51),U,7)+$PIECE(ENY(5),U,4)+$PIECE(ENY(5),U,5)+$PIECE(ENY(5),U,6)+$PIECE(ENY(51),U,8)
+37 SET ENAEST(0)=$PIECE(ENY(67),U,6)+$PIECE(ENY(64),U,3)+$PIECE(ENY(64),U,10)+$PIECE(ENY(67),U,7)+$PIECE(ENY(64),U,4)+$PIECE(ENY(64),U,5)+$PIECE(ENY(64),U,6)+$PIECE(ENY(67),U,8)
+38 DO W^ENPRP1($JUSTIFY($FNUMBER(ENAEST,","),8),$JUSTIFY($FNUMBER(ENAEST(0),","),8),"HP")
+39 QUIT
+40 ;ENPRP3
