Procedure

TfrmCover.UpdateAllergiesList

Module

fCover

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public

Owner

TfrmCover

Declaration

procedure UpdateAllergiesList;

Calls Hierarchy


TfrmCover.UpdateAllergiesList
 ├TfrmCover.LoadList
 │ ├ListGeneric
 │ │ ├InteractiveRemindersActive
 │ │ │ └GetRemindersActive
 │ │ └ExtractActiveMeds
 │ │   └MedStatusGroup
 │ └NoDataText
 └GetCWADInfo

Called-By Hierarchy


TfrmCover.UpdateAllergiesList
      TfrmCover.NotifyOrder┤ 
     TfrmFrame.UMNewOrder┘ │ 
      TfrmCover.popNKAClick┤ 
 TfrmARTAllergy.FormDestroy┘ 

Calls

Name Declaration Comments
GetCWADInfo function GetCWADInfo(const DFN: string): string; -
TfrmCover.LoadList procedure LoadList(const StsTxt: string; ListCtrl: TObject; ARpc: String; ACase, AInvert: Boolean; ADatePiece: integer; ADateFormat, AParam1, AID, ADetail: String; Reminders: boolean = FALSE); -

Called-By

Name Declaration Comments
TfrmARTAllergy.FormDestroy procedure FormDestroy(Sender: TObject); -
TfrmCover.NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; {REV} -
TfrmCover.popNKAClick procedure popNKAClick(Sender: TObject); -


Source

861   procedure TfrmCover.UpdateAllergiesList;
862   var
863     bCase, bInvert: boolean;
864     iDatePiece: integer ;
865     x, aRPC, aDateFormat, aParam1, aID, aDetail, aStatus, aName, aCase, aInvert, aDatePiece, aTextColor, aQualifier, aTabPos, aPiece, aIFN: string;
866   begin
867     x := uARTCoverSheetParams;
868     if x = '' then exit;
869     aName := Piece(x,'^',2);
870     aRPC := Piece(x,'^',6);
871     aCase := Piece(x,'^',7);
872     aInvert := Piece(x,'^',8);
873     aDatePiece := Piece(x,'^',11);
874     aDateFormat := Piece(x,'^',10);
875     aTextColor := Piece(x,'^',9);
876     aStatus := 'Searching for ' + Piece(x,'^',2) + '...';
877     aParam1 := Piece(x,'^',12);
878     aID := Piece(x,'^',1);         //TAG_PROB, TAG_RMND, ETC.
879     aQualifier := Piece(x,'^',13);
880     aTabPos := Piece(x,'^',14);
881     aPiece := Piece(x,'^',15);
882     aDetail := Piece(x,'^',16);
883     aIFN := Piece(x,'^',17);
884     bCase := FALSE;
885     bInvert := FALSE;
886     iDatePiece := 0;
887     if aCase = '1' then bCase := TRUE;
888     if aInvert = '1' then bInvert := TRUE;
889     if Length(aDatePiece) > 0 then iDatePiece := StrToInt(aDatePiece);
890     if Length(aTextColor) > 0 then aTextColor := 'cl' + aTextColor;
891     // Assign properties to components
892     if Length(aTabPos) > 0 then (popMenuAllergies.PopupComponent as TORListBox).TabPositions := aTabPos;
893     if Length(aTextColor) > 0 then (popMenuAllergies.PopupComponent as TORListBox).Font.Color :=
894                                                         Get508CompliantColor(StringToColor(aTextColor));
895     if Length(aPiece) > 0 then (popMenuAllergies.PopupComponent as TORListBox).Pieces := aPiece;
896     (popMenuAllergies.PopupComponent as TORListBox).Tag := StrToInt(aID);
897     LoadList(aStatus, (popMenuAllergies.PopupComponent as TORListBox), aRpc, bCase, bInvert, iDatePiece, aDateFormat, aParam1, aID, aDetail);
898     with frmFrame do
899       begin
900         lblPtCWAD.Caption := GetCWADInfo(Patient.DFN);
901         if Length(lblPtCWAD.Caption) > 0
902           then lblPtPostings.Caption := 'Postings'
903           else lblPtPostings.Caption := 'No Postings';
904         pnlPostings.Caption := lblPtPostings.Caption + ' ' + lblPtCWAD.Caption;
905       end;
906   end;