Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRCIBKM

GMRCIBKM.m

Go to the documentation of this file.
  1. GMRCIBKM ;SLC/JFR - MONITOR IFC BKG PARAMS ; 2/14/02 21:22
  1. ;;3.0;CONSULT/REQUEST TRACKING;**22**;DEC 27, 1997
  1. EN ; -- main entry point for GMRC IFC MONITOR BKG JOB
  1. D REFRESH
  1. D EN^VALM("GMRC IF MONITOR BKG JOB")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)="Inter-facility Consults background job parameter display"
  1. Q
  1. ;
  1. BLD ; Build list for LM display
  1. N GMRCBST,GMRCNOW,GMRCBFI,CNT,GMRCBSTE,GMRCBFIE,TXT
  1. K ^TMP("GMRCBK",$J)
  1. S GMRCNOW=$$NOW^XLFDT
  1. S GMRCBST=$$GET^XPAR("SYS","GMRC IFC BACKGROUND START",1)
  1. S GMRCBSTE=$S($G(GMRCBST):$$FMTE^XLFDT(GMRCBST),1:"Unknown")
  1. S GMRCBFI=$$GET^XPAR("SYS","GMRC IFC BACKGROUND FINISH",1)
  1. S GMRCBFIE=$S($G(GMRCBFI):$$FMTE^XLFDT(GMRCBFI),1:"Unknown")
  1. S ^TMP("GMRCBK",$J,1,0)=""
  1. I GMRCBST>GMRCNOW S TXT(2)="The IFC background job is delayed until: "
  1. I '$D(TXT(2)) S TXT(2)="The IFC background job last started: "
  1. S ^TMP("GMRCBK",$J,2,0)=TXT(2)_GMRCBSTE
  1. S TXT(3)="The IFC background job last finished: "
  1. S ^TMP("GMRCBK",$J,3,0)=TXT(3)_GMRCBFIE
  1. S ^TMP("GMRCBK",$J,4,0)=""
  1. I GMRCBST>GMRCNOW D Q
  1. . S ^TMP("GMRCBK",$J,5,0)="The start parameter for this job has been "
  1. . S ^TMP("GMRCBK",$J,6,0)="intentionally set to a future date/time."
  1. . S ^TMP("GMRCBK",$J,7,0)=""
  1. . S ^TMP("GMRCBK",$J,8,0)="The background job will not start until the "
  1. . S ^TMP("GMRCBK",$J,9,0)="date/time indicated in this parameter"
  1. I $$FMDIFF^XLFDT(GMRCBST,GMRCBFI,2)>4500 D Q
  1. . S ^TMP("GMRCBK",$J,5,0)="The background job is overdue."
  1. . S ^TMP("GMRCBK",$J,6,0)="IRMS should review the system for errors"
  1. . S ^TMP("GMRCBK",$J,7,0)="related to the IFC background job."
  1. . S ^TMP("GMRCBK",$J,8,0)=" "
  1. . S ^TMP("GMRCBK",$J,9,0)="If errors can not be resolved, contact NVS"
  1. . S ^TMP("GMRCBK",$J,10,0)="for assistance."
  1. I GMRCNOW>GMRCBST,$$FMDIFF^XLFDT(GMRCNOW,GMRCBST,2)>4500 D Q
  1. . S ^TMP("GMRCBK",$J,5,0)="The background job is overdue."
  1. . S ^TMP("GMRCBK",$J,6,0)="IRMS should review the system for errors"
  1. . S ^TMP("GMRCBK",$J,7,0)="related to the IFC background job."
  1. . S ^TMP("GMRCBK",$J,8,0)=" "
  1. . S ^TMP("GMRCBK",$J,9,0)="If errors can not be resolved, contact NVS"
  1. . S ^TMP("GMRCBK",$J,10,0)="for assistance."
  1. D ; all is well
  1. . S ^TMP("GMRCBK",$J,5,0)="The IFC background job is on schedule or is"
  1. . S ^TMP("GMRCBK",$J,6,0)="running. "
  1. . S ^TMP("GMRCBK",$J,7,0)=""
  1. . S ^TMP("GMRCBK",$J,8,0)="It may be delayed by editing the start time"
  1. . S ^TMP("GMRCBK",$J,9,0)="to a future date/time using the Edit start "
  1. . S ^TMP("GMRCBK",$J,10,0)="time action."
  1. Q
  1. ;
  1. EDSTRT ; edit the start parameter
  1. ;
  1. N DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT,GMRCLATE,GMRCSTRT
  1. D FULL^VALM1
  1. S GMRCLATE=$$FMADD^XLFDT($$NOW^XLFDT,4)
  1. S GMRCSTRT=$$GET^XPAR("SYS","GMRC IFC BACKGROUND START",1)
  1. S DIR(0)="D0A^"_DT_":"_GMRCLATE_":ETSR"
  1. S DIR("A",1)=""
  1. S DIR("A")="Next date/time the IFC background job should run: "
  1. S DIR("B")=$$FMTE^XLFDT(GMRCSTRT)
  1. D ^DIR
  1. I '+Y S VALMBCK="R" Q
  1. D EN^XPAR("SYS","GMRC IFC BACKGROUND START",1,Y)
  1. D REFRESH
  1. Q
  1. ;
  1. REFRESH ; rebuild list
  1. D BLD
  1. S VALMBCK="R",VALMCNT=$O(^TMP("GMRCBK",$J," "),-1)
  1. S VALMBG=1
  1. Q
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K ^TMP("GMRCBK",$J)
  1. S VALMBCK="Q"
  1. Q
  1. ;