| Last change
 on this file since 1294 was             459, checked in by Kevin Toppenberg, 17 years ago | 
        
          | 
Adding foia-cprs branch
 | 
        
          | File size:
            1.3 KB | 
      
      
| Rev | Line |  | 
|---|
| [459] | 1 | unit UBAConst; | 
|---|
|  | 2 |  | 
|---|
|  | 3 | {$OPTIMIZATION OFF} | 
|---|
|  | 4 |  | 
|---|
|  | 5 | interface | 
|---|
|  | 6 |  | 
|---|
|  | 7 | const | 
|---|
|  | 8 |  | 
|---|
|  | 9 | BUFFER_ORDER_ID = '9999999999'; | 
|---|
|  | 10 |  | 
|---|
|  | 11 | CARET = '^'; | 
|---|
|  | 12 | NOT_APPLICABLE          = 'N/A'; | 
|---|
|  | 13 |  | 
|---|
|  | 14 | ENCOUNTER_TODAYS_DX     = '^Diagnoses from Today''s Orders'; //BAPHII 1.3.10 | 
|---|
|  | 15 | ENCOUNTER_PERSONAL_DX   = '^Personal Diagnoses List Items'; | 
|---|
|  | 16 | DX_PROBLEM_LIST_TXT     = 'Problem List Items'; | 
|---|
|  | 17 | DX_PERSONAL_LIST_TXT    = 'Personal Diagnoses List Items'; | 
|---|
|  | 18 | DX_ENCOUNTER_LIST_TXT   = 'Encounter Form Diagnoses'; | 
|---|
|  | 19 | DX_TODAYS_DX_LIST_TXT   = 'Diagnoses from Today''s Orders'; | 
|---|
|  | 20 |  | 
|---|
|  | 21 | MIN_SC_CONDITION = 0; | 
|---|
|  | 22 | MAX_SC_CONDITION = 0; | 
|---|
|  | 23 | BILLABLE_ORDER = '1'; | 
|---|
|  | 24 | SERVICE_CONNECTED       = 'SC'; | 
|---|
|  | 25 | NOT_SERVICE_CONNECTED   = 'NSC'; | 
|---|
|  | 26 | AGENT_ORANGE            = 'AO'; | 
|---|
|  | 27 | IONIZING_RADIATION      = 'IR'; | 
|---|
|  | 28 | ENVIRONMENTAL_CONTAM    = 'EC'; | 
|---|
|  | 29 | HEAD_NECK_CANCER        = 'HNC'; | 
|---|
|  | 30 | MILITARY_SEXUAL_TRAUMA  = 'MST'; | 
|---|
|  | 31 | COMBAT_VETERAN          = 'CV'; | 
|---|
|  | 32 |  | 
|---|
|  | 33 | MAX_DX = 4; | 
|---|
|  | 34 | DXREC_INIT_FIELD_VAL        = ''; | 
|---|
|  | 35 | UNSIGNED_REC_INIT_FIELD_VAL = ''; | 
|---|
|  | 36 |  | 
|---|
|  | 37 | PRIMARY_DX = 'Primary'; | 
|---|
|  | 38 | SECONDARY_DX = 'Secondary'; | 
|---|
|  | 39 |  | 
|---|
|  | 40 | //Form identifiers | 
|---|
|  | 41 | F_ORDERS_SIGN  = 1; | 
|---|
|  | 42 | F_REVIEW       = 2; | 
|---|
|  | 43 | F_CONSULTS     = 3; | 
|---|
|  | 44 | // Order Status | 
|---|
|  | 45 |  | 
|---|
|  | 46 | BAOK2SIGN = 1; | 
|---|
|  | 47 | DISCONTINUED = 5; | 
|---|
|  | 48 | MIN_RECT = 0; | 
|---|
|  | 49 | MAX_RECT = 199; | 
|---|
|  | 50 |  | 
|---|
|  | 51 | ADD_TO_PROBLEM_LIST     = 'PL'; | 
|---|
|  | 52 | ADD_TO_PERSONAL_DX_LIST = 'PD'; | 
|---|
|  | 53 | BA_INACTIVE_CODE =  '#'; | 
|---|
|  | 54 |  | 
|---|
|  | 55 |  | 
|---|
|  | 56 |  | 
|---|
|  | 57 | implementation | 
|---|
|  | 58 |  | 
|---|
|  | 59 | end. | 
|---|
|  | 60 |  | 
|---|
|  | 61 |  | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.