PSDHELP.m

PSDHELP ;B'ham ISC/LTL - CS online documentation ; 10 May 95

 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

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

 S DIR(0)="S^1:VIEW HELP;2:PRINT HELP"

 D ^DIR G:'Y QUIT

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

 S XQHFY=XQH D ACTION^XQH4

QUIT Q

PSDHELP   ;B'ham ISC/LTL - CS online documentation ; 10 May 95

 +1       ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

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

 +3        SET DIR(0)="S^1:VIEW HELP;2:PRINT HELP"

 +4        DO ^DIR

           IF 'Y

               GOTO QUIT

 +5        SET XQH="PSD NURSE"

           IF Y=1

               DO EN^XQH

               GOTO QUIT

 +6        SET XQHFY=XQH

           DO ACTION^XQH4

QUIT       QUIT