HBHC32PS ;HPS/DSK - HBH*1.0*32 Post-Install Routine; May 01, 2021@17:43
;;1.0;HOSPITAL BASED HOME CARE;**32**;NOV 01, 1993;Build 58
;
;OUT^XPDMENU - IA #1157 (supported)
;BMES^XPDUTL - IA #10141 (supported)
;
Q
EN ;
;Place option "HBPC Provider File Report (132)" out of order.
N HBHCOPT
S HBHCOPT="HBHCRP8"
D OUT^XPDMENU(HBHCOPT,"(per patch HBH*1.0*32)")
D BMES^XPDUTL("Option ""HBPC Provider File Report (132)"" placed ""Out of Order"".")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHBHC32PS 470 printed Dec 13, 2024@01:57:55 Page 2
HBHC32PS ;HPS/DSK - HBH*1.0*32 Post-Install Routine; May 01, 2021@17:43
+1 ;;1.0;HOSPITAL BASED HOME CARE;**32**;NOV 01, 1993;Build 58
+2 ;
+3 ;OUT^XPDMENU - IA #1157 (supported)
+4 ;BMES^XPDUTL - IA #10141 (supported)
+5 ;
+6 QUIT
EN ;
+1 ;Place option "HBPC Provider File Report (132)" out of order.
+2 NEW HBHCOPT
+3 SET HBHCOPT="HBHCRP8"
+4 DO OUT^XPDMENU(HBHCOPT,"(per patch HBH*1.0*32)")
+5 DO BMES^XPDUTL("Option ""HBPC Provider File Report (132)"" placed ""Out of Order"".")
+6 QUIT
