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

ECDSONL.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECDSONL   289     printed  Apr 09, 2024@21:02:21                                                                                                                                                                                                      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