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 | iWVInterface.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 | iWVInterface.pas | Fri Apr 12 13:47:14 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 184 |
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 iWVIn terface; | |
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: Main i nterface u nit for ot her applic ations to use. | |
10 | * | |
11 | * Notes: | |
12 | * | |
13 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
14 | } | |
15 | ||
16 | interface | |
17 | ||
18 | uses | |
19 | System.C lasses; | |
20 | ||
21 | type | |
22 | TWVAbleT oConceive = (atcUnkn own, atcYe s, atcNo); | |
23 | TWVLacta tionStatus = (lsUnkn own, lsYes , lsNo); | |
24 | TWVPregn ancyStatus = (psUnkn own, psYes , psNo, ps Unsure); | |
25 | ||
26 | IWVContr oller = in terface; | |
27 | IWVPatie nt = inter face; | |
28 | IWVWebSi te = inter face; | |
29 | ||
30 | IWVContr oller = in terface(II nterface) | |
31 | ['{46C CE409-CE72 -4157-8876 -BF169BEE3 15F}'] | |
32 | functi on getWebS ite(aIndex : integer) : IWVWebSi te; | |
33 | functi on getWebS iteCount: integer; | |
34 | functi on getWebS iteListNam e: string; | |
35 | ||
36 | functi on EditPre gLacData(a DFN: strin g): boolea n; | |
37 | functi on SavePre gnancyAndL actationDa ta(aList: TStrings): boolean; | |
38 | functi on MarkAsE nteredInEr ror(aItemI D: string) : boolean; | |
39 | functi on InitCon troller(aF orceInit: boolean = False): bo olean; | |
40 | functi on IsValid WVPatient( aDFN: stri ng): boole an; | |
41 | functi on GetReco rdIDType(a RecordID: string; va r aType: s tring): bo olean; | |
42 | functi on GetLast Error: str ing; | |
43 | functi on GetWebS iteURL(aWe bSiteName: string): string; | |
44 | functi on OpenExt ernalWebsi te(aWebSit e: IWVWebS ite): bool ean; | |
45 | ||
46 | proper ty WebSite [aIndex: i nteger]: I WVWebSite read getWe bSite; | |
47 | proper ty WebSite Count: int eger read getWebSite Count; | |
48 | proper ty WebSite ListName: string rea d getWebSi teListName ; | |
49 | end; | |
50 | ||
51 | IWVPatie nt = inter face(IInte rface) | |
52 | ['{B99 012A3-5DE8 -4AEF-9D78 -E15C11BF8 017}'] | |
53 | functi on getDFN: string; | |
54 | ||
55 | proced ure setDFN (const aVa lue: strin g); | |
56 | ||
57 | proper ty DFN: st ring read getDFN wri te setDFN; | |
58 | end; | |
59 | ||
60 | IWVWebSi te = inter face(IInte rface) | |
61 | ['{FB8 01C45-686F -4994-9326 -10A32E84C C45}'] | |
62 | functi on GetName : string; | |
63 | functi on GetURL: string; | |
64 | ||
65 | proper ty Name: s tring read GetName; | |
66 | proper ty URL: st ring read GetURL; | |
67 | end; | |
68 | ||
69 | const | |
70 | WV_ABLE_ TO_CONCEIV E: array [ TWVAbleToC onceive] o f string = ('Unknown ', 'Yes', 'No'); | |
71 | WV_LACTA TION_STATU S: array [ TWVLactati onStatus] of string = ('Unknow n', 'Yes', 'No'); | |
72 | WV_PREGN ANCY_STATU S: array [ TWVPregnan cyStatus] of string = ('Unknow n', 'Yes', 'No', 'Un sure'); | |
73 | ||
74 | function W omensHealt h: IWVCont roller; | |
75 | ||
76 | implementa tion | |
77 | ||
78 | uses | |
79 | oWVContr oller; | |
80 | ||
81 | var | |
82 | fWVContr oller: IWV Controller ; | |
83 | ||
84 | function W omensHealt h: IWVCont roller; | |
85 | begin | |
86 | fWVContr oller.Quer yInterface (IWVContro ller, Resu lt); | |
87 | end; | |
88 | ||
89 | initializa tion | |
90 | ||
91 | TWVControl ler.Create .GetInterf ace(IWVCon troller, f WVControll er); | |
92 | ||
93 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.