ENPRP3.m

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 ---ENPRP3   2264     printed  Feb 18, 2025@23:21:48                                                                                                                                                                                                      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