YS253PST ;SLC/WAT - Patch 253 post-init ;Jul 14, 2025@08:08:37
;;5.01;MENTAL HEALTH;**253**;Dec 30, 1994;Build 20
;
;
Q
;
POST ;
N YS,YSCURR
D EN^XPAR("SYS","YSCPRS DLL SAVE",2,"1.0.5.17")
S YSCURR=$$GET^XPAR("SYS","YS MHA_A DLL NAME")
I YSCURR="YS_MHA_A_WEB.dll" Q
D UPDVER^YTQAPI7(2,"1.0.5.17") ; set MHA DLL version
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYS253PST 345 printed May 25, 2026@12:16:28 Page 2
YS253PST ;SLC/WAT - Patch 253 post-init ;Jul 14, 2025@08:08:37
+1 ;;5.01;MENTAL HEALTH;**253**;Dec 30, 1994;Build 20
+2 ;
+3 ;
+4 QUIT
+5 ;
POST ;
+1 NEW YS,YSCURR
+2 DO EN^XPAR("SYS","YSCPRS DLL SAVE",2,"1.0.5.17")
+3 SET YSCURR=$$GET^XPAR("SYS","YS MHA_A DLL NAME")
+4 IF YSCURR="YS_MHA_A_WEB.dll"
QUIT
+5 ; set MHA DLL version
DO UPDVER^YTQAPI7(2,"1.0.5.17")
+6 QUIT
