source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPLSV3.m@ 1742

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

initial load of WorldVistAEHR
File size: 3.6 KB
Line 
1ENPLSV3 ;WISC/SAB-PROJECT COMMUNICATION SERVER (CONTINUED) ;5/16/95
2 ;;7.0;ENGINEERING;**11,23**;Aug 17, 1993
3BATH ;
4 Q
5BCON ;
6 ; message
7 S X=$E(ENPDA1,5,6)_"/"_$E(ENPDA1,7,8)
8 S X=X_" "_$E(ENPTI1,1,2)_":"_$E(ENPTI1,3,4)
9 S X=X_" "_$E(ENPDA2,5,6)_"/"_$E(ENPDA2,7,8)
10 S X=X_" "_$E(ENPTI2,1,2)_":"_$E(ENPTI2,3,4)
11 S X=X_" "_ENPNBR_$E(ENBLANK,1,11-$L(ENPNBR))_$S(ENDA>0:" ",1:"? ")
12 S X=X_ENPACT_$E(ENBLANK,1,9-$L(ENPACT))
13 S X=X_$E(ENPTTL,1,30)
14 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
15 ; log
16 I ENDA>0 D
17 .K X S X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)
18 .S X(1)=X(1)_" "_ENSCODE_" Region "_ENPACT_$E(ENBLANK,1,8-$L(ENPACT))
19 .S X(1)=X(1)_"proj. transmitted at "
20 .S X(1)=X(1)_$$FDT^ENPLUTL(ENPDA2-17000000_"."_ENPTI2)
21 .D POSTCL^ENPLUTL(ENDA,"X") K X
22 Q
23BNVI ;
24 ; message
25 S X=ENSTEXT_" "_ENPNBR_" "_ENPTTL
26 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
27 S X="has been set 'Non-Viable' by "_ENPREV_" on "
28 S X=X_$E(ENPDA1,5,6)_"/"_$E(ENPDA1,7,8)
29 S X=X_" "_$E(ENPTI1,1,2)_":"_$E(ENPTI1,3,4)
30 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
31 S X="with the following comments."
32 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
33 S X=" "
34 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
35 I ENDA'>0 D
36 .S X="**WARNING: Project with this number not found on your system.**"
37 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
38 ; log, status
39 I ENDA>0 D
40 .K X S X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)
41 .S X(1)=X(1)_" "_ENSCODE_" Region ("_ENPREV_") Set Non-Viable Project:"
42 .D POSTCL^ENPLUTL(ENDA,"X") K X
43 .S DIE="^ENG(""PROJ"",",DA=ENDA,DR=ENSFIELD_"///NON-VIABLE"
44 .D ^DIE K DIE
45 Q
46BRET ;
47 ; message
48 S X=ENSTEXT_" "_ENPNBR_" "_ENPTTL
49 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
50 S X="has been 'Returned to Site' by "_ENPREV_" on "
51 S X=X_$E(ENPDA1,5,6)_"/"_$E(ENPDA1,7,8)
52 S X=X_" "_$E(ENPTI1,1,2)_":"_$E(ENPTI1,3,4)
53 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
54 S X="with the following comments. Please make appropriate changes"
55 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
56 S X="and re-transmit the project to the Regional Construction Database."
57 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
58 S X=" "
59 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
60 I ENDA'>0 D
61 .S X="**WARNING: Project with this number not found on your system.**"
62 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
63 ; log, status
64 I ENDA>0 D
65 .K X S X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)_" "
66 .S X(1)=X(1)_ENSCODE_" Region ("_ENPREV_") Returned Project to Site:"
67 .D POSTCL^ENPLUTL(ENDA,"X") K X
68 .S DIE="^ENG(""PROJ"",",DA=ENDA,DR=ENSFIELD_"///RETURNED TO SITE"
69 .D ^DIE K DIE
70 Q
71BDIS ;
72 ; message
73 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=" "
74 S X=ENPNBR_$E(ENBLANK,1,11-$L(ENPNBR))_$S(ENDA>0:" ",1:"? ")
75 S X=X_$E(ENPDA1,5,6)_"/"_$E(ENPDA1,7,8)
76 S X=X_" "_$E(ENPTI1,1,2)_":"_$E(ENPTI1,3,4)
77 S X=X_" "_ENPREV
78 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
79 S X=$E(ENBLANK,1,13)_ENPTTL
80 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
81 I ENDA'>0 D
82 .S X="**WARNING: Project with this number not found on your system.**"
83 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
84 ; log
85 I ENDA>0 D
86 .K X S X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)_" "
87 .S X(1)=X(1)_ENSCODE_" Region ("_ENPREV_") Disapproved Project:"
88 .D POSTCL^ENPLUTL(ENDA,"X") K X
89 Q
90BSUM ;
91 I ENDA'>0 D
92 .S X="**WARNING: Project "_ENPNBR_" not found on your system.**"
93 .S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
94 ; log, status
95 I ENDA>0 D
96 .K X S X(1)=$$FDT^ENPLUTL(ENPDA1-17000000_"."_ENPTI1)_" "
97 .S X(1)=X(1)_ENSCODE_" Region Summary has Project = "_ENPSTA
98 .D POSTCL^ENPLUTL(ENDA,"X") K X
99 .I $E(ENCCODE)="F" D
100 ..S DIE="^ENG(""PROJ"",",DA=ENDA,DR=ENSFIELD_"///"_ENPSTA
101 ..I ENPSTA="DISAPPROVED" D
102 ...S X="Project "_ENPNBR_" disapproved so status changed to CANCELED."
103 ...S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=X
104 ...S DR=DR_";6///CANCELED"
105 ..D ^DIE K DIE
106 Q
107 ;ENPLSV3
Note: See TracBrowser for help on using the repository browser.