Procedure

ChangeCosigner

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure ChangeCosigner(IEN: integer; Cosigner: int64);

Called-By Hierarchy


                               ChangeCosigner
TfrmConsults.mnuActIdentifyAddlSignersClick┤ 
    TfrmConsults.popNoteMemoAddlSignClick┘ │ 
 TfrmSurgery.mnuActIdentifyAddlSignersClick┤ 
     TfrmSurgery.popNoteMemoAddlSignClick┘ │ 
   TfrmNotes.mnuActIdentifyAddlSignersClick┘ 
       TfrmNotes.popNoteMemoAddlSignClick┘   

Called-By

Name Declaration Comments
TfrmConsults.mnuActIdentifyAddlSignersClick procedure mnuActIdentifyAddlSignersClick(Sender: TObject); -
TfrmSurgery.mnuActIdentifyAddlSignersClick procedure mnuActIdentifyAddlSignersClick(Sender: TObject); -
TfrmNotes.mnuActIdentifyAddlSignersClick procedure mnuActIdentifyAddlSignersClick(Sender: TObject); -


Source

952   procedure ChangeCosigner(IEN: integer; Cosigner: int64);
953   begin
954     with RPCBrokerV do
955     begin
956       ClearParameters := True;
957       RemoteProcedure := 'TIU UPDATE RECORD';
958       Param[0].PType := literal;
959       Param[0].Value := IntToStr(IEN);
960       Param[1].PType := list;
961       with Param[1] do
962         if Cosigner > 0 then
963           Mult['1208']  := IntToStr(Cosigner)
964         else
965           Mult['1208']  := '@';
966       CallBroker;
967     end;
968   end;