HMPMONH.m

HMPMONH ;ASMR/BL, Monitor history ;Sep 13, 2016 20:03:08

 ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2,3**;April 14,2016;Build 15

 ;Per VA Directive 6402, this routine should not be modified.

 ;

 Q  ; no entry from top

 ;DE6644 - routine refactored, 7 September 2016

 ;for future enhancements, not implemented as of 7 September 2016

UH ;

 N Y S Y="Monitor History" W !,$J(Y,40-($L(Y)\2)) D RTRN2CON^HMPMONL Q

 ;

EH ;

 N Y S Y="Examine History" W !,$J(Y,40-($L(Y)\2)) D RTRN2CON^HMPMONL Q

 ;

MH ;

 N Y S Y="Manage History" W !,$J(Y,40-($L(Y)\2)) D RTRN2CON^HMPMONL Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HMPMONH   588     printed  Dec 13, 2024@01:54:16                                                                                                                                                                                                      Page 2

HMPMONH   ;ASMR/BL, Monitor history ;Sep 13, 2016 20:03:08

 +1       ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2,3**;April 14,2016;Build 15

 +2       ;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4       ; no entry from top

           QUIT 

 +5       ;DE6644 - routine refactored, 7 September 2016

 +6       ;for future enhancements, not implemented as of 7 September 2016

UH        ;

 +1        NEW Y

           SET Y="Monitor History"

           WRITE !,$JUSTIFY(Y,40-($LENGTH(Y)\2))

           DO RTRN2CON^HMPMONL

           QUIT 

 +2       ;

EH        ;

 +1        NEW Y

           SET Y="Examine History"

           WRITE !,$JUSTIFY(Y,40-($LENGTH(Y)\2))

           DO RTRN2CON^HMPMONL

           QUIT 

 +2       ;

MH        ;

 +1        NEW Y

           SET Y="Manage History"

           WRITE !,$JUSTIFY(Y,40-($LENGTH(Y)\2))

           DO RTRN2CON^HMPMONL

           QUIT 

 +2       ;