| 1 | ENPLV1 ;WISC/SAB-PROJECT VALIDATION, REPORT; 8/27/95
|
|---|
| 2 | ;;7.0;ENGINEERING;**23,28**;Aug 17, 1993
|
|---|
| 3 | EN ;
|
|---|
| 4 | ; Input Variables
|
|---|
| 5 | ; ENTY type of validation (F, A, R)
|
|---|
| 6 | ; ^TMP($J,"L",project number)=ien^validation code
|
|---|
| 7 | ; ^TMP($J,"V",ien,1,line,0)=TXT error text
|
|---|
| 8 | ; ^TMP($J,"V",ien,2,line,0)=TXT warning text
|
|---|
| 9 | S %ZIS="Q" D ^%ZIS Q:POP
|
|---|
| 10 | I $D(IO("Q")) D Q
|
|---|
| 11 | . S ZTRTN="QEN^ENPLV1",ZTDESC="Invalid Projects"
|
|---|
| 12 | . S ZTSAVE("^TMP($J,""L"",")="",ZTSAVE("^TMP($J,""V"",")=""
|
|---|
| 13 | . S ZTSAVE("ENTY")=""
|
|---|
| 14 | . D ^%ZTLOAD,HOME^%ZIS K ZTSK
|
|---|
| 15 | QEN ; queued entry
|
|---|
| 16 | U IO
|
|---|
| 17 | S (END,ENPG)=0 S Y=$P(DT,".") D DD^%DT S ENDT=Y
|
|---|
| 18 | S ENDASH="",$P(ENDASH,"-",IOM)="" D HD
|
|---|
| 19 | S ENPN=""
|
|---|
| 20 | F S ENPN=$O(^TMP($J,"L",ENPN)) Q:ENPN="" D Q:END
|
|---|
| 21 | . S ENX=^TMP($J,"L",ENPN),ENDA=$P(ENX,U),ENV=$P(ENX,U,2)
|
|---|
| 22 | . Q:ENV'<3
|
|---|
| 23 | . W !,"Project: ",ENPN,$S(ENV=1:" (failed)",1:" (passed with warnings)")
|
|---|
| 24 | . F ENS=1,2 Q:END D
|
|---|
| 25 | . . S ENL=0
|
|---|
| 26 | . . K ^UTILITY($J,"W")
|
|---|
| 27 | . . 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
|
|---|
| 28 | 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
|
|---|
| 29 | D ^%ZISC
|
|---|
| 30 | EXIT I $D(ZTQUEUED) S ZTREQ="Q" K ^TMP($J)
|
|---|
| 31 | K DIR,DIROUT,DIRUT,DIWF,DIWL,DTOUT,DUOUT,X,Y
|
|---|
| 32 | K END,ENDA,ENDASH,ENDT,ENL,ENPG,ENS,ENV,ENX
|
|---|
| 33 | Q
|
|---|
| 34 | HD ; header
|
|---|
| 35 | W:ENPG !,?5,"Note: E) = Error which prevents transmission W) = Warning",!
|
|---|
| 36 | I $E(IOST,1,2)="C-",ENPG S DIR(0)="E" D ^DIR K DIR I 'Y S END=1 Q
|
|---|
| 37 | I $E(IOST,1,2)="C-"!ENPG W @IOF
|
|---|
| 38 | S ENPG=ENPG+1
|
|---|
| 39 | 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
|
|---|
| 40 | W !,ENDASH
|
|---|
| 41 | I ENPG>1 W !!,"Project: ",ENPN," (continued)"
|
|---|
| 42 | Q
|
|---|
| 43 | ;ENPLV1
|
|---|
