EC2P37PT ;ALB/GTS/JAP/JAM/TMD - PATCH EC*2.0*37 Post-Init Rtn ; 12/07/01 8:17pm
;;2.0; EVENT CAPTURE ;**37**;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*37" 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*37.")
.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^EC725U14
D NAMECHG^EC725U14
;* set vrrv node (file #725)
S ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
S ECVRRV=ECVRRV_"^EC*2*37"
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 ---[H[J[2J[HEC2P37PT 1100 printed Dec 13, 2024@01:55:58 Page 2
EC2P37PT ;ALB/GTS/JAP/JAM/TMD - PATCH EC*2.0*37 Post-Init Rtn ; 12/07/01 8:17pm
+1 ;;2.0; EVENT CAPTURE ;**37**;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*37"
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*37.")
+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^EC725U14
+6 DO NAMECHG^EC725U14
+7 ;* set vrrv node (file #725)
+8 SET ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
+9 SET ECVRRV=ECVRRV_"^EC*2*37"
+10 DO PRD^DILFD(725,ECVRRV)
+11 DO MES^XPDUTL(" ")
+12 DO BMES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725)")
+13 DO BMES^XPDUTL(" completed...")
+14 DO MES^XPDUTL(" ")
+15 QUIT
