|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 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.
