source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/uConst.pas@ 1727

Last change on this file since 1727 was 1693, checked in by healthsevak, 10 years ago

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