- 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
- ;
- Q
- POST ; Post-install logic
- N YSFDA
- S YSFDA(603.03,"1,",12)=-30
- S YSFDA(603.03,"1,",13)=74
- D FILE^DIE(,"YSFDA")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSCLP227 271 printed Feb 18, 2025@23:40:04 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