Produced by Araxis Merge on 6/4/2018 8:25:14 PM Eastern 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 | CPRS_v32_P2_Build48.zip\OR_30_405V48_SRC.zip\Womens Health | iWVInterface.pas | Wed May 9 15:19:05 2018 UTC |
| 2 | CPRS_v32_P2_Build48.zip\OR_30_405V48_SRC.zip\Womens Health | iWVInterface.pas | Fri Jun 1 20:19:01 2018 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.