TIUEC112.m

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 ---TIUEC112   1149     printed  Apr 09, 2024@21:41:43                                                                                                                                                                                                    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