source: WorldVistAEHR/trunk/r/EVENT_CAPTURE-EC--ECT--ECX/EC725E.m@ 623

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

initial load of WorldVistAEHR

File size: 508 bytes
Line 
1EC725E ;BIR/CML,JPW-Environment Check for Updates to File 725 ;28 Aug 96
2 ;;2.0; EVENT CAPTURE ;**2**;8 May 96
3ACCESS ;check user access
4 I $D(DUZ),$D(DUZ)#2,$D(^VA(200,+DUZ,0)),$D(DUZ(0)),DUZ(0)="@" G CHECK
5 D MES^XPDUTL("You must be a defined user with DUZ(0)=""@""") S XPDQUIT=2
6 Q
7 ;
8CHECK ; check entries and in file 725
9 S EC1=$P($G(^EC(725,58,0)),"^")
10 I EC1'="PC-THEODICY-PT SPIRITUAL" D MES^XPDUTL("Your procedure data is incorrect. Please call the IRM Field Office.") K EC1 S XPDQUIT=1
11 K EC1
12 Q
Note: See TracBrowser for help on using the repository browser.