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_Vitals.pas | Wed Dec 12 14:04:36 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_Vitals.pas | Fri Apr 12 13:42:16 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 434 |
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 | ||
56 | { Intr oduced Eve nts } | |
57 | proced ure OnUpda teVitals(S ender: TOb ject); vir tual; | |
58 | public | |
59 | constr uctor Crea te(aOwner: TComponen t); overri de; | |
60 | end; | |
61 | ||
62 | var | |
63 | fraCover SheetDispl ayPanel_CP RS_Vitals: TfraCover SheetDispl ayPanel_CP RS_Vitals; | |
64 | ||
65 | implementa tion | |
66 | ||
67 | {$R *.dfm} | |
68 | ||
69 | ||
70 | uses | |
71 | ORFn, | |
72 | ORNet, | |
73 | rMisc, | |
74 | uCore, | |
75 | uVitals; | |
76 | ||
77 | { TfraCove rSheetDisp layPanel_C PRS_Vitals } | |
78 | ||
79 | constructo r TfraCove rSheetDisp layPanel_C PRS_Vitals .Create(aO wner: TCom ponent); | |
80 | begin | |
81 | inherite d; | |
82 | AddColum n(0, 'Vita l'); | |
83 | AddColum n(1, 'Valu e'); | |
84 | AddColum n(2, 'Date Taken'); | |
85 | AddColum n(3, 'Conv . Value'); | |
86 | AddColum n(4, 'Qual s'); | |
87 | Collapse Columns; | |
88 | end; | |
89 | ||
90 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu (Sender: T Object); | |
91 | begin | |
92 | inherite d; | |
93 | ||
94 | fUpdateV itals.Enab led := Tru e; | |
95 | end; | |
96 | ||
97 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu Free(Sende r: TObject ); | |
98 | begin | |
99 | FreeAndN il(fSepara tor); | |
100 | FreeAndN il(fUpdate Vitals); | |
101 | ||
102 | inherite d; | |
103 | end; | |
104 | ||
105 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nPopupMenu Init(Sende r: TObject ); | |
106 | begin | |
107 | inherite d; | |
108 | ||
109 | fSeparat or := NewL ine; | |
110 | fUpdateV itals := N ewItem('Up date Vital s ...', 0, False, Tr ue, OnUpda teVitals, 0, 'pmnVit als_Update Vitals'); | |
111 | ||
112 | pmn.Item s.Add(fSep arator); | |
113 | pmn.Item s.Add(fUpd ateVitals) ; | |
114 | end; | |
115 | ||
116 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nUpdateVit als(Sender : TObject) ; | |
117 | var | |
118 | aFunctio nAddr: TGM V_VitalsVi ewForm; | |
119 | aFunctio nName: Ans iString; | |
120 | aRtnRec: TDllRtnRe c; | |
121 | aStartDa te: string ; | |
122 | begin | |
123 | { Availb le Forms: | |
124 | GMV_FN ame :='GMV _VitalsEnt erDLG'; | |
125 | GMV_FN ame :='GMV _VitalsEnt erForm'; | |
126 | GMV_FN ame :='GMV _VitalsVie wForm'; | |
127 | GMV_FN ame :='GMV _VitalsVie wDLG'; | |
128 | } | |
129 | try | |
130 | aFunct ionName := 'GMV_Vita lsViewDLG' ; | |
131 | aRtnRe c := LoadV italsDLL; | |
132 | ||
133 | case a RtnRec.Ret urn_Type o f | |
134 | DLL_ Success: | |
135 | tr y | |
136 | @aFunction Addr := Ge tProcAddre ss(VitalsD LLHandle, PAnsiChar( aFunctionN ame)); | |
137 | if Assigne d(aFunctio nAddr) the n | |
138 | begin | |
139 | if Pat ient.Inpat ient then | |
140 | aSta rtDate := FormatDate Time('mm/d d/yy', Now - 7) | |
141 | else | |
142 | aSta rtDate := FormatDate Time('mm/d d/yy', Inc Month(Now, -6)); | |
143 | ||
144 | aFunct ionAddr(RP CBrokerV, Patient.DF N, IntToSt r(Encounte r.Location ), aStartD ate, Forma tDateTime( 'mm/dd/yy' , Now), GM V_APP_SIGN ATURE, GMV _CONTEXT, GMV_CONTEX T, Patient .Name, For mat('%s %d', [Pat ient.SSN, Patient.Ag e]), Encou nter.Locat ionName + U); | |
145 | end | |
146 | else | |
147 | MessageD LG('Can''t find func tion "GMV_ VitalsView DLG".', mt Error, [mb ok], 0); | |
148 | ex cept | |
149 | on E: Exce ption do | |
150 | MessageD LG('Error running Vi tals Lite: ' + E.Mes sage, mtEr ror, [mbok ], 0); | |
151 | en d; | |
152 | DLL_ Missing: | |
153 | be gin | |
154 | TaskMessag eDlg('File Missing o r Invalid' , aRtnRec. Return_Mes sage, mtEr ror, [mbok ], 0); | |
155 | en d; | |
156 | DLL_ VersionErr : | |
157 | be gin | |
158 | TaskMessag eDlg('Inco rrect Vers ion Found' , aRtnRec. Return_Mes sage, mtEr ror, [mbok ], 0); | |
159 | en d; | |
160 | end; | |
161 | finally | |
162 | @aFunc tionAddr : = nil; | |
163 | Unload VitalsDLL; | |
164 | end; | |
165 | ||
166 | CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_VITL); | |
167 | CoverShe et.OnRefre shPanel(Se lf, CV_CPR S_RMND); | |
168 | end; | |
169 | ||
170 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nAddItems( aList: TSt rings); | |
171 | var | |
172 | aRec: TD elimitedSt ring; | |
173 | aStr: st ring; | |
174 | begin | |
175 | if aList .Count = 0 then | |
176 | aList. Add('^No V itals Foun d.'); | |
177 | ||
178 | try | |
179 | lvData .Items.Beg inUpdate; | |
180 | for aS tr in aLis t do | |
181 | begi n | |
182 | aR ec := TDel imitedStri ng.Create( aStr); | |
183 | ||
184 | if lvData.It ems.Count = 0 then | |
185 | if aRec.Ge tPieceIsNu ll(1) and (aList.Cou nt = 1) th en | |
186 | Collapse Columns | |
187 | else | |
188 | ExpandCo lumns; | |
189 | ||
190 | wi th lvData. Items.Add do | |
191 | begin | |
192 | Caption := aRec.Ge tPiece(2); | |
193 | SubItems .Add(aRec. GetPiece(5 )); | |
194 | SubItems .Add(Forma tDateTime( DT_FORMAT, aRec.GetP ieceAsTDat eTime(4))) ; | |
195 | SubItems .Add(aRec. GetPiece(6 )); | |
196 | SubItems .Add(aRec. GetPiece(7 )); | |
197 | Data := aRec; | |
198 | end; | |
199 | end; | |
200 | finally | |
201 | lvData .Items.End Update; | |
202 | end; | |
203 | end; | |
204 | ||
205 | procedure TfraCoverS heetDispla yPanel_CPR S_Vitals.O nGetDetail (aRec: TDe limitedStr ing; aDeta il: TStrin gs); | |
206 | var | |
207 | aDateTim e: TDateTi me; | |
208 | begin | |
209 | aDateTim e := FMDat eTimeToDat eTime(aRec .GetPieceA sDouble(4) ); | |
210 | aDetail. Clear; | |
211 | aDetail. Add(Format ('%s %s', ['Vital .. ........', aRec.GetP ieceAsStri ng(2)])); | |
212 | aDetail. Add(Format ('%s %s', ['Date/Tim e ......', FormatDat eTime('MMM DD, YYYY@ hh:mm', aD ateTime)]) ); | |
213 | aDetail. Add(Format ('%s %s', ['Value .. ........', aRec.GetP ieceAsStri ng(5)])); | |
214 | aDetail. Add(Format ('%s %s', ['Conv. Va lue ....', aRec.GetP ieceAsStri ng(6)])); | |
215 | aDetail. Add(Format ('%s %s', ['Qualifie rs .....', aRec.GetP ieceAsStri ng(7)])); | |
216 | end; | |
217 | ||
218 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.