TIUPR200 ; SLC/AJB - Pre-install/Home Telehealth Titles; July 26, 2005
;;1.0;TEXT INTEGRATION UTILITIES;**200**;Jun 20, 1997
;
Q
W !,"Verifying installation environment..."
S TIUCOCOR=$$LU(8930,"CLINICAL COORDINATOR","X") I '+TIUCOCOR W !,"Installation Error: CLINICAL COORDINATOR (Class Owner) cannot be defined." S TIUABORT=1
S TIUCNSLT=$$LU(8925.1,"CONSULTS","X","I $P(^TIU(8925.1,+Y,0),U,4)=""DC""") I '+TIUCNSLT W !,"Installation Error: Cannot define CONSULTS class." S TIUABORT=1
S TIUPGNTS=$$LU(8925.1,"PROGRESS NOTES","X","I $P(^TIU(8925.1,+Y,0),U,4)=""CL""") I '+TIUPGNTS W !,"Installation Error: Cannot define PROGRESS NOTES class." S TIUABORT=1
I +$G(TIUABORT) W !!,"Please re-install TIU*1.0*200 after the necessary changes have been made." S XPDABORT=1 Q
W "complete."
Q
EN Q
N LINE,TIUABORT,TIUCNSLT,TIUCOCOR,TIUFPRIV,TIUNAME,TIUPGNTS,TIUPRNT,TITLE,X,Y
X ^%ZOSF("EON") W $G(IOCUON) W:+$L($G(IOF)) @IOF
W !,"Preparing installation environment..."
S TIUCOCOR=$$LU(8930,"CLINICAL COORDINATOR","X") I '+TIUCOCOR W !,"Installation Error: CLINICAL COORDINATOR (Class Owner) cannot be found." S TIUABORT=1
S TIUCNSLT=$$LU(8925.1,"CONSULTS","X","I $P(^TIU(8925.1,+Y,0),U,4)=""DC""") I '+TIUCNSLT W !,"Installation Error: Cannot find CONSULTS class." S TIUABORT=1
S TIUPGNTS=$$LU(8925.1,"PROGRESS NOTES","X","I $P(^TIU(8925.1,+Y,0),U,4)=""CL""") I '+TIUPGNTS W !,"Installation Error: Cannot find PROGRESS NOTES class." S TIUABORT=1
I +$G(TIUABORT) W ! Q
W "complete.",!
I $$READ^TIUU("Y","Install the Home TeleHealth Note Titles","YES") W !,! D HTH
Q
HTH ;
S TIUFPRIV=1,TIUNAME="Care Coordination Ho"
F X="CONS","DC","PNS" F LINE=1:1 S TITLE=$P($T(@X+LINE),";;",2) Q:TITLE="EOM" D
. N TIUDA
. I X="DC" I '$$LU(8925.1,$P(TITLE,U),"X","I $P(^TIU(8925.1,+Y,0),U,4)=""DC""") D
. . I +$G(TIUPGNTS) S TIUDA=$$CREATE($P(TITLE,U),$P(TITLE,U,2)) I +TIUDA D ATTACH(TIUDA,TIUPGNTS) S TIUPRNT=TIUDA W !,"Installed "_$P(TITLE,U)_" successfully."
. I X="PNS" I '$$LU(8925.1,$P(TITLE,U),"X","I $P(^TIU(8925.1,+Y,0),U,4)=""DOC""") D
. . S TIUPRNT=$$LU(8925.1,"CARE COORDINATION HOME TELEHEALTH NOTES","X","I $P(^TIU(8925.1,+Y,0),U,4)=""DC""")
. . I +$G(TIUPRNT) S TIUDA=$$CREATE($P(TITLE,U),$P(TITLE,U,2)) I +TIUDA D ATTACH(TIUDA,TIUPRNT) W !,"Installed "_$P(TITLE,U)_" successfully."
. I X="CONS" I '$$LU(8925.1,$P(TITLE,U),"X","I $P(^TIU(8925.1,+Y,0),U,4)=""DOC""") D
. . I +$G(TIUCNSLT) S TIUDA=$$CREATE($P(TITLE,U),$P(TITLE,U,2)) I +TIUDA D ATTACH(TIUDA,TIUCNSLT) W !,"Installed "_$P(TITLE,U)_" successfully."
EXIT D
.N DIR,X,Y
.S DIR(0)="E"
.W ! D ^DIR
Q
LU(FILE,NAME,FLAGS,SCREEN,INDEXES) ;
Q $$FIND1^DIC(FILE,"",$G(FLAGS),NAME,$G(INDEXES),$G(SCREEN),"MSGERR")
CREATE(NAME,TYPE) ;
N TIU,TIUDA,TIUIEN,TIUMSG
S TIU(8925.1,"+1,",.01)=NAME
S TIU(8925.1,"+1,",.02)=""
S TIU(8925.1,"+1,",.03)=NAME
S TIU(8925.1,"+1,",.04)=TYPE
S TIU(8925.1,"+1,",.05)=""
S TIU(8925.1,"+1,",.06)=TIUCOCOR
S TIU(8925.1,"+1,",.07)=11
S TIU(8925.1,"+1,",3.02)=1
S TIU(8925.1,"+1,",99)=$H
D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
S TIUDA=+$G(TIUIEN(1))
I $D(TIUMSG) D
. W !!,"The following error message was returned:",!!
. S TIUMSG="" F S TIUMSG=$O(TIUMSG("DIERR",1,"TEXT",TIUMSG)) Q:TIUMSG="" W TIUMSG("DIERR",1,"TEXT",TIUMSG),!
Q TIUDA
ATTACH(TIUDA,TIUPRNT) ;
N TIU,TIUIEN,TIUMSG
S TIU(8925.14,"+2,"_TIUPRNT_",",.01)=TIUDA
S TIU(8925.14,"+2,"_TIUPRNT_",",4)=TIUNAME
D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
I $D(TIUMSG) D
. W !!,"The following error message was returned:",!!
. S TIUMSG="" F S TIUMSG=$O(TIUMSG("DIERR",1,"TEXT",TIUMSG)) Q:TIUMSG="" W TIUMSG("DIERR",1,"TEXT",TIUMSG),!
Q
DC ;
;;CARE COORDINATION HOME TELEHEALTH NOTES^DC
;;EOM
Q
CONS ;
;;CARE COORDINATION HOME TELEHEALTH SCREENING CONSULT^DOC
;;EOM
Q
PNS ;
;;CARE COORDINATION HOME TELEHEALTH DISCHARGE NOTE^DOC
;;CARE COORDINATION HOME TELEHEALTH EDUCATION NOTE^DOC
;;CARE COORDINATION HOME TELEHEALTH EVALUATION NOTE^DOC
;;CARE COORDINATION HOME TELEHEALTH EVALUATION TREATMENT PLAN^DOC
;;CARE COORDINATION HOME TELEHEALTH SUBSEQUENT EVAL NOTE^DOC
;;CARE COORDINATION HOME TELEHEALTH SUMMARY OF EPISODE NOTE^DOC
;;CARE COORDINATION HOME TELEHEALTH TELEPHONE ENCOUNTER NOTE^DOC
;;CARE COORDINATION HOME TELEHEALTH VIDEO VISIT NOTE^DOC
;;EOM
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPR200 4357 printed Oct 16, 2024@18:44:03 Page 2
TIUPR200 ; SLC/AJB - Pre-install/Home Telehealth Titles; July 26, 2005
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**200**;Jun 20, 1997
+2 ;
+3 QUIT
+4 WRITE !,"Verifying installation environment..."
+5 SET TIUCOCOR=$$LU(8930,"CLINICAL COORDINATOR","X")
IF '+TIUCOCOR
WRITE !,"Installation Error: CLINICAL COORDINATOR (Class Owner) cannot be defined."
SET TIUABORT=1
+6 SET TIUCNSLT=$$LU(8925.1,"CONSULTS","X","I $P(^TIU(8925.1,+Y,0),U,4)=""DC""")
IF '+TIUCNSLT
WRITE !,"Installation Error: Cannot define CONSULTS class."
SET TIUABORT=1
+7 SET TIUPGNTS=$$LU(8925.1,"PROGRESS NOTES","X","I $P(^TIU(8925.1,+Y,0),U,4)=""CL""")
IF '+TIUPGNTS
WRITE !,"Installation Error: Cannot define PROGRESS NOTES class."
SET TIUABORT=1
+8 IF +$GET(TIUABORT)
WRITE !!,"Please re-install TIU*1.0*200 after the necessary changes have been made."
SET XPDABORT=1
QUIT
+9 WRITE "complete."
+10 QUIT
EN QUIT
+1 NEW LINE,TIUABORT,TIUCNSLT,TIUCOCOR,TIUFPRIV,TIUNAME,TIUPGNTS,TIUPRNT,TITLE,X,Y
+2 XECUTE ^%ZOSF("EON")
WRITE $GET(IOCUON)
if +$LENGTH($GET(IOF))
WRITE @IOF
+3 WRITE !,"Preparing installation environment..."
+4 SET TIUCOCOR=$$LU(8930,"CLINICAL COORDINATOR","X")
IF '+TIUCOCOR
WRITE !,"Installation Error: CLINICAL COORDINATOR (Class Owner) cannot be found."
SET TIUABORT=1
+5 SET TIUCNSLT=$$LU(8925.1,"CONSULTS","X","I $P(^TIU(8925.1,+Y,0),U,4)=""DC""")
IF '+TIUCNSLT
WRITE !,"Installation Error: Cannot find CONSULTS class."
SET TIUABORT=1
+6 SET TIUPGNTS=$$LU(8925.1,"PROGRESS NOTES","X","I $P(^TIU(8925.1,+Y,0),U,4)=""CL""")
IF '+TIUPGNTS
WRITE !,"Installation Error: Cannot find PROGRESS NOTES class."
SET TIUABORT=1
+7 IF +$GET(TIUABORT)
WRITE !
QUIT
+8 WRITE "complete.",!
+9 IF $$READ^TIUU("Y","Install the Home TeleHealth Note Titles","YES")
WRITE !,!
DO HTH
+10 QUIT
HTH ;
+1 SET TIUFPRIV=1
SET TIUNAME="Care Coordination Ho"
+2 FOR X="CONS","DC","PNS"
FOR LINE=1:1
SET TITLE=$PIECE($TEXT(@X+LINE),";;",2)
if TITLE="EOM"
QUIT
Begin DoDot:1
+3 NEW TIUDA
+4 IF X="DC"
IF '$$LU(8925.1,$PIECE(TITLE,U),"X","I $P(^TIU(8925.1,+Y,0),U,4)=""DC""")
Begin DoDot:2
+5 IF +$GET(TIUPGNTS)
SET TIUDA=$$CREATE($PIECE(TITLE,U),$PIECE(TITLE,U,2))
IF +TIUDA
DO ATTACH(TIUDA,TIUPGNTS)
SET TIUPRNT=TIUDA
WRITE !,"Installed "_$PIECE(TITLE,U)_" successfully."
End DoDot:2
+6 IF X="PNS"
IF '$$LU(8925.1,$PIECE(TITLE,U),"X","I $P(^TIU(8925.1,+Y,0),U,4)=""DOC""")
Begin DoDot:2
+7 SET TIUPRNT=$$LU(8925.1,"CARE COORDINATION HOME TELEHEALTH NOTES","X","I $P(^TIU(8925.1,+Y,0),U,4)=""DC""")
+8 IF +$GET(TIUPRNT)
SET TIUDA=$$CREATE($PIECE(TITLE,U),$PIECE(TITLE,U,2))
IF +TIUDA
DO ATTACH(TIUDA,TIUPRNT)
WRITE !,"Installed "_$PIECE(TITLE,U)_" successfully."
End DoDot:2
+9 IF X="CONS"
IF '$$LU(8925.1,$PIECE(TITLE,U),"X","I $P(^TIU(8925.1,+Y,0),U,4)=""DOC""")
Begin DoDot:2
+10 IF +$GET(TIUCNSLT)
SET TIUDA=$$CREATE($PIECE(TITLE,U),$PIECE(TITLE,U,2))
IF +TIUDA
DO ATTACH(TIUDA,TIUCNSLT)
WRITE !,"Installed "_$PIECE(TITLE,U)_" successfully."
End DoDot:2
End DoDot:1
EXIT Begin DoDot:1
+1 NEW DIR,X,Y
+2 SET DIR(0)="E"
+3 WRITE !
DO ^DIR
End DoDot:1
+4 QUIT
LU(FILE,NAME,FLAGS,SCREEN,INDEXES) ;
+1 QUIT $$FIND1^DIC(FILE,"",$GET(FLAGS),NAME,$GET(INDEXES),$GET(SCREEN),"MSGERR")
CREATE(NAME,TYPE) ;
+1 NEW TIU,TIUDA,TIUIEN,TIUMSG
+2 SET TIU(8925.1,"+1,",.01)=NAME
+3 SET TIU(8925.1,"+1,",.02)=""
+4 SET TIU(8925.1,"+1,",.03)=NAME
+5 SET TIU(8925.1,"+1,",.04)=TYPE
+6 SET TIU(8925.1,"+1,",.05)=""
+7 SET TIU(8925.1,"+1,",.06)=TIUCOCOR
+8 SET TIU(8925.1,"+1,",.07)=11
+9 SET TIU(8925.1,"+1,",3.02)=1
+10 SET TIU(8925.1,"+1,",99)=$HOROLOG
+11 DO UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
+12 SET TIUDA=+$GET(TIUIEN(1))
+13 IF $DATA(TIUMSG)
Begin DoDot:1
+14 WRITE !!,"The following error message was returned:",!!
+15 SET TIUMSG=""
FOR
SET TIUMSG=$ORDER(TIUMSG("DIERR",1,"TEXT",TIUMSG))
if TIUMSG=""
QUIT
WRITE TIUMSG("DIERR",1,"TEXT",TIUMSG),!
End DoDot:1
+16 QUIT TIUDA
ATTACH(TIUDA,TIUPRNT) ;
+1 NEW TIU,TIUIEN,TIUMSG
+2 SET TIU(8925.14,"+2,"_TIUPRNT_",",.01)=TIUDA
+3 SET TIU(8925.14,"+2,"_TIUPRNT_",",4)=TIUNAME
+4 DO UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
+5 IF $DATA(TIUMSG)
Begin DoDot:1
+6 WRITE !!,"The following error message was returned:",!!
+7 SET TIUMSG=""
FOR
SET TIUMSG=$ORDER(TIUMSG("DIERR",1,"TEXT",TIUMSG))
if TIUMSG=""
QUIT
WRITE TIUMSG("DIERR",1,"TEXT",TIUMSG),!
End DoDot:1
+8 QUIT
DC ;
+1 ;;CARE COORDINATION HOME TELEHEALTH NOTES^DC
+2 ;;EOM
+3 QUIT
CONS ;
+1 ;;CARE COORDINATION HOME TELEHEALTH SCREENING CONSULT^DOC
+2 ;;EOM
+3 QUIT
PNS ;
+1 ;;CARE COORDINATION HOME TELEHEALTH DISCHARGE NOTE^DOC
+2 ;;CARE COORDINATION HOME TELEHEALTH EDUCATION NOTE^DOC
+3 ;;CARE COORDINATION HOME TELEHEALTH EVALUATION NOTE^DOC
+4 ;;CARE COORDINATION HOME TELEHEALTH EVALUATION TREATMENT PLAN^DOC
+5 ;;CARE COORDINATION HOME TELEHEALTH SUBSEQUENT EVAL NOTE^DOC
+6 ;;CARE COORDINATION HOME TELEHEALTH SUMMARY OF EPISODE NOTE^DOC
+7 ;;CARE COORDINATION HOME TELEHEALTH TELEPHONE ENCOUNTER NOTE^DOC
+8 ;;CARE COORDINATION HOME TELEHEALTH VIDEO VISIT NOTE^DOC
+9 ;;EOM
+10 QUIT
