ENPLSV1 ;WISC/SAB-PROJECT COMMUNICATION SERVER (CONTINUED) ;6/15/94
;;7.0;ENGINEERING;**11**;Aug 17, 1993
CM ; Create Mail Message
S ENL=0
D @("CM"_ENCTYPE)
Q
CMATH ;
S XMSUB=ENSTEXT_" "_ENPNBR_" Authorized"
D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
S ENJ="" F S ENJ=$O(^TMP($J,"ENCC",ENJ)) Q:'ENJ S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=^TMP($J,"ENCC",ENJ)
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
Q
CMCON ;
S XMSUB=ENSTEXT_" Confirmation "_$E(ENCDATE,5,6)_"/"_$E(ENCDATE,7,8)
D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
S X="The following "_ENSTEXT_"(s) transmitted from the site"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
F S X=$P($T(CMCONT+ENL),";;",2) Q:X="$EX" S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
Q
CMCONT ;;
;;
;;
;;have been received by the Regional Construction Database.
;;
;;The Action Taken column indicates what action was taken with the
;;transmitted project. ADDED means that the transmitted project was
;;added to the database. UPDATED means that existing project data was
;;replaced by the transmitted project. IGNORED means that the
;;transmitted project was ignored because it would be inappropriate
;;to modify the Regional Construction Database with this data for the
;;reason listed. For example; an existing project which is currently
;;'region approved' can not be modified so a new transmission of this
;;project must be ignored.
;;
;;Note: '?' after a project # indicates it was not found on your system.
;;
;;
;;Region Site Project Action
;;Processed Transmitted # Taken Title / (Comments)
;;----------- ----------- ----------- ------- ------------------------------
;;$EX
CMDIS ;
S XMSUB=ENSTEXT_" Disapproved "_$E(ENCDATE,5,6)_"/"_$E(ENCDATE,7,8)
D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
S X="The following "_ENSTEXT_"(s) have been disapproved"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
F S X=$P($T(CMDIST+ENL),";;",2) Q:X="$EX" S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
Q
CMDIST ;;
;;
;;
;;
;;
;;Project # Date Disapproved Reviewer
;;----------- ---------------- ------------------------------
;;$EX
CMNVI ;
S XMSUB=ENSTEXT_" "_ENPNBR_" Non-Viable"
D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
Q
CMRET ;
S XMSUB=ENSTEXT_" "_ENPNBR_" Returned"
D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
Q
CMSUM ;
S XMSUB=ENSTEXT_" Summary "_($E(ENCDATE,1,4)+1)
D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
S ENJ="" F S ENJ=$O(^TMP($J,"ENCC",ENJ)) Q:'ENJ S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=^TMP($J,"ENCC",ENJ)
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
Q
;ENPLSV1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPLSV1 3156 printed Nov 22, 2024@17:05:11 Page 2
ENPLSV1 ;WISC/SAB-PROJECT COMMUNICATION SERVER (CONTINUED) ;6/15/94
+1 ;;7.0;ENGINEERING;**11**;Aug 17, 1993
CM ; Create Mail Message
+1 SET ENL=0
+2 DO @("CM"_ENCTYPE)
+3 QUIT
CMATH ;
+1 SET XMSUB=ENSTEXT_" "_ENPNBR_" Authorized"
+2 DO XMZ^XMA2
IF XMZ<1
SET ENABORT=1
QUIT
+3 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
+4 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=" "
+5 SET ENJ=""
FOR
SET ENJ=$ORDER(^TMP($JOB,"ENCC",ENJ))
if 'ENJ
QUIT
SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=^TMP($JOB,"ENCC",ENJ)
+6 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=" "
+7 QUIT
CMCON ;
+1 SET XMSUB=ENSTEXT_" Confirmation "_$EXTRACT(ENCDATE,5,6)_"/"_$EXTRACT(ENCDATE,7,8)
+2 DO XMZ^XMA2
IF XMZ<1
SET ENABORT=1
QUIT
+3 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
+4 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=" "
+5 SET X="The following "_ENSTEXT_"(s) transmitted from the site"
+6 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+7 FOR
SET X=$PIECE($TEXT(CMCONT+ENL),";;",2)
if X="$EX"
QUIT
SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+8 QUIT
CMCONT ;;
+1 ;;
+2 ;;
+3 ;;have been received by the Regional Construction Database.
+4 ;;
+5 ;;The Action Taken column indicates what action was taken with the
+6 ;;transmitted project. ADDED means that the transmitted project was
+7 ;;added to the database. UPDATED means that existing project data was
+8 ;;replaced by the transmitted project. IGNORED means that the
+9 ;;transmitted project was ignored because it would be inappropriate
+10 ;;to modify the Regional Construction Database with this data for the
+11 ;;reason listed. For example; an existing project which is currently
+12 ;;'region approved' can not be modified so a new transmission of this
+13 ;;project must be ignored.
+14 ;;
+15 ;;Note: '?' after a project # indicates it was not found on your system.
+16 ;;
+17 ;;
+18 ;;Region Site Project Action
+19 ;;Processed Transmitted # Taken Title / (Comments)
+20 ;;----------- ----------- ----------- ------- ------------------------------
+21 ;;$EX
CMDIS ;
+1 SET XMSUB=ENSTEXT_" Disapproved "_$EXTRACT(ENCDATE,5,6)_"/"_$EXTRACT(ENCDATE,7,8)
+2 DO XMZ^XMA2
IF XMZ<1
SET ENABORT=1
QUIT
+3 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
+4 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=" "
+5 SET X="The following "_ENSTEXT_"(s) have been disapproved"
+6 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+7 FOR
SET X=$PIECE($TEXT(CMDIST+ENL),";;",2)
if X="$EX"
QUIT
SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=X
+8 QUIT
CMDIST ;;
+1 ;;
+2 ;;
+3 ;;
+4 ;;
+5 ;;Project # Date Disapproved Reviewer
+6 ;;----------- ---------------- ------------------------------
+7 ;;$EX
CMNVI ;
+1 SET XMSUB=ENSTEXT_" "_ENPNBR_" Non-Viable"
+2 DO XMZ^XMA2
IF XMZ<1
SET ENABORT=1
QUIT
+3 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
+4 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=" "
+5 QUIT
CMRET ;
+1 SET XMSUB=ENSTEXT_" "_ENPNBR_" Returned"
+2 DO XMZ^XMA2
IF XMZ<1
SET ENABORT=1
QUIT
+3 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
+4 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=" "
+5 QUIT
CMSUM ;
+1 SET XMSUB=ENSTEXT_" Summary "_($EXTRACT(ENCDATE,1,4)+1)
+2 DO XMZ^XMA2
IF XMZ<1
SET ENABORT=1
QUIT
+3 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
+4 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=" "
+5 SET ENJ=""
FOR
SET ENJ=$ORDER(^TMP($JOB,"ENCC",ENJ))
if 'ENJ
QUIT
SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=^TMP($JOB,"ENCC",ENJ)
+6 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=" "
+7 QUIT
+8 ;ENPLSV1
