source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUDAEN.m@ 1259

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

initial load of WorldVistAEHR

File size: 3.7 KB
Line 
1TIUDAEN ; SLC/AJB - Disclosure of Adverse Event Note ; August 10, 2005
2 ;;1.0;TEXT INTEGRATION UTILITIES;**191**;Jun 20, 1997
3 ;
4 Q
5EN ;
6 X ^%ZOSF("EON") W IOCUON,@IOF ; prepares screen during install
7 N DTOUT,DUOUT,TIU,TIUFPRIV,TIUIEN,TIUMSG,TIUPRNT,TIUTMP S TIUFPRIV=1
8 I $$LOOKUP(8930,"CLINICAL COORDINATOR","X")<0 W !!,"Installation Error: CLASS OWNER cannot be defined." S XPDABORT=1 G EXIT
9 I $$LOOKUP(8925.1,"DISCLOSURE OF ADVERSE EVENT NOTE","X")>0 W !!,"Installation Error: DISCLOSURE OF ADVERSE EVENT NOTE already exists." S XPDABORT=1 G EXIT
10 F D Q:TIUPRNT>0!($D(XPDABORT))
11 . W ! S TIUPRNT=$$LOOKUP(8925.1,,"AEQ","I $P(^(0),U,4)=""DC""","Select TIU DOCUMENT CLASS name: ")
12 . I $D(DTOUT) W !!,"Installation Aborted due to TIMEOUT." S XPDABORT=1 Q
13 . I $D(DUOUT) W !!,"Installation Aborted by USER." S XPDABORT=1 Q
14 . I TIUPRNT<0 W !!,"Installation Error: Invalid Selection",!
15 . I W !,"A DOCUMENT CLASS must be entered or '^' to abort." Q
16 . W ! I '$$READ^TIUU("Y","Is this correct","YES") S TIUPRNT=0
17 I +$G(TIUPRNT)'>0 G EXIT
18 S TIU(8925.1,"+1,",.01)="DISCLOSURE OF ADVERSE EVENT NOTE"
19 S TIU(8925.1,"+1,",.02)=""
20 S TIU(8925.1,"+1,",.03)="DISCLOSURE OF ADVERSE EVENT NOTE"
21 S TIU(8925.1,"+1,",.04)="DOC"
22 S TIU(8925.1,"+1,",.05)=""
23 S TIU(8925.1,"+1,",.06)=$$LOOKUP(8930,"CLINICAL COORDINATOR")
24 S TIU(8925.1,"+1,",.07)=13
25 S TIU(8925.1,"+1,",3.02)=1
26 S TIU(8925.1,"+1,",99)=$H
27 W !!,"Creating DISCLOSURE OF ADVERSE EVENT NOTE title..."
28 D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
29 I $D(TIUMSG) D S XPDABORT=1 G EXIT
30 . W !!,"The following error message was returned:",!
31 . S TIUMSG="" F S TIUMSG=$O(TIUMSG("DIERR",1,"TEXT",TIUMSG)) Q:TIUMSG="" W !,TIUMSG("DIERR",1,"TEXT",TIUMSG)
32 W "DONE."
33 S TIU(8925.14,"+2,"_TIUPRNT_",",.01)=TIUIEN(1)
34 S TIU(8925.14,"+2,"_TIUPRNT_",",4)="Disclosure of Adverse Event Note"
35 W !!,"Adding "_$P(^TIU(8925.1,TIUPRNT,0),U)_" as parent..."
36 D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
37 I $D(TIUMSG) D S XPDABORT=1 G EXIT
38 . W !!,"The following error message was returned:",!
39 . S TIUMSG="" F S TIUMSG=$O(TIUMSG("DIERR",1,"TEXT",TIUMSG)) Q:TIUMSG="" W !,TIUMSG("DIERR",1,"TEXT",TIUMSG)
40 W "DONE.",!
41 D GETBOIL
42 S TIUIEN(TIUIEN(1))=TIUIEN(1)
43 S TIU(8925.1,TIUIEN(1)_",",3)="TIUTMP"
44 W !,"Adding boilerplate text..."
45 D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
46 I $D(TIUMSG) D S XPDABORT=1 G EXIT
47 . W !!,"The following error message was returned:",!
48 . S TIUMSG="" F S TIUMSG=$O(TIUMSG("DIERR",1,"TEXT",TIUMSG)) Q:TIUMSG="" W !,TIUMSG("DIERR",1,"TEXT",TIUMSG)
49 W "DONE.",!
50 W !,"*** The DISCLOSURE OF ADVERSE EVENT NOTE ***"
51 W !,"*** title must be activated before use. ***"
52EXIT D
53 .N DIR,X,Y S DIR(0)="E" W ! D ^DIR
54 Q
55REM ;
56 N TIUTMP
57 S TIUTMP=$$LOOKUP(8925.1,"DISCLOSURE OF ADVERSE EVENT NOTE")
58 I TIUTMP>0 S $P(^TIU(8925.1,TIUTMP,0),U,13)=0
59 Q
60LOOKUP(FILE,NAME,TYPE,SCREEN,PROMPT) ;
61 ; file = file # to perform lookup on
62 ; [name] = for instance lookups - required if type is missing
63 ; [type] = for inquiries to file (eg: "AEQ") - required if name is missing
64 ; [screen] = screen for lookup/inquiries
65 ; [prompt] = replace default prompt
66 ;
67 N DIC,X,Y S DIC=$G(FILE),DIC("S")=$G(SCREEN),X=$G(NAME)
68 I $D(TYPE) S DIC(0)=TYPE
69 I $D(PROMPT) S DIC("A")=PROMPT
70 D ^DIC
71 Q +Y
72GETBOIL ;
73 N LINE,LINETXT
74 F LINE=1:1 S LINETXT=$P($T(BOILTXT+LINE),";;",2) Q:LINETXT="EOM" S TIUTMP(LINE)=LINETXT
75 Q
76BOILTXT ;
77 ;;DATE, TIME, AND PLACE OF DISCUSSION:
78 ;;
79 ;;
80 ;;
81 ;;NAMES OF THOSE PRESENT:
82 ;;
83 ;;
84 ;;
85 ;;DISCUSSION POINTS OF THE ADVERSE EVENT:
86 ;;
87 ;;
88 ;;
89 ;;OFFER OF ASSISTANCE INCLUDING BEREAVEMENT SUPPORT:
90 ;;
91 ;;
92 ;;
93 ;;QUESTIONS ADDRESSED IN THE DISCUSSION:
94 ;;
95 ;;
96 ;;
97 ;;ADVISEMENT OF 1151 CLAIMS PROCESS AND RIGHT TO FILE ADMINISTRATIVE
98 ;;TORT CLAIM:
99 ;;
100 ;;
101 ;;
102 ;;CONTINUED COMMUNICATIONS REGARDING THE ADVERSE EVENT:
103 ;;
104 ;;
105 ;;
106 ;;EOM
107 Q
Note: See TracBrowser for help on using the repository browser.