32 lines
1.1 KiB
Mathematica
32 lines
1.1 KiB
Mathematica
TIUEC112 ; SLC/AJB Environment Check for TIU*1*112;07/31/2003 11:30
|
|
;;1.0;Text Integration Utilities;**112**;Jun 20, 1997
|
|
ECHK ;
|
|
N TMP
|
|
D
|
|
.N DC,LINE S LINE=0
|
|
.F S LINE=LINE+1,DC=$P($T(TITLES+LINE),";;",2) Q:DC="EOM" D
|
|
..N DIC,X,Y
|
|
..S DIC="8925.1",DIC(0)="X"
|
|
..S X=DC
|
|
..D ^DIC
|
|
..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."
|
|
I $D(TMP) D
|
|
.D MES^XPDUTL("The following entries in the TIU DOCUMENT DEFINITION FILE conflict with")
|
|
.D MES^XPDUTL("the DOCUMENT CLASSES and TITLES needed for this installation."),MES^XPDUTL(" ")
|
|
.S TMP="" F S TMP=$O(TMP(TMP)) Q:TMP="" D MES^XPDUTL(TMP(TMP))
|
|
I D BMES^XPDUTL("Please rename the entries before restarting the installation of this patch.") S XPDABORT=2 Q
|
|
D BMES^XPDUTL("The environment check has completed successfully.")
|
|
Q
|
|
TITLES ;
|
|
;;SURGICAL REPORTS
|
|
;;OPERATION REPORTS
|
|
;;OPERATION REPORT
|
|
;;NURSE INTRAOPERATIVE REPORTS
|
|
;;NURSE INTRAOPERATIVE REPORT
|
|
;;ANESTHESIA REPORTS
|
|
;;ANESTHESIA REPORT
|
|
;;PROCEDURE REPORT (NON-O.R.)
|
|
;;PROCEDURE REPORT
|
|
;;EOM
|
|
Q
|