source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPLPB1.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: 3.3 KB
Line 
1ENPLPB1 ; GENERATED FROM 'ENPLP006' PRINT TEMPLATE (#158) ; 06/11/96 ; (continued)
2 G BEGIN
3N W !
4T W:$X ! I '$D(DIOT(2)),DN,$D(IOSL),$S('$D(DIWF):1,$P(DIWF,"B",2):$P(DIWF,"B",2),1:1)+$Y'<IOSL,$D(^UTILITY($J,1))#2,^(1)?1U1P1E.E X ^(1)
5 S DISTP=DISTP+1,DILCT=DILCT+1 D:'(DISTP#100) CSTP^DIO2
6 Q
7DT I $G(DUZ("LANG"))>1,Y W $$OUT^DIALOGU(Y,"DD") Q
8 I Y W $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " W:Y#100 $J(Y#100\1,2)_"," W Y\10000+1700 W:Y#1 " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12) Q
9 W Y Q
10M D @DIXX
11 Q
12BEGIN ;
13 S:'$D(DN) DN=1 S DISTP=$G(DISTP),DILCT=$G(DILCT)
14 W "* Reserved for Future Use *"
15 D T Q:'DN D N D N:$X>0 Q:'DN W ?0 W "21. DEPARTMENT/SERVICE OR TECHNICAL"
16 D N:$X>74 Q:'DN W ?74 W "22. FDP CRITICAL"
17 D N:$X>99 Q:'DN W ?99 W "23. FDP CORRECTIVE"
18 D N:$X>4 Q:'DN W ?4 W "DEFICIENCIES TO BE ADDRESSED"
19 D N:$X>78 Q:'DN W ?78 W "RATING"
20 D N:$X>103 Q:'DN W ?103 W "ACTION #"
21 D T Q:'DN D N D N:$X>0 Q:'DN W ?0 W ""
22 D N:$X>29 Q:'DN W ?29 W "* Reserved for Future Use *"
23 D T Q:'DN D N D N:$X>0 Q:'DN W ?0 W "24. PROJECT SCOPE: "
24 D N:$X>4 Q:'DN W ?4 W "25. CODE"
25 D N:$X>19 Q:'DN W ?19 W "26. DEPARTMENT/SERVICE"
26 D N:$X>69 Q:'DN W ?69 W "27. NEW"
27 D N:$X>107 Q:'DN W ?107 W "28. RENOVATED"
28 D N:$X>72 Q:'DN W ?72 W "NSF GSF"
29 D N:$X>105 Q:'DN W ?105 W "NSF GSF"
30 S I(1)=22,J(1)=6925.03 F D1=0:0 Q:$O(^ENG("PROJ",D0,22,D1))'>0 X:$D(DSC(6925.03)) DSC(6925.03) S D1=$O(^(D1)) Q:D1'>0 D:$X>124 T Q:'DN D D1
31 G D1R
32D1 ;
33 D N:$X>8 Q:'DN W ?8 X DXS(9,9.2) S DIP(101)=$S($D(^OFM(7336.6,D0,0)):^(0),1:"") S X=$P(DIP(101),U,2) S D0=I(0,0) S D1=I(1,0) K DIP K:DN Y W X
34 D N:$X>23 Q:'DN W ?23 X DXS(10,9.2) S DIP(101)=$S($D(^OFM(7336.6,D0,0)):^(0),1:"") S X=$P(DIP(101),U,1) S D0=I(0,0) S D1=I(1,0) K DIP K:DN Y W X
35 S X=$G(^ENG("PROJ",D0,22,D1,0)) D N:$X>69 Q:'DN W ?69 S Y=$P(X,U,2) W:Y]"" $J(Y,9,0)
36 D N:$X>83 Q:'DN W ?83 S Y=$P(X,U,3) W:Y]"" $J(Y,9,0)
37 D N:$X>102 Q:'DN W ?102 S Y=$P(X,U,4) W:Y]"" $J(Y,9,0)
38 D N:$X>116 Q:'DN W ?116 S Y=$P(X,U,5) W:Y]"" $J(Y,9,0)
39 Q
40D1R ;
41 D T Q:'DN D N D N:$X>39 Q:'DN W ?39 W "29.-30. NSF & GSF TOTALS: "
42 D N:$X>69 Q:'DN W ?69 X DXS(11,9) K DIP K:DN Y W $J(X,9)
43 D N:$X>83 Q:'DN W ?83 X DXS(12,9) K DIP K:DN Y W $J(X,9)
44 D N:$X>102 Q:'DN W ?102 X DXS(13,9) K DIP K:DN Y W $J(X,9)
45 D N:$X>116 Q:'DN W ?116 X DXS(14,9) K DIP K:DN Y W $J(X,9)
46 D T Q:'DN D N D N:$X>0 Q:'DN W ?0 W "31.-39. (ISSUES) SITE: "
47 S X=$G(^ENG("PROJ",D0,29)) W ?0,$E($P(X,U,1),1,90)
48 D N:$X>0 Q:'DN W ?0 W ?11 W "HISTORICAL: "
49 W ?0,$E($P(X,U,2),1,90)
50 D N:$X>0 Q:'DN W ?0 W ?8 W "ENVIRONMENTAL: "
51 S X=$G(^ENG("PROJ",D0,32)) W ?0,$E($P(X,U,2),1,90)
52 D N:$X>0 Q:'DN W ?0 W ?14 W "SEISMIC: "
53 S X=$G(^ENG("PROJ",D0,30)) W ?0,$E($P(X,U,1),1,90)
54 D N:$X>0 Q:'DN W ?0 W ?5 W "HAZARDOUS MAT'LS: "
55 W ?0,$E($P(X,U,2),1,90)
56 D N:$X>0 Q:'DN W ?0 W ?12 W "TRANSPORT: "
57 S X=$G(^ENG("PROJ",D0,31)) W ?0,$E($P(X,U,1),1,90)
58 D N:$X>0 Q:'DN W ?0 W ?14 W "PARKING: "
59 W ?0,$E($P(X,U,2),1,90)
60 D N:$X>0 Q:'DN W ?0 W ?15 W "IMPACT: "
61 W ?25 W "Information (if any) moved to Impact Justification on page 3."
62 F Y=0:0 Q:$Y>(IOSL-6) W !
63 D N:$X>0 Q:'DN W ?0 W "VAF 10-1193 REVISED 5/95 p.1"
64 K Y K DIWF
65 Q
66HEAD ;
67 W !,"------------------------------------------------------------------------------------------------------------------------------------",!!
Note: See TracBrowser for help on using the repository browser.