source: cprs/branches/tmg-cprs/CPRS-Chart/uOrPtf.pas@ 1619

Last change on this file since 1619 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 1.9 KB
RevLine 
[453]1//kt -- Modified with SourceScanner on 8/29/2007
2unit uOrPtf; //PRF
3
4interface
5
6uses SysUtils, Windows, Classes, Forms, ORFn, ORNet, uCore;
7
8Type
9 TPatientFlag = Class(TObject)
10 private
11 FFlagID: string;
12 FName: string;
13 FNarr: TStringList;
14 FFlagIndex: integer;
15 public
16 property FlagID: string read FFlagID write FFlagID;
17 property Name: string read FName write FName;
18 property Narr: TStringList read FNarr write FNarr;
19 property FlagIndex: integer read FFlagIndex write FFlagIndex;
20 constructor Create;
21 procedure Clearup;
22 end;
23
24procedure HasActiveFlg(var FlagList: TStringList; var HasFlag: boolean; const PTDFN: string);
25function TriggerPRFPopUp(PTDFN: String): boolean;
26procedure GetActiveFlg(FlagInfo: TStrings; const PTDFN, FlagRecordID: string);
27procedure ClearFlag;
28
29implementation
30
31procedure HasActiveFlg(var FlagList: TStringList; var HasFlag: boolean; const PTDFN: string);
32begin
33 FlagList.Clear;
34 HasFlag := False;
35 CallV('ORPRF HASFLG',[PTDFN]);
36 if RPCBrokerV.Results.Count > 0 then
37 begin
38 FlagList.Assign(RPCBrokerV.Results);
39 HasFlag := True;
40 end;
41end;
42
43function TriggerPRFPopUp(PTDFN: String): boolean;
44begin
45 CallV('ORPRF TRIGGER POPUP',[PTDFN]);
46 Result := RPCBrokerV.Results[0] = '1';
47 RPCBrokerV.Results.Delete(0);
48end;
49
50procedure TPatientFlag.Clearup;
51begin
52 FFlagID := '0';
53 FName := '';
54 FNarr.Clear;
55 FFlagIndex := -1;
56end;
57
58constructor TPatientFlag.Create;
59begin
60 FFlagID := '0';
61 FName := '';
62 FNarr := TStringList.Create;
63 FFlagIndex := -1;
64end;
65
66procedure GetActiveFlg(FlagInfo: TStrings; const PTDFN, FlagRecordID: string);
67begin
68 CallV('ORPRF GETFLG', [PTDFN,FlagRecordID]);
69 if RPCBrokerV.Results.Count > 0 then
70 FlagInfo.Assign(RPCBrokerV.Results);
71end;
72
73procedure ClearFlag;
74begin
75 sCallV('ORPRF CLEAR',[nil]);
76end;
77
78end.
Note: See TracBrowser for help on using the repository browser.