source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPLV6.m@ 699

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1ENPLV6 ;(WASH ISC)/SAB-PROJECT VALIDATION, VALIDATE ONE ENTRY (cont) ;11/27/95
2 ;;7.0;ENGINEERING;**23,28**;Aug 17, 1993
3 ; Project Planning (FYFP, APPL) specific checks
4 ; check required fields
5 I '$P($G(^ENG("PROJ",ENDA,17,0)),U,4) S ENS=1,ENMSG="PROJECT DESCRIPTION (SHORT) is required." D MSG
6 I '$P($G(^ENG("PROJ",ENDA,26,0)),U,4) S ENS=1,ENMSG="JUSTIFICATION (SHORT) is required." D MSG
7 ;
8 I "^NR^"[(U_ENPR_U) D ; NRM program checks
9 . I $P(ENY52,U,9)]"" D
10 . . S ENX=$P($G(^OFM(7336.8,$P(ENY52,U,9),0)),U)
11 . . I ENX="AMBULATORY CARE",$P(ENY52,U,10)<50 S ENS=1,ENMSG="AMBULATORY CARE PERCENTAGE ("_$P(ENY52,U,10)_") inconsistent with BONUS CATEGORY ("_ENX_")." D MSG
12 ;
13 I "^MA^MI^MM^NR^SL^"[(U_ENPR_U) D ; construction checks
14 . S ENX=$P($G(^ENG("PROJ",ENDA,24)),U)
15 . I ENX]"",$P(ENY0,U,7)]"",ENX<$P(ENY0,U,7) S ENS=1,ENMSG="ACTIVATION YEAR ("_ENX_") is before FUNDING YEAR - CONST ("_$P(ENY0,U,7)_")." D MSG
16 ;
17 I "^LE^"[(U_ENPR_U) D ; lease checks
18 . I $P(ENY55,U)="" S ENS=1,ENMSG="LEASE TYPE is required." D MSG
19 . I $P(ENY55,U,5)="" S ENS=1,ENMSG="ESTIMATED ANNUAL RENT COST is required." D MSG
20 . I $P(ENY55,U,6)="" S ENS=1,ENMSG="PROPOSED LEASE TERM is required." D MSG
21 . I $P(ENY55,U,7)="" S ENS=1,ENMSG="RENTABLE SQ FT is required." D MSG
22 . I "^NE^SU^"[(U_$P(ENY55,U)_U) D
23 . . I $P(ENY55,U,8)="" S ENS=1,ENMSG="EXISTING SPACE ANNUAL RENT is required for LEASE TYPE ("_$$EXTERNAL^DILFD(6925,285,"",$P(ENY55,U))_")." D MSG
24 . . I $P(ENY55,U,9)="" S ENS=1,ENMSG="EXISTING SPACE RENTABLE SQ FT is required for LEASE TYPE ("_$$EXTERNAL^DILFD(6925,285,"",$P(ENY55,U))_")." D MSG
25 . I ENBCI]"" D
26 . . S ENX=$P($G(^OFM(7336.9,ENBCI,0)),U)
27 . . I $P(ENY55,U)="EU"!(ENX="ENHANCED USE"),$P(ENY55,U)'="EU"!(ENX'="ENHANCED USE") S ENS=1,ENMSG="LEASE TYPE ("_$$EXTERNAL^DILFD(6925,285,"",$P(ENY55,U))_") inconsistent with BUDGET CATEGORY ("_ENX_")." D MSG
28 . S ENX=$P($G(^ENG("PROJ",ENDA,24)),U)
29 . I ENX]"",$P(ENY55,U,3)]"",ENX<$P(ENY55,U,3) S ENS=1,ENMSG="ACTIVATION YEAR ("_ENX_") is before FY - RENT STARTS ("_$P(ENY55,U,3)_")." D MSG
30 Q
31MSG ; save message
32 ; ENL(ENS) - last line used in array
33 ; ENMSG - messsage
34 ; ENS - severity (1,2) 1 invalid, 2 warning
35 I ENV>ENS S ENV=ENS
36 S ENL(ENS)=ENL(ENS)+1,^TMP($J,"V",ENDA,ENS,ENL(ENS),0)=ENMSG
37 Q
38 ;ENPLV6
Note: See TracBrowser for help on using the repository browser.