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

YSCLP227.m

Go to the documentation of this file.

YSCLP227 ;BAH/MBS - Pre/Post-Install logic for YS*5.01*227 patch ; Jun 08, 2023@12:13

 ;;5.01;MENTAL HEALTH;**227**;Dec 30, 1994;Build 17

POST ; Post-install logic

 N YSFDA

 S YSFDA(603.03,"1,",12)=-30

 S YSFDA(603.03,"1,",13)=74

 D FILE^DIE(,"YSFDA")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSCLP227   271     printed  Sep 23, 2025@19:49:52                                                                                                                                                                                                     Page 2

YSCLP227  ;BAH/MBS - Pre/Post-Install logic for YS*5.01*227 patch ; Jun 08, 2023@12:13

 +1       ;;5.01;MENTAL HEALTH;**227**;Dec 30, 1994;Build 17

 +2       ;

 +3        QUIT

POST      ; Post-install logic

 +1        NEW YSFDA

 +2        SET YSFDA(603.03,"1,",12)=-30

 +3        SET YSFDA(603.03,"1,",13)=74

 +4        DO FILE^DIE(,"YSFDA")

 +5        QUIT