EC2P137A.m

EC2P137A ;ALB/DE - EC National Procedure Update ; 4/8/17 11:00am

 ;;2.0;EVENT CAPTURE;**137**;8 May 96;Build 5

 ;

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

 ;to modify the EC National Procedure file (#725)

 ;

 Q

 ;

POST ; entry point 

 D MES^XPDUTL(" ")

 D BMES^XPDUTL("Updating the National Procedures file (#725)...")

 D MES^XPDUTL(" ")

 ;* add new/edit national procedures

 D ADDPROC^EC2P137B ;add new procedures

 D NAMECHG^EC2P137B ;change description

 D CPTCHG^EC2P137C  ;change CPT code

 D INACT^EC2P137C   ;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

 ;

 D MES^XPDUTL(" ")

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

 D MES^XPDUTL(" ")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EC2P137A   960     printed  Oct 16, 2024@17:55:45                                                                                                                                                                                                     Page 2

EC2P137A  ;ALB/DE - EC National Procedure Update ; 4/8/17 11:00am

 +1       ;;2.0;EVENT CAPTURE;**137**;8 May 96;Build 5

 +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        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^EC2P137B

 +6       ;change description

           DO NAMECHG^EC2P137B

 +7       ;change CPT code

           DO CPTCHG^EC2P137C

 +8       ;inactivate code

           DO INACT^EC2P137C

 +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       DO MES^XPDUTL(" ")

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

 +18       DO MES^XPDUTL(" ")

 +19       QUIT