EC2P35PT.m

EC2P35PT ;ALB/GTS/JAP/JAM/TMD - PATCH EC*2.0*35 Post-Init Rtn ; 10/11/01 8:17pm

 ;;2.0; EVENT CAPTURE ;**35**;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*35" 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*35.")

 .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 national procedures

 D ADDPROC^EC725U13

 ;* set vrrv node (file #725)

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

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

 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 ---EC2P35PT   1079     printed  Apr 09, 2024@21:01:03                                                                                                                                                                                                    Page 2

EC2P35PT  ;ALB/GTS/JAP/JAM/TMD - PATCH EC*2.0*35 Post-Init Rtn ; 10/11/01 8:17pm

 +1       ;;2.0; EVENT CAPTURE ;**35**;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*35"

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

 +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 national procedures

 +5        DO ADDPROC^EC725U13

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

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

 +8        SET ECVRRV=ECVRRV_"^EC*2*35"

 +9        DO PRD^DILFD(725,ECVRRV)

 +10       DO MES^XPDUTL(" ")

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

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

 +13       DO MES^XPDUTL(" ")

 +14       QUIT