YS107P ;ALB/RBD - YS*5.01*107 PATCH POST INIT ROUTINE ;16 May 2013 3:59 PM
;;5.01;MENTAL HEALTH;**107**;Dec 30, 1994;Build 23
;
; IA 5924 Created for this post-init routine to update DESCRIPTION
; of File (#627.8)
;
EN ;
D BMES^XPDUTL("**** ICD 10 Remediation ****")
N YSUPDMSG S YSUPDMSG="**** Updating Mental Health - Diagnostic "
S YSUPDMSG=YSUPDMSG_"Condition File (#627.8) DESCRIPTION ****"
D BMES^XPDUTL(YSUPDMSG)
S YSUPDMSG="**** Occurrences of 'ICD9' changed to 'ICD DIAGNOSIS' ****"
D BMES^XPDUTL(YSUPDMSG)
CHANGE ;
N YSREC
S YSREC=$C(34)_"AE"_$C(34)_" Xref - Type (DSM or ICD DIAGNOSIS), "
S YSREC=YSREC_"DFN, System Dte, Dx, DFN."
S ^DIC(627.8,"%D",7,0)=YSREC
S YSREC=$C(34)_"AG"_$C(34)_" Xref - Type (DSM or ICD DIAGNOSIS), "
S YSREC=YSREC_"DFN, Dx, IFN."
S ^DIC(627.8,"%D",13,0)=YSREC
D BMES^XPDUTL("**** Done ****")
EXIT ;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYS107P 889 printed Sep 23, 2025@19:48:03 Page 2
YS107P ;ALB/RBD - YS*5.01*107 PATCH POST INIT ROUTINE ;16 May 2013 3:59 PM
+1 ;;5.01;MENTAL HEALTH;**107**;Dec 30, 1994;Build 23
+2 ;
+3 ; IA 5924 Created for this post-init routine to update DESCRIPTION
+4 ; of File (#627.8)
+5 ;
EN ;
+1 DO BMES^XPDUTL("**** ICD 10 Remediation ****")
+2 NEW YSUPDMSG
SET YSUPDMSG="**** Updating Mental Health - Diagnostic "
+3 SET YSUPDMSG=YSUPDMSG_"Condition File (#627.8) DESCRIPTION ****"
+4 DO BMES^XPDUTL(YSUPDMSG)
+5 SET YSUPDMSG="**** Occurrences of 'ICD9' changed to 'ICD DIAGNOSIS' ****"
+6 DO BMES^XPDUTL(YSUPDMSG)
CHANGE ;
+1 NEW YSREC
+2 SET YSREC=$CHAR(34)_"AE"_$CHAR(34)_" Xref - Type (DSM or ICD DIAGNOSIS), "
+3 SET YSREC=YSREC_"DFN, System Dte, Dx, DFN."
+4 SET ^DIC(627.8,"%D",7,0)=YSREC
+5 SET YSREC=$CHAR(34)_"AG"_$CHAR(34)_" Xref - Type (DSM or ICD DIAGNOSIS), "
+6 SET YSREC=YSREC_"DFN, Dx, IFN."
+7 SET ^DIC(627.8,"%D",13,0)=YSREC
+8 DO BMES^XPDUTL("**** Done ****")
EXIT ;
+1 QUIT
