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_Immunizations.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_Immunizations.pas | Fri Apr 12 13:42:12 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 358 |
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_Immuni zations; | |
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: Covers heet panel for immun izations. | |
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 | mCoverSh eetDisplay Panel_CPRS , | |
37 | iCoverSh eetIntf; | |
38 | ||
39 | type | |
40 | TfraCove rSheetDisp layPanel_C PRS_Immuni zations = class(Tfra CoverSheet DisplayPan el_CPRS) | |
41 | private | |
42 | { Priv ate declar ations } | |
43 | fEnter Immunizati on: TMenuI tem; | |
44 | proced ure pmnEnt erNewImmun ization(Se nder: TObj ect); | |
45 | protecte d | |
46 | { Over idden even ts - TfraC overSheetD isplayPane l_CPRS } | |
47 | proced ure OnAddI tems(aList : TStrings ); overrid e; | |
48 | proced ure OnPopu pMenu(Send er: TObjec t); overri de; | |
49 | proced ure OnPopu pMenuFree( Sender: TO bject); ov erride; | |
50 | proced ure OnPopu pMenuInit( Sender: TO bject); ov erride; | |
51 | public | |
52 | constr uctor Crea te(aOwner: TComponen t); overri de; | |
53 | end; | |
54 | ||
55 | var | |
56 | fraCover SheetDispl ayPanel_CP RS_Immuniz ations: Tf raCoverShe etDisplayP anel_CPRS_ Immunizati ons; | |
57 | ||
58 | implementa tion | |
59 | ||
60 | {$R *.dfm} | |
61 | ||
62 | ||
63 | uses | |
64 | ORFn, | |
65 | oDelimit edString, | |
66 | uCore, | |
67 | fVimm, | |
68 | rVimm; | |
69 | ||
70 | { TfraCove rSheetDisp layPanel_C PRS_Immuni zations } | |
71 | ||
72 | constructo r TfraCove rSheetDisp layPanel_C PRS_Immuni zations.Cr eate(aOwne r: TCompon ent); | |
73 | begin | |
74 | inherite d; | |
75 | AddColum n(0, 'Immu nization') ; | |
76 | AddColum n(1, 'Reac tion'); | |
77 | AddColum n(2, 'Date /Time'); | |
78 | Collapse Columns; | |
79 | fAllowDe tailDispla y := False ; | |
80 | end; | |
81 | ||
82 | procedure TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnAd dItems(aLi st: TStrin gs); | |
83 | var | |
84 | aRec: TD elimitedSt ring; | |
85 | aStr: st ring; | |
86 | begin | |
87 | try | |
88 | lvData .Items.Beg inUpdate; | |
89 | ||
90 | for aS tr in aLis t do | |
91 | begi n | |
92 | aR ec := TDel imitedStri ng.Create( aStr); | |
93 | ||
94 | if lvData.It ems.Count = 0 then { Executes before any item is a dded } | |
95 | if aRec.Ge tPieceIsNu ll(1) and (aList.Cou nt = 1) th en | |
96 | Collapse Columns | |
97 | else | |
98 | ExpandCo lumns; | |
99 | ||
100 | wi th lvData. Items.Add do | |
101 | begin | |
102 | Caption := MixedCa se(aRec.Ge tPiece(2)) ; | |
103 | if aRec. GetPiece(1 ) <> '' th en | |
104 | begin | |
105 | SubI tems.Add(M ixedCase(a Rec.GetPie ce(4))); | |
106 | SubI tems.Add(a Rec.GetPie ceAsFMDate TimeStr(3) ); | |
107 | end; | |
108 | Data := aRec; | |
109 | end; | |
110 | end; | |
111 | finally | |
112 | lvData .Items.End Update; | |
113 | end; | |
114 | end; | |
115 | ||
116 | procedure TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnPo pupMenu( | |
117 | Sender: TObject); | |
118 | begin | |
119 | inherite d; | |
120 | fEnterIm munization .enabled : = true; | |
121 | end; | |
122 | ||
123 | procedure TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnPo pupMenuFre e( | |
124 | Sender: TObject); | |
125 | begin | |
126 | inherite d; | |
127 | FreeAnd Nil(fEnter Immunizati on); | |
128 | end; | |
129 | ||
130 | procedure TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.OnPo pupMenuIni t( | |
131 | Sender: TObject); | |
132 | begin | |
133 | inherite d; | |
134 | fEnterIm munization := NewIte m('Enter N ew Immuniz ation ...' , 0, False , False, p mnEnterNew Immunizati on, 0, 'pm nEnterNewI mmunizatio n'); | |
135 | pmn.Item s.Add(NewI tem('-', 0 , False, F alse, nil, 0, 'pmnIm munization _Separator ')); | |
136 | pmn.Item s.Add(fEnt erImmuniza tion); | |
137 | end; | |
138 | ||
139 | procedure TfraCoverS heetDispla yPanel_CPR S_Immuniza tions.pmnE nterNewImm unization( | |
140 | Sender: TObject); | |
141 | var | |
142 | resultList : TStringL ist; | |
143 | noteStr: S tring; | |
144 | ||
145 | begin | |
146 | resultLi st := TStr ingList.cr eate; | |
147 | try | |
148 | uvimmInp uts.noGrid := false; | |
149 | uvimmInp uts.makeNo te := true ; | |
150 | uvimmInp uts.collap seICE := f alse; | |
151 | uvimminp uts.canSav eData := t rue; | |
152 | uvimmInp uts.patien tName := p atient.Nam e; | |
153 | uvimmInp uts.patien tIEN := pa tient.DFN; | |
154 | uvimmInp uts.userNa me := user .Name; | |
155 | uvimmInp uts.userIE N := user. DUZ; | |
156 | uvimmInp uts.encoun terProvide rName := e ncounter.P roviderNam e; | |
157 | uvimmInp uts.encoun terProvide rIEN := en counter.Pr ovider; | |
158 | uvimmInp uts.encoun terLocatio n := encou nter.Locat ion; | |
159 | uvimmInp uts.encoun terCategor y := encou nter.Visit Category; | |
160 | uvimmInp uts.dateEn counterDat eTime := e ncounter.D ateTime; | |
161 | uvimmInp uts.visitS tring := e ncounter.V isitStr; | |
162 | uvimmInp uts.startI nEditMode := true; | |
163 | // uvimmI nputs.isFr omEncounte r := false ; | |
164 | uvimmInp uts.isSkin Test := fa lse; | |
165 | uVimmInp uts.immuni zationRead ing := fal se; | |
166 | uVimmInp uts.select ionType := 'all'; | |
167 | ||
168 | if perfo rmVimm(res ultList, t rue) then CoverSheet .OnRefresh Panel(Self , CV_CPRS_ IMMU); | |
169 | clearInp uts; | |
170 | if resul tList.Coun t = 1 then | |
171 | begin | |
172 | note Str := res ultList.St rings[0]; | |
173 | Chan ges.Add(10 , Piece(no teStr, U, 1), Piece( noteStr, U , 2), '', 1); | |
174 | end; | |
175 | finally | |
176 | FreeAn dNil(resul tList); | |
177 | end; | |
178 | end; | |
179 | ||
180 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.