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

ENPL1.m

Go to the documentation of this file.
  1. ENPL1 ;(WASH ISC)/LKG,SAB-UTILITY FXS ;6/10/97
  1. ;;7.0;ENGINEERING;**23,28**;Aug 17, 1993
  1. A ;Create string of Building Nos. from multiple for display
  1. N Y S Y=0,X=""
  1. F S Y=$O(^ENG("PROJ",D0,34,Y)) Q:Y'?1.N!($L(X)>235) S X=X_$S(X]"":",",1:"")_$P($G(^ENG(6928.3,$P(^ENG("PROJ",D0,34,Y,0),U),0)),U)
  1. Q
  1. V ;Validate format for name
  1. X ^%ZOSF("UPPERCASE") S X=Y
  1. I $TR(X,"-' .")'?1.U1","1.U K X Q
  1. I X[" ,"!(X[", ") K X Q
  1. Q
  1. SH(ENPR) ; executable help for STATUS field
  1. ; ENPR - program (internal value)
  1. N ENI,ENY0
  1. I $G(ENPR)]"" S ENI=0 F S ENI=$O(^ENG(6925.2,"AC",ENI)) Q:'ENI D
  1. . S ENY0=$G(^ENG(6925.2,$O(^ENG(6925.2,"AC",ENI,0)),0))
  1. . I $P(ENY0,U,5)[ENPR W ?3,$P(ENY0,U),!
  1. ;R " Press RETURN to continue",ENI:DTIME
  1. Q
  1. ECS ; File 6925, Field 158.7 Environmental Category - Screen
  1. S DIC("S")="I $S('$D(ENDA):1,$P($G(^(0)),U,5)=$P($G(^ENG(""PROJ"",ENDA,52)),U):1,'$P($G(^ENG(""PROJ"",ENDA,52)),U):1,'$O(^ENG(6925.3,""AC"",$P(^ENG(""PROJ"",ENDA,52),U),0)):1,1:0)"
  1. Q
  1. XA ; File 6925, Field 233.1 MI/MM CITATION POINTS computed expression
  1. N ENDA,ENF
  1. I $D(D0)#10'=1 S X="" G XAE
  1. I ",MI,MM,"'[(","_$P($G(^ENG("PROJ",D0,0)),U,6)_",") S X="" G XAE
  1. S ENDA=D0 D A^ENPL3 S X=$P(ENF,U)+$P(ENF,U,2)
  1. XAE Q
  1. XB ; File 6925, Field 233.2 MI/MM SPACE POINTS computed expression
  1. N ENDA,ENG
  1. I $D(D0)#10'=1 S X="" G XBE
  1. I ",MI,MM,"'[(","_$P($G(^ENG("PROJ",D0,0)),U,6)_",") S X="" G XBE
  1. S ENDA=D0 D B^ENPL3 S X=ENG+0
  1. XBE Q
  1. XC ; File 6925, Field 233.3 MI/MM ENERGY POINTS computed expression
  1. N ENDA,ENH
  1. I $D(D0)#10'=1 S X="" G XCE
  1. I ",MI,MM,"'[(","_$P($G(^ENG("PROJ",D0,0)),U,6)_",") S X="" G XCE
  1. S ENDA=D0 D C^ENPL3 S X=ENH+0
  1. XCE Q
  1. XD ; File 6925, Field 233.4 MI/MM CATEGORY POINTS computed expression
  1. N ENDA,ENI
  1. I $D(D0)#10'=1 S X="" G XDE
  1. I ",MI,MM,"'[(","_$P($G(^ENG("PROJ",D0,0)),U,6)_",") S X="" G XDE
  1. D XB I X>0 S X=0 G XDE ; If space points then no points here
  1. S ENDA=D0 D D^ENPL3 S X=ENI+0
  1. XDE Q
  1. XE ; File 6925, Field 233.5 MI/MM VAMC PRIORITY POINTS computed expression
  1. N ENDA,ENJ
  1. I $D(D0)#10'=1 S X="" G XEE
  1. I ",MI,MM,"'[(","_$P($G(^ENG("PROJ",D0,0)),U,6)_",") S X="" G XEE
  1. S ENDA=D0 D E^ENPL3 S X=ENJ+0
  1. XEE Q
  1. XF ; File 6925, Field 262.4 NRM CITATION POINTS computed expression
  1. N ENI,ENP,ENY
  1. I $D(D0)#10'=1 S X="" G XFE
  1. I ",NR,"'[(","_$P($G(^ENG("PROJ",D0,0)),U,6)_",") S X="" G XFE
  1. S (ENI,ENP)=0 F S ENI=$O(^ENG("PROJ",D0,21,ENI)) Q:ENI'>0 D
  1. . N %Y,X,X1,X2,Y
  1. . S ENY=$G(^ENG("PROJ",D0,21,ENI,0))
  1. . I '$P(ENY,U,8) Q
  1. . ; base 6-yr limit on 1/15 of current year
  1. . S X1=$E(DT,1,3)_"0115",X2=$P(ENY,U,3) D ^%DTC I X>2190 Q
  1. . S ENP=1
  1. . Q
  1. S X=$S(ENP:12,1:0)
  1. XFE Q
  1. ;ENPL1