EC2P146A ;ALB/DBE - EC National Procedure Update;11/28/18 12:00pm
;;2.0;EVENT CAPTURE;**146**;8 May 96;Build 4
;
;this routine is used as a post-init in a KIDS build
;to modify the EC National Procedure file (#725)
;
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^EC2P146B ;add new procedures
;D NAMECHG^ ;change description - No MID-FY19 Request
;D CPTCHG^ ;change CPT code - No MID-FY19 Request
D INACT^EC2P146C ;inactivate code
;
;create task to inspect event code screens
D MES^XPDUTL(" ")
D BMES^XPDUTL("Queuing the inspection of the EC Event Code Screens file (#720.3)")
D MES^XPDUTL("for 04/02/19 at 1:00 AM. If this patch is installed after that time")
D MES^XPDUTL("the inspection will queue immediately.")
N ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK
S ZTRTN="INACTSCR^ECUTL3(1)",ZTDTH=3190402.0100,ZTDESC="Inspecting EC Event Code Screens file",ZTIO="" D ^%ZTLOAD
D BMES^XPDUTL("Done. Task: "_$G(ZTSK)_" has been created for this job.")
D MES^XPDUTL("You will receive a MailMan message with the results on 04/02/19.")
;
D MES^XPDUTL(" ")
D BMES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725) completed.")
D MES^XPDUTL(" ")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEC2P146A 1316 printed Dec 13, 2024@01:55:12 Page 2
EC2P146A ;ALB/DBE - EC National Procedure Update;11/28/18 12:00pm
+1 ;;2.0;EVENT CAPTURE;**146**;8 May 96;Build 4
+2 ;
+3 ;this routine is used as a post-init in a KIDS build
+4 ;to modify the EC National Procedure file (#725)
+5 ;
+6 QUIT
+7 ;
POST ; entry point
+1 DO MES^XPDUTL(" ")
+2 DO MES^XPDUTL("Updating the EC NATIONAL PROCEDURE File (#725)...")
+3 DO MES^XPDUTL(" ")
+4 ;* add new/edit national procedures
+5 ;add new procedures
DO ADDPROC^EC2P146B
+6 ;D NAMECHG^ ;change description - No MID-FY19 Request
+7 ;D CPTCHG^ ;change CPT code - No MID-FY19 Request
+8 ;inactivate code
DO INACT^EC2P146C
+9 ;
+10 ;create task to inspect event code screens
+11 DO MES^XPDUTL(" ")
+12 DO BMES^XPDUTL("Queuing the inspection of the EC Event Code Screens file (#720.3)")
+13 DO MES^XPDUTL("for 04/02/19 at 1:00 AM. If this patch is installed after that time")
+14 DO MES^XPDUTL("the inspection will queue immediately.")
+15 NEW ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK
+16 SET ZTRTN="INACTSCR^ECUTL3(1)"
SET ZTDTH=3190402.0100
SET ZTDESC="Inspecting EC Event Code Screens file"
SET ZTIO=""
DO ^%ZTLOAD
+17 DO BMES^XPDUTL("Done. Task: "_$GET(ZTSK)_" has been created for this job.")
+18 DO MES^XPDUTL("You will receive a MailMan message with the results on 04/02/19.")
+19 ;
+20 DO MES^XPDUTL(" ")
+21 DO BMES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725) completed.")
+22 DO MES^XPDUTL(" ")
+23 QUIT
