| [613] | 1 | EC2P48PT ;ALB/GTS/JAP/JAM - PATCH EC*2.0*40 Post-Init Rtn ; 12/19/02
|
|---|
| 2 | ;;2.0; EVENT CAPTURE ;**48**;8 May 96
|
|---|
| 3 | ;
|
|---|
| 4 | POST ; entry point
|
|---|
| 5 | N ECVRRV
|
|---|
| 6 | ;* if 725 converted, write message
|
|---|
| 7 | ; since check inserted in addproc subroutine, patch may be re-installed
|
|---|
| 8 | I $$GET1^DID(725,"","","PACKAGE REVISION DATA")["EC*2*48" D
|
|---|
| 9 | .D MES^XPDUTL(" ")
|
|---|
| 10 | .D MES^XPDUTL("It appears that the EC NATIONAL PROCEDURE")
|
|---|
| 11 | .D MES^XPDUTL("file (#725) has already been updated")
|
|---|
| 12 | .D MES^XPDUTL("with Patch EC*2*48.")
|
|---|
| 13 | .D MES^XPDUTL(" ")
|
|---|
| 14 | .D MES^XPDUTL("But the patch may be re-installed...")
|
|---|
| 15 | .D MES^XPDUTL(" ")
|
|---|
| 16 | D ENTUP
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | ENTUP ;
|
|---|
| 20 | D MES^XPDUTL(" ")
|
|---|
| 21 | D BMES^XPDUTL("Updating the National Procedures file (#725)...")
|
|---|
| 22 | D MES^XPDUTL(" ")
|
|---|
| 23 | ;* add new/edit national procedures
|
|---|
| 24 | D ADDPROC^EC725U20 ;add new procedures
|
|---|
| 25 | D NAMECHG^EC725U20 ;change desription
|
|---|
| 26 | D CPTCHG^EC725U21 ;change CPT code
|
|---|
| 27 | D INACT^EC725U21 ;inactivate code
|
|---|
| 28 | D REACT^EC725U21 ;reactivate code
|
|---|
| 29 | ;* set vrrv node (file #725)
|
|---|
| 30 | S ECVRRV=$$GET1^DID(725,"","","PACKAGE REVISION DATA")
|
|---|
| 31 | S ECVRRV=ECVRRV_"^EC*2*48"
|
|---|
| 32 | D PRD^DILFD(725,ECVRRV)
|
|---|
| 33 | D MES^XPDUTL(" ")
|
|---|
| 34 | D BMES^XPDUTL("Update of EC NATIONAL PROCEDURE file (#725)")
|
|---|
| 35 | D BMES^XPDUTL(" completed...")
|
|---|
| 36 | D MES^XPDUTL(" ")
|
|---|
| 37 | Q
|
|---|
