EC2P128A ;ALB/DE - EC National Procedure Update ; 4/4/15 11:00am
;;2.0;EVENT CAPTURE;**128**;8 May 96;Build 1
;
;this routine is used as a post-init in a KIDS build
;to modify the EC National Procedure file (#725)
;
Q
;
POST ; entry point
N ECVRRV
;* if 725 converted, write message
; since check inserted in addproc subroutine, patch may be re-installed
I $$GET1^DID(725,"","","PACKAGE REVISION DATA")["EC*2*128" D
.D MES^XPDUTL(" ")
.D MES^XPDUTL("It appears that the EC NATIONAL PROCEDURE")
.D MES^XPDUTL("file (#725) has already been updated")
.D MES^XPDUTL("with Patch EC*2*128.")
.D MES^XPDUTL(" ")
.D MES^XPDUTL("But the patch may be re-installed...")
.D MES^XPDUTL(" ")
D ENTUPD
Q
;
ENTUPD ;
D MES^XPDUTL(" ")
D BMES^XPDUTL("Updating the National Procedures file (#725)...")
D MES^XPDUTL(" ")
;* add new/edit national procedures
D ADDPROC^EC2P128B ;add new procedures
D NAMECHG^EC2P128B ;change description
D CPTCHG^EC2P128C ;change CPT code
D INACT^EC2P128C ;inactivate code
;
D BMES^XPDUTL(" ")
D BMES^XPDUTL("Inspecting EC Event Code Screens file (#720.3)...")
D BMES^XPDUTL("You will receive a MailMan message regarding file #720.3 ")
D MES^XPDUTL(" ")
D INACTSCR^ECUTL3(1) ;api to automatically inactivate associated event code screens
;
;* set VRRV node (file #725)
S ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
S ECVRRV=ECVRRV_"^EC*2*128"
D PRD^DILFD(725,ECVRRV)
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[HEC2P128A 1595 printed Dec 13, 2024@01:54:50 Page 2
EC2P128A ;ALB/DE - EC National Procedure Update ; 4/4/15 11:00am
+1 ;;2.0;EVENT CAPTURE;**128**;8 May 96;Build 1
+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 NEW ECVRRV
+2 ;* if 725 converted, write message
+3 ; since check inserted in addproc subroutine, patch may be re-installed
+4 IF $$GET1^DID(725,"","","PACKAGE REVISION DATA")["EC*2*128"
Begin DoDot:1
+5 DO MES^XPDUTL(" ")
+6 DO MES^XPDUTL("It appears that the EC NATIONAL PROCEDURE")
+7 DO MES^XPDUTL("file (#725) has already been updated")
+8 DO MES^XPDUTL("with Patch EC*2*128.")
+9 DO MES^XPDUTL(" ")
+10 DO MES^XPDUTL("But the patch may be re-installed...")
+11 DO MES^XPDUTL(" ")
End DoDot:1
+12 DO ENTUPD
+13 QUIT
+14 ;
ENTUPD ;
+1 DO MES^XPDUTL(" ")
+2 DO BMES^XPDUTL("Updating the National Procedures file (#725)...")
+3 DO MES^XPDUTL(" ")
+4 ;* add new/edit national procedures
+5 ;add new procedures
DO ADDPROC^EC2P128B
+6 ;change description
DO NAMECHG^EC2P128B
+7 ;change CPT code
DO CPTCHG^EC2P128C
+8 ;inactivate code
DO INACT^EC2P128C
+9 ;
+10 DO BMES^XPDUTL(" ")
+11 DO BMES^XPDUTL("Inspecting EC Event Code Screens file (#720.3)...")
+12 DO BMES^XPDUTL("You will receive a MailMan message regarding file #720.3 ")
+13 DO MES^XPDUTL(" ")
+14 ;api to automatically inactivate associated event code screens
DO INACTSCR^ECUTL3(1)
+15 ;
+16 ;* set VRRV node (file #725)
+17 SET ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
+18 SET ECVRRV=ECVRRV_"^EC*2*128"
+19 DO PRD^DILFD(725,ECVRRV)
+20 DO MES^XPDUTL(" ")
+21 DO BMES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725) completed.")
+22 DO MES^XPDUTL(" ")
+23 QUIT
