- 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 Feb 19, 2025@00:06:23 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