Function

EditResubmitProcedure

Module

fEditProc

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

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;