Function

BuildConsultDxRec

Module

UBACore

Last Modified

7/15/2014 3:26:34 PM

Scope

Interfaced

Declaration

function  BuildConsultDxRec(ConsultRec: TBAConsultOrderRec): string;

Called-By Hierarchy


            BuildConsultDxRec
    CompleteConsultOrderRec┘ 
TfrmODCslt.cmdAcceptClick┘   

Called-By

Name Declaration Comments
CompleteConsultOrderRec procedure CompleteConsultOrderRec(pOrderID: string; pDxList: TStringList); -


Source

1339  function  BuildConsultDxRec(ConsultRec: TBAConsultOrderRec): string;
1340  var
1341  newString: string;
1342  begin
1343     if strLen(PChar(ConsultRec.FBADxCode)) > 0 then
1344        newString := Piece(ConsultRec.FBADxCode,U,2)
1345     else
1346        if strLen(PChar(ConsultRec.FBASecDx1)) > 0 then
1347           newString := newString + '^' + Piece(ConsultRec.FBASecDx1,U,2)
1348     else
1349        if strLen(PChar(ConsultRec.FBASecDx2)) > 0 then
1350           newString := newString + '^' + Piece(ConsultRec.FBASecDx2,U,2)
1351     else
1352        if strLen(PChar(ConsultRec.FBASecDx3)) > 0 then
1353           newString := newString + '^' + Piece(ConsultRec.FBASecDx3,U,2);
1354     Result := newString;
1355  end;