HMPMONS ;ASMR/BL, synch process support;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
;
US ; update synch-process screen
N EXIT S EXIT=0 ; exit will stop the display
F Q:EXIT D
. S HMPMNTR("default")="BM" ; default for this screen
. D FORMFEED^HMPMONL
. W !,$$HDR^HMPMONL("eHMP Synch Processes"),! ; header line
. W !!,"You have selected the Update Synch Process Screen."
. D PROMPT^HMPMONA(.HMPACT,"SYNC")
. I HMPACT="US" Q ; update synch screen, nothing to do
. I (HMPACT="BM")!$D(DTOUT)!$D(DUOUT)!$D(DIROUT) S EXIT=1 Q
. S LNTAG=$P(HMPCALLS(HMPACT),";",3)
. D @LNTAG S EXIT=HMPMNTR("exit") Q:HMPMNTR("exit") ; perform user-selected action, exit if flag set
. D RTRN2CON^HMPMONL ; return to continue
Q
;
ES ; examine synch process
D FORMFEED^HMPMONL
W !,$$HDR^HMPMONL("Examine Synch Process"),! ; header line
W !!,"You have selected the synch-process-action Examine Synch Process."
D NOTYET^HMPMONL Q
;
PS ; park synch process
D FORMFEED^HMPMONL
W !,$$HDR^HMPMONL("Park Synch Process"),! ; header line
W !!,"You have selected Park Synch Process action."
D NOTYET^HMPMONL Q
;
RS ; restart synch process
D FORMFEED^HMPMONL
W !,$$HDR^HMPMONL("Restart Synch Process"),! ; header line
W !!,"You have selected the synch-process-action Restart Synch Process."
D NOTYET^HMPMONL Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHMPMONS 1545 printed Dec 13, 2024@01:54:22 Page 2
HMPMONS ;ASMR/BL, synch process support;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 ;
US ; update synch-process screen
+1 ; exit will stop the display
NEW EXIT
SET EXIT=0
+2 FOR
if EXIT
QUIT
Begin DoDot:1
+3 ; default for this screen
SET HMPMNTR("default")="BM"
+4 DO FORMFEED^HMPMONL
+5 ; header line
WRITE !,$$HDR^HMPMONL("eHMP Synch Processes"),!
+6 WRITE !!,"You have selected the Update Synch Process Screen."
+7 DO PROMPT^HMPMONA(.HMPACT,"SYNC")
+8 ; update synch screen, nothing to do
IF HMPACT="US"
QUIT
+9 IF (HMPACT="BM")!$DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
SET EXIT=1
QUIT
+10 SET LNTAG=$PIECE(HMPCALLS(HMPACT),";",3)
+11 ; perform user-selected action, exit if flag set
DO @LNTAG
SET EXIT=HMPMNTR("exit")
if HMPMNTR("exit")
QUIT
+12 ; return to continue
DO RTRN2CON^HMPMONL
End DoDot:1
+13 QUIT
+14 ;
ES ; examine synch process
+1 DO FORMFEED^HMPMONL
+2 ; header line
WRITE !,$$HDR^HMPMONL("Examine Synch Process"),!
+3 WRITE !!,"You have selected the synch-process-action Examine Synch Process."
+4 DO NOTYET^HMPMONL
QUIT
+5 ;
PS ; park synch process
+1 DO FORMFEED^HMPMONL
+2 ; header line
WRITE !,$$HDR^HMPMONL("Park Synch Process"),!
+3 WRITE !!,"You have selected Park Synch Process action."
+4 DO NOTYET^HMPMONL
QUIT
+5 ;
RS ; restart synch process
+1 DO FORMFEED^HMPMONL
+2 ; header line
WRITE !,$$HDR^HMPMONL("Restart Synch Process"),!
+3 WRITE !!,"You have selected the synch-process-action Restart Synch Process."
+4 DO NOTYET^HMPMONL
QUIT
+5 ;
