source: cprs/branches/tmg-cprs/CPRS-Chart/Consults/UBAMessages.pas@ 1582

Last change on this file since 1582 was 541, checked in by Kevin Toppenberg, 15 years ago

TMG Ver 1.1 Added HTML Support, better demographics editing

File size: 6.7 KB
Line 
1//kt -- Modified with SourceScanner on 8/8/2007
2unit UBAMessages;
3
4{$OPTIMIZATION OFF}
5{.$define debug}
6
7interface
8
9
10 {$ifdef debug}
11const
12//BA_ASSRTF = 'Assertion failed' + #13; <-- original line. //kt 8/8/2007
13function BA_ASSRTF : string;
14 {$endif}
15
16const
17 //CPRS User Messages
18//BA_MAX_DX_ALLOWED = 'Can Not Add Diagnosis' + #13 + <-- original line. //kt 8/8/2007
19// 'Reason: Maximum (4) diagnoses have already been applied to this order.' + #13 + <-- original line. //kt 8/8/2007
20// 'You may use the ''Diagnosis Editor'' to manage diagnoses for order(s).'; <-- original line. //kt 8/8/2007
21//BA_NO_ORDERS_SELECTED = 'No orders have been selected. Select one or more orders to be signed.'; <-- original line. //kt 8/8/2007
22//BA_CONFIRM_DX_OVERWRITE = '''Lookup Diagnoses'' action will overwrite any existing diagnoses for selected orders.'+#13+'Do you wish to proceed?'; <-- original line. //kt 8/8/2007
23//BA_MAX_DX = 'A maximum of 4 diagnosis can be selected'; <-- original line. //kt 8/8/2007
24//BA_BILLING_DATA_SAVE_FAILED = 'Error: Billing data was not saved'; <-- original line. //kt 8/8/2007
25
26//BA_NA_COPY_DISALLOWED = 'Can''t copy ''N/A'' orders. Select non-''N/A'' order(s), and retry the copy.'; <-- original line. //kt 8/8/2007
27//BA_NA_PASTE_DISALLOWED = 'Selected Diagnoses will not be pasted to orders flagged with N/A.'; <-- original line. //kt 8/8/2007
28
29//BA_ONE_ORDER_ONLY = 'Only 1 order at a time may be selected for copying'; <-- original line. //kt 8/8/2007
30//BA_PERSONAL_LIST_UPDATED = 'Personal Diagnoses List Updated.'; <-- original line. //kt 8/8/2007
31//BA_NO_BILLABLE_ORDERS = 'No billable orders have been selected.'; <-- original line. //kt 8/8/2007
32
33//BA_INACTIVE_CODE = 'Inactive Code'; <-- original line. //kt 8/8/2007
34//BA_INACTIVE_ICD9_CODE_1 = 'The diagnosis code ('; <-- original line. //kt 8/8/2007
35//BA_INACTIVE_ICD9_CODE_2 = ') is not active as of today''s date,' + #13#10+ <-- original line. //kt 8/8/2007
36// 'Please select another.'; <-- original line. //kt 8/8/2007
37
38 BA_DATA_NOT_REQD = '9';
39
40//BA_DUP_DX = 'Duplicate Diagnosis.'; <-- original line. //kt 8/8/2007
41//BA_DUP_DX_DISALLOWED_1 = 'Diagnosis ('; <-- original line. //kt 8/8/2007
42//BA_DUP_DX_DISALLOWED_2 = ') has already been selected.'; <-- original line. //kt 8/8/2007
43
44
45function BA_MAX_DX_ALLOWED : string;
46function BA_NO_ORDERS_SELECTED : string;
47function BA_CONFIRM_DX_OVERWRITE : string;
48function BA_MAX_DX : string;
49function BA_BILLING_DATA_SAVE_FAILED : string;
50function BA_NA_COPY_DISALLOWED : string;
51function BA_NA_PASTE_DISALLOWED : string;
52function BA_ONE_ORDER_ONLY : string;
53function BA_PERSONAL_LIST_UPDATED : string;
54function BA_NO_BILLABLE_ORDERS : string;
55function BA_INACTIVE_CODE : string;
56function BA_INACTIVE_ICD9_CODE_1 : string;
57function BA_INACTIVE_ICD9_CODE_2 : string;
58function BA_DUP_DX : string;
59function BA_DUP_DX_DISALLOWED_1 : string;
60function BA_DUP_DX_DISALLOWED_2 : string;
61
62
63implementation
64
65uses DKLang; //kt
66
67 {$ifdef debug}
68function BA_ASSRTF : string;
69begin Result := DKLangConstW('UBAMessages_Assertion_failed') + #13; //kt added 8/8/2007
70end;
71 {$endif}
72
73function BA_MAX_DX_ALLOWED : string;
74begin Result := DKLangConstW('UBAMessages_Can_Not_Add_Diagnosis') + #13 + //kt added 8/8/2007
75 DKLangConstW('UBAMessages_Reasonx_Maximum_x4x_diagnoses_have_already_been_applied_to_this_orderx') + #13 + //kt added 8/8/2007
76 DKLangConstW('UBAMessages_You_may_use_the_xxDiagnosis_Editorxx_to_manage_diagnoses_for_orderxsxx'); //kt added 8/8/2007
77end;
78
79function BA_NO_ORDERS_SELECTED : string;
80begin Result := DKLangConstW('UBAMessages_No_orders_have_been_selectedx__Select_one_or_more_orders_to_be_signedx'); //kt added 8/8/2007
81end;
82
83function BA_CONFIRM_DX_OVERWRITE : string;
84begin Result := DKLangConstW('UBAMessages_Lookup_Diagnosesxx_action_will_overwrite_any_existing_diagnoses_for_selected_ordersx')+#13+DKLangConstW('UBAMessages_Do_you_wish_to_proceedx'); //kt added 8/8/2007
85end;
86
87function BA_MAX_DX : string;
88begin Result := DKLangConstW('UBAMessages_A_maximum_of_4_diagnosis_can_be_selected'); //kt added 8/8/2007
89end;
90
91function BA_BILLING_DATA_SAVE_FAILED : string;
92begin Result := DKLangConstW('UBAMessages_Errorx_Billing_data_was_not_saved'); //kt added 8/8/2007
93end;
94
95function BA_NA_COPY_DISALLOWED : string;
96begin Result := DKLangConstW('UBAMessages_Canxxt_copy_xxNxAxx_ordersx__Select_nonxxxNxAxx_orderxsxx_and_retry_the_copyx'); //kt added 8/8/2007
97end;
98
99function BA_NA_PASTE_DISALLOWED : string;
100begin Result := DKLangConstW('UBAMessages_Selected_Diagnoses_will_not_be_pasted_to_orders_flagged_with_NxAx'); //kt added 8/8/2007
101end;
102
103function BA_ONE_ORDER_ONLY : string;
104begin Result := DKLangConstW('UBAMessages_Only_1_order_at_a_time_may_be_selected_for_copying'); //kt added 8/8/2007
105end;
106
107function BA_PERSONAL_LIST_UPDATED : string;
108begin Result := DKLangConstW('UBAMessages_Personal_Diagnoses_List_Updatedx'); //kt added 8/8/2007
109end;
110
111function BA_NO_BILLABLE_ORDERS : string;
112begin Result := DKLangConstW('UBAMessages_No_billable_orders_have_been_selectedx'); //kt added 8/8/2007
113end;
114
115function BA_INACTIVE_CODE : string;
116begin Result := DKLangConstW('UBAMessages_Inactive_Code'); //kt added 8/8/2007
117end;
118
119function BA_INACTIVE_ICD9_CODE_1 : string;
120begin Result := DKLangConstW('UBAMessages_The_diagnosis_code_x'); //kt added 8/8/2007
121end;
122
123function BA_INACTIVE_ICD9_CODE_2 : string;
124begin Result := DKLangConstW('UBAMessages_x_is_not_active_as_of_todayxxs_datex') + #13#10+ //kt added 8/8/2007
125 DKLangConstW('UBAMessages_Please_select_anotherx'); //kt added 8/8/2007
126end;
127
128function BA_DUP_DX : string;
129begin Result := DKLangConstW('UBAMessages_Duplicate_Diagnosisx'); //kt added 8/8/2007
130end;
131
132function BA_DUP_DX_DISALLOWED_1 : string;
133begin Result := DKLangConstW('UBAMessages_Diagnosis_x'); //kt added 8/8/2007
134end;
135
136function BA_DUP_DX_DISALLOWED_2 : string;
137begin Result := DKLangConstW('UBAMessages_x_has_already_been_selectedx'); //kt added 8/8/2007
138end;
139
140
141
142end.
Note: See TracBrowser for help on using the repository browser.