source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPLSV1.m@ 1361

Last change on this file since 1361 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 3.0 KB
RevLine 
[613]1ENPLSV1 ;WISC/SAB-PROJECT COMMUNICATION SERVER (CONTINUED) ;6/15/94
2 ;;7.0;ENGINEERING;**11**;Aug 17, 1993
3CM ; Create Mail Message
4 S ENL=0
5 D @("CM"_ENCTYPE)
6 Q
7CMATH ;
8 S XMSUB=ENSTEXT_" "_ENPNBR_" Authorized"
9 D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
10 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
11 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
12 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)
13 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
14 Q
15CMCON ;
16 S XMSUB=ENSTEXT_" Confirmation "_$E(ENCDATE,5,6)_"/"_$E(ENCDATE,7,8)
17 D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
18 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
19 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
20 S X="The following "_ENSTEXT_"(s) transmitted from the site"
21 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
22 F S X=$P($T(CMCONT+ENL),";;",2) Q:X="$EX" S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
23 Q
24CMCONT ;;
25 ;;
26 ;;
27 ;;have been received by the Regional Construction Database.
28 ;;
29 ;;The Action Taken column indicates what action was taken with the
30 ;;transmitted project. ADDED means that the transmitted project was
31 ;;added to the database. UPDATED means that existing project data was
32 ;;replaced by the transmitted project. IGNORED means that the
33 ;;transmitted project was ignored because it would be inappropriate
34 ;;to modify the Regional Construction Database with this data for the
35 ;;reason listed. For example; an existing project which is currently
36 ;;'region approved' can not be modified so a new transmission of this
37 ;;project must be ignored.
38 ;;
39 ;;Note: '?' after a project # indicates it was not found on your system.
40 ;;
41 ;;
42 ;;Region Site Project Action
43 ;;Processed Transmitted # Taken Title / (Comments)
44 ;;----------- ----------- ----------- ------- ------------------------------
45 ;;$EX
46CMDIS ;
47 S XMSUB=ENSTEXT_" Disapproved "_$E(ENCDATE,5,6)_"/"_$E(ENCDATE,7,8)
48 D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
49 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
50 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
51 S X="The following "_ENSTEXT_"(s) have been disapproved"
52 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
53 F S X=$P($T(CMDIST+ENL),";;",2) Q:X="$EX" S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
54 Q
55CMDIST ;;
56 ;;
57 ;;
58 ;;
59 ;;
60 ;;Project # Date Disapproved Reviewer
61 ;;----------- ---------------- ------------------------------
62 ;;$EX
63CMNVI ;
64 S XMSUB=ENSTEXT_" "_ENPNBR_" Non-Viable"
65 D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
66 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
67 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
68 Q
69CMRET ;
70 S XMSUB=ENSTEXT_" "_ENPNBR_" Returned"
71 D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
72 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
73 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
74 Q
75CMSUM ;
76 S XMSUB=ENSTEXT_" Summary "_($E(ENCDATE,1,4)+1)
77 D XMZ^XMA2 I XMZ<1 S ENABORT=1 Q
78 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="To: G.EN PROJECTS"
79 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
80 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)
81 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
82 Q
83 ;ENPLSV1
Note: See TracBrowser for help on using the repository browser.