GMRCIBKM.m

GMRCIBKM ;SLC/JFR - MONITOR IFC BKG PARAMS ; 2/14/02 21:22

 ;;3.0;CONSULT/REQUEST TRACKING;**22**;DEC 27, 1997

EN ; -- main entry point for GMRC IFC MONITOR BKG JOB

 D REFRESH

 D EN^VALM("GMRC IF MONITOR BKG JOB")

 Q

 ;

HDR ; -- header code

 S VALMHDR(1)="Inter-facility Consults background job parameter display"

 Q

 ;

BLD ; Build list for LM display

 N GMRCBST,GMRCNOW,GMRCBFI,CNT,GMRCBSTE,GMRCBFIE,TXT

 K ^TMP("GMRCBK",$J)

 S GMRCNOW=$$NOW^XLFDT

 S GMRCBST=$$GET^XPAR("SYS","GMRC IFC BACKGROUND START",1)

 S GMRCBSTE=$S($G(GMRCBST):$$FMTE^XLFDT(GMRCBST),1:"Unknown")

 S GMRCBFI=$$GET^XPAR("SYS","GMRC IFC BACKGROUND FINISH",1)

 S GMRCBFIE=$S($G(GMRCBFI):$$FMTE^XLFDT(GMRCBFI),1:"Unknown")

 S ^TMP("GMRCBK",$J,1,0)=""

 I GMRCBST>GMRCNOW S TXT(2)="The IFC background job is delayed until: "

 I '$D(TXT(2)) S TXT(2)="The IFC background job last started:     "

 S ^TMP("GMRCBK",$J,2,0)=TXT(2)_GMRCBSTE

 S TXT(3)="The IFC background job last finished:    "

 S ^TMP("GMRCBK",$J,3,0)=TXT(3)_GMRCBFIE

 S ^TMP("GMRCBK",$J,4,0)=""

 I GMRCBST>GMRCNOW  D  Q

 . S ^TMP("GMRCBK",$J,5,0)="The start parameter for this job has been "

 . S ^TMP("GMRCBK",$J,6,0)="intentionally set to a future date/time."

 . S ^TMP("GMRCBK",$J,7,0)=""

 . S ^TMP("GMRCBK",$J,8,0)="The background job will not start until the "

 . S ^TMP("GMRCBK",$J,9,0)="date/time indicated in this parameter"

 I $$FMDIFF^XLFDT(GMRCBST,GMRCBFI,2)>4500 D  Q

 . S ^TMP("GMRCBK",$J,5,0)="The background job is overdue."

 . S ^TMP("GMRCBK",$J,6,0)="IRMS should review the system for errors"

 . S ^TMP("GMRCBK",$J,7,0)="related to the IFC background job."

 . S ^TMP("GMRCBK",$J,8,0)=" "

 . S ^TMP("GMRCBK",$J,9,0)="If errors can not be resolved, contact NVS"

 . S ^TMP("GMRCBK",$J,10,0)="for assistance."

 I GMRCNOW>GMRCBST,$$FMDIFF^XLFDT(GMRCNOW,GMRCBST,2)>4500 D  Q

 . S ^TMP("GMRCBK",$J,5,0)="The background job is overdue."

 . S ^TMP("GMRCBK",$J,6,0)="IRMS should review the system for errors"

 . S ^TMP("GMRCBK",$J,7,0)="related to the IFC background job."

 . S ^TMP("GMRCBK",$J,8,0)=" "

 . S ^TMP("GMRCBK",$J,9,0)="If errors can not be resolved, contact NVS"

 . S ^TMP("GMRCBK",$J,10,0)="for assistance."

 D  ; all is well

 . S ^TMP("GMRCBK",$J,5,0)="The IFC background job is on schedule or is"

 . S ^TMP("GMRCBK",$J,6,0)="running. "

 . S ^TMP("GMRCBK",$J,7,0)=""

 . S ^TMP("GMRCBK",$J,8,0)="It may be delayed by editing the start time"

 . S ^TMP("GMRCBK",$J,9,0)="to a future date/time using the Edit start "

 . S ^TMP("GMRCBK",$J,10,0)="time action."

 Q

 ;

EDSTRT ; edit the start parameter

 ;

 N DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT,GMRCLATE,GMRCSTRT

 D FULL^VALM1

 S GMRCLATE=$$FMADD^XLFDT($$NOW^XLFDT,4)

 S GMRCSTRT=$$GET^XPAR("SYS","GMRC IFC BACKGROUND START",1)

 S DIR(0)="D0A^"_DT_":"_GMRCLATE_":ETSR"

 S DIR("A",1)=""

 S DIR("A")="Next date/time the IFC background job should run: "

 S DIR("B")=$$FMTE^XLFDT(GMRCSTRT)

 D ^DIR

 I '+Y S VALMBCK="R" Q

 D EN^XPAR("SYS","GMRC IFC BACKGROUND START",1,Y)

 D REFRESH

 Q

 ;

REFRESH ; rebuild list

 D BLD

 S VALMBCK="R",VALMCNT=$O(^TMP("GMRCBK",$J," "),-1)

 S VALMBG=1

 Q

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ; -- exit code

 K ^TMP("GMRCBK",$J)

 S VALMBCK="Q"

 Q

 ;

GMRCIBKM  ;SLC/JFR - MONITOR IFC BKG PARAMS ; 2/14/02 21:22

 +1       ;;3.0;CONSULT/REQUEST TRACKING;**22**;DEC 27, 1997

EN        ; -- main entry point for GMRC IFC MONITOR BKG JOB

 +1        DO REFRESH

 +2        DO EN^VALM("GMRC IF MONITOR BKG JOB")

 +3        QUIT 

 +4       ;

HDR       ; -- header code

 +1        SET VALMHDR(1)="Inter-facility Consults background job parameter display"

 +2        QUIT 

 +3       ;

BLD       ; Build list for LM display

 +1        NEW GMRCBST,GMRCNOW,GMRCBFI,CNT,GMRCBSTE,GMRCBFIE,TXT

 +2        KILL ^TMP("GMRCBK",$JOB)

 +3        SET GMRCNOW=$$NOW^XLFDT

 +4        SET GMRCBST=$$GET^XPAR("SYS","GMRC IFC BACKGROUND START",1)

 +5        SET GMRCBSTE=$SELECT($GET(GMRCBST):$$FMTE^XLFDT(GMRCBST),1:"Unknown")

 +6        SET GMRCBFI=$$GET^XPAR("SYS","GMRC IFC BACKGROUND FINISH",1)

 +7        SET GMRCBFIE=$SELECT($GET(GMRCBFI):$$FMTE^XLFDT(GMRCBFI),1:"Unknown")

 +8        SET ^TMP("GMRCBK",$JOB,1,0)=""

 +9        IF GMRCBST>GMRCNOW

               SET TXT(2)="The IFC background job is delayed until: "

 +10       IF '$DATA(TXT(2))

               SET TXT(2)="The IFC background job last started:     "

 +11       SET ^TMP("GMRCBK",$JOB,2,0)=TXT(2)_GMRCBSTE

 +12       SET TXT(3)="The IFC background job last finished:    "

 +13       SET ^TMP("GMRCBK",$JOB,3,0)=TXT(3)_GMRCBFIE

 +14       SET ^TMP("GMRCBK",$JOB,4,0)=""

 +15       IF GMRCBST>GMRCNOW

               Begin DoDot:1

 +16               SET ^TMP("GMRCBK",$JOB,5,0)="The start parameter for this job has been "

 +17               SET ^TMP("GMRCBK",$JOB,6,0)="intentionally set to a future date/time."

 +18               SET ^TMP("GMRCBK",$JOB,7,0)=""

 +19               SET ^TMP("GMRCBK",$JOB,8,0)="The background job will not start until the "

 +20               SET ^TMP("GMRCBK",$JOB,9,0)="date/time indicated in this parameter"

               End DoDot:1

               QUIT 

 +21       IF $$FMDIFF^XLFDT(GMRCBST,GMRCBFI,2)>4500

               Begin DoDot:1

 +22               SET ^TMP("GMRCBK",$JOB,5,0)="The background job is overdue."

 +23               SET ^TMP("GMRCBK",$JOB,6,0)="IRMS should review the system for errors"

 +24               SET ^TMP("GMRCBK",$JOB,7,0)="related to the IFC background job."

 +25               SET ^TMP("GMRCBK",$JOB,8,0)=" "

 +26               SET ^TMP("GMRCBK",$JOB,9,0)="If errors can not be resolved, contact NVS"

 +27               SET ^TMP("GMRCBK",$JOB,10,0)="for assistance."

               End DoDot:1

               QUIT 

 +28       IF GMRCNOW>GMRCBST

               IF $$FMDIFF^XLFDT(GMRCNOW,GMRCBST,2)>4500

                   Begin DoDot:1

 +29                   SET ^TMP("GMRCBK",$JOB,5,0)="The background job is overdue."

 +30                   SET ^TMP("GMRCBK",$JOB,6,0)="IRMS should review the system for errors"

 +31                   SET ^TMP("GMRCBK",$JOB,7,0)="related to the IFC background job."

 +32                   SET ^TMP("GMRCBK",$JOB,8,0)=" "

 +33                   SET ^TMP("GMRCBK",$JOB,9,0)="If errors can not be resolved, contact NVS"

 +34                   SET ^TMP("GMRCBK",$JOB,10,0)="for assistance."

                   End DoDot:1

                   QUIT 

 +35      ; all is well

           Begin DoDot:1

 +36           SET ^TMP("GMRCBK",$JOB,5,0)="The IFC background job is on schedule or is"

 +37           SET ^TMP("GMRCBK",$JOB,6,0)="running. "

 +38           SET ^TMP("GMRCBK",$JOB,7,0)=""

 +39           SET ^TMP("GMRCBK",$JOB,8,0)="It may be delayed by editing the start time"

 +40           SET ^TMP("GMRCBK",$JOB,9,0)="to a future date/time using the Edit start "

 +41           SET ^TMP("GMRCBK",$JOB,10,0)="time action."

           End DoDot:1

 +42       QUIT 

 +43      ;

EDSTRT    ; edit the start parameter

 +1       ;

 +2        NEW DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT,GMRCLATE,GMRCSTRT

 +3        DO FULL^VALM1

 +4        SET GMRCLATE=$$FMADD^XLFDT($$NOW^XLFDT,4)

 +5        SET GMRCSTRT=$$GET^XPAR("SYS","GMRC IFC BACKGROUND START",1)

 +6        SET DIR(0)="D0A^"_DT_":"_GMRCLATE_":ETSR"

 +7        SET DIR("A",1)=""

 +8        SET DIR("A")="Next date/time the IFC background job should run: "

 +9        SET DIR("B")=$$FMTE^XLFDT(GMRCSTRT)

 +10       DO ^DIR

 +11       IF '+Y

               SET VALMBCK="R"

               QUIT 

 +12       DO EN^XPAR("SYS","GMRC IFC BACKGROUND START",1,Y)

 +13       DO REFRESH

 +14       QUIT 

 +15      ;

REFRESH   ; rebuild list

 +1        DO BLD

 +2        SET VALMBCK="R"

           SET VALMCNT=$ORDER(^TMP("GMRCBK",$JOB," "),-1)

 +3        SET VALMBG=1

 +4        QUIT 

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        KILL ^TMP("GMRCBK",$JOB)

 +2        SET VALMBCK="Q"

 +3        QUIT 

 +4       ;