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

PSB3P142.m

Go to the documentation of this file.
  1. PSB3P142 ;WILM/BDB - Patch PSB*3*142 Post init ;05/10/23
  1. ;;3.0;BAR CODE MED ADMIN;**47,76,142**;Mar 2004;Build 12
  1. ;Per VHA Directive 2004-038 this routine should not be modified.
  1. ;
  1. Q
  1. POST ;
  1. ;Unschedule the PSB option
  1. D BMES^XPDUTL("...Unscheduling PSB PX BCMA2PCE TASK...")
  1. D RESCH^XUTMOPT("PSB PX BCMA2PCE TASK","@","","@")
  1. D BMES^XPDUTL("...Unscheduling complete...")
  1. ;Place the PSB option out of order
  1. D BMES^XPDUTL("...Placing PSB PX BCMA2PCE TASK menu option out of order...")
  1. D OUT^XPDMENU("PSB PX BCMA2PCE TASK"," Obsolete; Use CPRS Immunization Documentation")
  1. D BMES^XPDUTL("...Out of order task complete...")
  1. Q
  1. ;