source: FOIAVistA/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/EC2P48PT.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1EC2P48PT ;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 ;
4POST ; 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 ;
19ENTUP ;
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
Note: See TracBrowser for help on using the repository browser.