EC2P146A.m

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 ---EC2P146A   1316     printed  Apr 09, 2024@21:02: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