source: FOIAVistA/trunk/r/ENGINEERING-EN/ENPRP3.m@ 1765

Last change on this file since 1765 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1ENPRP3 ;(WIRMFO)/DLM/DH/SAB-Project Tracking Report ;6/12/97
2 ;;7.0;ENGINEERING;**18,28**;Aug 17, 1993
3AE ;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
Note: See TracBrowser for help on using the repository browser.