EC2P157A.m

EC2P157A ;ALB/TXH - EC National Procedure Update; May 19, 2022@10:05

 ;;2.0;EVENT CAPTURE;**157**;May 8, 1996;Build 4

 ;

 ; 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 DBIA# 10063

 ; Reference to BMES^XPDUTL supported by DBIA# 10141

 ; Reference to MES^XPDUTL supported by DBIA# 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^EC2P157B  ;add new procedures

 D NAMECHG^EC2P157B  ;change description

 D CPTCHG^EC2P157C   ;change CPT code

 D INACT^EC2P157C    ;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 10/02/2022 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=3221002.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 10/02/2022.")

 D MES^XPDUTL(" ")

 ;

 D MES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725) completed.")

 D MES^XPDUTL(" ")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EC2P157A   1483     printed  Apr 09, 2024@21:02:05                                                                                                                                                                                                    Page 2

EC2P157A  ;ALB/TXH - EC National Procedure Update; May 19, 2022@10:05

 +1       ;;2.0;EVENT CAPTURE;**157**;May 8, 1996;Build 4

 +2       ;

 +3       ; This routine is used as a post-init in a KIDS build

 +4       ; to update the EC National Procedure File (#725).

 +5       ;

 +6       ; Reference to ^%ZTLOAD supported by DBIA# 10063

 +7       ; Reference to BMES^XPDUTL supported by DBIA# 10141

 +8       ; Reference to MES^XPDUTL supported by DBIA# 10141

 +9       ;

 +10       QUIT 

 +11      ;

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^EC2P157B

 +8       ;change description

           DO NAMECHG^EC2P157B

 +9       ;change CPT code

           DO CPTCHG^EC2P157C

 +10      ;inactivate code

           DO INACT^EC2P157C

 +11      ;

 +12      ;create task to inspect event code screens

 +13       DO BMES^XPDUTL("Queuing the inspection of the EC Event Code Screens file (#720.3)")

 +14       DO MES^XPDUTL("for 10/02/2022 at 1:00 AM. If this patch is installed after that")

 +15       DO MES^XPDUTL("time, the inspection will queue immediately.")

 +16       DO MES^XPDUTL(" ")

 +17      ;

 +18       NEW ZTRTN,ZTDTH,ZTDESC,ZTIO,ZTSK

 +19       SET ZTRTN="INACTSCR^ECUTL3(1)"

           SET ZTDTH=3221002.0100

 +20       SET ZTDESC="Inspecting EC Event Code Screens file"

           SET ZTIO=""

           DO ^%ZTLOAD

 +21      ;

 +22       DO MES^XPDUTL("Done. Task: "_$GET(ZTSK)_" has been created for this job. You")

 +23       DO MES^XPDUTL("will receive a MailMan message with the results on 10/02/2022.")

 +24       DO MES^XPDUTL(" ")

 +25      ;

 +26       DO MES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725) completed.")

 +27       DO MES^XPDUTL(" ")

 +28       QUIT