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_Vitals.pas | Wed Apr 3 19:32:16 2019 UTC |
2 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | mCoverSheetDisplayPanel_CPRS_Vitals.pas | Thu May 9 00:51:27 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 472 |
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_Vitals ; | |
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: Vitals display p anel for C PRS Covers heet. | |
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_Vitals = class(T fraCoverSh eetDisplay Panel_CPRS ) | |
43 | private | |
44 | fSepar ator: TMen uItem; | |
45 | fUpdat eVitals: T MenuItem; | |
46 | protecte d | |
47 | { Inhe rited even ts - TfraG ridPanel } | |
48 | proced ure OnPopu pMenu(Send er: TObjec t); overri de; | |
49 | proced ure OnPopu pMenuInit( Sender: TO bject); ov erride; | |
50 | proced ure OnPopu pMenuFree( Sender: TO bject); ov erride; | |
51 | ||
52 | { Inhe rited even ts - TfraC overSheetD isplayPane l_CPRS } | |
53 | proced ure OnAddI tems(aList : TStrings ); overrid e; | |
54 | proced ure OnGetD etail(aRec : TDelimit edString; aDetail: T Strings); override; | |
55 | proced ure OnShow Detail(aTe xt: TStrin gs; aTitle : string = ''; aPrin table: boo lean = fal se); overr ide; | |
56 | ||
57 | { Intr oduced Eve nts } | |
58 | proced ure OnUpda teVitals(S ender: TOb ject); vir tual; | |
59 | public | |
60 | constr uctor Crea te(aOwner: TComponen t); overri de; | |
61 | end; | |
62 | ||
63 | var | |
64 | fraCover SheetDispl ayPanel_CP RS_Vitals: TfraCover SheetDispl ayPanel_CP RS_Vitals; | |
65 | ||
66 | implementa tion | |
67 | ||
68 | {$R *.dfm} | |
69 | ||
70 | ||
71 | uses | |
72 | ORFn, | |
73 | ORNet, | |
74 | rMisc, | |
75 | uCore, | |
76 | uVitals; | |
77 | ||
78 | { TfraCove rSheetDisp layPanel_C PRS_Vitals } | |
79 | ||
80 | constructo r TfraCove rSheetDisp layPanel_C PRS_Vitals .Create(aO wner: TCom ponent); | |
81 | begin | |
82 | inherite d; | |
83 | AddColum n(0, 'Vita l'); | |
84 | AddColum n(1, 'Valu e'); | |
85 | AddColum n(2, 'Date Taken'); | |
86 | AddColum n(3, 'Conv . Value'); | |
87 | AddColum n(4, 'Qual s'); | |
88 | Collapse Columns; | |
89 | end; | |
90 | ||
91 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu (Sender: T Object); | |
92 | begin | |
93 | inherite d; | |
94 | ||
95 | fUpdateV itals.Enab led := Tru e; | |
96 | end; | |
97 | ||
98 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu Free(Sende r: TObject ); | |
99 | begin | |
100 | FreeAndN il(fSepara tor); | |
101 | FreeAndN il(fUpdate Vitals); | |
102 | ||
103 | inherite d; | |
104 | end; | |
105 | ||
106 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu Init(Sende r: TObject ); | |
107 | begin | |
108 | inherite d; | |
109 | ||
110 | fSeparat or := NewL ine; | |
111 | fUpdateV itals := N ewItem('Up date Vital s ...', 0, False, Tr ue, OnUpda teVitals, 0, 'pmnVit als_Update Vitals'); | |
112 | ||
113 | pmn.Item s.Add(fSep arator); | |
114 | pmn.Item s.Add(fUpd ateVitals) ; | |
115 | end; | |
116 | ||
117 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nShowDetai l(aText: T Strings; aTitle: st ring; aPri ntable: bo olean); | |
118 | begin | |
119 | // Trick ing the UI to go to Vitals Lit e when sin gle clicke d | |
120 | OnUpdate Vitals(lvD ata); | |
121 | end; | |
122 | ||
123 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nUpdateVit als(Sender : TObject) ; | |
124 | var | |
125 | aFunctio nAddr: TGM V_VitalsVi ewForm; | |
126 | aFunctio nName: Ans iString; | |
127 | aRtnRec: TDllRtnRe c; | |
128 | aStartDa te: string ; | |
129 | aVitalsA bbv: strin g; | |
130 | begin | |
131 | { Availb le Forms: | |
132 | GMV_FN ame :='GMV _VitalsEnt erDLG'; | |
133 | GMV_FN ame :='GMV _VitalsEnt erForm'; | |
134 | GMV_FN ame :='GMV _VitalsVie wForm'; | |
135 | GMV_FN ame :='GMV _VitalsVie wDLG'; | |
136 | } | |
137 | lvData.E nabled := false; | |
138 | try | |
139 | try | |
140 | aFun ctionName := 'GMV_Vi talsViewDL G'; | |
141 | aRtn Rec := Loa dVitalsDLL ; | |
142 | ||
143 | case aRtnRec.R eturn_Type of | |
144 | DL L_Success: | |
145 | try | |
146 | @aFuncti onAddr := GetProcAdd ress(Vital sDLLHandle , PAnsiCha r(aFunctio nName)); | |
147 | if Assig ned(aFunct ionAddr) t hen | |
148 | begin | |
149 | if P atient.Inp atient the n | |
150 | aS tartDate : = FormatDa teTime('mm /dd/yy', N ow - 7) | |
151 | else | |
152 | aS tartDate : = FormatDa teTime('mm /dd/yy', I ncMonth(No w, -6)); | |
153 | ||
154 | if l vData.Sele cted <> ni l then | |
155 | aV italsAbbv := lvData. Selected.C aption | |
156 | else | |
157 | aV italsAbbv := ''; | |
158 | ||
159 | aFun ctionAddr( RPCBrokerV , Patient. DFN, IntTo Str(Encoun ter.Locati on), aStar tDate, For matDateTim e('mm/dd/y y', Now), GMV_APP_SI GNATURE, G MV_CONTEXT , GMV_CONT EXT, Patie nt.Name, F ormat('%s %d', [P atient.SSN , Patient. Age]), | |
160 | En counter.Lo cationName + U + aVi talsAbbv); | |
161 | end | |
162 | else | |
163 | Messag eDLG('Can' 't find fu nction "GM V_VitalsVi ewDLG".', mtError, [ mbok], 0); | |
164 | except | |
165 | on E: Ex ception do | |
166 | Messag eDLG('Erro r running Vitals Lit e: ' + E.M essage, mt Error, [mb ok], 0); | |
167 | end; | |
168 | DL L_Missing: | |
169 | begin | |
170 | TaskMess ageDlg('Fi le Missing or Invali d', aRtnRe c.Return_M essage, mt Error, [mb ok], 0); | |
171 | end; | |
172 | DL L_VersionE rr: | |
173 | begin | |
174 | TaskMess ageDlg('In correct Ve rsion Foun d', aRtnRe c.Return_M essage, mt Error, [mb ok], 0); | |
175 | end; | |
176 | end; | |
177 | finall y | |
178 | @aFu nctionAddr := nil; | |
179 | Unlo adVitalsDL L; | |
180 | end; | |
181 | ||
182 | CoverS heet.OnRef reshPanel( Self, CV_C PRS_VITL); | |
183 | CoverS heet.OnRef reshPanel( Self, CV_C PRS_RMND); | |
184 | finally | |
185 | lvData .Enabled : = True; | |
186 | end; | |
187 | end; | |
188 | ||
189 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nAddItems( aList: TSt rings); | |
190 | var | |
191 | aRec: TD elimitedSt ring; | |
192 | aStr: st ring; | |
193 | begin | |
194 | if aList .Count = 0 then | |
195 | aList. Add('^No V itals Foun d.'); | |
196 | ||
197 | try | |
198 | lvData .Items.Beg inUpdate; | |
199 | for aS tr in aLis t do | |
200 | begi n | |
201 | aR ec := TDel imitedStri ng.Create( aStr); | |
202 | ||
203 | if lvData.It ems.Count = 0 then | |
204 | if aRec.Ge tPieceIsNu ll(1) and (aList.Cou nt = 1) th en | |
205 | Collapse Columns | |
206 | else | |
207 | ExpandCo lumns; | |
208 | ||
209 | wi th lvData. Items.Add do | |
210 | begin | |
211 | Caption := aRec.Ge tPiece(2); | |
212 | SubItems .Add(aRec. GetPiece(5 )); | |
213 | SubItems .Add(Forma tDateTime( DT_FORMAT, aRec.GetP ieceAsTDat eTime(4))) ; | |
214 | SubItems .Add(aRec. GetPiece(6 )); | |
215 | SubItems .Add(aRec. GetPiece(7 )); | |
216 | Data := aRec; | |
217 | end; | |
218 | end; | |
219 | finally | |
220 | lvData .Items.End Update; | |
221 | end; | |
222 | end; | |
223 | ||
224 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nGetDetail (aRec: TDe limitedStr ing; aDeta il: TStrin gs); | |
225 | var | |
226 | aDateTim e: TDateTi me; | |
227 | begin | |
228 | aDateTim e := FMDat eTimeToDat eTime(aRec .GetPieceA sDouble(4) ); | |
229 | aDetail. Clear; | |
230 | aDetail. Add(Format ('%s %s', ['Vital .. ........', aRec.GetP ieceAsStri ng(2)])); | |
231 | aDetail. Add(Format ('%s %s', ['Date/Tim e ......', FormatDat eTime('MMM DD, YYYY@ hh:mm', aD ateTime)]) ); | |
232 | aDetail. Add(Format ('%s %s', ['Value .. ........', aRec.GetP ieceAsStri ng(5)])); | |
233 | aDetail. Add(Format ('%s %s', ['Conv. Va lue ....', aRec.GetP ieceAsStri ng(6)])); | |
234 | aDetail. Add(Format ('%s %s', ['Qualifie rs .....', aRec.GetP ieceAsStri ng(7)])); | |
235 | end; | |
236 | ||
237 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.