- 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 Mar 13, 2025@21:48:23 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
