TIUO38 ; SLC/JM - TIU Object Export Routine ; 4/30/99 [ 06/19/2001 10:38 AM ]
;;1.0;TEXT INTEGRATION UTILITIES;**38**;Jun 20, 1997
Q
INSTALL N FILENUM,TAG,ROUTINE,TEXTLINE,FLDNUMS,XPDIDTOT,DIERR,DISYS,%1
K ^DD(8925.1,0,"ID",.04) ;Added to fix Beta Site prob, per DBIA #2813
S FILENUM=8925.1
S U="^",ROUTINE=""
S XPDIDTOT=6
F TAG=1:1:6 D
.N FLD,IDX,IEN,RECORD,DATA,FIELD,TIUFPRIV,ADDCMD
.S IDX=0,TIUFPRIV=1
.F D Q:RECORD=""
..S IDX=IDX+1
..S TEXTLINE="EN"_TAG
..I $L($T(@TEXTLINE+IDX^@("TIUO38"_ROUTINE)))'>0 D
...I ROUTINE="" S ROUTINE="A"
...E S ROUTINE=$C($A(ROUTINE)+1)
..S RECORD=$P($T(@("EN"_TAG)+IDX^@("TIUO38"_ROUTINE)),";;",2)
..I RECORD'="" D
...S FIELD=$P(RECORD,U,1)
...S DATA=$P(RECORD,U,2,99)
...I IDX=1 D
....S IEN=$$FIND1^DIC(FILENUM,"","X",DATA,"B","I $P(^(0),U,4)=""O""")
....I +IEN'>0 D I 1
.....N ADDCMD,IENLIST
.....D ADD("+1")
.....D UPDATE^DIE("",$NA(ADDCMD),$NA(IENLIST))
.....S IEN=IENLIST(1)
....E D
.....N DELCMD
.....K ^TMP("TIUOBJINS",$J)
.....D GETS^DIQ(FILENUM,IEN,"*","N",$NA(^TMP("TIUOBJINS",$J)))
.....S FLD=0
.....F S FLD=$O(^TMP("TIUOBJINS",$J,FILENUM,IEN_",",FLD)) Q:'FLD D
......I FLD'=.01 D
.......S DELCMD(FILENUM,IEN_",",FLD)="@"
.....D FILE^DIE("",$NA(DELCMD))
.....K ^TMP("TIUOBJINS",$J)
...D ADD(IEN)
.D FILE^DIE("E",$NA(ADDCMD))
.D UPDATE^XPDID(TAG)
K ^TMP("DIERR",$J)
Q
ADD(IEN) ;
I '$D(FLDNUMS(FIELD)) D
.S FLDNUMS(FIELD)=$$FLDNUM^DILFD(FILENUM,FIELD)
S ADDCMD(FILENUM,IEN_",",FLDNUMS(FIELD))=DATA
Q
EN1 ;TIU Object:ACTIVE MEDICATIONS
;;NAME^ACTIVE MEDICATIONS
;;ABBREVIATION^AMED
;;PRINT NAME^ACTIVE MEDICATIONS
;;TYPE^OBJECT
;;CLASS OWNER^CLINICAL COORDINATOR
;;STATUS^ACTIVE
;;NATIONAL STANDARD^NO
;;OK TO DISTRIBUTE^YES
;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",1)
;;TIMESTAMP^57652,49986
EN2 ;TIU Object:RECENT MEDICATIONS
;;NAME^RECENT MEDICATIONS
;;ABBREVIATION^RMED
;;PRINT NAME^RECENT MEDICATIONS
;;TYPE^OBJECT
;;CLASS OWNER^CLINICAL COORDINATOR
;;STATUS^ACTIVE
;;NATIONAL STANDARD^NO
;;OK TO DISTRIBUTE^YES
;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)")
;;TIMESTAMP^57652,49384
EN3 ;TIU Object:DETAILED ACTIVE MEDS
;;NAME^DETAILED ACTIVE MEDS
;;ABBREVIATION^DAMD
;;PRINT NAME^DETAILED ACTIVE MEDS
;;TYPE^OBJECT
;;CLASS OWNER^CLINICAL COORDINATOR
;;STATUS^ACTIVE
;;NATIONAL STANDARD^NO
;;OK TO DISTRIBUTE^YES
;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",1,1)
;;TIMESTAMP^57740,41359
EN4 ;TIU Object:DETAILED RECENT MEDS
;;NAME^DETAILED RECENT MEDS
;;ABBREVIATION^DRMD
;;PRINT NAME^DETAILED RECENT MEDS
;;TYPE^OBJECT
;;CLASS OWNER^CLINICAL COORDINATOR
;;STATUS^ACTIVE
;;NATIONAL STANDARD^NO
;;OK TO DISTRIBUTE^YES
;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",0,1)
;;TIMESTAMP^57740,41600
EN5 ;TIU Object:ACTIVE MEDS COMBINED
;;NAME^ACTIVE MEDS COMBINED
;;ABBREVIATION^AMDC
;;PRINT NAME^ACTIVE MEDS COMBINED
;;TYPE^OBJECT
;;CLASS OWNER^CLINICAL COORDINATOR
;;STATUS^ACTIVE
;;NATIONAL STANDARD^NO
;;OK TO DISTRIBUTE^YES
;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",1,0,0,1)
;;TIMESTAMP^57772,59892
EN6 ;TIU Object:RECENT MEDS COMBINED
;;NAME^RECENT MEDS COMBINED
;;ABBREVIATION^RMDC
;;PRINT NAME^RECENT MEDS COMBINED
;;TYPE^OBJECT
;;CLASS OWNER^CLINICAL COORDINATOR
;;STATUS^ACTIVE
;;NATIONAL STANDARD^NO
;;OK TO DISTRIBUTE^YES
;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",0,0,0,1)
;;TIMESTAMP^57779,42006
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
+2 QUIT
INSTALL NEW FILENUM,TAG,ROUTINE,TEXTLINE,FLDNUMS,XPDIDTOT,DIERR,DISYS,%1
+1 ;Added to fix Beta Site prob, per DBIA #2813
KILL ^DD(8925.1,0,"ID",.04)
+2 SET FILENUM=8925.1
+3 SET U="^"
SET ROUTINE=""
+4 SET XPDIDTOT=6
+5 FOR TAG=1:1:6
Begin DoDot:1
+6 NEW FLD,IDX,IEN,RECORD,DATA,FIELD,TIUFPRIV,ADDCMD
+7 SET IDX=0
SET TIUFPRIV=1
+8 FOR
Begin DoDot:2
+9 SET IDX=IDX+1
+10 SET TEXTLINE="EN"_TAG
+11 IF $LENGTH($TEXT(@TEXTLINE+IDX^@("TIUO38"_ROUTINE)))'>0
Begin DoDot:3
+12 IF ROUTINE=""
SET ROUTINE="A"
+13 IF '$TEST
SET ROUTINE=$CHAR($ASCII(ROUTINE)+1)
End DoDot:3
+14 SET RECORD=$PIECE($TEXT(@("EN"_TAG)+IDX^@("TIUO38"_ROUTINE)),";;",2)
+15 IF RECORD'=""
Begin DoDot:3
+16 SET FIELD=$PIECE(RECORD,U,1)
+17 SET DATA=$PIECE(RECORD,U,2,99)
+18 IF IDX=1
Begin DoDot:4
+19 SET IEN=$$FIND1^DIC(FILENUM,"","X",DATA,"B","I $P(^(0),U,4)=""O""")
+20 IF +IEN'>0
Begin DoDot:5
+21 NEW ADDCMD,IENLIST
+22 DO ADD("+1")
+23 DO UPDATE^DIE("",$NAME(ADDCMD),$NAME(IENLIST))
+24 SET IEN=IENLIST(1)
End DoDot:5
IF 1
+25 IF '$TEST
Begin DoDot:5
+26 NEW DELCMD
+27 KILL ^TMP("TIUOBJINS",$JOB)
+28 DO GETS^DIQ(FILENUM,IEN,"*","N",$NAME(^TMP("TIUOBJINS",$JOB)))
+29 SET FLD=0
+30 FOR
SET FLD=$ORDER(^TMP("TIUOBJINS",$JOB,FILENUM,IEN_",",FLD))
IF 'FLD
QUIT
Begin DoDot:6
+31 IF FLD'=.01
Begin DoDot:7
+32 SET DELCMD(FILENUM,IEN_",",FLD)="@"
End DoDot:7
End DoDot:6
+33 DO FILE^DIE("",$NAME(DELCMD))
+34 KILL ^TMP("TIUOBJINS",$JOB)
End DoDot:5
End DoDot:4
+35 DO ADD(IEN)
End DoDot:3
End DoDot:2
IF RECORD=""
QUIT
+36 DO FILE^DIE("E",$NAME(ADDCMD))
+37 DO UPDATE^XPDID(TAG)
End DoDot:1
+38 KILL ^TMP("DIERR",$JOB)
+39 QUIT
ADD(IEN) ;
+1 IF '$DATA(FLDNUMS(FIELD))
Begin DoDot:1
+2 SET FLDNUMS(FIELD)=$$FLDNUM^DILFD(FILENUM,FIELD)
End DoDot:1
+3 SET ADDCMD(FILENUM,IEN_",",FLDNUMS(FIELD))=DATA
+4 QUIT
EN1 ;TIU Object:ACTIVE MEDICATIONS
+1 ;;NAME^ACTIVE MEDICATIONS
+2 ;;ABBREVIATION^AMED
+3 ;;PRINT NAME^ACTIVE MEDICATIONS
+4 ;;TYPE^OBJECT
+5 ;;CLASS OWNER^CLINICAL COORDINATOR
+6 ;;STATUS^ACTIVE
+7 ;;NATIONAL STANDARD^NO
+8 ;;OK TO DISTRIBUTE^YES
+9 ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",1)
+10 ;;TIMESTAMP^57652,49986
EN2 ;TIU Object:RECENT MEDICATIONS
+1 ;;NAME^RECENT MEDICATIONS
+2 ;;ABBREVIATION^RMED
+3 ;;PRINT NAME^RECENT MEDICATIONS
+4 ;;TYPE^OBJECT
+5 ;;CLASS OWNER^CLINICAL COORDINATOR
+6 ;;STATUS^ACTIVE
+7 ;;NATIONAL STANDARD^NO
+8 ;;OK TO DISTRIBUTE^YES
+9 ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)")
+10 ;;TIMESTAMP^57652,49384
EN3 ;TIU Object:DETAILED ACTIVE MEDS
+1 ;;NAME^DETAILED ACTIVE MEDS
+2 ;;ABBREVIATION^DAMD
+3 ;;PRINT NAME^DETAILED ACTIVE MEDS
+4 ;;TYPE^OBJECT
+5 ;;CLASS OWNER^CLINICAL COORDINATOR
+6 ;;STATUS^ACTIVE
+7 ;;NATIONAL STANDARD^NO
+8 ;;OK TO DISTRIBUTE^YES
+9 ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",1,1)
+10 ;;TIMESTAMP^57740,41359
EN4 ;TIU Object:DETAILED RECENT MEDS
+1 ;;NAME^DETAILED RECENT MEDS
+2 ;;ABBREVIATION^DRMD
+3 ;;PRINT NAME^DETAILED RECENT MEDS
+4 ;;TYPE^OBJECT
+5 ;;CLASS OWNER^CLINICAL COORDINATOR
+6 ;;STATUS^ACTIVE
+7 ;;NATIONAL STANDARD^NO
+8 ;;OK TO DISTRIBUTE^YES
+9 ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",0,1)
+10 ;;TIMESTAMP^57740,41600
EN5 ;TIU Object:ACTIVE MEDS COMBINED
+1 ;;NAME^ACTIVE MEDS COMBINED
+2 ;;ABBREVIATION^AMDC
+3 ;;PRINT NAME^ACTIVE MEDS COMBINED
+4 ;;TYPE^OBJECT
+5 ;;CLASS OWNER^CLINICAL COORDINATOR
+6 ;;STATUS^ACTIVE
+7 ;;NATIONAL STANDARD^NO
+8 ;;OK TO DISTRIBUTE^YES
+9 ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",1,0,0,1)
+10 ;;TIMESTAMP^57772,59892
EN6 ;TIU Object:RECENT MEDS COMBINED
+1 ;;NAME^RECENT MEDS COMBINED
+2 ;;ABBREVIATION^RMDC
+3 ;;PRINT NAME^RECENT MEDS COMBINED
+4 ;;TYPE^OBJECT
+5 ;;CLASS OWNER^CLINICAL COORDINATOR
+6 ;;STATUS^ACTIVE
+7 ;;NATIONAL STANDARD^NO
+8 ;;OK TO DISTRIBUTE^YES
+9 ;;OBJECT METHOD^S X=$$LIST^TIULMED(DFN,"^TMP(""TIUMED"",$J)",0,0,0,1)
+10 ;;TIMESTAMP^57779,42006
