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

KMPVLM.m

Go to the documentation of this file. 
  1. KMPVLM ;SP/JML - VSM List Manager Functions ;6/1/2020
  1.  ;;4.0;CAPACITY MANAGEMENT;**1**;3/1/2018;Build 27
  1.  ;
  1.  ; Integration Agreements
  1.  ;  Reference to $$SITE^VASITE supported by ICR #10112
  1.  ;
  1. EN ; Main entry point for VSM MANAGEMENT menu option
  1.  D EN^VALM("KMPV MANAGEMENT")
  1.  Q
  1.  ;
  1. HDR ; Header code
  1.  N KMPVHEAD,KMPVKEY,KMPVLN,KMPVML,KMPVMNUM,KMPVMSTR
  1.  D MONLIST^KMPVCBG(.KMPVML)
  1.  S KMPVLN=0
  1.  S VALMHDR(KMPVLN)="",KMPVLN=KMPVLN+1
  1.  S KMPVHEAD="VistA System Monitor(VSM) -- Status and Configuration"
  1.  S KMPVMNUM=(VALMWD-$L(KMPVHEAD))/2,$P(KMPVMSTR," ",KMPVMNUM)=""
  1.  S VALMHDR(KMPVLN)="",KMPVLN=KMPVLN+1
  1.  S VALMHDR(KMPVLN)="",KMPVLN=KMPVLN+1
  1.  S VALMHDR(KMPVLN)=KMPVMSTR_KMPVHEAD,KMPVLN=KMPVLN+1
  1.  S VALMHDR(KMPVLN)="",KMPVLN=KMPVLN+1
  1.  Q
  1.  S KMPVKEY=0
  1.  F  S KMPVKEY=$O(KMPVML(KMPVKEY)) Q:KMPVKEY=""  D
  1.  .S VALMHDR(KMPVLN)=KMPVKEY_": "_KMPVML(KMPVKEY),KMPVLN=KMPVLN+1
  1.  Q
  1.  ;
  1. INIT ; Initialize variables and list array
  1.  D BUILD
  1.  Q
  1.  ;
  1. BUILD ; Build array with collector status information
  1.  N KMPMNAME,KMPVCOMP,KMPVDLY,KMPVMKEY,KMPVNEXT,KMPVSTAT,KMPVTCNT,KMPVTSK,KMPVX
  1.  ;
  1.  S VALMCNT=0
  1.  D MONSTAT^KMPVCCFG(.KMPVSTAT)
  1.  S KMPVMKEY=""
  1.  F  S KMPVMKEY=$O(KMPVSTAT(KMPVMKEY)) Q:KMPVMKEY=""  D
  1.  .S VALMCNT=VALMCNT+1
  1.  .S KMPVX=""
  1.  .S KMPMNAME=KMPVMKEY_": "_KMPVSTAT(KMPVMKEY)
  1.  .S KMPVX=$$SETFLD^VALM1(KMPMNAME,KMPVX,"Monitor")
  1.  .S KMPVX=$$SETFLD^VALM1($G(KMPVSTAT(KMPVMKEY,"ONOFF")),KMPVX,"Status")
  1.  .S KMPVX=$$SETFLD^VALM1($G(KMPVSTAT(KMPVMKEY,"RETRY")),KMPVX,"Days Not Sent")
  1.  .S KMPVX=$$SETFLD^VALM1($G(KMPVSTAT(KMPVMKEY,"VERSION")),KMPVX,"Version")
  1.  .D SET^VALM10(VALMCNT,KMPVX,VALMCNT)
  1.  .D RESTORE^VALM10(VALMCNT)
  1.  Q
  1.  ;
  1. STARTMON ; Supports List Manager protocol 'STRT Start Monitor' 
  1.  N KMPVMON
  1.  S KMPVMON=$$PICKMON()
  1.  I KMPVMON'=-1 D STARTMON^KMPVCBG($P(KMPVMON,"^",2))
  1.  D REFRESH
  1.  Q
  1.  ;
  1. STOPMON ; Supports List Manager protocol 'STOP Stop Monitor'
  1.  N KMPVMON
  1.  S KMPVMON=$$PICKMON()
  1.  I KMPVMON'=-1 D STOPMON^KMPVCBG($P(KMPVMON,"^",2))
  1.  D REFRESH
  1.  Q
  1.  ;
  1. TESTSYS ;
  1.  N KMPVMON
  1.  S KMPVMON=$$PICKMON()
  1.  I KMPVMON'=-1 D ALLOW^KMPVCBG($P(KMPVMON,"^",2))
  1.  D REFRESH
  1.  Q
  1.  ;
  1. CONTACT ;
  1.  N DIR,KMPEMAIL
  1.  S KMPEMAIL=$$GETVAL^KMPVCCFG("VTCM","NATIONAL SUPPORT EMAIL ADDRESS",8969)
  1.  N DIR S DIR(0)="E"
  1.  S DIR("A",3)="Email '"_KMPEMAIL_"' for VSM information.",DIR("A")="Press any key to continue"
  1.  D ^DIR
  1.  D REFRESH
  1.  Q
  1.  ;
  1. VIEWCFG ; Supports List Manager protocol 'VIEW View CFG'
  1.  N KMPVMON,KMPVMDA
  1.  N DDSFILE,DR,DA
  1.  ;
  1.  S KMPVMON=$$PICKMON()
  1.  I KMPVMON>0 D
  1.  .S DDSFILE=8969,DR="[KMPV VIEW CONFIGURATION]",DA=+KMPVMON
  1.  .D ^DDS
  1.  D REFRESH
  1.  Q
  1.  ;
  1. EDITCFG ; Supports List Manager protocol 'EDIT Edit CFG'
  1.  ; TO BE DEPRICATED - EDIT REMOVED FROM SCREEN
  1.  N KMPVMON,KMPVMDA,KMPVMKEY,KMPVOLD,KMPVNEW,KMPVFNAM,KMPVSET
  1.  N DDSFILE,DR,DA
  1.  ;
  1.  S KMPVMON=$$PICKMON()
  1.  S KMPVMDA=+KMPVMON,KMPVMKEY=$P(KMPVMON,"^",2)
  1.  I KMPVMDA>0 D
  1.  .D CFGARR^KMPVCCFG(KMPVMKEY,.KMPVOLD)
  1.  .S DDSFILE=8969,DR="[KMPV EDIT CONFIGURATION]",DA=+KMPVMDA
  1.  .D ^DDS
  1.  .D CFGARR^KMPVCCFG(KMPVMKEY,.KMPVNEW)
  1.  .S KMPVFNAM="",KMPVSET=0
  1.  .F  S KMPVFNAM=$O(KMPVOLD(KMPVFNAM)) Q:KMPVFNAM=""  D
  1.  ..I KMPVOLD(KMPVFNAM)'=$G(KMPVNEW(KMPVFNAM)) S KMPVSET=1
  1.  .I KMPVSET>0 D CFGMSG^KMPUTLW()
  1.  D REFRESH
  1.  Q
  1.  ;
  1. RESTCFG ; Supports List Manager protocol 'REST Restore CFG'
  1.  N KMPVMKEY,KMPVSTAT
  1.  S KMPVMON=$$PICKMON()
  1.  I KMPVMON>0 D
  1.  .S KMPVMKEY=$P(KMPVMON,"^",2)
  1.  .D CFGARR^KMPVCCFG(KMPVMKEY,.KMPVOLD)
  1.  .S KMPVSTAT=$$RESTCFG^KMPVCCFG(KMPVMKEY)
  1.  D REFRESH
  1.  Q
  1.  ;
  1. KILL(KMPVMKEY) ; Supports List Manager protocol 'DEL Delete Data
  1.  ; Emergency KILL of all data for a given monitor
  1.  N DIR,DTOUT,DUOUT,KMPVERR,KMPVLN,KMPVMKEY,KMPVMON,KMPVSITE,Y,%
  1.  ;
  1.  S KMPVMON=$$PICKMON()
  1.  S KMPVMKEY=$P(KMPVMON,"^",2)
  1.  W ! K DIR S DIR(0)="Y",DIR("B")="NO"
  1.  S DIR("?")="Answer YES to KILL all "_KMPVMKEY_" data."
  1.  S DIR("A")="Do you want to KILL all local "_KMPVMKEY_" data?"
  1.  S DIR("A",1)="This option is for emergency use only."
  1.  S DIR("A",2)="Data will be permanently DELETED and "_KMPVMKEY_" monitor will be STOPPED"
  1.  D ^DIR Q:$D(DTOUT)!$D(DUOUT)
  1.  I Y D
  1.  .K DIR
  1.  .K ^KMPTMP("KMPV",KMPVMKEY)
  1.  .D NOW^%DTC
  1.  .S KMPVSITE=$$SITE^VASITE($P(%,".")) ;IA 10112
  1.  .D CANMSG^KMPUTLW("KILL",KMPVMKEY,KMPVSITE,"") ;  IA 10112
  1.  .D STOPMON^KMPVCBG(KMPVMKEY,1)
  1.  D REFRESH
  1.  Q
  1.  ;
  1. PICKMON() ; Supports selection of Monitor Type for List Manager functions
  1.  N DIC,Y
  1.  W !
  1.  S DIC=8969,DIC(0)="QEA"
  1.  S DIC("A")="Choose Monitor Type: "
  1.  D ^DIC
  1.  Q Y
  1.  ;
  1. REFRESH ; Refresh display
  1.  DO BUILD
  1.  SET VALMBCK="R"
  1.  QUIT
  1.  ;
  1. HELP ; Help code
  1.  N X
  1.  S X="?" D DISP^XQORM1 W !!
  1.  Q
  1.  ;
  1. EXIT ; Exit code
  1.  Q
  1.  ;
  1. EXPND ; Expand code
  1.  Q
  1.  ;