Produced by Araxis Merge on 4/16/2019 12:20:46 PM Central 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 | C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet | mCoverSheetDisplayPanel_CPRS_Labs.pas | Wed Dec 12 14:04:38 2018 UTC |
2 | C:\AraxisMergeCompare\Pri_re\CPRS v32 P2 PCE Standardization-redacted\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet | mCoverSheetDisplayPanel_CPRS_Labs.pas | Fri Apr 12 13:42:14 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 246 |
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 mCove rSheetDisp layPanel_C PRS_Labs; | |
2 | { | |
3 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
4 | * | |
5 | * Applicatio n: Demo | |
6 | * Developer: PII | |
7 | * Site: Salt L ake City I SC | |
8 | * Date: 2015-1 2-21 | |
9 | * | |
10 | * Descriptio n: Lab re sult panel for CPRS Coversheet . | |
11 | * | |
12 | * Notes: | |
13 | * | |
14 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
15 | } | |
16 | ||
17 | interface | |
18 | ||
19 | uses | |
20 | Winapi.W indows, | |
21 | Winapi.M essages, | |
22 | System.S ysUtils, | |
23 | System.V ariants, | |
24 | System.C lasses, | |
25 | System.I mageList, | |
26 | Vcl.Grap hics, | |
27 | Vcl.Cont rols, | |
28 | Vcl.Form s, | |
29 | Vcl.Dial ogs, | |
30 | Vcl.ExtC trls, | |
31 | Vcl.Menu s, | |
32 | Vcl.ImgL ist, | |
33 | Vcl.ComC trls, | |
34 | Vcl.StdC trls, | |
35 | Vcl.Butt ons, | |
36 | iCoverSh eetIntf, | |
37 | mCoverSh eetDisplay Panel_CPRS , | |
38 | oDelimit edString; | |
39 | ||
40 | type | |
41 | TfraCove rSheetDisp layPanel_C PRS_Labs = class(Tfr aCoverShee tDisplayPa nel_CPRS) | |
42 | private | |
43 | { Priv ate declar ations } | |
44 | protecte d | |
45 | { Over ridded eve nts - Tfra CoverSheet DisplayPan el_CPRS } | |
46 | proced ure OnAddI tems(aList : TStrings ); overrid e; | |
47 | proced ure OnGetD etail(aRec : TDelimit edString; aResult: T Strings); override; | |
48 | public | |
49 | constr uctor Crea te(aOwner: TComponen t); overri de; | |
50 | end; | |
51 | ||
52 | var | |
53 | fraCover SheetDispl ayPanel_CP RS_Labs: T fraCoverSh eetDisplay Panel_CPRS _Labs; | |
54 | ||
55 | implementa tion | |
56 | ||
57 | uses | |
58 | uCore, | |
59 | ORFn, | |
60 | ORNet; | |
61 | ||
62 | {$R *.dfm} | |
63 | ||
64 | { TfraCove rSheetDisp layPanel_C PRS_Labs } | |
65 | ||
66 | constructo r TfraCove rSheetDisp layPanel_C PRS_Labs.C reate(aOwn er: TCompo nent); | |
67 | begin | |
68 | inherite d; | |
69 | AddColum n(0, 'Lab Test'); | |
70 | AddColum n(1, 'Date /Time'); | |
71 | Collapse Columns; | |
72 | end; | |
73 | ||
74 | procedure TfraCoverS heetDispla yPanel_CPR S_Labs.OnG etDetail(a Rec: TDeli mitedStrin g; aResult : TStrings ); | |
75 | var | |
76 | aID: str ing; | |
77 | begin | |
78 | aID := a Rec.GetPie ce(1); | |
79 | ||
80 | if aID = '' then | |
81 | Exit; | |
82 | ||
83 | if Copy( aRec.GetPi ece(1), 1, 2) = '0;' then | |
84 | Exit; | |
85 | ||
86 | if StrTo FloatDef(C opy(aID, 1 , Pos(';', aID) - 1) , -1) < 1 then | |
87 | Exit; | |
88 | ||
89 | CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, aR ec.GetPiec eAsInteger (1), aRec. GetPiece(1 )], aResul t); | |
90 | end; | |
91 | ||
92 | procedure TfraCoverS heetDispla yPanel_CPR S_Labs.OnA ddItems(aL ist: TStri ngs); | |
93 | var | |
94 | aRec: TD elimitedSt ring; | |
95 | aStr: st ring; | |
96 | begin | |
97 | try | |
98 | lvData .Items.Beg inUpdate; | |
99 | for aS tr in aLis t do | |
100 | begi n | |
101 | aR ec := TDel imitedStri ng.Create( aStr); | |
102 | ||
103 | if lvData.It ems.Count = 0 then { Executes before any item is a dded } | |
104 | if aRec.Ge tPieceIsNu ll(1) and (aList.Cou nt = 1) th en | |
105 | Collapse Columns | |
106 | else | |
107 | ExpandCo lumns; | |
108 | ||
109 | wi th lvData. Items.Add do | |
110 | begin | |
111 | Caption := MixedCa se(aRec.Ge tPiece(2)) ; | |
112 | if aRec. GetPieceIs NotNull(1) then | |
113 | begin | |
114 | SubI tems.Add(F ormatDateT ime(DT_FOR MAT, aRec. GetPieceAs TDateTime( 3))); | |
115 | Data := aRec; | |
116 | end; | |
117 | end; | |
118 | end; | |
119 | finally | |
120 | lvData .Items.End Update; | |
121 | end; | |
122 | end; | |
123 | ||
124 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.