EC2P114 ;ALB/MGD - EC ICD10 CLASS I REMEDIATION PRE-INSTALL ;1 Jul 2008
;;2.0;EVENT CAPTURE;**114**;8 May 96;Build 20
;
Q
;
DEL38 ; Delete SECONDARY ICD-9 CODE (#38) Screen nodes from the EVENT CAPTURE PATIENT file (#721)
D BMES^XPDUTL("Deleting old SECONDARY ICD-9 Screen nodes.")
K ^DD(721,38,12) ; Delete the EXPLANATION
K ^DD(721,38,12.1) ; Delete the SCREEN
Q
; End of EC114
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEC2P114 400 printed Sep 23, 2025@19:30:46 Page 2
EC2P114 ;ALB/MGD - EC ICD10 CLASS I REMEDIATION PRE-INSTALL ;1 Jul 2008
+1 ;;2.0;EVENT CAPTURE;**114**;8 May 96;Build 20
+2 ;
+3 QUIT
+4 ;
DEL38 ; Delete SECONDARY ICD-9 CODE (#38) Screen nodes from the EVENT CAPTURE PATIENT file (#721)
+1 DO BMES^XPDUTL("Deleting old SECONDARY ICD-9 Screen nodes.")
+2 ; Delete the EXPLANATION
KILL ^DD(721,38,12)
+3 ; Delete the SCREEN
KILL ^DD(721,38,12.1)
+4 QUIT
+5 ; End of EC114
