source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR200.m@ 1582

Last change on this file since 1582 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 4.2 KB
Line 
1TIUPR200 ; SLC/AJB - Pre-install/Home Telehealth Titles; July 26, 2005
2 ;;1.0;TEXT INTEGRATION UTILITIES;**200**;Jun 20, 1997
3 ;
4 Q
5 W !,"Verifying installation environment..."
6 S TIUCOCOR=$$LU(8930,"CLINICAL COORDINATOR","X") I '+TIUCOCOR W !,"Installation Error: CLINICAL COORDINATOR (Class Owner) cannot be defined." S TIUABORT=1
7 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
8 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
9 I +$G(TIUABORT) W !!,"Please re-install TIU*1.0*200 after the necessary changes have been made." S XPDABORT=1 Q
10 W "complete."
11 Q
12EN Q
13 N LINE,TIUABORT,TIUCNSLT,TIUCOCOR,TIUFPRIV,TIUNAME,TIUPGNTS,TIUPRNT,TITLE,X,Y
14 X ^%ZOSF("EON") W $G(IOCUON) W:+$L($G(IOF)) @IOF
15 W !,"Preparing installation environment..."
16 S TIUCOCOR=$$LU(8930,"CLINICAL COORDINATOR","X") I '+TIUCOCOR W !,"Installation Error: CLINICAL COORDINATOR (Class Owner) cannot be found." S TIUABORT=1
17 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
18 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
19 I +$G(TIUABORT) W ! Q
20 W "complete.",!
21 I $$READ^TIUU("Y","Install the Home TeleHealth Note Titles","YES") W !,! D HTH
22 Q
23HTH ;
24 S TIUFPRIV=1,TIUNAME="Care Coordination Ho"
25 F X="CONS","DC","PNS" F LINE=1:1 S TITLE=$P($T(@X+LINE),";;",2) Q:TITLE="EOM" D
26 . N TIUDA
27 . I X="DC" I '$$LU(8925.1,$P(TITLE,U),"X","I $P(^TIU(8925.1,+Y,0),U,4)=""DC""") D
28 . . 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."
29 . I X="PNS" I '$$LU(8925.1,$P(TITLE,U),"X","I $P(^TIU(8925.1,+Y,0),U,4)=""DOC""") D
30 . . S TIUPRNT=$$LU(8925.1,"CARE COORDINATION HOME TELEHEALTH NOTES","X","I $P(^TIU(8925.1,+Y,0),U,4)=""DC""")
31 . . 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."
32 . I X="CONS" I '$$LU(8925.1,$P(TITLE,U),"X","I $P(^TIU(8925.1,+Y,0),U,4)=""DOC""") D
33 . . 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."
34EXIT D
35 .N DIR,X,Y
36 .S DIR(0)="E"
37 .W ! D ^DIR
38 Q
39LU(FILE,NAME,FLAGS,SCREEN,INDEXES) ;
40 Q $$FIND1^DIC(FILE,"",$G(FLAGS),NAME,$G(INDEXES),$G(SCREEN),"MSGERR")
41CREATE(NAME,TYPE) ;
42 N TIU,TIUDA,TIUIEN,TIUMSG
43 S TIU(8925.1,"+1,",.01)=NAME
44 S TIU(8925.1,"+1,",.02)=""
45 S TIU(8925.1,"+1,",.03)=NAME
46 S TIU(8925.1,"+1,",.04)=TYPE
47 S TIU(8925.1,"+1,",.05)=""
48 S TIU(8925.1,"+1,",.06)=TIUCOCOR
49 S TIU(8925.1,"+1,",.07)=11
50 S TIU(8925.1,"+1,",3.02)=1
51 S TIU(8925.1,"+1,",99)=$H
52 D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
53 S TIUDA=+$G(TIUIEN(1))
54 I $D(TIUMSG) D
55 . W !!,"The following error message was returned:",!!
56 . S TIUMSG="" F S TIUMSG=$O(TIUMSG("DIERR",1,"TEXT",TIUMSG)) Q:TIUMSG="" W TIUMSG("DIERR",1,"TEXT",TIUMSG),!
57 Q TIUDA
58ATTACH(TIUDA,TIUPRNT) ;
59 N TIU,TIUIEN,TIUMSG
60 S TIU(8925.14,"+2,"_TIUPRNT_",",.01)=TIUDA
61 S TIU(8925.14,"+2,"_TIUPRNT_",",4)=TIUNAME
62 D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
63 I $D(TIUMSG) D
64 . W !!,"The following error message was returned:",!!
65 . S TIUMSG="" F S TIUMSG=$O(TIUMSG("DIERR",1,"TEXT",TIUMSG)) Q:TIUMSG="" W TIUMSG("DIERR",1,"TEXT",TIUMSG),!
66 Q
67DC ;
68 ;;CARE COORDINATION HOME TELEHEALTH NOTES^DC
69 ;;EOM
70 Q
71CONS ;
72 ;;CARE COORDINATION HOME TELEHEALTH SCREENING CONSULT^DOC
73 ;;EOM
74 Q
75PNS ;
76 ;;CARE COORDINATION HOME TELEHEALTH DISCHARGE NOTE^DOC
77 ;;CARE COORDINATION HOME TELEHEALTH EDUCATION NOTE^DOC
78 ;;CARE COORDINATION HOME TELEHEALTH EVALUATION NOTE^DOC
79 ;;CARE COORDINATION HOME TELEHEALTH EVALUATION TREATMENT PLAN^DOC
80 ;;CARE COORDINATION HOME TELEHEALTH SUBSEQUENT EVAL NOTE^DOC
81 ;;CARE COORDINATION HOME TELEHEALTH SUMMARY OF EPISODE NOTE^DOC
82 ;;CARE COORDINATION HOME TELEHEALTH TELEPHONE ENCOUNTER NOTE^DOC
83 ;;CARE COORDINATION HOME TELEHEALTH VIDEO VISIT NOTE^DOC
84 ;;EOM
85 Q
Note: See TracBrowser for help on using the repository browser.