Standard Jet DBnb` Ugr@?~1y0̝cßFN|c7ܜ<(.` {6߱lC573y[h-|*|y=!f_Љ$g'DeFx -bT4.0j s p GA0߶~?S!D @!  @  YGcessVeS  Y   Y Y  Y Y  Y  Y  Y   Y u Y o Y n Y z Y 2lY  Y  z Y  pY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeniile dAleYYIdParentIdName        OYcL+fSY Y Y  Y 2wACMFInheritableObjectIdSID| YObjectId YSY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Order Y"ObjectIdAttribute -YcessVeSY Y Y  Y  Y t Y t Y a Y gccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship meh alSpoSw uerroLi ojYYYszObject$szReferencedObjectszRelationship)?p+ \  H  y 4 e l'XDu @  @@ @ FwvA@@ @@@@ @ @ @ @  @@ @ @@ LoY^OOJmJLJkQ^Yb\kmdqdvJUQiSi`kf^JkWqdvJUQiiQMdiOMdobmkMdbbQMmYdbMdOQ`JiMMdOQ`QOYJkvkmQ`SobMmYdbkfdiikoffdimkmiYbUmdd^komY^YmvSobMmYdbkifmLidskYbUJoOYddiUJbYxQOLvmYm^QsYmWYbJomWdiYbM^oOQkkoL[QMm3GifmLidskYbUqYOQddiUJbYxQOLvmYm^QsYmWYb`QOYJmvfQ3GOQ^QmQ^Yb\k`JMid68`QOYJ#OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+SqdvJUQiiQMdiOMdobmkJ^^+mJL+Md^o`bkLYL+OJmJ LYL+`JkmQi!LYL+`SWO"LYL+mQum#^dMJmYdb)`SWO+OJmJ)`SWO+YmQ`)`SWO+`JkmQi)`kvkJMMQkkdL[QMmk)`kvkJMMQkku`^)`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkhivJJkoffiQkkQOLYLk)hivJoOYd68OQ^QmQ'/)hivJoOYd6:UQmLidskYbU'/;) hivJoOYd6UQmMJmSYQ^Ok'/;G) hivWdmmdfYMk68OQ^QmQ7?) hivWdmmdfYMk6:UQmLidskYbU7?K) hivWdmmdfYMk6UQmMJmSYQ^Ok7?KW)hivWdmmdfYMk6@bdMi7?G)hivWdmmdfYMk6BbdLoM\k7?G)hivWdmmdfYMk6D`dqQYkLb7?O)hivqYOQd68OQ^QmQ'/)hivqYOQd6:UQmLidskYbU'/;)hivqYOQd6UQmMJmSYQ^Ok'/;G)hivqYOQd6@bdMi'/7)hivqYOQd6BbdLoM\k'/7)hivqYOQd6D`dqQYkLb'/?)kvkmQ`J^^mJL^Qkbdm^Yb\QO)kvkmQ`J^^qdvJUQimJL^Qk)mL^JoOYd)mL^JoOYd:'KmL^Mdobmk mL^Wdm)mL^Wdm:LmL^qYOQdmL^qYOQd:'MqdvJUQimJL^QkJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOokQiOQSYbQOokQiOQSYbQO  @ @ @ @ @ @ @ @ @          ))) ) ) ) ) )) )!)")#)$)%)&)')()))*)+) !" #*)-)0)4);)q)})j)K LM @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @    $% & ' ( ) * + , - . / 0 1 2 3 456789:;<=>?@ABCDEFGHIJKLMNO/0123456789:;<=>?@ABCD   !! ! " " " ###$$$%%%&&&'''((() )!)"*#*$*%+&+'+(%&'("#$)*+,-.P        ***---000444;;;;qqq q!})}*}+j/j0j189:EUEVEWABC>?@EXEYEZE[E\E]  !"#######z wy       ! "#%&'()*+,-./01 2 3 4 5 6 7 8 9$:<=>?@A;BDEFGCHJKLMNwwwwwwwIww w w w w wwwwwww www w w w w w w w w  w ww!w#w$w%w&w'w(w)w*w" w+ w- w. w/ w0 w1 w,!w2!w4!w5!w6!w7!w8!w3"w9"w;"w<"w="w>"w:#w?#wA#wB#wC#wD#w@$wE$wG$wH$wI$wJ$wK$x$x$x$x$x$x$x$x$x$x $x $x $wF%x %x%x%x%x%x%x%x%x%x%x%x%x% x% x% x% x%x%x% x % x!% x"% x#% x$% x%% x&% x'%  x(%  x)%  x*%  x+%x &x,&x.&x/&x0&x1&x2&x3&x4&x5&x-'x6'x8'x7x    6$d _ Z g  ~ ) [ D+nD@)3Q@3Q@BIB_MFHD؅Q@Q@BIB_MFHD}|DSN=VGER;SERVER=VGER;ISUDB.BIB_MFHD'42t]a." qqqq" &&n@qU220 ^AQ@5Q@BIB_MASTER}|DSN=VGER;SERVER=VGER;ISUDB.BIB_MASTER'42th]a."qqqq"<&&    & @@yY664 ^zQ@ Q@BIB_DATA}|DSN=VGER;SERVER=VGER;ISUDB.BIB_DATA'42th]a." qqqq"&& @qU220 ^JX@ X@ALL_TAB_COLUMNS}|DSN=VGER;SERVER=VGER;SYS.ALL_TAB_COLUMNS''42t:]a." qqqq"@@c@@> ^kڔ@kڔ@macro-01-Media}|>>>>>>>>>>< =ki6@Y@DeleteLinks}|88888888886 (0@(0@rptBrowsing-Video-OrganizedByTitleWithinMediaType}| '+@'+@rptBrowsing-Audio-OrganizedByTitleWithinAuthor-IncludesSubject}| lfU @lfU @Utility Functions}|DDDDDDDDDDB XBU@XBU@String Tools}|::::::::::8 m@m@PORR support}|::::::::::8 ּn@ּn@Media System Functions}|NNNNNNNNNNL  =ki6@F@Marc Code}|44444444442  @@Connection Code}|@@@@@@@@@@>  |:@F@Voyager Record Counts}|LLLLLLLLLLJ  ~zT@~zT@frmSplash}|44444444442  Uϗ@Uϗ@Build database links to Voyager}|``````````^  :6@:6@UserDefined}|88888888886  :6@:6@SummaryInfo}|@DDD88888886 @ 5!6@xHk#@AccessLayout}|4MR2KeepLocal T"@zz:::::::8 @d<6@d<6@SysRel}|.........., d<6@d<6@Scripts}|0000000000. d<6@d<6@Reports}|0000000000. d<6@d<6@Modules}|0000000000. d<6@d<6@Forms}|,,,,,,,,,,* $@$@DataAccessPages}|@@@@@@@@@@> (96@(96@MSysRelationships|~DDDDDDDDDDB (96@(96@MSysQueries|~88888888886 (96@(96@MSysACEs|~22222222220 (96@(96@MSysObjects|~88888888886 (96@2+ @MSysDb}|@(:::......., @(96@(96@Relationships|~<<<<<<<<<<: (96@(96@Databases|~44444444442 (96@(96@Tables|~.........., flN0c9 ] ? ! !!!!!!!!!!!!!!!! ̩̩̩̩̩̋ m O 1  m O ! ʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʿʑ s E  U \zxF(D F P^AuditblAudiotblSupptblAudiotblSupp j@1v 'L@0v 'tblAudiotblSuppressedBibsT@/vOC! tblAudio.Notes- g tblAudio.Notes- gtblAudio.SongTitles2 g tblAudio.SongTitles2 gtblAudio.PhysicalDesc4 g tblAudio.PhysicalDesc4 gtblAudio.TITLE- g tblAudio.TITLE- gtblAudio.DISPLAY_CALL_NO7 g tblAudio.DISPLAY_CALL_NO7 gtblAudio.AUTHOR. g tblAudio.AUTHOR. gtblAudio.BIB_ID. g tblAudio.BIB_ID. gtblSuppressedBibs333 tblAudio!!!  GtblAudio-2%%% O[tblAudio-2].NotesN@.vA5 w[tblAudio-2].SongTitlesN@-vK? w[tblAudio-2].PhysicalDescN@,vOC wtblAudio-2%%%  G G@+v 'BIB_MFHDBIB_TEXTB@*v=1! BIB_MFHDMFHD_MASTERL@)vC7! TITLEBIB_TEXT.TITLE7 wDISPLAY_CALL_NOMFHD_MASTER.DISPLAY_CALL_NOX/ wAUTHORBIB_TEXT.AUTHOR: wBIB_IDBIB_TEXT.BIB_ID: wMFHD_MASTER''' BIB_MFHD!!! BIB_TEXT!!!  GtblAudio!!! OMFHD_MASTER''' BIB_MFHD!!! BIB_TEXT!!!  GtblHot O  G tblHot.*' gtblHot  G G  G  G  G  G tblAudio.*) gtblAudio!!!  G G  G@v 'BIB_MASTER.BIB_ID0 gBIB_MASTER%%%  GtblSuppressedBibs333 O  GsigRECORDCOUNT_VW---  ig Gsig ig G YZN Y < Y t< Y e< Y ( Y  Y <Y Y Y  Y  Y  Y    Y   Y  ( Y ( Y  E Y  0Y  8Y  @Y  HY  P Y  PXY  X Y  X Y  EY  `Y  h Y  h Y E Y E OWNERTABLE_NAMECOLUMN_NAMEDATA_TYPEDATA_TYPE_MODDATA_TYPE_OWNERDATA_LENGTHDATA_PRECISIONDATA_SCALENULLABLECOLUMN_IDDEFAULT_LENGTHDATA_DEFAULTNUM_DISTINCTLOW_VALUEHIGH_VALUEDENSITYNUM_NULLSNUM_BUCKETSLAST_ANALYZEDSAMPLE_SIZE$CHARACTER_SET_NAME(CHAR_COL_DECL_LENGTHGLOBAL_STATSUSER_STATSAVG_COL_LENCHAR_LENGTHCHAR_USEDV80_FMT_IMAGEDATA_UPGRADED v1 LVALL&& , ,     & & d 2           d (      (  2    j      ,     FYN Y L Y L Y  BIB_ID SEQNUMRECORD_SEGMENTYBIB_DATA_IDXv1   wYN   Y L Y R;L Y Y Y  Y [Y  Y  Y LY   BIB_IDLIBRARY_ID SUPPRESS_IN_OPACCREATE_DATEUPDATE_DATEEXPORT_OKEXPORT_OK_DATEEXPORT_OK_OPID*EXPORT_OK_LOCATION_IDEXPORT_DATE[[[[[[[[[[[[YYYY4BIB_MASTER_CREATE_DATE_IDXBIB_MASTER_IDX6BIB_MASTER_SUPPRESS_BID_IDX4BIB_MASTER_UPDATE_DATE_IDXHv1b    GYȵ N Y L Y L BIB_IDMFHD_ID,T- / xYY2BIB_MFHD_BIBID_MFHDID_IDX2BIB_MFHD_MFHDID_BIBID_IDXv1@  c YlingonN"""!! Y L Y  Y  Y , Y  Y  Y d Y  ( Y  ( Y  < Y   Y  Y ( Y  < Y < Y  Y  Y  Y 2 Y  Y , Y P Y  Y  Y  Y  Y  Y  Y P Y  Y   Y ! Y ! " Y!!" _d BIB_ID AUTHOR TITLETITLE_BRIEFUNIFORM_TITLEEDITIONISBNISSNLCCNNETWORK_NUMBER SERIES CODEN GPONUMSTDTECHOTHER_STD_NUMBEGIN_PUB_DATEEND_PUB_DATE$PUB_DATES_COMBINEDPUBLISHER_DATEPUB_PLACEPUBLISHER PUBLISHER_NUMBERIMPRINTLANGUAGEBIB_FORMATRECORD_STATUSENCODING_LEVELDESCRIP_FORMFIELD_008PLACE_CODE DATE_TYPE_STATUSMAP_PROJECTIONMAP_MATH_DATASTOCK_NUMBERboc!"oeia!#a e!$lg!%!&!'!(YYYYYYYY4BIB_TEXT_BIB_FORMAT_ID_IDX&BIB_TEXT_BIB_ID_IDX2BIB_TEXT_DATE_TYPE_ID_IDX0BIB_TEXT_LANGUAGE_ID_IDX0BIB_TEXT_MAP_PROJ_ID_IDX4BIB_TEXT_PLACE_CODE_ID_IDX0BIB_TEXT_PUB_DATE_ID_IDXs v1b @               ;! i C % G`,qCYUCMA==[S@=[S@tblAudio-2}|666j^,?@S,<@tblHot}|@:::......., @}8@F3A@tblAudio}|A@>>>22222220 @+C}}6@C}}6@System All Voyager Tables}|n@@l``TTTTTTTR @ )֞F @.@0qry-Video-07-Move-ISBN}|@|@fZZNNNNNNNL @(~@=L.@0qry-Video-06-No-Bucks}| @3,@ |@pddXLLLLLLJ `'N ^ @o.@0qry-Video-05-No-CR}|@ |@^RRFFFFFFFD @%T`~@¨eQ@Pqry-Video-03-No-Dups}|5T&@@nbbVJJJJJJH `#c @r}Y.@ qry-Video-01-Delete}| @@|@l``THHHHHHF `"؊ @'Q.@0qry-HotTopics-07-Move-ISBN}| @@|@znnbVVVVVVT `!$@4M.@0qry-HotTopics-06-No-Bucks}|q @@|@xll`TTTTTTR ` ޿@n@0qry-HotTopics-05-No-CR}| @@ ?|@rffZNNNNNNL `|^~@->.@0qry-HotTopics-04-Get-Cat-Fields}|BoRD@|@xxl``````^ `-@aL@Pqry-HotTopics-03-No-Dups}|VnR8@@vjj^RRRRRRP `>p,@]y@-@@qry-HotTopics-02-Get-Browsing}|4 @N@@tth\\\\\\Z `/(\~@aJ~@0qry-Audio-04-Get-Cat-Fields}| @(2@|@|ppdXXXXXXV `z @gO~@Pqry-Audio-03-No-Dups}|;K8@@nbbVJJJJJJH `,GR~@\.~@@qry-Audio-02-Get-Browsing}|? @ @ @xxll`TTTTTTR `d @-@ qry-Audio-01-Delete}| @P@|@l``THHHHHHF `DaL@L@Pqry-AA-SuppressedBibs}|@u@|@pddXLLLLLLJ `q3@ɶ4@MSysAccessXML}|4MR2KeepLocal  T|||<<<<<<<: @;M1Q@l23Q@MSysAccessObjects}|DDDDDDDDDDB 4V@yV@MFHD_MASTER}|DSN=VGER;SERVER=VGER;ISUDB.MFHD_MASTER'42t0f]a."qqqq"r@@}[886 ^0RU@V@MFHD_ITEM}|DSN=VGER;SERVER=VGER;ISUDB.MFHD_ITEM'42t0f]a."qqqq"*&& P P   @uW442 ^-8U@eU@MFHD_DATA}|DSN=VGER;SERVER=VGER;ISUDB.MFHD_DATA'42t0f]a." qqqq"&& ,@uW442 ^*T@wT@LOCATION}|DSN=VGER;SERVER=VGER;ISUDB.LOCATION'42t]a." qqqq"6&  < &&@qU220 ^B Y++N ++ Y L Y  Y ;S2 Y x Y @2 Y [ Y [ Y L Y LLOCATION_IDLOCATION_CODELOCATION_NAME*LOCATION_DISPLAY_NAME(LOCATION_SPINE_LABELLOCATION_OPAC SUPPRESS_IN_OPACLIBRARY_IDMFHD_COUNT[[+,[ۉY&LOCATION_LOC_ID_IDXv1 *`YN.. Y L Y L Y MFHD_ID SEQNUMRECORD_SEGMENT./Y0MFHD_DATA_MFHDID_SEQ_IDX..v1 - tY11N11 Y ML Y L Y ER Y p Y ( Y [ Y [MFHD_IDITEM_IDITEM_ENUM CHRONYEARCAPTIONFREETEXT[[12[[[13[YY$MFHD_ITEM_ITEM_IDX$MFHD_ITEM_MFHD_IDX1111 v1b  0 0YN55 Y L Y [L Y [ Y  Y  Y [ Y [ Y  Y  Y [ Y [. Y @Y Y   Y  [Y   Y   Y [LY MFHD_IDLOCATION_IDCALL_NO_TYPE$NORMALIZED_CALL_NODISPLAY_CALL_NO SUPPRESS_IN_OPACSOURCE_MODULERECORD_STATUSRECORD_TYPEENCODING_LEVELFIELD_007FIELD_008CREATE_DATEUPDATE_DATEEXPORT_OKEXPORT_OK_DATEEXPORT_OK_OPID*EXPORT_OK_LOCATION_IDEXPORT_DATE [[56[[[5758 59  5:YYYYY<MFHD_MASTER_CREATE_DATE_ID_IDX&MFHD_MASTER_LOC_IDX.MFHD_MASTER_MFHD_ID_IDX:MFHD_MASTER_NORM_TYPE_LOC_IDX<MFHD_MASTER_UPDATE_DATE_ID_IDX5555 v1b N @ 4 4 4 4 4 YYN<<3YY Y DataIDD<pYAOIndex 7 `K;[QIfSysAccessObjectsdLLLLLLLLLLJ ࡱ>  Root Entry8kaVBAYT>kSkVBAProject#YT>kSkVBA YT>kSkFWib #]* !%"&'(),+^.h23467TUe0cqd_pnpqrstuvw~Root Entry8P kaVBAYT>kSkVBAProject#YT>kSkVBA YT>kSkFbWi]* !%1&'(),/.h2^3467TUe0cqd_pnpqrstuvw~dirAcessVBAData __SRP_1__SRP_2$ OPropData DirDataIDirDataCustomGroupsjYT>YT>DataAccessPagesK;[ࡱ> Gj Root Entry7v麣ltVBAYT>v麣lVBAProject$"YT>v麣lVBA YT>v麣l~ LoU}lJ !"#$%&'(=+,8./012345679:;<>J@ABCDEFGHILMNOPQRSTUkqWprstuvwxyz{)Root Entry7@K{ptVBAYT>v麣lVBAProject$"YT>v麣lVBA YT>v麣l~ Lo}UJV !"#$%&'(=+,8./012345679:;<>J@ABCDEFGHILMNOPQRSTUXkYZ[\]Wp)PropData 1V^[.@K{pBlob PropDataZ\ PropData+-bTypeInfo.c`BlobDeltai2K;[3$e0nrkPropDataScriptsHbY@7YT><}\k0WYT>YT>Blob XgAcessVBAData? Forms 6*YT>0bk0(YT>YT>Blob @UKMNOVWZ\[]^c_`abdiefghjkuvlwx{~      !"#$%&'()r+,-./012345679:;<=>ABCDEFGHILMNPQRSTUVWXYZ[\]^_`adefghjkmnopqsvxz{PropData 1V^[.<}\kBlob PropDataZ\ BlobDeltaDirDataBPropData]_DirDataCopy`TBlob l_PropData02tTypeInfoK;[u@BlobDelta1w;33)6:Turns Warning Prompts Off 0qry-AA-SuppressedBibs --- Creates local table of suppressed bibs for filtering out suppressed bibsqry-AA-SuppressedBibs01T|qry-Audio-01-Delete -- EmptBlobDeltaDirDataBPropData]_DirDataCopy`Ties tblAudioqry-Audio-01-Delete01qry-Audio-02-Get-Browsing --- Gets Audio CD collection information from location "Browsing Media"qry-Audio-02-Get-Browsing00qry-Audio-03-No-Dups --- Eliminates duplicate entries caused by multiple holdings for the same titleqry-Audio-03-No-Dups01qry-Audio-04-Get-Fields --- Adds specific subfield data to the recordsqry-Audio-04-Get-Cat-Fields01/`dTransfers the Audio table to the Audio databas33)6:Turns Warning Prompts Off 0qry-AA-SuppressedBibs --- Creates local table of suppressed bibs for filtering out suppressed bibsqry-AA-SuppressedBibs01T|qry-Audio-01-Delete -- EmptKMNOVWZ\[]^c_`abdiefghjkuvlwx{~ elInProgressh btnClosedhjmno mdmdmdmdmdmhjdhh080=Babc09e ghij;k,cC@"[Event Procedure] Ariald2 Tahomam45 Tahoma` Detail3t~F2M. d5U`8ab1cHde Label0bPlease do nMarc CodeMarc CodeConnection CodeConnection CodeForm_Build database links to VoyagerForm_Build database links to VoyagerUtility FunK;[ctionsUtility FunctionsString ToolsString ToolsPORR supportPORR supportMedia System FunctionsMedia System FunctionsForm_frmSplashForm_frmSplashUYGGDXGQCMVBRDORUSGKCJSOPAON:!)ZLHRBCBJIJYBWDVLZBQO_GZAMTXM:OPROJECT#*iPROJECTwm8;8 B@Bcqu Z LastUpdate;C@ B@O AtID="{08BF4273-DA4F-11D3-B8F2-005004984E0B}" Module=Marc Code Module=Connection Code DocClass=Form_Build database links to Voyager/&H00000000 Module=Utility Functions Module=String Tools Module=PORR support Module=Media System Functions DocClass=Form_frmSplash/&H00000000 Name="Voyager Access Reports" HelpContextID="0" VersionCompatible32="393222000" CMG="1614AD5CD37C6280Y~628062806280" DPB="A9AB126713671367" GC="3C3E876A89FC8AFC8A03" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Marc Code=130, 130, 748, 551, C Connection Code=84, 22, 896, 634, C Form_Build database links to Voyager=24, 34, 801, 646, C Utility Functions=78, 78, 696, 499, C String Tools=132, 132, 746, 580, C PORR support=176, 176, 790, 624, C Media System Functions=66, 87, 879, 500, Z Form_frmSplash=44, 58, 910, 509, Z e1Microsoft AccessX:\Media Update\Audio.mdb0tblAudio-2tblAudio0 dqry-HotTopics-01-Delete -- Empties tblHotTopicsqry-HotTopics-01-Delete01 qry-HotTopics-02-Get-Browsing --- Gets Browsing Hot Topic Books information from location "Browsing Media"qry-HotTopics-02-Get-Browsing01  qry-HotTopics-03-No-Dups --- Eliminates duplicate entries caused by multiple holdings for the same titleqry-HotTopics-03-No-Dups01 qry-HotTopics-04-Get-Fields --- Adds specific subfield data to the recordsqry-HotTopics-04-Get-Cat-Fields01@DHqry-HotTopics-05-No-CR --- Eliminates the carriage return that seperates fields that have multiple occurences ( i.e. 650 subject fields)qry-HorU 04 y Q aK;[ I   Ai!yIq i! qAY a@:8 a) I@<A i ppp@@  rrr@D  vvv@H  zzz@L  ~~~@P 1 @T Q @ Xy  I@ \y   @` ! @ dy 9  WWd0)'h%x$ `x ,x0$ x@ 4$ (dt! lt d t5dQ'dt! lt dTUpzt5dNdt! lt d FDT:4$% ! l )t 6dT$t! lt tkzt! lt t\$ t dT$X$:h%x! lx x$$ x|  K'Xh! h X h5Xy+'''(:H NXX 6X(h! h h'Xh! h X h5X+'''(:H NXX 6X(h! h h'Xh! $h X h5XS+'''(:H NXX 6X(h! $h h'Xh! <h X h5X+'''(:HNXX 6X(h! <h h'Xh! Th X h5X-+'''(:HNXX 6X(h! Th h 4h! h (hh! h hh! xh (hh! h Phh! h Phh! $h Phh! <h Phh! Th Phh! h hh! h (hh$ Qhxh:8%:H%x Qhp$h'%'8%H%p Qhtpt 4k 4C /h! h (hh! ! ! $! <! T:H%t  0!  V+QoQoQoQoQo(QhoXx  pn)6X( knPX:H%ht h 0 DX:8(` /)h6X(QPX:H%ht h 0 DX:8(` /)h6X( kp k'k#*#*nj 2h! h (h t h! ! ! $! <!  V+:8 N:HK;[!NQoQoQo(QhoXx  pn6X( kni * / * / kp"#*#$*#%*#&*#t'*#p(*#l)*#h**F(Xh! $h X:H*x2tplhh6(XA(h! h (V+x:H+NXXx ,ph6X( ks+-* /+* / kp.C / t h! h (hh! xh (hh! h Phh! h Phh! $h Phh! <h Phh! Th Phh! h hh! h (hh! h h<'''( /hh ,0>FX h6X(4xpxtdtplhhX( cl%! :l1%h! $h h:l1%h! <h h:l2%h! Th h:l3%h! h h:l3%h! h h$ hdX\8080__SRP_3,__SRP_4 -__SRP_5A__SRP_6I` nXH"  8 8(68H((X]Ah(XHh (X(\ hUpzLt, h(H8X Cl llJqpCdtlpd\((,ltlML@ `1h6,!lhFL] , ,45,Ch!lhFL] , ,45,hML@  lh 2ltqt ldlh*1d tf\.ldCx`4 xdhl,L Ch lhJqpC` ql lp?C`?tlpdXllql(((lthMH@ `1d6( ld2lt  qlC` l`ld*1` lllp$`MH@(  ( 5(? tfXT& `MH@(  ( 5(=C`l`Cx dL4 x`dh(arU 0` Yq00(0` Yq00(,`Yq000` 00((!`0(I`0(q`0rU~|  !a""A## $ y y Q y$)%!%q%&XCx JqTlT$-l M4@$  $ qt/ 5$lt Ji6($ l M4@ K;[ qp/ 6$ ql(($lll M4@ `1h6$ qX lX)TM@hM4@$ $TM@lM@ >(lll M@  >p'`llltP'@6 $Pll ql(($lll M4@ `1h6$;($lll M4@  46$lXqX lX"Ch:($lll M4@  qd/ 6$:($lll M4@  q`/ 6$FlhFldi$lpl`l M4@ `1\6$l\Cx<4xhD\4 $p`@`Cxlll  1t ltJpn<ltFL\ \<(,Upr6\< krkn0krltFL\ \')`6<@ lt*1t h t h ltCxh8 xtlhp(\`<`` $ Q`p1` *#\*F<%:L%p Q`l/\5<$`'%',%L%l Q`hh 4kJHltF,<:L%`h ` 0 D<`1t)`6<dh 4k<:L%`h ` 0 D<(,,]>')`6<9 lt*1t h m h ltCx`8 xlhpt(\`<`` $ Q`p1` *#\*F<%:L%p Q`l/\5<$`'%',%L%l Q`hh 4kJHltF,<:L%`h ` 0 D<`1t)`6<dh 4k<:L%`h ` 0 D<(,]>')`6<9 lt*1t h m h ltCx`8 xlhpt(\`<MX:8(` /)h6X(kPX:H%ht h 0 DX:8(` /)h6X( kp k'k#*#*DŽ 2h! h (h t h! ! ! $! <!  V+:8 N:H!NQoQoQo(QhoXlx=  pl=xkpn)6X( kn * / * / kp"#*#$*#%*#&*#l'*#h(*#d)*#`**F(Xh! $h X:H*p2lK;[hd`h6(X](h! h (V+p:H+NXXlx= ,pl=xkp)h6X( k+-* /+* / kp.C / t h! h (hh! xh (hh! h Phh! h Phh! $h Phh! <h Phh! Th Phh! h hh! h (hh! h h<'''( /hh ,0>FX h6X(8 4xppthlhd`hX( cl%! :l1%h! $h h:l1%h! <h h:l2%h! Th h:l3%h! h h:l3%h! h hX$ hdX\80nrU~| !1Yy)Q y Q !q I pl$l pxpz kx(,AkxA l$l K& @:P0$ `1p60h:P@0: ::p:`P`60p1L' %'@%'P%l$0 0H l QLt50 lpt D `Ht , /H#ltDLH D L ( )DL o050epzK$8p0p`t8 HLD0pP` $ Q`h"`'0%'@%'P%h Q`d.d 4k.3(:P%`d ` 0Q(oh `5 d :d0lhd`(t<ll 7%hdxH D x , /dx <$ dxt<ll 7%hdxH H x , /dx <$ dxpz,xrtH D t krtcn^l\ \DHkxDL%tH D t 0H 8 >DF4$ $4)tH64\$pz xdn5 h$ (DtH\4$pz,xrtH H t krtcn^l\ \DHkxDL%tH H t 0H (>DF4$ $4)tH64\$pz xdn5% h$ (DtH\4$pzll px kx,AkxA ll K|,ld @dT%H Q@t5dKpz<(t@dMrU P` AQi=!//////#$`4`A=!/4`A =!/4!`A=!/4I`A __SRP_7i)__SRP_8K;[ ?|__SRP_9rN__SRP_a K|=!/<q`A )A=!//#nrU ,`!9 /,`a//,`//(`/,!`//(I`/(q`rU~|  K) y Q ( a)!I * +Q++q" ,!y,,,,a-I-!---.1.y... /Y/y/#/ 0y000 1Y1112q3 3333q 445Q5566 89A999):Q:y:  l \$ Q\h\:<%:L%h Q\d$\',%'<%L%d Q\`+(:L%\` \ 0 Q(ob\ ` l  LF <:\5%0  0  D%H` H 0 QolH :8?l `  8 lL`hdH \$ Q\h\:<@%:L%h Q\d$\',%'<%L%d Q\`*` 4 k*,$:LA%\` \ 0 Q$ol\ :LBl ` h4l`hd\$ \$ Q\h\:6F*F0FL] 1<h (Hl '6L &\h 0H\ (Il J \4 h4H6L <$l84`hd 0\L<  9/$`$`( `/( `/nrU , ` ! 0, ` 900, ` 900( ` rU~|  ;"# $77! < y Q y<q= !9>Q>qA# 0 J\ \`1x5\ qlp JdT((\lpl MD@$ $`1t6\$lt2xll?ltOllqlP4fD]1\($lpl M@ :]1'6$xll?ltOllql pfT8xMD@\ \`1x5\r 0,xt$\$p Jdhz((8lpl MX@( (`1t68(ltnl lp?O pfh CxM@L T,xt8(xp Jdhs((8lpl MX@( (`1t68(ltg lxlt*1x pfhMO Tx, K;[xt8(pzl ^  `P(@]4:r `PUc,@:@(Pkrl 0 0( ]46P0 rd,Rpz=(tP0L Jpj Cxlxpvkv(jMH@kvxMX@8 8`1p58,jMH@kvkjxMX@8 8`1l58 lpll2KkvxMX@8  8lxJkvkjxMH@(  (`1x68(kvlxpv, d0xpl8(hh$ Qht7h'0%'@%'P% *#d *#`t Qhp2d`Cl$.p 4k.,p k,ll2 ll*1lHllF@(:P%hp h 0( D`1l)h(6 p W p  t X llCxaget4xlpt$d`h( XH(8]u X1hr H H ( (   `h 1h/6H(fHh F(l5H :Xl ,lh,H(MkjD(kjl l68"H:X*8Upj58 kj kjpjl:X+8lQlkjH:X)8kjD(kjl l68"H:X,8Upj58 kj kjpjl:X-8l+l(8kjl( (l68("H:X.8Upj58 kj kjpjl:X/8l+l(8kjl( (l68(ll8 08(l58 (l 8(TL:\1]4# :\2l$ Q89:\3L<:4%:%8 Q46<$'%'L%\%4 Q0 l00 4 k><:\5%0  0  D%H` H 0 QolH :8?l `  8 lL`hdH \$ Q\h\:<@%:L%h Q\d$\',%'<%L%d Q\`*` 4 k*,$:LA%\` \ 0 Q$ol\ :LBl ` h4l`hd\$ \$ Q\h\:6F*F0FL] 1<h (Hl '6L &\h 0H\ (Il J \4 h4H6 <$l84`hd 0\L<  9tTopics-05-No-CR01HLPqry-HotTopics-06-No-Bucks --- Eliminates dollar amounts that had been stored in the ISBN field and ISBN2 field (020 and 024 respectively)qry-HotTopics-06-No-Bucks01qry-HotTopics-07-Move-ISBN --- __SRP_13p_VBA_PROJECTy(BBBAUWLQPROGZDDQXDGHGICWHTID:a7.CXRYVCHGMRWOUDKYYRHYBQUVAYEC:Moves the ISBN2 field to the ISBN field -- if the ISBN field is emptyqry-HotTopics-07-Move-ISBN01/jnOutputs the HotTopics table to an excel spread sheet1Microsoft AccessX:\Media Update\Hot.mdb0tblHot-2tblHot0\qry-Video-01-Delete -- Empties tblHotTopicsqry-Video-01-Delete01qry-Video-02-Get-Browsing --- Gets Browsing DVDs information from location "Browsing Media"qry-Video-02-Get-Browsing01qry-Video-03-No-Dups --- Eliminates duplicate entries caused by multiple holdings for the same titleqry-Video-03-No-Dups01qry-Video-04-Get-Fields --- Adds specific subfield data to the recordsqry-video-04-Get-Cat-Fields01 8<@qry-Video-05-No-CR --- Eliminates the carriage return that seperates fields that have multiple occurences ( i.e. 650 subject fields)qry-HotTopics-05-No-CR01 8<@qry-Video-06-No-Bucks --- Eliminates dollar amounts that had been stored in the ISBN field and ISBN2 field (020 and 024 respectively)qry-Video-06-No-Bucks01qry-Video-07-Move-ISBN --- Moves the ISBN2 field to the ISBN field K;[ -- if the ISBN field is emptyqry-HotTopics-07-Move-ISBN01/`dOutputs theVideo table to an excel spread sheet1Microsoft AccessX:\Media Update\Video.mdb0tblVideo-2tblVideo0rU ( `o( `(0 `  ///, `9 /0n`Qdir__SRP_0+__SRP_1__SRP_2   !"#$%&'()*+-./0123456789:;<=>?@BCDEFGHJKLMNOPQRSTUVWXYZ[\]^_`abcdefghjklmnopqstuvwxyz{}~0* pHdVoyager Access Reports2@  = V @zG J<DAO>BDAOP *\G{00025PE01-0C  0046}#5.0#0#C:\PROGRAM FILES\@COMMON MICROSOFT SHARED\;350.DLL#Microsoft 3.5 Object Library HTstdole>fstdole]f\]043+[V-]2]WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation/ VBIDE> VB@IDEC CE157#C5.3Program Files\CommonHShared\VBA6E6EXT.OLBRVisual Basic fopplic1s Extensibility +AG$@Form_Build database links to DGHA brm_Cuied @haiaba s@j ink@ @oV@ ygr@BBBAUWLQZDDQXDGHGICWHTID28AB@UWLQPROGZbDXA&GgCHTiAB,1`v'B",?p*"(EB+B Marc CodeG.rc51C1d00HUPZTP_ENADSNDPCXJLTNZUCBGDOLHUZEP&ENDSDCXTJTZ C5GL# ]LF!EConn k@Yn 2eJt6o` IELKFHJSCTILZDETWANWIKHJIRZ1I_LKTF +JC-LU1E`WN0Iu`HI5!5 1S/1΋UBtXFuncssGA6UJOiy2FucAsLZLHRBCBJIJYBWDVLZBQO_GZAMTXM3Z/HB!BBJY0WKV`*Z`Q 2_NAzMXOL EK @String Tool!r2ng`T@5eUYGGDXGQCMVBRDORUSGKCJSOPAONcU GDIZGbCR@OU`U@5G@2CS5`P4O No& oLoPORR supportTGaP R` @~up ordCXRYVCHGMRWOUDKYYRHYBQUVAYECc!aRV0H`M` W` U`KYHBUV JYQCdock!Media SysteK, 2M |d 2a1Sy`t m5MLYGOHEJLWZWTRDFUYKLTMJMIQDQGL =Hp 1?W`3W$UQF?YLMPM@LQQ_;P b]frmSplahshGF%\fm!pZa[h43HIJEEZKAXUNSWDMOZMOACGYCPGALH H JUP E KX N13M0Z'OpC YGL CI >JY K;[rU~~~~~~~q        A   ( y 8  HsMessage am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office\OFFICE11\MSACC.OLB#Microsoft Access 11.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL#Microsoft DAO 3.5 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE AutomationZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 zGG8BBBAUWLQPROGZDDQXDGHGICWHTID0c4777ae31HForm_Build database links to Voyagerp*0v'8HUPZTP_ENADSNDPCXJLTNZUCBGOL0d4777ae31|Marc CodeF]L8IELKFHJSCTILZDETWANWIKHJIRZD0e4777ae31Connection Code0"@8qppp@<FFrrr@@Ftttx$ `x Tx+:h%x$ `x dxLX'h%$ XD:H%x Lx $ D,)xD5X''H%'h%$x$HIJEEZKAXUNSWDMOZMOACGYCGALH: HUPZTP_ENADSNDPCXJLTNZUCBGOL:0aIELKFHJSCTILZDETWANWIKHJIRZD:;%LYGOHEJLWZWTRDFUYKLTMJMIQDQG: Fies tblAudioqry-Audio-01-Delete01K;[qry-Audio-02-Get-Browsing --- Gets Audio CD collection information from location "Browsing Media"qry-Audio-02-Get-Browsing00qry-Audio-03-No-Dups --- Eliminates duplicate entries c8ZLHRBCBJIJYBWDVLZBQO_GZAMTXM0f4777ae31*"Utility FunctionsEHD8UYGGDXGQCMVBRDORUSGKCJSOPAON0g4777ae31String Tools`&8CXRYVCHGMRWOUDKYYRHYBQUVAYEC0h4777ae31PORR supportc8LYGOHEJLWZWTRDFUYKLTMJMIQDQG05477a1b11,Media Syst__SRP_f__SRP_10__SRP_11 __SRP_12     ' !"#$%&()*+,-./012345678:;<=>?@ABCDEaused by multiple holdings for the same titleqry-Audio-03-No-Dups01qry-Audio-04-Get-Fields --- Adds specific subfield data to the recordsqry-Audio-04-Get-Cat-Fields01/`dTransfers the Audio table to the Audio database1Microsoft AccessX:\Media Update\Audio.mdb0tblAudio-2tblAudio0 dqry-HotTopics-01-Delete -- Empties tblHotTopicsqry-HotTopics-01-Delete01 qry-HotTopics-02-Get-Browsing --- Gets Browsing Hot Topic Books information from location "Browsing Media"qry-HotTopics-02-Get-Browsing01  qry-HotTopics-03-No-Dups --- Eliminates duplicate entries caused by multiple holdings for the same titleqry-HotTopics-03-No-Dups01 qry-K;[HotTopics-04-Get-Fields --- Adds specific subfield data to the recordsqry-HotTopics-04-Get-Cat-Fields01@DHqry-HotTopics-05-No-CR --- Eliminates the carriage return that seperates fields that have multiple occurences ( i.e. 650 subject fields)qry-HotTopics-05-No-CR01HLPqry-HotTopics-06-No-Bucks --- Eliminates dollar amounts that had been stored in the ISBN field and ISBN2 field (020 and 024 respectively)qry-HotTopics-06-No-Bucks01qry-HotTopics-07-Move-ISBN --- Moves the ISBN2 field to the ISBN field -- if the ISBN field is emptyqry-HotTopics-07-Move-ISBN01/jnOutputs the HotTopics table to an excel spread sheet1Microsoft AccessX:\Media Update\Hot.mdb0tblHot-2tblHot0\qry-Video-01-Delete -- Empties tblHotTopicsqry-Video-01-Delete01qry-Video-02-Get-Browsing --- Gets Browsing DVDs information from location "Browsing Media"qry-Video-02-Get-Browsing01qry-Video-03-No-Dups --- Eliminates duplicate entries caused by multiple holdings for the same titleqry-Video-03-No-Dups01qry-Video-04-Get-Fields --- Adds specific subfield data to the recordsqry-video-04-Get-Cat-Fields01 8<@qry-Video-05-No-CR --- Eliminates the carriage return that seperates fields that have multiple occurences ( i.e. 650 subject fields)qry-HotTopics-05-No-CR01 8<@qry-Video-06-No-Bucks --- Eliminates dollar amounts that had been stored in the ISBN field and ISBN2 field (020 and 024 respectively)qry-Video-06-No-Bucks01qry-Video-07-Move-ISBN --- Moves the ISBN2 field to the ISBN field -- if the ISBN field is emptyqry-HotTopics-07-Move-ISBN01/`dOutputs theVideo table to an excel spread sheet1Microsoft AccessX:\Media Update\Video.mdb0tblVideo-2tblVideo0g`T@5eUYGGDXGQCMVBRDORUSGKCJSOPAONcU GDIZGbCR@OU`U@5G@2CS5`P4O No& oLoPORR supportTGaP R` @~up ordCXRYVCHGMRWOUDKYYRHYBQUVAYECc!aRV0H`M` W` U`KYHBUK;[V JYQCdock!Media SysteK, 2M |d 2a1Sy`t m5MLYGOHEJLWZWTRDFUYKLTMJMIQDQGL =Hp 1?W`3W$UQF?YLMem Functions;x8HIJEEZKAXUNSWDMOZMOACGYCGALH02477a0f1fqForm_frmSplash `0xHؑgE+I+]iA^A]><RلU@1O f@,dQ+~##r@ {'U5M6&mXe9aLڷP~fF5c@vWsx4` Access asDElseGendHendifdir__SRP_0+__SRP_1__SRP_2 Pexplicit\go^Goto_IfNotoptionthentowith VBAWin16~Win32MacVBA6# Voyager Access Reports7daostdole`VBIDEA$ Form_Build database links to Voyagers _EvaluatebCancel btnClose_ClickDoCmdƧCancelInProgress_ClickUpdateStatusDisplay sMessagem iPosition`IsNullProgressDisplay*ValueKvbCrLfSetFocusSelStartZClearStatusDisplayConnectVoyager_ClickqErr_ConnectVoyager_ClickodbӽoRS RecordsetoQDQueryDefbLinkOkoODBCName|MsgBoxRvbOKOnly ConnectStringcDBUserID9Password Tablespace*CancelInProgresslMEnabled۪ConnectVoyagerҘRelinkbtnClose0 CurrentDbSCreateQueryDefzN OpenRecordset|dbOpenForwardOnly; iErrorCountEOFExit_ConnectVoyager_ClickG (LinkToODBC% t$(p'Gp*lo5W,AFU(@^6&NK@0T x^6&NK@0T o5W,AFME @[LS S(LX(L: >>H  *PP   :' Xhp  x  . N  6(`(h  6 H* *A  P 6`  (        .  H  X  h  x               <   "        8  xp] B@BoHX'o0] &!($$ &!('"kp &!(  * &(( &B@, " &(.o( &((oPA@04]]]]# check to see if we got some values B!($$'Enter the name of your ODBC connection. FA@D BB@,|@k8 H!($$Enter the ODBC connect string. FA@D HB@,|k J!($$ JB@,|kx L!($$ LB@,| k N!($$Enter tablespace name. FA@D NB@,|k5set the cancel flag to false and enable cancel button' P(R PB@,&disable controls on form except cancel T(R B(R H(R J(R L(R N(R V(R X(R$Z.6Uselect table_name from VoyagerTables where table_name is not null order by table_name 6%\.< ` <%^.8]'b 8!da!allow cancel button to be pressedA@ Process Canceled!A@ P(Rfxkplink to the table  6 B H J L N 8"j V$h'@ @ 8"j linked successfully.A@d 8"j error!A@ b 'bk b "Process stopped too many errors! ( b)A@ P(Rf0k(l  8B@n(link to the system all_tab_columns table  6 B H J Lsysall_tab_columns V$h'@ @all_tab_columns linked successfully.A@d8all_tab_columns error!A@ b 'bk0query all_tab_columns table for the user columns] ]8       select all_tab_columns.table_name, all_tab_columns.column_name, all_tab_columns.data_type, all_tab_columns.data_length, all_tab_columns.column_id from all_tab_columns where owner K;[= " J!("'r 6user_tab_columns r V$t'p puser_tab_columns created successfully.A@duser_tab_columns error!A@ b 'bkLinking Completed.A@f 8B@B(re-enable form and disable cancel button P(R T(R B(R H(R J(R L(R N(R V(R X(R BB@,|4 v!xA@DoP'Vro_isudb L((oH@"Enter database user ID (ro_isudb). FA@D#Enter database password (ro_isudb). FA@D ro_isudb J(( ISUDB N(( VGER B((VGER H(( Attribute VB_Name = "Form_Build database links to Voyager" BHv0{F28855C4-EE28-11D3-8CE2-0040D00F98DF} |@GlobalSpacFalse dCrelTru PredeclaIdȁ"Expose_Templat@eDerivCustomizabD$Optio@n Comp@ 2D  Sub btn$ClT_Ck() DoCmd.  End.InProgress"9== Up|eStatusDisCy(sM}A+Sng#A1iPosi=1Inte If Not Is`Null( .Value) The<5= Len C:If:5G @{ & F/&@ vbCrLSetFocusSelBrt) ]LCorLH#Smonnxectln Error GoTo_CPA*qiodbnǤRSRecordDseSoQDQueryDe`%AdbLOkU ' checksee if we g ?sov< *A$AODBC!|O@MsgBox "E@Hr t he na@of@ your  Fc`l.", 9OKOnly`& 9!KExitc-aG_S&Ze >s`O #DBUserID]Fu ID (ro_isudb) ?'PasswB?pZ _GTsA@le"GO!H ?[ @bBQc#flagA]f and en"to@秫Í.E#dis on@trols f except  O fd50&$Re %oaL P L= CurrentDbqqb@K=J.eK("B"sel`U "_E0from where9is *nLn0l 0er by"^PTQD.Open1T(dbwa\rdJi[CpountUfsy= 0[o Until oRS.EOFN'allow s')be $przedsDoEv`0XP05(xy "0lc #*ed!k1?n+3jXOjick Z1'a"q ?`shЂPiTo-(!,Zf,Pt#-, _}y., -/<.,!%/ q $vC\p"2PsucAf+y.E´ſy" e)+*+ 1  > 5 'pp@ too manyC s! ("0& "))6oE)#n bOfLoop:Sq:MoveN+` k''Li i`p`n 80h`% d%` \X%@Xp@`l @X 0 @V 0 * @@P @@ @@0 @ @ @ (@ @ @  `xPPP0h 8`t @, @P @h $Z @ (@ @ @ @ @ @ @ Hh H `t Z @ X @0 T @P @` @ @x 0 X@ @ @ @ @  @ @ wG$*\Rffff*0h4777ae31*\R2*#2e*\R2*#24*\R2*#2a*\R2*#29*\R2*#28*\R1*#98*\R1*#99*\R0*#13*\R0*#e4*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#fs B  F V` 4 2Z-Pp x   B  K;[   B   *  @H   P` h pbE :      0  P`x    B      X7( : b7  :(  0 @  H2_X "     xp@this function takes a list of strings and concatenates them withOdos/windows style newlines between each string, unless the string is whitespace.or just a comma. This is for address handling.]]   $$ $$,  $X * ' k 'ip $'zHk@ 'i0]]]]]]0]P]h] 0 $$ 'd USD'd Z.@SELECT decimals FROM currency_conversion WHERE currency_code = ' ' %^.8 8"' 8B@B.k ' X  '  ?    'dh'kXdP  'k0k( 'i]]0]H]h] Z.6SELECT Currency_Code FROM Invoice WHERE Invoice_id = ' ' %^.8 8"'@SELECT decimals FROM currency_conversion WHERE currency_code = ' ' %^.8 USD'd 8"'k 8B@B.  X  X . $?    'dP'k@d8 'k( 'iIAttribute VB_Name = "PORR support" Option Compare Database`Explicit FuncZcrlfdelimit(ParamArray vField() As Variant G'this fMtakes a list oHf sngnd concatens them with 'dos/windows0yle newlinIbetween each&, unles! Awhitespacw'or ju@a:mma. TRT addr!hand2g.c Dim vRetValw iInteger"i0 To UBoundB() I@f Trim (i)) <> "" A,"X\en#%K=F(+ CStr+ @vbCrLfEINex}Hz/> ŃBFgetmvers@(rqDLonfg <= @Ih2!1)xit  -A> /n.t(Co0,_R-,d_4Ampt3Currnecy_CodeH:Dou 0..53R'(D+ `1) - // Fa La1* /#E }=ctG_?PYV??4>>>= >*6 / / ) Is~IIrLqI6= "/YwQ= 23 ;0 "%t{N6M?c` (DMi d(–K, 1, In,, " .") +L >@G*S5Gc A BV0XG b CCY@oCdaDK;[ˬable_nameC EndOfLoop"MoveNextL!bQueryOkqvQuery (CreateQuery Erro Description  Form_Load{ Marc Code BibBlobLengthAuthBlobLengthNMFHDBlobLength (GetFieldRawڴmarcrecDTagwhichreclenbaseaddrofdatadirentrytag&fldlenbfldstrtfldtxtthisflddXcomplen}junkGValChrK~(GetField7E sRawFieldiStartiEnd+iLength (GetFieldAll~[sField iWhichTrim@ (GetSubFieldtfld܎sfcodei`slenfstrt=fend genmatch (GetBibBlobinBibIdnBibrecqdb\BibqdfBibrstrecord_segment! (GetMFHDBlobInMFHDIDMFHDRecMFHDqdf$MFHDrst (GetAuthBlob0InAuthIdAuthRecAuthqdfAuthrst3 Connection Code;vDSN1vDBQ.vUID~vPWDq vTableSpace vTableNamebRelink? bTableExists (TableExists (DeleteTableӥ oNewTableTableDefmsSourceOsConnect*CreateTableDefjUCase5 SourceTableNameConnect\ TableDefs%i(DeleteLinksToVoyagerTablesyoTblZDeletex (DeleteQuerywr vQueryNamei_ (QueryExists QueryDefs&iLooppCount0vbForceCq bQueryExistsB ErrorHandlerOoQuery< Utility FunctionsZ (BaseCurrencygvAmount vBaseDecimals . cBaseCurrencyb IsMissingqd^rs_ base_decimalsK (ListSubfields vIndexCodeԚvTag sSubfieldssubfieldRLCase:(DecodeIndexRules vIndexRules  vSearchcode( vRuleType!o(DecodeIndexRulesIXB}(DecodeIndexRulesIXC}(DecodeIndexRulesIXK}iPosf(HasSerialLimit2iiPos1߇iPos2 (GetIndexNameڣ searchname֡(GetLocalDBName[db_nameT (GetLocalDBKeydb_key(GetReportComment vReportNameeobj AccessObjectdbsǂprp@ Application*CurrentProject$ AllReportsacReport% Properties+ String Tools> (RemoveSpaces9strInT`bAllcTemp i1]iNewPosySpace (RemoveCharactersystrChar$(KeepCharactersD(IsAlphaVarTypepvbString`e (DedupeCharsInsChar< cTemp1cTemp2iCharLenRight  (StrDeDupAgӵparm~ret(WLGFxME(LX >(L:> LLLPL`☂,B %`x$h+`@kK;[44#i ii`t`p`l`hif w`d``Ente`\DBC `X`T@`D +` kWi 8iXi`t`r`p`n+` 8kmi 8i`t`8p`XJ+`k99i i ing i a`took `p4514@` the`X\Phil`X T`V +`ki L `tthe p`This% l% h it %`dn ex+`ki  cha`tN pPfor % lp the% hE %`dect +`ki o ge`to 1, p@ fir% l`trie% h etc%`Pd varX~B☀BH|(HH00`x x 0` @ P 0  @ 4 @ $ @  @  @ @ @8 @h @P @ @ @ @ @ p @ ` @P @@ Xx 8  `x <@0 \ @H L @` < @x , @  @ @ @ p`  ` x `xX ` *L@ ` @P @L p@8 @ p0`x @D @@4 @H$ @` @x @ @ @ 0`hHK;[@`x`x`Z`~L@X` @\ @L @p< @(, @ @ @ @ @ @ XXx8 8Xp`xXZ`L@P` @\ @L @h< @ , @ @ @ @ h@ @ Hh(0Ph`xxPZ`L@H` @\ @L @p< @, @ @ @ 0 @ @ @ H8`wG$*\Rffff*0d4777ae31*\R2*#24*\R2*#2f*\R2*#2e*\R2*#2a*\R2*#29*\R2*#28*\R2*#30*\R2*#0*\R2*#30*\R1*#98*\R1*#99*\R0*#14*\R0*#e*\R0*#104*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f#   0 V@ R R PH T R H X X`   T V0 R T &8 P`  T R( T V T0 L T V0 T 8 B  *(8X<24 >@ ( 2 * $ 8 <@     4 - P P h p 6x &  (   2 Z0    (  0 ";    (  8  H P X <` ": ": .F  (B 0 @8x  <  0   08K8 p B    ) )( 0 8 H#Xx  D  R <H T V >8 Xx LB  (*HK;[<x(8  @ Xhpx P    H HX ;`*D    4 @ P X` 2h   &  ;  @ HPXh:p X T RH 2B .(6@6x D ^1($ ,  H V $dP x    Z V( T 2B . H6h6 D @`1P$ ,  H Z  $d     Z VX T 2!B @!.H! x!6!6!" D(" p"`1"$" ," (# H8# ZP# $d# # # #$ $$ $ 0$xp]]],O This module contains four functions that extract information from the MARC andL MFHD records in the Voyager database. Bib records in Voyager are stored inL the bib_data table in segments of no more than 990 bytes. MFHD records areJ stored in the mfhd_data table, no more than 300 bytes. Full MARC recordsN are created by getting all records from the _data table that match on the _idK of the record, then concatenating them together in the order of the seqnum field.Q There are four functions in this module: getfld(), getmarcrec() and getsubfld() and GetMFHDRec().M The getfld() function returns the text of one field from a MARC record. TheO MARC record is in standard MARC format, constructed by piecing the segments ofL the record together by getmarcrec(). Getfld() returns the full text of theN MARC field, with the field tag attached to the beginning of it. For example, a title field might look like:I 24514|aThe last hurrah of the golden horde :|bby Philip Jose Farmer. The arguments are:N marcrec -- a string containing the MARC record, as returned by getmarcrec()L dtag -- the tag of the field to retrieve. This can be from zero to threeN bytes long. If it is three bytes, it will do an exact match. If it isP fewer, it will retrieve fields whose tags match all the characters given.N Thus, a search for subject fields would specify the tag as "6", while aE search for topical subject headings would specify it as "650".N which -- the number of the matching field to get. If this is set to 1, theO first matching field will be retrieved, if it is 2, the second, etc. ToN get all variable fields in the record, specify dtag as "" and increment2 which until getfld() returns a null string.H]$ length of full MARC record]$) where the directory ends and data starts]$- pointer to the current directory entry start]0$# tag of the current directory entry]H$% length of the field (from directory)]`K;[$/ start position of the current field (from dir)]x$ text of the current field]$$ count of the current matching field]$ length of tag to compare on]$ useless return value'5 Figure out how much of a tag we have to compare to '  zXkP- Extract some values from the record leader $$'I does the lenght of the string passed in equal the what the record says   zk  $$' Loop for each matching field'  $''   + Loop for each entry in the directory  $  $  $$   b  '  $'@) Check for the end of the directory  $$zk  '   'k5 Extract the field, using the directory information   $$'   $$'       $' 'i9returns a marc tag without tags, indicators and subfields]x]]]'   $' ' $ '    $'   'k       $ '  'xip]X]p'   $$'    *'  '   $$'] '    $'kix= This function returns one subfield from a MARC record field. The parameters are:L fld -- a MARC record field as returned by getfld(). It includes the MARC5 field tag prepended to the front of the stringM sfcode -- the subfield code to return. This can be one or zero bytes. IfO it is one byte, only subfields with the requested code are returned. If7 it is a null string, all subfields are returned.Q which -- the number of the matching subfield to return. If which is set to 1,F the first matching subfield is returned, if 2, the second, etc.]@ loop counter]X  length of current subfield]p ( start and end positions of the subfield]  count of current subfield] * flag for generic matching (all subfields)9 Check for generic matching (i.e. return all subfields) 'd 'kx I Loop for all matching subfields, starting after the tag and indicators '''_ B Loop for all subfields in the record until a match is found'_  $$  '   $   'x( k k  '  . If no match found, return a null string   'z k , If there's a match, increment counter   'k8    Find the end of the subfield  '  b  $$ 'xk  '     $'ihR The GetBibBlob() function retrieves one full MARC record from the database, basedN on the bib_id field, passed as the inbibid parameter. The function retrievesK records from the bib_data table that match inbibid, then concatenates them+ together and returns the full MARC record.AK;[@]0 MARC record under construction]H  wlafdb database variable]h ( variable for temporary query definition]!' variable for records returned by query] loop counter> Open the database, create the query and open the result set Z.'select * from bib_data where bib_id = ' ' order by seqnum %\. ` %^.& Loop for each segment of the record !d  "'O If the last character is a blank, some part of this process takes it off !d " ~  'kp B@nX B@B 'i8S The GetMFHDBlob() function retrieves one full MFHD record from the database, basedP on the MFHD_ID field, passed as the InMFHDID parameter. The function retrievesM records from the mfhd_data table that match InMFHDID, then concatenates them+ together and returns the full MFHD record.]   MFHD record under construction]8  database variable]X ( variable for temporary query definition]x ' variable for records returned by query] loop counter> Open the database, create the query and open the result set Z.)select * from mfhd_data where mfhd_id = ' ' order by seqnum %\. ` %^.& Loop for each segment of the record !d  "'S If the last character is a blank, some part of this process takes it off !d "   'k@ B@n( B@B 'iS The GetAuthBlob() function retrieves one full Auth record from the database, basedP on the Auth_ID field, passed as the InAuthId parameter. The function retrievesM records from the auth_data table that match inAuthID, then concatenates them+ together and returns the full auth record.]  Auth record under construction](  database variable]H ( variable for temporary query definition]h ' variable for records returned by query] loop counter> Open the database, create the query and open the result set Z.)select * from auth_data where auth_id = ' ' order by seqnum %\. ` %^.& Loop for each segment of the record !d  "'S If the last character is a blank, some part of this process takes it off !d "   'k B@n B@B 'ifAttribute VB_Name = "Marc Code" Option4mpare Da@tabase`Explicit Const BibBlobLength As Integer990JAuth! LMFHD&30M ' This module contains four funcs that extract informafrome MARC a nd(; rec0ordsVoyacd. ustored'the bhib_ Sin segments of no'`Sn bytes1D,'C-Kmfhd,,%%Fullsm&Vcreat@+by gett`ing a D H 0TPch @yA8_iN@3A,Ձ(nAec@n\\oh@B Zseqnum'field.@T e A,Lw: 1fldh(),Am@#()wsubB!@| GetYRec() ő@{tur@A,tanone )JaX@p-E @*@,stard C,JstruccpieccAtSCp<60re.fuw/, wi'@w taBttHachDtoNb`eginnA`6i"t For lample, a t it@]cmight look lPike:! 2@4514|a$ lahurra`Jf golden hC :|bPhilip Jose Far8merA6!CguCj`D$ d! -- a +!AH3, assLong)| A!Dimz l:$"U' A 2G6addrofq '*ebqe diðPuy enPyS `Trtsqpntry a 9 ' poirq/F0xB7,  '}gq`&oPryfld+(w)@tR " sirdJc[txBDo?g 5`o b coO`+6codn%<сoBn'junkV7nt'' u seles%_ valupYs21CZFigu)outPiw muHn3we have%tp@= (64^(> 3)l 9qEx`O; En@d If @EDso E 3àsp8ader sVal(Left@, 5)0 Adoegena{##E passq equ`[ wsay49 4(<> n) - 1)C LC= Mid 13 Loop"ke0 & @RCP= 253t= JE,pDd.l= Wrn50<L j[A&>Do ((q , j") q$Z 2T^,Chr(30A <]/)A1=+ 12 QX3(Q7Check$]AQc!_g$!o $`:V X4 {4Q 4@=y is ),;"@C1yW@;rT,0Ia "p W<1l+ 04!=b2@c, direntry + 7, 5)) fldtxt = tag & Mid(marcrebaseaddrofdataCpXstrt1, len - 1GetFieldRaw< End Function   ,m As String, DTwhich Long)) 'returns a Āwithout s, indic0atorDsubfQs~Dim| sW[ ,iStaxFIntegeril LengtX )π "" D=Mǁ, i5= ( C^= InV(lF, Chr(31))s'C@While >< DG > ,Q#G If  0 The@AE3+ 1GAYIf?Ní7., Z(B-3)@"n ]! =)WendCޱAllʮB@b"+B,C=Js= `Trim(EF͎iec >bH) > 0C 'U& & vbCrL5c *! a#1!btmIccaRD> 2Rft* JD- 2EUE Pis f Ŗone E froBmMARCcPord b.e parameteare: -- ased by get(). Itcludes the a A+bprep``to`nt 4ofssfcode! f'` Th ca n be or zerotes! H'`isbyte, ly E s request1 are2 a @null saa cπ,A@numberE match ' Lc`se@o 1,c A fir  ExP- E?  i <= gqno.p,u?qG5+T(ia=+@ueJu1%MG Ua@qSre'SSn}mͻIQ1 

-1o `&is@! %+<cF1b+KerjJf%Do ^  _+û_+ i1#9 !a+4[- P?Q 10/BibBlob()Jriev fu`x!rl, Q0?'BbPib_iT,ss0PQinFf8Q SFERtabxthaTzxn&nena1 mtohPR#3sM<|Ein,Blob gth)) TheF97ZA<& " "5 E@I%.MoveNext 0WendCClosGet%V AFunD ') MFHDaA () feriev %onell "O`Mc_ID field,`14ssoa0gInG@4ame7. >As^pmfhdc_Lthat matQUE ,aQncsn `Bm toger !ureAfu . &*%`String Es Cc2iCA')߭ѭ e'f %L 4c)߬Ad߬"߬߬!2#\M'fAyZa)=?BΟĀD !Rc!&?W?W?W?Wc*T3W HWT_WQWqKoWra-WWuWWWp.kWQK;[Q pWWHbEAuthWWaW, WWWWaM_ WNa WWinDWWWWWICdGUWpQZ4!' 4T`'WE`W/,q %q ord4W A\2 W@W_3?qA Wf/m &WW_^a=WWѧWW)3}&p W_S WWWWW WTWW8W5 ra-WWuWnpWQQ WW"GxME @8LX (L: >> De=sS(our_Sng| DBYOn Error ResuNexAB'creasa@c sD = I}+ "." +AQ sA;DSN=  ";@;A@DBA=R;APA=T;PFC=10;TLO0=0;;Յ/the le in Access Set P=Z.C;ER(UC(5B .CX @B  <db.e s.Axppe*FK1 sGBOFaG)A7GoTo 09E iM e K sToVoyagerBs(`!D̈FoTblAFRecordseC(= CurrenxtDbC*O("SystHem !edns"@ o Until .EOFcg#ba!.!MovecVLoop/ SubD p8@i$ct".h4&:_a2Cw! @PQuery"f) s.FHEL!@,hE&aH(cDWcJiA5IntePT= 0 `Y"*Count - 13؀3.t c1( ).!)#Ka+orCM$!8e%aN&+g3Axq0c  .w"Ry Rc= Bc FseߟX0vr o 4(b #s,), ,b C&= h 04$``\ a C?Tw?Kd€H~le/ba p%tss(w,%);n4hkxij !T:c';D$sulturrvalxBOFy VERSION_NAME (StripCRLFsTempeReport_get_price_adjustmentsS PORR supportR (crlfdelimitK vFieldArrayvRetValˌ (getconversion oconversionrateC(ConvertConversion_Rate# Fund_Amount;? Currnecy_CodebRatek  Remainder^QuotientdecimalsxamountiretPos (CheckDecimalsM Invoice_id@ Currency_CodecFormDetail2Label2,Label4,Label6,Label8,Label10@Label16FClickFields7Itemz _B_var_UCasea _B_var_LeftQ _B_var_Midp _B_var_Chr\; _B_var_TrimmT_B_var_record_segment_B_var_base_decimals_B_var_subfieldY _B_var_LCase' _B_var_tag7_B_var_searchname_B_var_db_name؉ _B_var_db_key* _B_var_Space _B_var_Right9Module1bModule2cModule3d MiscFunctions HowManyCrsnFieldx< CountofCR3PosofCR(RidCRGInstringYLcE\Char) OutStringArskip(NoBucks _B_var_ifPgotot _B_var_gotot|OutZzq IsNumeric$*_B_var_CountofCRx_B_var_PosofCR Strin K;[gLength ISBNlength9test4ylField3xo CreateFielddbText Refresh MiscProcs=AddVideoFields  _B_var_Subtkrst1jrst2j dbOpenTableBvdbMemo PhysicalDesc4_B_var_PhysicalDescmtblVideo"_B_var_tblVideo Form_frmSplash Form_Open-CancelMaximizeFy OpenQuery TxtResultY)DCountLabel0,RunMacroXmcrMediam mcrMedia_1mcr Media_1Media mcr_01_MediaWAddAudioFields AddHotFields&ControlsK_B_var_mcr_01_Mediaz_B_var_TableDef DeleteFileOFileNamej_B_var_FunctionO Media System Functions{SMedia System Procedures) (FileDeletes^d[ProductionDatabases_B_var_ProductionDatabasesqOnline Report$AudioCds_B_var_AudioCdsxls-fsF]fsof1$]f2%]sj CreateObjectGetFile:f3&]mcr_01HText3~Text5~Text7~Text9~Text11rLabel12BText13rLabel14DText15r TxtResult_1x OpenTable! tblCounts6tblcount_B_var_tblcount_B_var_tblCounts{ LastUpdate/2 _B_var_Datev tblAudioCounttblAudio& tblAudio_2 tblHotCount tblVideoCount:MdQuit9Today  _B_var_TodayrstUpdateacTableEdit+AddNewa FormatSubjectF650"(FormatSubjects5_B_var_E_B_var_i g^_B_var_g _B_var_Go q}  +  @H @` @ @  H p \ @L @< @, @   \bF@L (G;xME0<86 <<<<<< <$<(<,<<<X `.t`0p@\ h %+&`(k''i( `t`*p`,l`.h`0d@L @< @, (H`t`*(p`,h`.d`0``,l`>l``*j+4`k..;i( (iHx `(k +`xHi`h@l i( 0x@!K;[0 @ @ @ `H0hP`&x@(` @ @\ p( @ @L @< @, 0@ (!Hx0Hx`4xx@\  @X p@ @0H @8 @h( 8@ "`0 0 H XxX 8  f  d  T @D 4 @@$ Xp1HX`rd   \bF8HpzG$*\Rffff*05477a1b11*\R0*#134*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R0*#14B   * L PH L      B   (08 @ HX `(x! !   P`px( 08@      B (8@(HPX ` hx 0  8(    H    P$p `h  &   0 (*%GxME,(LX(L:> LLL<0<4<8<<<"K;[h+`hk@i `i  x`t`p``l+`(ki 0i`t`p+0`p (k/i i`t`p+` kp Ai `t`r+` kQi  i`Vv`p`l`j+X`kmi  rt% p8%`l+`xk  i `h(0X0%0X@Xp@ `x0( @\ @X p @T  @D @4 @8$ @  @P @h @ @ @ @ P`h0P0 `x`x`@l p@h X` H @ X @H @H 8 @(   H  ( `x8  ` @p l  H p@h X p H @ X @H @ 8 @( p p (  p `z  p  @@ ` @X P @ @ @ 0 @ .  p @@,  @  @ @ @ @ Xp8 `x p @ X @H @P8 @h( @ @  pH X8`xH Zd @0h @d#K;[ @` @P @@ @0 @. @, @( @` @ HhP0`l  @@X @H @8 @(  @ @ @ @0 0@ @ X 8wG$*\Rffff*0g4777ae31*\R2*#24*\R2*#2e*\R2*#2a*\R2*#29*\R2*#28*\R1*#98*\R1*#99*\R0*#0*\R0*#134*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f B  " H h   (HS hx    B  &  ((@X  `p xB  $  (     0 B 8 4@x H BC P`h B px    (, 0K(X`  x  B   7 @ $Hh   H       B  <r `p x xpRemove spaces from a string.True removes all spacesFalse leaves single space]]] $''    $'       '    $ eEleave last space     'thkp  Z. $'iHRemove characters from a string ]P]h    $'     k  'iKeep characters from a string]]    $'  $K;[   'k i0-test to see if string is all alpha characters]]' $ Gzj6&return falese if strIn is not a string Gzj  abcdefghijklmnopqrstuvwxyz  $Gzj 'i]@]X]p] iLoop = 1 ' '  'V Vb  V $'  V  $'    V$   V  $'k V  'Vix]] ]@ Z.r8Select VERSION_NAME from qryVersion where Problem_ID = "  -" group by VERSION_NAME order by VERSION_NAME r%^.' !d ! 0 - 'kh  " ' B@n8 B@B6 rB@B 'iX]  '  $ $ $$$'  $'d'kxiphAttribute VB_Nam@e = "Sng Tools" Option Compare Database`Explicit Func^RemoveSpaces(strIn As , al bAllVariantTrue")+ 'J sK from ab Ring/ rms aM'False le@aves s-leDDim c0Temp 5 i1Lo.NewPos mX!r(Lens)) i= 1or +  C= Mid ,, 1#If Not (" ") Then J @)OM6+)EK@((Be= PbndB =' @ ($ '[ lastEZ(JE"If Next@IWLc`Trim(Q  ŦBd˩CharacterЪ@oRcFM > Coɚ F|(In(+,) > 0ы5In!MaD@8#D+(,c)A #$ >b(*KeepZ',wU* *w*n*[  $ ~&1p-OUUIsAlpha(Ƨ/1(BSB ea'teqto @see ifd :iaA ,TInteger>b TypfeC>!KvbfA Exit D'return fato Whiw(Q3P1ay1`IP 2 h5 2PALeft() & Righ ) -` ?%UQ  ard1q$S4@DeDupAg(=mwjP#dbלtresultRecordsevl`!bLSet = CurrentDbv=.Openf("Select VERSION_NAMEsqryVersawhe@Problem_ID """"+ group byӛ er]" r 0 d*( .EOFPIfB@$ !&(u)-& b@ -3`! r P!y.MaHbWend!qqClo`.4#/'&ipCRLF})hsHsm3k=jI%(, Chr(91:1PZ&"1350!`S P@! ,`߀r"Pqs8 d"CGExMEL @(LX >(L:(Lp L(> LLLLPL XO=0;i@ le i`Bh 6 d % 7` 6% 8\h%`XX+H`%K;[ ,kH 8iJ h iL `N\ fie+P`k KKLiJ  `Vj+T(`kX &&iJ x tagiL d su 8% 74 % 80%`,`@ +R`kh !!iJ @Z\ `\Z`LH +^`k iL  hH% 7dh% 8`%`\`@L +b``Xk  h% 7d8% 8`X%+f`k  h% 7d% 8`%+X` `+@ iJ +j `k il  nh %`rd t` L%(``*%(`` ` H `,t 4Z`$ @0 \ @ L @ < @, @( @  8xP h ` 8  `<l  (  Z`F @ T @ D @ 4 @ $ @  @  @ @( @@ 0 @ @ x `%` @ @ hH` ` x `Hl  `  PRT@L @< @, (`Pl  @X @pH @@8 X @X( @ @ @ @ xXXPXp`Tl  Xp@\ @L @ < Z`*FX @ @8 @ @ h`%P@ @ @&K;[ hhh`Rl  h@8 @( @ @ @0 ^*X @H @` @x 0@ p00P(0hH`^l  X0Z`( @@H @8 @( @ @ @ @ @ @ @ H`0`bl  Z`< @\ @xL @< @, @* H@$ @ p@`fl  Z`< @X\ @L @(< @, @* @$ @ (@`(@`Xl  P(@x\ @L @< @, @ *x(`jl  @v|< @\ @L @< @P8 h(@4O P@0 @ P @ @ @ p `hwG$*\Rffff*0f4777ae31*\R2*#24*\R2*#2f*\R2*#2e*\R1*#b5*\R2*#20*\R1*#ae*\R1*#a*\R0*#e4*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R2*#2a*\R2*#29*\R2*#28*\R2*#30*\R2*#0*\R2*#30*\R1*#98*\R1*#99*\R0*#130 B   08@ H@X$  +     B   (08@H DP P$8 ,P'K;[   S   &@  ( B 08 @ X `p      0 8B @ H  P"p   + "   0+Hh p"  + "  8 HX+x "  0Q@  H"h  &0Q "  8 HX+x "  + 8 @ X B ` h  x        D   x9 $ ,    > "  ,0 ,)@ p Ex          B    +  0 8 "@  X 0h 0J  "  & "  ( &8 !` x  0   *?   B  (08@ DH \9$   ,(8 @X ` pBx D V$H  ` ,p   B D (T8$   ,   B ")$(P X` hB px  F &    H  Xhxp] 0$4]]] Z.'select base_decimals from base_currency %\.6 ` 6%^.8) 8":'0 t 8B@B currek( .$$ c .X 0X '2! 2',ki]x]]]]> Open the database, create the query and open the result setg we Z.ompare7select subfield from searchfields2 where searchcode = ' > ' and tag = ' @' order by subfield %\.6d as r ` 6%^.8 It& Loop for each segment of the recordag p 8 8!dt of B 8"D, 'Bfcode C@n8q0 8B@Bhis ca B ro B B $$F'B bk B'<i(K;[] J$'N If NIX=BRT nul J$P'HsuIX=ARTretu J$P'H IX=URTe nuMFHD Call Number Index'HtoIX=CRT whi J$R'H,IX=KRT the J L$T'HbfieldS?'H, the ni] get the variable tagX JAL='Vnt V V 'VTag: 'P e P J V$'Pk  get the fixed tag JFS='V f Vc V 'Vsu Fixed Field: 'P f P J V$'Pturnk get indicator 1 J1+='V V V 'Vma P Indicator 1: 'Pfter P J V$'P'k get indicator 2 J2+='Val V t V 'Vl P Indicator 2: 'P P J V$'P$k` get subfields JS+='V V V 'V P Subfields: 'P P J V V J V $'Pk get repeating subfield JSR='V V V 'Vs P Subfield (repeating): 'P P J V V J V $'Pk get fixed field startd JFO='V V V 'V$ P Field Start: 'P P J V$'P k` get fixed field endR T JFL='Von V f V 'Vd P Field Length: 'P o P J V$'Ps thk P J$X'Pnctii LGKEYEverything from 010-999'Td`]]]]]> Open the database, create the query and open the result set0 Z.C reco<select tag, subfield from searchfields2 where searchcode = ' L' order by tag, subfield %\.6 ` 6%^.8ble & Loop for each segment of the record l 8 8!d> @ 8", crea @G T *'Tjlt 8"'@Z. TTag:  @ Subfields: 'Tre bk T 8"D$F'TC@n`qX 8B@B%^k@ T J$X'Tch si (]d] JCS= 'ZO Zstzk Z J~'\this \es i J Z \ Z $'L R( L)  L$^ *'R \ 'Z Z J~'\'get the last code in the stringie Z J '\cord \tabaget everything to end of stringfi J Z$'LFHdget everthing to spacees J Z \ Z $'Latk8 R( L)  L$^'Rm R J$X'Rretui]0]P]p]]> Open the database, create the query and open the result setX Z.iable 6select searchname from searchparm where searchcode = ' L' %\.6 ` 6%^.8 8!dn th 8"`'^cread Not Found!'^resultk 8B@Bi]] ]@> Open the database, create the query and open the result set^ Z.& =select db_name from voyager_databases where db_code = 'LOCAL' %\.6 ` 6%^.8 8!d 8"d'bdxLocal Database'bkX 8B@Bi@`]]]> Open the database, create the query and open the result set Z.<select db_key from voyager_databases where db_code = 'LOCAL' %\.6 ` 6%^.8 8!d 8"h'fd0'fk  8B@Bi J HL=TYPE=?S *[Serial Limit Applied]'Xd 'Xk i `] v!x.r n r!z n! l)K;[ n!l |[ n!~! y k nBGetReportComment = dbs.AllReports![System Report List].Descriptioni еAttribute VB_Name = "Utility Functions"  Op$ Compare Dat abase`Explicit $ n BBCurrency(vAmount As Variant, al v*Decimals") B D0im c U  If IsMis sing( T) Then 9Fdb;Dž qd QueryDe frKReco0rdsesSe$t $= QtD.b $=.C reate(("", "seleHct _dzf(rom c")'?= qd.OpenB(dbForwardO8nly= Prs![9]rs.CloAs5p`End I@?BTNot@UNullq7 ScBL^{) / (10 ^ CBIy)*s=w< "AEJListSubfields(vIndexCodeqFvTag•[=As Sn^gHČiALbo 'Aq the d, cqA ado@result #Qs' P@search*2 whe ~cc*= '" & (-& "'t, !. @fer b &2.LC@(Mid, 1, ( - 2)Elay e`am?kRuleembZmSHEǽknaAavTypuc%= Left|, 4vSX# &bIsIX=B`Asde@MIXB  K A_ _ X=U[ "MFHD Call Numb`k6C[ Cse{ `4K/1W"?sIXK), v!Y Elhe?*#cb7+ H+a ZPoIntegerUq ' g@u[vQb0F@Pia= Ind(@:Sr@AL=uP@(<> 0) @cTb+ 3/èBpW: /&(_& EZ Qx, 3tcfixed pLFS =Ocx; "FBFa!B] 3indictat i1ct _ers1+ 1 Q_ "' OOQO!"PgO! M2O02O OOOex5#!{OM2OOO",O1CUs//S//_20"3C@ S(s0a _v0 ") -rWrep@0//SR6_%_%_%_%L) ( )DdZ t Z sta rt iPos = InStr(1, vIndexRules, "FO="B)If (<> 0) Then0>+ 30@DecodeI XB*& " Field St@art: "3EMid( , 2End If  \' get `fixed>e\nd eLpLength݌s@)oHasSerialLimitI`^[^Funct\ioAE K  As VantSearchA).Cv = "GKEY"L"Everything from 01 0-999ĥElseLADim db#DataLbaI qdQruDe r sRrdse DiLongGvTagADH C'Open@ the dD#, createRq a`bor@esult Sd`= CurrentDb Aae`=.C" e(""@select tag, subfB|)s"9s2 where;= '" & 7`' order byK ŔE@)= qd.*(dbForwardOnly!%Loop fo@r eachgm  of%rb2With rsWhile Not .EOF!6rs!")lQeW;."cVQeK!'bC\rL(LI =![]/b3 A S=s*OIIXaLCn(5@+[eM]D< .MoveNex(l>W<rs.Clo zag#@ux~CtoaDna2DInteger rFWanS"(CS s ց31u30Exit W2V;]~A:12 @50q[b?P2 - b)%-OC0 _C2"( M")& GetName(8 )q5<2@q2p1 #ŋ 7 F/'blast vicstrPpw 0|Nevto V4kyVc|@spacx{  (S esIX 1" _CD_UgEu  6 o)_EAC@qpKq?̏!"lP ` ώwSn 0)9,vbCrLf P& "[ ! Applied]?@4N< ReportComm(v#ǸӻobjAccessObj,FprpDPr@rtydLbs93ca.?D AC CF Each !Ina .AllCscD;`/ .Jebj.TypVaccL Debug.Print ie ou}a  Exit ( Nex 0!' ZD/!`"![System dList].DescripÓ ;*K;[  !"#$%&'()*+-./0123456789:;<=>?@BCDEFGHJKLMNOPQRSTUVWXYZ[\]^_`abcdefghjklmnopqstuvwxyz{}~B 0 @H P Xh p  08@H   8X`x]]]0]H]` (', ,'*'0  * , $'. . $ | '.dX . $28d0 0 .'02  0'&ii]]]]0]H (', ,'*'0  * , $'.2Fk'0  kX 0 .'02  0'4 .|]'> > '>'> > *<k 0 H$$@k<x=Babce ghXiJj)kh1@RECORDCOUNT_VWVoyager Record CountsAriald2e12f5g237hgh MS Sans Serifi1ghj1ghk1l23:m4n2o2p5r35zij MS Sans Serif{5`h FormHeaderd5U7`<a<bcRecordType Label Record Type DetachedLabelRecordType_Labeld5U7`da<b c Count LabelCount DetachedLabel Count_Label`wDetailm7U`<a<ce RecordType RecordTypem07U`a<bRce kCountCountStandard` FormFooterͬ鼶aPN FormHeaderd RecordType_LabelRecordType Labeld Count_LabelCount LabelDetailmRecordTypemCountFormFooter 0239=Babce ghi<j-k&PropData')JTypeInfoK1&4,YT>(xJOBlob O,@>Build database links to Voyager Arial"[Event Procedure]d2hghMS Sans Serifj1ghm45n2o2`\ Detail m7U`Tahb$ ODBCNamed5U`ahb c Label2ODBC Name:m7U`Tab$ kConnectStringd5U7`xabc Label4Connect String:m7U`Ta8b$ kDBUserIDd5U7`xa8bc Label6DB User ID:m7U`Tab$ kPasswordPasswordd5U7`xabc Label8Password:m7U`Tab$ kTables+K;[paced5U7`xabcLabel10Tablespace:m27U`xapbcdkProgressDisplayh1U`(abciConnectVoyagerConnect"[Event Procedure]j2U`abi Relinkd5`abcLabel16 Relinkh1U` abci CancelInProgress Cancel"[Event Procedure]h1U`abci btnClose Close"[Event Procedure]ͬU(@ߘDetailmODBCNamed Label2mConnectStringd Label4mDBUserIDd Label6mPasswordd Label8m Tablespaced  Label10m ProgressDisplayh  ConnectVoyagerj Relinkd Label16h CancUnknown'0k 0 $$@@ * H :\<kUnknown'0 .$@2kkk .$  '2kH]@xScripting.FileSystemObject$.7d:\ProductionDatabases\Media Online Report\AudioCDs.xls %.<d:\ProductionDatabases\Media Online Report\HotTopicBooks.xls %. B@ B@ B@i 8d:\ProductionDatabases\Media Online Report\VideoDVDs.xls %. i ]] (', ,'*'0  * , $'. . $ / '.d ]`]] 0 .'0 0'@ . $ols2kk2Attribute VB_Name = "Media System Functions" Op$ Compare Database0Explicit Pubx FileDeletes() Dim fso, f123SetCreateObject("Scri|ng.I"N716S.Get%("d:\Produ s\Online Report\AudioC@Ds.xls)28)HotTopicBook+3+VideoDVUf1. f23 EndǁRidCR(Insng As SB) miLongq:LECharOut G)E L@Len(Ex For i@1 To L  = Mid(E, i, 1#If Chr(13) Then " | AElAM0Go"s8kip Not IsNumeric(AQ &<$"L,Ai + 4G&AIfTi i6g&"1# %: Next iLP:a WNoBucksW, ISBN@lengthaMIntegerZZzA'^_\'fiB`_\"Pz 0AOL < W bUnknown$Xb8cYT>Modules%U>YT>G k0,K;[9YT>YT>PropData} 18<;YT>YT>PropData~ 2=YT>YT>PropData 3:B?YT>YT>PropData String Tools"Connection CodeMarc Code&Utility FunctionsPORR support0Media System Functions 3CB8 0CB8 1CB8 2CB8 4CB8 54AYT>YT>PropData 5@EChmOpmOPropData DirDataPropDataDFFDirDataCopyGPropDataCopyFCB0String Tools"Connection CodeMarc Code&Utility FunctionsPORR supportMiscFunctions 3CB8 0CB8 1CB8 2CB8 4CB8 5CB008:<=BabcT$e g"nt'M@<SReportsNYT>G k0K)mO@CmOBlob  PropData-K;[JL ELECT Done.TITLE, Done.AUTHOR, Done.DISPLAY_CALL_NO, Done.LOCATION_CODE FROM Done GROUP BY Done.TITLE, Done.AUTHOR, Done.DISPLAY_CALL_NO, Done.LOCATION_CODE; Arial8T$h4C odXXLetterDINU"4L5akB\\ISUTREE\LC_Systems.LCPRINT.LIBRARY.ISU d28 Arialg37m5< Arial AUTHOR TITLE`ReportHeaderLj/KJ%gvNad78"`<b(#cde Label5ݸCunningham Memorial Library Browsing Audio Media Holdings Organized by Title Within Author7p-G+\ػm;CF`0 ab c, Text7=Date()Long Date{XG{`"PageHeaderSectionج qN\|c`,GroupHeader0̓gL\IQ䍊f2a,b(# Line28zzozAen/m<"Fbd#c,j Text31b=IIf(IsNull([Author]),"No Author given",[Author])WkɅlBr&~` Detail|BS`fab(# Line3/eqbN%I'dmFbd# TITLE TITLE8N@P`xGroupFooter0ho`I_OWf2a<b(# Line30*lT0EA4`h"PageFooterSectionxۮFEUK<mCF` Text8H="Page " & [Page] & " of " & [Pages]Bu+`hReportFooterp>FI8TypeInfoM:BlobDelta1ISP0HmO OmOBlob ͬo׎ -DM86ReportHeaderdLabel5mText7PageHeaderSectionGroupHeader0fLine28mText31DetailfLine3m TITLE GroupFooter0f Line30 PageFooterSectionm Text8ReportFooter dgmdmfmfmfm08:<=Babc$e g@N@XSELECT BrowsingDVDs.TITLE FROM BrowsingDVDs; Arial8$,h4C odXXLetter.K;[DINU"4L5akB\\ISUTREE\LC_Systems.LCPRINT.LIBRARY.ISU d28 Arialg37m5< Arial TITLEReportHeaderLj/KJ%gvNad78"`bctde Label5ݔCunningham Memorial Library Browsing Video Media Holdings Titles Listing7p-G+\ػm;CF`l atb c, Text7=Date()Long Date{XG{f2abd# Line211U"F2`"PageHeaderSectionج qN\|c`, Detail|BS`fab# Line3/eqbN%I'dmFb# TITLE TITLE$a7J~Y)<(W`h"PageFooterSectionxۮFEUK<mCF` Text8H="Page " & [Page] & " of " & [Pages]Bu+`hReportFooterp>FI8ͬ `IiDm.ReportHeaderdLaPropDataOQ TypeInfoRBlobDeltaDirDataTbel5mText7fLine21PageHeaderSectionDetailfLine3mTITLEPageFooterSectionm Text8 ReportFooter dgmdmffmmrptBrowsing-Audio-OrganizedByTitleWithinAuthor-IncludesSubjectfrptBrowsing-Video-OrganizedByTitleWithinMediaType 0CB0 1CB0!DeleteLinksToVoyagerTables ()  macro-01-MediaDeleteLinksc= d kn_ 0K#Ti @KF  ?][/T6 " 0(@  Bt\5 t\  @Bt\o\tt 0hpd,TPX \rU~| BQF DD!EI)F "A#FFFiGG!  \N: %\BLN: %\BBDAOP *\G{00025PE01-0C  0046}#5.0#0#C:\PROGRAM FILES\@COMMON MICROSOFT SHARED\;350.DLL#Microsoft 3.5 Object Library HTstdole>fstdole]f\]043+[V-]2]WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation/ VBIDE> VB@IDEC CE157#C5.3Program Files\CommonHShared\VBA6E6EXT.OLBRVisual Basic fopplic1s Extens@ `1d6( ld 2lt  qlC` l`ld*1` lllp$`MH@(  ( 0K;[ 5(? tfXT& `MH@(  ( 5(= C`l`Cxer dL4x`dh(aXh X 0 D `1p)X5 7X' %'0%'@% lp*#T *#Pd QXh2TP lp2pn: :@ %Xh X 0 D Upn)X5  h  ibility +AG$@Form_Build database links to DGHA brm_Cuied @haiaba s@j ink@ @oV@ ygr@BBBAUWLQZDDQXDGHGICWHTID28AB@UWLQPROGZbDXA&GgCHTiAB,1`%B",?p*"(EB+B Marc CodeG.rc51C1d00HUPZTP_ENADSNDPCXJLTNZUCBGDOLHUZEP&ENDSDCXTJTZ C5GL# ]LF!EConn k@Yn 2eJt6o` IELKFHJSCTILZDETWANWIKHJIRZ1I_LKTF +JC-LU1E`WN0Iu`HI5!51UR ΋UBtXFuncssGA6UJOiy2FucAsLZLHRBCBJIJYBWDVLZBQO_GZAMTXM3Z/HB!BBJY0WKV`*Z`Q 2_NAMXOjAOEK @String Tool-!r2n:g`T@5eUYGGDXGQCMVBRDORUSGKCJSOPATONcU GDIGbCR`O`U@5G@2CjS`P4O No#ooPORR supportGaP R` " @~up ordCXRYVCHGMRWOUDKYYRHYBQUVAYECcU!aRV0H`MU` W` U`KYHBUV YQCdo ck!Media SysteUK, 2M |d 2aQ1Sy`t m5MLYGOHEJLWZWTRDFUYKLTMJ@MIQDQGL[ =Hp 1?W`3W$QF?YLMPM@LQQE_r;P b]frmSplashGF%\jfm!pZa[h43HIJEEZKAXUNSWDMOZMOACGYCGALH H JP E KX VN13M0Z'OUpC YGL C zVMYOY rU~~~~~~~q     A   ( y 8  HsMessage Xodbam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office\OFFICE11\MSACC.OLXodbvDSNvDBQvUIDvPWD vTableSpace vTableNamebRelink vQueryNamevQuerybForcemarcrecDTagwhichfldsfcodeinBibIdInMFHDIDInAuthIdvAmount vBaseDecimals vIndexCodevTag vIndexRules vSearchcode vReportNamesInstrInbAllstrCharsCharparm vFieldArrayconversB#Microsoft Access 11.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL#Microsoft DAO 3.5 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSionrateConversion_Rate Fund_Amount Currnecy_Code Invoice_idInString ISBNlength ChCancelInstringBrU p$` $A` (`0$`$` $APropDataCopy1K;[%PropDataDatabasesafcYT>G k0edYT>YT>Blob DirDataCustomGroupsgYT>YT>DataAccessPages YT>YT>K*m rU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~j qQg 9QL0IBxqB   a  Y TEM\StdOle2.Tlb#OLE AutomationZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 zG  a !1!Q!q!!!!a  Ii1a ` A'i'''# (1(Y((Ya :::;);I;i;a G8BBBAUWLQPROGZDDQXDGHGICWHTID08477a1ea7HForm_Build database links to Voyagerp*%8HUPZTP_ENADSNDPCXJLTNZUCBGOL0E477a1f49|Marc CodeF]L8IELKFHJSCTILZDETWANWIKHJIRZD0<477a1ea7Connection Code0U 8ZL0>>>> A BBBRa 1O?II  $Form_Build database links to Voyager Marc CodeConnection CodeUtility Functions String Tools PORR supportMedia System FunctionsMedia System ProceduresForm_frmSplashVoyager Access ReportsF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  9J_N?ConnectVoyager_Click;C:\Program Files\Microsoft Office\Office\OFFICE11\MSACC.OLBAccess  ^F=C:\PROGRAM 2 ; @ @ @ @ @ @ @ @ @ @ @=>?@ABCDE F G H I JKLMNOPQRSTUVWXYZ[\ ]!^"_#`$a%b&c'd(e)f*g+h,i-j.k/l0m1n2o3456789:;<=>?5@6ABCDEFGHIJKLMNOPQR ST U V W XS YNrrY   Y Y c Y  Y  Y cId LValueObjectGuidObjectNameProperty ValueccrscccrtcccrucYYYId$ObjectGuidProperty$ObjectNamePropertyrHv1b  q q q2LVAL2rrrrrrrrrrr&L b  : `  6 H Fľľľľr0JZ(((tblAudio.DISPLAY_CALL_NO) Like "Bro(((tb(((tblAudio.DISPLAY_CALL_NO) Like "Browsing Audio*"))(((tblSuppressedBibs.BIB_ID) Is Null))tblAudio.BIB_ID = tblSuppressedBibs.BIB_IDGetFieldAll(GetBibBlob([BIB_ID]),"500")GetFieldAll(GetBibBLOB([BIB_ID]),"505")GetFieldAll(GetBibBLOB([BIB_ID]),"300")(((MFHD_MASTER.SUPPRESS_IN_OPAC)="N") AND ((MFHD_MASTER.LOCATION_ID)="211"))BIB_MFHD.BIB_ID = BIB_TEXT.BIB_IDBIB_MFHD.MFHD_ID = MFHD_MASTER.MFHD_ID[system all voyager tables].TABLE_NAME = [System Linked Tables].Name[system all voyager tables].TABLE_NAMEIIf([isbn]="unknown" And [isbn2]>"",[isbn2],IIf([isbn]>"" And [isbn2]>"" And [isbn2]<>"unknown",[isbn] & " | " & [isbn2],[isbn]))Mid(GetSubField(GetFieldRaw(GetBibBLOB([BIB_ID]),"024",1),"a",1),1,13)Mid(GetSubField(GetFieldRaw(GetBibBLOB([BIB_ID]),"020",1),"a",1),1,10)GetFieldAll(GetBibBLOB([BIB_ID]),"500")GetFieldAll(GetBibBLOB([BIB_ID]),"520")GetFieldAll(GetBibBLOB([BIB_ID]),"300")(((tblSuppressedBibs.BIB_ID) Is Null))tblVideo.BIB_ID = tblSuppressedBibs.BIB_ID(((MFHD_MASTER.LOCATION_ID)="222" Or (MFHD_MASTER.LOCATION_ID)="223"))MFHD_MASTER.LOCATION_ID = LOCATION.LOCATION_IDBIB_MFHD.BIB_ID = BIB_TEXT.BIB_IDBIB_MFHD.MFHD_ID = MFHD_MASTER.MFHD_IDIIf([isbn]="unknown" And [isbn2]>"",[isbn2],IIf([isbn]>"" And [isbn2]>"" And [isbn2]<>"unknown",[isbn] & " | " & [isbn2],[isbn]))Mid(GetSubField(GetFieldRaw(GetBibBLOB([BIB_ID]),"024",1),"a",1),1,13)Mid(GetSubField(GetFieldRaw(GetBibBLOB([BIB_ID]),"020",1),"a",1),1,10)GetFieldAll(GetBibBLOB([BIB_ID]),"650")GetFieldAll(GetBibBlob([BIB_ID]),"520")GetFieldAll(GetBibBLOB([BIB_ID]),"300")(((tblSuppressedBibs.BIB_ID) Is Null))tblHot.BIB_ID = tblSuppressedBibs.BIB_ID(((MFHD_MASTER.SUPPRESS_IN_OPAC)="N") AND ((MFHD_MASTER.LOCATION_ID)="213"))BIB_MFHD.BIB_ID = BIB_TEXT.BIB_IDBIB_MFHD.MFHD_ID = MFHD_MASTER.MFHD_ID(((BIB_MASTER.LIBRARY_ID)="1") AND ((BIB_MASTER.SUPPRESS_IN_OPAC)="Y"))UUr.y/ } S  i ' u >  K  ] % wY;y/M/ktV8 hJ|^0d [tblHot [tblHot [tblHot ed[tblHot-2].ISBNRidCR([ISBN])J/ w cedtblHot-2!!!  ed G ed G$MFHD_MASTER''' $BIB_MFHD!!! $BIB_TEXT!!! $ G$tblVideo!!! O$ $ G# tblVideo.*) g#tblVideo!!! # G# G# # G"[tblHot-2].ISBN@v;/ w"tblHot-2!!! " G" G" " G![tblHot-2].ISBN2NoBucks([ISBN2],13)R1 w![tblHot-2].ISBNNoBucks([ISBN],10)O/ w!tblHot-2!!! ! G! G! ! G    G[tblHot-2].ISBN2@v=1 w[tblHot-2].ISBN@v;/ w[tblHot-2].SubjectsN@vC7 w[tblHot-2].NotesN@v=1 w[tblHot-2].PhysicalDescN@vK? wtblHot-2!!!  G G  G tblHot.ISBN2+ g  tblHot.ISBN* g tblHot.PhysicalDesc2 g tblHot.Notes+ g tblHot.Subjects. g tblHot.DISPLAY_CALL_NO5 g tblHot.TITLE+ g tblHot.AUTHOR, g tblHot.BIB_ID, gL@v 'tblHottblSuppressedBibsP@vK?  tblHot.ISBN2+ g tblHot.ISBN* gtblHot.PhysicalDesc2 gtblHot.Notes+ gtblHot.Subjects. gtblHot.DISPLAY_CALL_NO5 gtblHot.TITLE+ gtblHot.AUTHOR, gtblHot.BIB_ID, gtblSuppressedBibs333 tblHot  GtblHot-2!!! O  G@ v 'BIB_MFHDBIB_TEXTB@ v=1! BIB_MFHDMFHD_MASTERL@ vC7! DISPLAY_CALL_NOMFHD_MASTER.DISPLAY_CALL_NOX/ wTITLEBIB_TEXT.TITLE7 wAUTHORBIB_TEXT.AUTHOR: wBIB_IDBIB_TEXT.BIB_ID: w[BD< @ | ^ @  G K N  Ek'd#t:4HPy[=(tblVideo-2%%% ( G( G( ( G'[tblVideo-2].ISBN2RidCR([ISBN2])Q5 w'[tblVideo-2].ISBNRidCR([ISBN])N3 w'tblVideo-2%%% ' G' G' ' G&[tblVideo-2].ISBN2@ vA5 w&[tblVideo-2].ISBN@v?3 w&[tblVideo-2].NotesN@vA5 w&[tblVideo-2].SummaryN@vE9 w&[tblVideo-2].PhysicalDescN@vOC w&tblVideo-2%%% & G& G& & G% tblVideo.ISBN2- g% tblVideo.ISBN, g% tblVideo.Notes- g% tblVideo.Summary/ g% tblVideo.PhysicalDesc4 g% tblVideo.LOCATION_NAME5 g% tblVideo.PUBLISHER1 g% tblVideo.PUBLISHER_DATE6 g% tblVideo.DISPLAY_CALL_NO7 g% tblVideo.TITLE- g% tblVideo.AUTHOR. g% tblVideo.BIB_ID. g%L@v '%tblVideotblSuppressedBibsT@vOC! % tblVideo.ISBN2- g% tblVideo.ISBN, g% tblVideo.Notes- g% tblVideo.Summary/ g%tblVideo.PhysicalDesc4 g%tblVideo.LOCATION_NAME5 g%tblVideo.PUBLISHER1 g%tblVideo.PUBLISHER_DATE6 g%tblVideo.DISPLAY_CALL_NO7 g%tblVideo.TITLE- g%tblVideo.AUTHOR. g%tblVideo.BIB_ID. g%tblSuppressedBibs333 %tblVideo!!! % G%tblVideo-2%%% O% % G$@v '$MFHD_MASTERLOCATION\@vC7' $BIB_MFHDBIB_TEXTB@v=1! $BIB_MFHDMFHD_MASTERL@vC7! $LOCATION_NAMELOCATION.LOCATION_NAMEO+ w$PUBLISHERBIB_TEXT.PUBLISHERC# w$PUBLISHER_DATEBIB_TEXT.PUBLISHER_DATER- w$DISPLAY_CALL_NOMFHD_MASTER.DISPLAY_CALL_NOX/ w$TITLEBIB_TEXT.TITLE7 w$AUTHORBIB_TEXT.AUTHOR: w$BIB_IDBIB_TEXT.BIB_ID: w$LOCATION!!! Vz @ @ @ @ @ @ @ @ @ @ @ @ @     vwxyz{|}~#        $:;BDEFGCHJKLMNwwwwwwwIww w w w w wwwwwww www w w w w w w w w w w w w  w ww!w#w$w%w&w'w(w)w*w" w+ w- w. w/ w0 w1 w,!w2!w4!w5!w6!w7!w8!w3"w9"w;"w<"w="w>"w:#w?#wA#wB#wC#wD#w@$wE$wG$wH$wI$wJ$wK$x$x$x$x$x$x$x$x$x$x $x $x $wF%x %x%x%x%x%x%x%x%x%x%x%x%x% x% x% x% x%x%x% x % x!% x"% x#% x$% x%% x&% x'%  x(%  x)%  x*%  x+%x &x,&x.&x/&x0&x1&x2&x3&x4&x5&x-'x6'x8'x7x y @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ w w w w  w ww!w#w$w%w&w'w(w)w*w" w+ wQ wR wS wT {Z {[ w,!w2!w4!w5!w6!w7!w8!w3"w9"w;"w<"w="w>"w:#w?#wA#wB#wC#wD#w@$wE$wG$wH$wI$wJ$wK$x$x$x$x$x$x$x$x$x$x $x $x $wF%x %x%x%x%x%x%x%x%x%x%x%x%x% x% x% x% x%x%x% x % x!% x"% x#% x$% x%% x&% x'%  x(%  x)%  x*%  x+%x &x,&x.&x/&x0&x1&x2&x3&x4&x5&x-'x6'x8'x9'x:'x;'x<'x7(x=(x?(x@(xA({({(x>){){){){){){*{*{ *{ *{ *{ *{*{*{* {*{ +{+{+{+{+{+{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{,{ \=G)   9  a 7  : :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: t  ed[tblHot ed[tblHot ed[tblHot ed[tblHot-2].Subj ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].SubjectsFormatSubjects([Subject ed[tblHot-2].Su ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].Subjects ed[tblHot-2].SubjectsForma ed[tblHot ed[tblHot-2].Su ed[tblHot-2].Su ed[tblHot-2].SubjectsFormatSubjects([Subjects])_7 w ed[tblHot-2].ISBN2RidCR([ISBN2])M1 w+USER_TAB_COLUMNS.TABLE_NAME: g+USER_TAB_COLUMNS111 + G+ G+ + G* L@| '*R@| '*system all voyager tablesSystem Linked Tables@#vwkC *L@"v g*System Linked Tables999 *system all voyager tablesCCC * G* G* * G)[tblVideo-2].ISBN@!v?3 w)tblVideo-2%%% ) G) G) ) G([tblVideo-2].ISBN2NoBucks([ISBN2],13)V5 w([tblVideo-2].ISBNNoBucks([ISBN],10)S3 wHLVALbbbbb(((tblSuppressedBibs.BIB_ID) Is Null))tblV(((tblSuppressedBibs.BIB_ID) Is Null))[system all voyager tables].TABLE_NAME((([System Linked Tables].Name) Is Null))\Y\N~~ Y  L Y T Y  Y X Y  Y Me Y e BIB_ID AUTHORDISPLAY_CALL_NO TITLEPhysicalDescSongTitles Notes~~~~~~~ ~, v1b N @}TP > t 4 r(Bl1296427 Brow GameChrome hounds [electronic resource] oooo' 1153652 Brow GameChessmaster 8000 [electronic resource] uuuu' 1176189 Brow GameCastlevania [electronic resource] : lament of innocence. ' 1279420 Brow GameCastlevania [electronic resource] : Dawn of Sorrow. ' 1176230 Brow GameCapcom vs. SNK 2 EO [electronic resource]. }}}}' 1302624 Brow GameCapcom classics collection [electronic resources] : remixed. ' 1297823 Brow GameCall of duty 2 [electronic resource] : big red one. ' 1297823 Brow GameCall of duty 2 [electronic resource] : big red one. ' 1153657 Brow GameCSI [electronic resource] : crime scene investigation. ' 1275562 Brow GameBurnout revenge [eletronic resource]. ssss' 1279436 Brow GameBurnout revenge [electronic resource]. uuuu' 1226611 Brow GameBurnout 3 : [electronic resource] takedown. ' 1302619 Brow GameBully [electronic resource]. aaaa' 1232462 Brow GameBrothers in arms [electronic resource] : road to hill 30. ' 1293911 Brow GameBrain age [electronic resource] : train your brain in minutes a day. ' 1242130 Brow GameBomberman [electronic resource]. iiii' 1275557 Brow GameBlazing angels [electronic resource] : squadrons of WWII ' 1293929 Brow GameBig brain academy [electronic resource]. yyyy' 1176246 Brow GameBeyond good and evil [electronic resource]. ' 1237033 Brow GameBejeweled 2 deluxe [electronic resource]. {{{{' 1237041 Brow GameBattlefield 2 [electronic resource]. qqqq' 1237053 Brow GameBattle of Britain II [electronic resource] : wings of victory. ' 1241672 Brow GameBatman begins [electronic resource]. qqqq' 1226610 Brow GameBaten Kaitos [electronic resourc