- 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 Apr 23, 2025@18:10:27 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
