EC2P43PT.m

EC2P43PT ;ALB/GTS/JAP/JAM - PATCH EC*2.0*40 Post-Init Rtn ; 8/23/02 8:207am

 ;;2.0; EVENT CAPTURE ;**43**;8 May 96

 ;

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*43" 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*43.")

 .D MES^XPDUTL(" ")

 .D MES^XPDUTL("But the patch may be re-installed...")

 .D MES^XPDUTL(" ")

 D ENTUP

 Q

 ;

ENTUP ; 

 D MES^XPDUTL(" ")

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

 D MES^XPDUTL(" ")

 ;* add new/edit national procedures

 D ADDPROC^EC725U17  ;add new procedures

 ;D NAMECHG^EC725U15  ;change desription

 ;D CPTCHG^EC725U16   ;change CPT code

 ;D INACT^EC725U16    ;inactivate code

 ;* set vrrv node (file #725)

 S ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")

 S ECVRRV=ECVRRV_"^EC*2*43"

 D PRD^DILFD(725,ECVRRV)

 D MES^XPDUTL(" ")

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

 D BMES^XPDUTL("   completed...")

 D MES^XPDUTL(" ")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EC2P43PT   1223     printed  Apr 09, 2024@21:01:53                                                                                                                                                                                                    Page 2

EC2P43PT  ;ALB/GTS/JAP/JAM - PATCH EC*2.0*40 Post-Init Rtn ; 8/23/02 8:207am

 +1       ;;2.0; EVENT CAPTURE ;**43**;8 May 96

 +2       ;

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*43"

               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*43.")

 +9                DO MES^XPDUTL(" ")

 +10               DO MES^XPDUTL("But the patch may be re-installed...")

 +11               DO MES^XPDUTL(" ")

               End DoDot:1

 +12       DO ENTUP

 +13       QUIT 

 +14      ;

ENTUP     ; 

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

 +6       ;D NAMECHG^EC725U15  ;change desription

 +7       ;D CPTCHG^EC725U16   ;change CPT code

 +8       ;D INACT^EC725U16    ;inactivate code

 +9       ;* set vrrv node (file #725)

 +10       SET ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")

 +11       SET ECVRRV=ECVRRV_"^EC*2*43"

 +12       DO PRD^DILFD(725,ECVRRV)

 +13       DO MES^XPDUTL(" ")

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

 +15       DO BMES^XPDUTL("   completed...")

 +16       DO MES^XPDUTL(" ")

 +17       QUIT