Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSD94P

PSD94P.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ; Reference to OUT^XPDMENU in ICR #1157
  1. ;
  1. Q
  1. ;
  1. POST ;The listed option is placed out of order
  1. D BMES^XPDUTL("...Placing menu options out of order...")
  1. N PSDOO,AA,I S PSDOO="PLACED OUT OF ORDER BY PSD*3*94"
  1. F I=1:1:1 S AA=$P($T(OO+I),";;",2) Q:AA="" D OUT^XPDMENU(AA,PSDOO)
  1. Q
  1. ;
  1. ;
  1. OO ;
  1. ;;PSD DEA SUBOXONE