Produced by Araxis Merge on 3/31/2017 10:45:42 AM 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 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\APP-VITALSMANAGER | VitalsManager.dpr | Tue Dec 13 18:26:14 2016 UTC |
2 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\APP-VITALSMANAGER | VitalsManager.dpr | Fri Mar 31 14:59:51 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 424 |
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 | program Vi talsManage r; | |
2 | { | |
3 | ========== ========== ========== ========== ========== ========== ========== ========== | |
4 | * | |
5 | * Ap plication: Vitals M anager | |
6 | * Re vision: $Revisio n: 1 $ $M odtime: 3/ 04/09 2:41 p $ | |
7 | * Developer: PII | |
8 | * Si te: Hines OI FO | |
9 | * | |
10 | * De scription: Main pro ject file | |
11 | * | |
12 | * No tes: | |
13 | * | |
14 | ========== ========== ========== ========== ========== ========== ========== ========== | |
15 | * $A rchive: /V itals/5.0 (Version 5 .0)/5.0.23 (Patch 23 )/VITALS_5 _0_23_8/So urce/APP-V ITALSMANAG ER/VitalsM anager.dpr $ | |
16 | * | |
17 | * $History : VitalsMa nager.dpr $ | |
18 | * | |
19 | * ******* ********** Version 1 ******* ********** | |
20 | * User: V haishandri a Date: 8/ 12/09 T ime: 8:29a | |
21 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_8/Sourc e/APP-VITA LSMANAGER | |
22 | * | |
23 | * ******* ********** Version 1 ******* ********** | |
24 | * User: V haishandri a Date: 3/ 09/09 T ime: 3:38p | |
25 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_6/Sourc e/APP-VITA LSMANAGER | |
26 | * | |
27 | * ******* ********** Version 1 ******* ********** | |
28 | * User: V haishandri a Date: 1/ 13/09 T ime: 1:26p | |
29 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_4/Sourc e/APP-VITA LSMANAGER | |
30 | * | |
31 | * ******* ********** Version 2 ******* ********** | |
32 | * User: V haishandri a Date: 7/ 18/07 T ime: 12:41 p | |
33 | * Updated in $/Vita ls GUI 200 7/Vitals-5 -0-18/APP- VITALSMANA GER | |
34 | * | |
35 | * ******* ********** Version 1 ******* ********** | |
36 | * User: V haishandri a Date: 5/ 11/07 T ime: 3:14p | |
37 | * Created in $/Vita ls GUI 200 7/Vitals-5 -0-18/APP- VITALSMANA GER | |
38 | * | |
39 | * ******* ********** Version 1 ******* ********** | |
40 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:40p | |
41 | * Created in $/Vita ls/VITALS- 5-0-18/APP -VitalsMan ager | |
42 | * GUI v. 5.0.18 upd ates the d efault vit al type IE Ns with th e local | |
43 | * values. | |
44 | * | |
45 | * ******* ********** Version 1 ******* ********** | |
46 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:30p | |
47 | * Created in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /APP-Vital sManager | |
48 | * | |
49 | * ******* ********** Version 1 ******* ********** | |
50 | * User: V haishandri a Date: 5/ 24/05 T ime: 4:57p | |
51 | * Created in $/Vita ls/Vitals GUI v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7 (CASMed, CCOW) - De lphi 6/Vit alsManager -503 | |
52 | * | |
53 | * ******* ********** Version 1 ******* ********** | |
54 | * User: V haishandri a Date: 4/ 16/04 T ime: 4:22p | |
55 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, CPRS, Delphi 7) /VITALSMAN AGER-503 | |
56 | * | |
57 | * ******* ********** Version 1 ******* ********** | |
58 | * User: V haishandri a Date: 1/ 26/04 T ime: 1:09p | |
59 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/VitalsM anager | |
60 | * | |
61 | * ******* ********** Version 8 ******* ********** | |
62 | * User: V haishandri a Date: 12 /20/02 T ime: 3:03p | |
63 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
64 | * | |
65 | * ******* ********** Version 7 ******* ********** | |
66 | * User: V haishandri a Date: 11 /04/02 T ime: 9:15a | |
67 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
68 | * Version 5.0.0.0 | |
69 | * | |
70 | * ******* ********** Version 6 ******* ********** | |
71 | * User: V haishandri a Date: 10 /11/02 T ime: 6:21p | |
72 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
73 | * Version v.T32_1 | |
74 | * | |
75 | * ******* ********** Version 5 ******* ********** | |
76 | * User: V haishandri a Date: 10 /04/02 T ime: 4:49p | |
77 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
78 | * Version T32 | |
79 | * | |
80 | * ******* ********** Version 4 ******* ********** | |
81 | * User: V haishandri a Date: 7/ 29/02 T ime: 11:18 a | |
82 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
83 | * v T29 | |
84 | * | |
85 | * ******* ********** Version 3 ******* ********** | |
86 | * User: V haishpetit d Date: 6/ 06/02 T ime: 11:12 a | |
87 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
88 | * Roll-up to 5.0.0. 27 | |
89 | * | |
90 | * ******* ********** Version 2 ******* ********** | |
91 | * User: V haishpetit d Date: 5/ 15/02 T ime: 12:16 p | |
92 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
93 | * Added t he Print Q ualifiers Option | |
94 | * | |
95 | * ******* ********** Version 1 ******* ********** | |
96 | * User: V haishpetit d Date: 4/ 04/02 T ime: 3:47p | |
97 | * Created in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
98 | * | |
99 | * | |
100 | * | |
101 | ========== ========== ========== ========== ========== ========== ========== ========== | |
102 | } | |
103 | ||
104 | uses | |
105 | Forms, | |
106 | Dialogs, | |
107 | SysUtils , | |
108 | TRPCB, | |
109 | SharedRP CBroker, | |
110 | fGMV_Tim eOutManage r in '..\V italsCommo n\fGMV_Tim eOutManage r.pas' {fr mGMV_TimeO utManager} , | |
111 | fGMV_Abo utDlg in ' ..\VitalsC ommon\fGMV _AboutDlg. pas' {frmG MV_AboutDl g}, | |
112 | fGMV_Add VCQ in '.. \VitalsCom mon\fGMV_A ddVCQ.pas' {frmGMV_A ddVCQ}, | |
113 | fGMV_Spl ash in '.. \VitalsCom mon\fGMV_S plash.pas' {frmGMV_S plash}, | |
114 | mGMV_Edi tTemplate in '..\Vit alsCommon\ mGMV_EditT emplate.pa s' {fraGMV _EditTempl ate: TFram e}, | |
115 | uGMV_Com mon in '.. \VitalsUti ls\uGMV_Co mmon.pas', | |
116 | uGMV_Con st in '..\ VitalsUtil s\uGMV_Con st.pas', | |
117 | uGMV_Fil eEntry in '..\Vitals Common\uGM V_FileEntr y.pas', | |
118 | uGMV_Glo balVars in '..\Vital sUtils\uGM V_GlobalVa rs.pas', | |
119 | uGMV_Vit alTypes in '..\Vital sCommon\uG MV_VitalTy pes.pas', | |
120 | uGMV_Uti ls in '..\ VitalsUtil s\uGMV_Uti ls.pas', | |
121 | mGMV_Loo kup in '.. \VitalsDat aEntry\mGM V_Lookup.p as' {fraGM V_Lookup: TFrame}, | |
122 | uGMV_CRC 32 in '..\ VitalsUtil s\uGMV_CRC 32.pas', | |
123 | uGMV_Ver sionInfo i n '..\Vita lsUtils\uG MV_Version Info.pas', | |
124 | uGMV_Use r in '..\V italsCommo n\uGMV_Use r.pas', | |
125 | fGMV_Qua lifiers in '..\Vital sDataEntry \fGMV_Qual ifiers.pas ' {frmGMV_ Qualifiers }, | |
126 | uGMV_Qua lifyBox in '..\Vital sDataEntry \uGMV_Qual ifyBox.pas ', | |
127 | fROR_PCa ll in '..\ ROR\fROR_P Call.pas' {RPCErrorF orm}, | |
128 | uGMV_Tem plate in ' ..\VitalsD ataEntry\u GMV_Templa te.pas', | |
129 | uGMV_Eng ine in '.. \VitalsUti ls\uGMV_En gine.pas', | |
130 | uROR_RPC Broker in '..\ROR\uR OR_RPCBrok er.pas', | |
131 | uGMV_Set up in '..\ VitalsComm on\uGMV_Se tup.pas', | |
132 | mGMV_Sys temParamet ers in 'mG MV_SystemP arameters. pas' {fraS ystemParam eters: TFr ame}, | |
133 | mGMV_Vit alHiLo in 'mGMV_Vita lHiLo.pas' {fraVital HiLo: TFra me}, | |
134 | fGMV_Add EditQualif ier in 'fG MV_AddEdit Qualifier. pas' {frmG MV_AddEdit Qualifier} , | |
135 | fGMV_Dev iceSelecto r in 'fGMV _DeviceSel ector.pas' {frmGMV_D eviceSelec tor}, | |
136 | fGMV_Man ager in 'f GMV_Manage r.pas' {fr mGMV_Manag er}, | |
137 | fGMV_New Template i n 'fGMV_Ne wTemplate. pas' {frmG MV_NewTemp late}, | |
138 | fGMV_RPC Log in '.. \VitalsCom mon\fGMV_R PCLog.pas' {frmGMV_R PCLog}, | |
139 | uGMV_EXE Version in '..\Vital sUtils\uGM V_EXEVersi on.pas', | |
140 | mGMV_Pri nterSelect or in '..\ VitalsComm on\mGMV_Pr interSelec tor.pas' { frGMV_Prin terSelecto r: TFrame} , | |
141 | mGMV_Def aultSelect or in '..\ VITALSCOMM ON\mGMV_De faultSelec tor.pas' { frDefaultS elector: T Frame}, | |
142 | uGMV_RPC _Names in '..\VITALS COMMON\uGM V_RPC_Name s.pas', | |
143 | uGMV_Log in '..\VI TALSCOMMON \uGMV_Log. pas'; | |
144 | ||
145 | {$R *.RES} | |
146 | ||
147 | begin | |
148 | Applicat ion.Initia lize; | |
149 | Applicat ion.Title := 'Vitals Manager'; | |
150 | GMVSplas h := TfrmG MV_Splash. Create(App lication); | |
151 | GMVSplas h.Show; | |
152 | GMVSplas h.UpdateMe ssage('Est ablishing VistA Conn ection...' ); | |
153 | ||
154 | Applicat ion.Create Form(TfrmG MV_Manager , frmGMV_M anager); | |
155 | Applicat ion.Create Form(TfrmG MV_NewTemp late, frmG MV_NewTemp late); | |
156 | Applicat ion.Create Form(TfrmG MV_RPCLog, frmGMV_RP CLog); | |
157 | if not f rmGMV_Mana ger.Restor eConnectio n then // will creat e Broker | |
158 | begi n | |
159 | Fr eeAndNil(f rmGMV_Mana ger); | |
160 | Fr eeAndNil(G MVSplash); | |
161 | Ex it; | |
162 | end; | |
163 | Applicat ion.Create Form(TfrmG MV_AddVCQ, frmGMV_Ad dVCQ); | |
164 | ||
165 | try | |
166 | if not GMVUser.S ignOn(RPC_ CREATECONT EXT, True) then | |
167 | begi n | |
168 | GM VSplash.Hi de; | |
169 | Ap plication. Terminate; | |
170 | Ap plication. Run; | |
171 | Sh utDownTime Out; | |
172 | end | |
173 | else | |
174 | if G MVUser.GMV Manager th en | |
175 | be gin | |
176 | GMVSplash. UpdateMess age('Loadi ng ...'); | |
177 | ||
178 | CreateGMVG lobalVars; | |
179 | GMVDefault Templates := TGMV_De faultTempl ates.Creat e; | |
180 | frmGMV_Man ager.Resto reSettings ; | |
181 | InitTimeOu t(nil); | |
182 | UpdateTime OutInterva l(GMVUser. DTime); | |
183 | GMVSplash. Hide; | |
184 | frmGMV_Man ager.pgctr l.Visible := true; | |
185 | Applicatio n.Run; | |
186 | ShutDownTi meOut; | |
187 | ||
188 | FreeAndNil (GMVSplash ); | |
189 | FreeAndNil (GMVDefaul tTemplates ); | |
190 | ReleaseGMV GlobalVars ; | |
191 | FreeAndNil (GMVUser); | |
192 | FreeAndNil (RPCBroker ); | |
193 | en d | |
194 | else | |
195 | be gin | |
196 | Me ssageDlg( | |
197 | 'Sorry, yo u need the GMV MANAG ER Securit y Key to r un this ap plication. '#13#13+ | |
198 | 'Please se e your App lication C oordinator (ADPAC) t o arrange access.', | |
199 | mtInformat ion, [mbok ], 0); | |
200 | tr y | |
201 | FreeAndNil (frmGMV_Ma nager); | |
202 | ex cept | |
203 | en d; | |
204 | ||
205 | Fr eeAndNil(G MVSplash); | |
206 | Fr eeAndNil(f rmGMV_AddV CQ); | |
207 | Fr eeAndNil(G MVUser); | |
208 | Fr eeAndNil(R PCBroker); | |
209 | en d; | |
210 | except / /finally | |
211 | end; | |
212 | end. | |
213 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.