Module

UBAMessages

Path

C:\CPRS\CPRS30\BA\UBAMessages.pas

Last Modified

7/15/2014 3:26:34 PM

Comments

.$define debug

Constants

Name Declaration Scope Comments
BA_BILLING_DATA_SAVE_FAILED 'Error: Billing data was not saved' Interfaced -
BA_CONFIRM_DX_OVERWRITE '''Lookup Diagnoses'' action will overwrite any existing diagnoses for selected orders.'+#13+'Do you wish to proceed?' Interfaced -
BA_DATA_NOT_REQD '9' Interfaced -
BA_DUP_DX 'Duplicate Diagnosis.' Interfaced -
BA_DUP_DX_DISALLOWED_1 'Diagnosis (' Interfaced -
BA_DUP_DX_DISALLOWED_2 ') has already been selected.' Interfaced -
BA_INACTIVE_CODE 'Inactive Code' Interfaced -
BA_INACTIVE_ICD9_CODE_1 'The diagnosis code (' Interfaced -
BA_INACTIVE_ICD9_CODE_2 ') is not active as of today''s date,' + #13#10+ Interfaced -
BA_MAX_DX 'A maximum of 4 diagnosis can be selected' Interfaced -
BA_MAX_DX_ALLOWED 'Can Not Add Diagnosis' + #13 + Interfaced CPRS User Messages
BA_NA_COPY_DISALLOWED 'Can''t copy ''N/A'' orders. Select non-''N/A'' order(s), and retry the copy.' Interfaced -
BA_NA_PASTE_DISALLOWED 'Selected Diagnoses will not be pasted to orders flagged with N/A.' Interfaced -
BA_NO_BILLABLE_ORDERS 'No billable orders have been selected.' Interfaced -
BA_NO_ORDERS_SELECTED 'No orders have been selected. Select one or more orders to be signed.' Interfaced -
BA_ONE_ORDER_ONLY 'Only 1 order at a time may be selected for copying' Interfaced -
BA_PERSONAL_LIST_UPDATED 'Personal Diagnoses List Updated.' Interfaced -


Module Source

1     unit UBAMessages;
2     
3     {$OPTIMIZATION OFF}
4     {.$define debug}
5     
6     interface
7     
8     const
9     
10      {$ifdef debug}
11      BA_ASSRTF                     = 'Assertion failed' + #13;
12      {$endif}
13    
14      //CPRS User Messages
15      BA_MAX_DX_ALLOWED             = 'Can Not Add Diagnosis' + #13 +
16                                       'Reason: Maximum (4) diagnoses have already been applied to this order.' + #13 +
17                                       'You may use the ''Diagnosis Editor'' to manage diagnoses for order(s).';
18      BA_NO_ORDERS_SELECTED         = 'No orders have been selected.  Select one or more orders to be signed.';
19      BA_CONFIRM_DX_OVERWRITE       = '''Lookup Diagnoses'' action will overwrite any existing diagnoses for selected orders.'+#13+'Do you wish to proceed?';
20      BA_MAX_DX                     = 'A maximum of 4 diagnosis can be selected';
21      BA_BILLING_DATA_SAVE_FAILED   = 'Error: Billing data was not saved';
22    
23      BA_NA_COPY_DISALLOWED         = 'Can''t copy ''N/A'' orders.  Select non-''N/A'' order(s), and retry the copy.';
24      BA_NA_PASTE_DISALLOWED        = 'Selected Diagnoses will not be pasted to orders flagged with N/A.';
25    
26      BA_ONE_ORDER_ONLY             = 'Only 1 order at a time may be selected for copying';
27      BA_PERSONAL_LIST_UPDATED      = 'Personal Diagnoses List Updated.';
28      BA_NO_BILLABLE_ORDERS         = 'No billable orders have been selected.';
29    
30      BA_INACTIVE_CODE              = 'Inactive Code';
31      BA_INACTIVE_ICD9_CODE_1       = 'The diagnosis code (';
32      BA_INACTIVE_ICD9_CODE_2       = ') is not active as of today''s date,' + #13#10+
33                                      'Please select another.';
34      BA_DATA_NOT_REQD              = '9';
35      BA_DUP_DX                     = 'Duplicate Diagnosis.';
36      BA_DUP_DX_DISALLOWED_1        = 'Diagnosis (';
37      BA_DUP_DX_DISALLOWED_2        = ') has already been selected.'; 
38    
39    
40    
41    implementation
42    
43    end.

Module Calls (2 levels)

-

Module Called-By (2 levels)


          UBAMessages
  fBALocalDiagnoses┤ 
       UBAGlobals┤ │ 
      fOrdersSign┤ │ 
          fReview┤ │ 
       fODConsult┘ │ 
     fOrdersSign...┤ 
         fReview...┤ 
fBAOptionsDiagnoses┘ 
         fOptions┘