ECPROV ;BIR/MAM,RHK,JPW-Event Capture Provider Summary ;1 May 96
;;2.0; EVENT CAPTURE ;;8 May 96
LOC 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))
I '$D(ECLOC(1)) W !!,"There are no current locations defined for this facility. please contact",!,"the Event Capture Package Coordinator." G END
I '$D(ECLOC(2)) S ECL=$P(ECLOC(1),"^",2),ECLN=$P(ECLOC(1),"^") D UNIT^ECPROV1 G END
ALL W @IOF,!!,"Do you want to print this report for all locations ? YES// " R ECYN:DTIME I '$T!(ECYN="^") S ECOUT=1 G END
S ECYN=$E(ECYN) S:ECYN="" ECYN="Y"
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"
I "YyNn"'[ECYN W !!,"Press <RET> to continue " R X:DTIME G ALL
I "Yy"[ECYN S ECL="ALL" D UNIT^ECPROV1 G END
SELL ;
D ^ECL I '$D(ECL) G END
D UNIT^ECPROV1
END W ! I 'ECOUT,$E(IOST,1,2)="C-" W !!,"Press <RET> to continue " R X:DTIME
D ^ECKILL W @IOF D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECPROV 1126 printed Dec 13, 2024@01:58:23 Page 2
ECPROV ;BIR/MAM,RHK,JPW-Event Capture Provider Summary ;1 May 96
+1 ;;2.0; EVENT CAPTURE ;;8 May 96
LOC SET (CNT,ECOUT,LOC)=0
FOR I=0:0
SET LOC=$ORDER(^DIC(4,"LOC",LOC))
if LOC=""
QUIT
SET CNT=CNT+1
SET ECLOC(CNT)=LOC_"^"_$ORDER(^DIC(4,"LOC",LOC,0))
+1 IF '$DATA(ECLOC(1))
WRITE !!,"There are no current locations defined for this facility. please contact",!,"the Event Capture Package Coordinator."
GOTO END
+2 IF '$DATA(ECLOC(2))
SET ECL=$PIECE(ECLOC(1),"^",2)
SET ECLN=$PIECE(ECLOC(1),"^")
DO UNIT^ECPROV1
GOTO END
ALL WRITE @IOF,!!,"Do you want to print this report for all locations ? YES// "
READ ECYN:DTIME
IF '$TEST!(ECYN="^")
SET ECOUT=1
GOTO END
+1 SET ECYN=$EXTRACT(ECYN)
if ECYN=""
SET ECYN="Y"
+2 IF "YyNn"'[ECYN
WRITE !!,"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"
+3 IF "YyNn"'[ECYN
WRITE !!,"Press <RET> to continue "
READ X:DTIME
GOTO ALL
+4 IF "Yy"[ECYN
SET ECL="ALL"
DO UNIT^ECPROV1
GOTO END
SELL ;
+1 DO ^ECL
IF '$DATA(ECL)
GOTO END
+2 DO UNIT^ECPROV1
END WRITE !
IF 'ECOUT
IF $EXTRACT(IOST,1,2)="C-"
WRITE !!,"Press <RET> to continue "
READ X:DTIME
+1 DO ^ECKILL
WRITE @IOF
DO ^%ZISC
if $DATA(ZTQUEUED)
SET ZTREQ="@"
+2 QUIT
