PSB3P142.m

PSB3P142 ;WILM/BDB - Patch PSB*3*142 Post init ;05/10/23

 ;;3.0;BAR CODE MED ADMIN;**47,76,142**;Mar 2004;Build 12

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

 ;

 Q

POST ;

 ;Unschedule the PSB option

 D BMES^XPDUTL("...Unscheduling PSB PX BCMA2PCE TASK...")

 D RESCH^XUTMOPT("PSB PX BCMA2PCE TASK","@","","@")

 D BMES^XPDUTL("...Unscheduling complete...")

 ;Place the PSB option out of order

 D BMES^XPDUTL("...Placing PSB PX BCMA2PCE TASK menu option out of order...")

 D OUT^XPDMENU("PSB PX BCMA2PCE TASK"," Obsolete; Use CPRS Immunization Documentation")

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

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSB3P142   653     printed  Apr 09, 2024@20:44:54                                                                                                                                                                                                     Page 2

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

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

 +3       ;

 +4        QUIT 

POST      ;

 +1       ;Unschedule the PSB option

 +2        DO BMES^XPDUTL("...Unscheduling PSB PX BCMA2PCE TASK...")

 +3        DO RESCH^XUTMOPT("PSB PX BCMA2PCE TASK","@","","@")

 +4        DO BMES^XPDUTL("...Unscheduling complete...")

 +5       ;Place the PSB option out of order

 +6        DO BMES^XPDUTL("...Placing PSB PX BCMA2PCE TASK menu option out of order...")

 +7        DO OUT^XPDMENU("PSB PX BCMA2PCE TASK"," Obsolete; Use CPRS Immunization Documentation")

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

 +9        QUIT 

 +10      ;