ECPROV2.m

ECPROV2 ;BIR/MAM-Event Capture Provider Summary (cont'd) ;12/11/12  09:40

 ;;2.0;EVENT CAPTURE;**5,47,69,119**;8 May 96;Build 12

 ;

 D REASON^ECRUTL ;* Prompt to report Procedure Reasons

 ;

DATE W ! K %DT S %DT="AEX",%DT("A")="Start with Date: " D ^%DT I Y<0 S ECOUT=1 Q

 S ECSD=Y,ECDATE=$$FMTE^XLFDT(ECSD),%DT("A")="End with Date: " D ^%DT I Y<0 S ECOUT=1 Q

 I Y<ECSD W !!,"The ending date of the range must be later than the starting date." G DATE

 S ECED=Y,ECDATE=ECDATE_"^"_$$FMTE^XLFDT(ECED),ECSD=ECSD-.0001,ECED=ECED+.9999

 ;

 ;ALB/ESD - Print report length informational message

 W !,"This report is formatted for 132 column output."

 W ! K IOP,POP,IO("Q"),%ZIS S %ZIS="QM",%ZIS("A")="Select Device: " D ^%ZIS I POP S ECOUT=1 Q

 I $D(IO("Q")) K IO("Q") S ZTDESC="EVENT CAPTURE PROVIDER SUMMARY",ZTRTN="START^ECPROV2",ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL D VAR,^%ZTLOAD,HOME^%ZIS K ZTSK Q

 U IO

START ; entry when queued

 N ECPRV

 K ^TMP("ECTMP",$J) S ECINC=0 ;119 Change temporary storage location

 S ECPRV=$S(ECD="SOME":1,ECD="ALL":2,1:0) D ^ECPROV3

 K ^TMP("ECTMP",$J) I $D(ECGUI) D ^ECKILL Q  ;119

 G:$D(ZTQUEUED) END

 Q

VAR ; set ZTSAVE array

 S:'$D(UNIT) UNIT="" S (ZTSAVE("ECD*"),ZTSAVE("ECL*"),ZTSAVE("ECED"),ZTSAVE("ECSD"),ZTSAVE("ECDATE"),ZTSAVE("UNIT*"))=""

 S ZTSAVE("ECRY")=""

 Q

END W @IOF D ^%ZISC W !! D ^ECKILL S:$D(ZTQUEUED) ZTREQ="@"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECPROV2   1388     printed  Apr 09, 2024@21:00:17                                                                                                                                                                                                     Page 2

ECPROV2   ;BIR/MAM-Event Capture Provider Summary (cont'd) ;12/11/12  09:40

 +1       ;;2.0;EVENT CAPTURE;**5,47,69,119**;8 May 96;Build 12

 +2       ;

 +3       ;* Prompt to report Procedure Reasons

           DO REASON^ECRUTL

 +4       ;

DATE       WRITE !

           KILL %DT

           SET %DT="AEX"

           SET %DT("A")="Start with Date: "

           DO ^%DT

           IF Y<0

               SET ECOUT=1

               QUIT 

 +1        SET ECSD=Y

           SET ECDATE=$$FMTE^XLFDT(ECSD)

           SET %DT("A")="End with Date: "

           DO ^%DT

           IF Y<0

               SET ECOUT=1

               QUIT 

 +2        IF Y<ECSD

               WRITE !!,"The ending date of the range must be later than the starting date."

               GOTO DATE

 +3        SET ECED=Y

           SET ECDATE=ECDATE_"^"_$$FMTE^XLFDT(ECED)

           SET ECSD=ECSD-.0001

           SET ECED=ECED+.9999

 +4       ;

 +5       ;ALB/ESD - Print report length informational message

 +6        WRITE !,"This report is formatted for 132 column output."

 +7        WRITE !

           KILL IOP,POP,IO("Q"),%ZIS

           SET %ZIS="QM"

           SET %ZIS("A")="Select Device: "

           DO ^%ZIS

           IF POP

               SET ECOUT=1

               QUIT 

 +8        IF $DATA(IO("Q"))

               KILL IO("Q")

               SET ZTDESC="EVENT CAPTURE PROVIDER SUMMARY"

               SET ZTRTN="START^ECPROV2"

               SET ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL

               DO VAR

               DO ^%ZTLOAD

               DO HOME^%ZIS

               KILL ZTSK

               QUIT 

 +9        USE IO

START     ; entry when queued

 +1        NEW ECPRV

 +2       ;119 Change temporary storage location

           KILL ^TMP("ECTMP",$JOB)

           SET ECINC=0

 +3        SET ECPRV=$SELECT(ECD="SOME":1,ECD="ALL":2,1:0)

           DO ^ECPROV3

 +4       ;119

           KILL ^TMP("ECTMP",$JOB)

           IF $DATA(ECGUI)

               DO ^ECKILL

               QUIT 

 +5        if $DATA(ZTQUEUED)

               GOTO END

 +6        QUIT 

VAR       ; set ZTSAVE array

 +1        if '$DATA(UNIT)

               SET UNIT=""

           SET (ZTSAVE("ECD*"),ZTSAVE("ECL*"),ZTSAVE("ECED"),ZTSAVE("ECSD"),ZTSAVE("ECDATE"),ZTSAVE("UNIT*"))=""

 +2        SET ZTSAVE("ECRY")=""

 +3        QUIT 

END        WRITE @IOF

           DO ^%ZISC

           WRITE !!

           DO ^ECKILL

           if $DATA(ZTQUEUED)

               SET ZTREQ="@"

 +1        QUIT