Function

Module

Last Modified

Scope

Declaration

function EditResubmitProcedure(FontSize: Integer; ConsultIEN: integer): boolean;

Calls Hierarchy

EditResubmitProcedure
 ├LoadConsultForEdit
 ├TfrmBase508Form.Create
 │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ ├UnfocusableControlEnter
 │ └AdjustControls
 │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   └..(rec)..
 └TfrmEditProc.InitDialog
   ├ODForProcedures
   ├TfrmEditProc.cboProcSelect
   │ ├GetProcedureServices
   │ ├TfrmEditProc.InitDialog...
   │ ├TfrmEditProc.OrderMessage
   │ ├ConsultMessage
   │ └TfrmEditProc.ControlChange
   ├TfrmEditProc.SetProvDiagPromptingMode
   │ └GetProvDxMode
   ├TPatient.GetCombatVet
   │ └TCombatVet.Create
   │   └TCombatVet.UpdateData
   │     └TCombatVet.ClearProperties
   └TfrmEditProc.SetUpCombatVet
     └TPatient.GetCombatVet...

Called-By Hierarchy

                 EditResubmitProcedure
TfrmConsults.mnuActEditResubmitClick┘ 
 TfrmConsults.cmdEditResubmitClick┘   

Calls

Name	Declaration	Comments
TfrmBase508Form.Create	constructor Create(AOwner: TComponent); override;	-
TfrmEditProc.InitDialog	procedure InitDialog;	-
LoadConsultForEdit	function LoadConsultForEdit(ConsultIEN: integer): TEditResubmitRec;	-

Called-By

Name	Declaration	Comments
TfrmConsults.mnuActEditResubmitClick	procedure mnuActEditResubmitClick(Sender: TObject);	-

Source

134   function EditResubmitProcedure(FontSize: Integer; ConsultIEN: integer): boolean;
135   begin
136     Result := False;
137     if ConsultIEN = 0 then exit;
138     FillChar(OldRec, SizeOf(OldRec), 0);
139     FillChar(NewRec, SizeOf(NewRec), 0);
140     FillChar(ProvDx, SizeOf(ProvDx), 0);
141     OldRec := LoadConsultForEdit(ConsultIEN);
142     NewRec.IEN := OldRec.IEN;
143     NewRec.RequestType := OldRec.RequestType;
144     with NewRec do
145       begin
146         RequestReason:= TStringList.Create ;
147         DenyComments:= TStringList.Create ;
148         OtherComments:= TStringList.Create ;
149         NewComments:= TStringList.Create ;
150       end;
151     StatusText('Loading Procedure for Edit');
152     frmEditProc := TfrmEditProc.Create(Application);
153     Defaults    := TStringList.Create;
154     try
155       ResizeAnchoredFormToFont(frmEditProc);
156       with frmEditProc do
157         begin
158           FChanged     := False;
159           InitDialog;
160           ShowModal ;
161           Result := FChanged ;
162         end ;
163     finally
164       OldRec.RequestReason.Free;
165       OldRec.DenyComments.Free;
166       OldRec.OtherComments.Free;
167       OldRec.NewComments.Free;
168       NewRec.RequestReason.Free;
169       NewRec.DenyComments.Free;
170       NewRec.OtherComments.Free;
171       NewRec.NewComments.Free;
172       Defaults.Free;
173       frmEditProc.Release;
174     end;
175   end;