Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.1 KB
|
Line | |
---|
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.