source: cprs/branches/tmg-cprs/CPRS-Chart/Consults/UBAConst.pas

//kt -- Modified with SourceScanner on 8/17/2007
unit UBAConst;

{$OPTIMIZATION OFF}

interface

const

  BUFFER_ORDER_ID = '9999999999';

  CARET = '^';
  NOT_APPLICABLE          = 'N/A';

//kt 8-17-07 removed to replace with functions
//ENCOUNTER_TODAYS_DX     = '^Diagnoses from Today''s Orders'; //BAPHII 1.3.10  <-- original line.  //kt 8/17/2007
//ENCOUNTER_PERSONAL_DX   = '^Personal Diagnoses List Items';  <-- original line.  //kt 8/17/2007
//DX_PROBLEM_LIST_TXT     = 'Problem List Items';  <-- original line.  //kt 8/17/2007
//DX_PERSONAL_LIST_TXT    = 'Personal Diagnoses List Items';  <-- original line.  //kt 8/17/2007
//DX_ENCOUNTER_LIST_TXT   = 'Encounter Form Diagnoses';  <-- original line.  //kt 8/17/2007
//DX_TODAYS_DX_LIST_TXT   = 'Diagnoses from Today''s Orders';  <-- original line.  //kt 8/17/2007

  MIN_SC_CONDITION = 0;
  MAX_SC_CONDITION = 0;
  BILLABLE_ORDER = '1';
  SERVICE_CONNECTED       = 'SC';
  NOT_SERVICE_CONNECTED   = 'NSC';
  AGENT_ORANGE            = 'AO';
  IONIZING_RADIATION      = 'IR';
  ENVIRONMENTAL_CONTAM    = 'EC';
  HEAD_NECK_CANCER        = 'HNC';
  MILITARY_SEXUAL_TRAUMA  = 'MST';
  COMBAT_VETERAN          = 'CV';

  MAX_DX = 4;
  DXREC_INIT_FIELD_VAL        = '';
  UNSIGNED_REC_INIT_FIELD_VAL = '';

//kt 8-17-07 removed to replace with functions
//PRIMARY_DX = 'Primary';  <-- original line.  //kt 8/17/2007
//SECONDARY_DX = 'Secondary';  <-- original line.  //kt 8/17/2007
function PRIMARY_DX: string; //kt
function SECONDARY_DX: string;  //kt

const
  //Form identifiers
  F_ORDERS_SIGN  = 1;
  F_REVIEW       = 2;
  F_CONSULTS     = 3;
  // Order Status

  BAOK2SIGN = 1;
  DISCONTINUED = 5;
  MIN_RECT = 0;
  MAX_RECT = 199;

  ADD_TO_PROBLEM_LIST     = 'PL';
  ADD_TO_PERSONAL_DX_LIST = 'PD';
  BA_INACTIVE_CODE =  '#';

  //kt  replacing constants with fn declarations to allow just-in-time translation
  function  ENCOUNTER_TODAYS_DX   : string;
  function  ENCOUNTER_PERSONAL_DX : string;
  function  DX_PROBLEM_LIST_TXT   : string;
  function  DX_PERSONAL_LIST_TXT  : string;
  function  DX_ENCOUNTER_LIST_TXT : string;
  function  DX_TODAYS_DX_LIST_TXT : string;


implementation

uses  DKLang;

function ENCOUNTER_TODAYS_DX   : string;
begin
  Result := '^'+DKLangConstW('UBAConst_Diagnoses_from_Todayxxs_Orders'); //BAPHII 1.3.10 //kt added 8/17/2007
end;

function ENCOUNTER_PERSONAL_DX : string;
begin
  Result := '^'+DKLangConstW('UBAConst_Personal_Diagnoses_List_Items'); //kt added 8/17/2007
end;

function DX_PROBLEM_LIST_TXT   : string;
begin
  Result := DKLangConstW('UBAConst_Problem_List_Items'); //kt added 8/17/2007
end;

function DX_PERSONAL_LIST_TXT  : string;
begin
  Result := DKLangConstW('UBAConst_Personal_Diagnoses_List_Items'); //kt added 8/17/2007
end;

function DX_ENCOUNTER_LIST_TXT : string;
begin
  Result := DKLangConstW('UBAConst_Encounter_Form_Diagnoses'); //kt added 8/17/2007
end;

function DX_TODAYS_DX_LIST_TXT : string;
begin
  Result := DKLangConstW('UBAConst_Diagnoses_from_Todayxxs_Orders'); //kt added 8/17/2007
end;


function PRIMARY_DX: string;
begin
  Result := DKLangConstW('UBAConst_Primary'); //kt added 8/17/2007
end;

function SECONDARY_DX: string;
begin
  Result := DKLangConstW('UBAConst_Secondary'); //kt added 8/17/2007
end;

end.