Produced by Araxis Merge on 4/16/2019 12:20:47 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 | oCoverSheetParam_CPRS.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 | oCoverSheetParam_CPRS.pas | Fri Apr 12 13:42:24 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 426 |
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 oCove rSheetPara m_CPRS; | |
2 | ||
3 | { | |
4 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
5 | * | |
6 | * Applicatio n: CPRS - CoverShee t | |
7 | * Developer: PII | |
8 | * Site: Salt L ake City I SC | |
9 | * Date: 2015-1 2-04 | |
10 | * | |
11 | * Descriptio n: Inheri ted from T CoverSheet Param this parameter holds | |
12 | * custom items for displayin g CPRS dat a in the C overSheet. | |
13 | * | |
14 | * Notes: | |
15 | * | |
16 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
17 | } | |
18 | interface | |
19 | ||
20 | uses | |
21 | System.C lasses, | |
22 | System.S ysUtils, | |
23 | Vcl.Cont rols, | |
24 | oCoverSh eetParam, | |
25 | iCoverSh eetIntf; | |
26 | ||
27 | type | |
28 | TCoverSh eetParam_C PRS = clas s(TCoverSh eetParam, ICoverShee tParam_CPR S) | |
29 | private | |
30 | fLoadI nBackgroun d: boolean ; | |
31 | fDateF ormat: str ing; | |
32 | fDateP iece: inte ger; | |
33 | fDetai lRPC: stri ng; | |
34 | fInver t: boolean ; | |
35 | fMainR PC: string ; | |
36 | fParam 1: string; | |
37 | fStatu s: string; | |
38 | fTitle Case: bool ean; | |
39 | fPolli ngID: stri ng; | |
40 | fHighl ightText: boolean; | |
41 | fAllow DetailPrin t: boolean ; | |
42 | protecte d | |
43 | functi on getLoad InBackgrou nd: boolea n; virtual ; | |
44 | functi on getDate Format: st ring; virt ual; | |
45 | functi on getDate Piece: int eger; virt ual; | |
46 | functi on getDeta ilRPC: str ing; virtu al; | |
47 | functi on getInve rt: boolea n; virtual ; | |
48 | functi on getMain RPC: strin g; virtual ; | |
49 | functi on getPara m1: string ; virtual; | |
50 | functi on getStat us: string ; virtual; | |
51 | functi on getTitl eCase: boo lean; virt ual; | |
52 | functi on getPoll ingID: str ing; virtu al; | |
53 | functi on getHigh lightText: boolean; virtual; | |
54 | functi on getAllo wDetailPri nt: boolea n; virtual ; | |
55 | ||
56 | proced ure setLoa dInBackgro und(const aValue: bo olean); | |
57 | proced ure setAll owDetailPr int(const aValue: bo olean); | |
58 | proced ure setPar am1(const aValue: st ring); | |
59 | ||
60 | functi on NewCove rSheetCont rol(aOwner : TCompone nt): TCont rol; overr ide; | |
61 | public | |
62 | constr uctor Crea te(aInitSt ring: stri ng); | |
63 | destru ctor Destr oy; overri de; | |
64 | end; | |
65 | ||
66 | implementa tion | |
67 | ||
68 | uses | |
69 | oDelimit edString, | |
70 | mCoverSh eetDisplay Panel_CPRS ; | |
71 | ||
72 | { TCoverSh eetParam_C PRS } | |
73 | ||
74 | constructo r TCoverSh eetParam_C PRS.Create (aInitStri ng: string ); | |
75 | begin | |
76 | inherite d Create; | |
77 | ||
78 | with New DelimitedS tring(aIni tString) d o | |
79 | try | |
80 | fID := GetPiec eAsInteger (1); | |
81 | fTit le := GetP iece(2); | |
82 | fSta tus := Get Piece(3); | |
83 | fMai nRPC := Ge tPiece(6); | |
84 | fInv ert := Get PieceAsBoo lean(8, Fa lse); | |
85 | fDat eFormat := GetPiece( 10); | |
86 | fDat ePiece := GetPieceAs Integer(11 , 0); | |
87 | fPar am1 := Get Piece(12); | |
88 | fDet ailRPC := GetPiece(1 6); | |
89 | fTit leCase := GetPieceAs Boolean(7) ; | |
90 | fHig hlightText := GetPie ceIsNotNul l(9); | |
91 | fAll owDetailPr int := Fal se; | |
92 | case fID of | |
93 | 10 : | |
94 | fPollingID := 'PROB' ; // Activ e Problems | |
95 | 30 : | |
96 | fPollingID := 'CWAD' ; // Posti ngs | |
97 | 40 : | |
98 | fPollingID := 'MEDS' ; // Medic ations | |
99 | 50 : | |
100 | fPollingID := 'RMND' ; // Clini cal Remind ers | |
101 | 60 : | |
102 | fPollingID := 'LABS' ; // Recen t Lab Resu lts | |
103 | 70 : | |
104 | fPollingID := 'VITL' ; // Vital s | |
105 | 80 : | |
106 | fPollingID := 'VSIT' ; // Appoi ntments | |
107 | else | |
108 | fP ollingID : = ''; | |
109 | end; | |
110 | finall y | |
111 | Free ; | |
112 | end; | |
113 | { | |
114 | Exampl e of aInit String fro m VistA | |
115 | ||
116 | ZZZ(0) ="99^Women 's Health^ ^S^^WVRPCO R COVER^1^ ^^^^^^20^2 ,3^WVRPCOR DETAIL^1^ 1606" | |
117 | ZZZ(1) ="70^Vital s^^S^^ORQQ VI VITALS^ ^^^T^4^^^5 ,17,19,27^ 2,5,4,6,7, 8^^1.1^34" | |
118 | ZZZ(2) ="80^Appoi ntments/Vi sits/Admis sions^^S^^ ORWCV VST^ 1^1^^T^2^^ ^16,27^2,3 ,4^ORWCV D TLVST^2^35 " | |
119 | ZZZ(3) ="10^Activ e Problems ^^S^^ORQQP L LIST^1^^ ^^^A^^2,3^ 9,10,2^ORQ QPL DETAIL ^3^28" | |
120 | ZZZ(4) ="20^Aller gies / Adv erse React ions^^S^^O RQQAL LIST ^1^^^^^^^^ 2^ORQQAL D ETAIL^4^29 " | |
121 | ZZZ(5) ="30^Posti ngs^^S^^OR QQPP LIST^ 1^^Maroon^ D^3^^^20^2 ,3^^5^30" | |
122 | ZZZ(6) ="40^Activ e Medicati ons^^S^^OR WPS COVER^ 1^1^^^^1^^ 35^2,4^ORW PS DETAIL^ 6^31" | |
123 | ZZZ(7) ="50^Clini cal Remind ers Due Dat e^^S^^ORQQ PX REMINDE RS LIST^^^ ^D^3^^^34, 44^2,3^^7^ 32" | |
124 | ZZZ(8) ="60^Recen t Lab Resu lts^^S^^OR WCV LAB^1^ ^^D^3^^^34 ^2,3^ORWOR RESULT^8^ 33" | |
125 | ZZZ(9) ="90^Recen t Immuniza tions^^S^^ ORQQPX IMM UN LIST^1^ ^Purple^T^ 3^^^15,35^ 2,4,3^ORWC V DTLVST^9 ^1138" | |
126 | } | |
127 | end; | |
128 | ||
129 | destructor TCoverShe etParam_CP RS.Destroy ; | |
130 | begin | |
131 | inherite d; | |
132 | end; | |
133 | ||
134 | function T CoverSheet Param_CPRS .getLoadIn Background : boolean; | |
135 | begin | |
136 | Result : = fLoadInB ackground; | |
137 | end; | |
138 | ||
139 | function T CoverSheet Param_CPRS .getAllowD etailPrint : boolean; | |
140 | begin | |
141 | Result : = fAllowDe tailPrint; | |
142 | end; | |
143 | ||
144 | function T CoverSheet Param_CPRS .getDateFo rmat: stri ng; | |
145 | begin | |
146 | Result : = fDateFor mat; | |
147 | end; | |
148 | ||
149 | function T CoverSheet Param_CPRS .getDatePi ece: integ er; | |
150 | begin | |
151 | Result : = fDatePie ce; | |
152 | end; | |
153 | ||
154 | function T CoverSheet Param_CPRS .getDetail RPC: strin g; | |
155 | begin | |
156 | Result : = fDetailR PC; | |
157 | end; | |
158 | ||
159 | function T CoverSheet Param_CPRS .getHighli ghtText: b oolean; | |
160 | begin | |
161 | Result : = fHighlig htText; | |
162 | end; | |
163 | ||
164 | function T CoverSheet Param_CPRS .getInvert : boolean; | |
165 | begin | |
166 | Result : = fInvert; | |
167 | end; | |
168 | ||
169 | function T CoverSheet Param_CPRS .getMainRP C: string; | |
170 | begin | |
171 | Result : = fMainRPC ; | |
172 | end; | |
173 | ||
174 | function T CoverSheet Param_CPRS .getParam1 : string; | |
175 | begin | |
176 | Result : = fParam1; | |
177 | end; | |
178 | ||
179 | function T CoverSheet Param_CPRS .getPollin gID: strin g; | |
180 | begin | |
181 | Result : = fPolling ID; | |
182 | end; | |
183 | ||
184 | function T CoverSheet Param_CPRS .getStatus : string; | |
185 | begin | |
186 | Result : = fStatus; | |
187 | end; | |
188 | ||
189 | function T CoverSheet Param_CPRS .getTitleC ase: boole an; | |
190 | begin | |
191 | Result : = fTitleCa se; | |
192 | end; | |
193 | ||
194 | function T CoverSheet Param_CPRS .NewCoverS heetContro l(aOwner: TComponent ): TContro l; | |
195 | begin | |
196 | Result : = TfraCove rSheetDisp layPanel_C PRS.Create (aOwner); | |
197 | end; | |
198 | ||
199 | procedure TCoverShee tParam_CPR S.setAllow DetailPrin t(const aV alue: bool ean); | |
200 | begin | |
201 | fAllowDe tailPrint := aValue; | |
202 | end; | |
203 | ||
204 | procedure TCoverShee tParam_CPR S.setLoadI nBackgroun d(const aV alue: bool ean); | |
205 | begin | |
206 | fLoadInB ackground := aValue; | |
207 | end; | |
208 | ||
209 | procedure TCoverShee tParam_CPR S.setParam 1(const aV alue: stri ng); | |
210 | begin | |
211 | fParam1 := aValue; | |
212 | end; | |
213 | ||
214 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.