EC2P28PT ;ALB/GTS/JAP/JAM/TMD - PATCH EC*2.0*28 Post-Init Rtn ; 5/3/01 8:17pm
;;2.0; EVENT CAPTURE ;**28**;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*28" 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*28.")
.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^EC725U11
;* set vrrv node (file #725)
S ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
S ECVRRV=ECVRRV_"^EC*2*28"
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[HEC2P28PT 1077 printed Dec 13, 2024@01:55:57 Page 2
EC2P28PT ;ALB/GTS/JAP/JAM/TMD - PATCH EC*2.0*28 Post-Init Rtn ; 5/3/01 8:17pm
+1 ;;2.0; EVENT CAPTURE ;**28**;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*28"
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*28.")
+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^EC725U11
+6 ;* set vrrv node (file #725)
+7 SET ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
+8 SET ECVRRV=ECVRRV_"^EC*2*28"
+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
