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 | mCoverSheetDisplayPanel_CPRS_Allergies.pas | Wed Apr 3 19:32:16 2019 UTC |
2 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | mCoverSheetDisplayPanel_CPRS_Allergies.pas | Thu May 9 00:51:21 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 454 |
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_Allerg ies; | |
2 | { | |
3 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
4 | * | |
5 | * Applicatio n: CPRS - Covershee t | |
6 | * Developer: PII | |
7 | * Site: Salt L ake City I SC | |
8 | * Date: 2015-1 2-21 | |
9 | * | |
10 | * Descriptio n: Displa y panel fo r Allergie s. | |
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.U ITypes, | |
26 | System.I mageList, | |
27 | Vcl.Grap hics, | |
28 | Vcl.Cont rols, | |
29 | Vcl.Form s, | |
30 | Vcl.Dial ogs, | |
31 | Vcl.ExtC trls, | |
32 | Vcl.Menu s, | |
33 | Vcl.ImgL ist, | |
34 | Vcl.ComC trls, | |
35 | Vcl.StdC trls, | |
36 | Vcl.Butt ons, | |
37 | mCoverSh eetDisplay Panel_CPRS , | |
38 | iCoverSh eetIntf, | |
39 | oDelimit edString; | |
40 | ||
41 | type | |
42 | TfraCove rSheetDisp layPanel_C PRS_Allerg ies = clas s(TfraCove rSheetDisp layPanel_C PRS) | |
43 | private | |
44 | { Priv ate declar ations } | |
45 | fSepar ator: TMen uItem; | |
46 | fEnter NewAllergy : TMenuIte m; | |
47 | fMarkS electedAsE nteredInEr ror: TMenu Item; | |
48 | fMarkP tAsNKA: TM enuItem; | |
49 | ||
50 | proced ure pmnEnt erNewAller gy(Sender: TObject); | |
51 | proced ure pmnMar kSelectedA sEnteredIn Error(Send er: TObjec t); | |
52 | proced ure pmnMar kPtAsNKA(S ender: TOb ject); | |
53 | protecte d | |
54 | { Over ridden eve nts - Tfra GridPanel } | |
55 | proced ure OnPopu pMenu(Send er: TObjec t); overri de; | |
56 | proced ure OnPopu pMenuInit( Sender: TO bject); ov erride; | |
57 | proced ure OnPopu pMenuFree( Sender: TO bject); ov erride; | |
58 | ||
59 | { Over ridden eve nts - Tfra CoverSheet DisplayPan el_CPRS } | |
60 | proced ure OnAddI tems(aList : TStrings ); overrid e; | |
61 | proced ure OnGetD etail(aRec : TDelimit edString; aResult: T Strings); override; | |
62 | public | |
63 | constr uctor Crea te(aOwner: TComponen t); overri de; | |
64 | destru ctor Destr oy; overri de; | |
65 | end; | |
66 | ||
67 | var | |
68 | fraCover SheetDispl ayPanel_CP RS_Allergi es: TfraCo verSheetDi splayPanel _CPRS_Alle rgies; | |
69 | ||
70 | implementa tion | |
71 | ||
72 | { TfraCove rSheetDisp layPanel_C PRS_Allerg ies } | |
73 | ||
74 | uses | |
75 | uCore, | |
76 | rODAller gy, | |
77 | fAllgyAR , | |
78 | ORFn, | |
79 | ORNet; | |
80 | ||
81 | const | |
82 | NO_ASSES SMENT = 'N o Allergy Assessment '; | |
83 | ||
84 | {$R *.dfm} | |
85 | ||
86 | ||
87 | constructo r TfraCove rSheetDisp layPanel_C PRS_Allerg ies.Create (aOwner: T Component) ; | |
88 | begin | |
89 | inherite d; | |
90 | AddColum n(0, 'Agen t'); | |
91 | AddColum n(1, 'Seve rity'); | |
92 | AddColum n(2, 'Sign s/Symptoms '); | |
93 | Collapse Columns; | |
94 | end; | |
95 | ||
96 | destructor TfraCover SheetDispl ayPanel_CP RS_Allergi es.Destroy ; | |
97 | begin | |
98 | ||
99 | inherite d; | |
100 | end; | |
101 | ||
102 | procedure TfraCoverS heetDispla yPanel_CPR S_Allergie s.pmnEnter NewAllergy (Sender: T Object); | |
103 | begin | |
104 | if Enter EditAllerg y(0, True, False, Se lf, -1, Tr ue) then | |
105 | begin | |
106 | Cove rSheet.OnR efreshPane l(Self, CV _CPRS_ALLG ); | |
107 | Cove rSheet.OnR efreshPane l(Self, CV _CPRS_POST ); | |
108 | Cove rSheet.OnR efreshCWAD (Self); | |
109 | end; | |
110 | end; | |
111 | ||
112 | procedure TfraCoverS heetDispla yPanel_CPR S_Allergie s.pmnMarkP tAsNKA(Sen der: TObje ct); | |
113 | begin | |
114 | if Enter NKAForPati ent then | |
115 | begin | |
116 | Cove rSheet.OnR efreshPane l(Self, CV _CPRS_ALLG ); | |
117 | Cove rSheet.OnR efreshPane l(Self, CV _CPRS_POST ); | |
118 | Cove rSheet.OnR efreshCWAD (Self); | |
119 | end; | |
120 | end; | |
121 | ||
122 | procedure TfraCoverS heetDispla yPanel_CPR S_Allergie s.pmnMarkS electedAsE nteredInEr ror(Sender : TObject) ; | |
123 | begin | |
124 | if lvDat a.Selected <> nil th en | |
125 | if lvD ata.Select ed.Data <> nil then | |
126 | with TDelimite dString(lv Data.Selec ted.Data) do | |
127 | if GetPieceA sInteger(1 ) > 0 then | |
128 | if EnterEd itAllergy( GetPieceAs Integer(1) , False, T rue, Self, -1, True) then | |
129 | begin | |
130 | CoverS heet.OnRef reshPanel( Self, CV_C PRS_ALLG); | |
131 | CoverS heet.OnRef reshPanel( Self, CV_C PRS_POST); | |
132 | CoverS heet.OnRef reshCWAD(S ender); | |
133 | end; | |
134 | end; | |
135 | ||
136 | procedure TfraCoverS heetDispla yPanel_CPR S_Allergie s.OnAddIte ms(aList: TStrings); | |
137 | var | |
138 | aRec: TD elimitedSt ring; | |
139 | aStr: st ring; | |
140 | begin | |
141 | try | |
142 | lvData .Items.Beg inUpdate; | |
143 | for aS tr in aLis t do | |
144 | begi n | |
145 | aR ec := TDel imitedStri ng.Create( aStr); | |
146 | ||
147 | if lvData.It ems.Count = 0 then { Executes before any item is a dded } | |
148 | if aRec.Ge tPieceIsNu ll(1) then | |
149 | Collapse Columns | |
150 | else | |
151 | ExpandCo lumns; | |
152 | ||
153 | wi th lvData. Items.Add do | |
154 | begin | |
155 | Caption := MixedCa se(aRec.Ge tPiece(2)) ; | |
156 | SubItems .Add(Mixed Case(aRec. GetPiece(3 ))); | |
157 | SubItems .Add(Mixed Case(aRec. GetPiece(4 ))); | |
158 | Data := aRec; | |
159 | end; | |
160 | end; | |
161 | finally | |
162 | lvData .Items.End Update; | |
163 | end; | |
164 | end; | |
165 | ||
166 | procedure TfraCoverS heetDispla yPanel_CPR S_Allergie s.OnGetDet ail(aRec: TDelimited String; aR esult: TSt rings); | |
167 | begin | |
168 | CallVist A(CPRSPara ms.DetailR PC, [Patie nt.DFN, aR ec.GetPiec e(1)], aRe sult); | |
169 | end; | |
170 | ||
171 | procedure TfraCoverS heetDispla yPanel_CPR S_Allergie s.OnPopupM enu(Sender : TObject) ; | |
172 | var | |
173 | aRec: TD elimitedSt ring; | |
174 | aMsg: st ring; | |
175 | begin | |
176 | inherite d; | |
177 | ||
178 | fEnterNe wAllergy.E nabled := True; | |
179 | fMarkSel ectedAsEnt eredInErro r.Enabled := False; | |
180 | fMarkPtA sNKA.Enabl ed := Fals e; | |
181 | ||
182 | { Edge c ase for Ma rk as NKA and nothin g selected and no as sessment } | |
183 | if lvDat a.Items.Co unt = 1 th en | |
184 | if lvD ata.Items[ 0].Data <> nil then | |
185 | begi n | |
186 | aR ec := TDel imitedStri ng(lvData. Items[0].D ata); | |
187 | fM arkPtAsNKA .Enabled : = aRec.Get PieceEqual s(2, NO_AS SESSMENT); | |
188 | end; | |
189 | ||
190 | if lvDat a.Selected <> nil th en | |
191 | if lvD ata.Select ed.Data <> nil then | |
192 | begi n | |
193 | aR ec := TDel imitedStri ng(lvData. Selected.D ata); | |
194 | if aRec.GetP ieceIsNotN ull(1) and IsARTClin icalUser(a Msg) then | |
195 | begin | |
196 | fMarkSel ectedAsEnt eredInErro r.Enabled := True; | |
197 | end | |
198 | el se if lvDa ta.Selecte d.Index = 0 then | |
199 | fMarkPtAsN KA.Enabled := aRec.G etPieceEqu als(2, NO_ ASSESSMENT ); | |
200 | end; | |
201 | end; | |
202 | ||
203 | procedure TfraCoverS heetDispla yPanel_CPR S_Allergie s.OnPopupM enuFree(Se nder: TObj ect); | |
204 | begin | |
205 | FreeAndN il(fSepara tor); | |
206 | FreeAndN il(fEnterN ewAllergy) ; | |
207 | FreeAndN il(fMarkSe lectedAsEn teredInErr or); | |
208 | FreeAndN il(fMarkPt AsNKA); | |
209 | ||
210 | inherite d; | |
211 | end; | |
212 | ||
213 | procedure TfraCoverS heetDispla yPanel_CPR S_Allergie s.OnPopupM enuInit(Se nder: TObj ect); | |
214 | begin | |
215 | inherite d; | |
216 | ||
217 | fSeparat or := NewL ine; | |
218 | fEnterNe wAllergy : = NewItem( 'Enter New Allergy . ..', 0, Fa lse, False , pmnEnter NewAllergy , 0, 'pmnE nterNewAll ergy'); | |
219 | fMarkSel ectedAsEnt eredInErro r := NewIt em('Mark S elected Al lergy as E ntered in Error ...' , 0, False , False, p mnMarkSele ctedAsEnte redInError , 0, 'pmnM arkSelecte dAllergyAs EnteredInE rror'); | |
220 | fMarkPtA sNKA := Ne wItem('Mar k Patient As Having "No Known Allergies" (NKA) ... ', 0, Fals e, False, pmnMarkPtA sNKA, 0, ' pmnPtAsNKA '); | |
221 | ||
222 | pmn.Item s.Add(fSep arator); | |
223 | pmn.Item s.Add(fEnt erNewAller gy); | |
224 | pmn.Item s.Add(fMar kSelectedA sEnteredIn Error); | |
225 | pmn.Item s.Add(fMar kPtAsNKA); | |
226 | end; | |
227 | ||
228 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.