Changeset 1692 for cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Timestamp:
- May 8, 2015, 7:26:56 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/HealthSevak-CPRS/CPRS-Chart/uReminders.pas
r830 r1692 42 42 function Processing: boolean; 43 43 procedure AddText(Lst: TStrings); 44 procedure ClearMHTest(RIEN: String);45 44 property PrintName: string read GetPrintName; 46 45 property IEN: string read GetIEN; … … 2088 2087 MHRes := False; 2089 2088 tmpText := ''; 2090 if Pos('~', AText)>0then MHLoop := 2;2089 if (MHTest = True) and (Pos('~', AText)>0) then MHLoop := 2; 2091 2090 for j := 1 to MHLoop do 2092 2091 begin … … 2640 2639 end; 2641 2640 end; 2642 end;2643 2644 procedure TReminderDialog.ClearMHTest(RIEN: String);2645 var2646 i,j: integer;2647 TestName: string;2648 begin2649 if (self.MHTestArray <> nil) and (self.MHTestArray.Count > 0) then2650 begin2651 i := self.MHTestArray.IndexOfPiece(RIEN, U, 2, -1);2652 while i > -1 do2653 begin2654 TestName := Piece(self.MHTestArray.Strings[i], U, 1);2655 self.MHTestArray.Delete(i);2656 j := self.MHTestArray.IndexOfPiece(TestName, U, 1, -1);2657 if j = -1 then RemoveMHTest(TestName);2658 i := self.MHTestArray.IndexOfPiece(RIEN, U, 2, -1);2659 end;2660 end;2661 2641 end; 2662 2642 … … 3517 3497 // Element.FFieldValues. 3518 3498 Entry.OnChange := FieldPanelChange; 3499 //AGP BACKED OUT THE CHANGE CAUSE A PROBLEM WITH TEMPLATE WORD PROCESSING FIELDS WHEN RESIZING 3500 //FieldPanelChange(Entry); // to accomodate fields with default values - CQ#15960 3501 //AGP END BACKED OUT 3519 3502 // Calls TTemplateDialogEntry.SetFieldValues which calls 3520 3503 // TTemplateDialogEntry.SetControlText to reset the template field default … … 4650 4633 Prompt := TRemPrompt(FPrompts[i]); 4651 4634 if(not Prompt.FIsShared) then 4652 WordWrap(Prompt.NoteText, Lst, ilvl); 4635 begin 4636 if Prompt.PromptType = ptMHTest then WordWrap(Prompt.NoteText, Lst, ilvl, 4, true) 4637 else WordWrap(Prompt.NoteText, Lst, ilvl); 4638 end; 4639 4653 4640 end; 4654 4641 end; … … 6695 6682 TestComp := 0; 6696 6683 try 6697 if ( sender is TCPRSDialogButton) then6698 6684 if (Sender is TCPRSDialogButton) then 6685 (Sender as TCPRSDialogButton).Enabled := false; 6699 6686 if FParent.FReminder.MHTestArray = nil then FParent.FReminder.MHTestArray := TORStringList.Create; 6700 6687 if(MHTestAuthorized(FData.Narrative)) then … … 6798 6785 'Insufficient Authorization', MB_OK + MB_ICONERROR); 6799 6786 finally 6800 (Sender as TCPRSDialogButton).Enabled := true; 6787 if (Sender is TCPRSDialogButton) then 6788 begin 6789 (Sender as TCPRSDialogButton).Enabled := true; 6790 (Sender as TCPRSDialogButton).SetFocus; 6791 end; 6792 6801 6793 end; 6802 6794 end;
Note:
See TracChangeset
for help on using the changeset viewer.