Module

rProbs

Path

C:\CPRS\CPRS30\rProbs.pas

Last Modified

7/15/2014 3:26:44 PM

Units Used in Interface

Name Comments
uCore -

Procedures

Name Owner Declaration Scope Comments
SaveViewPreferences - procedure SaveViewPreferences(ViewPref: string); Interfaced -

Functions

Name Owner Declaration Scope Comments
AddSave - function AddSave(PatientInfo: string; ProviderID: int64; ptVAMC: string; ProbFile: TStringList; SearchString: String): TStrings ; Interfaced -
AuditHistory - function AuditHistory(ProblemIFN: string): TStrings ; Interfaced -
CheckForDuplicateProblem - function CheckForDuplicateProblem(TermIEN, TermText: string): string; Interfaced -
ClinicFilterList - function ClinicFilterList(LocList: TStringList): TStrings ; Interfaced -
ClinicSearch - function ClinicSearch(DummyArg:string): TStrings ; Interfaced -
EditLoad - function EditLoad(ProblemIFN: string; ProviderID: int64; ptVAMC: string): TStrings ; Interfaced Function ProblemDetail
EditSave - function EditSave(ProblemIFN: string; ProviderID: int64; ptVAMC, PrimUser: string; ProbFile: TStringList; SearchString: String): TStrings ; Interfaced -
GetProblemComments - function GetProblemComments(ProblemIFN: string): TStrings; Interfaced -
InitPt - function InitPt(const PatientDFN: string): TStrings ; Interfaced
DFN*
DFN*
InitUser - function InitUser(ProviderID: int64): TStrings ; Interfaced -
PatientProviders - function PatientProviders(const PatientDFN: string): TStrings ; Interfaced
DFN*
DFN*
ProblemDelete - function ProblemDelete(ProblemIFN: string; ProviderID: int64; ptVAMC, Comment: string): TStrings ; Interfaced -
ProblemLexiconSearch - function ProblemLexiconSearch(SearchFor: string; ADate: TFMDateTime = 0; Extend: Boolean = False): TStrings ; Interfaced -
ProblemList - function ProblemList(const PatientDFN: string; Status:string; ADate: TFMDateTime): TStrings ; Interfaced
DFN*
DFN*
ProblemNTRTBulletin - function ProblemNTRTBulletin(term: String; ProviderID: String; PatientID: String; comment: String): String; Interfaced -
ProblemReplace - function ProblemReplace(ProblemIFN: string): TStrings ; Interfaced -
ProblemUpdate - function ProblemUpdate(AltProbFile: TStringList): TStrings ; Interfaced -
ProblemVerify - function ProblemVerify(ProblemIFN: string): TStrings ; Interfaced -
ProviderFilterList - function ProviderFilterList(ProvList: TStringList): TStrings ; Interfaced -
ProviderList - function ProviderList(Flag:string; Number:integer; From,Part: string): TStrings ; Interfaced -
ServiceFilterList - function ServiceFilterList(LocList: TStringList): TStrings ; Interfaced -
ServiceSearch - function ServiceSearch(const StartFrom: string; Direction: Integer; All: boolean = FALSE): TStrings; Interfaced -
UserProblemCategories - function UserProblemCategories(Provider: int64; Location: integer): TStrings ; Interfaced -
UserProblemList - function UserProblemList(CategoryIEN: string): TStrings ; Interfaced -


Module Source

1     unit rProbs;
2     
3     interface
4     
5     uses SysUtils, Classes, ORNet, ORFn, uCore;
6     
7     function AddSave(PatientInfo: string; ProviderID: int64; ptVAMC: string;
8                ProbFile: TStringList; SearchString: String): TStrings ;
9     function AuditHistory(ProblemIFN: string): TStrings ;
10    function ClinicFilterList(LocList: TStringList): TStrings ;
11    function ClinicSearch(DummyArg:string): TStrings ;
12    function ProblemDelete(ProblemIFN: string; ProviderID: int64; ptVAMC, Comment: string): TStrings ;
13    {function ProblemDetail}
14    function EditLoad(ProblemIFN: string; ProviderID: int64; ptVAMC: string): TStrings ;
15    function EditSave(ProblemIFN: string; ProviderID: int64; ptVAMC, PrimUser: string;
16               ProbFile: TStringList; SearchString: String): TStrings ;
17    function InitPt(const PatientDFN: string): TStrings ;  //*DFN*
18    function InitUser(ProviderID: int64): TStrings ;
19    function PatientProviders(const PatientDFN: string): TStrings ;  //*DFN*
20    function ProblemList(const PatientDFN: string; Status:string; ADate: TFMDateTime): TStrings ;  //*DFN*
21    function ProblemLexiconSearch(SearchFor: string; ADate: TFMDateTime = 0; Extend: Boolean = False): TStrings ;
22    function ProblemNTRTBulletin(term: String; ProviderID: String; PatientID: String; comment: String): String;
23    function ProviderFilterList(ProvList: TStringList): TStrings ;
24    function ProviderList(Flag:string; Number:integer; From,Part: string): TStrings ;
25    function ProblemReplace(ProblemIFN: string): TStrings ;
26    function ServiceFilterList(LocList: TStringList): TStrings ;
27    function ServiceSearch(const StartFrom: string; Direction: Integer; All: boolean = FALSE): TStrings;
28    function ProblemUpdate(AltProbFile: TStringList): TStrings ;
29    function UserProblemCategories(Provider: int64; Location: integer): TStrings ;
30    function UserProblemList(CategoryIEN: string): TStrings ;
31    function ProblemVerify(ProblemIFN: string): TStrings ;
32    function GetProblemComments(ProblemIFN: string): TStrings;
33    procedure SaveViewPreferences(ViewPref: string);
34    function CheckForDuplicateProblem(TermIEN, TermText: string): string;
35    
36    implementation
37    
38    function AddSave(PatientInfo: string; ProviderID: int64; ptVAMC: string;
39               ProbFile: TStringList; SearchString: String): TStrings ;
40    begin
41       CallV('ORQQPL ADD SAVE',[PatientInfo, ProviderID, ptVAMC, ProbFile, SearchString]);
42       Result := RPCBrokerV.Results ;
43    end ;
44    
45    function AuditHistory(ProblemIFN: string): TStrings ;
46    begin
47       CallV('ORQQPL AUDIT HIST',[ProblemIFN]);
48       Result := RPCBrokerV.Results ;
49    end ;
50    
51    function ClinicFilterList(LocList: TStringList): TStrings ;
52    begin
53       CallV('ORQQPL CLIN FILTER LIST',[LocList]);
54       MixedCaseList(RPCBrokerV.Results) ;
55       Result := RPCBrokerV.Results;
56    end ;
57    
58    function ClinicSearch(DummyArg:string): TStrings ;
59    begin
60       CallV('ORQQPL CLIN SRCH',[DummyArg]);
61       Result := RPCBrokerV.Results ;
62    end ;
63    
64    function ProblemDelete(ProblemIFN: string; ProviderID: int64; ptVAMC, Comment: string): TStrings ;
65    begin
66       CallV('ORQQPL DELETE',[ProblemIFN, ProviderID, ptVAMC, Comment]);
67       Result := RPCBrokerV.Results ;
68    end ;
69    
70    function EditLoad(ProblemIFN: string; ProviderID: int64; ptVAMC: string): TStrings ;
71    begin
72       CallV('ORQQPL EDIT LOAD',[ProblemIFN, ProviderID, ptVAMC]);
73       Result := RPCBrokerV.Results ;
74    end ;
75    
76    function EditSave(ProblemIFN: string; ProviderID: int64; ptVAMC, PrimUser: string;
77               ProbFile: TStringList; SearchString: String): TStrings ;
78    begin
79       CallV('ORQQPL EDIT SAVE',[ProblemIFN, ProviderID, ptVAMC, PrimUser, ProbFile, SearchString]);
80       Result := RPCBrokerV.Results ;
81    end ;
82    
83    function InitPt(const PatientDFN: string): TStrings ;  //*DFN*
84    begin
85       CallV('ORQQPL INIT PT',[PatientDFN]);
86       Result := RPCBrokerV.Results ;
87    end ;
88    
89    function InitUser(ProviderID: int64): TStrings ;
90    begin
91       CallV('ORQQPL INIT USER',[ProviderID]);
92       Result := RPCBrokerV.Results ;
93    end ;
94    
95    function PatientProviders(const PatientDFN: string): TStrings ;  //*DFN*
96    begin
97       CallV('ORQPT PATIENT TEAM PROVIDERS',[PatientDFN]);
98       Result := RPCBrokerV.Results ;
99    end ;
100   
101   function ProblemLexiconSearch(SearchFor: string; ADate: TFMDateTime = 0; Extend: Boolean = False): TStrings ;
102   var
103     View: String;
104   begin
105     if Extend then
106       View := 'CLF'
107     else
108       View := 'PLS';
109     CallV('ORQQPL4 LEX',[SearchFor, VIEW, ADate, True]);
110     Result := RPCBrokerV.Results ;
111   end ;
112   
113   function ProblemNTRTBulletin(term: String; ProviderID: String; PatientID: String; comment: String): String;
114   begin
115     CallV('ORQQPL PROBLEM NTRT BULLETIN', [term, ProviderID, PatientID, comment]);
116     result := RPCBrokerV.Results[0];
117   end ;
118   
119   function ProblemList(const PatientDFN: string; Status:string; ADate: TFMDateTime): TStrings ;  //*DFN*
120   begin
121      CallV('ORQQPL PROBLEM LIST',[PatientDFN, Status, ADate]);
122      Result := RPCBrokerV.Results ;
123   end ;
124   
125   function ProviderFilterList(ProvList: TStringList): TStrings ;
126   begin
127      CallV('ORQQPL PROV FILTER LIST',[ProvList]);
128      Result := RPCBrokerV.Results ;
129   end ;
130   
131   function ProviderList(Flag:string; Number:integer; From,Part: string): TStrings ;
132   begin
133      CallV('ORQQPL PROVIDER LIST',[Flag,Number,From,Part]);
134      Result := RPCBrokerV.Results ;
135   end ;
136   
137   function ProblemReplace(ProblemIFN: string): TStrings ;
138   begin
139      CallV('ORQQPL REPLACE',[ProblemIFN]);
140      Result := RPCBrokerV.Results ;
141   end ;
142   
143   function ServiceFilterList(LocList: TStringList): TStrings ;
144   begin
145      CallV('ORQQPL SERV FILTER LIST',[LocList]);
146      MixedCaseList(RPCBrokerV.Results) ;
147      Result := RPCBrokerV.Results;
148   end ;
149   
150   function ServiceSearch(const StartFrom: string; Direction: Integer; All: boolean = FALSE): TStrings;
151   begin
152      CallV('ORQQPL SRVC SRCH',[StartFrom, Direction, BoolChar[All]]);
153      MixedCaseList(RPCBrokerV.Results) ;
154      Result := RPCBrokerV.Results ;
155   end ;
156   
157   function ProblemUpdate(AltProbFile: TStringList): TStrings ;
158   begin
159      CallV('ORQQPL UPDATE',[AltProbFile]);
160      Result := RPCBrokerV.Results ;
161   end ;
162   
163   function ProblemVerify(ProblemIFN: string): TStrings ;
164   begin
165      CallV('ORQQPL VERIFY',[ProblemIFN]);
166      Result := RPCBrokerV.Results ;
167   end ;
168   
169   function UserProblemCategories(Provider: int64; Location: integer): TStrings ;
170   begin
171      CallV('ORQQPL USER PROB CATS',[Provider, Location]);
172      Result := RPCBrokerV.Results ;
173   end ;
174   
175   function UserProblemList(CategoryIEN: string): TStrings ;
176   begin
177      CallV('ORQQPL USER PROB LIST',[CategoryIEN]);
178      Result := RPCBrokerV.Results ;
179   end ;
180   
181   function GetProblemComments(ProblemIFN: string): TStrings;
182   begin
183      CallV('ORQQPL PROB COMMENTS',[ProblemIFN]);
184      Result := RPCBrokerV.Results ;
185   end;
186   
187   procedure SaveViewPreferences(ViewPref: string);
188   begin
189     CallV('ORQQPL SAVEVIEW',[ViewPref]);
190   end;
191   
192   function CheckForDuplicateProblem(TermIEN, TermText: string): string;
193   begin
194     CallV('ORQQPL CHECK DUP',[Patient.DFN, TermIEN, TermText]);
195     Result := RPCBrokerV.Results[0];
196   end;
197   
198   end.

Module Calls (2 levels)


rProbs
 └uCore
   ├rCore
   ├uConst
   ├uCombatVet
   ├rTIU
   ├rOrders
   ├rConsults
   └uOrders

Module Called-By (2 levels)


                 rProbs
              fPCELex┤ 
  fBALocalDiagnoses┤ │ 
         fDiagnoses┤ │ 
       fPCEBaseMain┤ │ 
fBAOptionsDiagnoses┤ │ 
         fODConsult┤ │ 
            fODProc┤ │ 
          fEditProc┤ │ 
       fEditConsult┘ │ 
        fDiagnoses...┤ 
               fProbs┤ 
             fFrame┤ │ 
           fProbEdt┤ │ 
           fProbflt┤ │ 
           fProbLex┘ │ 
          fProbEdt...┤ 
          fProbflt...┤ 
          fProbLex...┤ 
       fRemCoverSheet┘ 
      fReminderTree┤   
  fOptionsReminders┘