Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Encounter/uPCE.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/Encounter/uPCE.pas (modified) (3 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Encounter/uPCE.pas

@@ -1375 +1375 @@
   Result := inherited DelimitedStr;
   if Provider > 0 then tmpProv := IntToStr(Provider) else tmpProv := '';
-  //Result := 'CPT' + Result + U + IntToStr(Quantity) + U + IntToStr(Provider) +
   Result := 'CPT' + Result + U + IntToStr(Quantity) + U + tmpProv
-  //Result := 'CPT' + Result + U + IntToStr(Quantity) + U +
-  + U + U + U + IntToStr(cnt) + Mods + U + IntToStr(UNxtCommSeqNum) + U;
+             + U + U + U + IntToStr(cnt) + Mods + U + IntToStr(UNxtCommSeqNum) + U;
+  if Length(Result) > 250 then SetPiece(Result, U, 4, '');
 end;
 
@@ -1554 +1553 @@
     BOOLCHAR[AddProb] + U + U + U;
   if(SaveComment) then Result := Result + IntToStr(UNxtCommSeqNum);
+  if Length(Result) > 250 then SetPiece(Result, U, 4, '');
 end;
 
@@ -2988 +2988 @@
 begin
   if not CanEditPCE(Self) then
+  begin
+    Result := TRUE;
+    exit;
+  end;
+  if IsNonCountClinic(FEncLocation) then
   begin
     Result := TRUE;