source: FOIAVistA/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/EC725.m@ 914

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

initial load of FOIAVistA 6/30/08 version

File size: 457 bytes
Line 
1EC725 ;BIR/CML,JPW-Updates for File 725 ;28 Aug 96
2 ;;2.0; EVENT CAPTURE ;**2**;8 May 96
3 ;
4CHECK ; check entries and in file 725
5 D MES^XPDUTL("Updating existing entry ""PC-THEODICY-PT SPIRITUAL"" to ""PC-THEODICY-UNFAIRNESS OF GOD/LIFE 14091""...")
6 S EC1=$P($G(^EC(725,58,0)),"^")
7 S ECA="PC-THEODICY-UNFAIRNESS OF GOD/LIFE 14091"
8 S $P(^EC(725,58,0),"^")=ECA
9 K ^EC(725,"B",EC1,58) S ^EC(725,"B",ECA,58)=""
10 D MES^XPDUTL("Entry updated.")
11 K EC1,ECA
12 Q
Note: See TracBrowser for help on using the repository browser.