Produced by Araxis Merge on 5/10/2019 1:00:04 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | iCoverSheetIntf.pas | Wed Apr 3 19:32:16 2019 UTC |
2 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | iCoverSheetIntf.pas | Thu May 9 00:51:16 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 582 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | unit iCove rSheetIntf ; | |
2 | ||
3 | { | |
4 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
5 | * | |
6 | * Applicatio n: CPRS - Covershee t | |
7 | * Developer: PII | |
8 | * Site: Salt L ake City I SC | |
9 | * Date: 2015-1 2-04 | |
10 | * | |
11 | * Descriptio n: Main i nterface u nit for ap plication use. | |
12 | * | |
13 | * Notes: | |
14 | * | |
15 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
16 | } | |
17 | interface | |
18 | ||
19 | uses | |
20 | System.C lasses, | |
21 | System.S ysUtils, | |
22 | System.T ypes, | |
23 | Vcl.Cont rols, | |
24 | Vcl.ExtC trls, | |
25 | Vcl.Grap hics; | |
26 | ||
27 | type | |
28 | ECoverSh eetExcepti on = class (Exception ); | |
29 | ECoverSh eetInitFai l = class( ECoverShee tException ); | |
30 | ECoverSh eetDisplay Fail = cla ss(ECoverS heetExcept ion); | |
31 | ECoverSh eetSwitchP tFail = cl ass(ECover SheetExcep tion); | |
32 | ||
33 | ICPRS508 = interfa ce; | |
34 | ICPRSTab = interfa ce; | |
35 | ICPRSBas eDisplayPa nel = inte rface; | |
36 | ||
37 | ICoverSh eet = inte rface; | |
38 | ICoverSh eetDisplay Panel = in terface; | |
39 | ICoverSh eetGrid = interface; | |
40 | ICoverSh eetParam = interface ; | |
41 | ICoverSh eetParamEn umerator = interface ; | |
42 | ICoverSh eetParamLi st = inter face; | |
43 | ICoverSh eetParam_C PRS = inte rface; | |
44 | ICoverSh eetParam_W eb = inter face; | |
45 | ||
46 | ICPRS508 = interfa ce(IInterf ace) | |
47 | ['{B51 68113-29E6 -4C5E-886E -819DD1F22 42E}'] | |
48 | proced ure OnSetF ontSize(Se nder: TObj ect; aNewS ize: integ er); | |
49 | proced ure OnFocu sFirstCont rol(Sender : TObject) ; | |
50 | proced ure OnSetS creenReade rStatus(Se nder: TObj ect; aActi ve: boolea n); | |
51 | end; | |
52 | ||
53 | ICPRSTab = interfa ce(IInterf ace) | |
54 | ['{70F 51186-B098 -4D32-9EBD -FC07F0FFF E03}'] | |
55 | proced ure OnClea rPtData(Se nder: TObj ect); | |
56 | proced ure OnDisp layPage(Se nder: TObj ect; aCall ingContext : integer) ; | |
57 | proced ure OnLoad ed(Sender: TObject); | |
58 | end; | |
59 | ||
60 | ICoverSh eet = inte rface(ICPR S508) | |
61 | ['{A83 A5329-FDDA -4005-B5C7 -504C11CDC FF5}'] | |
62 | functi on getPara ms: ICover SheetParam List; | |
63 | functi on getUniq ueID: stri ng; | |
64 | functi on getIPAd dress: str ing; | |
65 | functi on getIsFi nishedLoad ing: boole an; | |
66 | functi on getOnRe freshCWAD: TNotifyEv ent; | |
67 | functi on getOnRe freshRemin ders: TNot ifyEvent; | |
68 | functi on getPane lCount: in teger; | |
69 | ||
70 | proced ure setOnR efreshCWAD (const aVa lue: TNoti fyEvent); | |
71 | proced ure setOnR efreshRemi nders(cons t aValue: TNotifyEve nt); | |
72 | ||
73 | proced ure OnClea rPtData(Se nder: TObj ect); | |
74 | proced ure OnDisp lay(Sender : TObject; aTarget: TGridPanel ); | |
75 | proced ure OnExpa ndAllPanel s(Sender: TObject); | |
76 | proced ure OnInit CoverSheet (Sender: T Object); | |
77 | proced ure OnRefr eshPanel(S ender: TOb ject; aID: integer); | |
78 | proced ure OnSwit chToPatien t(Sender: TObject; a DFN: strin g); | |
79 | ||
80 | proper ty Params: ICoverShe etParamLis t read get Params; | |
81 | proper ty UniqueI D: string read getUn iqueID; | |
82 | proper ty IPAddre ss: string read getI PAddress; | |
83 | proper ty IsFinis hedLoading : boolean read getIs FinishedLo ading; | |
84 | proper ty OnRefre shCWAD: TN otifyEvent read getO nRefreshCW AD write s etOnRefres hCWAD; | |
85 | proper ty OnRefre shReminder s: TNotify Event read getOnRefr eshReminde rs write s etOnRefres hReminders ; | |
86 | proper ty PanelCo unt: integ er read ge tPanelCoun t; | |
87 | end; | |
88 | ||
89 | ICoverSh eetDisplay Panel = in terface(II nterface) | |
90 | ['{901 75D34-D7EB -4953-95E6 -BA97218DE 4C9}'] | |
91 | functi on getBack groundColo r: TColor; | |
92 | functi on getPara m: ICoverS heetParam; | |
93 | functi on getTitl e: string; | |
94 | functi on getTitl eFontColor : TColor; | |
95 | functi on getTitl eFontBold: boolean; | |
96 | functi on getIsFi nishedLoad ing: boole an; | |
97 | ||
98 | proced ure setBac kgroundCol or(const a Value: TCo lor); | |
99 | proced ure setPar am(const a Value: ICo verSheetPa ram); | |
100 | proced ure setTit le(const a Value: str ing); | |
101 | proced ure setTit leFontColo r(const aV alue: TCol or); | |
102 | proced ure setTit leFontBold (const aVa lue: boole an); | |
103 | ||
104 | proced ure OnClea rPtData(Se nder: TObj ect); | |
105 | proced ure OnBegi nUpdate(Se nder: TObj ect); | |
106 | proced ure OnEndU pdate(Send er: TObjec t); | |
107 | proced ure OnRefr eshDisplay (Sender: T Object); | |
108 | ||
109 | proper ty Backgro undColor: TColor rea d getBackg roundColor write set Background Color; | |
110 | proper ty IsFinis hedLoading : boolean read getIs FinishedLo ading; | |
111 | proper ty Params: ICoverShe etParam re ad getPara m write se tParam; | |
112 | proper ty Title: string rea d getTitle write set Title; | |
113 | proper ty TitleFo ntColor: T Color read getTitleF ontColor w rite setTi tleFontCol or; | |
114 | proper ty TitleFo ntBold: bo olean read getTitleF ontBold wr ite setTit leFontBold ; | |
115 | end; | |
116 | ||
117 | ICoverSh eetGrid = interface( IInterface ) | |
118 | ['{488 42D2D-F143 -4A4A-8C18 -365FA06C9 3CF}'] | |
119 | functi on getPane lCount: in teger; | |
120 | functi on getPane lColumn(aP anelIndex: integer): integer; | |
121 | functi on getPane lRow(aPane lIndex: in teger): in teger; | |
122 | functi on getPane lXY(aPanel Index: int eger): TPo int; | |
123 | functi on getRowC ount: inte ger; | |
124 | ||
125 | proced ure setPan elCount(co nst aValue : integer) ; | |
126 | ||
127 | proper ty PanelCo unt: integ er read ge tPanelCoun t write se tPanelCoun t; | |
128 | proper ty PanelCo lumn[aPane lIndex: in teger]: in teger read getPanelC olumn; | |
129 | proper ty PanelRo w[aPanelIn dex: integ er]: integ er read ge tPanelRow; | |
130 | proper ty PanelXY [aPanelInd ex: intege r]: TPoint read getP anelXY; | |
131 | proper ty RowCoun t: integer read getR owCount; | |
132 | end; | |
133 | ||
134 | ICoverSh eetParam = interface (IInterfac e) | |
135 | ['{E48 FEECF-8414 -4339-92A0 -85A2AF692 52C}'] | |
136 | functi on getID: integer; | |
137 | functi on getDisp layColumn: integer; | |
138 | functi on getDisp layRow: in teger; | |
139 | functi on getTitl e: string; | |
140 | ||
141 | proced ure setDis playColumn (const aVa lue: integ er); | |
142 | proced ure setDis playRow(co nst aValue : integer) ; | |
143 | proced ure setTit le(const a Value: str ing); | |
144 | ||
145 | functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; | |
146 | ||
147 | proper ty ID: int eger read getID; | |
148 | proper ty Display Column: in teger read getDispla yColumn wr ite setDis playColumn ; | |
149 | proper ty Display Row: integ er read ge tDisplayRo w write se tDisplayRo w; | |
150 | proper ty Title: string rea d getTitle write set Title; | |
151 | end; | |
152 | ||
153 | ICoverSh eetParamEn umerator = interface (IInterfac e) | |
154 | ['{EAC F2780-1FA7 -4189-85A6 -67AFA93DA D3A}'] | |
155 | functi on GetCurr ent: ICove rSheetPara m; | |
156 | functi on MoveNex t: boolean ; | |
157 | ||
158 | proper ty Current : ICoverSh eetParam r ead GetCur rent; | |
159 | end; | |
160 | ||
161 | ICoverSh eetParamLi st = inter face(IInte rface) | |
162 | ['{315 DADF5-5A72 -4A15-BD16 -48E764F5E 904}'] | |
163 | functi on getCove rSheetPara m(aID: str ing): ICov erSheetPar am; | |
164 | functi on getCove rSheetPara mByIndex(a Index: int eger): ICo verSheetPa ram; | |
165 | functi on getCove rSheetPara mCount: in teger; | |
166 | ||
167 | functi on Add(aCo verSheetPa ram: ICove rSheetPara m): boolea n; | |
168 | functi on Clear: boolean; | |
169 | functi on GetEnum erator: IC overSheetP aramEnumer ator; | |
170 | ||
171 | proper ty Param[a ID: string ]: ICoverS heetParam read getCo verSheetPa ram; | |
172 | proper ty ParamBy Index[aInd ex: intege r]: ICover SheetParam read getC overSheetP aramByInde x; | |
173 | proper ty Count: integer re ad getCove rSheetPara mCount; | |
174 | end; | |
175 | ||
176 | ICoverSh eetParam_C PRS = inte rface(ICov erSheetPar am) | |
177 | ['{794 B69BE-3942 -450D-95D8 -18066CF4F A44}'] | |
178 | functi on getLoad InBackgrou nd: boolea n; | |
179 | functi on getDate Format: st ring; | |
180 | functi on getDate Piece: int eger; | |
181 | functi on getDeta ilRPC: str ing; | |
182 | functi on getInve rt: boolea n; | |
183 | functi on getMain RPC: strin g; | |
184 | functi on getPara m1: string ; | |
185 | functi on getPoll ingID: str ing; | |
186 | functi on getStat us: string ; | |
187 | functi on getTitl eCase: boo lean; | |
188 | functi on getHigh lightText: boolean; | |
189 | functi on getAllo wDetailPri nt: boolea n; | |
190 | ||
191 | proced ure setLoa dInBackgro und(const aValue: bo olean); | |
192 | proced ure setPar am1(const aValue: st ring); | |
193 | ||
194 | proper ty AllowDe tailPrint: boolean r ead getAll owDetailPr int; | |
195 | proper ty LoadInB ackground: boolean r ead getLoa dInBackgro und write setLoadInB ackground; | |
196 | proper ty DateFor mat: strin g read get DateFormat ; | |
197 | proper ty DatePie ce: intege r read get DatePiece; | |
198 | proper ty DetailR PC: string read getD etailRPC; | |
199 | proper ty Invert: boolean r ead getInv ert; | |
200 | proper ty MainRPC : string r ead getMai nRPC; | |
201 | proper ty Param1: string re ad getPara m1 write s etParam1; | |
202 | proper ty Polling ID: string read getP ollingID; | |
203 | proper ty Status: string re ad getStat us; | |
204 | proper ty TitleCa se: boolea n read get TitleCase; | |
205 | proper ty Highlig htText: bo olean read getHighli ghtText; | |
206 | end; | |
207 | ||
208 | ICoverSh eetParam_W eb = inter face(ICove rSheetPara m) | |
209 | ['{7ED 04B07-E55F -4B0B-AEC9 -22B14FE24 D28}'] | |
210 | functi on getHome Page: stri ng; | |
211 | functi on getShow Navigator: boolean; | |
212 | ||
213 | proced ure setHom ePage(cons t aValue: string); | |
214 | proced ure setSho wNavigator (const aVa lue: boole an); | |
215 | ||
216 | proper ty HomePag e: string read getHo mePage wri te setHome Page; | |
217 | proper ty ShowNav igator: bo olean read getShowNa vigator wr ite setSho wNavigator ; | |
218 | end; | |
219 | ||
220 | ICPRSBas eDisplayPa nel = inte rface(IInt erface) | |
221 | ['{BA7 574C5-D954 -48D2-BDA6 -C82AFE9B9 7CC}'] | |
222 | functi on getBack groundColo r: TColor; | |
223 | functi on getTitl e: string; | |
224 | functi on getTitl eFontColor : TColor; | |
225 | functi on getTitl eFontBold: boolean; | |
226 | ||
227 | proced ure setBac kgroundCol or(const a Value: TCo lor); | |
228 | proced ure setTit le(const a Value: str ing); | |
229 | proced ure setTit leFontColo r(const aV alue: TCol or); | |
230 | proced ure setTit leFontBold (const aVa lue: boole an); | |
231 | ||
232 | functi on Finishe dLoading: boolean; | |
233 | ||
234 | proper ty Backgro undColor: TColor rea d getBackg roundColor write set Background Color; | |
235 | proper ty Title: string rea d getTitle write set Title; | |
236 | proper ty TitleFo ntColor: T Color read getTitleF ontColor w rite setTi tleFontCol or; | |
237 | proper ty TitleFo ntBold: bo olean read getTitleF ontBold wr ite setTit leFontBold ; | |
238 | end; | |
239 | ||
240 | function C overSheet: ICoverShe et; | |
241 | ||
242 | const | |
243 | CV_CPRS_ PROB = 10; | |
244 | CV_CPRS_ ALLG = 20; | |
245 | CV_CPRS_ POST = 30; | |
246 | CV_CPRS_ MEDS = 40; | |
247 | CV_CPRS_ RMND = 50; | |
248 | CV_CPRS_ LABS = 60; | |
249 | CV_CPRS_ VITL = 70; | |
250 | CV_CPRS_ VSIT = 80; | |
251 | CV_CPRS_ IMMU = 90; | |
252 | CV_CPRS_ WVHT = 99; // TDrugs Patch OR* 3*377 and WV*1*24 - DanP@SLC 1 1-20-2015 | |
253 | CV_WDGT_ CLOCK = 10 00; | |
254 | CV_WDGT_ MINIBROWSE R = 1001; | |
255 | ||
256 | DT_FORMA T = 'MMM D D, YYYY@hh :nn'; | |
257 | ||
258 | function N ewGUID(aSt rip: boole an = True) : string; | |
259 | ||
260 | implementa tion | |
261 | ||
262 | uses | |
263 | System.S trUtils, | |
264 | oCoverSh eet; | |
265 | ||
266 | var | |
267 | fCoverSh eet: ICove rSheet; | |
268 | ||
269 | function C overSheet: ICoverShe et; | |
270 | begin | |
271 | fCoverSh eet.QueryI nterface(I CoverSheet , Result); | |
272 | end; | |
273 | ||
274 | function N ewGUID(aSt rip: boole an = True) : string; | |
275 | var | |
276 | aGUID: T GUID; | |
277 | begin | |
278 | CreateGU ID(aGUID); | |
279 | Result : = GUIDToSt ring(aGUID ); | |
280 | if aStri p then | |
281 | begin | |
282 | Resu lt := Repl aceStr(Res ult, '{', ''); | |
283 | Resu lt := Repl aceStr(Res ult, '}', ''); | |
284 | Resu lt := Repl aceStr(Res ult, '-', ''); | |
285 | end; | |
286 | end; | |
287 | ||
288 | initializa tion | |
289 | ||
290 | TCoverShee t.Create.G etInterfac e(ICoverSh eet, fCove rSheet); | |
291 | ||
292 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.