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 ---[H[J[2J[HHMPMONEH 981 printed Dec 13, 2024@01:54:15 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 ;
