Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/uOrPtf.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/uOrPtf.pas (modified) (2 diffs)

cprs/branches/foia-cprs/CPRS-Chart/uOrPtf.pas

@@ -22 +22 @@
 
 procedure HasActiveFlg(var FlagList: TStringList; var HasFlag: boolean; const PTDFN: string);
-function GetCatIFlag(var FlagArr: TStrings): integer;
+function TriggerPRFPopUp(PTDFN: String): boolean;
 procedure GetActiveFlg(FlagInfo: TStrings; const PTDFN, FlagRecordID: string);
 procedure ClearFlag;
@@ -40 +40 @@
 end;
 
-function GetCatIFlag(var FlagArr: TStrings): integer;
+function TriggerPRFPopUp(PTDFN: String): boolean;
 begin
-  Result := 0;
-  CallV('ORPRF HASCAT1',[nil]);
-  if RPCBrokerV.Results.Count < 1 then
-    Exit;
-  Result := StrToIntDef(Piece(RPCBrokerV.Results[0],'^',2),0);
+  CallV('ORPRF TRIGGER POPUP',[PTDFN]);
+  Result := RPCBrokerV.Results[0] = '1';
   RPCBrokerV.Results.Delete(0);
-  FlagArr.Assign(RPCBrokerV.Results);
 end;