- 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 23, 2025@18:00:48 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
