ECPROV1 ;BIR/MAM-Event Capture Provider Summary (cont'd) ;1 May 96
;;2.0; EVENT CAPTURE ;**5**;8 May 96
UNIT ; get DSS Unit
I '$D(^XUSEC("ECALLU",DUZ)) G PICKU
ALLU ; select unit
W !!,"Do you want this report for all DSS Units ? NO// " R ECYN:DTIME I '$T!(ECYN="^") S ECOUT=1 Q
S ECYN=$E(ECYN) S:ECYN="" ECYN="N" I "YyNn"'[ECYN W !!,"Enter <RET> if you would like to print this report for a specific DSS",!,"Unit, or YES to print it for all units.",!!,"Press <RET> to continue " R X:DTIME G ALLU
I "Yy"[ECYN S (ECD,ECDN)="ALL" D ^ECPROV2 Q
K DIC W ! S DIC=724,DIC("A")="Select DSS Unit: ",DIC(0)="QEAMZ" S:ECL DIC("S")="I $D(^ECJ(""AP"",ECL,+Y))" D ^DIC K DIC Q:Y<0 S ECD=+Y,ECDN=$P(Y,"^",2) D ^ECPROV2 Q
PICKU S (X,CNT)=0 F I=0:0 S X=$O(^VA(200,DUZ,"EC",X)) Q:'X S CNT=CNT+1,UNIT=$P(^VA(200,DUZ,"EC",X,0),"^"),UNIT(CNT)=UNIT_"^"_$P(^ECD(UNIT,0),"^")
I '$D(UNIT(1)) W !!,"You do not have access to any DSS Units. Contact your Event Capture",!,"Package Coordinator if you are responsible for generating reports for ",!,"a DSS Unit. ",!!,"Press <RET> to continue " R X:DTIME S ECOUT=1 Q
I '$D(UNIT(2)) S ECD=$P(UNIT(1),"^"),ECDN=$P(^ECD(ECD,0),"^") D ^ECPROV2 Q
SOMU W @IOF,!!,"Do you want this report for all accessible DSS Units ? NO// " R ECYN:DTIME I '$T!(ECYN="^") S ECOUT=1 Q
S ECYN=$E(ECYN) S:ECYN="" ECYN="N"
I "YyNn"'[ECYN W !!,"You have access to more than one DSS Unit. If you want to print",!,"the report for only one of those units, enter <RET>. To print the report for all of the units that you have access to, enter YES."
I "YyNn"'[ECYN W !!,"Press <RET> to continue " R X:DTIME G SOMU
I "Yy"[ECYN S (ECD,ECDN)="SOME" D ^ECPROV2 Q
SELU S X=0 W @IOF,!,"DSS Units: ",! F I=0:0 S X=$O(UNIT(X)) Q:'X W !,X_".",?5,$P(UNIT(X),"^",2)
W !!,"Select Number: " R X:DTIME I '$T!("^"[X) S ECOUT=1 Q
I '$D(UNIT(X)) W !!,"Select the number that corresponds with the DSS unit for which you would like",!,"print this report.",!!,"Press <RET> to continue " R X:DTIME G SELU
S ECD=$P(UNIT(X),"^"),ECDN=$P(UNIT(X),"^",2) D ^ECPROV2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECPROV1 2079 printed Dec 13, 2024@01:58:24 Page 2
ECPROV1 ;BIR/MAM-Event Capture Provider Summary (cont'd) ;1 May 96
+1 ;;2.0; EVENT CAPTURE ;**5**;8 May 96
UNIT ; get DSS Unit
+1 IF '$DATA(^XUSEC("ECALLU",DUZ))
GOTO PICKU
ALLU ; select unit
+1 WRITE !!,"Do you want this report for all DSS Units ? NO// "
READ ECYN:DTIME
IF '$TEST!(ECYN="^")
SET ECOUT=1
QUIT
+2 SET ECYN=$EXTRACT(ECYN)
if ECYN=""
SET ECYN="N"
IF "YyNn"'[ECYN
WRITE !!,"Enter <RET> if you would like to print this report for a specific DSS",!,"Unit, or YES to print it for all units.",!!,"Press <RET> to continue "
READ X:DTIME
GOTO ALLU
+3 IF "Yy"[ECYN
SET (ECD,ECDN)="ALL"
DO ^ECPROV2
QUIT
+4 KILL DIC
WRITE !
SET DIC=724
SET DIC("A")="Select DSS Unit: "
SET DIC(0)="QEAMZ"
if ECL
SET DIC("S")="I $D(^ECJ(""AP"",ECL,+Y))"
DO ^DIC
KILL DIC
if Y<0
QUIT
SET ECD=+Y
SET ECDN=$PIECE(Y,"^",2)
DO ^ECPROV2
QUIT
PICKU SET (X,CNT)=0
FOR I=0:0
SET X=$ORDER(^VA(200,DUZ,"EC",X))
if 'X
QUIT
SET CNT=CNT+1
SET UNIT=$PIECE(^VA(200,DUZ,"EC",X,0),"^")
SET UNIT(CNT)=UNIT_"^"_$PIECE(^ECD(UNIT,0),"^")
+1 IF '$DATA(UNIT(1))
WRITE !!,"You do not have access to any DSS Units. Contact your Event Capture",!,"Package Coordinator if you are responsible for generating reports for ",!,"a DSS Unit. ",!!,"Press <RET> to continue "
READ X:DTIME
SET ECOUT=1
QUIT
+2 IF '$DATA(UNIT(2))
SET ECD=$PIECE(UNIT(1),"^")
SET ECDN=$PIECE(^ECD(ECD,0),"^")
DO ^ECPROV2
QUIT
SOMU WRITE @IOF,!!,"Do you want this report for all accessible DSS Units ? NO// "
READ ECYN:DTIME
IF '$TEST!(ECYN="^")
SET ECOUT=1
QUIT
+1 SET ECYN=$EXTRACT(ECYN)
if ECYN=""
SET ECYN="N"
+2 IF "YyNn"'[ECYN
WRITE !!,"You have access to more than one DSS Unit. If you want to print",!,"the report for only one of those units, enter <RET>. To print the report for all of the units that you have access to, enter YES."
+3 IF "YyNn"'[ECYN
WRITE !!,"Press <RET> to continue "
READ X:DTIME
GOTO SOMU
+4 IF "Yy"[ECYN
SET (ECD,ECDN)="SOME"
DO ^ECPROV2
QUIT
SELU SET X=0
WRITE @IOF,!,"DSS Units: ",!
FOR I=0:0
SET X=$ORDER(UNIT(X))
if 'X
QUIT
WRITE !,X_".",?5,$PIECE(UNIT(X),"^",2)
+1 WRITE !!,"Select Number: "
READ X:DTIME
IF '$TEST!("^"[X)
SET ECOUT=1
QUIT
+2 IF '$DATA(UNIT(X))
WRITE !!,"Select the number that corresponds with the DSS unit for which you would like",!,"print this report.",!!,"Press <RET> to continue "
READ X:DTIME
GOTO SELU
+3 SET ECD=$PIECE(UNIT(X),"^")
SET ECDN=$PIECE(UNIT(X),"^",2)
DO ^ECPROV2
+4 QUIT
