source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORB3MGR1.m@ 1397

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

initial load of FOIAVistA 6/30/08 version
File size: 7.3 KB
Line 
1ORB3MGR1 ; SLC/AEB - Manager Options - Notifications Parameters ;9/22/97
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**31,74,85,88,105,139,173,220**;Dec 17, 1997
3 ;
4 ;Calls to Add/Change/Delete Parameters
5 ;
6URG ; Notification Urgency - By Entity
7 ;
8 N ORBT,ORBPAR,PIEN
9 S ORBT="Set URGENCY Parameters for Notifications",PIEN=0
10 S PIEN=$O(^XTV(8989.51,"B","ORB URGENCY",PIEN)) Q:PIEN=""
11 S ORBPAR=PIEN
12 D TITLE(ORBT) D PROC(ORBPAR)
13 Q
14 ;
15DEL ;
16 N ORBT,ORBPAR,PIEN
17 S ORBT="Set DELETE MECHANISM Parameters for Notifications",PIEN=0
18 S PIEN=$O(^XTV(8989.51,"B","ORB DELETE MECHANISM",PIEN)) Q:PIEN=""
19 S ORBPAR=PIEN
20 D TITLE(ORBT) D PROC(ORBPAR)
21 Q
22 ;
23REGR ;
24 N ORBT,ORBPAR,PIEN
25 S ORBT="Set REGULAR (DEFAULT) RECIPIENTS Parameters for Notifications",PIEN=0
26 S PIEN=$O(^XTV(8989.51,"B","ORB DEFAULT RECIPIENTS",PIEN)) Q:PIEN=""
27 S ORBPAR=PIEN
28 D TITLE(ORBT) D PROC(ORBPAR)
29 Q
30 ;
31REGDEV ;
32 N ORBT,ORBPAR,PIEN
33 S ORBT="Set REGULAR (DEFAULT) RECIPIENT DEVICES Parameters for Notifications",PIEN=0
34 S PIEN=$O(^XTV(8989.51,"B","ORB DEFAULT RECIPIENT DEVICES",PIEN)) Q:PIEN=""
35 S ORBPAR=PIEN
36 D TITLE(ORBT) D PROC(ORBPAR)
37 Q
38 ;
39TITLR ;
40 N ORBT,ORBPAR,PIEN
41 S ORBT="Set PROVIDER RECIPIENTS Parameters for Notifications",PIEN=0
42 S PIEN=$O(^XTV(8989.51,"B","ORB PROVIDER RECIPIENTS",PIEN)) Q:PIEN=""
43 S ORBPAR=PIEN
44 D TITLE(ORBT) D PROC(ORBPAR)
45 Q
46 ;
47PFLAG ;
48 N ORBT,ORBPAR,PIEN
49 S ORBT="Set PROCESSING FLAG Parameters for Notifications",PIEN=0
50 S PIEN=$O(^XTV(8989.51,"B","ORB PROCESSING FLAG",PIEN)) Q:PIEN=""
51 S ORBPAR=PIEN
52 D TITLE(ORBT) D PROC(ORBPAR)
53 Q
54 ;
55ERASE ;
56 N ORBT,ORBX,ORBPAR,ORBER,DUOUT,DIRUT
57 S ORBT="Erase Notifications"
58 S ORBER=0
59 Q:$D(DUOUT)!(ORBER="")
60 D TITLE(ORBT)
61 W !!!,?5,"1. Erase all notifications for a User "
62 W !!,?5,"2. Erase all notifications for a Patient "
63 W !!,?5,"3. Erase all instances of a notification (regardless of Patient or User) "
64 W !!,?5,"4. Erase specific notifications for a User "
65 W !!,?5,"5. Edit Erase All Notifications parameter for a User ",!!
66 K DIR S DIR(0)="NAO^1:5",DIR("A")="Select Erase option: "
67 D ^DIR S ORBER=Y K DIR Q:$D(DIRUT)
68 K Y,X,DTOUT,DUOUT,DIRUT
69 I (ORBER=1) D RECIPURG^ORB3MGR2
70 I (ORBER=2) D PTPURG^ORB3MGR2
71 I (ORBER=3) D NOTIPURG^ORB3MGR2
72 I (ORBER=4) D USERDEL^ORB3MGR2
73 I (ORBER=5) D ERASEALL^ORB3MGR2
74 D ERASE
75 Q
76 ;
77FLGOI ;
78 N ORBT,ORBOI,DIRUT,DUOUT,Y
79 S ORBT="Flag ORDERABLE ITEMS to send Notifications"
80 F D Q:$D(DUOUT)!(Y="")
81 .S Y=0
82 .D TITLE(ORBT)
83 .W !!,"1. Flag INPATIENT orders/results/expiring orders."
84 .W !,"2. Flag OUTPATIENT orders/results/expiring orders."
85 .W !,"3. Flag Lab tests for Threshold Exceeded alerts.",!
86 .K DIR S DIR(0)="NAO^1:3",DIR("A")="Select ""1"" to flag INPT orders/results, ""2"" to flag OUTPT orders/results, ""3"" to set Lab Thresholds: "
87 .D ^DIR S ORBOI=Y K DIR Q:$D(DIRUT)
88 .K X,DTOUT,DUOUT,DIRUT
89 .I ORBOI=1 D INPTOI
90 .I ORBOI=2 D OUTPTOI
91 .I ORBOI=3 D LABTHRES^ORB3MGR2
92 Q
93INPTOI ;
94 N ORBT,ORBPAR,ORBOI,DIRUT,DUOUT,PIEN,Y
95 S ORBT="Flag INPATIENT orderable items to send Notifications/Alerts"
96 F D Q:$D(DUOUT)!(Y="")
97 .D TITLE(ORBT)
98 .W !!,"1. Flag Inpatient ORDERS."
99 .W !,"2. Flag Inpatient ORDERS for PROVIDER RECIPIENTS."
100 .W !,"3. Flag Inpatient RESULTS."
101 .W !,"4. Flag Inpatient RESULTS for PROVIDER RECIPIENTS."
102 .W !,"5. Flag Inpatient EXPIRING orders."
103 .W !,"6. Flag Inpatient EXPIRING orders for PROVIDER RECIPIENTS.",!
104 .S PIEN=0,Y=0
105 .K DIR S DIR(0)="NAO^1:6",DIR("A")="Select ""1 or 2"" to flag inpt ORDERS, ""3 or 4"" to flag inpt RESULTS, ""5 or 6"" to flag inpt EXPIRING orders: "
106 .D ^DIR S ORBOI=Y K DIR Q:$D(DIRUT)
107 .K X,DTOUT,DUOUT,DIRUT
108 .I ORBOI=1 D
109 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI ORDERED - INPT",PIEN)) Q:PIEN=""
110 ..S ORBPAR=PIEN
111 .I ORBOI=2 D
112 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI ORDERED - INPT PR",PIEN)) Q:PIEN=""
113 ..S ORBPAR=PIEN
114 .I ORBOI=3 D
115 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI RESULTS - INPT",PIEN)) Q:PIEN=""
116 ..S ORBPAR=PIEN
117 .I ORBOI=4 D
118 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI RESULTS - INPT PR",PIEN)) Q:PIEN=""
119 ..S ORBPAR=PIEN
120 .I ORBOI=5 D
121 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI EXPIRING - INPT",PIEN)) Q:PIEN=""
122 ..S ORBPAR=PIEN
123 .I ORBOI=6 D
124 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI EXPIRING - INPT PR",PIEN)) Q:PIEN=""
125 ..S ORBPAR=PIEN
126 .D PROC(ORBPAR)
127 Q
128 ;
129OUTPTOI ;
130 N ORBT,ORBPAR,ORBOI,DIRUT,DUOUT,PIEN,Y
131 S ORBT="Flag OUTPATIENT orderable items to send Notifications"
132 F D Q:$D(DUOUT)!(Y="")
133 .D TITLE(ORBT)
134 .W !!,"1. Flag Outpatient ORDERS."
135 .W !,"2. Flag Outpatient ORDERS for PROVIDER RECIPIENTS."
136 .W !,"3. Flag Outpatient RESULTS."
137 .W !,"4. Flag Outpatient RESULTS for PROVIDER RECIPIENTS."
138 .W !,"5. Flag Outpatient EXPIRING orders."
139 .W !,"6. Flag Outpatient EXPIRING orders for PROVIDER RECIPIENTS.",!
140 .S PIEN=0,Y=0
141 .K DIR S DIR(0)="NAO^1:6",DIR("A")="Select ""1 or 2"" to flag outpt ORDERS, ""3 or 4"" to flag outpt RESULTS, ""5 or 6"" to flag outpt EXPIRING orders: "
142 .D ^DIR S ORBOI=Y K DIR Q:$D(DIRUT)
143 .K X,DTOUT,DUOUT,DIRUT
144 .I ORBOI=1 D
145 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI ORDERED - OUTPT",PIEN)) Q:PIEN=""
146 ..S ORBPAR=PIEN
147 .I ORBOI=2 D
148 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI ORDERED - OUTPT PR",PIEN)) Q:PIEN=""
149 ..S ORBPAR=PIEN
150 .I ORBOI=3 D
151 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI RESULTS - OUTPT",PIEN)) Q:PIEN=""
152 ..S ORBPAR=PIEN
153 .I ORBOI=4 D
154 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI RESULTS - OUTPT PR",PIEN)) Q:PIEN=""
155 ..S ORBPAR=PIEN
156 .I ORBOI=5 D
157 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI EXPIRING - OUTPT",PIEN)) Q:PIEN=""
158 ..S ORBPAR=PIEN
159 .I ORBOI=6 D
160 ..S PIEN=$O(^XTV(8989.51,"B","ORB OI EXPIRING - OUTPT PR",PIEN)) Q:PIEN=""
161 ..S ORBPAR=PIEN
162 .D PROC(ORBPAR)
163 Q
164 ;
165ARC ;
166 N ORBT,ORBPAR,PIEN
167 S ORBT="Set ARCHIVE PERIOD Parameters for Notifications",PIEN=0
168 S PIEN=$O(^XTV(8989.51,"B","ORB ARCHIVE PERIOD",PIEN)) Q:PIEN=""
169 S ORBPAR=PIEN
170 D TITLE(ORBT) D PROC(ORBPAR)
171 Q
172 ;
173FSUPER ;
174 N ORBT,ORBPAR,PIEN
175 S ORBT="Set FORWARD SUPERVISOR Parameters for Notifications",PIEN=0
176 S PIEN=$O(^XTV(8989.51,"B","ORB FORWARD SUPERVISOR",PIEN)) Q:PIEN=""
177 S ORBPAR=PIEN
178 D TITLE(ORBT) D PROC(ORBPAR)
179 Q
180 ;
181FSURR ;
182 N ORBT,ORBPAR,PIEN
183 S ORBT="Set FORWARD SURROGATES Parameters for Notifications",PIEN=0
184 S PIEN=$O(^XTV(8989.51,"B","ORB FORWARD SURROGATES",PIEN)) Q:PIEN=""
185 S ORBPAR=PIEN
186 D TITLE(ORBT) D PROC(ORBPAR)
187 Q
188 ;
189FREVIEW ;
190 N ORBT,ORBPAR,PIEN
191 S ORBT="Set FORWARD BACKUP REVIEWER Parameters for Notifications",PIEN=0
192 S PIEN=$O(^XTV(8989.51,"B","ORB FORWARD BACKUP REVIEWER",PIEN)) Q:PIEN=""
193 S ORBPAR=PIEN
194 D TITLE(ORBT) D PROC(ORBPAR)
195 Q
196 ;
197FLGOB ;
198 N ORBT,ORBPAR,PIEN
199 S ORBT="Set FLAGGED ORDERS BULLETIN Parameters for Notifications",PIEN=0
200 S PIEN=$O(^XTV(8989.51,"B","ORB FLAGGED ORDERS BULLETIN",PIEN)) Q:PIEN=""
201 S ORBPAR=PIEN
202 D TITLE(ORBT) D PROC(ORBPAR)
203 Q
204 ;
205SYSEN ;
206 N ORBT,ORBPAR,PIEN
207 S ORBT="Enable or Disable Notification System",PIEN=0
208 S PIEN=$O(^XTV(8989.51,"B","ORB SYSTEM ENABLE/DISABLE",PIEN)) Q:PIEN=""
209 S ORBPAR=PIEN
210 D TITLE(ORBT) D PROC(ORBPAR)
211 Q
212 ;
213UVMED ;
214 N ORBT,ORBPAR,PIEN
215 S ORBT="Set Delay for Unverified Medication Orders",PIEN=0
216 S PIEN=$O(^XTV(8989.51,"B","ORB UNVERIFIED MED ORDER",PIEN)) Q:PIEN=""
217 S ORBPAR=PIEN
218 D TITLE(ORBT) D PROC(ORBPAR)
219 Q
220 ;
221UNVER ;
222 N ORBT,ORBPAR,PIEN
223 S ORBT="Set Delay for All Unverified Orders",PIEN=0
224 S PIEN=$O(^XTV(8989.51,"B","ORB UNVERIFIED ORDER",PIEN)) Q:PIEN=""
225 S ORBPAR=PIEN
226 D TITLE(ORBT) D PROC(ORBPAR)
227 Q
228 ;
229TITLE(ORBT) ;
230 ; Center and write title - Parameter to be set
231 S IOP=0 D ^%ZIS K IOP W @IOF
232 W !,?(80-$L(ORBT)-1/2),ORBT
233 Q
234 ;
235PROC(ORBPAR) ; Process Parameter Settings
236 D EDITPAR^XPAREDIT(ORBPAR)
237 Q
Note: See TracBrowser for help on using the repository browser.