Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ENPLV1

ENPLV1.m

Go to the documentation of this file.
  1. ENPLV1 ;WISC/SAB-PROJECT VALIDATION, REPORT; 8/27/95
  1. ;;7.0;ENGINEERING;**23,28**;Aug 17, 1993
  1. EN ;
  1. ; Input Variables
  1. ; ENTY type of validation (F, A, R)
  1. ; ^TMP($J,"L",project number)=ien^validation code
  1. ; ^TMP($J,"V",ien,1,line,0)=TXT error text
  1. ; ^TMP($J,"V",ien,2,line,0)=TXT warning text
  1. S %ZIS="Q" D ^%ZIS Q:POP
  1. I $D(IO("Q")) D Q
  1. . S ZTRTN="QEN^ENPLV1",ZTDESC="Invalid Projects"
  1. . S ZTSAVE("^TMP($J,""L"",")="",ZTSAVE("^TMP($J,""V"",")=""
  1. . S ZTSAVE("ENTY")=""
  1. . D ^%ZTLOAD,HOME^%ZIS K ZTSK
  1. QEN ; queued entry
  1. U IO
  1. S (END,ENPG)=0 S Y=$P(DT,".") D DD^%DT S ENDT=Y
  1. S ENDASH="",$P(ENDASH,"-",IOM)="" D HD
  1. S ENPN=""
  1. F S ENPN=$O(^TMP($J,"L",ENPN)) Q:ENPN="" D Q:END
  1. . S ENX=^TMP($J,"L",ENPN),ENDA=$P(ENX,U),ENV=$P(ENX,U,2)
  1. . Q:ENV'<3
  1. . W !,"Project: ",ENPN,$S(ENV=1:" (failed)",1:" (passed with warnings)")
  1. . F ENS=1,2 Q:END D
  1. . . S ENL=0
  1. . . K ^UTILITY($J,"W")
  1. . . 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
  1. 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
  1. D ^%ZISC
  1. EXIT I $D(ZTQUEUED) S ZTREQ="Q" K ^TMP($J)
  1. K DIR,DIROUT,DIRUT,DIWF,DIWL,DTOUT,DUOUT,X,Y
  1. K END,ENDA,ENDASH,ENDT,ENL,ENPG,ENS,ENV,ENX
  1. Q
  1. HD ; header
  1. W:ENPG !,?5,"Note: E) = Error which prevents transmission W) = Warning",!
  1. I $E(IOST,1,2)="C-",ENPG S DIR(0)="E" D ^DIR K DIR I 'Y S END=1 Q
  1. I $E(IOST,1,2)="C-"!ENPG W @IOF
  1. S ENPG=ENPG+1
  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
  1. W !,ENDASH
  1. I ENPG>1 W !!,"Project: ",ENPN," (continued)"
  1. Q
  1. ;ENPLV1