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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUEC112 1149 printed Dec 13, 2024@02:39:54 Page 2
TIUEC112 ; SLC/AJB Environment Check for TIU*1*112;07/31/2003 11:30
+1 ;;1.0;Text Integration Utilities;**112**;Jun 20, 1997
ECHK ;
+1 NEW TMP
+2 Begin DoDot:1
+3 NEW DC,LINE
SET LINE=0
+4 FOR
SET LINE=LINE+1
SET DC=$PIECE($TEXT(TITLES+LINE),";;",2)
if DC="EOM"
QUIT
Begin DoDot:2
+5 NEW DIC,X,Y
+6 SET DIC="8925.1"
SET DIC(0)="X"
+7 SET X=DC
+8 DO ^DIC
+9 IF +Y>0
IF $PIECE(^TIU(8925.1,+Y,0),U,13)'=1
SET TMP(LINE)=$$GET1^DIQ(8925.1,+Y,.01)_" ("_$$GET1^DIQ(8925.1,+Y,.04)_") is not a NATIONAL STANDARD entry."
End DoDot:2
End DoDot:1
+10 IF $DATA(TMP)
Begin DoDot:1
+11 DO MES^XPDUTL("The following entries in the TIU DOCUMENT DEFINITION FILE conflict with")
+12 DO MES^XPDUTL("the DOCUMENT CLASSES and TITLES needed for this installation.")
DO MES^XPDUTL(" ")
+13 SET TMP=""
FOR
SET TMP=$ORDER(TMP(TMP))
if TMP=""
QUIT
DO MES^XPDUTL(TMP(TMP))
End DoDot:1
+14 IF $TEST
DO BMES^XPDUTL("Please rename the entries before restarting the installation of this patch.")
SET XPDABORT=2
QUIT
+15 DO BMES^XPDUTL("The environment check has completed successfully.")
+16 QUIT
TITLES ;
+1 ;;SURGICAL REPORTS
+2 ;;OPERATION REPORTS
+3 ;;OPERATION REPORT
+4 ;;NURSE INTRAOPERATIVE REPORTS
+5 ;;NURSE INTRAOPERATIVE REPORT
+6 ;;ANESTHESIA REPORTS
+7 ;;ANESTHESIA REPORT
+8 ;;PROCEDURE REPORT (NON-O.R.)
+9 ;;PROCEDURE REPORT
+10 ;;EOM
+11 QUIT
