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

YS107P.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ; IA 5924 Created for this post-init routine to update DESCRIPTION
  1. ; of File (#627.8)
  1. ;
  1. EN ;
  1. D BMES^XPDUTL("**** ICD 10 Remediation ****")
  1. N YSUPDMSG S YSUPDMSG="**** Updating Mental Health - Diagnostic "
  1. S YSUPDMSG=YSUPDMSG_"Condition File (#627.8) DESCRIPTION ****"
  1. D BMES^XPDUTL(YSUPDMSG)
  1. S YSUPDMSG="**** Occurrences of 'ICD9' changed to 'ICD DIAGNOSIS' ****"
  1. D BMES^XPDUTL(YSUPDMSG)
  1. CHANGE ;
  1. N YSREC
  1. S YSREC=$C(34)_"AE"_$C(34)_" Xref - Type (DSM or ICD DIAGNOSIS), "
  1. S YSREC=YSREC_"DFN, System Dte, Dx, DFN."
  1. S ^DIC(627.8,"%D",7,0)=YSREC
  1. S YSREC=$C(34)_"AG"_$C(34)_" Xref - Type (DSM or ICD DIAGNOSIS), "
  1. S YSREC=YSREC_"DFN, Dx, IFN."
  1. S ^DIC(627.8,"%D",13,0)=YSREC
  1. D BMES^XPDUTL("**** Done ****")
  1. EXIT ;
  1. Q