HMPMONS.m

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 ---HMPMONS   1545     printed  Apr 09, 2024@20:58:55                                                                                                                                                                                                     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       ;