EC2P128A.m

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 ---EC2P128A   1595     printed  Apr 09, 2024@21:02:57                                                                                                                                                                                                    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