HBHC32PS.m

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 ---HBHC32PS   470     printed  Feb 18, 2025@23:24:19                                                                                                                                                                                                     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