- ENPLV ;WISC/SAB-PROJECT VALIDATION, VALIDATE LIST ;7/10/95
- ;;7.0;ENGINEERING;**23**;Aug 17, 1993
- EN(ENTY,ENXMIT) ; Validate Projects (entry point with list)
- ; input variables
- ; ENTY - type of validation
- ; ENXMIT - (optional) flag, true for additional transmission checks
- ; ^TMP($J,"L")=number of projects^current year of FYFP when ENTY="F"
- ; ^TMP($J,"L",project number)=ien
- ; output variables
- ; ^TMP($J,"L")=
- ; number of projects^current year of FYFP when ENTY="F"^
- ; number invalid^number valid with warn^number valid (no warn)
- ; ^TMP($J,"L",project number)=ien^validation code for project
- ; where validation code = 1 (invalid), 2 (valid w/ warn), 3 (valid)
- ;
- N ENC,ENDA,ENFY,ENPN,ENV
- S ENXMIT=$G(ENXMIT)
- S (ENC(0),ENC(1),ENC(2),ENC(3))=0
- S:ENTY="F" ENFY=$P(^TMP($J,"L"),U,2)
- ; validate projects
- W !,"Validating Projects"
- S ENPN=""
- 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 "."
- S $P(^TMP($J,"L"),U,3,5)=ENC(1)_U_ENC(2)_U_ENC(3)
- ; report results
- I ENC(3)=ENC(0) W !,"No validation problems found" G EX
- I ENC(0)=1 W !,"This project ",$S(ENC(1):"failed",1:"passed")," the validation checks",$S(ENC(1):"",1:" with warnings"),"."
- I ENC(0)>1,ENC(1) W !,ENC(1)," out of ",ENC(0)," selected projects failed the validation checks."
- I ENC(0)>1,ENC(2) W !,ENC(2)," out of ",ENC(0)," selected projects passed the validation checks with warnings."
- S DIR(0)="Y",DIR("A")="Do you want a detailed report",DIR("B")="YES"
- D ^DIR K DIR G:$D(DIRUT) EX
- I Y D ^ENPLV1
- ;
- EX ; Exit
- W !
- K ^TMP($J,"V")
- K DIC,DIR,DIRUT,DTOUT,DUOUT,DIROUT,X,Y
- Q
- ;ENPLV
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPLV 1735 printed Jan 18, 2025@02:56:20 Page 2
- ENPLV ;WISC/SAB-PROJECT VALIDATION, VALIDATE LIST ;7/10/95
- +1 ;;7.0;ENGINEERING;**23**;Aug 17, 1993
- EN(ENTY,ENXMIT) ; Validate Projects (entry point with list)
- +1 ; input variables
- +2 ; ENTY - type of validation
- +3 ; ENXMIT - (optional) flag, true for additional transmission checks
- +4 ; ^TMP($J,"L")=number of projects^current year of FYFP when ENTY="F"
- +5 ; ^TMP($J,"L",project number)=ien
- +6 ; output variables
- +7 ; ^TMP($J,"L")=
- +8 ; number of projects^current year of FYFP when ENTY="F"^
- +9 ; number invalid^number valid with warn^number valid (no warn)
- +10 ; ^TMP($J,"L",project number)=ien^validation code for project
- +11 ; where validation code = 1 (invalid), 2 (valid w/ warn), 3 (valid)
- +12 ;
- +13 NEW ENC,ENDA,ENFY,ENPN,ENV
- +14 SET ENXMIT=$GET(ENXMIT)
- +15 SET (ENC(0),ENC(1),ENC(2),ENC(3))=0
- +16 if ENTY="F"
- SET ENFY=$PIECE(^TMP($JOB,"L"),U,2)
- +17 ; validate projects
- +18 WRITE !,"Validating Projects"
- +19 SET ENPN=""
- +20 FOR
- SET ENPN=$ORDER(^TMP($JOB,"L",ENPN))
- if ENPN=""
- QUIT
- SET ENDA=$PIECE(^(ENPN),U)
- DO ^ENPLV2
- SET ENC(0)=ENC(0)+1
- SET ENC(ENV)=ENC(ENV)+1
- SET $PIECE(^TMP($JOB,"L",ENPN),U,2)=ENV
- WRITE "."
- +21 SET $PIECE(^TMP($JOB,"L"),U,3,5)=ENC(1)_U_ENC(2)_U_ENC(3)
- +22 ; report results
- +23 IF ENC(3)=ENC(0)
- WRITE !,"No validation problems found"
- GOTO EX
- +24 IF ENC(0)=1
- WRITE !,"This project ",$SELECT(ENC(1):"failed",1:"passed")," the validation checks",$SELECT(ENC(1):"",1:" with warnings"),"."
- +25 IF ENC(0)>1
- IF ENC(1)
- WRITE !,ENC(1)," out of ",ENC(0)," selected projects failed the validation checks."
- +26 IF ENC(0)>1
- IF ENC(2)
- WRITE !,ENC(2)," out of ",ENC(0)," selected projects passed the validation checks with warnings."
- +27 SET DIR(0)="Y"
- SET DIR("A")="Do you want a detailed report"
- SET DIR("B")="YES"
- +28 DO ^DIR
- KILL DIR
- if $DATA(DIRUT)
- GOTO EX
- +29 IF Y
- DO ^ENPLV1
- +30 ;
- EX ; Exit
- +1 WRITE !
- +2 KILL ^TMP($JOB,"V")
- +3 KILL DIC,DIR,DIRUT,DTOUT,DUOUT,DIROUT,X,Y
- +4 QUIT
- +5 ;ENPLV