- PSD94P ;DAL/JCH - PSD REMOVE DETOX/X-WAIVER POST INSTALL ; 07/18/23 08:46
- ;;3.0;CONTROLLED SUBSTANCES ;**94**;13 Feb 97;Build 4
- ;
- ; Reference to OUT^XPDMENU in ICR #1157
- ;
- Q
- ;
- POST ;The listed option is placed out of order
- D BMES^XPDUTL("...Placing menu options out of order...")
- N PSDOO,AA,I S PSDOO="PLACED OUT OF ORDER BY PSD*3*94"
- F I=1:1:1 S AA=$P($T(OO+I),";;",2) Q:AA="" D OUT^XPDMENU(AA,PSDOO)
- Q
- ;
- ;
- OO ;
- ;;PSD DEA SUBOXONE
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSD94P 462 printed Jan 18, 2025@02:45:59 Page 2
- PSD94P ;DAL/JCH - PSD REMOVE DETOX/X-WAIVER POST INSTALL ; 07/18/23 08:46
- +1 ;;3.0;CONTROLLED SUBSTANCES ;**94**;13 Feb 97;Build 4
- +2 ;
- +3 ; Reference to OUT^XPDMENU in ICR #1157
- +4 ;
- +5 QUIT
- +6 ;
- POST ;The listed option is placed out of order
- +1 DO BMES^XPDUTL("...Placing menu options out of order...")
- +2 NEW PSDOO,AA,I
- SET PSDOO="PLACED OUT OF ORDER BY PSD*3*94"
- +3 FOR I=1:1:1
- SET AA=$PIECE($TEXT(OO+I),";;",2)
- if AA=""
- QUIT
- DO OUT^XPDMENU(AA,PSDOO)
- +4 QUIT
- +5 ;
- +6 ;
- OO ;
- +1 ;;PSD DEA SUBOXONE