ENPLX3 ;WISC/SAB-XMIT SEGMENTS FOR APPLICATION (cont) ;4/28/97
;;7.0;ENGINEERING;**23,28**;Aug 17, 1993
EN ; entry from ENPLX2
I ; (word processing on application)
F ENFLD=192.6,277,278,282 D WP^ENPLX2
J ; seg J
S ENX="J^"_$P(ENY15,U,2)_U_""_U_$$GET1^DIQ(6925,ENDA_",",179)
S ENX=ENX_U_""_U_$P(ENY15,U,6)
S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",182)_U_$P(ENY15,U,9)
S ENX=ENX_U_""_"^|"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
K ; seg K
S ENY18=$G(^ENG("PROJ",ENDA,18))
S ENX="K^"_$P(ENY15,U,11)_U_$P(ENY15,U,12)_U_$P(ENY15,U,13)
S ENX=ENX_U_$P(ENY15,U,14)_U_""_U_$P(ENY15,U,18)
S ENX=ENX_U_$P(ENY18,U)_U_$$GET1^DIQ(6925,ENDA_",",264)
S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",265)_U_$P(ENY18,U,4)
S ENX=ENX_U_$P($G(^ENG("PROJ",ENDA,52)),U,7)
S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",158.7)_"^|"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
K ENY18
L ; seg L
S ENY19=$G(^ENG("PROJ",ENDA,19))
S ENX="L^"_$P(ENY19,U)_U_$P(ENY19,U,2)_U_$P(ENY19,U,3)_U_$P(ENY19,U,4)
S ENX=ENX_U_$P(ENY19,U,5)_U_$P(ENY19,U,6)_U_$P(ENY19,U,7)
S ENX=ENX_U_$P(ENY19,U,8)_U_U_U_U_$P(ENY19,U,12)_"^|"
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
K ENY19
M ; seg M (H089 Chapters)
S ENI=0 F ENT=0:1 S ENI=$O(^ENG("PROJ",ENDA,22,ENI)) Q:'ENI
I ENT S ENI=0 F ENC=1:1 S ENI=$O(^ENG("PROJ",ENDA,22,ENI)) Q:'ENI D
. S ENY=$G(^ENG("PROJ",ENDA,22,ENI,0)) Q:ENY=""
. S ENX="M^"_ENC_U_ENT_U_$$GET1^DIQ(6925.03,ENI_","_ENDA_",",.01)
. S ENX=ENX_U_$P(ENY,U,2)_U_$P(ENY,U,3)_U_$P(ENY,U,4)_U_$P(ENY,U,5)_"^|"
. S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
N ; seg N
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_"^|"
O ; seg O (buildings)
D BLDG
P ; seg P (dependent projects)
D DEPEND
Q ; seg Q
S ENY33=$G(^ENG("PROJ",ENDA,33))
S ENX="Q^"_$$GET1^DIQ(6925,ENDA_",",245)
S ENX=ENX_U_$S($P(ENY33,U,3)]"":$P(ENY33,U,3)+17000000\1,1:"")
S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",248)
S ENX=ENX_U_$S($P(ENY33,U,6)]"":$P(ENY33,U,6)+17000000\1,1:"")
S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
K ENY33
R ; seg R
S ENY16=$G(^ENG("PROJ",ENDA,16))
I $P($G(^ENG("PROJ",ENDA,15)),U,12)="Y",ENY16]"" D
. S ENX="R^"_$P(ENY16,U)_U_$P(ENY16,U,2)
. S ENX=ENX_U_$S($P(ENY16,U,3)]"":$P(ENY16,U,3)+17000000\1,1:"")
. S ENX=ENX_U_$P(ENY16,U,5)_U_$P(ENY16,U,6)_U_$P(ENY16,U,7)
. S ENX=ENX_U_$P(ENY16,U,8)_U_$P(ENY16,U,9)_U_$P(ENY16,U,10)
. S ENX=ENX_U_$P(ENY16,U,11)_U_$P(ENY16,U,12)_U_$P(ENY16,U,13)
. S ENX=ENX_U_$P(ENY16,U,14)_U_$P(ENY16,U,15)_U_$P(ENY16,U,16)
. S ENX=ENX_U_$P(ENY16,U,17)_U_$P(ENY16,U,18)_U_$P(ENY16,U,19)
. S ENX=ENX_U_$P(ENY16,U,20)_"^|"
. S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
K ENY16
; end of application segments
Q
BLDG ; seg O (buildings)
S ENI=0 F ENT=0:1 S ENI=$O(^ENG("PROJ",ENDA,34,ENI)) Q:'ENI
S ENX=""
I ENT S ENI=0 F ENC=1:1 S ENI=$O(^ENG("PROJ",ENDA,34,ENI)) Q:'ENI D
. S ENX=ENX_U_$$GET1^DIQ(6925.0177,ENI_","_ENDA_",",.01)
. I '(ENC#10)!(ENC=ENT) D
. . S ENX="O^"_(ENC+9\10)_U_(ENT+9\10)_ENX_$E("^^^^^^^^^^",1,11-$L(ENX,U))
. . S ENX=ENX_"^|"
. . S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
. . S ENX=""
Q
DEPEND ; seg P (dependent projects)
S ENI=0 F ENT=0:1 S ENI=$O(^ENG("PROJ","AB",ENDA,ENI)) Q:'ENI
I ENT S ENI=0 F ENC=1:1 S ENI=$O(^ENG("PROJ","AB",ENDA,ENI)) Q:'ENI D
. S ENY=$G(^ENG("PROJ",ENI,0)) Q:ENY=""
. S ENX="P^"_ENC_U_ENT_U_$P(ENY,U)_U_$P(ENY,U,3)_U_$P(ENY,U,6)
. S ENX=ENX_U_$$GET1^DIQ(6925,ENI_",",6)_"^|"
. S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
Q
;ENPLX3
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPLX3 3624 printed Apr 09, 2024@20:59:04 Page 2
ENPLX3 ;WISC/SAB-XMIT SEGMENTS FOR APPLICATION (cont) ;4/28/97
+1 ;;7.0;ENGINEERING;**23,28**;Aug 17, 1993
EN ; entry from ENPLX2
I ; (word processing on application)
+1 FOR ENFLD=192.6,277,278,282
DO WP^ENPLX2
J ; seg J
+1 SET ENX="J^"_$PIECE(ENY15,U,2)_U_""_U_$$GET1^DIQ(6925,ENDA_",",179)
+2 SET ENX=ENX_U_""_U_$PIECE(ENY15,U,6)
+3 SET ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",182)_U_$PIECE(ENY15,U,9)
+4 SET ENX=ENX_U_""_"^|"
+5 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=ENX
K ; seg K
+1 SET ENY18=$GET(^ENG("PROJ",ENDA,18))
+2 SET ENX="K^"_$PIECE(ENY15,U,11)_U_$PIECE(ENY15,U,12)_U_$PIECE(ENY15,U,13)
+3 SET ENX=ENX_U_$PIECE(ENY15,U,14)_U_""_U_$PIECE(ENY15,U,18)
+4 SET ENX=ENX_U_$PIECE(ENY18,U)_U_$$GET1^DIQ(6925,ENDA_",",264)
+5 SET ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",265)_U_$PIECE(ENY18,U,4)
+6 SET ENX=ENX_U_$PIECE($GET(^ENG("PROJ",ENDA,52)),U,7)
+7 SET ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",158.7)_"^|"
+8 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=ENX
+9 KILL ENY18
L ; seg L
+1 SET ENY19=$GET(^ENG("PROJ",ENDA,19))
+2 SET ENX="L^"_$PIECE(ENY19,U)_U_$PIECE(ENY19,U,2)_U_$PIECE(ENY19,U,3)_U_$PIECE(ENY19,U,4)
+3 SET ENX=ENX_U_$PIECE(ENY19,U,5)_U_$PIECE(ENY19,U,6)_U_$PIECE(ENY19,U,7)
+4 SET ENX=ENX_U_$PIECE(ENY19,U,8)_U_U_U_U_$PIECE(ENY19,U,12)_"^|"
+5 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=ENX
+6 KILL ENY19
M ; seg M (H089 Chapters)
+1 SET ENI=0
FOR ENT=0:1
SET ENI=$ORDER(^ENG("PROJ",ENDA,22,ENI))
if 'ENI
QUIT
+2 IF ENT
SET ENI=0
FOR ENC=1:1
SET ENI=$ORDER(^ENG("PROJ",ENDA,22,ENI))
if 'ENI
QUIT
Begin DoDot:1
+3 SET ENY=$GET(^ENG("PROJ",ENDA,22,ENI,0))
if ENY=""
QUIT
+4 SET ENX="M^"_ENC_U_ENT_U_$$GET1^DIQ(6925.03,ENI_","_ENDA_",",.01)
+5 SET ENX=ENX_U_$PIECE(ENY,U,2)_U_$PIECE(ENY,U,3)_U_$PIECE(ENY,U,4)_U_$PIECE(ENY,U,5)_"^|"
+6 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=ENX
End DoDot:1
N ; seg N
+1 FOR 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
SET ENY=$$GET1^DIQ(6925,ENDA_",",ENFLD)
if ENY]""
SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)="N^"_ENFLD_U_ENY_"^|"
O ; seg O (buildings)
+1 DO BLDG
P ; seg P (dependent projects)
+1 DO DEPEND
Q ; seg Q
+1 SET ENY33=$GET(^ENG("PROJ",ENDA,33))
+2 SET ENX="Q^"_$$GET1^DIQ(6925,ENDA_",",245)
+3 SET ENX=ENX_U_$SELECT($PIECE(ENY33,U,3)]"":$PIECE(ENY33,U,3)+17000000\1,1:"")
+4 SET ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",248)
+5 SET ENX=ENX_U_$SELECT($PIECE(ENY33,U,6)]"":$PIECE(ENY33,U,6)+17000000\1,1:"")
+6 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=ENX
+7 KILL ENY33
R ; seg R
+1 SET ENY16=$GET(^ENG("PROJ",ENDA,16))
+2 IF $PIECE($GET(^ENG("PROJ",ENDA,15)),U,12)="Y"
IF ENY16]""
Begin DoDot:1
+3 SET ENX="R^"_$PIECE(ENY16,U)_U_$PIECE(ENY16,U,2)
+4 SET ENX=ENX_U_$SELECT($PIECE(ENY16,U,3)]"":$PIECE(ENY16,U,3)+17000000\1,1:"")
+5 SET ENX=ENX_U_$PIECE(ENY16,U,5)_U_$PIECE(ENY16,U,6)_U_$PIECE(ENY16,U,7)
+6 SET ENX=ENX_U_$PIECE(ENY16,U,8)_U_$PIECE(ENY16,U,9)_U_$PIECE(ENY16,U,10)
+7 SET ENX=ENX_U_$PIECE(ENY16,U,11)_U_$PIECE(ENY16,U,12)_U_$PIECE(ENY16,U,13)
+8 SET ENX=ENX_U_$PIECE(ENY16,U,14)_U_$PIECE(ENY16,U,15)_U_$PIECE(ENY16,U,16)
+9 SET ENX=ENX_U_$PIECE(ENY16,U,17)_U_$PIECE(ENY16,U,18)_U_$PIECE(ENY16,U,19)
+10 SET ENX=ENX_U_$PIECE(ENY16,U,20)_"^|"
+11 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=ENX
End DoDot:1
+12 KILL ENY16
+13 ; end of application segments
+14 QUIT
BLDG ; seg O (buildings)
+1 SET ENI=0
FOR ENT=0:1
SET ENI=$ORDER(^ENG("PROJ",ENDA,34,ENI))
if 'ENI
QUIT
+2 SET ENX=""
+3 IF ENT
SET ENI=0
FOR ENC=1:1
SET ENI=$ORDER(^ENG("PROJ",ENDA,34,ENI))
if 'ENI
QUIT
Begin DoDot:1
+4 SET ENX=ENX_U_$$GET1^DIQ(6925.0177,ENI_","_ENDA_",",.01)
+5 IF '(ENC#10)!(ENC=ENT)
Begin DoDot:2
+6 SET ENX="O^"_(ENC+9\10)_U_(ENT+9\10)_ENX_$EXTRACT("^^^^^^^^^^",1,11-$LENGTH(ENX,U))
+7 SET ENX=ENX_"^|"
+8 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=ENX
+9 SET ENX=""
End DoDot:2
End DoDot:1
+10 QUIT
DEPEND ; seg P (dependent projects)
+1 SET ENI=0
FOR ENT=0:1
SET ENI=$ORDER(^ENG("PROJ","AB",ENDA,ENI))
if 'ENI
QUIT
+2 IF ENT
SET ENI=0
FOR ENC=1:1
SET ENI=$ORDER(^ENG("PROJ","AB",ENDA,ENI))
if 'ENI
QUIT
Begin DoDot:1
+3 SET ENY=$GET(^ENG("PROJ",ENI,0))
if ENY=""
QUIT
+4 SET ENX="P^"_ENC_U_ENT_U_$PIECE(ENY,U)_U_$PIECE(ENY,U,3)_U_$PIECE(ENY,U,6)
+5 SET ENX=ENX_U_$$GET1^DIQ(6925,ENI_",",6)_"^|"
+6 SET ENL=ENL+1
SET ^XMB(3.9,XMZ,2,ENL,0)=ENX
End DoDot:1
+7 QUIT
+8 ;ENPLX3
