Procedure

ActOnDCDocument

Module

rDCSumm

Last Modified

7/15/2014 3:26:44 PM

Comments

Data Retrieval
Data Retrieval ---------------------------------------------------------------------------

Scope

Interfaced

Declaration

procedure ActOnDCDocument(var AuthSts: TActionRec; IEN: Integer; const ActionName: string);

Called-By Hierarchy


                           ActOnDCDocument
TfrmDCSummProperties.lstAdmissionsChange┤ 
            TfrmDCSumm.mnuActAddendClick┤ 
          TfrmDCSumm.mnuActSignListClick┤ 
              TfrmDCSumm.mnuActEditClick┤ 
              TfrmDCSumm.mnuActSignClick┘ 

Called-By

Name Declaration Comments
TfrmDCSummProperties.lstAdmissionsChange procedure lstAdmissionsChange(Sender: TObject); -
TfrmDCSumm.mnuActAddendClick procedure mnuActAddendClick(Sender: TObject); -
TfrmDCSumm.mnuActEditClick procedure mnuActEditClick(Sender: TObject); -
TfrmDCSumm.mnuActSignClick procedure mnuActSignClick(Sender: TObject); -
TfrmDCSumm.mnuActSignListClick procedure mnuActSignListClick(Sender: TObject); -


Source

173   procedure ActOnDCDocument(var AuthSts: TActionRec; IEN: Integer; const ActionName: string);
174   var
175     x: string;
176   begin
177     if not (IEN > 0) then
178     begin
179       AuthSts.Success := True;
180       AuthSts.Reason := '';
181       Exit;
182     end;
183     x := sCallV('TIU AUTHORIZATION', [IEN, ActionName]);
184     AuthSts.Success := Piece(x, U, 1) = '1';
185     AuthSts.Reason  := Piece(x, U, 2);
186   end;