- ENPLV1 ;WISC/SAB-PROJECT VALIDATION, REPORT; 8/27/95
- ;;7.0;ENGINEERING;**23,28**;Aug 17, 1993
- EN ;
- ; Input Variables
- ; ENTY type of validation (F, A, R)
- ; ^TMP($J,"L",project number)=ien^validation code
- ; ^TMP($J,"V",ien,1,line,0)=TXT error text
- ; ^TMP($J,"V",ien,2,line,0)=TXT warning text
- S %ZIS="Q" D ^%ZIS Q:POP
- I $D(IO("Q")) D Q
- . S ZTRTN="QEN^ENPLV1",ZTDESC="Invalid Projects"
- . S ZTSAVE("^TMP($J,""L"",")="",ZTSAVE("^TMP($J,""V"",")=""
- . S ZTSAVE("ENTY")=""
- . D ^%ZTLOAD,HOME^%ZIS K ZTSK
- QEN ; queued entry
- U IO
- S (END,ENPG)=0 S Y=$P(DT,".") D DD^%DT S ENDT=Y
- S ENDASH="",$P(ENDASH,"-",IOM)="" D HD
- S ENPN=""
- F S ENPN=$O(^TMP($J,"L",ENPN)) Q:ENPN="" D Q:END
- . S ENX=^TMP($J,"L",ENPN),ENDA=$P(ENX,U),ENV=$P(ENX,U,2)
- . Q:ENV'<3
- . W !,"Project: ",ENPN,$S(ENV=1:" (failed)",1:" (passed with warnings)")
- . F ENS=1,2 Q:END D
- . . S ENL=0
- . . K ^UTILITY($J,"W")
- . . F S ENL=$O(^TMP($J,"V",ENDA,ENS,ENL)) Q:'ENL D:$Y+7>IOSL HD Q:END S X=$S(ENS=1:"E",1:"W")_") "_^TMP($J,"V",ENDA,ENS,ENL,0) S DIWL=1,DIWF="WC"_(IOM-5) D ^DIWP D ^DIWW
- I 'END W !,?5,"Note: E) = Error which prevents transmission W) = Warning",! I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR
- D ^%ZISC
- EXIT I $D(ZTQUEUED) S ZTREQ="Q" K ^TMP($J)
- K DIR,DIROUT,DIRUT,DIWF,DIWL,DTOUT,DUOUT,X,Y
- K END,ENDA,ENDASH,ENDT,ENL,ENPG,ENS,ENV,ENX
- Q
- HD ; header
- W:ENPG !,?5,"Note: E) = Error which prevents transmission W) = Warning",!
- I $E(IOST,1,2)="C-",ENPG S DIR(0)="E" D ^DIR K DIR I 'Y S END=1 Q
- I $E(IOST,1,2)="C-"!ENPG W @IOF
- S ENPG=ENPG+1
- W $S(ENTY="F":"Five Year Facility Plan",ENTY="A":"Project Application",ENTY="R":"Progress Report",1:"Misc.")_" Validation Results ",?50,ENDT,?70,"page ",ENPG
- W !,ENDASH
- I ENPG>1 W !!,"Project: ",ENPN," (continued)"
- Q
- ;ENPLV1
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPLV1 1859 printed Jan 18, 2025@02:56:21 Page 2
- ENPLV1 ;WISC/SAB-PROJECT VALIDATION, REPORT; 8/27/95
- +1 ;;7.0;ENGINEERING;**23,28**;Aug 17, 1993
- EN ;
- +1 ; Input Variables
- +2 ; ENTY type of validation (F, A, R)
- +3 ; ^TMP($J,"L",project number)=ien^validation code
- +4 ; ^TMP($J,"V",ien,1,line,0)=TXT error text
- +5 ; ^TMP($J,"V",ien,2,line,0)=TXT warning text
- +6 SET %ZIS="Q"
- DO ^%ZIS
- if POP
- QUIT
- +7 IF $DATA(IO("Q"))
- Begin DoDot:1
- +8 SET ZTRTN="QEN^ENPLV1"
- SET ZTDESC="Invalid Projects"
- +9 SET ZTSAVE("^TMP($J,""L"",")=""
- SET ZTSAVE("^TMP($J,""V"",")=""
- +10 SET ZTSAVE("ENTY")=""
- +11 DO ^%ZTLOAD
- DO HOME^%ZIS
- KILL ZTSK
- End DoDot:1
- QUIT
- QEN ; queued entry
- +1 USE IO
- +2 SET (END,ENPG)=0
- SET Y=$PIECE(DT,".")
- DO DD^%DT
- SET ENDT=Y
- +3 SET ENDASH=""
- SET $PIECE(ENDASH,"-",IOM)=""
- DO HD
- +4 SET ENPN=""
- +5 FOR
- SET ENPN=$ORDER(^TMP($JOB,"L",ENPN))
- if ENPN=""
- QUIT
- Begin DoDot:1
- +6 SET ENX=^TMP($JOB,"L",ENPN)
- SET ENDA=$PIECE(ENX,U)
- SET ENV=$PIECE(ENX,U,2)
- +7 if ENV'<3
- QUIT
- +8 WRITE !,"Project: ",ENPN,$SELECT(ENV=1:" (failed)",1:" (passed with warnings)")
- +9 FOR ENS=1,2
- if END
- QUIT
- Begin DoDot:2
- +10 SET ENL=0
- +11 KILL ^UTILITY($JOB,"W")
- +12 FOR
- SET ENL=$ORDER(^TMP($JOB,"V",ENDA,ENS,ENL))
- if 'ENL
- QUIT
- if $Y+7>IOSL
- DO HD
- if END
- QUIT
- SET X=$SELECT(ENS=1:"E",1:"W")_") "_^TMP($JOB,"V",ENDA,ENS,ENL,0)
- SET DIWL=1
- SET DIWF="WC"_(IOM-5)
- DO ^DIWP
- DO ^DIWW
- End DoDot:2
- End DoDot:1
- if END
- QUIT
- +13 IF 'END
- WRITE !,?5,"Note: E) = Error which prevents transmission W) = Warning",!
- IF $EXTRACT(IOST,1,2)="C-"
- SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- +14 DO ^%ZISC
- EXIT IF $DATA(ZTQUEUED)
- SET ZTREQ="Q"
- KILL ^TMP($JOB)
- +1 KILL DIR,DIROUT,DIRUT,DIWF,DIWL,DTOUT,DUOUT,X,Y
- +2 KILL END,ENDA,ENDASH,ENDT,ENL,ENPG,ENS,ENV,ENX
- +3 QUIT
- HD ; header
- +1 if ENPG
- WRITE !,?5,"Note: E) = Error which prevents transmission W) = Warning",!
- +2 IF $EXTRACT(IOST,1,2)="C-"
- IF ENPG
- SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- IF 'Y
- SET END=1
- QUIT
- +3 IF $EXTRACT(IOST,1,2)="C-"!ENPG
- WRITE @IOF
- +4 SET ENPG=ENPG+1
- +5 WRITE $SELECT(ENTY="F":"Five Year Facility Plan",ENTY="A":"Project Application",ENTY="R":"Progress Report",1:"Misc.")_" Validation Results ",?50,ENDT,?70,"page ",ENPG
- +6 WRITE !,ENDASH
- +7 IF ENPG>1
- WRITE !!,"Project: ",ENPN," (continued)"
- +8 QUIT
- +9 ;ENPLV1