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

YS237PST.m

Go to the documentation of this file.

YS237PST ;SLC/JLC - Patch 237 post-init ; Jul 23,2024@10:28

 ;;5.01;MENTAL HEALTH;**237**;Dec 30, 1994;Build 8

POST ;

 N YS,YSCURR

 D EN^XPAR("SYS","YSCPRS DLL SAVE",2,"1.0.5.16")

 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.16") ; set MHA DLL version

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYS237PST   341     printed  Oct 16, 2024@18:13:33                                                                                                                                                                                                     Page 2

YS237PST  ;SLC/JLC - Patch 237 post-init ; Jul 23,2024@10:28

 +1       ;;5.01;MENTAL HEALTH;**237**;Dec 30, 1994;Build 8

 +2       ;

 +3       ;

 +4        QUIT

 +5       ;

POST      ;

 +1        NEW YS,YSCURR

 +2        DO EN^XPAR("SYS","YSCPRS DLL SAVE",2,"1.0.5.16")

 +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.16")

 +6        QUIT