source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPLV.m@ 1373

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

initial load of WorldVistAEHR

File size: 1.7 KB
RevLine 
[613]1ENPLV ;WISC/SAB-PROJECT VALIDATION, VALIDATE LIST ;7/10/95
2 ;;7.0;ENGINEERING;**23**;Aug 17, 1993
3EN(ENTY,ENXMIT) ; Validate Projects (entry point with list)
4 ; input variables
5 ; ENTY - type of validation
6 ; ENXMIT - (optional) flag, true for additional transmission checks
7 ; ^TMP($J,"L")=number of projects^current year of FYFP when ENTY="F"
8 ; ^TMP($J,"L",project number)=ien
9 ; output variables
10 ; ^TMP($J,"L")=
11 ; number of projects^current year of FYFP when ENTY="F"^
12 ; number invalid^number valid with warn^number valid (no warn)
13 ; ^TMP($J,"L",project number)=ien^validation code for project
14 ; where validation code = 1 (invalid), 2 (valid w/ warn), 3 (valid)
15 ;
16 N ENC,ENDA,ENFY,ENPN,ENV
17 S ENXMIT=$G(ENXMIT)
18 S (ENC(0),ENC(1),ENC(2),ENC(3))=0
19 S:ENTY="F" ENFY=$P(^TMP($J,"L"),U,2)
20 ; validate projects
21 W !,"Validating Projects"
22 S ENPN=""
23 F S ENPN=$O(^TMP($J,"L",ENPN)) Q:ENPN="" S ENDA=$P(^(ENPN),U) D ^ENPLV2 S ENC(0)=ENC(0)+1,ENC(ENV)=ENC(ENV)+1,$P(^TMP($J,"L",ENPN),U,2)=ENV W "."
24 S $P(^TMP($J,"L"),U,3,5)=ENC(1)_U_ENC(2)_U_ENC(3)
25 ; report results
26 I ENC(3)=ENC(0) W !,"No validation problems found" G EX
27 I ENC(0)=1 W !,"This project ",$S(ENC(1):"failed",1:"passed")," the validation checks",$S(ENC(1):"",1:" with warnings"),"."
28 I ENC(0)>1,ENC(1) W !,ENC(1)," out of ",ENC(0)," selected projects failed the validation checks."
29 I ENC(0)>1,ENC(2) W !,ENC(2)," out of ",ENC(0)," selected projects passed the validation checks with warnings."
30 S DIR(0)="Y",DIR("A")="Do you want a detailed report",DIR("B")="YES"
31 D ^DIR K DIR G:$D(DIRUT) EX
32 I Y D ^ENPLV1
33 ;
34EX ; Exit
35 W !
36 K ^TMP($J,"V")
37 K DIC,DIR,DIRUT,DTOUT,DUOUT,DIROUT,X,Y
38 Q
39 ;ENPLV
Note: See TracBrowser for help on using the repository browser.