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

YTQRCRT.m

Go to the documentation of this file.
  1. YTQRCRT ;SLC/KCM - MH Reminder Dialog DLL Tools ; 1/25/2017
  1. ;;5.01;MENTAL HEALTH;**223**;Dec 30, 1994;Build 22
  1. ;
  1. DLLTGL ; Used by option, YS223 TOGGLE WEB DLL
  1. ; YS CPRS DLL SAVE stores the following on first install of patch 223
  1. ; 1:InitialName
  1. ; 2:InitialVersion
  1. ; 3:WebName
  1. ; 4:WebVersion
  1. N WNDNM,WNDVER,WEBNM,WEBVER,CURNM,CURVER,VERDATA,YS,DIR,DIRUT,DUOUT,X,Y
  1. S WNDNM=$$GET^XPAR("SYS","YSCPRS DLL SAVE",1)
  1. S WNDVER=$$GET^XPAR("SYS","YSCPRS DLL SAVE",2)
  1. S WEBNM=$$GET^XPAR("SYS","YSCPRS DLL SAVE",3)
  1. S WEBVER=$$GET^XPAR("SYS","YSCPRS DLL SAVE",4)
  1. S YS("YSB")="YS BROKER1"
  1. D VERSRV^YTQAPI7(.VERDATA,.YS)
  1. S CURVER=$G(VERDATA(3))
  1. S CURNM=$$GET^XPAR("SYS","YS MHA_A DLL NAME")
  1. I CURVER=WEBVER D
  1. . W !!,"The web version of the Mental Health DLL for CPRS is currently ENABLED."
  1. . W !,"The previous version was ",WNDVER," ("_WNDNM_")."
  1. . W !,"DISABLE the WEB version and reinstate the previous version?"
  1. . S DIR(0)="Y",DIR("B")="NO" D ^DIR
  1. . I Y D SETVER(WNDVER,WNDNM) W !,"done"
  1. E D
  1. . W !!,"The web version of the Mental Health DLL for CPRS is currently DISABLED."
  1. . W !,"The web version is ",WEBVER," ("_WEBNM_")."
  1. . W !,"ENABLE the WEB version and stop using the current version?"
  1. . S DIR(0)="Y",DIR("B")="YES" D ^DIR
  1. . I Y D SETVER(WEBVER,WEBNM) W !,"done"
  1. Q
  1. SETVER(NEWVER,NEWNM) ; set DLL version and name
  1. N YTERR
  1. D UPDVER^YTQAPI7(2,NEWVER)
  1. D EN^XPAR("SYS","YS MHA_A DLL NAME",1,NEWNM,.YTERR)
  1. I YTERR W !,"Error updating DLL name to "_NEWNM
  1. Q