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 Nov 22, 2024@16:56:31 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
