ࡱ>   !"#$%'()*+,-.Root EntryF0}S@Book CompObj!j_VBA_PROJECT$ʏ$ʏ  "$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOP l \ fiskenoninson B _VBA_PROJECT=x,a<X@"1Arial1Arial1Arial1Arial1Arial""#,##0_);\(""#,##0\)""#,##0_);[Red]\(""#,##0\) ""#,##0.00_);\(""#,##0.00\)%"""#,##0.00_);[Red]\(""#,##0.00\)5*2_(""* #,##0_);_(""* \(#,##0\);_(""* "-"_);_(@_),))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)=,:_(""* #,##0.00_);_(""* \(#,##0.00\);_(""* "-"??_);_(@_)4+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)                + ) , *     Instructions modShrtCut modCallS6K l  z  dMbP?_*+%,&APage &P",Dcent??U} D} $:D 8F/kA^ Name:S6KDrillVersion~ ^@Author John Robinson Date ~ @@PurposeRJTo enable drill back into a patients clinical record from a report output. Amendments-%Find Whole Cell with patient_id only.d%!+i> " l > ޥ l > ޥ  FMicrosoft Excel 5.0 WorksheetBiff5Excel.Sheet.59qa] i*\G{000204F3-0000-0000-C000-000000000046}#1.0#9#C:\WINDOWS\SYSTEM\VBAEN.OLB#Visual Basic For Applications^^^n*\G{00020813-0000-0000-C000-000000000046}#1.0#9#C:\OFFICE4\EXCEL\XLEN50.OLB#Microsoft Excel 5.0 Object Library^^Q tSdir#` 8bead4fb7abead4fcd.SummaryInformation(& 8bead4fb7 2bead5374*DT abead4fcd 3bead5374*D` t**ttJ tJj`4  `*4jJ*T 4@@  T j`T@ J4` ^^^^^==^^+ VbV @"&*,n8H&SAROX! f~v&%Nt,w0vnCXTjP ZO< rǠ&.|8tBJ$*RK\2b&onr}rxR8x&G&jtN]l e|$ 2 :K~@D&wP߫T%\>fcltf^SQtX$viV+}ztLutm#w":u.<ExcelVBABook2Module1_EvaluateAuto_OpenApplicationOnSheetActivateSheetOpenpvtnoErrorhandlerScreenUpdatingRemoveshortcutActiveSheetTypexlWorksheetPivotTablesCountCellsFindWhatAfterActiveCell`LookInxlFormulasLookAtxlParttSearchOrderxlByRowsSearchDirectionxlNext_MatchCaseActivateOffsetSelectIsNumericValueAddShortCutErrnoMenuItemsShortcutMenusxlWorksheetCellMenuItemsAddCaptionOnActionMsgBoxiItemIndexDeletevS6KDrillstrMsgFileNamevAuthorPurposeAmendmentsvversionWrittenThisWorkbookSheets3RangeChrresetmenusBarMenuBarMenuBarsResetModule2CallNotesiCallRowiCallColiPatRowiPatColErrortimes lngPatientIDFnReturnRowColumnShellvbCriticalmodShrtCutmodCallS6KxlWholeS6KDRILL.XLS_B_str_ChrAuto_CloseS6KDRILL.XLA<\ Ua @ $ @  =] X~T,,,pMvN,t+,v,LT ,, <B2$\ Instructions$pL 6,t66 L,, \B3$< Instructions$p 6t6,6L t ,L, \B4$< Instructions$p 6t6,6L ,, \B5$< Instructions$p 6t6,6LRl ,L, \B6$< Instructions$p 6t6,6L| ,, \B7$< Instructions$p 6t6,6Lx ,L,< Name: j  |, ,,l Version: pt ,l Author: | j |,L ,L,l Date: | rlx< |,L ,L,l Purpose: | j| |,L ,L,l Amendments:lx ,vf<@\@"Torex Meditel Excel Add In v , ,,L&|x(( ,L,,,Open Clinical Notes$$p~6n6^~n^,vd@$p^6n6 ^n,`dp$$p^6n6 ^n,LR^n~p~6  4J6Tn~,$*$pn16~`6jn~,pn16~r*p16  fDn~ ,,,$p6~z~,-$tz,Open Clinical Notes$j CallNotes$tz,z,L,rj~ZJ:* ~ZJ:*,j$p*6tN*,L z *:JZ~6Tn~,$*$pn16~`6jn~,pn16~r*p16  fDn~ ,r,,,,$p6tN,,p36~ Rn~,pn3jNn,tjn6~n~,j,`bH@,Z patient_id$pn1$J$:$*$$$p~6  4J6Tn~,$*$pn16~`6jn~,pn16~r*p16  fDn~ , ,,,,$p6tN,L,J&,$p6tN,,Lr j  n~Z<,, SheetOpen$p6JN,L < F`` ` `* @tS*\R1*#1a*\R0*#1*\R0*#6*\R0*#5*\R1*#0*\Rffff*2bead5374*\R1*#1*\R1*#81 4Z\LT `xJ *4 8X * 4 @| Jx Tt `lF~| 8 Lx@l D  4J  4J , :  <<_U HME<TH____T__ *<__8__$F__0Q2"86<T"X\d &ht6|  "  \@  b$DLPT &Xdh l &x"6<H 6 & "$(,0b4Bd H".j.n.j4.nd.j.n&@.P.LL.P|,J,F,V0"48< ,D P\dh+Module for calling notes from Shortcut menu^ SheetOpen @(Jk Y@__j @(tA@ !  5!'`m ` patient_id  j  *  @4J %B@T %`B@j !$t !A@!ggg @(ttj  @(tgk LjYl $!-C@Open Clinical Notes CallNotesC@mtj yA@ @(tcakNoxYllOpen Clinical Notes $%!'  $%B@   $%B@ kYYYY B2 Instructions j%t%!'*'TB3 Instructions j%t%!'TluB4 Instructions j%t%!'4tOB5 Instructions j%t%!'`shB6 Instructions j%t%!'@leB7 Instructions j%t%!'Jok Name: * $ ' ch  Version:  T $ ' D  Author:  4 $ ' to  Date:  ` $ ' D  Purpose:  @ $ '   Amendments: J $ '  @Torex Meditel Excel Add InA@kY<'T   B@\ __k ` 4^^ X.H,, ,pR16B*NR,pB16R4NB, 2A1$pB6TNB," patient_id$pB1$$$$$2$pR6  4J6TBR,p16B*N,p16B4pN,vd @vpd @p6BjB,vd @vd @p6TN,bj^\,"C:\Medapps\S6000\S6Load.exe bj| rbPN,,.(Please select a row with patient data inf,vff@*"Torex Meditel Excel Report FormatsvBRBR,$p6tN,L,,L,5J,2-An Error has occurred in calling System 6000. fP,.)Check that the programme s6load.exe is in fP,lf4.the medapps/s6000 directory on the workstationf,,J,,,0+Sorry unable to call up the clinical notes. fP,lf.)Check that the patient_id is a number and f,lf0*contains no letters. Also remember it uses f,lf:4the 'patient_id' which is an internal number not the f,lf,'external number usually shown on notes.f,,vff@*"Torex Meditel Excel Report FormatsvBRBR,$p6tN,LH&fpBR2`` ` ` 8tS*\R0*#1*\R0*#5*\R0*#0*\R0*#6*\R1*#0*\R1*#1*\R1*#8121 ^  1p ^ n j f b, \hPtD8$R e (B  2   4J  4JME 2__3" $,40< &l &x4\ & &> 4$ 8DD4X084^ &$048< @BNL>J<D > P\`@LdDXDZNd,6<|4^ &jY ,8DP^Y\^YhYt*Find the Patient_Id from the line of data. !*' !4'A1$B@T  patient_id  j  *  @4J %B@T !*' !4'  $!'is  $B@T =shell calls the programme last arg = window state 1 is normalC:\Medapps\S6000\S6Load.exe $@' `(Please select a row with patient data in'   J"Torex Meditel Excel Report FormatsA@ @(t t(gtj 5-An Error has occurred in calling System 6000. $ ' \)Check that the programme s6load.exe is in $ ' | .the medapps/s6000 directory on the workstation' `7If s6report open get invalid procedure call so skip it.\ g+Sorry unable to call up the clinical notes. $ '  )Check that the patient_id is a number and $ '  *contains no letters. Also remember it uses $ '  4the 'patient_id' which is an internal number not the $ ' \ 'external number usually shown on notes.' g  J"Torex Meditel Excel Report FormatsA@ @(t\k_Oh+'Oh+'0HGP50nk  v   '  ' -  "- "- !-""- !"-33- !3-DD- !D-UU- !U-ff- !f-ww- !w-- !-- !-- !-- !-- !-- !-nn- !n-- !-'- -   "-""- !"-33- !3-DD- !D-UU- !U-ff- !f-ww- !w-- !-- !-- !-- !-- !-nn- !n-- !-'- Arial-   2  -  "-- !-- !-- !-- !--  2  "1 2 # $32 2 4 5D3 2 E FU4 2 V Wf5 2 g hw6 2 x y7 2 8 2 92 102 11 2 @nA 2 6pB "System-'- Arial- 2 #Name:  2 #qS6KDrill  2 4Version  2 41.22 EAuthor 2 Eq John Robinson 2 VDate 2 V15/05/012 gPurpose v2 gqJTo enable drill back into a patients clinical record from a report output. 2 x Amendments  ?2 xq%Find Whole Cell with patient_id only.   -'- -  "-- !-- !-'iTorex S6000 Drill Back"Drilling Back into clincial notesJohn RobinsoninohnsDouble click on a table of patient data. If there is a patient_id column, it will load the patient in System 6000.Microsoft Excel