source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEC112.m@ 975

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1TIUEC112 ; SLC/AJB Environment Check for TIU*1*112;07/31/2003 11:30
2 ;;1.0;Text Integration Utilities;**112**;Jun 20, 1997
3ECHK ;
4 N TMP
5 D
6 .N DC,LINE S LINE=0
7 .F S LINE=LINE+1,DC=$P($T(TITLES+LINE),";;",2) Q:DC="EOM" D
8 ..N DIC,X,Y
9 ..S DIC="8925.1",DIC(0)="X"
10 ..S X=DC
11 ..D ^DIC
12 ..I +Y>0,$P(^TIU(8925.1,+Y,0),U,13)'=1 S TMP(LINE)=$$GET1^DIQ(8925.1,+Y,.01)_" ("_$$GET1^DIQ(8925.1,+Y,.04)_") is not a NATIONAL STANDARD entry."
13 I $D(TMP) D
14 .D MES^XPDUTL("The following entries in the TIU DOCUMENT DEFINITION FILE conflict with")
15 .D MES^XPDUTL("the DOCUMENT CLASSES and TITLES needed for this installation."),MES^XPDUTL(" ")
16 .S TMP="" F S TMP=$O(TMP(TMP)) Q:TMP="" D MES^XPDUTL(TMP(TMP))
17 I D BMES^XPDUTL("Please rename the entries before restarting the installation of this patch.") S XPDABORT=2 Q
18 D BMES^XPDUTL("The environment check has completed successfully.")
19 Q
20TITLES ;
21 ;;SURGICAL REPORTS
22 ;;OPERATION REPORTS
23 ;;OPERATION REPORT
24 ;;NURSE INTRAOPERATIVE REPORTS
25 ;;NURSE INTRAOPERATIVE REPORT
26 ;;ANESTHESIA REPORTS
27 ;;ANESTHESIA REPORT
28 ;;PROCEDURE REPORT (NON-O.R.)
29 ;;PROCEDURE REPORT
30 ;;EOM
31 Q
Note: See TracBrowser for help on using the repository browser.