PSS1P261.m

PSS1P261 ;WILM/BDB - Patch PSS*1*261 Post init ;08/04/23

 ;;1.0;PHARMACY DATA MANAGEMENT;**261**;9/30/97;Build 3

 ;Per VHA Directive 2004-038 this routine should not be modified.

 ;

 Q

POST ;

 ;Place the PSS option out of order

 D BMES^XPDUTL("...Placing PSS BUPRENORPHINE VAPRODS menu option out of order...")

 D OUT^XPDMENU("PSS BUPRENORPHINE VAPRODS"," PLACED OUT OF ORDER BY PSS*1*261")

 D BMES^XPDUTL("...Out of order task complete...")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSS1P261   460     printed  Apr 09, 2024@21:35:11                                                                                                                                                                                                     Page 2

PSS1P261  ;WILM/BDB - Patch PSS*1*261 Post init ;08/04/23

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**261**;9/30/97;Build 3

 +2       ;Per VHA Directive 2004-038 this routine should not be modified.

 +3       ;

 +4        QUIT 

POST      ;

 +1       ;Place the PSS option out of order

 +2        DO BMES^XPDUTL("...Placing PSS BUPRENORPHINE VAPRODS menu option out of order...")

 +3        DO OUT^XPDMENU("PSS BUPRENORPHINE VAPRODS"," PLACED OUT OF ORDER BY PSS*1*261")

 +4        DO BMES^XPDUTL("...Out of order task complete...")

 +5        QUIT 

 +6       ;