EC2P40PT ;ALB/GTS/JAP/JAM - PATCH EC*2.0*40 Post-Init Rtn ; 12/07/01 8:17pm
;;2.0; EVENT CAPTURE ;**40**;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*40" 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*40.")
.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^EC725U15 ;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*40"
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[HEC2P40PT 1220 printed Nov 22, 2024@17:06:09 Page 2
EC2P40PT ;ALB/GTS/JAP/JAM - PATCH EC*2.0*40 Post-Init Rtn ; 12/07/01 8:17pm
+1 ;;2.0; EVENT CAPTURE ;**40**;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*40"
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*40.")
+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^EC725U15
+6 ;change desription
DO NAMECHG^EC725U15
+7 ;change CPT code
DO CPTCHG^EC725U16
+8 ;inactivate code
DO INACT^EC725U16
+9 ;* set vrrv node (file #725)
+10 SET ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
+11 SET ECVRRV=ECVRRV_"^EC*2*40"
+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
