Produced by Araxis Merge on 9/25/2018 2:12:59 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\uIA_Core | uIA_Instrument_IO.pas | Thu Sep 6 11:30:16 2018 UTC |
2 | build 3.zip\build 3\MHLTH_YS_137_Source\Delphi\uIA_Core | uIA_Instrument_IO.pas | Wed Sep 12 16:04:07 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 284 |
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 uIA_I nstrument_ IO; | |
2 | ||
3 | interface | |
4 | ||
5 | uses | |
6 | Trpcb, | |
7 | classes, | |
8 | uIA_Inst rument; | |
9 | ||
10 | function I nstrumentR eadDescrip tiveProper ties( | |
11 | Broker: TRPCBroker ; | |
12 | var aIns trument: T Instrument ): string; | |
13 | ||
14 | implementa tion | |
15 | ||
16 | uses | |
17 | SysUtils , | |
18 | dialogs, | |
19 | uIA_Cons t, | |
20 | uIA_Util s; | |
21 | ||
22 | ||
23 | ||
24 | function I nstrumentR eadDescrip tiveProper ties( | |
25 | Broker: TRPCBroker ; | |
26 | var aIns trument: T Instrument ): string; | |
27 | ||
28 | var | |
29 | TempStr : string; | |
30 | ||
31 | // Result of YTQ TSL IST1 is" | |
32 | // [DATA] | |
33 | // IEN=5 | |
34 | // NAME=AU DC | |
35 | // PRINT T ITLE=Alcoh ol Use Dis orders Ide ntificatio n Test Con sumption | |
36 | // VERSION = | |
37 | // AUTHOR= Bradley; M cDonell; B ush; Kivla han; Diehr ; Fihn | |
38 | // PUBLISH ER=Alcohol ism:Clinic al & Exper imental Re search | |
39 | // PUBLICA TION DATE= 1998 | |
40 | // REFEREN CE=Alcohol ism: Clini cal & Expe rimental R esearch. 2 2(8):1842, November 1998 | |
41 | // A PRIVI LEGE= | |
42 | // R PRIVI LEGE= | |
43 | // OPERATI ONAL=Yes | |
44 | // HAS BEE N OPERATIO NAL=Yes | |
45 | // REQUIRE S LICENSE= No | |
46 | // PURPOSE =Alcohol S creening. 3 items f rom WHO AU DIT test d ealing wit h consumpt ion of alc ohol. | |
47 | // N D R N SA P E | |
48 | // TARGET POPULATION = | |
49 | // ENTERED BY=A FINK ELSTEIN | |
50 | // ENTRY D ATE=FEB 26 , 2004 | |
51 | // LAST ED ITED BY=FI NKELSTEIN, ALLAN | |
52 | // LAST ED IT DATE=30 90409 | |
53 | // IS NATI ONAL TEST= Yes | |
54 | // LICENSE CURRENT=N o | |
55 | // COPYRIG HT TEXT= | |
56 | // REQUIRE S SIGNATUR E=No | |
57 | // IS LEGA CY=No | |
58 | // SUBMIT TO NATIONA L DB=Yes | |
59 | // IS COPY RIGHTED=No | |
60 | // WRITE F ULL TEXT=Y es | |
61 | // DAYS TO RESTART=2 | |
62 | // GENERAT E PNOTE=Ye s | |
63 | // TIU TIT LE=MENTAL HEALTH DIA GNOSTIC ST UDY NOTE | |
64 | // Consult _Note=MENT AL HEALTH CONSULT NO TE | |
65 | // YS_MHA_ B.dll Vers ion -- no t used her e | |
66 | // YS_MHA_ B.dll Date -- no t used her e | |
67 | // DLL Ver sion = 1.0 .3.100 | |
68 | // DLL_Dat e = FileMa n Date -- not used h ere | |
69 | ||
70 | begin | |
71 | Result : = ''; | |
72 | ||
73 | with Bro ker, aInst rument do | |
74 | begin | |
75 | Clea rParameter s := True; | |
76 | Clea rResults : = True; | |
77 | Crea teContext( 'YS BROKER 1'); | |
78 | Remo teProcedur e := 'YTQ TSLIST1'; | |
79 | Para m[0].Mult[ '"CODE"'] := Instrum entName; | |
80 | Para m[0].PType := List; | |
81 | Call ; | |
82 | ||
83 | if ( Results[0] = DATA) t hen | |
84 | be gin | |
85 | IEN := Pie ce(Results [1], EQ, 2 ); | |
86 | Instrument Name := Pi ece(Result s[2], EQ, 2); // Car eful, ther e is a Bro ker.Name | |
87 | PrintTitle := Piece( Results[3] , EQ, 2); | |
88 | Version := Piece(Res ults[4], E Q, 2); | |
89 | Author := Piece(Resu lts[5], EQ , 2); | |
90 | Publisher := Piece(R esults[6], EQ, 2); | |
91 | Publicatio nDate := P iece(Resul ts[7], EQ, 2); | |
92 | Reference := Piece(R esults[8], EQ, 2); | |
93 | A_Privileg e := Piece (Results[9 ], EQ, 2); | |
94 | R_Privileg e := Piece (Results[1 0], EQ, 2) ; | |
95 | IsOperatio nal := 'N' ; // Defau lt | |
96 | ||
97 | TempStr := Piece(Res ults[11], EQ, 2); | |
98 | if (Length (TempStr) > 0) and | |
99 | (TempStr [1] in ['Y ', 'N', 'U ']) then | |
100 | IsOperat ional := T empStr[1] | |
101 | else | |
102 | IsOperat ional := ' N'; | |
103 | ||
104 | IsUnderDev elopment : = StrToBoo l(Piece(Re sults[12], EQ, 2)); | |
105 | RequiresLi cense := S trToBool(P iece(Resul ts[13], EQ , 2)); | |
106 | Purpose := Piece(Res ults[14], EQ, 2); | |
107 | NormSample := Piece( Results[15 ], EQ, 2); | |
108 | TargetPopu lation := Piece(Resu lts[16], E Q, 2); | |
109 | EnteredBy := Piece(R esults[17] , EQ, 2); | |
110 | EntryDate := Piece(R esults[18] , EQ, 2); | |
111 | LastEdited By := Piec e(Results[ 19], EQ, 2 ); | |
112 | LastEditDa te := FMDa teStrToDat eStr(Piece (Results[2 0], EQ, 2) ); | |
113 | LastEditFM Date := Pi ece(Result s[20], EQ, 2); | |
114 | IsNational Test := St rToBool(Pi ece(Result s[21], EQ, 2)); | |
115 | LicenseIsC urrent := StrToBool( Piece(Resu lts[22], E Q, 2)); | |
116 | Copyright := Piece(R esults[23] , EQ, 2); | |
117 | RequiresSi gnature := StrToBool (Piece(Res ults[24], EQ, 2)); | |
118 | Islegacy : = StrToBoo l(Piece(Re sults[25], EQ, 2)); | |
119 | SubmitToNa tionalDB : = StrToBoo l(Piece(Re sults[26], EQ, 2)); | |
120 | IsCopyrigh ted := Str ToBool(Pie ce(Results [27], EQ, 2)); | |
121 | WriteFullT ext := Str ToBool(Pie ce(Results [28], EQ, 2)); | |
122 | DaysToRest art := Str ToIntDef(P iece(Resul ts[29], EQ , 2), 2); | |
123 | GeneratePr ogressNote := StrToB ool(Piece( Results[30 ], EQ, 2)) ; | |
124 | TIU_Title := Piece(R esults[31] , EQ, 2); | |
125 | Consult_Ti tle := Pie ce(Results [32], EQ, 2); | |
126 | // 33 YS_M HA_B.dll v ersion -- Not used here | |
127 | // 34 YS_M HA_B.dll d ate -- Not used here | |
128 | DLL_Versio n := Piece (Results[3 5], EQ, 2) ; // Versi on of YS_M HA_AUX.dll | |
129 | DLL_Date : = Piece(Re sults[36], EQ, 2); | |
130 | en d | |
131 | else | |
132 | be gin | |
133 | Result := BAD_DATA; | |
134 | Exit; | |
135 | en d; //else | |
136 | // N eeded for DLL, in ca se there i s a crash | |
137 | Crea teContext( 'OR CPRS G UI CHART') ; | |
138 | end; / /with Brok er | |
139 | ||
140 | end; | |
141 | ||
142 | end. | |
143 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.