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 ---[H[J[2J[HECPROV2 1388 printed Oct 16, 2024@17:59:08 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
