source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPLX3.m@ 1780

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

initial load of WorldVistAEHR

File size: 3.5 KB
Line 
1ENPLX3 ;WISC/SAB-XMIT SEGMENTS FOR APPLICATION (cont) ;4/28/97
2 ;;7.0;ENGINEERING;**23,28**;Aug 17, 1993
3EN ; entry from ENPLX2
4I ; (word processing on application)
5 F ENFLD=192.6,277,278,282 D WP^ENPLX2
6J ; seg J
7 S ENX="J^"_$P(ENY15,U,2)_U_""_U_$$GET1^DIQ(6925,ENDA_",",179)
8 S ENX=ENX_U_""_U_$P(ENY15,U,6)
9 S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",182)_U_$P(ENY15,U,9)
10 S ENX=ENX_U_""_"^|"
11 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
12K ; seg K
13 S ENY18=$G(^ENG("PROJ",ENDA,18))
14 S ENX="K^"_$P(ENY15,U,11)_U_$P(ENY15,U,12)_U_$P(ENY15,U,13)
15 S ENX=ENX_U_$P(ENY15,U,14)_U_""_U_$P(ENY15,U,18)
16 S ENX=ENX_U_$P(ENY18,U)_U_$$GET1^DIQ(6925,ENDA_",",264)
17 S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",265)_U_$P(ENY18,U,4)
18 S ENX=ENX_U_$P($G(^ENG("PROJ",ENDA,52)),U,7)
19 S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",158.7)_"^|"
20 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
21 K ENY18
22L ; seg L
23 S ENY19=$G(^ENG("PROJ",ENDA,19))
24 S ENX="L^"_$P(ENY19,U)_U_$P(ENY19,U,2)_U_$P(ENY19,U,3)_U_$P(ENY19,U,4)
25 S ENX=ENX_U_$P(ENY19,U,5)_U_$P(ENY19,U,6)_U_$P(ENY19,U,7)
26 S ENX=ENX_U_$P(ENY19,U,8)_U_U_U_U_$P(ENY19,U,12)_"^|"
27 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
28 K ENY19
29M ; seg M (H089 Chapters)
30 S ENI=0 F ENT=0:1 S ENI=$O(^ENG("PROJ",ENDA,22,ENI)) Q:'ENI
31 I ENT S ENI=0 F ENC=1:1 S ENI=$O(^ENG("PROJ",ENDA,22,ENI)) Q:'ENI D
32 . S ENY=$G(^ENG("PROJ",ENDA,22,ENI,0)) Q:ENY=""
33 . S ENX="M^"_ENC_U_ENT_U_$$GET1^DIQ(6925.03,ENI_","_ENDA_",",.01)
34 . S ENX=ENX_U_$P(ENY,U,2)_U_$P(ENY,U,3)_U_$P(ENY,U,4)_U_$P(ENY,U,5)_"^|"
35 . S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
36N ; seg N
37 F ENFLD=237,238,239,240,241,242,238.5,195.1,196.1,197.1,198.1,199.1,200.1,201.1,202.1,203.1,204.1,205.1,206.1,207.1,208.1 S ENY=$$GET1^DIQ(6925,ENDA_",",ENFLD) S:ENY]"" ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)="N^"_ENFLD_U_ENY_"^|"
38O ; seg O (buildings)
39 D BLDG
40P ; seg P (dependent projects)
41 D DEPEND
42Q ; seg Q
43 S ENY33=$G(^ENG("PROJ",ENDA,33))
44 S ENX="Q^"_$$GET1^DIQ(6925,ENDA_",",245)
45 S ENX=ENX_U_$S($P(ENY33,U,3)]"":$P(ENY33,U,3)+17000000\1,1:"")
46 S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",248)
47 S ENX=ENX_U_$S($P(ENY33,U,6)]"":$P(ENY33,U,6)+17000000\1,1:"")
48 S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
49 K ENY33
50R ; seg R
51 S ENY16=$G(^ENG("PROJ",ENDA,16))
52 I $P($G(^ENG("PROJ",ENDA,15)),U,12)="Y",ENY16]"" D
53 . S ENX="R^"_$P(ENY16,U)_U_$P(ENY16,U,2)
54 . S ENX=ENX_U_$S($P(ENY16,U,3)]"":$P(ENY16,U,3)+17000000\1,1:"")
55 . S ENX=ENX_U_$P(ENY16,U,5)_U_$P(ENY16,U,6)_U_$P(ENY16,U,7)
56 . S ENX=ENX_U_$P(ENY16,U,8)_U_$P(ENY16,U,9)_U_$P(ENY16,U,10)
57 . S ENX=ENX_U_$P(ENY16,U,11)_U_$P(ENY16,U,12)_U_$P(ENY16,U,13)
58 . S ENX=ENX_U_$P(ENY16,U,14)_U_$P(ENY16,U,15)_U_$P(ENY16,U,16)
59 . S ENX=ENX_U_$P(ENY16,U,17)_U_$P(ENY16,U,18)_U_$P(ENY16,U,19)
60 . S ENX=ENX_U_$P(ENY16,U,20)_"^|"
61 . S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
62 K ENY16
63 ; end of application segments
64 Q
65BLDG ; seg O (buildings)
66 S ENI=0 F ENT=0:1 S ENI=$O(^ENG("PROJ",ENDA,34,ENI)) Q:'ENI
67 S ENX=""
68 I ENT S ENI=0 F ENC=1:1 S ENI=$O(^ENG("PROJ",ENDA,34,ENI)) Q:'ENI D
69 . S ENX=ENX_U_$$GET1^DIQ(6925.0177,ENI_","_ENDA_",",.01)
70 . I '(ENC#10)!(ENC=ENT) D
71 . . S ENX="O^"_(ENC+9\10)_U_(ENT+9\10)_ENX_$E("^^^^^^^^^^",1,11-$L(ENX,U))
72 . . S ENX=ENX_"^|"
73 . . S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
74 . . S ENX=""
75 Q
76DEPEND ; seg P (dependent projects)
77 S ENI=0 F ENT=0:1 S ENI=$O(^ENG("PROJ","AB",ENDA,ENI)) Q:'ENI
78 I ENT S ENI=0 F ENC=1:1 S ENI=$O(^ENG("PROJ","AB",ENDA,ENI)) Q:'ENI D
79 . S ENY=$G(^ENG("PROJ",ENI,0)) Q:ENY=""
80 . S ENX="P^"_ENC_U_ENT_U_$P(ENY,U)_U_$P(ENY,U,3)_U_$P(ENY,U,6)
81 . S ENX=ENX_U_$$GET1^DIQ(6925,ENI_",",6)_"^|"
82 . S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
83 Q
84 ;ENPLX3
Note: See TracBrowser for help on using the repository browser.