ECED ;BIR/MAM,JPW-Enter Event Capture Data ;6 Mar 96
;;2.0; EVENT CAPTURE ;**1,4,5,11**;8 May 96
K ECHOICE,ECNEW
LOC K ECL D ^ECL K LOC I '$D(ECL) G END
UNIT ; get DSS unit
I $D(^XUSEC("ECALLU",DUZ)) K DIC S DIC=724,DIC("A")="Select DSS Unit: ",DIC(0)="QEAMZ",DIC("S")="I $D(^ECJ(""AP"",ECL,+Y))" D ^DIC K DIC G:Y<0 END S ECD=+Y,ECDN=$P(Y,"^",2),NODE=Y(0) D SETU G:'$D(ECD) UNIT D CAT^ECED1 G END
S (X,CNT)=0 F 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 entering procedures for ",!,"a DSS Unit. ",!!,"Press <RET> to continue " R X:DTIME G END
I '$D(UNIT(2)) S ECD=+$P(UNIT(1),"^"),ECDN=$P(UNIT(1),"^",2),NODE=$G(^ECD(ECD,0)) D SETU G:'$D(ECD) END D CAT^ECED1 G END
SELU S X=0 W @IOF,!,"DSS Units: ",! F 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 G END
I '$D(UNIT(X)) W !!,"Select the number that corresponds with the DSS unit for which you would like",!,"enter procedures.",!!,"Press <RET> to continue " R X:DTIME G SELU
S ECD=+$P(UNIT(X),"^"),ECDN=$P(UNIT(X),"^",2),NODE=$G(^ECD(ECD,0)) D SETU G:'$D(ECD) UNIT D CAT^ECED1
END D ^ECKILL W @IOF
K ^TMP("ECLKUP",$J),^TMP("ECPRO",$J)
Q
SETU ;set DSS Unit info
S MSG1=0
I '$D(NODE) D MSG K ECD,ECDN,NODE Q
I $P(NODE,"^",8)'=1 S MSG1=3 D MSG K ECD,ECDN,NODE S (ECOUT,MSG1)=0 Q
I $P(NODE,"^",6) S MSG1=2 D MSG K ECD,ECDN,NODE Q
S ECPCE="U~"_$S($P(NODE,"^",14)]"":$P(NODE,"^",14),1:"N")
I $O(^ECJ("AP",ECL,ECD,""))']"" S MSG1=1 D MSG K EC4,ECC,ECCN,ECD,ECDDT,ECDN,ECM,ECMN,ECPCL,ECS,ECSN,ECYN,NODE,^TMP("ECPRO",$J) S (ECOUT,MSG1)=0 Q
S ECS=+$P(NODE,"^",2),ECM=+$P(NODE,"^",3),ECDDT=$P(NODE,"^",12),ECDDT=$S(ECDDT="T":"NOW",ECDDT="N":"NOW",1:"")
S ECSN=$S($P($G(^DIC(49,ECS,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN"),ECMN=$S($P($G(^ECC(723,ECM,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")
S ECYNZ=+$P(NODE,"^",11)
Q
MSG ;unit msg
W !!,"The DSS Unit ",ECDN," that you selected within ",ECLN
W !,$S(MSG1=3:"is not defined for Event Capture use",MSG1=2:"is inactive",MSG1=1:"has no procedures defined",1:"is missing information"),"."
W:($D(^XUSEC("ECALLU",DUZ))!($D(UNIT(2)))) " Please select another DSS Unit."
W !!,"Press <RET> to continue " R X:DTIME
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECED 2433 printed Dec 13, 2024@01:57:19 Page 2
ECED ;BIR/MAM,JPW-Enter Event Capture Data ;6 Mar 96
+1 ;;2.0; EVENT CAPTURE ;**1,4,5,11**;8 May 96
+2 KILL ECHOICE,ECNEW
LOC KILL ECL
DO ^ECL
KILL LOC
IF '$DATA(ECL)
GOTO END
UNIT ; get DSS unit
+1 IF $DATA(^XUSEC("ECALLU",DUZ))
KILL DIC
SET DIC=724
SET DIC("A")="Select DSS Unit: "
SET DIC(0)="QEAMZ"
SET DIC("S")="I $D(^ECJ(""AP"",ECL,+Y))"
DO ^DIC
KILL DIC
if Y<0
GOTO END
SET ECD=+Y
SET ECDN=$PIECE(Y,"^",2)
SET NODE=Y(0)
DO SETU
if '$DATA(ECD)
GOTO UNIT
DO CAT^ECED1
GOTO END
+2 SET (X,CNT)=0
FOR
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),"^")
+3 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 entering procedures for ",!,"a DSS Unit. ",!!,"Press <RET> to continue "
READ X:DTIME
GOTO END
+4 IF '$DATA(UNIT(2))
SET ECD=+$PIECE(UNIT(1),"^")
SET ECDN=$PIECE(UNIT(1),"^",2)
SET NODE=$GET(^ECD(ECD,0))
DO SETU
if '$DATA(ECD)
GOTO END
DO CAT^ECED1
GOTO END
SELU SET X=0
WRITE @IOF,!,"DSS Units: ",!
FOR
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
GOTO END
+2 IF '$DATA(UNIT(X))
WRITE !!,"Select the number that corresponds with the DSS unit for which you would like",!,"enter procedures.",!!,"Press <RET> to continue "
READ X:DTIME
GOTO SELU
+3 SET ECD=+$PIECE(UNIT(X),"^")
SET ECDN=$PIECE(UNIT(X),"^",2)
SET NODE=$GET(^ECD(ECD,0))
DO SETU
if '$DATA(ECD)
GOTO UNIT
DO CAT^ECED1
END DO ^ECKILL
WRITE @IOF
+1 KILL ^TMP("ECLKUP",$JOB),^TMP("ECPRO",$JOB)
+2 QUIT
SETU ;set DSS Unit info
+1 SET MSG1=0
+2 IF '$DATA(NODE)
DO MSG
KILL ECD,ECDN,NODE
QUIT
+3 IF $PIECE(NODE,"^",8)'=1
SET MSG1=3
DO MSG
KILL ECD,ECDN,NODE
SET (ECOUT,MSG1)=0
QUIT
+4 IF $PIECE(NODE,"^",6)
SET MSG1=2
DO MSG
KILL ECD,ECDN,NODE
QUIT
+5 SET ECPCE="U~"_$SELECT($PIECE(NODE,"^",14)]"":$PIECE(NODE,"^",14),1:"N")
+6 IF $ORDER(^ECJ("AP",ECL,ECD,""))']""
SET MSG1=1
DO MSG
KILL EC4,ECC,ECCN,ECD,ECDDT,ECDN,ECM,ECMN,ECPCL,ECS,ECSN,ECYN,NODE,^TMP("ECPRO",$JOB)
SET (ECOUT,MSG1)=0
QUIT
+7 SET ECS=+$PIECE(NODE,"^",2)
SET ECM=+$PIECE(NODE,"^",3)
SET ECDDT=$PIECE(NODE,"^",12)
SET ECDDT=$SELECT(ECDDT="T":"NOW",ECDDT="N":"NOW",1:"")
+8 SET ECSN=$SELECT($PIECE($GET(^DIC(49,ECS,0)),"^")]"":$PIECE(^(0),"^"),1:"UNKNOWN")
SET ECMN=$SELECT($PIECE($GET(^ECC(723,ECM,0)),"^")]"":$PIECE(^(0),"^"),1:"UNKNOWN")
+9 SET ECYNZ=+$PIECE(NODE,"^",11)
+10 QUIT
MSG ;unit msg
+1 WRITE !!,"The DSS Unit ",ECDN," that you selected within ",ECLN
+2 WRITE !,$SELECT(MSG1=3:"is not defined for Event Capture use",MSG1=2:"is inactive",MSG1=1:"has no procedures defined",1:"is missing information"),"."
+3 if ($DATA(^XUSEC("ECALLU",DUZ))!($DATA(UNIT(2))))
WRITE " Please select another DSS Unit."
+4 WRITE !!,"Press <RET> to continue "
READ X:DTIME
+5 QUIT
