Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIUEC112

TIUEC112.m

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