Ignore:
Timestamp:
Jul 6, 2008, 8:20:14 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Uploading from OR_30_258

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/foia-cprs/CPRS-Chart/BA/UBAGlobals.pas

    r459 r460  
    316316   sourceOrderID: TStringList;
    317317   targetOrderIDLst: TStringList;
    318    i:integer;
    319    tempOrderStr:string;
    320318begin
    321319     //Retrieve TF's/CI's from SOURCE Order
    … …  
    371369   if UBAGlobals.tempDxNodeExists(thisOrderID) then
    372370     begin
    373      thisRec := TBADxRecord.Create;
    374371     if Assigned(tempDxList) then
    375372
    … …  
    523520begin
    524521  Result := 0;
    525   thisRec := TBADxRecord.Create;
    526522
    527523   if Assigned(tempDxList) then
    … …  
    580576  selectedOrders: smallint;
    581577begin
    582   Result := 0;
    583578  selectedOrders := 0;
    584579
    … …  
    762757   if UBAGlobals.tempDxNodeExists(thisOrderID) then
    763758     begin
    764      thisRec := TBADxRecord.Create;
    765759
    766760     if Assigned(tempDxList) then
    … …  
    878872  Result := false;
    879873
    880   thisRec := TBADxRecord.Create;
    881874     try
    882875        for i := 0 to tempDxList.Count - 1 do
    … …  
    909902  i: integer;
    910903begin
    911   thisRec := TBADxRecord.Create;
    912904
    913905  try
    … …  
    10131005// StringList used to store DX Codes selected from Encounter Form
    10141006var
    1015   BAVisitStr,BADxIEN: string;
    1016   BAFileCat    : char;
    1017   BAFileDateTimeStr: string;
     1007  BADxIEN: string;
    10181008  BAProviderStr, BAProviderName : string;
    1019   PList: TStringList;
    10201009  AList: TStringList;
    10211010begin
    … …  
    11061095begin
    11071096  Result := false;
    1108   thisRec := TBADxRecord.Create;
    11091097  if Assigned(tempDxList) then
    11101098     try
Note: See TracChangeset for help on using the changeset viewer.