ADEKRP2.m

ADEKRP2 ; IHS/HQT/MJL - PRINT COMPILED REPORTS ;  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;**20**;APRIL 1999

ASKDEV(ADERTN,ADEDESC) ;EP - DEVICE SELECTION

 ;ADERTN=PROCESSING ROUTINE ENTRY POINT

 ;ADEDESC=DESCRIPTION

 ;Returns ADEIOP and ADEIOPAR

 K %ZIS,ADEIOP,IOP,ZTSK,ADEIOPAR

 W !!,"Enter 'Q' at the DEVICE prompt to queue this report to run in the background."

 S %ZIS="NQ"

 ;S %ZIS="MQ" ;IHS/DIT/ENM 10/29/09

 D ^%ZIS

 Q:POP

 S ADEIOP=ION_";"_IOM_";"_IOSL

 S ADEIOPAR=IOPAR

 Q:'$D(IO("Q"))

 D QUE

 ;IHS/DIT/ENM 10/29/09 START OF MODS

 ;FHL 9/9/98 I '$D(ZTSK) K IOP,ADEIOP G ASKDEV

 ;I '$D(ZTQUEUED) K IOP,ADEIOP G ASKDEV

 W:$D(ZTSK) !,"Report is Queued!"

 Q

 ;D HOME^%ZIS

 ;W !,"REPORT IS QUEUED!"

 ;Q

 ;IHS/DIT/ENM END OF MODS

 ;

QUE ;

 N ADEJ

 S ZTRTN=ADERTN

 S ZTDESC=ADEDESC

 F ADEJ="ADEROPT","ADEIOP","ADEIOPAR","ADEYQ","ADEU" S ZTSAVE(ADEJ)=""

 S ZTIO=""

 I $D(IO("HFSIO")) D

 . S ZTIO=ADEIOP

 D ^%ZTLOAD

 Q

 ;

END ;EP - END PROCESSING

 I $D(ADEU) L -^TMP("ADEP",ADEU)

 K ADEU

 Q

ADEKRP2   ; IHS/HQT/MJL - PRINT COMPILED REPORTS ;  [ 03/24/1999   9:04 AM ]

 +1       ;;6.0;ADE;**20**;APRIL 1999

ASKDEV(ADERTN,ADEDESC) ;EP - DEVICE SELECTION

 +1       ;ADERTN=PROCESSING ROUTINE ENTRY POINT

 +2       ;ADEDESC=DESCRIPTION

 +3       ;Returns ADEIOP and ADEIOPAR

 +4        KILL %ZIS,ADEIOP,IOP,ZTSK,ADEIOPAR

 +5        WRITE !!,"Enter 'Q' at the DEVICE prompt to queue this report to run in the background."

 +6        SET %ZIS="NQ"

 +7       ;S %ZIS="MQ" ;IHS/DIT/ENM 10/29/09

 +8        DO ^%ZIS

 +9        IF POP

               QUIT 

 +10       SET ADEIOP=ION_";"_IOM_";"_IOSL

 +11       SET ADEIOPAR=IOPAR

 +12       IF '$DATA(IO("Q"))

               QUIT 

 +13       DO QUE

 +14      ;IHS/DIT/ENM 10/29/09 START OF MODS

 +15      ;FHL 9/9/98 I '$D(ZTSK) K IOP,ADEIOP G ASKDEV

 +16      ;I '$D(ZTQUEUED) K IOP,ADEIOP G ASKDEV

 +17       IF $DATA(ZTSK)

               WRITE !,"Report is Queued!"

 +18       QUIT 

 +19      ;D HOME^%ZIS

 +20      ;W !,"REPORT IS QUEUED!"

 +21      ;Q

 +22      ;IHS/DIT/ENM END OF MODS

 +23      ;

QUE       ;

 +1        NEW ADEJ

 +2        SET ZTRTN=ADERTN

 +3        SET ZTDESC=ADEDESC

 +4        FOR ADEJ="ADEROPT","ADEIOP","ADEIOPAR","ADEYQ","ADEU"

               SET ZTSAVE(ADEJ)=""

 +5        SET ZTIO=""

 +6        IF $DATA(IO("HFSIO"))

               Begin DoDot:1

 +7                SET ZTIO=ADEIOP

               End DoDot:1

 +8        DO ^%ZTLOAD

 +9        QUIT 

 +10      ;

END       ;EP - END PROCESSING

 +1        IF $DATA(ADEU)

               LOCK -^TMP("ADEP",ADEU)

 +2        KILL ADEU

 +3        QUIT