From 0f3c3dcbad1a4cc4f2531f155b3e62fbd128bc17 Mon Sep 17 00:00:00 2001 From: kdtop3 Date: Wed, 7 Jul 2010 21:10:45 +0000 Subject: [PATCH] Upgrading to version 27 --- CPRS-Chart/rECS.pas | 148 --------------------------- CPRS-Chart/rEventHooks.pas | 36 ------- CPRS-Chart/rProbs.pas | 201 ------------------------------------- CPRS-Chart/sBitmaps.res | Bin 5188 -> 0 bytes CPRS-Chart/sRemSrch.avi | Bin 12288 -> 0 bytes CPRS-Chart/sRemSrch.rc | 1 - CPRS-Chart/sRemSrch.res | Bin 12380 -> 0 bytes 7 files changed, 386 deletions(-) delete mode 100644 CPRS-Chart/rECS.pas delete mode 100644 CPRS-Chart/rEventHooks.pas delete mode 100644 CPRS-Chart/rProbs.pas delete mode 100644 CPRS-Chart/sBitmaps.res delete mode 100644 CPRS-Chart/sRemSrch.avi delete mode 100644 CPRS-Chart/sRemSrch.rc delete mode 100644 CPRS-Chart/sRemSrch.res diff --git a/CPRS-Chart/rECS.pas b/CPRS-Chart/rECS.pas deleted file mode 100644 index c083e51..0000000 --- a/CPRS-Chart/rECS.pas +++ /dev/null @@ -1,148 +0,0 @@ -unit rECS; - -interface - -uses SysUtils, Windows, Classes, Forms, ORFn, rCore, uConst, ORClasses, ORNet, uCore; - -type - TECSReport = Class(TObject) - private - FReportHandle: string; // PCE report or Patient Summary report - FReportType : string; // D: display P: print - FPrintDEV : string; // if Print, the print device IEN - FReportStart : string; // Start Date - FReportEnd : string; // End Date - FNeedReason : string; // Need procedure reason ? - FECSPermit : boolean; // Authorized use of ECS - public - constructor Create; - property ReportHandle: string read FReportHandle write FReportHandle; - property ReportType : string read FReportType write FReportType; - property ReportStart : string read FReportStart write FReportStart; - property ReportEnd : string read FReportEnd write FReportEnd; - property PrintDEV : string read FPrintDEV write FPrintDEV; - property NeedReason : string read FNeedReason write FNeedReason; - property ECSPermit : boolean read FECSPermit write FECSPermit; - end; - -function GetVisitID: string; -function GetDivisionID: string; -function IsESSOInstalled: boolean; -procedure SaveUserPath(APathInfo: string; var CurPath: string); -procedure FormatECSDate(ADTStr: string; var AnECSRpt: TECSReport); -procedure LoadECSReportText(Dest: TStrings; AnECSRpt: TECSReport); -procedure PrintECSReportToDevice(AnECSRpt: TECSReport); - -implementation -uses TRPCB; - -constructor TECSReport.Create; -begin - ReportHandle := ''; - ReportType := ''; - ReportStart := ''; - ReportEnd := ''; - PrintDEV := ''; - FNeedReason := ''; - ECSPermit := False; -end; - -function IsESSOInstalled: boolean; -var - rtn: integer; -begin - Result := False; - rtn := StrToIntDef(SCallV('ORECS01 CHKESSO',[nil]),0); - if rtn > 0 then - Result := True; -end; - -function GetVisitID: string; -var - vsitStr: string; -begin - vsitStr := Encounter.VisitStr + ';' + Patient.DFN; - Result := SCallV('ORECS01 VSITID',[vsitStr]); -end; - -function GetDivisionID: string; -var - divID: string; -begin - divID := SCallV('ORECS01 GETDIV',[nil]); - Result := divID; -end; - -procedure SaveUserPath(APathInfo: string; var CurPath: string); -begin - CurPath := SCallV('ORECS01 SAVPATH',[APathInfo]); -end; - -procedure FormatECSDate(ADTStr: string; var AnECSRpt: TECSReport); -var - x,DaysBack :string; - Alpha, Omega: double; -begin - Alpha := 0; - Omega := 0; - if CharAt(ADTStr, 1) = 'T' then - begin - Alpha := StrToFMDateTime(Piece(ADTStr,';',1)); - Omega := StrToFMDateTime(Piece(ADTStr,';',2)); - end; - if CharAt(ADTStr, 1) = 'd' then - begin - x := Piece(ADTStr,';',1); - DaysBack := Copy(x, 2, Length(x)); - Alpha := StrToFMDateTime('T-' + DaysBack); - Omega := StrToFMDateTime('T'); - end; - AnECSRpt.ReportStart := FloatToStr(Alpha); - AnECSRpt.ReportEnd := FloatToStr(Omega); -end; - -procedure LoadECSReportText(Dest: TStrings; AnECSRpt: TECSReport); -var - userid: string; -begin - with RPCBrokerv do - begin - ClearParameters := True; - RemoteProcedure := 'ORECS01 ECRPT'; - Param[0].PType := list; - Param[0].Mult['"ECHNDL"'] := AnECSRpt.ReportHandle; - Param[0].Mult['"ECPTYP"'] := AnECSRpt.ReportType; - Param[0].Mult['"ECDEV"'] := AnECSRpt.PrintDEV; - Param[0].Mult['"ECDFN"'] := Patient.DFN; - Param[0].Mult['"ECSD"'] := AnECSRpt.ReportStart; - Param[0].Mult['"ECED"'] := AnECSRpt.ReportEnd; - Param[0].Mult['"ECRY"'] := AnECSRpt.NeedReason; - Param[0].Mult['"ECDUZ"'] := userid; - CallBroker; - end; - QuickCopy(RPCBrokerV.Results,Dest); -end; - -procedure PrintECSReportToDevice(AnECSRpt: TECSReport); -var - userid: string; -begin - userid := IntToStr(User.DUZ); - with RPCBrokerV do - begin - clearParameters := True; - RemoteProcedure := 'ORECS01 ECPRINT'; - Param[0].PType := List; - Param[0].Mult['"ECHNDL"'] := AnECSRpt.ReportHandle; - Param[0].Mult['"ECPTYP"'] := AnECSRpt.ReportType; - Param[0].Mult['"ECDEV"'] := AnECSRpt.PrintDEV; - Param[0].Mult['"ECDFN"'] := Patient.DFN; - Param[0].Mult['"ECSD"'] := AnECSRpt.ReportStart; - Param[0].Mult['"ECED"'] := AnECSRpt.ReportEnd; - Param[0].Mult['"ECRY"'] := AnECSRpt.NeedReason; - Param[0].Mult['"ECDUZ"'] := userid; - CallBroker; - end; -end; - -end. diff --git a/CPRS-Chart/rEventHooks.pas b/CPRS-Chart/rEventHooks.pas deleted file mode 100644 index f850d35..0000000 --- a/CPRS-Chart/rEventHooks.pas +++ /dev/null @@ -1,36 +0,0 @@ -unit rEventHooks; - -interface - -uses - Classes, ORNet; - -function GetPatientChangeGUIDs: string; -function GetOrderAcceptGUIDs(DisplayGroup: integer): string; -function GetAllActiveCOMObjects: TStrings; -function GetCOMObjectDetails(IEN: integer): string; - -implementation - -function GetPatientChangeGUIDs: string; -begin - Result := sCallV('ORWCOM PTOBJ', []); -end; - -function GetOrderAcceptGUIDs(DisplayGroup: integer): string; -begin - Result := sCallV('ORWCOM ORDEROBJ', [DisplayGroup]); -end; - -function GetAllActiveCOMObjects: TStrings; -begin - CallV('ORWCOM GETOBJS', []); - Result := RPCBrokerV.Results; -end; - -function GetCOMObjectDetails(IEN: integer): string; -begin - Result := sCallV('ORWCOM DETAILS', [IEN]); -end; - -end. diff --git a/CPRS-Chart/rProbs.pas b/CPRS-Chart/rProbs.pas deleted file mode 100644 index 87684ec..0000000 --- a/CPRS-Chart/rProbs.pas +++ /dev/null @@ -1,201 +0,0 @@ -unit rProbs; - -interface - -uses SysUtils, Classes, ORNet, ORFn, uCore; - -function AddSave(PatientInfo: string; ProviderID: int64; ptVAMC: string; - ProbFile: TStringList): TStrings ; -function AuditHistory(ProblemIFN: string): TStrings ; -function ClinicFilterList(LocList: TStringList): TStrings ; -function ClinicSearch(DummyArg:string): TStrings ; -function ProblemDelete(ProblemIFN: string; ProviderID: int64; ptVAMC, Comment: string): TStrings ; -{function ProblemDetail} -function EditLoad(ProblemIFN: string; ProviderID: int64; ptVAMC: string): TStrings ; -function EditSave(ProblemIFN: string; ProviderID: int64; ptVAMC, PrimUser: string; - ProbFile: TStringList): TStrings ; -function InitPt(const PatientDFN: string): TStrings ; //*DFN* -function InitUser(ProviderID: int64): TStrings ; -function PatientProviders(const PatientDFN: string): TStrings ; //*DFN* -function ProblemList(const PatientDFN: string; Status:string): TStrings ; //*DFN* -function OldProblemLexiconSearch(SearchFor: string; Matches: integer; ADate: TFMDateTime = 0): TStrings ; -function ProblemLexiconCodeSearch(LexIEN: string; CodeType: string; ADate: TFMDateTime = 0): string ; -function ProblemLexiconSearch(SearchFor: string; View: string; ADate: TFMDateTime = 0): TStrings ; -function ProviderFilterList(ProvList: TStringList): TStrings ; -function ProviderList(Flag:string; Number:integer; From,Part: string): TStrings ; -function ProblemReplace(ProblemIFN: string): TStrings ; -function ServiceFilterList(LocList: TStringList): TStrings ; -function ServiceSearch(const StartFrom: string; Direction: Integer; All: boolean = FALSE): TStrings; -function ProblemUpdate(AltProbFile: TStringList): TStrings ; -function UserProblemCategories(Provider: int64; Location: integer): TStrings ; -function UserProblemList(CategoryIEN: string): TStrings ; -function ProblemVerify(ProblemIFN: string): TStrings ; -function GetProblemComments(ProblemIFN: string): TStrings; -procedure SaveViewPreferences(ViewPref: string); -function CheckForDuplicateProblem(TermIEN, TermText: string): string; - -implementation - -function AddSave(PatientInfo: string; ProviderID: int64; ptVAMC: string; - ProbFile: TStringList): TStrings ; -begin - CallV('ORQQPL ADD SAVE',[PatientInfo, ProviderID, ptVAMC, ProbFile]); - Result := RPCBrokerV.Results ; -end ; - -function AuditHistory(ProblemIFN: string): TStrings ; -begin - CallV('ORQQPL AUDIT HIST',[ProblemIFN]); - Result := RPCBrokerV.Results ; -end ; - -function ClinicFilterList(LocList: TStringList): TStrings ; -begin - CallV('ORQQPL CLIN FILTER LIST',[LocList]); - MixedCaseList(RPCBrokerV.Results) ; - Result := RPCBrokerV.Results; -end ; - -function ClinicSearch(DummyArg:string): TStrings ; -begin - CallV('ORQQPL CLIN SRCH',[DummyArg]); - Result := RPCBrokerV.Results ; -end ; - -function ProblemDelete(ProblemIFN: string; ProviderID: int64; ptVAMC, Comment: string): TStrings ; -begin - CallV('ORQQPL DELETE',[ProblemIFN, ProviderID, ptVAMC, Comment]); - Result := RPCBrokerV.Results ; -end ; - -function EditLoad(ProblemIFN: string; ProviderID: int64; ptVAMC: string): TStrings ; -begin - CallV('ORQQPL EDIT LOAD',[ProblemIFN, ProviderID, ptVAMC]); - Result := RPCBrokerV.Results ; -end ; - -function EditSave(ProblemIFN: string; ProviderID: int64; ptVAMC, PrimUser: string; - ProbFile: TStringList): TStrings ; -begin - CallV('ORQQPL EDIT SAVE',[ProblemIFN, ProviderID, ptVAMC, PrimUser, ProbFile]); - Result := RPCBrokerV.Results ; -end ; - -function InitPt(const PatientDFN: string): TStrings ; //*DFN* -begin - CallV('ORQQPL INIT PT',[PatientDFN]); - Result := RPCBrokerV.Results ; -end ; - -function InitUser(ProviderID: int64): TStrings ; -begin - CallV('ORQQPL INIT USER',[ProviderID]); - Result := RPCBrokerV.Results ; -end ; - -function PatientProviders(const PatientDFN: string): TStrings ; //*DFN* -begin - CallV('ORQPT PATIENT TEAM PROVIDERS',[PatientDFN]); - Result := RPCBrokerV.Results ; -end ; - -function ProblemLexiconSearch(SearchFor: string; View: string; ADate: TFMDateTime = 0): TStrings ; -begin - CallV('ORWPCE LEX',[SearchFor,View, ADate]); - Result := RPCBrokerV.Results ; -end ; - -function ProblemLexiconCodeSearch(LexIEN: string; CodeType: string; ADate: TFMDateTime = 0): string ; -begin - CallV('ORWPCE LEXCODE',[LexIEN, CodeType, ADate]); - Result := RPCBrokerV.Results[0] ; -end ; - -function OldProblemLexiconSearch(SearchFor: string; Matches: integer; ADate: TFMDateTime = 0): TStrings ; -const - VIEW = ''; -begin - CallV('ORQQPL PROBLEM LEX SEARCH',[SearchFor, Matches, VIEW, ADate]); - Result := RPCBrokerV.Results ; -end ; - -function ProblemList(const PatientDFN: string; Status:string): TStrings ; //*DFN* -begin - CallV('ORQQPL PROBLEM LIST',[PatientDFN, status]); - Result := RPCBrokerV.Results ; -end ; - -function ProviderFilterList(ProvList: TStringList): TStrings ; -begin - CallV('ORQQPL PROV FILTER LIST',[ProvList]); - Result := RPCBrokerV.Results ; -end ; - -function ProviderList(Flag:string; Number:integer; From,Part: string): TStrings ; -begin - CallV('ORQQPL PROVIDER LIST',[Flag,Number,From,Part]); - Result := RPCBrokerV.Results ; -end ; - -function ProblemReplace(ProblemIFN: string): TStrings ; -begin - CallV('ORQQPL REPLACE',[ProblemIFN]); - Result := RPCBrokerV.Results ; -end ; - -function ServiceFilterList(LocList: TStringList): TStrings ; -begin - CallV('ORQQPL SERV FILTER LIST',[LocList]); - MixedCaseList(RPCBrokerV.Results) ; - Result := RPCBrokerV.Results; -end ; - -function ServiceSearch(const StartFrom: string; Direction: Integer; All: boolean = FALSE): TStrings; -begin - CallV('ORQQPL SRVC SRCH',[StartFrom, Direction, BoolChar[All]]); - MixedCaseList(RPCBrokerV.Results) ; - Result := RPCBrokerV.Results ; -end ; - -function ProblemUpdate(AltProbFile: TStringList): TStrings ; -begin - CallV('ORQQPL UPDATE',[AltProbFile]); - Result := RPCBrokerV.Results ; -end ; - -function ProblemVerify(ProblemIFN: string): TStrings ; -begin - CallV('ORQQPL VERIFY',[ProblemIFN]); - Result := RPCBrokerV.Results ; -end ; - -function UserProblemCategories(Provider: int64; Location: integer): TStrings ; -begin - CallV('ORQQPL USER PROB CATS',[Provider, Location]); - Result := RPCBrokerV.Results ; -end ; - -function UserProblemList(CategoryIEN: string): TStrings ; -begin - CallV('ORQQPL USER PROB LIST',[CategoryIEN]); - Result := RPCBrokerV.Results ; -end ; - -function GetProblemComments(ProblemIFN: string): TStrings; -begin - CallV('ORQQPL PROB COMMENTS',[ProblemIFN]); - Result := RPCBrokerV.Results ; -end; - -procedure SaveViewPreferences(ViewPref: string); -begin - CallV('ORQQPL SAVEVIEW',[ViewPref]); -end; - -function CheckForDuplicateProblem(TermIEN, TermText: string): string; -begin - CallV('ORQQPL CHECK DUP',[Patient.DFN, TermIEN, TermText]); - Result := RPCBrokerV.Results[0]; -end; - -end. diff --git a/CPRS-Chart/sBitmaps.res b/CPRS-Chart/sBitmaps.res deleted file mode 100644 index 4ca89c5f0f2053ba2d899040e496b2acd402ac6e..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 5188 zcmc&&zfT-T6nS`! z70sb?2J|(mbGK-PzN1ZgOlx$T*2$+Wx=*V>4~r4=^Rv_C;Lp&QFX|NK-KKP2u<(e} znB3rrCaR(1<6}5va$;O=@XY7yh(`)}c}JZ*k~Ymzr_&Z&f0H1Z<{F(&$15;`6nEP2 zCwKz}k%UVrQ|0KA=PL~ON~bp9=X=@!OZUK1$qcv{;pQWZky>)|1nu#~fCzZNg&I83 zoRAw&mO*R^t1H4-qyqzaffXz(mldl;yjm_T7kJpd!m#mce+X6Fheq;pGi#S03~SON zYs;}Itjr9n!`hjR#FZ9diYs;~Pm%8oV zX!hU$lzA3w@j?$7f{3lxj!d06IP`-0(Gf)+*W2y(k;mr9YaiCzEIe(ZUd7XGL~YUo zuy+UhW(BR1wTpY_T6miQZ!f^x6FNPm9q@LRWT#m59C&*P-p*aa^-kHGf-izShXsZ| z5q}v^GCZlW7sj+Kq#gbhSI1- zE(@W7(7knOz$Sj}-0OgAO=!(ouO`N&UM-|N1l!l=TnQds(&@qRcavC#7wrM%aY?eh?GtF$uHVbWLo1A8uWsXyH z#oP>?WgELNjGa7U4#P0wILbIgMHa+0Q{;`Tg99ahN(<#rXyhBz>VCYBQ|mTv^1HaR z9%$<^eU2C@qk8%neNxMNYe#~{7L#8r#_0VbPc$dGw?rLK0=WQ*8?d`4Cntqn61&%1 zQX6->Ip$tZ`lC0^uG-E^#W8mk@AYy&s0w4m75OLS;)`N^H^N0KFUOoyaB!SZT01%U zeG&GL?q5r4d%b_e{(aW$p2DWh!(Jlz*G#d^UMjZTZtfQn;1>vvQ-QFPa`EL&a-o8N zb^{RvQLqcUM6|mrf`HucYe}vQIThtBu5zoAgYGfYWpP-ierB%dTGzOakz1Spb@I-T>{eo>>+#P27 ziSF{!mi^i(k4xgpc(c9jY3xitk#yiAX-4eKHWhYT17~2=k4An0=smD=>*5)62lu-0 z^jPnB;q9*8Z&>k#GiDKeQcKPV`NkImg5UvBYVbsJGR}MyU25_85DdNaQ^ z4`U(-aNvi=Y6=$?^nK7^$n!LX2w>Hy&rq>KQjPkUSz}7vz!*QxP;rT&(dnvRf3(VY z#hO1KuUMv2eH{LO&eDB3L@H;g;>uZC;Qm=!;7iX^D+jtvw^)GncSbPYSMl@Hd&79&kB0mf s6RgHte{}@onC!pqS@@G*BosQWI9Ac<&jxs>f`5K`?-}5}f30Wfe>iV6u>b%7 diff --git a/CPRS-Chart/sRemSrch.avi b/CPRS-Chart/sRemSrch.avi deleted file mode 100644 index 11476a754b4d05b80f5fc2cc20581daef81f00fa..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 12288 zcmeI2JC7YT7>2)9f))uOB2j=u5tr!*9i@>_qyVDeR#6zVLRl#YDTyLV{{Vi3iz9vo zg==a`3jY9#w5ubrJfA(DvFEZYKv9U8Ir|)6Uf;&!*JsY0{p|j|d+}Y755Br@KDqz- z7xAXZgR@5uzj=E8;C&IXuip^&CJ~NXuZr-Oj}zY04UyY~%KXr_p3v6gCyyRNZtLm! z+2eURZReFCQ`^=y+v7H^Q~$d=v~>re_IEOjWL|!%>qYnz?@PctQHe21{5{IEUw;-c z791d$01*-=Ent9%b>JaDge2kw3|JuHJOqf4hJFp91qU7iL`Wh;B^a>az(arti9re& zu;9Q$fC!065-?!FfrkJQl2~DwVnAOGJOqf4%BdMcXu*Mp01;9-ZEFZEIPef4LMl_@ z450-F9s)#2WxBi}wBW!)fC#BfWiW&m9C!#2A(d&4hR}io4*?>id*%s4u;Tz0}lZrq_WJT zA++GYLy%|3OF2-^)1Js>{*%i~jR7ys;_ag^KmGXa*T~$DeFpX!*k@p$fqe${8Q5oF zpMiY__8AcUZvG)(q`&{+>G|EeXWyn9BBxg$|2I9xem-XBAOD;c=yjF*20DEypANb% z&eIjS=x7JI5WWlbjWblOF9*1|xID;0F1nVv&~HoqxoL_l%{^*;zCkSt47$+&DJ^X2 z$D>eSThHdZxLB<}jNzbDusAe}^UKO%Lq8QcYMB+eRHTX3#yBGhIK{wb)pv(~Hk3v7u+53q zwe9D-DjitY{4{=@J(bJ5#`4iOwz1FE!Yg4{e@)+gzMSW^d0NS9v#y=zws03OUfrxe zcy&v!ZrjkS+^)0I`^>Ae`gj#9HeT&@^@uuk^6E^#M8+ypx1F9p(enVt0==F!>^%8< zre~jT>x0ja8};*tcK#MHHakZ0>~LcGx!riR*LA1UjbO^1V#CEPr#D{dg+3}J^4#^^ z=hWF5h;enD@H1t(Ij;3;IF#03 zGRw{LAS`sPk5B5r=6dn@wm$fLqrN^S7|yT^sCF}?_)z2yTdDola4bMZ`%QkX(=kUa zJq}~an8li+Go>V7di_QFe7N=8n#ba@&Fi%3lX7)NdA^RyDwyP%UT>|YThDHM<+ibL zSwFtAgimN>sx`$Zdy$v<31b|y$B1U~9|h`@ZC#&~WuK4L#z?NuqqO4lF?)=lbMk}F zr`#!~`k~YxUDga#>+9_40Gmopw3g_yxc6bc>65a|=%}xFxEtS8uv8r0YqrQq-b3W{q-Nz3H6hr4@OjPZ zb$!q^`F!l77FId`PZ2&FMIvKD^m(}+V@}t;dYBPh@=(65KGiRqz~Y&FTUzJ0O>0B* zbl3QwCo5KYK*>`FJ<2 zN;&fQ^{x24W{;strA+pDj*jA>X=eFdYi8m`FTaajrR(o%3!4soU-`Ql1JrNi>@%}H zLdRJKoS%S|I}y!nj(S3CeQU9*H&wdmu6NV1NL)KV=Vw2@=b3%=`z^wopueZr^dH3A l^lvQXHvJ3#r`o0uZ}jP(_}}|hfAUtJ{`#GgrrUpX`~?h{vmyWh diff --git a/CPRS-Chart/sRemSrch.rc b/CPRS-Chart/sRemSrch.rc deleted file mode 100644 index 24cb753..0000000 --- a/CPRS-Chart/sRemSrch.rc +++ /dev/null @@ -1 +0,0 @@ -REMSEARCHAVI AVI "RemSrch.avi" diff --git a/CPRS-Chart/sRemSrch.res b/CPRS-Chart/sRemSrch.res deleted file mode 100644 index 86ba2f7a085302702e366f5ba7f59f65d56cc4e2..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 12380 zcmeI2JC7YT7>2)9f)<1jktjf-h|6>=9R-CWAY!={38bPhXoa#;5KPzy2p32E z3JTZMlob8}6lsr+#PWRhT1wd@J>`>j1qs3^5oZ_nN$l75KMpwiIWyEK*T!m z5FkPlaRLS`kZ>LXL`Yq~hR}io4*?=15uy?dSa9GWK!n5~1q@hl;2}VS#3TtAu;9Q$ zfCx#fFibI^F9#k1L`db-j3Kn(z(artshqYogccll2oNEaDRG9-f&&i$BBU~1-Vj=F z;2}VSRHiZ*LJJN&1c;EzG)F^d!GVVW5mLScHW@+-4m<>iki>KTUJU4&JJ45v2uZvV zFkr!fhX4^$xop-DT5#YYK!j8-sWXHY9C!#2A(hKbC*E6d;2}VSRF*<8gccll2oNEa zWfBdc1qU7iL`ZoF`D6$!IPef4LXyb&M=@Z*frkM4N@ZyoLukQ)hX4^$S$5VCT5#YY zK!jA5q%(vT9C!#2A(iFo4WR`G9s)#2WhnJT+YD?ou+6|W1KSL2GqBBo=y&rE`6B)O z50B4JPR_nfS457Ve*E9`7~A=noPYdtQlQmUZX0OyxqRH|x;T#)ds-(T!xCKp}H?DgAHdv2N{OLGrepKnmJ0-Y}Oe@qK&`r#lHSl6@p_WQ;9-57Q{ z1+zo5IKQmyR`g?$gO*v4OGTPkY+T!(_1I>-@cQQSd_n(v*Rl2TYT{0PW~KkEQ)0(|10Ud!V;)pO52Y~)(c&sHhZ+;xoY%MPF8^mZ?(^lWpiGG=L) z{hSj~pXXupc@tef*0tDBr_qbgDY2qwpX2q`>|_ zoz%yxSh4bItE)%UsiRjX`UNsp8M|%t{E40iFcfI@tYPQT-xEFid|mH+epsoWKeY3= zfT7tTl4pk#)6eb7tF5j(oo)nU?ilMXZaKZ-O3(B`DUoNcZ$8gPTc77*v{k)x(wg2I zZLa5q(96Sm?=OE@CZo|N^;x9&Oc!EYTqpcYS#FN|dVScH)?YHq&2uNrbghq1`hiXL z;`4RA^Z81BeN51uVHr^0O_$7*SXFeQl;jJq zKX0FRx1MYBSX{PxomPEPuFfD&*HKvoqdd|3TdVQbvl(BxZLD0@j;}1?BN`cNjWNpZ z^D;kTj6?Pi(MyxtV^P$=h$@O`ZR(w8W4-s@uzVrE*JH}MsmHLCrs)1^K zojo03RjG>hC7P@zkxR61o8HdHH1)6N=UMu^^RSM2X`H=>SMw~V*=R+TTVU_d$ z6ydW$Br+sKpO@<~GSGh z|Lt{9?Gf6{w0^xuEa>efFsnb4hxYRlp39xSyhjZEvqxl~4|mh5lp~K{--^%s>>*UC zl*vBN(LwAq%`CrbO-x+r<#(~C>H53c%%)x6PyJnu0qQq$_L<2Zq2nwA&QHL~orq>u zM}I;~eQU8^uc|cBO>d@Smbi3&&d+{)*E9R-_iKb#L4Qy0(|-`J)4#El>+~=DpK6`n Zz22sO;(zaJ{n49k`s=q#nr{Em@fQFXyg>i}