Quasar's Doomworld Forums Blog

/** @file VIBProperties.h
 *
 * VIB Class Library - C++11 Properties Implementation
 * 
 */

#ifndef VIBPROPERTIES_H__
#define VIBPROPERTIES_H__

#include <functional>

namespace VIB
{
   template<typename T> class Property
   {
   protected:
      typedef std::function<T (void)>         Getter;
      typedef std::function<void (const T &)> Setter;

      Getter get;
      Setter set;

   public:
      /** Default constructor, you must initialize get and set later. */
      Property() : get(), set() {}

      /** Provide get and set callbacks at instantiation. */
      Property(const Getter &pGet, const Setter &pSet) : get(pGet), set(pSet)
      {
      }

      /** Late-initialize the callbacks. */
      void initCallbacks(const Getter &pGet, const Setter &pSet)
      {
         get = pGet;
         set = pSet;
      }

      /** Cast operator, invokes get() and returns its value. */
      operator T() { return get(); }

      /** Assignment operator, invokes set with the provided value, returns this object. */
      Property<T> &operator = (const T &nv) { set(nv); return *this; }

      /** 
       * Invokes get, assuming it returns a pointer that can be used with the
       * deref-access arrow operator. If not, you will cause a compile-time error
       * by trying to use it.
       */
      T operator -> () { return get(); }
   };

   template<typename T, typename A> class ArrayProperty : public Property<T>
   {
   public:
      /** Default constructor, you must initialize get and set later. */
      ArrayProperty<T, A>() : Property<T>() {}

      /** Provide get and set callbacks at instantiation. */
      ArrayProperty<T, A>(const Getter &pGet, const Setter &pSet) 
         : Property<T>(pGet, pSet)
      {
      }

      A operator [] (int i) { return this->get()->operator[](i); }
   };
}

#endif

class Foo { public: Property<int> SomeProperty; Foo(); ... };
Foo::Foo() : SomeProperty()
{
   SomeProperty.initCallbacks(
      [=] () { return someMethod(); },
      [=] (const int &i) { doSomething(i); });
}

select 
/*ID     */ P.id patient_external_id, 
/*NAMES  */ substring(PN.first_name  from 1 for 20) patient_first_name, 
            substring(PN.middle_name from 1 for  1) patient_middle_initial, 
            substring(PN.last_name   from 1 for 20) patient_last_name, 
            substring(PN.suffix      from 1 for  8) patient_suffix,
/*PTSTRT1*/ substring(coalesce((MA.line1 || coalesce((' ' || MA.line2), '')), (HA.line1 || coalesce((' ' || HA.line2), ''))) from 1 for 40) patient_street1,
/*PTSTRT2*/ case when MA.id is not null and HA.id is not null and substring(MA.zip from 1 for 5) = substring(HA.zip from 1 for 5)
                 then substring((HA.line1 || coalesce((' ' || HA.line2), '')) from 1 for 40) end patient_street2,
/*PTCITY*/  substring(coalesce(MA.city, HA.city) from 1 for 30) patient_city,
/*PTSTATE*/ coalesce(MAILST.item, HOMEST.item) patient_state,
/*PTZIP*/   substring(coalesce(MA.zip, HA.zip) from 1 for 5) || coalesce(substring(coalesce(MA.zip, HA.zip) from 7 for 4), '') patient_zip,
/*PTPHONE*/ (select first 1 
               case when substring(IPCI.phone_number from 1 for 1) = '1' then substring(IPCI.phone_number from 2) else IPCI.phone_number end 
             from person_contact_info IPCI 
             where IPCI.id in (HP.id, HA.id, MA.id) 
             order by IPCI.last_update_stamp desc) patient_phone,
/*WKPHONE*/ (select first 1 
               case when substring(IPCI.phone_number from 1 for 1) = '1' then substring(IPCI.phone_number from 2) else IPCI.phone_number end 
             from person_contact_info IPCI 
             where IPCI.id in (WP.id, WA.id)
             order by IPCI.last_update_stamp desc) patient_work_phone,
/*PTEMAIL*/ (select first 1 substring(IPCI.email_address from 1 for 40)
             from person_contact_info IPCI 
             where IPCI.id in (HA.id, MA.id, HP.id, WA.id, WP.id) and IPCI.email_address like '%@%'
             order by IPCI.last_update_stamp desc) patient_email_address,
/*GENDER */ substring(GT.item from 1 for 1) patient_sex,
/*SSN    */ P.social_security_number patient_ssn,
/*DOB    */ (extract(year from P.birth_date) || LPAD(extract(month from P.birth_date), 2, '0') || LPAD(extract(day from P.birth_date), 2, '0')) patient_date_of_birth,
/*MR#    */ '' patient_medical_record_no,
/*MRLID  */ '' patient_medical_record_loc_id,
/*MRLDESC*/ '' patient_medical_record_loc_desc,
/*MARITAL*/ case when MT.item = 'SEPERATED' then 'X' else substring(MT.item from 1 for 1) end patient_marital_status,
/*STUDENT*/ '' patient_student_status,
/*EMPSTAT*/ '' patient_employment_status,
/*COMMENT*/ '' patient_comment,

/* TODO: PROVIDER FIELDS */
/* TODO: INSURANCE POLICIES */

/* CUSTOM FIELDS*/
/*CELL*/    case when substring(CP.phone_number from 1 for 1) = '1' then substring(CP.phone_number from 2) else CP.phone_number end patient_cell_phone
from people P
 inner join person_names PN on P.person_names_id = PN.id
 left  join person_contact_info MA on MA.id = P.mailing_address_id and MA.current_id >= 3
 left  join person_contact_info HA on HA.id = P.home_address_id    and HA.current_id >= 3 and HA.id is distinct from MA.id
 left  join person_contact_info HP on HP.id = P.home_phone_id      and HP.current_id >= 3 and HP.id is distinct from HA.id and HP.id is distinct from MA.id
 left  join person_contact_info WA on WA.id = P.work_address_id    and WA.current_id >= 3 and WA.id is distinct from MA.id and WA.id is distinct from HA.id and WA.id is distinct from HP.id
 left  join person_contact_info WP on WP.id = P.work_phone_id      and WP.current_id >= 3 and WP.id is distinct from WA.id and WP.id is distinct from MA.id and WP.id is distinct from HP.id
 left  join person_contact_info CP on CP.id = P.cell_phone_id      and CP.current_id >= 3 and CP.id is distinct from MA.id and CP.id is distinct from HA.id and CP.id is distinct from WP.id and CP.id is distinct from HP.id 
 left  join gender_types  GT on P.gender_id  = GT.id 
 left  join marital_types MT on P.marital_id = MT.id 
 left  join state_types MAILST on MA.state_id = MAILST.id 
 left  join state_types HOMEST on HA.state_id = HOMEST.id 
where 
 P.id > 0 and
 PN.first_name <> '' and
 exists (select * from tasks T where T.person_id = P.id and T.date_of_task >= '1/1/2008') /* Modified RE: Boren's request - visit in last 3 calendar years */
order by P.id

where cob_tasks.date_of_task >= '1/1/2010' and
 (upper(OT.specialty) like '%DME%' or exists(select * from services_provided SP where SP.tax_entity_id = OT.id and SP.service_id = 80)) and
 (OT.id <> 19 or (upper(visit_tasks.task_comments) like '%AID%' and upper(visit_tasks.task_comments) not like '%IV%' and upper(visit_tasks.task_comments) not like '%LOSS%')) and 
 (OT.id <> 1018 or 
  upper(visit_tasks.task_comments) like '%PURCHASE%' or
  upper(visit_tasks.task_comments) like '%WALKER%' or
  upper(visit_tasks.task_comments) like '%MASK%' or
  upper(visit_tasks.task_comments) like '%CPAP%')
 and OT.id not in (2522,2878,2844)

  PID USER      PR  NI  VIRT  RES  SHR S %CPU %MEM    TIME+  COMMAND
15706 paul      20   0 32048 3872 1380 R  100  0.0   5492:43 perl

CC3250MT.DLL @ 3257E14F
WinMain
TApplication::ProcessMessage
(user32.dll calls x 5)
Forms::_16460
TToolBar::WndProc
TWinControl::IsControlMouseMsg
TControl::Click
TformRecordGeneric::buttonAClick
TformRecordGeneric::DataSave
TformRecordObservationResponseSet::ScreenLock
TformRecordObservationResponseSet::comboQuestionSetChange
obs_row_container::load_entries
DebugSql
EditSql
TformSpecialSqlViewer::Launch
TformSpecialGeneric::ShowTaskModal
TApplication::ProcessMessage <- Here is where the shit hits the proverbial fan
(user32.dll calls x 5)
Forms::_16460
TTimer::TTimer
TformPrometheusMenu::timerNetworkRefreshTimer
classNetworkRequestHandler::Check
classRequest::Fulfill
TformRecordObservationResponseSet::AtlasRefreshListViews
TformRecordObservationResponseSet::comboQuestionSetChange
obs_row_container::load_entries <- OH SHIT EXPLOSION!