source: cprs/trunk/CPRS-Chart/uOrPtf.pas@ 722

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

Initial Upload of Official WV CPRS 1.0.26.76

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