| 1 | ECPROV2 ;BIR/MAM-Event Capture Provider Summary (cont'd) ;20 Sep 93
|
|---|
| 2 | ;;2.0; EVENT CAPTURE ;**5,47,69**;8 May 96
|
|---|
| 3 | ;
|
|---|
| 4 | D REASON^ECRUTL ;* Prompt to report Procedure Reasons
|
|---|
| 5 | ;
|
|---|
| 6 | DATE W ! K %DT S %DT="AEX",%DT("A")="Start with Date: " D ^%DT I Y<0 S ECOUT=1 Q
|
|---|
| 7 | S ECSD=Y,ECDATE=$$FMTE^XLFDT(ECSD),%DT("A")="End with Date: " D ^%DT I Y<0 S ECOUT=1 Q
|
|---|
| 8 | I Y<ECSD W !!,"The ending date of the range must be later than the starting date." G DATE
|
|---|
| 9 | S ECED=Y,ECDATE=ECDATE_"^"_$$FMTE^XLFDT(ECED),ECSD=ECSD-.0001,ECED=ECED+.9999
|
|---|
| 10 | ;
|
|---|
| 11 | ;ALB/ESD - Print report length informational message
|
|---|
| 12 | W !,"This report is formatted for 132 column output."
|
|---|
| 13 | W ! K IOP,POP,IO("Q"),%ZIS S %ZIS="QM",%ZIS("A")="Select Device: " D ^%ZIS I POP S ECOUT=1 Q
|
|---|
| 14 | 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
|
|---|
| 15 | U IO
|
|---|
| 16 | START ; entry when queued
|
|---|
| 17 | N ECPRV
|
|---|
| 18 | K ^TMP($J) S ECINC=0
|
|---|
| 19 | S ECPRV=$S(ECD="SOME":1,ECD="ALL":2,1:0) D ^ECPROV3
|
|---|
| 20 | K ^TMP($J) I $D(ECGUI) D ^ECKILL Q
|
|---|
| 21 | G:$D(ZTQUEUED) END
|
|---|
| 22 | Q
|
|---|
| 23 | VAR ; set ZTSAVE array
|
|---|
| 24 | S:'$D(UNIT) UNIT="" S (ZTSAVE("ECD*"),ZTSAVE("ECL*"),ZTSAVE("ECED"),ZTSAVE("ECSD"),ZTSAVE("ECDATE"),ZTSAVE("UNIT*"))=""
|
|---|
| 25 | S ZTSAVE("ECRY")=""
|
|---|
| 26 | Q
|
|---|
| 27 | END W @IOF D ^%ZISC W !! D ^ECKILL S:$D(ZTQUEUED) ZTREQ="@"
|
|---|
| 28 | Q
|
|---|
