source: cprs/branches/foia-cprs/CPRS-Chart/uConst.pas@ 459

Last change on this file since 459 was 459, checked in by Kevin Toppenberg, 16 years ago

Adding foia-cprs branch
File size: 12.7 KB
Line 
1unit uConst;
2
3interface
4
5uses Messages;
6
7const
8
9 { User defined messages used by CPRS }
10// UM_SHOWPAGE = (WM_USER + 100); // originally in fFrame
11// UM_NEWORDER = (WM_USER + 101); // originally in fODBase
12// UM_TAKEFOCUS = (WM_USER + 102); // in fProbEdt
13// UM_CLOSEPROBLEM = (WM_USER + 103); // in fProbs
14// UM_PLFILTER = (WM_USER + 104); // in fProbs
15// UM_PLLEX = (WM_USER + 105); // in fProbs
16// UM_RESIZEPAGE = (WM_USER + 107); // originally in fPage
17// UM_DROPLIST = (WM_USER + 108); // originally in fODMedIn
18// UM_DESTROY = (WM_USER + 109); // used to notify owner when order dialog closes
19// UM_DELAYEVENT = (WM_USER + 110); // used with PostMessage to slightly delay an event
20
21 UM_SHOWPAGE = (WM_USER + 9236); // originally in fFrame
22 UM_NEWORDER = (WM_USER + 9237); // originally in fODBase
23 UM_TAKEFOCUS = (WM_USER + 9238); // in fProbEdt
24 UM_CLOSEPROBLEM = (WM_USER + 9239); // in fProbs
25 UM_PLFILTER = (WM_USER + 9240); // in fProbs
26 UM_PLLEX = (WM_USER + 9241); // in fProbs
27 UM_RESIZEPAGE = (WM_USER + 9242); // originally in fPage
28 UM_DROPLIST = (WM_USER + 9243); // originally in fODMedIn
29 UM_DESTROY = (WM_USER + 9244); // used to notify owner when order dialog closes
30 UM_DELAYEVENT = (WM_USER + 9245); // used with PostMessage to slightly delay an event
31 UM_INITIATE = (WM_USER + 9246); // used by fFrame to do initial stuff after FormCreate
32 UM_RESYNCREM = (WM_USER + 9247); // used by fReminderDialog to update reminder controls
33 UM_STILLDELAY = (WM_USER + 9248); // used by EDO related form fOrdersTS,fOrdersCopy,fMedsCopy
34 UM_EVENTOCCUR = (WM_USER + 9249); // used by EDO for background occured event
35 UM_NSSOTHER = (WM_USER + 9250); // used by NSS for auto-display schedule builder
36
37 { Tab Indexes, moved from fFrame }
38 CT_NOPAGE = -1; // chart tab - none selected
39 CT_UNKNOWN = 0; // chart tab - unknown (shouldn't happen)
40 CT_COVER = 1; // chart tab - cover sheet
41 CT_PROBLEMS = 2; // chart tab - problem list
42 CT_MEDS = 3; // chart tab - medications screen
43 CT_ORDERS = 4; // chart tab - doctor's orders
44 CT_HP = 5; // chart tab - history & physical
45 CT_NOTES = 6; // chart tab - progress notes
46 CT_CONSULTS = 7; // chart tab - consults
47 CT_DCSUMM = 8; // chart tab - discharge summaries
48 CT_LABS = 9; // chart tab - laboratory results
49 CT_REPORTS = 10; // chart tab - reports
50 CT_SURGERY = 11; // chart tab - surgery
51
52 { Changes object item types }
53 CH_DOC = 10; // TIU documents (progress notes)
54 CH_SUM = 12; // Discharge Summaries {*REV*}
55 CH_CON = 15; // Consults
56 CH_SUR = 18; // Surgery reports
57 CH_ORD = 20; // Orders
58 CH_PCE = 30; // Encounter Form items
59
60 { Changes object signature requirements }
61 CH_SIGN_YES = 1; // Obtain signature (checkbox is checked)
62 CH_SIGN_NO = 2; // Don't obtain signature (checkbox is unchecked)
63 CH_SIGN_NA = 0; // Signature not applicable (checkbox is greyed)
64
65 { Sign & release orders }
66 SS_ONCHART = '0';
67 SS_ESIGNED = '1';
68 SS_UNSIGNED = '2';
69 SS_NOTREQD = '3';
70 SS_DIGSIG = '7';
71 RS_HOLD = '0';
72 RS_RELEASE = '1';
73 NO_PROVIDER = 'E';
74 NO_VERBAL = 'V';
75 NO_PHONE = 'P';
76 NO_POLICY = 'I';
77 NO_WRITTEN = 'W';
78
79 { Actions on orders }
80 ORDER_NEW = 0;
81 ORDER_DC = 1;
82 ORDER_RENEW = 2;
83 ORDER_HOLD = 3;
84 ORDER_EDIT = 4;
85 ORDER_COPY = 5;
86 ORDER_QUICK = 9;
87 ORDER_ACT = 10;
88 ORDER_SIGN = 11;
89 ORDER_CPLXRN = 12;
90
91 { Order action codes }
92 OA_COPY = 'RW';
93 OA_CHANGE = 'XX';
94 OA_RENEW = 'RN';
95 OA_HOLD = 'HD';
96 OA_DC = 'DC';
97 OA_UNHOLD = 'RL';
98 OA_FLAG = 'FL';
99 OA_UNFLAG = 'UF';
100 OA_COMPLETE = 'CP';
101 OA_ALERT = 'AL';
102 OA_REFILL = 'RF';
103 OA_VERIFY = 'VR';
104 OA_CHART = 'CR';
105 OA_RELEASE = 'RS';
106 OA_SIGN = 'ES';
107 OA_ONCHART = 'OC';
108 OA_COMMENT = 'CM';
109 OA_TRANSFER = 'XFR';
110 OA_CHGEVT = 'EV';
111 OA_EDREL = 'MN';
112
113 { Ordering Dialog Form IDs }
114 OD_ACTIVITY = 100;
115 OD_ALLERGY = 105;
116 OD_CONSULT = 110;
117 OD_PROCEDURE = 112;
118 OD_DIET_TXT = 115;
119 OD_DIET = 117;
120 OD_LAB = 120;
121 OD_BB = 125;
122 OD_MEDINPT = 130;
123 OD_MEDS = 135;
124 OD_MEDOUTPT = 140;
125 OD_MEDNONVA = 145;
126 OD_NURSING = 150;
127 OD_MISC = 151;
128 OD_GENERIC = 152;
129 OD_IMAGING = 160;
130 OD_VITALS = 171; // use 170 for ORWD GENERIC VITALS, 171 for GMRVOR
131 OD_MEDIV = 180;
132 OD_TEXTONLY = 999;
133 OM_NAV = 1001;
134 OM_QUICK = 1002;
135 OM_TABBED = 1003;
136 OM_TREE = 1004;
137 OM_ALLERGY = 1105;
138 OM_HTML = 1200;
139 OD_AUTOACK = 9999;
140
141 { Ordering role }
142 OR_NOKEY = 0;
143 OR_CLERK = 1;
144 OR_NURSE = 2;
145 OR_PHYSICIAN = 3;
146 OR_STUDENT = 4;
147 OR_BADKEYS = 5;
148
149 { Quick Orders }
150 QL_DIALOG = 0;
151 QL_AUTO = 1;
152 QL_VERIFY = 2;
153 QL_REJECT = 8;
154 QL_CANCEL = 9;
155 MAX_KEYVARS = 10;
156
157 { Order Signature Statuses }
158 OSS_UNSIGNED = 2;
159 OSS_NOT_REQUIRE = 3;
160
161 { Special Strings }
162 TX_WPTYPE = '^WP^'; // used to identify fields passed as word processing
163
164 { Pharmacy Variables }
165 PST_UNIT_DOSE = 'U';
166 PST_IV_FLUIDS = 'F';
167 PST_OUTPATIENT = 'O';
168
169 { Status groups for medications }
170 MED_ACTIVE = 0; // status is an active status (active, hold, on call)
171 MED_PENDING = 1; // status is a pending status (non-verified)
172 MED_NONACTIVE = 2; // status is a non-active status (expired, dc'd, ...)
173
174 { Actions for medications }
175 MED_NONE = 0;
176 MED_NEW = 1;
177 MED_DC = 2;
178 MED_HOLD = 3;
179 MED_RENEW = 4;
180 MED_REFILL = 5;
181
182 { Validate Date/Times }
183 DT_FUTURE = 'F';
184 DT_PAST = 'P';
185 DT_MMDDREQ = 'E';
186 DT_TIMEOPT = 'T';
187 DT_TIMEREQ = 'R';
188
189 { Change Context Types }
190 CC_CLICK = 0;
191 CC_INIT_PATIENT = 1;
192 CC_NOTIFICATION = 2;
193 CC_REFRESH = 3;
194 CC_RESUME = 4;
195
196 { Notification Types }
197 NF_LAB_RESULTS = 3;
198 NF_FLAGGED_ORDERS = 6;
199 NF_ORDER_REQUIRES_ELEC_SIGNATURE = 12;
200 NF_ABNORMAL_LAB_RESULTS = 14;
201 NF_IMAGING_RESULTS = 22;
202 NF_CONSULT_REQUEST_RESOLUTION = 23;
203 NF_ABNORMAL_IMAGING_RESULTS = 25;
204 NF_IMAGING_REQUEST_CANCEL_HELD = 26;
205 NF_NEW_SERVICE_CONSULT_REQUEST = 27;
206 NF_CONSULT_REQUEST_CANCEL_HOLD = 30;
207 NF_SITE_FLAGGED_RESULTS = 32;
208 NF_ORDERER_FLAGGED_RESULTS = 33;
209 NF_ORDER_REQUIRES_COSIGNATURE = 37;
210 NF_LAB_ORDER_CANCELED = 42;
211 NF_STAT_RESULTS = 44;
212 NF_DNR_EXPIRING = 45;
213 NF_MEDICATIONS_EXPIRING = 47;
214 NF_UNVERIFIED_MEDICATION_ORDER = 48;
215 NF_NEW_ORDER = 50;
216 NF_IMAGING_RESULTS_AMENDED = 53;
217 NF_CRITICAL_LAB_RESULTS = 57;
218 NF_UNVERIFIED_ORDER = 59;
219 NF_FLAGGED_OI_RESULTS = 60;
220 NF_FLAGGED_OI_ORDER = 61;
221 NF_DC_ORDER = 62;
222 NF_CONSULT_REQUEST_UPDATED = 63;
223 NF_FLAGGED_OI_EXP_INPT = 64;
224 NF_FLAGGED_OI_EXP_OUTPT = 65;
225 NF_CONSULT_PROC_INTERPRETATION = 66;
226 NF_IMAGING_REQUEST_CHANGED = 67;
227 NF_LAB_THRESHOLD_EXCEEDED = 68;
228 NF_DCSUMM_UNSIGNED_NOTE = 901;
229 NF_CONSULT_UNSIGNED_NOTE = 902;
230 NF_NOTES_UNSIGNED_NOTE = 903;
231 NF_SURGERY_UNSIGNED_NOTE = 904;
232
233 { Notify Application Events }
234 NAE_OPEN = 'BEG';
235 NAE_CLOSE = 'END';
236 NAE_NEWPT = 'XPT';
237 NAE_REPORT = 'RPT';
238 NAE_ORDER = 'ORD';
239
240 { TIU Delete Document Reasons }
241 DR_PRIVACY = 'P';
242 DR_ADMIN = 'A';
243 DR_NOTREQ = '';
244 DR_CANCEL = 'CANCEL';
245
246 { TIU Document Types }
247 TYP_PROGRESS_NOTE = 3;
248 TYP_ADDENDUM = 81;
249 TYP_DC_SUMM = 244;
250
251 { TIU National Document Class Names }
252 DCL_CONSULTS = 'CONSULTS';
253 DCL_CLINPROC = 'CLINICAL PROCEDURES';
254 DCL_SURG_OR = 'SURGICAL REPORTS';
255 DCL_SURG_NON_OR = 'PROCEDURE REPORT (NON-O.R.)';
256
257 { TIU View Contexts }
258 NC_RECENT = 0; // Note context - last n signed notes
259 NC_ALL = 1; // Note context - all signed notes
260 NC_UNSIGNED = 2; // Note context - all unsigned notes
261 NC_UNCOSIGNED = 3; // Note context - all uncosigned notes
262 NC_BY_AUTHOR = 4; // Note context - signed notes by author
263 NC_BY_DATE = 5; // Note context - signed notes by date range
264 NC_CUSTOM = 6; // Note Context - custom view
265
266 { Surgery View Contexts }
267 SR_RECENT = 0;
268 SR_ALL = 1;
269 SR_BY_DATE = 5;
270 SR_CUSTOM = 6;
271
272 { Surgery TreeView Icons }
273 IMG_SURG_BLANK = 0;
274 IMG_SURG_TOP_LEVEL = 1;
275 IMG_SURG_GROUP_SHUT = 2;
276 IMG_SURG_GROUP_OPEN = 3;
277 IMG_SURG_CASE_EMPTY = 4;
278 IMG_SURG_CASE_SHUT = 5;
279 IMG_SURG_CASE_OPEN = 6;
280 IMG_SURG_RPT_SINGLE = 7;
281 IMG_SURG_RPT_ADDM = 8;
282 IMG_SURG_ADDENDUM = 9;
283 IMG_SURG_NON_OR_CASE_EMPTY = 10;
284 IMG_SURG_NON_OR_CASE_SHUT = 11;
285 IMG_SURG_NON_OR_CASE_OPEN = 12;
286
287 { TIU TreeView icons }
288 IMG_TOP_LEVEL = 0;
289 IMG_GROUP_SHUT = 1;
290 IMG_GROUP_OPEN = 2;
291 IMG_SINGLE = 3;
292 IMG_PARENT = 4;
293 IMG_IDNOTE_SHUT = 5;
294 IMG_IDNOTE_OPEN = 6;
295 IMG_IDPAR_ADDENDA_SHUT = 7;
296 IMG_IDPAR_ADDENDA_OPEN = 8;
297 IMG_ID_CHILD = 9;
298 IMG_ID_CHILD_ADD = 10;
299 IMG_ADDENDUM = 11;
300
301 { Consults Treeview Icons }
302 IMG_GMRC_TOP_LEVEL = 0;
303 IMG_GMRC_GROUP_SHUT = 1;
304 IMG_GMRC_GROUP_OPEN = 2;
305 IMG_GMRC_CONSULT = 3;
306 IMG_GMRC_PROC = 4;
307 IMG_GMRC_CLINPROC = 5;
308 IMG_GMRC_ALL_PROC = 6;
309 IMG_GMRC_IFC_CONSULT = 7;
310 IMG_GMRC_IFC_PROC = 8;
311
312
313 { TIU Imaging icons }
314 IMG_NO_IMAGES = 6;
315 IMG_1_IMAGE = 1;
316 IMG_2_IMAGES = 2;
317 IMG_MANY_IMAGES = 3;
318 IMG_CHILD_HAS_IMAGES = 4;
319 IMG_IMAGES_HIDDEN = 5;
320
321
322 { TIU ListView sort indicators }
323 IMG_NONE = -1;
324 IMG_ASCENDING = 12;
325 IMG_DESCENDING = 13;
326 IMG_BLANK = 14;
327
328 { TIU TreeView context strings}
329 NC_TV_TEXT: array[CT_NOTES..CT_DCSUMM] of array[NC_RECENT..NC_BY_DATE] of string =
330 (('Recent Signed Notes','All signed notes','All unsigned notes','All uncosigned notes','Signed notes by author','Signed notes by date range'),
331 ('','Related Documents','Medicine Results',' ',' ',' '),
332 ('Recent Signed Summaries','All signed summaries','All unsigned summaries','All uncosigned summaries','Signed summaries by author','Signed summaries by date range'));
333
334 CC_ALL = 1; // Consult context - all Consults
335 CC_BY_STATUS = 2; // Consult context - Consults by Status
336 CC_BY_SERVICE = 4; // Consult context - Consults by Service
337 CC_BY_DATE = 5; // Consult context - Consults by date range
338 CC_CUSTOM = 6; // Custom consults list
339
340 CC_TV_TEXT: array[CC_ALL..CC_CUSTOM] of string =
341 ('All consults','Consults by Status', '', 'Consults by Service','Consults by Date Range','Custom List');
342
343 PKG_CONSULTS = 'GMR(123,';
344 PKG_SURGERY = 'SRF(';
345
346 { New Person Filters }
347 NPF_ALL = 0;
348 NPF_PROVIDER = 1;
349// NPF_ENCOUNTER = 2;
350 NPF_SUPPRESS = 9;
351
352 { Location Types }
353 LOC_ALL = 0;
354 LOC_OUTP = 1;
355 LOC_INP = 2;
356
357 { File Numbers }
358 FN_HOSPITAL_LOCATION = 44;
359 FN_NEW_PERSON = 200;
360
361 UpperCaseLetters = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
362 LowerCaseLetters = 'abcdefghijklmnopqrstuvwxyz';
363 Digits = '0123456789';
364
365 MAX_ENTRY_WIDTH = 80; //Change in 23.9 for D/S, Consult, and Surgery Notes AGP
366 MAX_PROGRESSNOTE_WIDTH = 80;
367
368 //Group Name
369 NONVAMEDGROUP = 'Non-VA Meds';
370 NONVAMEDTXT = 'Non-VA';
371
372 DISCONTINUED_ORDER = '2';
373
374
375var
376 ScrollBarWidth: integer = 0;
377
378implementation
379
380uses
381 Windows;
382
383initialization
384 ScrollBarWidth := GetSystemMetrics(SM_CXVSCROLL);
385
386end.
387
388
Note: See TracBrowser for help on using the repository browser.