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

DGSTAT.m

Go to the documentation of this file.
  1. DGSTAT ;ALB/MRL - ADT SYSTEM STATUS DISPLAY ; 03/12/2004
  1. ;;5.3;Registration;**75,151,568**;Aug 13, 1993
  1. ;
  1. ; modified for K8, 12/7/95; mli
  1. ;
  1. EN ; main entry point
  1. I $$VERSION^XPDUTL("XU")<8 W !,"You must have KERNEL version 8.0 or higher to run this option!" G Q
  1. S ^UTILITY("DG",$J,"ST")=""
  1. S DGUSER=$P($G(^VA(200,+DUZ,.1)),"^",4),DGNOW=$$NOW^XLFDT()
  1. W @IOF,!,$$GREETING(),$S(DGUSER]"":" "_DGUSER,1:""),". Welcome to MAS, VERSION ",$$VERSION^XPDUTL("REGISTRATION"),!
  1. F I=1:1:40 W "= "
  1. F I=334,345 S X=$O(^DGAM(I,"ALST",0)) I X W !,"AMIS ",I S DGX=$X D L W "Last run for month of ",$$DATE(X,1) ; amis 334,345
  1. S X=$P($P($G(^DG(43,1,"AMIS")),"^",6),"'",2)
  1. W !,"AMIS 401-420 Reports" S DGX=$X D L W "Last run for month of ",$$DATE(X,1) ; amis 400s
  1. S X=$G(^DG(43,1,"GLS"))
  1. W !,"Auto Recalculation" S DGX=$X D L W "Last run ",$$DATE(X,7)," on CPU ",$P(X,"^",8) ; auto recalc
  1. S X=$$SCHED("DG G&L RECALCULATION AUTO")
  1. W ! D L W "Scheduled for ",$S(X:$$DATE(X,1),1:"(not currently scheduled)")
  1. I X<DGNOW D
  1. . N DIQUIET ; uced to silence echo of date in %dt
  1. . S DIQUIET=1
  1. . W ! D L W "Rescheduled to run at 9 p.m."
  1. . D RESCH^XUTMOPT("DG G&L RECALCULATION AUTO",DT_.2100,,,"L")
  1. W !,"Embosser Option from Registration" S DGX=$X D L W "Is turned ",$$ONOFF(28) ; emboss on/off
  1. W !,"Gains & Losses (G&L)" S DGX=$X D L W "Last run ",$$DATE($G(^DG(43,1,"GLS")),11) ; g&l
  1. W !,"HINQ Option from Registration" S DGX=$X D L W "Is turned ",$$ONOFF(27) ; hinq at reg
  1. W !,"RUG-II Background Job" S DGX=$X D L W "Last run ",$$DATE($G(^DG(43,1,"RUG")),1) ; rug bgj
  1. S X=$$LAST^DGSDUTL,X=$G(^SDD(409.65,+X,0)) ; appt stat upd
  1. W !,"Appointment Status Update" S DGX=$X D L W "Last run ",$$DATE(X,5)
  1. W ! D L W "Updated appointments for ",$$DATE(X,1)
  1. W ! D L W "Scheduled for " S X=$$SCHED("SDAM BACKGROUND JOB") W $S(X:$$UP^XLFSTR($$FMTE^XLFDT(X)),1:"(not currently scheduled)")
  1. W !,"IRT Background Job" S DGX=$X D L W "Last run ",$$DATE($G(^DG(43,1,"IRT")),1) ; irt bgj
  1. W ! D L W "Scheduled for " S X=$$SCHED("DGJ IRT UPDATE (Background)") W $S(X:$$UP^XLFSTR($$FMTE^XLFDT(X)),1:"(not currently scheduled)")
  1. I $D(^%ZOSF("UCI")) X ^("UCI") W !!,"YOU ARE PRESENTLY ON CPU ",Y,!
  1. Q W ! I $D(DUZ("AUTO")),DUZ("AUTO") R "Press RETURN to continue: ",X:DTIME
  1. K %DT,%H,DA,DGRE,DGUSER,DGVERS,DGX,DIE,DR,I,DGNOW,X,Y Q
  1. ;
  1. ONOFF(PIECE) ; return ON or OFF
  1. ; input - piece of 0 node of file 43 wanted
  1. ; output - ON or OFF
  1. ;
  1. Q $S($P($G(^DG(43,1,0)),"^",PIECE):"ON",1:"OFF")
  1. ;
  1. DATE(NODE,PIECE) ; return appropriate date
  1. ; input - NODE as node of data
  1. ; PIECE as piece of node to convert
  1. ; output - date in external format
  1. ;
  1. Q $$UP^XLFSTR($$FMTE^XLFDT($P(NODE,"^",PIECE)))
  1. ;
  1. SHOW I $S('$D(^DG(43,1,0)):1,'$P(^(0),"^",34):1,$D(^UTILITY("DG",$J,"ST")):1,1:0) Q
  1. G EN
  1. ;
  1. L ; write line of dots
  1. ;
  1. W ?DGX+1 F I=1:1:(36-(DGX+1)) W "."
  1. W " "
  1. Q
  1. ;
  1. GREETING() ; randomize greeting
  1. N X,%H
  1. S X=$P("Hello^Hi There^Good ^Hello There^Hi","^",$R(5)+1)
  1. I X["Good" S %H=$P($H,",",2),X=X_$S(%H<43200:"Morning",%H<61200:"Afternoon",1:"Evening")
  1. Q X
  1. ;
  1. SCHED(OPTION) ; sent back time time for queued process
  1. ; input - OPTION as name of option
  1. ; output - date currently queued (external format)
  1. N I,IEN,X
  1. S (I,X)=0,IEN=$$LKOPT^XPDMENU(OPTION)
  1. F S I=$O(^DIC(19.2,"B",IEN,I)) Q:'I S X=$P($G(^DIC(19.2,+I,0)),"^",2) Q:X>$$NOW^XLFDT()
  1. Q X