YS107P.m

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 ---YS107P   889     printed  Apr 09, 2024@21:15:51                                                                                                                                                                                                       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