- 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 Feb 18, 2025@23:38:18 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