source: cprs/branches/tmg-cprs/CPRS-Chart/BA/UBAConst.pas@ 1493

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 3.3 KB
Line 
1//kt -- Modified with SourceScanner on 8/17/2007
2unit UBAConst;
3
4{$OPTIMIZATION OFF}
5
6interface
7
8const
9
10 BUFFER_ORDER_ID = '9999999999';
11
12 CARET = '^';
13 NOT_APPLICABLE = 'N/A';
14
15//kt 8-17-07 removed to replace with functions
16//ENCOUNTER_TODAYS_DX = '^Diagnoses from Today''s Orders'; //BAPHII 1.3.10 <-- original line. //kt 8/17/2007
17//ENCOUNTER_PERSONAL_DX = '^Personal Diagnoses List Items'; <-- original line. //kt 8/17/2007
18//DX_PROBLEM_LIST_TXT = 'Problem List Items'; <-- original line. //kt 8/17/2007
19//DX_PERSONAL_LIST_TXT = 'Personal Diagnoses List Items'; <-- original line. //kt 8/17/2007
20//DX_ENCOUNTER_LIST_TXT = 'Encounter Form Diagnoses'; <-- original line. //kt 8/17/2007
21//DX_TODAYS_DX_LIST_TXT = 'Diagnoses from Today''s Orders'; <-- original line. //kt 8/17/2007
22
23 MIN_SC_CONDITION = 0;
24 MAX_SC_CONDITION = 0;
25 BILLABLE_ORDER = '1';
26 SERVICE_CONNECTED = 'SC';
27 NOT_SERVICE_CONNECTED = 'NSC';
28 AGENT_ORANGE = 'AO';
29 IONIZING_RADIATION = 'IR';
30 ENVIRONMENTAL_CONTAM = 'EC';
31 HEAD_NECK_CANCER = 'HNC';
32 MILITARY_SEXUAL_TRAUMA = 'MST';
33 COMBAT_VETERAN = 'CV';
34
35 MAX_DX = 4;
36 DXREC_INIT_FIELD_VAL = '';
37 UNSIGNED_REC_INIT_FIELD_VAL = '';
38
39//kt 8-17-07 removed to replace with functions
40//PRIMARY_DX = 'Primary'; <-- original line. //kt 8/17/2007
41//SECONDARY_DX = 'Secondary'; <-- original line. //kt 8/17/2007
42function PRIMARY_DX: string; //kt
43function SECONDARY_DX: string; //kt
44
45const
46 //Form identifiers
47 F_ORDERS_SIGN = 1;
48 F_REVIEW = 2;
49 F_CONSULTS = 3;
50 // Order Status
51
52 BAOK2SIGN = 1;
53 DISCONTINUED = 5;
54 MIN_RECT = 0;
55 MAX_RECT = 199;
56
57 ADD_TO_PROBLEM_LIST = 'PL';
58 ADD_TO_PERSONAL_DX_LIST = 'PD';
59 BA_INACTIVE_CODE = '#';
60
61 //kt replacing constants with fn declarations to allow just-in-time translation
62 function ENCOUNTER_TODAYS_DX : string;
63 function ENCOUNTER_PERSONAL_DX : string;
64 function DX_PROBLEM_LIST_TXT : string;
65 function DX_PERSONAL_LIST_TXT : string;
66 function DX_ENCOUNTER_LIST_TXT : string;
67 function DX_TODAYS_DX_LIST_TXT : string;
68
69
70implementation
71
72uses DKLang;
73
74function ENCOUNTER_TODAYS_DX : string;
75begin
76 Result := '^'+DKLangConstW('UBAConst_Diagnoses_from_Todayxxs_Orders'); //BAPHII 1.3.10 //kt added 8/17/2007
77end;
78
79function ENCOUNTER_PERSONAL_DX : string;
80begin
81 Result := '^'+DKLangConstW('UBAConst_Personal_Diagnoses_List_Items'); //kt added 8/17/2007
82end;
83
84function DX_PROBLEM_LIST_TXT : string;
85begin
86 Result := DKLangConstW('UBAConst_Problem_List_Items'); //kt added 8/17/2007
87end;
88
89function DX_PERSONAL_LIST_TXT : string;
90begin
91 Result := DKLangConstW('UBAConst_Personal_Diagnoses_List_Items'); //kt added 8/17/2007
92end;
93
94function DX_ENCOUNTER_LIST_TXT : string;
95begin
96 Result := DKLangConstW('UBAConst_Encounter_Form_Diagnoses'); //kt added 8/17/2007
97end;
98
99function DX_TODAYS_DX_LIST_TXT : string;
100begin
101 Result := DKLangConstW('UBAConst_Diagnoses_from_Todayxxs_Orders'); //kt added 8/17/2007
102end;
103
104
105function PRIMARY_DX: string;
106begin
107 Result := DKLangConstW('UBAConst_Primary'); //kt added 8/17/2007
108end;
109
110function SECONDARY_DX: string;
111begin
112 Result := DKLangConstW('UBAConst_Secondary'); //kt added 8/17/2007
113end;
114
115end.
116
117
Note: See TracBrowser for help on using the repository browser.