EC2P167A ;HDSO/RD - EC National Procedure Update; Nov 30, 2023@09:50
;;2.0;EVENT CAPTURE;**167**;May 8, 1996;Build 4
;;Per VA Directive 6402, this routine should not be modified.
;
; This routine is used as a post-init in a KIDS build to
; update the EC National Procedure file (#725).
;
; Reference to ^%ZTLOAD supported by ICR# 10063
; Reference to BMES^XPDUTL supported by ICR# 10141
; Reference to MES^XPDUTL supported by ICR# 10141
;
Q
;
POST ;Entry point
;
D MES^XPDUTL(" ")
D MES^XPDUTL("Updating the EC NATIONAL PROCEDURE File (#725)...")
D MES^XPDUTL(" ")
;
;* add new/edit national procedures
D ADDPROC^EC2P167B ;add new procedures
D NAMECHG^EC2P167B ;change description
;D REACT^EC2P167C ;reactivate code - No Request
D CPTCHG^EC2P167C ;change CPT code
D INACT^EC2P167C ;inactivate code
;
;create task to inspect event code screens
D BMES^XPDUTL("Queuing the inspection of the EC Event Code Screens file (#720.3)")
D MES^XPDUTL("for 04/02/2024 at 1:00 AM. If this patch is installed after that")
D MES^XPDUTL("time, the inspection will queue immediately.")
D MES^XPDUTL(" ")
;
N ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK
S ZTRTN="INACTSCR^ECUTL3(1)",ZTDTH=3240402.0100
S ZTDESC="Inspecting EC Event Code Screens file",ZTIO="" D ^%ZTLOAD
;
D MES^XPDUTL("Done. Task: "_$G(ZTSK)_" has been created for this job. You")
D MES^XPDUTL("will receive a MailMan message with the results on 04/02/2024.")
D MES^XPDUTL(" ")
;
D MES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725) completed.")
D MES^XPDUTL(" ")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEC2P167A 1601 printed Nov 22, 2024@17:05:54 Page 2
EC2P167A ;HDSO/RD - EC National Procedure Update; Nov 30, 2023@09:50
+1 ;;2.0;EVENT CAPTURE;**167**;May 8, 1996;Build 4
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; This routine is used as a post-init in a KIDS build to
+5 ; update the EC National Procedure file (#725).
+6 ;
+7 ; Reference to ^%ZTLOAD supported by ICR# 10063
+8 ; Reference to BMES^XPDUTL supported by ICR# 10141
+9 ; Reference to MES^XPDUTL supported by ICR# 10141
+10 ;
+11 QUIT
+12 ;
POST ;Entry point
+1 ;
+2 DO MES^XPDUTL(" ")
+3 DO MES^XPDUTL("Updating the EC NATIONAL PROCEDURE File (#725)...")
+4 DO MES^XPDUTL(" ")
+5 ;
+6 ;* add new/edit national procedures
+7 ;add new procedures
DO ADDPROC^EC2P167B
+8 ;change description
DO NAMECHG^EC2P167B
+9 ;D REACT^EC2P167C ;reactivate code - No Request
+10 ;change CPT code
DO CPTCHG^EC2P167C
+11 ;inactivate code
DO INACT^EC2P167C
+12 ;
+13 ;create task to inspect event code screens
+14 DO BMES^XPDUTL("Queuing the inspection of the EC Event Code Screens file (#720.3)")
+15 DO MES^XPDUTL("for 04/02/2024 at 1:00 AM. If this patch is installed after that")
+16 DO MES^XPDUTL("time, the inspection will queue immediately.")
+17 DO MES^XPDUTL(" ")
+18 ;
+19 NEW ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK
+20 SET ZTRTN="INACTSCR^ECUTL3(1)"
SET ZTDTH=3240402.0100
+21 SET ZTDESC="Inspecting EC Event Code Screens file"
SET ZTIO=""
DO ^%ZTLOAD
+22 ;
+23 DO MES^XPDUTL("Done. Task: "_$GET(ZTSK)_" has been created for this job. You")
+24 DO MES^XPDUTL("will receive a MailMan message with the results on 04/02/2024.")
+25 DO MES^XPDUTL(" ")
+26 ;
+27 DO MES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725) completed.")
+28 DO MES^XPDUTL(" ")
+29 QUIT
+30 ;
