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 Dec 13, 2024@01:44:45 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
