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

PSDHELP.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSDHELP   270     printed  Apr 09, 2024@20:53:28                                                                                                                                                                                                      Page 2

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