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

TIUO38.m

Go to the documentation of this file.
  1. TIUO38 ; SLC/JM - TIU Object Export Routine ; 4/30/99 [ 06/19/2001 10:38 AM ]
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**38**;Jun 20, 1997
  1. Q
  1. INSTALL N FILENUM,TAG,ROUTINE,TEXTLINE,FLDNUMS,XPDIDTOT,DIERR,DISYS,%1
  1. K ^DD(8925.1,0,"ID",.04) ;Added to fix Beta Site prob, per DBIA #2813
  1. S FILENUM=8925.1
  1. S U="^",ROUTINE=""
  1. S XPDIDTOT=6
  1. F TAG=1:1:6 D
  1. .N FLD,IDX,IEN,RECORD,DATA,FIELD,TIUFPRIV,ADDCMD
  1. .S IDX=0,TIUFPRIV=1
  1. .F D Q:RECORD=""
  1. ..S IDX=IDX+1
  1. ..S TEXTLINE="EN"_TAG
  1. ..I $L($T(@TEXTLINE+IDX^@("TIUO38"_ROUTINE)))'>0 D
  1. ...I ROUTINE="" S ROUTINE="A"
  1. ...E S ROUTINE=$C($A(ROUTINE)+1)
  1. ..S RECORD=$P($T(@("EN"_TAG)+IDX^@("TIUO38"_ROUTINE)),";;",2)
  1. ..I RECORD'="" D
  1. ...S FIELD=$P(RECORD,U,1)
  1. ...S DATA=$P(RECORD,U,2,99)
  1. ...I IDX=1 D
  1. ....S IEN=$$FIND1^DIC(FILENUM,"","X",DATA,"B","I $P(^(0),U,4)=""O""")
  1. ....I +IEN'>0 D I 1
  1. .....N ADDCMD,IENLIST
  1. .....D ADD("+1")
  1. .....D UPDATE^DIE("",$NA(ADDCMD),$NA(IENLIST))
  1. .....S IEN=IENLIST(1)
  1. ....E D
  1. .....N DELCMD
  1. .....K ^TMP("TIUOBJINS",$J)
  1. .....D GETS^DIQ(FILENUM,IEN,"*","N",$NA(^TMP("TIUOBJINS",$J)))
  1. .....S FLD=0
  1. .....F S FLD=$O(^TMP("TIUOBJINS",$J,FILENUM,IEN_",",FLD)) Q:'FLD D
  1. ......I FLD'=.01 D
  1. .......S DELCMD(FILENUM,IEN_",",FLD)="@"
  1. .....D FILE^DIE("",$NA(DELCMD))
  1. .....K ^TMP("TIUOBJINS",$J)
  1. ...D ADD(IEN)
  1. .D FILE^DIE("E",$NA(ADDCMD))
  1. .D UPDATE^XPDID(TAG)
  1. K ^TMP("DIERR",$J)
  1. Q
  1. ADD(IEN) ;
  1. I '$D(FLDNUMS(FIELD)) D
  1. .S FLDNUMS(FIELD)=$$FLDNUM^DILFD(FILENUM,FIELD)
  1. S ADDCMD(FILENUM,IEN_",",FLDNUMS(FIELD))=DATA
  1. Q
  1. EN1 ;TIU Object:ACTIVE MEDICATIONS
  1. ;;NAME^ACTIVE MEDICATIONS
  1. ;;ABBREVIATION^AMED
  1. ;;PRINT NAME^ACTIVE MEDICATIONS
  1. ;;TYPE^OBJECT
  1. ;;CLASS OWNER^CLINICAL COORDINATOR
  1. ;;STATUS^ACTIVE
  1. ;;NATIONAL STANDARD^NO
  1. ;;OK TO DISTRIBUTE^YES
  1. ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",1)
  1. ;;TIMESTAMP^57652,49986
  1. EN2 ;TIU Object:RECENT MEDICATIONS
  1. ;;NAME^RECENT MEDICATIONS
  1. ;;ABBREVIATION^RMED
  1. ;;PRINT NAME^RECENT MEDICATIONS
  1. ;;TYPE^OBJECT
  1. ;;CLASS OWNER^CLINICAL COORDINATOR
  1. ;;STATUS^ACTIVE
  1. ;;NATIONAL STANDARD^NO
  1. ;;OK TO DISTRIBUTE^YES
  1. ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)")
  1. ;;TIMESTAMP^57652,49384
  1. EN3 ;TIU Object:DETAILED ACTIVE MEDS
  1. ;;NAME^DETAILED ACTIVE MEDS
  1. ;;ABBREVIATION^DAMD
  1. ;;PRINT NAME^DETAILED ACTIVE MEDS
  1. ;;TYPE^OBJECT
  1. ;;CLASS OWNER^CLINICAL COORDINATOR
  1. ;;STATUS^ACTIVE
  1. ;;NATIONAL STANDARD^NO
  1. ;;OK TO DISTRIBUTE^YES
  1. ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",1,1)
  1. ;;TIMESTAMP^57740,41359
  1. EN4 ;TIU Object:DETAILED RECENT MEDS
  1. ;;NAME^DETAILED RECENT MEDS
  1. ;;ABBREVIATION^DRMD
  1. ;;PRINT NAME^DETAILED RECENT MEDS
  1. ;;TYPE^OBJECT
  1. ;;CLASS OWNER^CLINICAL COORDINATOR
  1. ;;STATUS^ACTIVE
  1. ;;NATIONAL STANDARD^NO
  1. ;;OK TO DISTRIBUTE^YES
  1. ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",0,1)
  1. ;;TIMESTAMP^57740,41600
  1. EN5 ;TIU Object:ACTIVE MEDS COMBINED
  1. ;;NAME^ACTIVE MEDS COMBINED
  1. ;;ABBREVIATION^AMDC
  1. ;;PRINT NAME^ACTIVE MEDS COMBINED
  1. ;;TYPE^OBJECT
  1. ;;CLASS OWNER^CLINICAL COORDINATOR
  1. ;;STATUS^ACTIVE
  1. ;;NATIONAL STANDARD^NO
  1. ;;OK TO DISTRIBUTE^YES
  1. ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",1,0,0,1)
  1. ;;TIMESTAMP^57772,59892
  1. EN6 ;TIU Object:RECENT MEDS COMBINED
  1. ;;NAME^RECENT MEDS COMBINED
  1. ;;ABBREVIATION^RMDC
  1. ;;PRINT NAME^RECENT MEDS COMBINED
  1. ;;TYPE^OBJECT
  1. ;;CLASS OWNER^CLINICAL COORDINATOR
  1. ;;STATUS^ACTIVE
  1. ;;NATIONAL STANDARD^NO
  1. ;;OK TO DISTRIBUTE^YES
  1. ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",0,0,0,1)
  1. ;;TIMESTAMP^57779,42006