Routine: PSD94P

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

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)

OO ;

 ;;PSD DEA SUBOXONE

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSD94P   462     printed  Apr 09, 2024@20:51:23                                                                                                                                                                                                       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

PSD94P.m