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

ENEQMED3.m

Go to the documentation of this file.
  1. ENEQMED3 ;(WASH ISC)/SAB-EQUIPMENT MULTIPLE EDIT, REPORT; 9.24.97
  1. ;;7.0;ENGINEERING;**35,39,45**;Aug 17, 1993
  1. EN ;
  1. ; Input Variables
  1. ; ^TMP($J,"ENFLD",field number) modified fields array
  1. ; ^TMP($J,"ENSEL",equip ien) selected equipment array
  1. ; ^TMP($J,"ENCOM", word processing array for comments
  1. ; ^TMP($J,"ENSPEX", word processing array for spex
  1. ; ^TMP($J,"ENLCK",equip ien) equipment that couldn't be locked/updated
  1. S %ZIS="Q" D ^%ZIS Q:POP
  1. I $D(IO("Q")) D Q
  1. . S ZTRTN="QEN^ENEQMED3",ZTDESC="Multiple Edit of Equipment Report"
  1. . S ZTSAVE("^TMP($J,""ENFLD"",")="",ZTSAVE("^TMP($J,""ENSEL"",")=""
  1. . S ZTSAVE("^TMP($J,""ENCOM"",")="",ZTSAVE("^TMP($J,""ENSPEX"",")=""
  1. . S ZTSAVE("^TMP($J,""ENLCK"",")=""
  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 ENHDR2="Edited Field(s) New Value"
  1. S ENDASH="",$P(ENDASH,"-",IOM+1)="" D HD
  1. S ENFLD=0
  1. F S ENFLD=$O(^TMP($J,"ENFLD",ENFLD)) Q:'ENFLD D:$Y+3>IOSL HD Q:END D
  1. . I ENFLD=30 W !,"PM DATA" Q
  1. . I ENFLD=40 W !,"COMMENTS" D Q
  1. . . S DIWL=36,DIWR=75,DIWF="W|"
  1. . . S ENI=0
  1. . . F S ENI=$O(^TMP($J,"ENCOM",ENI)) Q:'ENI S X=^(ENI,0) D ^DIWP
  1. . . D ^DIWW
  1. . . K DIWL,DIWR,DIWF,X
  1. . I ENFLD=70 W !,"SPEX" D Q
  1. . . S DIWL=36,DIWR=75,DIWF="W|"
  1. . . S ENI=0
  1. . . F S ENI=$O(^TMP($J,"ENSPEX",ENI)) Q:'ENI S X=^(ENI,0) D ^DIWP
  1. . . D ^DIWW
  1. . . K DIWL,DIWR,DIWF,X
  1. . S ENVALE=$P($G(^TMP($J,"ENFLD",ENFLD)),U,2)
  1. . W !,$$GET1^DID(6914,ENFLD,"","LABEL"),?35
  1. . W $S(ENVALE]"":$E(ENVALE,1,40),1:"(individually specified for each item)")
  1. G:END EXIT
  1. I $D(^TMP($J,"ENLCK")) D
  1. . S ENHDR2="List of Selected Equipment that was NOT Modified."
  1. . I $Y+8>IOSL D HD
  1. . E W !!,ENHDR2
  1. . W !," Some of the selected equipment could not be updated because it"
  1. . W !," was being edited by another process. This equipment will need"
  1. . W !," to be edited to make the desired changes."
  1. . S ENDA=0,ENI=0
  1. . F S ENDA=$O(^TMP($J,"ENLCK",ENDA)) Q:'ENDA D Q:END
  1. . . I '(ENI#6) D:$Y+3>IOSL HD Q:END W !
  1. . . W ?(ENI#6*12),ENDA
  1. . . S ENI=ENI+1
  1. S ENHDR2="List of Modified Equipment"
  1. I $Y+5>IOSL D HD
  1. E W !!,ENHDR2
  1. S ENDA=0,ENI=0
  1. F S ENDA=$O(^TMP($J,"ENSEL",ENDA)) Q:'ENDA D Q:END
  1. . Q:$D(^TMP($J,"ENLCK",ENDA)) ; could not be locked/updated
  1. . I '(ENI#6) D:$Y+3>IOSL HD Q:END W !
  1. . W ?(ENI#6*12),ENDA
  1. . S ENI=ENI+1
  1. EXIT I $D(ZTQUEUED) S ZTREQ="Q" K ^TMP($J)
  1. K DA,DIC,DIQ,DR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. K END,ENDA,ENDASH,ENDIQ,ENDT,ENFLD,ENHDR2,ENI,ENPG,ENVALE
  1. D ^%ZISC
  1. Q
  1. HD ; header
  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. S $X=0
  1. W "Multiple Edit of Equipment Report",?50,ENDT,?70,"page ",ENPG
  1. W !,ENDASH,!
  1. W !,ENHDR2,!
  1. Q
  1. ;ENEQMED3