EC2P168A.m

EC2P168A ;MNT/JB - EC National Procedure Update; April 19, 2024@15:50

 ;;2.0;EVENT CAPTURE;**168**;May 8, 1996;Build 8

 ;

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

 ; update the EC National Procedure file (#725) for FY25.

 ;

 ; 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(" ")

 ;

  ; File Backup prior to Install  

 N EC168FILES

 S EC168FILE=""

 S EC168FILES="725"

 S ECCNT=0

 F ECCNT=1:1:$L(EC168FILES,"^") D

 . S EC168FILE=$P(EC168FILES,"^",ECCNT)

 . D GLBBKUP

 . Q

 ;* add new/edit national procedures

 ;D ADDPROC^EC2P168B  ;add new procedures - No FY25 Request

 D NAMECHG^EC2P168B  ;change description

 D REACT^EC2P168C    ;reactivate code

 D CPTCHG^EC2P168C   ;change CPT code

 D INACT^EC2P168C    ;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/2/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=3241002.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/2/2024.")

 D MES^XPDUTL(" ")

 ;

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

 D MES^XPDUTL(" ")

 Q

 ;

GLBBKUP  ; XTMP Backup of file(s)

 S ECBKUPNDE="EC*2*168-EC NATIONAL CODE UPDATES FOR FY25 - FILE BACKUP"

 S ^XTMP("EC2P168",0)=$$FMADD^XLFDT(DT,120)_"^"_DT_"^"_ECBKUPNDE

 M ^XTMP("EC2P168",EC168FILE,$H)=^EC(EC168FILE)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EC2P168A   1974     printed  Feb 18, 2025@23:22:11                                                                                                                                                                                                    Page 2

EC2P168A  ;MNT/JB - EC National Procedure Update; April 19, 2024@15:50

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

 +2       ;

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

 +4       ; update the EC National Procedure file (#725) for FY25.

 +5       ;

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

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

 +8       ; Reference to MES^XPDUTL supported by ICR# 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       ; File Backup prior to Install  

 +7        NEW EC168FILES

 +8        SET EC168FILE=""

 +9        SET EC168FILES="725"

 +10       SET ECCNT=0

 +11       FOR ECCNT=1:1:$LENGTH(EC168FILES,"^")

               Begin DoDot:1

 +12               SET EC168FILE=$PIECE(EC168FILES,"^",ECCNT)

 +13               DO GLBBKUP

 +14               QUIT 

               End DoDot:1

 +15      ;* add new/edit national procedures

 +16      ;D ADDPROC^EC2P168B  ;add new procedures - No FY25 Request

 +17      ;change description

           DO NAMECHG^EC2P168B

 +18      ;reactivate code

           DO REACT^EC2P168C

 +19      ;change CPT code

           DO CPTCHG^EC2P168C

 +20      ;inactivate code

           DO INACT^EC2P168C

 +21      ;

 +22      ;create task to inspect event code screens

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

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

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

 +26       DO MES^XPDUTL(" ")

 +27      ;

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

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

           SET ZTDTH=3241002.0100

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

           SET ZTIO=""

           DO ^%ZTLOAD

 +31      ;

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

 +33       DO MES^XPDUTL("will receive a MailMan message with the results on 10/2/2024.")

 +34       DO MES^XPDUTL(" ")

 +35      ;

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

 +37       DO MES^XPDUTL(" ")

 +38       QUIT 

 +39      ;

GLBBKUP   ; XTMP Backup of file(s)

 +1        SET ECBKUPNDE="EC*2*168-EC NATIONAL CODE UPDATES FOR FY25 - FILE BACKUP"

 +2        SET ^XTMP("EC2P168",0)=$$FMADD^XLFDT(DT,120)_"^"_DT_"^"_ECBKUPNDE

 +3        MERGE ^XTMP("EC2P168",EC168FILE,$HOROLOG)=^EC(EC168FILE)

 +4        QUIT