source: cprs/trunk/CPRS-Chart/uConst.pas.bak@ 654

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

Initial Upload of Official WV CPRS 1.0.26.76
File size: 13.0 KB
RevLine 
[456]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_INPT = 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_MAMMOGRAM_RESULTS = 69;
229 NF_PAP_SMEAR_RESULTS = 70;
230 NF_ANATOMIC_PATHOLOGY_RESULTS = 71;
231 NF_MEDICATIONS_EXPIRING_OUTPT = 72;
232 NF_DCSUMM_UNSIGNED_NOTE = 901;
233 NF_CONSULT_UNSIGNED_NOTE = 902;
234 NF_NOTES_UNSIGNED_NOTE = 903;
235 NF_SURGERY_UNSIGNED_NOTE = 904;
236
237 { Notify Application Events }
238 NAE_OPEN = 'BEG';
239 NAE_CLOSE = 'END';
240 NAE_NEWPT = 'XPT';
241 NAE_REPORT = 'RPT';
242 NAE_ORDER = 'ORD';
243
244 { TIU Delete Document Reasons }
245 DR_PRIVACY = 'P';
246 DR_ADMIN = 'A';
247 DR_NOTREQ = '';
248 DR_CANCEL = 'CANCEL';
249
250 { TIU Document Types }
251 TYP_PROGRESS_NOTE = 3;
252 TYP_ADDENDUM = 81;
253 TYP_DC_SUMM = 244;
254
255 { TIU National Document Class Names }
256 DCL_CONSULTS = 'CONSULTS';
257 DCL_CLINPROC = 'CLINICAL PROCEDURES';
258 DCL_SURG_OR = 'SURGICAL REPORTS';
259 DCL_SURG_NON_OR = 'PROCEDURE REPORT (NON-O.R.)';
260
261 { TIU View Contexts }
262 NC_RECENT = 0; // Note context - last n signed notes
263 NC_ALL = 1; // Note context - all signed notes
264 NC_UNSIGNED = 2; // Note context - all unsigned notes
265 NC_UNCOSIGNED = 3; // Note context - all uncosigned notes
266 NC_BY_AUTHOR = 4; // Note context - signed notes by author
267 NC_BY_DATE = 5; // Note context - signed notes by date range
268 NC_CUSTOM = 6; // Note Context - custom view
269 //Text Search CQ: HDS00002856
270 NC_SEARCHTEXT = 7; // Note Content - search for text
271
272 { Surgery View Contexts }
273 SR_RECENT = 0;
274 SR_ALL = 1;
275 SR_BY_DATE = 5;
276 SR_CUSTOM = 6;
277
278 { Surgery TreeView Icons }
279 IMG_SURG_BLANK = 0;
280 IMG_SURG_TOP_LEVEL = 1;
281 IMG_SURG_GROUP_SHUT = 2;
282 IMG_SURG_GROUP_OPEN = 3;
283 IMG_SURG_CASE_EMPTY = 4;
284 IMG_SURG_CASE_SHUT = 5;
285 IMG_SURG_CASE_OPEN = 6;
286 IMG_SURG_RPT_SINGLE = 7;
287 IMG_SURG_RPT_ADDM = 8;
288 IMG_SURG_ADDENDUM = 9;
289 IMG_SURG_NON_OR_CASE_EMPTY = 10;
290 IMG_SURG_NON_OR_CASE_SHUT = 11;
291 IMG_SURG_NON_OR_CASE_OPEN = 12;
292
293 { TIU TreeView icons }
294 IMG_TOP_LEVEL = 0;
295 IMG_GROUP_SHUT = 1;
296 IMG_GROUP_OPEN = 2;
297 IMG_SINGLE = 3;
298 IMG_PARENT = 4;
299 IMG_IDNOTE_SHUT = 5;
300 IMG_IDNOTE_OPEN = 6;
301 IMG_IDPAR_ADDENDA_SHUT = 7;
302 IMG_IDPAR_ADDENDA_OPEN = 8;
303 IMG_ID_CHILD = 9;
304 IMG_ID_CHILD_ADD = 10;
305 IMG_ADDENDUM = 11;
306
307 { Consults Treeview Icons }
308 IMG_GMRC_TOP_LEVEL = 0;
309 IMG_GMRC_GROUP_SHUT = 1;
310 IMG_GMRC_GROUP_OPEN = 2;
311 IMG_GMRC_CONSULT = 3;
312 IMG_GMRC_PROC = 4;
313 IMG_GMRC_CLINPROC = 5;
314 IMG_GMRC_ALL_PROC = 6;
315 IMG_GMRC_IFC_CONSULT = 7;
316 IMG_GMRC_IFC_PROC = 8;
317
318
319 { TIU Imaging icons }
320 IMG_NO_IMAGES = 6;
321 IMG_1_IMAGE = 1;
322 IMG_2_IMAGES = 2;
323 IMG_MANY_IMAGES = 3;
324 IMG_CHILD_HAS_IMAGES = 4;
325 IMG_IMAGES_HIDDEN = 5;
326
327
328 { TIU ListView sort indicators }
329 IMG_NONE = -1;
330 IMG_ASCENDING = 12;
331 IMG_DESCENDING = 13;
332 IMG_BLANK = 14;
333
334 { TIU TreeView context strings}
335 NC_TV_TEXT: array[CT_NOTES..CT_DCSUMM] of array[NC_RECENT..NC_BY_DATE] of string =
336 (('Recent Signed Notes','All signed notes','All unsigned notes','All uncosigned notes','Signed notes by author','Signed notes by date range'),
337 ('','Related Documents','Medicine Results',' ',' ',' '),
338 ('Recent Signed Summaries','All signed summaries','All unsigned summaries','All uncosigned summaries','Signed summaries by author','Signed summaries by date range'));
339
340 CC_ALL = 1; // Consult context - all Consults
341 CC_BY_STATUS = 2; // Consult context - Consults by Status
342 CC_BY_SERVICE = 4; // Consult context - Consults by Service
343 CC_BY_DATE = 5; // Consult context - Consults by date range
344 CC_CUSTOM = 6; // Custom consults list
345
346 CC_TV_TEXT: array[CC_ALL..CC_CUSTOM] of string =
347 ('All consults','Consults by Status', '', 'Consults by Service','Consults by Date Range','Custom List');
348
349 PKG_CONSULTS = 'GMR(123,';
350 PKG_SURGERY = 'SRF(';
351 PKG_PRF = 'PRF';
352
353 { New Person Filters }
354 NPF_ALL = 0;
355 NPF_PROVIDER = 1;
356// NPF_ENCOUNTER = 2;
357 NPF_SUPPRESS = 9;
358
359 { Location Types }
360 LOC_ALL = 0;
361 LOC_OUTP = 1;
362 LOC_INP = 2;
363
364 { File Numbers }
365 FN_HOSPITAL_LOCATION = 44;
366 FN_NEW_PERSON = 200;
367
368 UpperCaseLetters = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
369 LowerCaseLetters = 'abcdefghijklmnopqrstuvwxyz';
370 Digits = '0123456789';
371
372 MAX_ENTRY_WIDTH = 80; //Change in 23.9 for D/S, Consult, and Surgery Notes AGP
373 MAX_PROGRESSNOTE_WIDTH = 80;
374
375 //Group Name
376 NONVAMEDGROUP = 'Non-VA Meds';
377 NONVAMEDTXT = 'Non-VA';
378
379 DISCONTINUED_ORDER = '2';
380
381
382var
383 ScrollBarWidth: integer = 0;
384
385implementation
386
387uses
388 Windows;
389
390initialization
391 ScrollBarWidth := GetSystemMetrics(SM_CXVSCROLL);
392
393end.
394
395
Note: See TracBrowser for help on using the repository browser.