EC2P48PT ;ALB/GTS/JAP/JAM - PATCH EC*2.0*40 Post-Init Rtn ; 12/19/02
;;2.0; EVENT CAPTURE ;**48**;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*48" 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*48.")
.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^EC725U20 ;add new procedures
D NAMECHG^EC725U20 ;change desription
D CPTCHG^EC725U21 ;change CPT code
D INACT^EC725U21 ;inactivate code
D REACT^EC725U21 ;reactivate code
;* set vrrv node (file #725)
S ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
S ECVRRV=ECVRRV_"^EC*2*48"
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[HEC2P48PT 1252 printed Oct 16, 2024@17:56:46 Page 2
EC2P48PT ;ALB/GTS/JAP/JAM - PATCH EC*2.0*40 Post-Init Rtn ; 12/19/02
+1 ;;2.0; EVENT CAPTURE ;**48**;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*48"
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*48.")
+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^EC725U20
+6 ;change desription
DO NAMECHG^EC725U20
+7 ;change CPT code
DO CPTCHG^EC725U21
+8 ;inactivate code
DO INACT^EC725U21
+9 ;reactivate code
DO REACT^EC725U21
+10 ;* set vrrv node (file #725)
+11 SET ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
+12 SET ECVRRV=ECVRRV_"^EC*2*48"
+13 DO PRD^DILFD(725,ECVRRV)
+14 DO MES^XPDUTL(" ")
+15 DO BMES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725)")
+16 DO BMES^XPDUTL(" completed...")
+17 DO MES^XPDUTL(" ")
+18 QUIT
