source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPL5C.m@ 1800

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

initial load of WorldVistAEHR

File size: 2.2 KB
RevLine 
[613]1ENPL5C ;(WIRMFO)/LKG,SAB-FYFP REPORT: EQUIPMENT PAGE ;5/15/96
2 ;;7.0;ENGINEERING;**11,23,28**;Aug 17, 1993
3EQP ; Equipment Over $250K Page
4 N ENC,ENDA,ENI,ENPN,ENPR,ENYR,ENY
5 D HD
6 F ENPR="LE","MA","MI","MM","NR" D Q:END
7 . S ENC(ENPR)=0
8 . I $Y+8>IOSL D FT Q:END D HD
9 . D HDP
10 . S ENYR=""
11 . F S ENYR=$O(^TMP($J,"E",ENPR,ENYR)) Q:ENYR="" D Q:END
12 . . S ENPN=""
13 . . F S ENPN=$O(^TMP($J,"E",ENPR,ENYR,ENPN)) Q:ENPN="" D Q:END
14 . . . S ENDA=$P(^TMP($J,"E",ENPR,ENYR,ENPN),U)
15 . . . S ENI=0
16 . . . F S ENI=$O(^ENG("PROJ",ENDA,25,ENI)) Q:'ENI D Q:END
17 . . . . I $Y+7>IOSL D FT Q:END D HD,HDP W " (continued)"
18 . . . . S ENY=$G(^ENG("PROJ",ENDA,25,ENI,0)) Q:ENY=""
19 . . . . S ENC("LINE")=$P(ENY,U,2)*$P(ENY,U,3)+500\1000
20 . . . . W !,?5,$P(ENPN,"-",2,3)
21 . . . . W ?15,$E($P($G(^ENG("PROJ",ENDA,0)),U,3),1,30)
22 . . . . W ?51,ENYR,?68,$P(ENY,U),?101,$P(ENY,U,4)
23 . . . . W ?107,$J($P(ENY,U,2),3),?113,"$",$J($FN(ENC("LINE"),","),7)
24 . . . . S ENC(ENPR)=ENC(ENPR)+ENC("LINE")
25 . W !,?5,"TOTAL",?113,"$",$J($FN(ENC(ENPR),","),7)
26 ;F ENI=$Y+6:1:IOSL W !
27 F ENI=$Y+6:1:$S(IOSL>254:$Y+9,1:IOSL) W ! ; for long page length
28 I ENFYB=0!(ENFYE="F") D
29 . W !,?5,"Note: Equipment not included for projects in "
30 . W:ENFYB=0 "current year (",ENFY,")"
31 . I ENFYB=0,ENFYE="F" W " or "
32 . W:ENFYE="F" "future years (>",ENFY+5,")"
33 . W "."
34 D FT
35 Q
36HD ; Page Header
37 D FYFPHD^ENPL5A
38 W !,?55,"EQUIPMENT OVER $250K LIST"
39 W !!,?5,"PROJ #",?15,"TITLE",?48,"FUNDING YR"
40 W ?68,"EQUIPMENT NAME",?100,"ADD/",?107,"QTY",?113,"TOT COST"
41 W !,?48,"CONST/RENT",?100,"REPL",?113,"(in $000)"
42 Q
43HDP ; Program Header
44 W !!,?5,$$EXTERNAL^DILFD(6925,155,"",ENPR)," PROJECTS:"
45 Q
46FT ; Page Footer
47 S ENPG=ENPG+1 W !!,?64,"Page ",ENPG,?100,ENRDT
48 I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR S:'Y END=1
49 Q
50WP ; part of detail page output
51 W !!,?5,"SHORT DESCRIPTION:"
52 K ^UTILITY($J,"W") S DIWL=27,DIWR=116,DIWF="W|",ENI=0
53 F S ENI=$O(^ENG("PROJ",ENDA,17,ENI)) Q:'ENI S X=$G(^(ENI,0)) D ^DIWP
54 D:$O(^ENG("PROJ",ENDA,17,0)) ^DIWW K DIWL,DIWR,DIWF
55 W !,?5,"SHORT JUSTIFICATION:"
56 K ^UTILITY($J,"W") S DIWL=27,DIWR=116,DIWF="W|",ENI=0
57 F S ENI=$O(^ENG("PROJ",ENDA,26,ENI)) Q:'ENI S X=$G(^(ENI,0)) D ^DIWP
58 D:$O(^ENG("PROJ",ENDA,26,0)) ^DIWW K ^UTILITY($J,"W"),DIWL,DIWR,DIWF
59 Q
60 ;ENPL5C
Note: See TracBrowser for help on using the repository browser.