source: WorldVistAEHR/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/ECPROV.m@ 1141

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1ECPROV ;BIR/MAM,RHK,JPW-Event Capture Provider Summary ;1 May 96
2 ;;2.0; EVENT CAPTURE ;;8 May 96
3LOC S (CNT,ECOUT,LOC)=0 F I=0:0 S LOC=$O(^DIC(4,"LOC",LOC)) Q:LOC="" S CNT=CNT+1,ECLOC(CNT)=LOC_"^"_$O(^DIC(4,"LOC",LOC,0))
4 I '$D(ECLOC(1)) W !!,"There are no current locations defined for this facility. please contact",!,"the Event Capture Package Coordinator." G END
5 I '$D(ECLOC(2)) S ECL=$P(ECLOC(1),"^",2),ECLN=$P(ECLOC(1),"^") D UNIT^ECPROV1 G END
6ALL W @IOF,!!,"Do you want to print this report for all locations ? YES// " R ECYN:DTIME I '$T!(ECYN="^") S ECOUT=1 G END
7 S ECYN=$E(ECYN) S:ECYN="" ECYN="Y"
8 I "YyNn"'[ECYN W !!,"If you would like to generate this report for all divisions within",!,"this facility, enter <RET>. If you want a report containing procedures for",!,"a specific division, enter NO"
9 I "YyNn"'[ECYN W !!,"Press <RET> to continue " R X:DTIME G ALL
10 I "Yy"[ECYN S ECL="ALL" D UNIT^ECPROV1 G END
11SELL ;
12 D ^ECL I '$D(ECL) G END
13 D UNIT^ECPROV1
14END W ! I 'ECOUT,$E(IOST,1,2)="C-" W !!,"Press <RET> to continue " R X:DTIME
15 D ^ECKILL W @IOF D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"
16 Q
Note: See TracBrowser for help on using the repository browser.