source: FOIAVistA/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/ECDSONL.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 279 bytes
Line 
1ECDSONL ;BIR/RHK - Event Capture Online Documentation ;25 Apr 95
2 ;;2.0; EVENT CAPTURE ;;8 May 96
3 N DIR,DIRUT,XQH,XQHFY,X,Y
4 S DIR(0)="SO^1:Interactive Help;2:Documentation"
5 D ^DIR G:'Y QUIT
6 S XQH="ECDSONLINE" I Y=1 D EN^XQH G QUIT
7 S XQHFY=XQH D ACTION^XQH4
8QUIT ;
9 K DIR
10 Q
Note: See TracBrowser for help on using the repository browser.