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\Womens Health | oWVPatient.pas | Wed Dec 12 14:04:42 2018 UTC |
2 | C:\AraxisMergeCompare\Pri_re\CPRS v32 P2 PCE Standardization-redacted\CPRS_32_P2_PCE\OR_30_405V60_SRC\Womens Health | oWVPatient.pas | Fri Apr 12 13:47:16 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 436 |
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 oWVPa tient; | |
2 | { | |
3 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
4 | * | |
5 | * Applicatio n: TDrugs Patch OR* 3*377 and WV*1*24 | |
6 | * Developer: PII | |
7 | * Site: Salt L ake City I SC | |
8 | * | |
9 | * Descriptio n: Object that is c reated via the WVCon troller to maintain | |
10 | * valid WH data du ring the u pdate proc ess in | |
11 | * frmWHP regLacStat usUpdate. Only acces sible as | |
12 | * IWVPat ient inter face. | |
13 | * | |
14 | * Notes: | |
15 | * | |
16 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
17 | } | |
18 | ||
19 | interface | |
20 | ||
21 | uses | |
22 | System.C lasses, | |
23 | System.S ysUtils, | |
24 | iWVInter face; | |
25 | ||
26 | type | |
27 | TWVPatie nt = class (TInterfac edObject, IWVPatient ) | |
28 | private | |
29 | fAbleT oConceive: TWVAbleTo Conceive; | |
30 | fAskFo rLactation Data: bool ean; | |
31 | fAskFo rPregnancy Data: bool ean; | |
32 | fDFN: string; | |
33 | fHyste rectomy: b oolean; | |
34 | fLacta tionStatus : TWVLacta tionStatus ; | |
35 | fLastM enstrualPe riod: TDat eTime; | |
36 | fMenop ause: bool ean; | |
37 | fPregn ancyStatus : TWVPregn ancyStatus ; | |
38 | public | |
39 | constr uctor Crea te(aDFN: s tring); | |
40 | destru ctor Destr oy; overri de; | |
41 | ||
42 | functi on getAble ToConceive : TWVAbleT oConceive; | |
43 | functi on getAble ToConceive AsStr: str ing; | |
44 | functi on getAskF orLactatio nData: boo lean; | |
45 | functi on getAskF orPregnanc yData: boo lean; | |
46 | functi on getDFN: string; | |
47 | functi on getHyst erectomy: boolean; | |
48 | functi on getLact ationStatu s: TWVLact ationStatu s; | |
49 | functi on getLact ationStatu sAsStr: st ring; | |
50 | functi on getLast MenstrualP eriod: TDa teTime; | |
51 | functi on getLast MenstrualP eriodAsStr : string; | |
52 | functi on getMeno pause: boo lean; | |
53 | functi on getPreg nancyStatu s: TWVPreg nancyStatu s; | |
54 | functi on getPreg nancyStatu sAsStr: st ring; | |
55 | functi on getUnab leToConcei veReason: string; | |
56 | ||
57 | proced ure setAbl eToConceiv e(const aV alue: TWVA bleToConce ive); | |
58 | proced ure setAsk ForLactati onData(con st aValue: boolean); | |
59 | proced ure setAsk ForPregnan cyData(con st aValue: boolean); | |
60 | proced ure setDFN (const aVa lue: strin g); | |
61 | proced ure setHys terectomy( const aVal ue: boolea n); | |
62 | proced ure setLac tationStat us(const a Value: TWV LactationS tatus); | |
63 | proced ure setLas tMenstrual Period(con st aValue: TDateTime ); | |
64 | proced ure setMen opause(con st aValue: boolean); | |
65 | proced ure setPre gnancyStat us(const a Value: TWV PregnancyS tatus); | |
66 | end; | |
67 | ||
68 | implementa tion | |
69 | ||
70 | { TWVPatie nt } | |
71 | ||
72 | constructo r TWVPatie nt.Create( aDFN: stri ng); | |
73 | begin | |
74 | inherite d Create; | |
75 | fDFN := aDFN; | |
76 | fAbleToC onceive := atcUnknow n; | |
77 | fPregnan cyStatus : = psUnknow n; | |
78 | fLactati onStatus : = lsUnknow n; | |
79 | fHystere ctomy := F alse; | |
80 | fMenopau se := Fals e; | |
81 | fLastMen strualPeri od := 0; | |
82 | end; | |
83 | ||
84 | destructor TWVPatien t.Destroy; | |
85 | begin | |
86 | inherite d; | |
87 | end; | |
88 | ||
89 | function T WVPatient. getAbleToC onceive: T WVAbleToCo nceive; | |
90 | begin | |
91 | Result : = fAbleToC onceive; | |
92 | end; | |
93 | ||
94 | function T WVPatient. getAbleToC onceiveAsS tr: string ; | |
95 | begin | |
96 | Result : = WV_ABLE_ TO_CONCEIV E[fAbleToC onceive]; | |
97 | end; | |
98 | ||
99 | function T WVPatient. getAskForL actationDa ta: boolea n; | |
100 | begin | |
101 | Result : = fAskForL actationDa ta; | |
102 | end; | |
103 | ||
104 | function T WVPatient. getAskForP regnancyDa ta: boolea n; | |
105 | begin | |
106 | Result : = fAskForP regnancyDa ta; | |
107 | end; | |
108 | ||
109 | function T WVPatient. getDFN: st ring; | |
110 | begin | |
111 | Result : = fDFN; | |
112 | end; | |
113 | ||
114 | function T WVPatient. getHystere ctomy: boo lean; | |
115 | begin | |
116 | Result : = fHystere ctomy; | |
117 | end; | |
118 | ||
119 | function T WVPatient. getLactati onStatus: TWVLactati onStatus; | |
120 | begin | |
121 | Result : = fLactati onStatus; | |
122 | end; | |
123 | ||
124 | function T WVPatient. getLactati onStatusAs Str: strin g; | |
125 | begin | |
126 | Result : = WV_LACTA TION_STATU S[fLactati onStatus]; | |
127 | end; | |
128 | ||
129 | function T WVPatient. getLastMen strualPeri od: TDateT ime; | |
130 | begin | |
131 | Result : = fLastMen strualPeri od; | |
132 | end; | |
133 | ||
134 | function T WVPatient. getLastMen strualPeri odAsStr: s tring; | |
135 | var | |
136 | y, m, d: Word; | |
137 | begin | |
138 | if fLast MenstrualP eriod > 0 then | |
139 | begin | |
140 | Deco deDate(fLa stMenstrua lPeriod, y , m, d); | |
141 | Resu lt := Form at('%3d%.2 d%.2d', [y - 1700, m , d]); | |
142 | end | |
143 | else | |
144 | Result := ''; | |
145 | end; | |
146 | ||
147 | function T WVPatient. getMenopau se: boolea n; | |
148 | begin | |
149 | Result : = fMenopau se; | |
150 | end; | |
151 | ||
152 | function T WVPatient. getPregnan cyStatus: TWVPregnan cyStatus; | |
153 | begin | |
154 | Result : = fPregnan cyStatus; | |
155 | end; | |
156 | ||
157 | function T WVPatient. getPregnan cyStatusAs Str: strin g; | |
158 | begin | |
159 | Result : = WV_PREGN ANCY_STATU S[fPregnan cyStatus]; | |
160 | end; | |
161 | ||
162 | function T WVPatient. getUnableT oConceiveR eason: str ing; | |
163 | begin | |
164 | if fHyst erectomy a nd fMenopa use then | |
165 | Result := 'Hyste rectomy an d Menopaus e' | |
166 | else if fHysterect omy then | |
167 | Result := 'Hyste rectomy' | |
168 | else if fMenopause then | |
169 | Result := 'Menop ause' | |
170 | else | |
171 | Result := ''; | |
172 | end; | |
173 | ||
174 | procedure TWVPatient .setAbleTo Conceive(c onst aValu e: TWVAble ToConceive ); | |
175 | begin | |
176 | fAbleToC onceive := aValue; | |
177 | end; | |
178 | ||
179 | procedure TWVPatient .setAskFor LactationD ata(const aValue: bo olean); | |
180 | begin | |
181 | fAskForL actationDa ta := aVal ue; | |
182 | end; | |
183 | ||
184 | procedure TWVPatient .setAskFor PregnancyD ata(const aValue: bo olean); | |
185 | begin | |
186 | fAskForP regnancyDa ta := aVal ue; | |
187 | end; | |
188 | ||
189 | procedure TWVPatient .setDFN(co nst aValue : string); | |
190 | begin | |
191 | fDFN := aValue; | |
192 | end; | |
193 | ||
194 | procedure TWVPatient .setHyster ectomy(con st aValue: boolean); | |
195 | begin | |
196 | fHystere ctomy := a Value; | |
197 | end; | |
198 | ||
199 | procedure TWVPatient .setLactat ionStatus( const aVal ue: TWVLac tationStat us); | |
200 | begin | |
201 | fLactati onStatus : = aValue; | |
202 | end; | |
203 | ||
204 | procedure TWVPatient .setLastMe nstrualPer iod(const aValue: TD ateTime); | |
205 | begin | |
206 | fLastMen strualPeri od := aVal ue; | |
207 | end; | |
208 | ||
209 | procedure TWVPatient .setMenopa use(const aValue: bo olean); | |
210 | begin | |
211 | fMenopau se := aVal ue; | |
212 | end; | |
213 | ||
214 | procedure TWVPatient .setPregna ncyStatus( const aVal ue: TWVPre gnancyStat us); | |
215 | begin | |
216 | fPregnan cyStatus : = aValue; | |
217 | end; | |
218 | ||
219 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.