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

LRJSML5.m

Go to the documentation of this file. 
  1. LRJSML5 ;ALB/GTS - Lab Vista Hospital Location Pre-Patch Utilities;02/22/2010 14:51:41
  1.  ;;5.2;LAB SERVICE;**425**;Sep 27, 1994;Build 30
  1.  ;
  1.  ;
  1. INIT ;* init variables and list array
  1.  ;Called from Protocol: LRJ SYS MAP HL SCHED AUDIT RPT DISP
  1.  ;
  1.  ; This API will show the HLCMS Audit Rpt Task schedule
  1.  ;
  1.  NEW LRFROM,LRTO
  1.  SET (LRFROM,LRTO)=""
  1.  DO GETDATE^LRJSML8(.LRFROM,.LRTO)
  1.  D KILL
  1.  IF (+LRFROM=0)!(+LRTO=0) DO
  1.  .SET LRFROM=$P($G(^TMP("LRJ SYS USER MANAGER - DATES",$JOB)),"^")
  1.  .SET LRTO=$P($G(^TMP("LRJ SYS USER MANAGER - DATES",$JOB)),"^",2)
  1.  SET ^TMP("LRJ SYS USER MANAGER - DATES",$JOB)=LRFROM_"^"_LRTO
  1.  D CREATRPT
  1.  D HDR
  1.  D REFRESH
  1.  QUIT
  1.  ;
  1. REFRESH ;* refresh display
  1.  D MSG^LRJSML
  1.  SET VALMBCK="R"
  1.  SET VALMBG=1
  1.  QUIT
  1.  ;
  1. CREATRPT ;Create array of Hospital Location changes between selected dates
  1.  N LRSCHED
  1.  D OPTSTAT^XUTMOPT("LRJ SYS MAP HL TASKMAN RPT",.LRSCHED)
  1.  D BLDREC(.LRSCHED) ;Create outarray
  1.  Q
  1.  ;
  1. BLDREC(LRSCHED) ;Build Listman Output for background task
  1.  ; INPUT:
  1.  ;    LRSCHED : Schedule information about option
  1.  ;              format -
  1.  ;              task number^scheduled time^reschedule freq^special queuing flag
  1.  ;
  1.  NEW X,PCE,LROPTDAT
  1.  DO KILL^VALM10()
  1.  SET VALMCNT=0
  1.  SET X=" Hospital Location Audit task schedule"
  1.  DO ADD^LRJSMLU(.VALMCNT,X)
  1.  DO CNTRL^VALM10(VALMCNT,2,$LENGTH(X)-1,IOUON,IOUOFF_IOINORM)
  1.  D ADD^LRJSMLU(.VALMCNT," ")
  1.  SET X="                    OPTION: LRJ SYS MAP HL TASKMAN RPT"
  1.  D ADD^LRJSMLU(.VALMCNT,X)
  1.  IF +$G(LRSCHED(1))=0 DO
  1.  .SET X="                   TASK ID: Not Scheduled"
  1.  .DO ADD^LRJSMLU(.VALMCNT,X)
  1.  .SET X="QUEUED TO RUN AT WHAT TIME: Not Scheduled"
  1.  .DO ADD^LRJSMLU(.VALMCNT,X)
  1.  .SET X="    RESCHEDULING FREQUENCY: Not Scheduled"
  1.  .DO ADD^LRJSMLU(.VALMCNT,X)
  1.  ;
  1.  IF +$G(LRSCHED(1))'=0 DO
  1.  .SET PCE=0
  1.  .FOR PCE=1:1:3 SET LROPTDAT=$P(LRSCHED(1),"^",PCE)  DO
  1.  ..SET:PCE=1 X="                   TASK ID: "_$S(LROPTDAT'="":LROPTDAT,1:"Not Scheduled")
  1.  ..IF PCE=2 DO
  1.  ...NEW LROUTDT,Y
  1.  ...SET Y=LROPTDAT
  1.  ...DO DD^%DT
  1.  ...SET LROUTDT=Y
  1.  ...SET X="QUEUED TO RUN AT WHAT TIME: "_$S(LROUTDT'="":LROUTDT,1:"Not Scheduled")
  1.  ..SET:PCE=3 X="    RESCHEDULING FREQUENCY: "_$S(LROPTDAT'="":LROPTDAT,1:"Not Scheduled")
  1.  ..DO ADD^LRJSMLU(.VALMCNT,X)
  1.  D ADD^LRJSMLU(.VALMCNT," ")
  1.  D ADD^LRJSMLU(.VALMCNT," ")
  1.  D ADD^LRJSMLU(.VALMCNT," ")
  1.  D ADD^LRJSMLU(.VALMCNT," ")
  1.  SET LROPTDAT=""
  1.  SET LROPTDAT=$$GET^XPAR("SYS","LRJ HL LAST END DATE",1,"Q")
  1.  SET X="Hospital Location Audit Automated Reporting begin Date: "_$S(LROPTDAT'="":$$FMTE^XLFDT(LROPTDAT),1:"Not indicated")
  1.  DO ADD^LRJSMLU(.VALMCNT,X)
  1.  QUIT
  1. KILL ; -- kill off display data array
  1.  KILL ^TMP("LRJ SYS MAP HL INIT MGR",$JOB)
  1.  QUIT
  1.  ;
  1. HDR ; -- header code
  1.  SET VALMHDR(1)="           LAB Hospital Location Change Audit Task Option Schedule"
  1.  SET VALMHDR(2)="                         Version: "_$$VERNUM^LRJSMLU()_"     Build: "_$$BLDNUM^LRJSMLU()
  1.  Q