Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ECL

ECL.m

Go to the documentation of this file.
  1. ECL ;BIR/MAM-Get Event Capture Location ;17 May 89
  1. ;;2.0; EVENT CAPTURE ;**25**;8 May 96
  1. S ECOUT=0
  1. D GETLOC(.LOC)
  1. I '$D(LOC(1)) D R X:5 W @IOF Q
  1. . W !!,"You have no locations flagged for Event Capture.",!
  1. S:'$D(LOC(2)) ECLN=$P(LOC(1),"^"),ECL=$P(LOC(1),"^",2)
  1. I $D(LOC(2)) D LL I '$D(ECL) Q
  1. I '$G(NOTIOF) W @IOF
  1. Q
  1. GETLOC(LOC) ;Get all event capture locations
  1. N I,CNT
  1. S (X,CNT)=0
  1. F I=0:0 S X=$O(^DIC(4,"LOC",X)) Q:X="" D
  1. . S CNT=CNT+1,LOC(CNT)=X,Y=$O(^DIC(4,"LOC",X,0)),LOC(CNT)=LOC(CNT)_"^"_Y
  1. Q
  1. LL ; select location
  1. W:'$G(NOTIOF) @IOF W !,"Event Capture Locations: ",!
  1. S CNT=0 F I=0:0 S CNT=$O(LOC(CNT)) Q:'CNT W !,CNT_". "_$P(LOC(CNT),"^")
  1. ASK W !!,"Select Number: " R X:DTIME Q:'$T!("^"[X)!(X="")
  1. I '$D(LOC(X)) D G LL
  1. . W !!,"Enter the number corresponding to the location you want to "
  1. . W "select.",!!,"Press <RET> to continue"
  1. . R X:DTIME
  1. S ECL=$P(LOC(X),"^",2),ECLN=$P(LOC(X),"^")
  1. Q