ECDSONL.m

ECDSONL ;BIR/RHK - Event Capture Online Documentation ;25 Apr 95

 ;;2.0; EVENT CAPTURE ;;8 May 96

 N DIR,DIRUT,XQH,XQHFY,X,Y

 S DIR(0)="SO^1:Interactive Help;2:Documentation"

 D ^DIR G:'Y QUIT

 S XQH="ECDSONLINE" I Y=1 D EN^XQH G QUIT

 S XQHFY=XQH D ACTION^XQH4

QUIT ;

 K DIR

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECDSONL   289     printed  Nov 22, 2024@17:07:15                                                                                                                                                                                                      Page 2

ECDSONL   ;BIR/RHK - Event Capture Online Documentation ;25 Apr 95

 +1       ;;2.0; EVENT CAPTURE ;;8 May 96

 +2        NEW DIR,DIRUT,XQH,XQHFY,X,Y

 +3        SET DIR(0)="SO^1:Interactive Help;2:Documentation"

 +4        DO ^DIR

           if 'Y

               GOTO QUIT

 +5        SET XQH="ECDSONLINE"

           IF Y=1

               DO EN^XQH

               GOTO QUIT

 +6        SET XQHFY=XQH

           DO ACTION^XQH4

QUIT      ;

 +1        KILL DIR

 +2        QUIT