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