Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ENPLX3

ENPLX3.m

Go to the documentation of this file. 
  1. ENPLX3 ;WISC/SAB-XMIT SEGMENTS FOR APPLICATION (cont) ;4/28/97
  1.  ;;7.0;ENGINEERING;**23,28**;Aug 17, 1993
  1. EN ; entry from ENPLX2
  1. I ; (word processing on application)
  1.  F ENFLD=192.6,277,278,282 D WP^ENPLX2
  1. J ; seg J
  1.  S ENX="J^"_$P(ENY15,U,2)_U_""_U_$$GET1^DIQ(6925,ENDA_",",179)
  1.  S ENX=ENX_U_""_U_$P(ENY15,U,6)
  1.  S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",182)_U_$P(ENY15,U,9)
  1.  S ENX=ENX_U_""_"^|"
  1.  S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
  1. K ; seg K
  1.  S ENY18=$G(^ENG("PROJ",ENDA,18))
  1.  S ENX="K^"_$P(ENY15,U,11)_U_$P(ENY15,U,12)_U_$P(ENY15,U,13)
  1.  S ENX=ENX_U_$P(ENY15,U,14)_U_""_U_$P(ENY15,U,18)
  1.  S ENX=ENX_U_$P(ENY18,U)_U_$$GET1^DIQ(6925,ENDA_",",264)
  1.  S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",265)_U_$P(ENY18,U,4)
  1.  S ENX=ENX_U_$P($G(^ENG("PROJ",ENDA,52)),U,7)
  1.  S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",158.7)_"^|"
  1.  S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
  1.  K ENY18
  1. L ; seg L
  1.  S ENY19=$G(^ENG("PROJ",ENDA,19))
  1.  S ENX="L^"_$P(ENY19,U)_U_$P(ENY19,U,2)_U_$P(ENY19,U,3)_U_$P(ENY19,U,4)
  1.  S ENX=ENX_U_$P(ENY19,U,5)_U_$P(ENY19,U,6)_U_$P(ENY19,U,7)
  1.  S ENX=ENX_U_$P(ENY19,U,8)_U_U_U_U_$P(ENY19,U,12)_"^|"
  1.  S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
  1.  K ENY19
  1. M ; seg M (H089 Chapters)
  1.  S ENI=0 F ENT=0:1 S ENI=$O(^ENG("PROJ",ENDA,22,ENI)) Q:'ENI
  1.  I ENT S ENI=0 F ENC=1:1 S ENI=$O(^ENG("PROJ",ENDA,22,ENI)) Q:'ENI  D
  1.  . S ENY=$G(^ENG("PROJ",ENDA,22,ENI,0)) Q:ENY=""
  1.  . S ENX="M^"_ENC_U_ENT_U_$$GET1^DIQ(6925.03,ENI_","_ENDA_",",.01)
  1.  . S ENX=ENX_U_$P(ENY,U,2)_U_$P(ENY,U,3)_U_$P(ENY,U,4)_U_$P(ENY,U,5)_"^|"
  1.  . S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
  1. N ; seg N
  1.  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_"^|"
  1. O ; seg O (buildings)
  1.  D BLDG
  1. P ; seg P (dependent projects)
  1.  D DEPEND
  1. Q ; seg Q
  1.  S ENY33=$G(^ENG("PROJ",ENDA,33))
  1.  S ENX="Q^"_$$GET1^DIQ(6925,ENDA_",",245)
  1.  S ENX=ENX_U_$S($P(ENY33,U,3)]"":$P(ENY33,U,3)+17000000\1,1:"")
  1.  S ENX=ENX_U_$$GET1^DIQ(6925,ENDA_",",248)
  1.  S ENX=ENX_U_$S($P(ENY33,U,6)]"":$P(ENY33,U,6)+17000000\1,1:"")
  1.  S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
  1.  K ENY33
  1. R ; seg R
  1.  S ENY16=$G(^ENG("PROJ",ENDA,16))
  1.  I $P($G(^ENG("PROJ",ENDA,15)),U,12)="Y",ENY16]"" D
  1.  . S ENX="R^"_$P(ENY16,U)_U_$P(ENY16,U,2)
  1.  . S ENX=ENX_U_$S($P(ENY16,U,3)]"":$P(ENY16,U,3)+17000000\1,1:"")
  1.  . S ENX=ENX_U_$P(ENY16,U,5)_U_$P(ENY16,U,6)_U_$P(ENY16,U,7)
  1.  . S ENX=ENX_U_$P(ENY16,U,8)_U_$P(ENY16,U,9)_U_$P(ENY16,U,10)
  1.  . S ENX=ENX_U_$P(ENY16,U,11)_U_$P(ENY16,U,12)_U_$P(ENY16,U,13)
  1.  . S ENX=ENX_U_$P(ENY16,U,14)_U_$P(ENY16,U,15)_U_$P(ENY16,U,16)
  1.  . S ENX=ENX_U_$P(ENY16,U,17)_U_$P(ENY16,U,18)_U_$P(ENY16,U,19)
  1.  . S ENX=ENX_U_$P(ENY16,U,20)_"^|"
  1.  . S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
  1.  K ENY16
  1.  ; end of application segments
  1.  Q
  1. BLDG ; seg O (buildings)
  1.  S ENI=0 F ENT=0:1 S ENI=$O(^ENG("PROJ",ENDA,34,ENI)) Q:'ENI
  1.  S ENX=""
  1.  I ENT S ENI=0 F ENC=1:1 S ENI=$O(^ENG("PROJ",ENDA,34,ENI)) Q:'ENI  D
  1.  . S ENX=ENX_U_$$GET1^DIQ(6925.0177,ENI_","_ENDA_",",.01)
  1.  . I '(ENC#10)!(ENC=ENT) D
  1.  . . S ENX="O^"_(ENC+9\10)_U_(ENT+9\10)_ENX_$E("^^^^^^^^^^",1,11-$L(ENX,U))
  1.  . . S ENX=ENX_"^|"
  1.  . . S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
  1.  . . S ENX=""
  1.  Q
  1. DEPEND ; seg P (dependent projects)
  1.  S ENI=0 F ENT=0:1 S ENI=$O(^ENG("PROJ","AB",ENDA,ENI)) Q:'ENI
  1.  I ENT S ENI=0 F ENC=1:1 S ENI=$O(^ENG("PROJ","AB",ENDA,ENI)) Q:'ENI  D
  1.  . S ENY=$G(^ENG("PROJ",ENI,0)) Q:ENY=""
  1.  . S ENX="P^"_ENC_U_ENT_U_$P(ENY,U)_U_$P(ENY,U,3)_U_$P(ENY,U,6)
  1.  . S ENX=ENX_U_$$GET1^DIQ(6925,ENI_",",6)_"^|"
  1.  . S ENL=ENL+1,^XMB(3.9,XMZ,2,ENL,0)=ENX
  1.  Q
  1.  ;ENPLX3