Module

uOrPtf

Path

C:\CPRS\CPRS30\uOrPtf.pas

Last Modified

7/15/2014 3:26:44 PM

Comments

PRF

Units Used in Interface

Name Comments
uCore -

Classes

Name Comments
TPatientFlag -

Procedures

Name Owner Declaration Scope Comments
ClearFlag - procedure ClearFlag; Interfaced -
Clearup TPatientFlag procedure Clearup; Public -
GetActiveFlg - procedure GetActiveFlg(FlagInfo: TStrings; const PTDFN, FlagRecordID: string); Interfaced -
HasActiveFlg - procedure HasActiveFlg(var FlagList: TStringList; var HasFlag: boolean; const PTDFN: string); Interfaced -

Functions

Name Owner Declaration Scope Comments
TriggerPRFPopUp - function TriggerPRFPopUp(PTDFN: String): boolean; Interfaced -


Module Source

1     unit uOrPtf;   //PRF
2     
3     interface
4     
5     uses SysUtils, Windows, Classes, Forms, ORFn, ORNet, uCore;
6     
7     Type
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    
23    procedure HasActiveFlg(var FlagList: TStringList; var HasFlag: boolean; const PTDFN: string);
24    function TriggerPRFPopUp(PTDFN: String): boolean;
25    procedure GetActiveFlg(FlagInfo: TStrings; const PTDFN, FlagRecordID: string);
26    procedure ClearFlag;
27    
28    implementation
29    
30    procedure HasActiveFlg(var FlagList: TStringList; var HasFlag: boolean; const PTDFN: string);
31    begin
32      FlagList.Clear;
33      HasFlag := False;
34      CallV('ORPRF HASFLG',[PTDFN]);
35      if RPCBrokerV.Results.Count > 0 then
36      begin
37        FastAssign(RPCBrokerV.Results, FlagList);
38        HasFlag := True;
39      end;
40    end;
41    
42    function TriggerPRFPopUp(PTDFN: String): boolean;
43    begin
44      CallV('ORPRF TRIGGER POPUP',[PTDFN]);
45      Result := RPCBrokerV.Results[0] = '1';
46      RPCBrokerV.Results.Delete(0);
47    end;
48    
49    procedure TPatientFlag.Clearup;
50    begin
51      FFlagID := '0';
52      FName   := '';
53      FNarr.Clear;
54      FFlagIndex := -1;
55    end;
56    
57    constructor TPatientFlag.Create;
58    begin
59      FFlagID   := '0';
60      FName := '';
61      FNarr := TStringList.Create;
62      FFlagIndex := -1;
63    end;
64    
65    procedure GetActiveFlg(FlagInfo: TStrings; const PTDFN, FlagRecordID: string);
66    begin
67      CallV('ORPRF GETFLG', [PTDFN,FlagRecordID]);
68      if RPCBrokerV.Results.Count > 0 then
69        FastAssign(RPCBrokerV.Results, FlagInfo);
70    end;
71    
72    procedure ClearFlag;
73    begin
74      sCallV('ORPRF CLEAR',[nil]);
75    end;
76    
77    end.

Module Calls (2 levels)

-

Module Called-By (2 levels)


                     uOrPtf
                   fFrame┤ 
              CPRSChart┤ │ 
                  fPage┤ │ 
                uOrders┤ │ 
                fODBase┤ │ 
                UBACore┤ │ 
                fOrders┤ │ 
                   uPCE┤ │ 
      fBALocalDiagnoses┤ │ 
             fEncVitals┤ │ 
                fVitals┤ │ 
                 fCover┤ │ 
                 rCover┤ │ 
              fPtSelMsg┤ │ 
                 fPtSel┤ │ 
            fOrdersSign┤ │ 
         fPrintLocation┤ │ 
                  fMeds┤ │ 
                fRptBox┤ │ 
                 fNotes┤ │ 
               fReports┤ │ 
                 fEncnt┤ │ 
                 fProbs┤ │ 
          fReportsPrint┤ │ 
                fGraphs┤ │ 
              fConsults┤ │ 
                fDCSumm┤ │ 
        fReminderDialog┤ │ 
                  fLabs┤ │ 
              fLabPrint┤ │ 
                fReview┤ │ 
            fIconLegend┤ │ 
           fOrdersPrint┤ │ 
               fSurgery┤ │ 
uVA508CPRSCompatibility┤ │ 
           fOrdersRenew┤ │ 
             fODConsult┤ │ 
                fODProc┤ │ 
                 fODRad┤ │ 
                 fODLab┤ │ 
                fODMeds┤ │ 
               fODMedIV┤ │ 
              fODVitals┤ │ 
                fODAuto┤ │ 
                 fOMSet┤ │ 
         fOrdersRelease┤ │ 
              fODMedNVA┤ │ 
         fOrdersOnChart┤ │ 
             fOCSession┤ │ 
              fODActive┤ │ 
               fPCEEdit┘ │ 
                fPtSel...┤ 
        fPatientFlagMulti┘ 
              fFrame...┤   
              fCover...┘