Last change
on this file since 1006 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.1 KB
|
Rev | Line | |
---|
[613] | 1 | TIUEC112 ; SLC/AJB Environment Check for TIU*1*112;07/31/2003 11:30
|
---|
| 2 | ;;1.0;Text Integration Utilities;**112**;Jun 20, 1997
|
---|
| 3 | ECHK ;
|
---|
| 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
|
---|
| 20 | TITLES ;
|
---|
| 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.