Function

AllowMultipleSummsPerAdmission

Module

rDCSumm

Last Modified

7/15/2014 3:26:44 PM

Comments

Returns true if a discharge summary must be released

Scope

Interfaced

Declaration

function AllowMultipleSummsPerAdmission(ANote, AType: Integer): Boolean;


Source

593   function AllowMultipleSummsPerAdmission(ANote, AType: Integer): Boolean;
594   { returns true if a discharge summary must be released }
595   begin
596     if ANote > 0 then
597       Result := Piece(sCallV('TIU GET DOCUMENT PARAMETERS', [ANote]), U, 10) = '1'
598     else
599       Result := Piece(sCallV('TIU GET DOCUMENT PARAMETERS', [0, AType]), U, 10) = '1';
600   end;