Produced by Araxis Merge on 9/25/2018 2:12:58 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 | build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\MHA | uMHA_Const.pas | Thu Sep 6 11:30:20 2018 UTC |
2 | build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\MHA | uMHA_Const.pas | Wed Sep 12 16:02:21 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 462 |
Changed | 2 | 4 |
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 uMHA_ Const; | |
2 | ||
3 | interface | |
4 | ||
5 | uses | |
6 | Trpcb, | |
7 | uMHA_Adm inistratio n, | |
8 | Classes; | |
9 | ||
10 | type | |
11 | TDatabas eMode = (d bVista, db OffLine, d bNil); | |
12 | TOpenFor m = (ofMai n, ofAll, ofSingle, ofASI, ofA SI_508, of GAF, ofSin gleMenu, | |
13 | ofSele ct, ofResu lt, ofUplo ad, ofASIM enu); | |
14 | ||
15 | // Input p atient dat a: DOB, ge nder, etc. | |
16 | // Output is new ans wer list. | |
17 | TDefault AnswersDLL = procedu re( | |
18 | Instru mentName, | |
19 | UserNa me, | |
20 | Statio nCode, | |
21 | Statio nSuffix, | |
22 | Patien tName, | |
23 | Patien tSSN, | |
24 | Patien tDOB, | |
25 | Patien tSex, | |
26 | Answer String: st ring; | |
27 | var | |
28 | Result String: st ring); std call; | |
29 | ||
30 | // Ensure the answer s are corr ect. | |
31 | // Output is error m essage: Bl ank output means oka y. | |
32 | TVerifyA nswersDLL = procedur e( | |
33 | Instru mentName, | |
34 | Patien tName, | |
35 | Patien tDOB, | |
36 | Patien tSex, | |
37 | // llh patch 129 --- issue with AUX dll not wo rking Anws erString d efined as a String | |
38 | // in ot her areas of applica tion | |
39 | //Answ erString: AnsiString ; //strin g; | |
40 | Answer String: St ring ; //s tring; | |
41 | var | |
42 | Result String: st ring); std call; | |
43 | ||
44 | ||
45 | // Modify acceptable anwsers t o a prefer red or leg acy format | |
46 | // Output is new ans wer list. | |
47 | TGroomAn swersDLL = procedure ( | |
48 | Instru mentName, | |
49 | Patien tName, | |
50 | Patien tDOB, | |
51 | Patien tSex, | |
52 | Answer String: st ring; | |
53 | var | |
54 | Result String: st ring); std call; | |
55 | ||
56 | ||
57 | // Score a nswers for special i nstruments : *ScaleNa me^ScaleIE N^ScaleSco re* | |
58 | TScoreAn swersDLL = procedure ( | |
59 | Instru mentName, | |
60 | Patien tName, | |
61 | Patien tDOB, | |
62 | Patien tSex, | |
63 | // llh patch 129 --- issue with AUX dll not wo rking | |
64 | //Answ erString: AnsiString ; //strin g; | |
65 | Answer String: St ring ; //s tring; | |
66 | var | |
67 | Result String: st ring); std call; | |
68 | ||
69 | ||
70 | // Progres s Note for special i nstruments : report i s output. | |
71 | TProgres sNoteDLL = procedure ( | |
72 | Instru mentName, | |
73 | Patien tName, | |
74 | Patien tDOB, | |
75 | Patien tSex, | |
76 | Answer String: st ring; | |
77 | var | |
78 | Result String: st ring); std call; | |
79 | ||
80 | // Special operation s, custom controls | |
81 | // Output is new ans wer list. | |
82 | TCustomD LL = proce dure( | |
83 | Instru mentName, | |
84 | Patien tName, | |
85 | Patien tDOB, | |
86 | Patien tSex, | |
87 | Answer String: st ring; | |
88 | var | |
89 | Result String: st ring); std call; | |
90 | ||
91 | ||
92 | // Output is string, placed on form when built | |
93 | TStaticL ookupDLL = procedure ( | |
94 | Instru mentName, | |
95 | Patien tIEN, | |
96 | Ordere dByDUZ: st ring; | |
97 | var | |
98 | Result String: st ring); std call; | |
99 | ||
100 | // Output is string, placed on form when built | |
101 | TVistaLo okupDLL = procedure( | |
102 | Broker : TRPCBrok er; | |
103 | Instru mentName, | |
104 | Patien tIEN, | |
105 | Ordere dByDUZ: st ring; | |
106 | var | |
107 | Result String: st ring); std call; | |
108 | ||
109 | TSpecial ResultsDLL = procedu re( | |
110 | var | |
111 | Result String: st ring); std call; | |
112 | ||
113 | const | |
114 | {assign a nil - not loaded fu nction} | |
115 | GroomAns wersDLL : TGroomAn swersDLL = nil; | |
116 | VerifyAn swersDLL : TVerifyA nswersDLL = nil; | |
117 | DefaultA nswersDLL : TDefault AnswersDLL = nil; | |
118 | ScoreAns wersDLL : TScoreAn swersDLL = nil; | |
119 | Progress NoteDLL : TProgres sNoteDLL = nil; | |
120 | CustomDL L : TCustomD LL = nil; | |
121 | StaticLo okupDLL : TStaticL ookupDLL = nil; | |
122 | VistaLoo kupDLL : TVistaLo okupDLL = nil; | |
123 | SpecialR esultsDLL : TSpecial ResultsDLL = nil; | |
124 | ||
125 | var | |
126 | DataBase Mode : TDataBas eMode; | |
127 | OpenForm Name : TOpenFor m; | |
128 | ||
129 | const | |
130 | MHA_Capt ion = 'Mental Health Ass istant'; | |
131 | OFFLINE_ CAPTION = ' (Off- line Mode) '; | |
132 | YS_MHA_A UX = '\Vista\ Common Fil es\YS_MHA_ AUX.dll'; | |
133 | MHA_ONLINE _SUPPORT_U RL = 'http:// vaww.menta lhealth. DNS /'; | |
134 | MetricUR L = | |
135 | 'http://va ww.mentalh ealth. DNS /mha/metri c.asp'; | |
136 | CONSULT_ NOTE_TITLE = 'MENTAL HEALTH CON SULT NOTE' ; | |
137 | PROGRESS _NOTE_TITL E = 'MENTAL HEALTH DIA GNOSTIC ST UDY NOTE'; | |
138 | ||
139 | // MH Vi sta File n umbers | |
140 | FILE_TES TS_AND_SUR VEYS = '601.71' ; | |
141 | FILE_QUE STIONS = '601.72' ; | |
142 | FILE_INT RODUCTIONS = '601.73' ; | |
143 | FILE_RES PONSE_TYPE S = '601.74' ; | |
144 | FILE_CHO ICES = '601.75' ; | |
145 | FILE_CHO ICETYPES = '601.751 '; | |
146 | FILE_INS TRUMENT_CO NTENT = '601.76' ; | |
147 | FILE_BAT TERIES = '601.77' ; | |
148 | FILE_BAT TERY_CONTE NTS = '601.78' ; | |
149 | FILE_BAT TERY_USERS = '601.781 '; | |
150 | FILE_SKI PPED_QUEST IONS = '601.79' ; | |
151 | FILE_SEC TIONS = '601.81' ; | |
152 | FILE_RUL ES = '601.82' ; | |
153 | FILE_INS TRUMENTRUL ES = '601.83' ; | |
154 | FILE_ADM INISTRATIO NS = '601.84' ; | |
155 | FILE_ANS WERS = '601.85' ; | |
156 | FILE_SCA LEGROUPS = '601.86' ; | |
157 | FILE_SCA LES = '601.87' ; | |
158 | FILE_DIS PLAY = '601.88' ; | |
159 | FILE_CHO ICEIDENTIF IERS = '601.89' ; | |
160 | FILE_SCO RING_KEYS = '601.91' ; | |
161 | FILE_MH_ RESULTS = '601.92' ; | |
162 | FILE_REP ORT = '601.93' ; | |
163 | ||
164 | ASI_FULL = 'Full'; | |
165 | ASI_LITE = 'Lite'; | |
166 | ASI_FOLL OWUP = 'Follow- up'; | |
167 | ASI_MV = 'ASI-MV' ; | |
168 | ||
169 | var | |
170 | gvASIWid th, | |
171 | gvSele ctWidth, | |
172 | gvResu ltWidth, | |
173 | gvGAFW idth, | |
174 | gvSing leWidth, | |
175 | gvASIH eight, | |
176 | gvSele ctHeight, | |
177 | gvResu ltHeight, | |
178 | gvGAFH eight, | |
179 | gvSing leHeight, | |
180 | gvASIG eneral, | |
181 | gvASIM edical, | |
182 | gvASIE mploy, | |
183 | gvASID rug, | |
184 | gvASIL egal, | |
185 | gvASIF amily, | |
186 | gvASIS ocial, | |
187 | gvASIP sych, | |
188 | gvLast ASIProgram , | |
189 | gvStar t // Menu selection | |
190 | : Integer; | |
191 | ||
192 | gvShowOp tionTabs : string; | |
193 | ||
194 | gvID, | |
195 | gvLast Location, | |
196 | gvPass , | |
197 | //gvJA WS_Dir, | |
198 | gvSpec ialResults List, | |
199 | gvUpda teSeries, | |
200 | gvDLL_ Version, | |
201 | gvCoSi gnerIEN, | |
202 | gvProg ressNoteIE N | |
203 | : string; | |
204 | ||
205 | gvShowAl lOrOneItem , | |
206 | gvVisu alBeeps, | |
207 | gvDefa ultSize, | |
208 | gvShow Hints, | |
209 | gvShow Image, | |
210 | gvShow ScreenRead erMsg, | |
211 | gvChec kResourceF iles, | |
212 | gvCPRS ShutDown | |
213 | : Boolean; | |
214 | ||
215 | gvDateGi ven, | |
216 | gvUpda te : TDateTim e; | |
217 | ||
218 | gvAPICal ls : TStringL ist; | |
219 | ||
220 | gvAdmin : TAdminis tration; | |
221 | ||
222 | gvASI_Ty pe : integer; // 1-Full , 2-Lite, 3-Followup , 4 - MV | |
223 | ||
224 | // patch 105 - Get Environme nt Variabl e to deter mine which program f ile direct ory should | |
225 | // be accessed f or finding the YS_MH A_AUX.dll file and s et into gl obal Aux F ile var l lh | |
226 | gvEnvVar , | |
227 | gvAuxF ile : string ; | |
228 | ||
229 | ||
230 | implementa tion | |
231 | ||
232 | end. | |
233 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.