source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPLSV4.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.6 KB
RevLine 
[613]1ENPLSV4 ;WISC/SAB-PROJECT COMMUNICATION SERVER (CONTINUED) ;5/16/95
2 ;;7.0;ENGINEERING;**11,23**;Aug 17, 1993
3DATH ;
4 ; message
5 S X=ENSTEXT_" "_ENPNBR_" "_ENPTTL
6 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
7 S X="has been 'Authorized' by "_ENPREV_" on "
8 S X=X_$E(ENPDA1,5,6)_"/"_$E(ENPDA1,7,8)
9 S X=X_" "_$E(ENPTI1,1,2)_":"_$E(ENPTI1,3,4)
10 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
11 S X=" "
12 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
13 S X="The CONSTRUCTION PROJECT file will automatically be updated"
14 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
15 S X="with the following information."
16 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
17 S X=" "
18 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
19 S X="STATUS AUTHORIZED"
20 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
21 S X="MONTHLY UPDATES YES"
22 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
23 S X=" "
24 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
25 S Y=$P(ENREC,U,2) I Y]"" D
26 .S X="Approved A/E Funding $"_$J(Y,7)
27 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
28 S Y=$P(ENREC,U,3) I Y]"" D
29 .S X="Approved Construction $"_$J(Y,7)
30 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
31 S X=" "
32 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
33 S Y=$P(ENREC,U,4) I Y]"" D
34 .S X="Design Program Start (Planned) "_$E(Y,5,6)_"-"_$E(Y,7,8)_"-"_$E(Y,3,4)
35 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
36 S Y=$P(ENREC,U,5) I Y]"" D
37 .S X="Auth Letter Received (Actual) "_$E(Y,5,6)_"-"_$E(Y,7,8)_"-"_$E(Y,3,4)
38 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
39 S Y=$P(ENREC,U,6) I Y]"" D
40 .S X="A/E Award (Planned) "_$E(Y,5,6)_"-"_$E(Y,7,8)_"-"_$E(Y,3,4)
41 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
42 S Y=$P(ENREC,U,7) I Y]"" D
43 .S X="Start Schematics (Planned) "_$E(Y,5,6)_"-"_$E(Y,7,8)_"-"_$E(Y,3,4)
44 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
45 S Y=$P(ENREC,U,8) I Y]"" D
46 .S X="Start DD (Planned) "_$E(Y,5,6)_"-"_$E(Y,7,8)_"-"_$E(Y,3,4)
47 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
48 S Y=$P(ENREC,U,9) I Y]"" D
49 .S X="Start CD (Planned) "_$E(Y,5,6)_"-"_$E(Y,7,8)_"-"_$E(Y,3,4)
50 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
51 S Y=$P(ENREC,U,10) I Y]"" D
52 .S X="Issue IFB (Planned) "_$E(Y,5,6)_"-"_$E(Y,7,8)_"-"_$E(Y,3,4)
53 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
54 S Y=$P(ENREC,U,11) I Y]"" D
55 .S X="Bid Open (Planned) "_$E(Y,5,6)_"-"_$E(Y,7,8)_"-"_$E(Y,3,4)
56 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
57 S Y=$P(ENREC,U,12) I Y]"" D
58 .S X="Construction Award (Planned) "_$E(Y,5,6)_"-"_$E(Y,7,8)_"-"_$E(Y,3,4)
59 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
60 S X=" "
61 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
62 I ENDA'>0 D
63 .S X="**WARNING: Project with this number not found on your system.**"
64 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
65 ; log, status
66 I ENDA>0 D
67 .K X S X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)_" "
68 .S X(1)=X(1)_ENSCODE_" Region ("_ENPREV_") Authorized Project"
69 .D POSTCL^ENPLUTL(ENDA,"X") K X
70 .S DIE="^ENG(""PROJ"",",DA=ENDA
71 .S DR="6///AUTHORIZED;2.5///YES" D ^DIE
72 .S DR=ENSFIELD_"///AUTHORIZED" D ^DIE
73 .I $P(ENREC,U,2)]"" S DR="5///"_$P(ENREC,U,2) D ^DIE
74 .I $P(ENREC,U,3)]"" S DR="4///"_$P(ENREC,U,3) D ^DIE
75 .I $P(ENREC,U,4)]"" S DR="20////"_($P(ENREC,U,4)-17000000) D ^DIE
76 .I $P(ENREC,U,5)]"" S DR="50////"_($P(ENREC,U,5)-17000000) D ^DIE
77 .I $P(ENREC,U,6)]"" S DR="20.5////"_($P(ENREC,U,6)-17000000) D ^DIE
78 .I $P(ENREC,U,7)]"" S DR="21////"_($P(ENREC,U,7)-17000000) D ^DIE
79 .I $P(ENREC,U,8)]"" S DR="22.5////"_($P(ENREC,U,8)-17000000) D ^DIE
80 .I $P(ENREC,U,9)]"" S DR="23////"_($P(ENREC,U,9)-17000000) D ^DIE
81 .I $P(ENREC,U,10)]"" S DR="25////"_($P(ENREC,U,10)-17000000) D ^DIE
82 .I $P(ENREC,U,11)]"" S DR="26////"_($P(ENREC,U,11)-17000000) D ^DIE
83 .I $P(ENREC,U,12)]"" S DR="27////"_($P(ENREC,U,12)-17000000) D ^DIE
84 .K DIE
85 Q
86 ;ENPLSV4
Note: See TracBrowser for help on using the repository browser.