HMPMONEH.m

HMPMONEH ;ASMR/BL,JCH monitor error help ;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

 ;

ERRHELP ; ^DIR ? help for error-action prompt

 W !,"The available actions at the eHMP Monitor's error screen include:",!

 W !,"BM = Back to Monitor, to return to Monitor's main screen."

 W !,"UE = Update Error Screen, to refresh the error screen. This is the"

 W !,"     default action in this screen, which automatically updates."

 W !,"E3 = To display "_$NA(^TMP("HMPERR","JOB#"))_" errors"

 W !,"E4 = To display "_$NA(^TMP("HMPFERR","JOB#"))_" errors"

 W !,"E5 = To display "_$NA(^TMP("JOB#","HMP ERROR"))_" errors"

 W !,"EX = To display "_$NA(^XTMP("HMP*"))_" errors"

 W !,"BM = Back to Monitor, to return to Monitor's main screen."

 W !,"Q  = Quit, to exit the monitor"

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---HMPMONEH   981     printed  Mar 13, 2025@20:58:53                                                                                                                                                                                                     Page 2

HMPMONEH  ;ASMR/BL,JCH monitor error help ;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       ;

ERRHELP   ; ^DIR ? help for error-action prompt

 +1        WRITE !,"The available actions at the eHMP Monitor's error screen include:",!

 +2        WRITE !,"BM = Back to Monitor, to return to Monitor's main screen."

 +3        WRITE !,"UE = Update Error Screen, to refresh the error screen. This is the"

 +4        WRITE !,"     default action in this screen, which automatically updates."

 +5        WRITE !,"E3 = To display "_$NAME(^TMP("HMPERR","JOB#"))_" errors"

 +6        WRITE !,"E4 = To display "_$NAME(^TMP("HMPFERR","JOB#"))_" errors"

 +7        WRITE !,"E5 = To display "_$NAME(^TMP("JOB#","HMP ERROR"))_" errors"

 +8        WRITE !,"EX = To display "_$NAME(^XTMP("HMP*"))_" errors"

 +9        WRITE !,"BM = Back to Monitor, to return to Monitor's main screen."

 +10       WRITE !,"Q  = Quit, to exit the monitor"

 +11       QUIT 

 +12      ;