source: FOIAVistA/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/ECPROV2.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1ECPROV2 ;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 ;
6DATE 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
16START ; 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
23VAR ; 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
27END W @IOF D ^%ZISC W !! D ^ECKILL S:$D(ZTQUEUED) ZTREQ="@"
28 Q
Note: See TracBrowser for help on using the repository browser.