Module

UBAConst

Path

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

Last Modified

7/15/2014 3:26:34 PM

Constants

Name Declaration Scope Comments
ADD_TO_PERSONAL_DX_LIST 'PD' Interfaced -
ADD_TO_PROBLEM_LIST 'PL' Interfaced -
AGENT_ORANGE 'AO' Interfaced -
BA_INACTIVE_CODE '#' Interfaced -
BAOK2SIGN 1 Interfaced Order Status
BILLABLE_ORDER '1' Interfaced -
BUFFER_ORDER_ID '9999999999' Interfaced -
CARET '^' Interfaced -
COMBAT_VETERAN 'CV' Interfaced -
DISCONTINUED 5 Interfaced -
DX_ENCOUNTER_LIST_TXT 'Encounter Form Diagnoses' Interfaced -
DX_PERSONAL_LIST_TXT 'Personal Diagnoses List Items' Interfaced -
DX_PROBLEM_LIST_TXT 'Problem List Items' Interfaced -
DX_TODAYS_DX_LIST_TXT 'Diagnoses from Today''s Orders' Interfaced -
DXREC_INIT_FIELD_VAL '' Interfaced -
ENCOUNTER_PERSONAL_DX '^Personal Diagnoses List Items' Interfaced -
ENCOUNTER_TODAYS_DX '^Diagnoses from Today''s Orders' Interfaced BAPHII 1.3.10
ENVIRONMENTAL_CONTAM 'EC' Interfaced -
F_CONSULTS 3 Interfaced -
F_ORDERS_SIGN 1 Interfaced Form identifiers
F_REVIEW 2 Interfaced -
HEAD_NECK_CANCER 'HNC' Interfaced -
IONIZING_RADIATION 'IR' Interfaced -
MAX_DX 4 Interfaced -
MAX_RECT 199 Interfaced -
MAX_SC_CONDITION 0 Interfaced -
MILITARY_SEXUAL_TRAUMA 'MST' Interfaced -
MIN_RECT 0 Interfaced -
MIN_SC_CONDITION 0 Interfaced -
NOT_APPLICABLE 'N/A' Interfaced -
NOT_SERVICE_CONNECTED 'NSC' Interfaced -
PRIMARY_DX 'Primary' Interfaced -
SECONDARY_DX 'Secondary' Interfaced -
SERVICE_CONNECTED 'SC' Interfaced -
SHIPBOARD_HAZARD_DEFENSE 'SHD' Interfaced -
UNSIGNED_REC_INIT_FIELD_VAL '' Interfaced -


Module Source

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      SHIPBOARD_HAZARD_DEFENSE= 'SHD';
33    
34      MAX_DX = 4;
35      DXREC_INIT_FIELD_VAL        = '';
36      UNSIGNED_REC_INIT_FIELD_VAL = '';
37     
38      PRIMARY_DX = 'Primary';
39      SECONDARY_DX = 'Secondary';
40    
41      //Form identifiers
42      F_ORDERS_SIGN  = 1;
43      F_REVIEW       = 2;
44      F_CONSULTS     = 3;
45      // Order Status
46    
47      BAOK2SIGN = 1;
48      DISCONTINUED = 5;
49      MIN_RECT = 0;
50      MAX_RECT = 199;
51    
52      ADD_TO_PROBLEM_LIST     = 'PL';
53      ADD_TO_PERSONAL_DX_LIST = 'PD';
54      BA_INACTIVE_CODE =  '#';
55    
56    
57     
58    implementation
59     
60    end.

Module Calls (2 levels)

-

Module Called-By (2 levels)


                UBAConst
            UBAGlobals┤ 
             rOrders┤ │ 
             uOrders┤ │ 
             fODBase┤ │ 
             UBACore┤ │ 
              fFrame┤ │ 
             fOrders┤ │ 
   fBALocalDiagnoses┤ │ 
             fPCELex┤ │ 
                rPCE┤ │ 
          fDiagnoses┤ │ 
              fPtSel┤ │ 
         fOrdersSign┤ │ 
          mCoPayDesc┤ │ 
             fReview┤ │ 
 fBAOptionsDiagnoses┤ │ 
          uSignItems┤ │ 
        fOrdersRenew┤ │ 
          fODConsult┤ │ 
        fEditConsult┤ │ 
      fOrdersRelease┘ │ 
            UBACore...┤ 
  fBALocalDiagnoses...┤ 
               rPCE...┤ 
         fDiagnoses...┤ 
          fPCEBaseMain┤ 
       fDiagnoses...┤ │ 
          fProcedure┤ │ 
       fImmunization┤ │ 
           fSkinTest┤ │ 
          fPatientEd┤ │ 
       fHealthFactor┤ │ 
               fExam┘ │ 
        fOrdersSign...┤ 
            fReview...┤ 
fBAOptionsDiagnoses...┤ 
         fODConsult...┘