ENPLSV3 ;WISC/SAB-PROJECT COMMUNICATION SERVER (CONTINUED) ;5/16/95
;;7.0;ENGINEERING;**11,23**;Aug 17, 1993
BATH ;
Q
BCON ;
; message
S X=$E(ENPDA1,5,6)_"/"_$E(ENPDA1,7,8)
S X=X_" "_$E(ENPTI1,1,2)_":"_$E(ENPTI1,3,4)
S X=X_" "_$E(ENPDA2,5,6)_"/"_$E(ENPDA2,7,8)
S X=X_" "_$E(ENPTI2,1,2)_":"_$E(ENPTI2,3,4)
S X=X_" "_ENPNBR_$E(ENBLANK,1,11-$L(ENPNBR))_$S(ENDA>0:" ",1:"? ")
S X=X_ENPACT_$E(ENBLANK,1,9-$L(ENPACT))
S X=X_$E(ENPTTL,1,30)
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
; log
I ENDA>0 D
.K X S X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)
.S X(1)=X(1)_" "_ENSCODE_" Region "_ENPACT_$E(ENBLANK,1,8-$L(ENPACT))
.S X(1)=X(1)_"proj. transmitted at "
.S X(1)=X(1)_$$FDT^ENPLUTL(ENPDA2-17000000_"."_ENPTI2)
.D POSTCL^ENPLUTL(ENDA,"X") K X
Q
BNVI ;
; message
S X=ENSTEXT_" "_ENPNBR_" "_ENPTTL
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
S X="has been set 'Non-Viable' 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="with the following comments."
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_") Set Non-Viable Project:"
.D POSTCL^ENPLUTL(ENDA,"X") K X
.S DIE="^ENG(""PROJ"",",DA=ENDA,DR=ENSFIELD_"///NON-VIABLE"
.D ^DIE K DIE
Q
BRET ;
; message
S X=ENSTEXT_" "_ENPNBR_" "_ENPTTL
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
S X="has been 'Returned to Site' 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="with the following comments. Please make appropriate changes"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
S X="and re-transmit the project to the Regional Construction Database."
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_") Returned Project to Site:"
.D POSTCL^ENPLUTL(ENDA,"X") K X
.S DIE="^ENG(""PROJ"",",DA=ENDA,DR=ENSFIELD_"///RETURNED TO SITE"
.D ^DIE K DIE
Q
BDIS ;
; message
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
S X=ENPNBR_$E(ENBLANK,1,11-$L(ENPNBR))_$S(ENDA>0:" ",1:"? ")
S X=X_$E(ENPDA1,5,6)_"/"_$E(ENPDA1,7,8)
S X=X_" "_$E(ENPTI1,1,2)_":"_$E(ENPTI1,3,4)
S X=X_" "_ENPREV
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
S X=$E(ENBLANK,1,13)_ENPTTL
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
I ENDA>0 D
.K X S X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)_" "
.S X(1)=X(1)_ENSCODE_" Region ("_ENPREV_") Disapproved Project:"
.D POSTCL^ENPLUTL(ENDA,"X") K X
Q
BSUM ;
I ENDA'>0 D
.S X="**WARNING: Project "_ENPNBR_" 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 Summary has Project = "_ENPSTA
.D POSTCL^ENPLUTL(ENDA,"X") K X
.I $E(ENCCODE)="F" D
..S DIE="^ENG(""PROJ"",",DA=ENDA,DR=ENSFIELD_"///"_ENPSTA
..I ENPSTA="DISAPPROVED" D
...S X="Project "_ENPNBR_" disapproved so status changed to CANCELED."
...S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
...S DR=DR_";6///CANCELED"
..D ^DIE K DIE
Q
;ENPLSV3
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPLSV3 3786 printed Apr 09, 2024@20:57 Page 2
ENPLSV3 ;WISC/SAB-PROJECT COMMUNICATION SERVER (CONTINUED) ;5/16/95
+1 ;;7.0;ENGINEERING;**11,23**;Aug 17, 1993
BATH ;
+1 QUIT
BCON ;
+1 ; message
+2 SET X=$EXTRACT(ENPDA1,5,6)_"/"_$EXTRACT(ENPDA1,7,8)
+3 SET X=X_" "_$EXTRACT(ENPTI1,1,2)_":"_$EXTRACT(ENPTI1,3,4)
+4 SET X=X_" "_$EXTRACT(ENPDA2,5,6)_"/"_$EXTRACT(ENPDA2,7,8)
+5 SET X=X_" "_$EXTRACT(ENPTI2,1,2)_":"_$EXTRACT(ENPTI2,3,4)
+6 SET X=X_" "_ENPNBR_$EXTRACT(ENBLANK,1,11-$LENGTH(ENPNBR))_$SELECT(ENDA>0:" ",1:"? ")
+7 SET X=X_ENPACT_$EXTRACT(ENBLANK,1,9-$LENGTH(ENPACT))
+8 SET X=X_$EXTRACT(ENPTTL,1,30)
+9 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+10 ; log
+11 IF ENDA>0
Begin DoDot:1
+12 KILL X
SET X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)
+13 SET X(1)=X(1)_" "_ENSCODE_" Region "_ENPACT_$EXTRACT(ENBLANK,1,8-$LENGTH(ENPACT))
+14 SET X(1)=X(1)_"proj. transmitted at "
+15 SET X(1)=X(1)_$$FDT^ENPLUTL(ENPDA2-17000000_"."_ENPTI2)
+16 DO POSTCL^ENPLUTL(ENDA,"X")
KILL X
End DoDot:1
+17 QUIT
BNVI ;
+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 set 'Non-Viable' 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="with the following comments."
+9 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+10 SET X=" "
+11 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+12 IF ENDA'>0
Begin DoDot:1
+13 SET X="**WARNING: Project with this number not found on your system.**"
+14 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
End DoDot:1
+15 ; log, status
+16 IF ENDA>0
Begin DoDot:1
+17 KILL X
SET X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)
+18 SET X(1)=X(1)_" "_ENSCODE_" Region ("_ENPREV_") Set Non-Viable Project:"
+19 DO POSTCL^ENPLUTL(ENDA,"X")
KILL X
+20 SET DIE="^ENG(""PROJ"","
SET DA=ENDA
SET DR=ENSFIELD_"///NON-VIABLE"
+21 DO ^DIE
KILL DIE
End DoDot:1
+22 QUIT
BRET ;
+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 'Returned to Site' 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="with the following comments. Please make appropriate changes"
+9 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+10 SET X="and re-transmit the project to the Regional Construction Database."
+11 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+12 SET X=" "
+13 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+14 IF ENDA'>0
Begin DoDot:1
+15 SET X="**WARNING: Project with this number not found on your system.**"
+16 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
End DoDot:1
+17 ; log, status
+18 IF ENDA>0
Begin DoDot:1
+19 KILL X
SET X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)_" "
+20 SET X(1)=X(1)_ENSCODE_" Region ("_ENPREV_") Returned Project to Site:"
+21 DO POSTCL^ENPLUTL(ENDA,"X")
KILL X
+22 SET DIE="^ENG(""PROJ"","
SET DA=ENDA
SET DR=ENSFIELD_"///RETURNED TO SITE"
+23 DO ^DIE
KILL DIE
End DoDot:1
+24 QUIT
BDIS ;
+1 ; message
+2 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=" "
+3 SET X=ENPNBR_$EXTRACT(ENBLANK,1,11-$LENGTH(ENPNBR))_$SELECT(ENDA>0:" ",1:"? ")
+4 SET X=X_$EXTRACT(ENPDA1,5,6)_"/"_$EXTRACT(ENPDA1,7,8)
+5 SET X=X_" "_$EXTRACT(ENPTI1,1,2)_":"_$EXTRACT(ENPTI1,3,4)
+6 SET X=X_" "_ENPREV
+7 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+8 SET X=$EXTRACT(ENBLANK,1,13)_ENPTTL
+9 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+10 IF ENDA'>0
Begin DoDot:1
+11 SET X="**WARNING: Project with this number not found on your system.**"
+12 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
End DoDot:1
+13 ; log
+14 IF ENDA>0
Begin DoDot:1
+15 KILL X
SET X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)_" "
+16 SET X(1)=X(1)_ENSCODE_" Region ("_ENPREV_") Disapproved Project:"
+17 DO POSTCL^ENPLUTL(ENDA,"X")
KILL X
End DoDot:1
+18 QUIT
BSUM ;
+1 IF ENDA'>0
Begin DoDot:1
+2 SET X="**WARNING: Project "_ENPNBR_" not found on your system.**"
+3 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
End DoDot:1
+4 ; log, status
+5 IF ENDA>0
Begin DoDot:1
+6 KILL X
SET X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)_" "
+7 SET X(1)=X(1)_ENSCODE_" Region Summary has Project = "_ENPSTA
+8 DO POSTCL^ENPLUTL(ENDA,"X")
KILL X
+9 IF $EXTRACT(ENCCODE)="F"
Begin DoDot:2
+10 SET DIE="^ENG(""PROJ"","
SET DA=ENDA
SET DR=ENSFIELD_"///"_ENPSTA
+11 IF ENPSTA="DISAPPROVED"
Begin DoDot:3
+12 SET X="Project "_ENPNBR_" disapproved so status changed to CANCELED."
+13 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+14 SET DR=DR_";6///CANCELED"
End DoDot:3
+15 DO ^DIE
KILL DIE
End DoDot:2
End DoDot:1
+16 QUIT
+17 ;ENPLSV3
