Function

MedStatusGroup

Module

rMeds

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function MedStatusGroup(const s: string): Integer;

Called-By Hierarchy


                       MedStatusGroup
                   ByStatusThenStop┤ 
                  ExtractActiveMeds┘ 
                      ListGeneric┤   
             TfrmCover.LoadList┘ │   
        TfrmCover.DisplayPage┤   │   
   TfrmCover.CoverItemClick┘ │   │   
TfrmCover.UpdateAllergiesList┘   │   
      TfrmCover.NotifyOrder┤     │   
     TfrmFrame.UMNewOrder┘ │     │   
      TfrmCover.popNKAClick┤     │   
 TfrmARTAllergy.FormDestroy┘     │   
                   ListActiveMeds┤   
                ListAllBackGround┘   
         TfrmCover.timPollTimer┘     

Called-By

Name Declaration Comments
ByStatusThenStop function ByStatusThenStop(Item1, Item2: Pointer): Integer; -
ExtractActiveMeds procedure ExtractActiveMeds(Dest: TStrings; Src: TStringList); -


Source

68    function MedStatusGroup(const s: string): Integer;
69    const
70      MG_ACTIVE  = '^ACTIVE^REFILL^HOLD^SUSPENDED^PROVIDER HOLD^ON CALL^';
71      MG_PENDING = '^NON-VERIFIED^DRUG INTERACTIONS^INCOMPLETE^PENDING^';
72      MG_NONACT  = '^DONE^EXPIRED^DISCONTINUED^DELETED^DISCONTINUED BY PROVIDER' +
73                   '^DISCONTINUED (EDIT)^REINSTATED^RENEWED^';
74    begin
75      Result := MED_ACTIVE;
76      if Pos(U+UpperCase(s)+U, MG_PENDING) > 0 then Result := MED_PENDING;
77      if Pos(U+UpperCase(s)+U, MG_NONACT)  > 0 then Result := MED_NONACTIVE;
78    end;