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 ---[H[J[2J[HEC2P168A 1974 printed Oct 16, 2024@17:56:31 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
