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

TIUCHECK.m

Go to the documentation of this file.
  1. TIUCHECK ;SLC/AJB,AGP TIU Objects and Templare Fields API;22-DEC-2009
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**249,244**;Jun 20, 1997;Build 9
  1. ;
  1. BLDOBJAR(TIUOUT,TIUIEN) ;
  1. N TIUNODE
  1. S TIUNODE=$G(^TIU(8925.1,TIUIEN,0))
  1. S TIUOUT(TIUIEN,.01)=$P(TIUNODE,U),TIUOUT(TIUIEN,.04)=$P(TIUNODE,U,4)
  1. S TIUOUT(TIUIEN,.07)=$$GETSTAT(TIUIEN)
  1. S TIUOUT(TIUIEN,9)=$G(^TIU(8925.1,TIUIEN,9))
  1. Q
  1. ;
  1. CANUREMD(TIUIEN) ;
  1. N TIUNODE,TIURESLT
  1. S TIURESLT=0
  1. I $$PATCH^XPDUTL("PXRM*2.0*12")=0 D Q TIURESLT
  1. .S TIUNODE=$G(^PXRMD(801.41,TIUIEN,0))
  1. .I $P(TIUNODE,U,4)'="R" Q
  1. .I $P(TIUNODE,U,3)'="" Q
  1. .S TIURESLT=1
  1. S TIURESLT=$$ISACTDLG^PXRMDLG6(TIUIEN)
  1. Q TIURESLT
  1. ;
  1. FINDIEN(X) ;
  1. ; need to check both the B and C xref return -1 if name does not exist
  1. ;or if name does exist and the item is not an object.
  1. ;if item is an object returns the IEN for the object.
  1. N DIC,Y
  1. S DIC=8925.1,DIC(0)="FMXZ"
  1. S DIC("S")="I $P($G(^TIU(8925.1,+Y,0)),U,4)=""O"""
  1. D ^DIC
  1. I +Y'>0 Q -1
  1. Q +Y
  1. ;
  1. GETSTAT(TIUIEN) ;
  1. N TIUSTIEN
  1. S TIUSTIEN=$P($G(^TIU(8925.1,TIUIEN,0)),U,7)
  1. Q $P($G(^TIU(8925.6,TIUSTIEN,0)),U)
  1. ;
  1. OBJBYIEN(TIUOUT,TIUIEN) ;
  1. D BLDOBJAR(.TIUOUT,TIUIEN)
  1. Q
  1. ;
  1. OBJBYNAM(TIUOUT,TIUNAME) ;
  1. N TIUIEN
  1. S TIUIEN=$$FINDIEN(TIUNAME) I TIUIEN=-1 Q -1
  1. D BLDOBJAR(.TIUOUT,TIUIEN)
  1. Q TIUIEN
  1. ;
  1. OBJSTAT(TIUNAME) ;
  1. ;Output
  1. ; -1 Object does not exist
  1. ; 0 Object is inactive
  1. ; 1 Object exist is active
  1. ;
  1. N TIUIEN
  1. S TIUIEN=$$FINDIEN(TIUNAME) I TIUIEN=-1 Q -1
  1. I $$GETSTAT(TIUIEN)="INACTIVE" Q 0
  1. Q 1
  1. ;
  1. TEMPSTAT(TIUNAME) ;
  1. ;Output
  1. ; -1 Template Field does not exist
  1. ; 0 Template Field is inactive
  1. ; 1 Template Field exist and is active
  1. ;
  1. I '$D(^TIU(8927.1,"B",TIUNAME)) Q -1
  1. N TIUIEN
  1. S TIUIEN=$O(^TIU(8927.1,"B",TIUNAME,"")) I TIUIEN'>0 Q -1
  1. I $P($G(^TIU(8927.1,TIUIEN,0)),U,3)=1 Q 0
  1. Q 1