Produced by Araxis Merge on 5/10/2019 1:00:04 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_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | mCoverSheetDisplayPanel_CPRS_Postings.pas | Wed Apr 3 19:32:16 2019 UTC |
2 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | mCoverSheetDisplayPanel_CPRS_Postings.pas | Thu May 9 00:51:24 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 218 |
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_Postin gs; | |
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: Panel for Postin gs Display on CPRS C oversheet. | |
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 | oDelimit edString; | |
38 | ||
39 | type | |
40 | TfraCove rSheetDisp layPanel_C PRS_Postin gs = class (TfraCover SheetDispl ayPanel_CP RS) | |
41 | private | |
42 | { Priv ate declar ations } | |
43 | protecte d | |
44 | { Over ridden eve nts - Tfra CoverSheet DisplayPan el_CPRS } | |
45 | proced ure OnAddI tems(aList : TStrings ); overrid e; | |
46 | proced ure OnGetD etail(aRec : TDelimit edString; aResult: T Strings); override; | |
47 | proced ure OnBegi nUpdate(Se nder: TObj ect); over ride; | |
48 | public | |
49 | constr uctor Crea te(aOwner: TComponen t); overri de; | |
50 | end; | |
51 | ||
52 | var | |
53 | fraCover SheetDispl ayPanel_CP RS_Posting s: TfraCov erSheetDis playPanel_ CPRS_Posti ngs; | |
54 | ||
55 | implementa tion | |
56 | ||
57 | {$R *.dfm} | |
58 | ||
59 | { TfraCove rSheetDisp layPanel_C PRS_Postin gs } | |
60 | ||
61 | uses | |
62 | uConst, | |
63 | uCore, | |
64 | ORFn, | |
65 | ORNet, | |
66 | VAUtils; | |
67 | ||
68 | constructo r TfraCove rSheetDisp layPanel_C PRS_Postin gs.Create( aOwner: TC omponent); | |
69 | begin | |
70 | inherite d; | |
71 | AddColum n(0, 'Post ing'); | |
72 | Collapse Columns; | |
73 | end; | |
74 | ||
75 | procedure TfraCoverS heetDispla yPanel_CPR S_Postings .OnAddItem s(aList: T Strings); | |
76 | var | |
77 | aListIte m: TListIt em; | |
78 | begin | |
79 | inherite d; | |
80 | { Update the ALLER GIES item to have an identifie r of 'A' i f it exist s } | |
81 | for aLis tItem in l vData.Item s do | |
82 | if aLi stItem.Dat a <> nil t hen | |
83 | if T DelimitedS tring(aLis tItem.Data ).GetPiece Equals(2, 'ALLERGIES ') then | |
84 | TD elimitedSt ring(aList Item.Data) .SetPiece( 1, 'A'); | |
85 | end; | |
86 | ||
87 | procedure TfraCoverS heetDispla yPanel_CPR S_Postings .OnGetDeta il(aRec: T DelimitedS tring; aRe sult: TStr ings); | |
88 | begin | |
89 | if aRec. GetPieceEq uals(1, 'A ') then | |
90 | CallVi stA('ORQQA L LIST REP ORT', [Pat ient.DFN], aResult) | |
91 | else if aRec.GetPi eceEquals( 1, 'WH') t hen | |
92 | CallVi stA('WVRPC OR POSTREP ', [Patien t.DFN, aRe c.GetPiece (3), Scree nReaderAct ive], aRes ult) | |
93 | else if aRec.GetPi eceIsNotNu ll(1) then | |
94 | begin | |
95 | Noti fyOtherApp s(NAE_REPO RT, 'TUI^' + aRec.Ge tPiece(1)) ; | |
96 | Call VistA('TIU GET RECOR D TEXT', [ aRec.GetPi ece(1)], a Result); | |
97 | end | |
98 | else | |
99 | aResul t.Text := 'Invalid D etail Item '; | |
100 | end; | |
101 | ||
102 | procedure TfraCoverS heetDispla yPanel_CPR S_Postings .OnBeginUp date(Sende r: TObject ); | |
103 | begin | |
104 | if Scree nReaderAct ive then | |
105 | begin | |
106 | CPRSPa rams.Param 1 := '1'; | |
107 | end; | |
108 | end; | |
109 | ||
110 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.