YTQRCRT.m

YTQRCRT ;SLC/KCM - MH Reminder Dialog DLL Tools ; 1/25/2017

 ;;5.01;MENTAL HEALTH;**223**;Dec 30, 1994;Build 22

 ;

DLLTGL ; Used by option, YS223 TOGGLE WEB DLL

 ; YS CPRS DLL SAVE stores the following on first install of patch 223

 ;   1:InitialName

 ;   2:InitialVersion

 ;   3:WebName

 ;   4:WebVersion

 N WNDNM,WNDVER,WEBNM,WEBVER,CURNM,CURVER,VERDATA,YS,DIR,DIRUT,DUOUT,X,Y

 S WNDNM=$$GET^XPAR("SYS","YSCPRS DLL SAVE",1)

 S WNDVER=$$GET^XPAR("SYS","YSCPRS DLL SAVE",2)

 S WEBNM=$$GET^XPAR("SYS","YSCPRS DLL SAVE",3)

 S WEBVER=$$GET^XPAR("SYS","YSCPRS DLL SAVE",4)

 S YS("YSB")="YS BROKER1"

 D VERSRV^YTQAPI7(.VERDATA,.YS)

 S CURVER=$G(VERDATA(3))

 S CURNM=$$GET^XPAR("SYS","YS MHA_A DLL NAME")

 I CURVER=WEBVER D

 . W !!,"The web version of the Mental Health DLL for CPRS is currently ENABLED."

 . W !,"The previous version was ",WNDVER," ("_WNDNM_")."

 . W !,"DISABLE the WEB version and reinstate the previous version?"

 . S DIR(0)="Y",DIR("B")="NO" D ^DIR

 . I Y D SETVER(WNDVER,WNDNM) W !,"done"

 E  D

 . W !!,"The web version of the Mental Health DLL for CPRS is currently DISABLED."

 . W !,"The web version is ",WEBVER," ("_WEBNM_")."

 . W !,"ENABLE the WEB version and stop using the current version?"

 . S DIR(0)="Y",DIR("B")="YES" D ^DIR

 . I Y D SETVER(WEBVER,WEBNM) W !,"done"

 Q

SETVER(NEWVER,NEWNM) ; set DLL version and name

 N YTERR

 D UPDVER^YTQAPI7(2,NEWVER)

 D EN^XPAR("SYS","YS MHA_A DLL NAME",1,NEWNM,.YTERR)

 I YTERR W !,"Error updating DLL name to "_NEWNM

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YTQRCRT   1523     printed  Apr 09, 2024@21:19:50                                                                                                                                                                                                     Page 2

YTQRCRT   ;SLC/KCM - MH Reminder Dialog DLL Tools ; 1/25/2017

 +1       ;;5.01;MENTAL HEALTH;**223**;Dec 30, 1994;Build 22

 +2       ;

DLLTGL    ; Used by option, YS223 TOGGLE WEB DLL

 +1       ; YS CPRS DLL SAVE stores the following on first install of patch 223

 +2       ;   1:InitialName

 +3       ;   2:InitialVersion

 +4       ;   3:WebName

 +5       ;   4:WebVersion

 +6        NEW WNDNM,WNDVER,WEBNM,WEBVER,CURNM,CURVER,VERDATA,YS,DIR,DIRUT,DUOUT,X,Y

 +7        SET WNDNM=$$GET^XPAR("SYS","YSCPRS DLL SAVE",1)

 +8        SET WNDVER=$$GET^XPAR("SYS","YSCPRS DLL SAVE",2)

 +9        SET WEBNM=$$GET^XPAR("SYS","YSCPRS DLL SAVE",3)

 +10       SET WEBVER=$$GET^XPAR("SYS","YSCPRS DLL SAVE",4)

 +11       SET YS("YSB")="YS BROKER1"

 +12       DO VERSRV^YTQAPI7(.VERDATA,.YS)

 +13       SET CURVER=$GET(VERDATA(3))

 +14       SET CURNM=$$GET^XPAR("SYS","YS MHA_A DLL NAME")

 +15       IF CURVER=WEBVER

               Begin DoDot:1

 +16               WRITE !!,"The web version of the Mental Health DLL for CPRS is currently ENABLED."

 +17               WRITE !,"The previous version was ",WNDVER," ("_WNDNM_")."

 +18               WRITE !,"DISABLE the WEB version and reinstate the previous version?"

 +19               SET DIR(0)="Y"

                   SET DIR("B")="NO"

                   DO ^DIR

 +20               IF Y

                       DO SETVER(WNDVER,WNDNM)

                       WRITE !,"done"

               End DoDot:1

 +21      IF '$TEST

               Begin DoDot:1

 +22               WRITE !!,"The web version of the Mental Health DLL for CPRS is currently DISABLED."

 +23               WRITE !,"The web version is ",WEBVER," ("_WEBNM_")."

 +24               WRITE !,"ENABLE the WEB version and stop using the current version?"

 +25               SET DIR(0)="Y"

                   SET DIR("B")="YES"

                   DO ^DIR

 +26               IF Y

                       DO SETVER(WEBVER,WEBNM)

                       WRITE !,"done"

               End DoDot:1

 +27       QUIT 

SETVER(NEWVER,NEWNM) ; set DLL version and name

 +1        NEW YTERR

 +2        DO UPDVER^YTQAPI7(2,NEWVER)

 +3        DO EN^XPAR("SYS","YS MHA_A DLL NAME",1,NEWNM,.YTERR)

 +4        IF YTERR

               WRITE !,"Error updating DLL name to "_NEWNM

 +5        QUIT