| 1 | ENPRP3 ;(WIRMFO)/DLM/DH/SAB-Project Tracking Report ;6/12/97
|
|---|
| 2 | ;;7.0;ENGINEERING;**18,28**;Aug 17, 1993
|
|---|
| 3 | AE ;print A/E data block
|
|---|
| 4 | N ENAESAN,ENAEST,ENI,ENY
|
|---|
| 5 | F ENI=5,51,64,67 S ENY(ENI)=$G(^ENG("PROJ",ENDA,ENI))
|
|---|
| 6 | W !,"A/E",?7,"Contract: " D W^ENPRP1($P(ENY(5),U),$P(ENY(64),U),"H")
|
|---|
| 7 | W ?50,"Add #: "
|
|---|
| 8 | D W^ENPRP1($J($P(ENY(51),U,9),3),$J($P(ENY(67),U,9),3),"H")
|
|---|
| 9 | W ?63,"$: "
|
|---|
| 10 | D W^ENPRP1($J($FN($P(ENY(51),U,10),","),9),$J($FN($P(ENY(67),U,10),","),9),"H")
|
|---|
| 11 | W !,?7,"Original Award: "
|
|---|
| 12 | ;award date
|
|---|
| 13 | W ?33,"$" D W^ENPRP1($J($FN($P(ENY(5),U,9),","),9),$J($FN($P(ENY(64),U,9),","),9),"HA")
|
|---|
| 14 | W ?50,"Ded #: "
|
|---|
| 15 | D W^ENPRP1($J($P(ENY(51),U,11),3),$J($P(ENY(67),U,11),3),"H")
|
|---|
| 16 | W ?63,"$: "
|
|---|
| 17 | D W^ENPRP1($J($FN($P(ENY(51),U,12),","),9),$J($FN($P(ENY(67),U,12),","),9),"H")
|
|---|
| 18 | W !,?9,$P($G(^ENG("PROJ",ENDA,6)),U) ; a/e name
|
|---|
| 19 | S ENAESAN=$P(ENY(51),U,10)-$P(ENY(51),U,12)
|
|---|
| 20 | S ENAESAN(0)=$P(ENY(67),U,10)-$P(ENY(67),U,12)
|
|---|
| 21 | W ?50,"Net",?63,"$: " D W^ENPRP1($J($FN(ENAESAN,","),9),$J($FN(ENAESAN(0),","),9),"H")
|
|---|
| 22 | W !,?7,"Study:",?27
|
|---|
| 23 | D W^ENPRP1($J($FN($P(ENY(51),U,6),","),8),$J($FN($P(ENY(67),U,6),","),8),"HP")
|
|---|
| 24 | W !,?7,"Schematics:",?27
|
|---|
| 25 | D W^ENPRP1($J($FN($P(ENY(5),U,3),","),8),$J($FN($P(ENY(64),U,3),","),8),"HP")
|
|---|
| 26 | W !,?7,"Site Survey:",?27
|
|---|
| 27 | D W^ENPRP1($J($FN($P(ENY(5),U,10),","),8),$J($FN($P(ENY(64),U,10),","),8),"HP")
|
|---|
| 28 | W !,?7,"Design Development:",?27
|
|---|
| 29 | D W^ENPRP1($J($FN($P(ENY(51),U,7),","),8),$J($FN($P(ENY(67),U,7),","),8),"HP")
|
|---|
| 30 | W !,?7,"Const. Documents:",?27
|
|---|
| 31 | D W^ENPRP1($J($FN($P(ENY(5),U,4),","),8),$J($FN($P(ENY(64),U,4),","),8),"HP")
|
|---|
| 32 | W !,?7,"Site Visits:",?27
|
|---|
| 33 | D W^ENPRP1($J($FN($P(ENY(5),U,5),","),8),$J($FN($P(ENY(64),U,5),","),8),"HP")
|
|---|
| 34 | W !,?7,"Const. Period Svcs.:",?27
|
|---|
| 35 | D W^ENPRP1($J($FN($P(ENY(5),U,6),","),8),$J($FN($P(ENY(64),U,6),","),8),"HP")
|
|---|
| 36 | W !,?7,"Other:",?27
|
|---|
| 37 | D W^ENPRP1($J($FN($P(ENY(51),U,8),","),8),$J($FN($P(ENY(67),U,8),","),8),"HP")
|
|---|
| 38 | W !,?7,"Subtotal:",?27
|
|---|
| 39 | 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)
|
|---|
| 40 | 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)
|
|---|
| 41 | D W^ENPRP1($J($FN(ENAEST,","),8),$J($FN(ENAEST(0),","),8),"HP")
|
|---|
| 42 | Q
|
|---|
| 43 | ;ENPRP3
|
|---|
