| [613] | 1 | ECL ;BIR/MAM-Get Event Capture Location ;17 May 89
|
|---|
| 2 | ;;2.0; EVENT CAPTURE ;**25**;8 May 96
|
|---|
| 3 | S ECOUT=0
|
|---|
| 4 | D GETLOC(.LOC)
|
|---|
| 5 | I '$D(LOC(1)) D R X:5 W @IOF Q
|
|---|
| 6 | . W !!,"You have no locations flagged for Event Capture.",!
|
|---|
| 7 | S:'$D(LOC(2)) ECLN=$P(LOC(1),"^"),ECL=$P(LOC(1),"^",2)
|
|---|
| 8 | I $D(LOC(2)) D LL I '$D(ECL) Q
|
|---|
| 9 | I '$G(NOTIOF) W @IOF
|
|---|
| 10 | Q
|
|---|
| 11 | GETLOC(LOC) ;Get all event capture locations
|
|---|
| 12 | N I,CNT
|
|---|
| 13 | S (X,CNT)=0
|
|---|
| 14 | F I=0:0 S X=$O(^DIC(4,"LOC",X)) Q:X="" D
|
|---|
| 15 | . S CNT=CNT+1,LOC(CNT)=X,Y=$O(^DIC(4,"LOC",X,0)),LOC(CNT)=LOC(CNT)_"^"_Y
|
|---|
| 16 | Q
|
|---|
| 17 | LL ; select location
|
|---|
| 18 | W:'$G(NOTIOF) @IOF W !,"Event Capture Locations: ",!
|
|---|
| 19 | S CNT=0 F I=0:0 S CNT=$O(LOC(CNT)) Q:'CNT W !,CNT_". "_$P(LOC(CNT),"^")
|
|---|
| 20 | ASK W !!,"Select Number: " R X:DTIME Q:'$T!("^"[X)!(X="")
|
|---|
| 21 | I '$D(LOC(X)) D G LL
|
|---|
| 22 | . W !!,"Enter the number corresponding to the location you want to "
|
|---|
| 23 | . W "select.",!!,"Press <RET> to continue"
|
|---|
| 24 | . R X:DTIME
|
|---|
| 25 | S ECL=$P(LOC(X),"^",2),ECLN=$P(LOC(X),"^")
|
|---|
| 26 | Q
|
|---|
