INHOV.m

INHOV ; JMB; 24 Aug 95 14:05; Verify Background Processes

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;COPYRIGHT 1991-2000 SAIC

 ;

 Q

 ;

EN ;Main entry point

 ; NEW statements

 N %,%ZIS,ANS,DEF,PROMPT,RANGE,POP,INTASKED,INPAR

 N ZTDESC,ZTIO,ZTRTN,ZTSAVE

 ;

 D:'$G(DUZ) ENV^UTIL

 ;

 ;Get report parameters

 Q:'$$PAR

 ;

 ;IF Device selected is not the user own device, run this routine

 ; in the background.

 ;

 S INTASKED=0 ;Background flag

 ;Get device

 W ! K IOP S %ZIS("A")="QUEUE ON DEVICE: ",%ZIS("B")="",%ZIS="NQ" D ^%ZIS G:POP EXIT^INHOV1

 S IOP=ION_";"_IOST_";"_IOM_";"_IOSL

 ;User did not select their own device, force queue to taskman

 I IO=IO(0) S %ZIS="" D ^%ZIS I POP W *7,!,"Sorry, unable to find device..." G EXIT^INHOV1

 I IO'=IO(0) D  G EXIT^INHOV1

 . S INTASKED=1,ZTDESC="GIS Verify Background Process",ZTIO=IOP,ZTRTN="EN^INHOV1"

 . F X="INPAR(","INTASKED" S ZTSAVE(X)=""

 . D ^%ZTLOAD

 ;

 ;Go to compilation and display module

 G EN^INHOV1

 Q

 ;

PAR() ;User parameters

 ;OUTPUT:

 ;  INPAR - array of report parameters

 ;  function - user did not abort ( 0 - no ; 1 - yes )

 ;

 K INPAR

 S INPAR("DETAIL")=1    ;detail report

 S INPAR("REPAINT")=5   ;repaint frequency

 S INPAR("ITER")=100    ;number of report scans to run (printer)  

 ;

 ;Quit if user accepts default parameters

 S %=$$RD^INHUTS1("Modify default parameters") Q:'% %'=U W !

 S INPAR("DETAIL")=$$RD^INHUTS1("Detailed Report",INPAR("DETAIL")) Q:INPAR("DETAIL")=U 0

 S INPAR("REPAINT")=$$RD^INHUTS1("Repaint Frequency (sec)",INPAR("REPAINT"),"0,3600") Q:INPAR("REPAINT")=U 0

 S INPAR("ITER")=$$RD^INHUTS1("Maximum number of iterations (printer only)",INPAR("ITER"),"0,999") Q:INPAR("ITER")=U 0

 Q 1

INHOV     ; JMB; 24 Aug 95 14:05; Verify Background Processes

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;

 +4        QUIT 

 +5       ;

EN        ;Main entry point

 +1       ; NEW statements

 +2        NEW %,%ZIS,ANS,DEF,PROMPT,RANGE,POP,INTASKED,INPAR

 +3        NEW ZTDESC,ZTIO,ZTRTN,ZTSAVE

 +4       ;

 +5        IF '$GET(DUZ)

               DO ENV^UTIL

 +6       ;

 +7       ;Get report parameters

 +8        IF '$$PAR

               QUIT 

 +9       ;

 +10      ;IF Device selected is not the user own device, run this routine

 +11      ; in the background.

 +12      ;

 +13      ;Background flag

           SET INTASKED=0

 +14      ;Get device

 +15       WRITE !

           KILL IOP

           SET %ZIS("A")="QUEUE ON DEVICE: "

           SET %ZIS("B")=""

           SET %ZIS="NQ"

           DO ^%ZIS

           IF POP

               GOTO EXIT^INHOV1

 +16       SET IOP=ION_";"_IOST_";"_IOM_";"_IOSL

 +17      ;User did not select their own device, force queue to taskman

 +18       IF IO=IO(0)

               SET %ZIS=""

               DO ^%ZIS

               IF POP

                   WRITE *7,!,"Sorry, unable to find device..."

                   GOTO EXIT^INHOV1

 +19       IF IO'=IO(0)

               Begin DoDot:1

 +20               SET INTASKED=1

                   SET ZTDESC="GIS Verify Background Process"

                   SET ZTIO=IOP

                   SET ZTRTN="EN^INHOV1"

 +21               FOR X="INPAR(","INTASKED"

                       SET ZTSAVE(X)=""

 +22               DO ^%ZTLOAD

               End DoDot:1

               GOTO EXIT^INHOV1

 +23      ;

 +24      ;Go to compilation and display module

 +25       GOTO EN^INHOV1

 +26       QUIT 

 +27      ;

PAR()     ;User parameters

 +1       ;OUTPUT:

 +2       ;  INPAR - array of report parameters

 +3       ;  function - user did not abort ( 0 - no ; 1 - yes )

 +4       ;

 +5        KILL INPAR

 +6       ;detail report

           SET INPAR("DETAIL")=1

 +7       ;repaint frequency

           SET INPAR("REPAINT")=5

 +8       ;number of report scans to run (printer)  

           SET INPAR("ITER")=100

 +9       ;

 +10      ;Quit if user accepts default parameters

 +11       SET %=$$RD^INHUTS1("Modify default parameters")

           IF '%

               QUIT %'=U

           WRITE !

 +12       SET INPAR("DETAIL")=$$RD^INHUTS1("Detailed Report",INPAR("DETAIL"))

           IF INPAR("DETAIL")=U

               QUIT 0

 +13       SET INPAR("REPAINT")=$$RD^INHUTS1("Repaint Frequency (sec)",INPAR("REPAINT"),"0,3600")

           IF INPAR("REPAINT")=U

               QUIT 0

 +14       SET INPAR("ITER")=$$RD^INHUTS1("Maximum number of iterations (printer only)",INPAR("ITER"),"0,999")

           IF INPAR("ITER")=U

               QUIT 0

 +15       QUIT 1