Standard Jet DBnb` Ugr@?~1y0̝cßFN`7Cߜ( -`J{6߱ioC43*y[.|*"|Ke]f_Љ$g'DeFx -bT4.0dv Y; S << 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 OwnerParentIdRmtInfoLongRmtInfoShortTypeni4  4 4 4 YYIdParentIdName        OYfL M S;Y Y Y  Y 2ACMFInheritableObjectIdSID YObjectId YPleF QSY  Y mFY Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Order"L@  LY"ObjectIdAttribute -Y S Y Y Y  Y  Y  Y [ Y B Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship4 4  44 4  44 4  4YYYszObject$szReferencedObjectszRelationshipYv1b N  : k & W  C t/ `@@  @    @  @ @ @Mokmd`u`^UQbQiJmYdb`dOMokmd`u`^`dOUQbQiJmQu`^`dOkWJiQOu`^iQ^JmYdbkWYfkSdiLQJMWJMmYqYmYQkMokmd`u`^UQbQiJmYdbUQbQiJmQLQJMWbdmYSYMJmYdbu`^JO`YbOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^QkLQJMWLQJMW+JMmYqYmvLQJMW+JMmYqYmv+iQJkdbLQJMW+JMmYqYmv+kmJmYdbLQJMW+JmmiYLomQLQJMW+^JmYmoOQ+^dbUYmoOQ+MddiOYbJmQLQJMW+diUJbYxJmYdb+id^Q+JkkYUb LQJMW+fQikdb+id^Q+JkkYUb!LQJMW+fd^^omYdb"LQJMW+fidMQOoiQ+JkkYUb#Q^QMmidbYM+JOOiQkk$`JY^YbU+JOOiQkk%`kvkJMMQkkdL[QMmk&`kvkJMMQkku`^'`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkdiUJbYxJmYdb(fQikdb)fidMQOoiQ*mQ^QfWdbQ+JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO+ 66DLOSOMBFQ<>6QDHDHS:JSF:LO@6F<@<>@>>FJJJ+ +;K[+ 6MLB8S:@QOJB>>:JHLSJQ@BH8S>8JS86+ +;K[+ 8SL::B6@DBM:>S:>FO6B6HD@@M6LBMD8HFM>LH6BJ@HHOM>D+ +;K[+ >JM8@JLLHJL:8:JMHO@HS<+ +;K[+ @:QHBFO<:BFF>>H>JH6B8H8<>DS>QBFLM:@<@>MMMQSDDOFDD>FSJFJ:MMHD>QH:>LHJQMQ:@:>>8JL>@FDHL:8H>J@F:FD6:+ +;K[ + L6BBMJ>LD@D@>QQFJB<66LQH:OQBFMFF+ +;K[ + MBJO>MJ::DB6>>Q:HMLQBHJH@6JHLFDJ+ +;K[ + MBM8QBBBHOL8HLBS8S@<<@SO+ +;K[LQJMWLQJMW+fd^^omYdbK[LQJMWLQJMW+fd^^omYdb  @ @ @ @ @ @ @               !").2 :!B"G#N$V%_&'($)**0+ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @999999999 9 9 9 9999999999999$9% 9& 9' 9( 9, 9- 9. 9/ 90 91 92 93 94<<<<<<<<<<<<95969798999:9;9<9=9>9?9@9A9B9C9D9E9F9G9H9I9J9K9L9M9N9O9P<<<<<<<<<< < < < <  < < <!<!<!<KKKKKKK K K K K < N6QDHDHS:JSF:LO@6F<@<>@>>FJJJ+ +;K[8+ 6MLB8S:@QOJB>>:JHLSJQ@BH8S>8JS86+ +;K[8+ 8SL::B6@DBM:>S:>FO6B6HD@@M6LBMD8HFM>LH6BJ@HHOM>D+ +;K[8+ >JM8@JLLHJL:8:JMHO@HS<+ +;K[8+ @:QHBFO<:BFF>>H>JH6B8H8<>DS>QBFLM:@<@>MMMQSDDOFDD>FSJFJ:MMHD>QH:>LHJQMQ:@:>>8JL>@FDHL:8H>J@F:FD6:+ +;K[8 + L6BBMJ>LD@D@>QQFJB<66LQH:OQBFMFF+ +;K[8 + MBJO>MJ::DB6>>Q:HMLQBHJH@6JHLFDJ+ +;K[8 + MBM8QBBBHOL8HLBS8S@<<@SO+ +;K[8LQJMWLQJMW+fd^^omYdb8t @@@ LQJMW+JMmYqYmv8LQJMW+JMmYqYmv+iQJkdb8 LQJMW+diUJbYxJmYdb+id^Q+JkkYUb8LQJMW+diUJbYxJmYdb+id^Q+JkkYUb8LQJMW+fQikdb+id^Q+JkkYUb8LQJMW+fQikdb+id^Q+JkkYUb8 LQJMW+fd^^omYdb8LQJMW+fidMQOoiQ+JkkYUb8LQJMW+fidMQOoiQ+JkkYUb8 Q^QMmidbYM+JOOiQkk8Q^QMmidbYM+JOOiQkk8`JY^YbU+JOOiQkk8 `JY^YbU+JOOiQkk8 fQikdb8mQ^QfWdbQ8mQ^QfWdbQ8+  @@ LQJMW8LQJMW8LQJMW8LQJMW8 LQJMW8LQJMW+JMmYqYmv8 diUJbYxJmYdb8diUJbYxJmYdb8diUJbYxJmYdb8diUJbYxJmYdb8 diUJbYxJmYdb8fQikdb8fQikdb8fQikdb8fQikdb8 fidMQOoiQ8 ,d _ Z L _  $ b ɖ ; Wq`\F|d C;?;A00-_c@r_07vO@PYN@TELEPHONEM @O@@@44444442 @*W6vO@'?8@PROCEDUREMa@N@@@44444442 @H4vO@E8@ORGANIZATIONMm @LFFF:::::::8 @(O@(O@MSysAccessXMLM4MR2KeepLocal  T|||<<<<<<<: @_ Zc@$\c@MSysAccessObjectsMDDDDDDDDDDB Vf4vO@pᒓ@MAILING_ADDRESSMI‹LLL@@@@@@@> @G 2vO@sy@BEACH_PROCEDURE_ASSIGNMо@GZZZNNNNNNNL @B{th@Wyx3@BEACH_POLLUTIONMA@FLLL@@@@@@@> @:}1vO@cm@BEACH_PERSON_ROLE_ASSIGNM~ @F^^^RRRRRRRP @2̓0vO@ @"\O@9HN@BEACH_ACTIVITY_STATIONMв@AZZZNNNNNNNL @I-vO@οy@BEACH_ACTIVITYM ?‹JJJ>>>>>>>< @,vO@rjS`@BEACHM @;888,,,,,,,* @ i:c`@ Yy;@AdminM=‹8,,,,,,,,,*  u@ u@Generate Beach Notification XMLM``````````^ @@Custom XML GenerationMLLLLLLLLLLJ nmb@nmb@Relationships for BeachActivitiesMT@;pppdddddddb @ +9@+9@modSharedXMLM::::::::::8  =]S`@=]S`@modGenerateXMLM>>>>>>>>>><  +9@+9@modCustomXMLM::::::::::8  Ӥ@Ӥ@Custom XML GenerationM~@ AXXXLLLLLLLJ @ #`@#`@UserDefinedMA@;DDD88888886 @ #`@#`@SummaryInfoMЈ@;DDD88888886 @ 0>`@'d@AccessLayoutM4MR2KeepLocal T"@zz:::::::8 @#`@#`@SysRelM.........., #`@#`@ScriptsM0000000000. #`@#`@ReportsM0000000000. #`@#`@ModulesM0000000000. #`@#`@DataAccessPagesM@@@@@@@@@@> #`@#`@MSysRelationshipsLDDDDDDDDDDB #`@#`@MSysQueriesL88888888886 #`@#`@MSysACEsL22222222220 #`@#`@MSysObjectsL88888888886 #`@#`@MSysDbMx@;:::......., @#`@#`@RelationshipsL<<<<<<<<<<: #`@#`@DatabasesL44444444442 #`@#`@TablesL..........,  `Y%%N  Y  Y x Y  Y  Y  Y  Y  Y C Y Nd Y O Y IDNAMEDESCRIPTIONCOMMENT"STATE_POSTAL_CODEFIPS_COUNTYWATERBODY_NAMEWATERBODY_TYPEACCESS_TYPEACCESS_COMMENTSEND_TO_EPA39YYGYY2Y:YBYYY.rD.rE.rF.rG.rH(FK_STATE_POSTAL_CODEIDPrimaryKeyv1b AK177449testtesttestNV21000ATLANTICOPEN_COASTPUB_PUB_ACCTest Comment.Y`^OB6,"   AK162093Demo BeachFor DemonstrationDelete this record.NV21000ATLANTICOPEN_COASTPUB_PUB_ACCTest Comment.YqdXND@+  bqbq@J\8B:6H<J\8DD>>H@J\8B:6H<J\8DD>>H Y%%N  Y  Y   Y   Y  xY Y   Y   Y  Y Y   Y    Y   ACTIVITY_IDFK_BEACH_IDACTIVITY_CODENAME"ACTUAL_START_DATE ACTUAL_STOP_DATEDESCRIPTIONCOMMENT(EXTENT_START_MEASUREEXTENT_LENGTH,EXTENT_UNIT_OF_MEASURESEND_TO_EPA.r-YYYYYY.rFL{4AC36A5A-98EC-415A-BB9A-B212AC9D59F3}BEACH_ID FK_ACTIVITY_TYPEKEYPrimaryKeyHv1bs UUUU+1@7^@@AAK162093CLOSUREDemo Activity 1Demo activity descriptionDemoMIYigc]B1(J\8B:6H<@M^dkoiQ2 Y%%NY Y  Y d Y x Y KEYFK_ACTIVITY_ID CLASSTYPEDESCRIPTION  Y VYDKE!IDYYYYL{C6AD4CA2-2760-44E2-9CBE-69A950A9B87A}ACTIVITY_IDKEYPrimaryKeyv1@@NbINDICATOROTHERDemo Description 20 SOURCESEWER_LINE REASONELEV_BACTDemo Description/ n YN##Y Y  Y 0KEYFK_ACTIVITY_IDSTATION_ID #%  #&  #'  #( YYYYFK_ACTIVITY_IDKEYPrimaryKeySTATION_IDHv1b@ "NV004|rs002 NV004|rs001 "$$"$$"$$ "@bq66>+ ik668$bq66>+ ik66:$q YN ** Y Y Y Y d Y ,Y Y Y Y  Y  dY  Y    Y  ,d Y   Y  d Y  , Y  , Y  FK_BEACH_IDEFFECTIVE_YEAREXTENT_LENGTHEXTENT_UNITSBEACH_ACT_BEACHBEACH_TIER,SWIM_SEASON_START_DATE(SWIM_SEASON_END_DATE$SWIM_SEASON_LENGTH"SWIM_SEASON_UNITS"SWIM_MONITOR_FREQ OFF_MONITOR_FREQ$MONITOR_FREQ_UNITS*MONITORED_IRREGULARLY<MONITORED_IRREGULARLY_COMMENTS(NO_POLLUTION_SOURCES@POLLUTION_SOURCES_UNINVESTIGATEDSEND_TO_EPA*,*-YYFK_BEACH_IDPrimaryKeyv1 t)@@@ZAK162093 MIYDAYSPER_WEEKNNNY_][YYWMGEA0& )J\8B:6H<+ )J\8B:6H<+2 YN  // Y Y Y Y Y Y   Y  d Y  d Y FK_BEACH_IDSTART_LATITUDESTART_LONGITUDEEND_LATITUDEEND_LONGITUDE SOURCE_MAP_SCALE8REF_H_COLLECTION_METHOD_NAME4REF_H_REFERENCE_DATUM_NAMEDESCRIPTION /1 YBEACH_IDv1.O( ȯA@XR1>HB@1>HB@0AK162093INTERPOLATION-MAPNAD27Short description.^JC0&:`;?@pn]Rg ث@@F0AK177449INTERPOLATION-MAPNAD27Short description.^JC0&.@J\8B:6H<0J\8DD>>H0 iY%%N33Y  Y  Y  Y Y  Y ZKEYFK_BEACH_ID$FK_ORGANIZATION_IDORG_ROLE_CODEEFFECTIVE_DATE STATUSKE35D36Y37N38YV39YYYYYYYL{6590FD47-D877-48FA-8A2C-C974E93739DC}L{C6C1E3E8-9AA8-4666-9DB1-9B6F1F5335FD}BEACH_IDKEYORGANIZATION_IDPrimaryKeyROLE_TYPEv1b@ m2@AK162093394e785ANALYZERACTIVE3+!?@AK1620932349fweCOLLECTORACTIVE4,!?2@J\8B:6H<4J\8B:6H<42442@:<>HSsQ4QDF@42442JbJ^vxQi4Md^^QMmdi4 WY%%N;;Y  Y  Y  Y Y  Y KEYFK_BEACH_IDFK_PERSON_ID PERSON_ROLE_CODEEFFECTIVE_DATE STATUSOE"A_;=ALI_UYA;>ODWEO_P;?CECSOE;@ENA;AOY$YYYYYYL{52E968D3-2688-4494-A906-191347F3FBF0}L{916F5F3C-DC96-4B45-879B-2194A5828702}BEACH_IDKEYPERSON_IDPrimaryKeyROLE_TYPEv1b@ u:@AK177449foi34e0TESTORACTIVE1)!?@AK162093JHANALYZERACTIVE.&?:@J\8B:6H<<J\8DD>>H<:<< :@SdY<>Q6<[W<:<<:JbJ^vxQi<mQkmdi< Y0 NCC Y d Y d Y FK_BEACH_ID POLLUTION_SOURCE"POLLUTION_COMMENTCECFYYY(BEACHBEACH_POLLUTIONBeachIdPrimaryKeyv1@ BAK162093POTWComment for POTW$ AK162093CSOComment for CSO" B@J\8B:6H<DJ\8B:6H<D B J\8B:6H<MkdDJ\8B:6H<fdmsD `Y %%NHHY  Y  Y KEYFK_BEACH_IDFK_PROCEDURE_IDNTEHJCHKRHLE"YHMYY*YYYYL{0CB61F25-EDA6-442A-9BFA-E5691F41AF10}L{6F0337BD-7DBE-424B-9AEC-E2523CFBA821}BEACH_IDKEYORGANIZATION_IDPrimaryKeyHv1b G AK162093PRESS_RELEAS AK162093PRESS_RELEASG@J\8B:6H<IJ\8B:6H<IG I I GfiQkk+iQ^QJkIfiQkk+iQ^QJkIG I IH Y%%NOOY  Y  Y  Y  Y xY  Y AKEY$FK_ORGANIZATION_IDFK_PERSON_ID.ELECTRONIC_ADDRESS_CODEADDRESSEFFECTIVE_DATE STATUSOQ0ORYOSYOT.ErOUGAY$YYYYYYL{22A2A81A-EF57-4C71-98C4-B906A599DC47}L{5FD66722-0304-4E68-BC25-354CCCEF73EA}ADDRESS_TYPEKEYORGANIZATION_IDPERSON_IDPrimaryKeyv1b N@2349fweJHEMAILmy@my.comACTIVE5-"NQ`JY^PNPN@:<>HSsQPN[WPNP oY%%N WWY  Y  Y  Y  Y  Y  Y  Y Ad Y   Y  _Y  Y IKEY$FK_ORGANIZATION_IDFK_PERSON_ID(MAILING_ADDRESS_CODE LINE_1 LINE_2 LINE_3CITY"STATE_POSTAL_CODEZIP_CODEEFFECTIVE_DATE STATUSYWXYWYWZr.W[.r256-2W\0603}DRW]ZA ireW^DYY$YYYYYYYL{81BF7223-8544-41A3-8560-CACC051B6D95}L{B066CA4B-7575-4EE8-A630-0BE92DE68C88}ADDRESS_TYPEKEYORGANIZATION_IDPERSON_IDPrimaryKey"STATE_POSTAL_CODEZIP_CODEs v1b @  V V V V V V V Y5N``5Y Y DataID `YAOIndexv1K_[fSysAccessObjectsLLLLLLLLLLJ Create query in Design viewCustom XML Generation GenerationRelationships for BeachActivitiesCreate data access page in Design viewCustom XML Generationation XMLmodSharedXML*^3L x   h8      K_[ࡱ> Iufg/DERoot Entry.Ddn`VBA͌2zYVBAProject͌2zYVBA ͌2zYi x(ogp !"#$%&'*-B123456789:;<=>?@CleKLMNOPQRSTUVWXYZ[\]^_`abcd. }opqrtuvwxyz{|~Root Entry.&i`VBA͌2&iVBAProject͌2&iVBA ͌2&i x(ogp+ !"#$%&'-B123456789:;<=>?@ClKLMNOPQRSTUVWXYZ[\]^_`abcd}PROJECTDPROJECTwmAcessVBAData Forms *&2?j0 `i sYBlob ,"KPropDataTypeInfosBlobDeltaEPropDataCopy"DirDataCopy|K_[&(-03456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmnopruvxy{~      !"#$%&'()*+,-./012456789:<=>?@ACEGHJKLMNOPQRSTUVWXYZ[\]^_`abcdvhijlqsrtlk{xyz{|}~$DirData' 4PropData!")PROJECTPROJECTwmCAcessVBADataK_[ Forms *&2?jd Of Year Submission Generationͬ)3ST/~IDQƘDetailwxCalBegin+'d/$.'d/$wxCalEnd+'d/$.'d/$jchkActd  lblChkActj chkBeachd  lblChkBeachj chkOrgh  cmlblLocj)chkLocd .Label51j-chkCoorw/pbProgress B*c~k B*dghjkmwwdwdjdjdjdhmdhjdjdhmdmdjdjdjdjdjdjdmdjdwd Of Year Submission Generationͬ)3ST/~IDQƘDetailwxCalBegin+'d/$.'d/$wxCalEnd+'d/$.'d/$jchkActd  lblChkActj chkBeachd  lblChkBeachj chkOrgh  cm.Cmdbars+2?j0-,ЇЇ.Custom XML GenerationFEnd Of Year Submission Generation 0CB0 1CB0 h odXXLetterSCPI0ih5ELEB-295TEC-155B( odXXLetter.Custom XML GenerationFEnd Of Year Submission Generation 0CB0 1CB0Cal TestXML Gen 1CB0 0CB0Generate Beach Notification XML9.BGenerate Beach Notification XID="{3316586C-E6D5-48F8-A5A3-A9801D4B9A94}" Module=modGenerateXML DocClass=Form_Custom XML Generation/&H00000000 Module=modSharedXML Module=modCustomXML HelpFile="" Name="BeachActivities" HelpContextID="0" VersionCompatible32="393222000" CMG="1C1EC7CFCB01CF01CF01CF01CF" DPB="5250891DBE1EBE1EBE" GC="888A53645464549B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] modGenerateXML=22, 0, 666, 344, Form_Custom XML Generation=22, 0, 782, 231, K_[ Z modSharedXML=66, 0, 804, 310, modCustomXML=88, 0, 826, 310, modSharedXML=66, 0, 804, 310, modCustomXML=88, 0, 826, 310modGenerateXMLmodGenerateXMLForm_Custom XML GenerationForm_Custom XML GenerationmodSharedXMLmodSharedXMLmodCustomXMLmodCustomXMLm_Custom XML GenerationmodSharedXMLmodSharedXMLmodCustomXMLmodCustomXMLForm_End Of Year Submission GenerationForm_En__SRP_c%__SRP_d_VBA_PROJECTuHWAUNCNWGUWINDFZUSVCMJDSGEYB:SN O P Q R S U V W X Y Z [ J:l%h! Dh hh! `Qhd d cl%d cdh! \Qh` ` cl%` c`h! tQh\ \ cl%\ c\h! HQhX X cl%X cXh! QhT T cl%T cTh! xQhP P cl%P cPh! QhL L cl%L cLh! h (h(l%h! <h h, h! QhH H H N8  :l N((8 #$*# %H 2$ 68(N8 :l N((8 #$*# %H 2$ 68( HcHh! Qh        c \8h! h :lN((8 #$F%! , /$)h68(\8h! h :lN((8 #$F%! D /$)h68(otH 0 d`\XTPLH $$ h8(T x$ `x x $  x0   0   0   0 0  -Ct(`p! `p `cP]4p5`zACt(`p! \p `cP]4p5`t$ Pk><t$ 4k<-=P`:, %dt$ Td ( ` 4 P`1l)d`5Pg`d$ d PQ`o@%*#hll*#(*FP%p$ 2h(d6P@)>p$ Pk><p$ 4k< dH QdxB`:,%dt$ Td ( Q`oP%xl  d5PB`:,%dt$ Td ( Q`oP%xl  d5PllF,%xl  B`:,%dt$ Td ( Q`oP%xl  d5P)>p$ Pk><p$ 4k<B`:,%dp$ Td ( Q`oP%xl  d5P p$ L p$  c=!p`lx=H T)d` c= x p$  t$ ^ t$  c=!t TH4ltxp$h(d`P@DlCxh h \lxH Q\`l(qXlX8:(NhN8 `1d68&lXlXlX hK1d ld` ll`=[\H T)\ c= `$x4hxd` \8     /Q`o@%*#llx*#h#*FP%p$$ %2lhd6P@)>p$$ P%k><p$$ 4%k<1dH QdtB`:,%dp$$ T%d ((Q`oP%tl + d5PB`:,%dp$$ T%d ((Q`oP%tl + d5PB`:,%dp$$ T%d ((Q`oP%tl + d5PB`:,b%dp$$ T%d ((Q`oP%tl + d5PB`:,d%dp$$ T%d ((Q`oP%tl + d5P`lt=[dH T)d` c=;t p$$ %o p$$ % c=<pPL0ptx$lhd`P@H\`d$ d P Q`o@%"*#h#*FP%t$$ %/hd6P@)>t$$ P%k><t$$ 4%k<-=P`:,'%dt$$ T%d ((` 4)P`1l)d`5Pg`d$ d P Q`o@%*#hll*#(#*FP%p$$ %2h(d6P@)>p$$ P%k><p$$ 4%k< dH QdxB`:,%dt$$ T%d ((Q`oP%xl + d5PB`:,3%dt$$ T%d ((Q`oP%xl + d5PllF,%xl + B`:,-%dt$$ T%d ((Q`oP%xl + d5P)>p$$ P%k><p$$ 4%k<B`:,%dp$$ T%d ((Q`oP%xl + d5P p$$ %L p$$ % c=<pK_[`lx=[dH T)d` c=;x p$$ % t$$ %^ t$$ % c=<t TH4ltxp$h(d`P@DlCxh h \lxH Q\`l(qXlX8:(NhN8 `1d68&lXlXlX hK1d ld` ll`=[\H T)\ c=;`$x4hxd` \8     %)    !"#$%&*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ID="{3316586C-E6D5-48F8-A5A3-A9801D4B9A94}" Module=modGenerateXML DocClass=Form_Custom XML Generation/&H00000000 Module=modSharedXML Module=modCustomXML DocClass=Form_End Of Year Submission Generation/&H00000000 HelpFile="" Name="BeachActivities" HelpContextID="0" VersionCompatible32="393222000" CMG="ACAE771489B58DB58DB58DB58D" DPB="494B922793279327" GC="E6E43D224722E523E5231A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] modGenerateXML=22, 0, 666, 344, Form_Custom XML Generation=22, 0, 782, 231, Z modSharedXML=66, 0, 804, 310, modCustomXML=88, 0, 826, 310, Form_End Of Year Submission Generation=110, 145, 967, 639, GenerateXMLmodGenerateXMLForm_Custom XML GenmodGenerateXMLmodGenerateXMLForm_Custom XML GenerationForm_Custom XML GenerationmodSharedXMLmodSharedXMLmodCustomXMLmodCustomXMLForm_End Of Year Submission GenerationForm_EnSKGZORNHFHKAUSDGNZABKMRCBDXU_:PPPEOMIZRXFDUDPMIVDNJPGJYAQC:AZJEBSJMNWGEPCEFSXQXDJXVYGJM_: 028b9=Babc,.e g5hTijTBkX _Ҥ@hjt|Iew Y. U XML Generation"[Event Procedure] Arial8 hW odXXLetterSCPI0ih5ELEB-295TEC-155B( odXXLetterH@t$dd**** o****d{"ArialdK_[dXdddd$$ddd 222HWAUNCNWGUWINDFZUSVCMJDSGEYB:TSKGZORNHFHKAUSDGNZABKMRCBDXU_:PPPEOMIZRXFDUDPMIVDNJPGJYAQC:AZJEBSJMNWGEPCEFSXQXDJXVYGJM_:X4 .lx<x6X< l/0p<=/[txX8 D/x 7)txp x8X4 .lx<x2X< l/0p<=/[txX8 D/x 7)txp x9X4 .lx<x:X< l/0p<=/[txX8 D/x 7)txp84 ;(P%x! <x x  >l,l(llll 8=4xx4 < lx=48x(P2%x! <x x 84 =(PK%x! <x x$84 >(P_%x! <x x8xX4 .xFP%X4 .(Pd%x! <x xo(@l$  $<xtp`@0 P  0   X(hx! `x hcX]4x5hx! \x xx! tx xx! Hx xx! x x)hx! `x hfX]4x5hP fX%! d fX%! | fX%! P fX%!  x! \x xx! tx xx! Hx xx! x xh4X$  xhH0 h  0   P  Fl%!  $  2Q9x ''(>xFH0:h NXX !6XH(nX!  X:h]1H(!  (:8]1! H c]1')6X(9x ''(>xFH0:h"NXX !6XH(lFH!  X!  XNHN)6XH9x ''(>xFH0:h#NXX !6XH(jX! ` Xfh]1H(! x (f8]1'!  f]1')6X(]9x ''(>xFH0:h$NXX !6XH(hX! ` Xch]1H(! \ (f8]1'! t f]1'! H f]1'xdt! t dfT]1D'4) t6 X(dn9x ''(>xFH0:h%NXX !6XH(f!  !  (X! \ H! t (! H !  t! xt 0! 0 ,! , (! ( $! $ OO V+V+V+V+(V+HV+ XV+" )t0,($6XH(T  ''(>FH@&'*#x'*#(*#)*#*#'*#'*#**#)*#l*FX !2x6XH(!K_[ Q  (c! <Q(h% c:h%! ! Q  c0 "xt0,($XH(xdD4/0 h  0   0   0   0   D :l%! :l%h! ,h h:l%h! Dh hh! `Qhd d cl%d cdh! \Qh` ` cl%` c`h! tQh\ \ cl%\ c\h! HQhX X cl%X cXh! QhT T cl%T cTh! xQhP P cl%P cPh! QhL L cl%L cLh! h (h(l%h! <h h h! QhH H H N8  :l N((8 #$*# %H 2$ 68(N8 :l N((8 #$*# %H 2$ 68( HcHh! Qh        c \8h! h :lN((8 #$F%! , /$)h68(\8h! h :lN((8 #$F%! D /$)h68(tH 0 d`\XTPLH $$ h8(T x$ `x x $  x0   0   0   0 0  0 p  0 4       / t$  c=tX\$ \ PQXo8%*#pl#l*#h*#d*#`*FH%t$ 2 plhd`\6H8)6t$ Pk64t$ 4k4\H Q\xBX:$%\t$ T\ ( QXoH%xl  \5HBX:$%\t$ T\ ( QXoH%xl  \5HXlx=[\H T)\X c=x t$  t$  c=tFX, tx0 plhd`\XH8Xndh$ h PQdoD%*#tl#p*#l*FT%x$ 2tplh6TD)Bx$ PkB@x$ 4k@Bd:0%hx$ Th ( QdoT%ll  h5T x$ p x$  c=xL( x(tplhdTD` lCxg`d$ d PQ`o@%*#llx*#h*FP%p$ 2lhd6P@)>p$ Pk><p$ 4k<dH QdtB`:,%dp$ Td ( Q`oP%tl  d5PB`:,%dp$ Td ( Q`oP%tl  d5PB`:,6%dp$ Td ( Q`oP%tl  d5PB`:,8%dp$ Td ( Q`oP%tl  d5P`lt=[dH T)d` c=t p$ o p$  c=pP 0 ptx$lhd`P@LlCxg`d$ d PQ`o@%*#llx*#h*FP%p$ 2lhd6P@)>p$ Pk><p$ 4k<1dH QdtK_[B`:,%dp$ Td ( Q`oP%tl  d5PB`:,%dp$ Td ( Q`oP%tl  d5PB`:,%dp$ Td ( Q`oP%tl  d5PB`:,6%dp$ Td ( Q`oP%tl  d5PB`:,8%dp$ Td ( Q`oP%tl  d5P`lt=[dH T)d` c=t p$ o p$  c=pPL0 ptx$lhd`P@`\`d$ d PQ`o@%*#h*FP%t$ /hd6P@)>t$ Pk><t$ 4k<=P`:, %dt$ Td ( ` 4 P`1l)d`5Pg`d$ d PQ`o@%*#hll*#(*FP%p$ 2h(d6P@)>p$ Pk><p$ 4k<dH QdxB`:,%dt$ Td ( Q`oP%xl  d5PB`:,%dt$ Td ( Q`oP%xl  d5PllF,%xl  )>p$ Pk><p$ 4k<B`:,%dp$ Td ( Q`oP%xl  d5P p$   p$  c=p`lx=[dH T)d` c=x p$  t$ ^ t$  c=t T4 ltxp$h(d`P@8lCxh h \lxH Q\`ul(qXlX8:(!NhN8 "`1d68lXlX hK1d ld` ll`=[\H T)\ c=`$x4 hxd` \8     /˂222< 1 $ UEIP_164.16.4.166"[Event Procedure]d2 Tahomag237hgh Tahomaj1ghk1m45 Tahomaw2` DetailE=/@s;q=w0246U`abc dexCalBeginࡱ>  K_[                N O P Q R S U V W X Y Z [ J__SRP_8;/__SRP_9 3$__SRP_ag __SRP_b Y   '   !"#$%&tl  `5<B\:L9%`p$ T` (Q\o<%:tl  `5<B\:L;%`p$ T` (Q\o<%<tl  `5<B\:L=%`p$ T` (Q\o<%>tl  `5<B\:L?%`p$ T` (Q\o<%@tl  `5<\lt=[`H T)`\ c= t p$  p$  c= pD8  ptxlhd`\<dlCxACl?ll+*#dlx*1l/dBCh_ll-*#dlx*1l/dCCh ll*1lJ\`$ ` PQ\o<%llFL%p$ `5<):p$ Pk:8p$ 4k8I(` lhL%H l`= t`B\:LD%`p$ T` (Q\o<%Etl  `5<B\:LF%`p$ T` (Q\o<%Gtl  `5<B\:L=%`p$ T` (Q\o<%Htl  `5<B\:L?%`p$ T` (Q\o<%Itl  `5<\lt=[`H T)`\ c= t p$  p$  c= pDd8  ptxlhd`\<dlCxJCl?ll+*#dlx*1l/dKCh_ll-*#dlx*1l/dLCh ll*1lJ\`$ ` PQ\o<%llFL%p$ `5<):p$ Pk:8p$ 4k8I(` lhL%H l`= t`B\:LM%`p$ T` (Q\o<%Ntl  `5<B\:LO%`p$ T` K_[ (Q\o<%Ptl  `5<B\:L=%`p$ T` (Q\o<%Qtl  `5<B\:L?%`p$ T` (Q\o<%Rtl  `5<\lt=[`H T)`\ c= t p$  p$  c= pDd8  ptxlhd`\<l lCxp@D$ D PQ@o %d*#Pe*#Llx*#H*F0%\$ 2PLHD60 )\$ Pk\$ 4k(D f %H lD= tDB@: g%D\$ TD (Q@o0%htl  D50(D i %H lD= pDB@: j%D\$ TD (Q@o0%kpl  D50B@: l%D\$ TD (Q@o0%mpl  D50@lp=t T)D@(D n %H lD= lDj@: o%D\$ TD (Q@o0 !:p%\$ T (Qo !)D60 B@: q%D\$ TD (Q@o0%rll  D50B@: s%D\$ TD (Q@o0%tll  D50sB@: o%D\$ TD (Q@o0%ull  D50B@: p%D\$ TD (Q@o0%vll  D50@ll=t T)D@(D w %H lD= hDB@: x%D\$ TD (Q@o0%yhl  D50B@: z%D\$ TD (Q@o0%{hl  D50B@: |%D\$ TD (Q@o0%}hl  D50B@: ~%D\$ TD (Q@o0%hl  D50B@: %D\$ TD (Q@o0%hl  D50@lh=t T)D@(D  %H lD= dDD0@: %D\$ TD (@ 40:%]4)D@50B@: %D\$ TD (Q@o0%dl  D50D0@: %D\$ TD (@ 40:%]4)D@50[B@: %D\$ TD (Q@o0%dl  D50!*#Plx*#L*1T2PLJ@D$ D PQ@o0%lTF %X$ D50)X$ PkX$ 4k(D  %H lD= `DB@: %DX$ TD (Q@o0%`l  D50B@: %DX$ TD (Q@o0%`l  D50@l`=d T)D@ c= ` X$  X$  c= X@ld=t T)D@ c= dB@: %D\$ TD (Q@o0%tl  D50B@: %D\$ TD (Q@o0%tl  D50@lt=H T)D@ c= t \$ x \$  c= \L 4 \`ltdhpTXx0 PLHD@0 0 (  0   0   plCxg`d$ d PQ`o@%*#llx*#h*FP%p$ 2lhd6P@)>p$ Pk><p$ 4k<(d ,%H ld= tdB`:,%dp$ Td (Q`oP%tl  d5PB`:,%dp$ Td (Q`oP%tl  d5PB`:,=%dp$ Td (Q`oP%tl  d5PB`:,?%dp$ Td (Q`oP%tl  d5P`lt=H T)d` c= t p$ o p$  c= pP0 ptx$lhd`P@`lCxg`d$ d PQ`o@%*#llx*#h*FP%p$ 2lhd6P@)>p$ Pk><p$ 4k<C(d ,%H ld= tdB`:,%dp$ Td (Q`oP%tl  d5PB`:,%dp$ Td (Q`oP%tl  d5PB`:,%dp$ Td (Q`oP%tl  d5PB`:,=%dp$ Td ( K_[Q`oP%tl  d5PB`:,?%dp$ Td (Q`oP%tl  d5P`lt=H T)d` c= t p$ o p$  c= pP`0 ptx$lhd`P@lCxgX\$ \ PQXo8%*#dlx*#`*FH%h$ 2d`\6H8)6h$ Pk64h$ 4k4m(\ $%H l\= t\(\ $%H l\= p\BX:$%\h$ T\ (QXoH%pl  \5HBX:$%\h$ T\ (QXoH%pl  \5HBX:$%\h$ T\ (QXoH%pl  \5HBX:$%\h$ T\ (QXoH%pl  \5HBX:$%\h$ T\ (QXoH%pl  \5HXlp=[\t T)\X c= p(\ $%H l\= l\BX:$%\h$ T\ (QXoH%ll  \5HBX:$%\h$ T\ (QXoH%ll  \5HBX:$%\h$ T\ (QXoH%ll  \5HBX:$%\h$ T\ (QXoH%ll  \5HBX:$%\h$ T\ (QXoH%ll  \5HXll=[\t T)\X c= lBX:$%\h$ T\ (QXoH%tl  \5HXlt=[\H T)\X c= t h$ o h$  c= hX8  hltpx$d`\XH8p\`d$ d PQ`o@%*#h*FP%t$ /hd6P@)>t$ Pk><t$ 4k<=P`:, %dt$ Td (` 4P`1l)d`5Pg`d$ d PQ`o@%*#hll*#(*FP%p$ 2h(d6P@)>p$ Pk><p$ 4k<(d ,%H ld= xdB`:,%dt$ Td (Q`oP%xl  d5PB`:,%dt$ Td (Q`oP%xl  d5PllF,%xl  )>p$ Pk><p$ 4k<B`:,%dp$ Td (Q`oP%xl  d5P p$  p$  c= p`lx=H T)d` c= x p$  t$ ^ t$  c= t T4 ltxp$h(d`P@Hl Cx(` d%H l`= t`(` d%H l`= \` lx\ lXl\=[`t T)`X(` d%H l`= T`k &T l (T lXlT=[`t T)`X(` d%H l`= P`k0 &P l? (P lXlP=[`t T)`X(` d%H l`= L`k &L l (L lXlL=[`t T)`XXlt=[`H T)`X c= t[0< $Lx\TtP`XlCxh h !(L lxP%H lL= `Ll(qHlH8:("NhN8 #`1d68clH8:($NhN8 #`1d68clH?hK#%2/&Cd:hK#'2/0(Cd:)CdclHYlHc hK1d ld` ll`=H T)L c= `$|4 Xhxd`$L8     %:$%\h$ T\ (QXoH%pl  \5HBX:$%\h$ T\ (QXoH%pl  \5HBX:$%\h$ T\ (QXoH%pl  \5HBX:$%\h$ T\ (QXoH%pl  \5HXlp=[\t T)\X c= p(\ $%H l\= l\BX:$%\h$ T\ ( K_[QXoH%ll  \5HBX:$%\h$ T\ (QXoH%ll  \5HBX:$%\h$ T\ (QXoH%ll  \5HBX:$%\h$ T\ (QXoH%ll  \5HBX:$%\h$ T\ (QXoH%ll  \5HXll=[\t T)\X c= lBX:$%\h$ T\ (QXoH%tl  \5HXlt=[\H T)\X c= t h$ o h$  c= hX8  hltpx$d`\XH8p\`d$ d PQ`o@%*#h*FP%t$ /hd6P@)>t$ Pk><t$ 4k<=P`:, %dt$ Td (` 4P`1l)d`5Pg`d$ d PQ`o@%*#hll*#(*FP%p$ 2h(d6P@)>p$ Pk><p$ 4k<(d ,%H ld= xdB`:,%dt$ Td (Q`oP%xl  d5PB`:,%dt$ Td (Q`oP%xl  d5PllF,%xl  )>p$ Pk><p$ 4k<B`:,%dp$ Td (Q`oP%xl  d5P p$  p$  c= p`lx=H T)d` c= x p$  t$ ^ t$  c= t T4 ltxp$h(d`P@0   lCxh h !(L lxP%H lL= `Ll(qHlH8:("NhN8 #`1d68clH8:($NhN8 #`1d68clH?hK#%2/&Cd:hK#'2/0(Cd:)CdclHYlHc hK1d ld` ll`=H T)L c= `$|4 Xhxd`$L8     % ( Q`oP%tl  d5PB`:,%dp$ Td ( Q`oP%tl  d5PB`:,%dp$ Td ( Q`oP%tl  d5P`lt=#[dH T#)d` c=(t p$ o p$  c=)pPL0 ptx$lhd`P@H\`d$ d PQ`o@%*#h*FP%t$ /hd6P@)>t$ Pk><t$ 4k<-=P`:, %dt$ Td ( ` 4 P`1l)d`5Pg`d$ d PQ`o@%*#hll*#(*FP%p$ 2h(d6P@)>p$ Pk><p$ 4k< dH QdxB`:,%dt$ Td ( Q`oP%xl  d5PB`:,%dt$ Td ( Q`oP%xl  d5PllF,%xl  B`:,%dt$ Td ( Q`oP%xl  d5P)>p$ Pk><p$ 4k<B`:,%dp$ Td ( Q`oP%xl  d5P p$ L p$  c=)p`lx=#[dH T#)d` c=(x p$  t$ ^ t$  c=)t TH4 ltxp$h(d`P@DlCxh h *\lxH Q\`l(qXlX8:(+NhN8 ,`1d68&lXlXlX hK1d ld` l#l`=#[\H T#)\ c=(`$x4 hxd` \8           K_[__SRP_c%__SRP_d_VBA_PROJECTsf{FMONNRCDBZVZDEZCSIDJDAUWMDCH: A+     dir__SRP_1!M__SRP_2d:__SRP_3R 1  "#$%&'()*+,-.0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefhijklmnopqrstuvwxyz{|}~CustomGroupsQ22DataAccessPages 2#@w__SRP_0I `Root EntryK_[+'d/$ЇCk CompObjpOle  OleObjectData      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijtmnopqrsvuwyzk|}~0* pHdBeachActivitiesQH@  = | XCJ J< 9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation0 hADODB> ADTOBDDE1D10-8DAA006DP2EA4D1DProgram Files\Com(monSM\a do\ms21NMicrosoft eX Data Objects 2.1 LibraryHMSXML2MSXMPL2^lb^F5078F18-C551-11D3-89B92F81FE2 21}#4VQmsxml4.dll#), v @SHDocVw>H@RocVw$uk$EAB22AC0-30C$CF-A7EB$C05BAE0B}#1.SvOvhdocvw$Internet Controls@&`hell3K&hUl3K w&50"9B0 -70EFK1-B75A&A0C90564FE&SHELL32 &S& AndPAMSACALAtACA@u  )8E27C92E-1264-101C-8A2F-040224009C02}#7tPROGRA~1\MICROS~2\OFFI(CE1 S .OCX;Calendar 11.F0#@ COMPATUI`RH>O`OPA TUIib>t`j`+233A5627-7755-4B36-g-656B8846TP ySycompa8tui"+jUI  TypecMediaPlPayerM>d@iaP`?a4yre22D6F304-B0F6?0-94AaS80C74C7E95?msdxm.ocx#Windows  `!@(MSXctl(axC mftL@(@|`(831FDD16-0C5C2-A9FCBgF8754DA(wms("ye %h 6.0 (SP6)@#JetES#J (tE ~C>=58C862BAh3D(600832C5 73=msjtes40=JET Express` Service> `*<*6B7E6392 -8@aiB-AF `42j02A8DA7>3R)W ~a>?*5#*2$*K&`Form_EOf Ye q SubmiGe(nerGlFrm_0n Of Y@3ar (SuqmIssonPG*n0r0tTMONNRCDBZVZDEZCSIDJDAUWMDCH28>ONRIDBZ`^Z_EC IJ0A@WDpH&a 1!X1,R"(R+RmodSharedgGmdhP r dTp KGZORNHFHKAUSDGNZABKMRCBDXU_ KG OR HHKPLUDNA K UB X _ B P 5 g0 $eR S e ZJEBSJMNWGEPCEFSXQXDJX VYGJM Z*J B J NW ENCPFPXQDPXYq  1 Cus0C&QoP)3PPPEOMIZRXFDUDPMIVDNJPGJYAQCP VP dIR FU0U0PP I DUJpG YQ'%1{%1%:]6S ` 545Y p Pe4ep6apinHWA(UNCUFZUSVCMJDSGEYBH01VN UI DՐ(Zp&SCp4*SEP=B'oF_4 rU~~~~~~~~~~k    pOpenfilename objXMLDocument  objParentElementstrOrgIDstrKeyIDcktKey strBeachID lngActivityIDblnNotblnMonblnLoctxtYear strTagNamevDataeType am   *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft OfK_[fice\OFFICE11\MSACC.OLB#Microsoft Access 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\Program Files\Common Files\System\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library*\G{F5078F18-C551-11D3-89B9-0000F81FE221}#4.0#0#C:\WINDOWS\system32\msxml4.dll#Microsoft XML, v4.0*\G{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0#C:\WINDOWS\System32\shdocvw.dll#Microsoft Internet Controls*\G{50A7E9B0-70EF-11D1-B75A-00A0C90564FE}#1.0#0#C:\WINDOWS\system32\SHELL32.dll#Microsoft Shell Controls And Automation*\G{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0#C:\PROGRA~1\MICROS~2\OFFICE11\MSCAL.OCX#Microsoft Calendar Control 11.0*\G{233A5627-7755-4B36-AA00-656B8846F501}#1.0#0#C:\WINDOWS\System32\compatui.dll#CompatUI 1.0 Type Library*\G{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0#C:\WINDOWS\system32\msdxm.ocx#Windows Media Player*\G{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0#C:\WINDOWS\system32\mscomctl.ocx#Microsoft Windows Common Controls 6.0 (SP6)*\G{2358C810-62BA-11D1-B3DB-00600832C573}#4.0#0#C:\WINDOWS\System32\msjtes40.dll#JET Expression Service Type Library*\G{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0#C:\WINDOWS\system32\comctl32.ocx#Microsoft Windows Common Controls 5.0 (SP2) XCJ K8FMONNRCDBZVZDEZCSIDJDAUWMDCH014a55fc4c LForm_End Of Year Submission Generation@!8KGZORNHFHKAUSDGNZABKMRCBDXU_024a55fc4cmodSharedXML@B8ZJEBSJMNWGEPCEFSXQXDJXVYGJM_064a435892modGenerateXML 8PPPEOMIZRXFDUDPMIVDNJPGJYAQC064a55ff2cmodCustomXML:`18HWAUNCNWGUWINDFZUSVCMJDSGEYB034a55fc524Form_Custom XML Generation@` o@ K_['rP@r`VVKVz`p؈%IjYAYf J6@rq@V-c{L_6zT-tSHsH Accessand As BBooleanByRefByVal"Const.Debug=DimBdoubleDElseEElseIfGEnd HendifPExplicitQFRfalseTForVFormat$YFunction_IfxLongyLoop{MeModNotNothingNullOptionOrPrivatePublicreturnSubThenTrueWith VBAWin16~Win32MacVBA6# BeachActivitiesstdole`ADODBsMSXML2OSHDocVw!Root Entry+'d/$ JCompObjpOle  OleObjectDataShell32t modGenerateXMLm _Evaluate SCHEMA_NAMESCHEMA_NAMESPACEWA(SQL_SEND_TO_EPA}(SQL_BEACH_NAME_DETAIL(SQL_ORG_NAME_DETAIL(SQL_MAILING_ADDRESS(SQL_ELECTRONIC_ADDRESS4< (SQL_TELEPHONEAC(SQL_CONTACT_WHERE_ORG(SQL_CONTACT_WHERE_PERSON(SQL_PERSON_NAME_DETAILle(SQL_ATTRIBUTE_DETAIL3(SQL_ATTRIBUTE_WHERE (SQL_ACTIVITY_DETAIL(SQL_ACTIVITY_WHERE(SQL_ACTIVITY_REASON~(SQL_ACTIVITY_REASON_WHERE1(SQL_ACTIVITY_REASON_WHERE2(SQL_ACTIVITY_STATION`(SQL_ACTIVITY_STATION_WHEREh_(SQL_BEACH_ORG_ROLE(SQL_BEACH_ORG_ROLE_WHEREM#(SQL_BEACH_PERSON_ROLE(SQL_BEACH_PEK_[RSON_ROLE_WHERE (SQL_PROCEDURE(SQL_BEACH_PROCEDURE_ASSIGNX (SQL_BEACH_PROCEDURE_ASSIGN_WHERE5(SQL_WHERE_TEXT_END(SQL_WHERE_NUMERIC_ENDTRANS_CODE_ADDqCTRANS_CODE_EDITU  dirg__SRP_1!M__SRP_2d:__SRP_3R 1 "#$%&'()*+,-.0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefhijklmnopqrstuvwxyz{|}~CustomGroupsQ22DataAccessPages 2#@w__SRP_0 `      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijtmnopqrsvuwyzc0* pHdBeachActivitiesQH@  = | XCJ J< 9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation0 hADODB> ADTOBDDE1D10-8DAA006DP2EA4D1DProgram Files\Com(monSM\a do\ms21NMicrosoft eX Data Objects 2.1 LibraryHMSXML2MSXMPL2^lb^F5078F18-C551-11D3-89B92F81FE2 21}#4VQmsxml4.dll#), v @SHDocVw>H@RocVw$uk$EAB22AC0-30C$CF-A7EB$C05BAE0B}#1.SvOvhdocvw$Internet Controls@&`hell3K&hUl3K w&50"9B0 -70EFK1-B75A&A0C90564FE&SHELL32 &S& AndPAMSACALAtACA@u  )8E27C92E-1264-101C-8A2F-040224009C02}#7tPROGRA~1\MICROS~2\OFFI(CE1 S .OCX;Calendar 11.F0#@ COMPATUI`RH>O`OPA TUIib>t`j`+233A5627-7755-4B36-g-656B8846TP ySycompa8tui"+jUI  TypecMediaPlPayerM>d@iaP`?a4yre22D6F304-B0F6?0-94AaS80C74C7E95?msdxm.ocx#Windows  `!@(MSXctl(axC mftL@(@|`(831FDD16-0C5C2-A9FCBgF8754DA(wms("ye %h 6.0 (SP6)@#JetES#J (tE ~C>=58C862BAh3D(600832C5 73=msjtes40=JET Express` Service> `*<*6B7E6392 -8@aiB-AF `42j02A8DA7>3R)W ~a>?*5#*2$*K`Form_(Cus @ Gener"G4`rm_Tu!o $ TG2n`r@]tQHon  HWAUNCNWGUQUFZUSVCMJDSGEYBH28WpJSEYB@_ 1o1,"(REASON_CODE$f (SOURCE_CODE$ (INDIC_CODE` (eXMLDataType 8 xdtText xdtNumber9o xdtDatexdtTransactionCode(K_[eContactKeyTypes cktOrganization cktPersonz(XML_TAG_DETAIL_DOCt@(XML_TAG_DETAIL_ORG{(XML_TAG_DETAIL_BEACH(XML_TAG_DETAIL_PROCn(XML_TAG_ACT_TYPEJ(XML_TAG_ACT_NAME9=(XML_TAG_ACT_START(XML_TAG_ACT_STOP~(XML_TAG_ACT_STATION(XML_TAG_ACT_DESCϚ(XML_TAG_ACT_COMMENTA(XML_TAG_ACT_DETAIL_EXTENT~(XML_TAG_ACT_EXT_START(XML_TAG_ACT_EXT_LENGTH(XML_TAG_ACT_EXT_UNITSl(XML_TAG_ACT_DETAIL_REASON`(XML_TAG_ACT_REASON_TYPE(XML_TAG_ACT_REASON_DESC(XML_TAG_ACT_DETAIL_SOURCE(XML_TAG_ACT_SOURCE_TYPE(XML_TAG_ACT_SOURCE_DESC:(XML_TAG_ACT_DETAIL_INDIC`(XML_TAG_ACT_INDIC_TYPE(XML_TAG_ACT_INDIC_DES(R+RrmodSharedGmPd%hP r d KGZORNHFHKAUSDGNZABKMR@CBDXU_ KA ZOR HTF K Sp GE0ZBK RUBPX _ ȊB ! 5 e0 eR 1S e ZJEBSJM@EPCEFSXQXDJXVYGJM ZJ@6ZBJ SE@LCEPFPXQDuPXYpq s'C&PPPEOMIZRXFDUDPMIVDNJPGJYAQCP P UbIp$R F0UU0PP I DPJpG YQp%1%: FU0U0PP I DUJpG YQ'%1{%1%:]6S ` 545Y p Pe4ep6apinHWA(UNCUFZUSVCMJDSGEYBH01VN UI DՐ(Zp&SCp4C(XML_TAG_ATT_EFF_YEAR(XML_TAG_ATT_EXT4(XML_TAG_ATT_EXT_LENw(XML_TAG_ATT_EXT_UNITr(XML_TAG_ATT_SWIM(XML_TAG_ATT_SWIM_LEN(XML_TAG_ATT_SWIM_UNIT(XML_TAG_ATT_FREQ3(XML_TAG_ATT_FREQ_SWIMx(XML_TAG_ATT_FREQ_OFF(XML_TAG_ATT_FREQ_UNIT(XML_TAG_MAIL_TYPE(&(XML_TAG_MAIL_LINE1f(XML_TAG_MAIL_LINE2f(XML_TAG_MAIL_LINE3f(XML_TAG_MAIL_CITYe(XML_TAG_MAQx(:X%(  ( Pc((hx! Hx hcX]4x5hx! Qx$ $  $ <c$x! Qx    <c x! ,x Pxx! Dx Px\< $D0,($ xhH (hx! `x hcX]4x5hax! Hx  xx! x  xd)hx! `x hfX]4x5h fX%! P fX%! dx! Hx  xx! x  x 4$  xhHP \Fl%!  P $  82Q9x ''(>xFH0:hNXX 6XH(X!  X:h]1H(!  (:8]1! H c]1')6X(9x ''(>xFH0:hNXX 6XH(FH!  X!  XNHN)6XH9x ''(>xFH0:h NXX 6XH(X! ` Xfh]1H(! x (f8]1'!  f]1')6X(]9x ''(>xFH0:h!NXX 6XH( !  !  (X! H H! ` (! x !  !  !  !  OɐOɘV+V+(V+HV+XV+`)6XH(tl ''(>lFH@"#*#x#*#$*#%*#*##*#|&*#x%*#plt*FX 2x|xpt6XH(! Qh h (ch! <Qd(h%d cd:h%! ! Q` ` c`0 hd`px|xtplXH(<  $  K_[0   0   0   p$`p! p `Ottp5`E:@ N``tMP@ #*1t2 >Ct(`p! p `cP]4p5`W`p! `p `cP]1@,xFH0:h$NXX %6XH(NX!  X:h]1H(!  (:8]1! H c]1')6X(9x #''(>xFH0:h&NXX %6XH(LFH!  X!  XNHN)6XH9x #''(>xFH0:h'NXX %6XH(JX! ` Xfh]1H(! x (f8]1'!  f]1')6X(]9x #''(>xFH0:h(NXX %6XH(HX! ` Xch]1H(! \ (f8]1'! t f]1'! H f]1'xdt! t dfT]1D'4) t6 X(dn9x #''(>xFH0:h)NXX %6XH(F!  !!  (*X! \ H! t (! H !  t! xt 0! 0 ,! , (! ( O OV+V+V+ (V+"HV+$XV+&")t0,(6XH(" #''(>FH@+,*#x,*#-*#.*#*#,*#,*#/*#.*#l*FX %2x6XH(! Q  (*c! <Q(h% c:h%! ! Q  *c0!xt0,(XH(xdD4< " $ h\`p! ,p !` 0L\! ,\ !L:<]1, )p\6`La '`p! ,p !` 1p5`(`p! ,p !`Nttp6``5:2N``tM<@ 3#/5`7p! Qpot<% ot<%  4cp! Qpot<% ot<%  4cE:5N``tM<@ 3#F%p! ,p !/p5` 9 #' ',>FL0:<6N`` %6`L, ,(p\`L, h\`p! Dp !` 0L\! D\ !L:<]1, )p\6`La '`p! Dp !` 1p5`(`p! Dp !`Nttp6``5:2N``tM<@ 3#/5`7p! Qpot<% ot<%  4cp! Qpot<% ot<%  4cE:5N``tM<@ 3#F%p! Dp !/p5` 9 #' ',>FL0:<7N`` %6`L, 4 ,(K_[p\`L, p$`p! p `Ottp5`E:@5N``tMP@ 3# `?x @x $ xT ch%x! x x e$ $ xT ch%x! x x9 $ $ xT ch%x! x x$ $ xT ch%x! x x9 $ $ xt-Ct(`p! `p `cP]4p5`ACt(`p! \p `cP]4p5`Ch ll*1lJ\`$ ` PQ\o<%llFL%p$ `5<):p$ Pk:8p$ 4k87`lhH Q`tB\:L?%`p$ T` ( Q\o<%@tl  `5<B\:LA%`p$ T` ( Q\o<%Btl  `5<B\:L8%`p$ T` ( Q\o<%Ctl  `5<B\:L:%`p$ T` ( Q\o<%Dtl  `5<\lt=[`H T)`\ c= t p$  p$  c=!pDT8  ptxlhd`\<TlCxECl?ll&*#dlx*1l/dFCh_ll(*#dlx*1l/dGCh ll*1lJ\`$ ` PQ\o<%llFL%p$ `5<):p$ Pk:8p$ 4k87`lhH Q`tB\:LH%`p$ T` ( Q\o<%Itl  `5<B\:LJ%`p$ T` ( Q\o<%Ktl  `5<B\:L8%`p$ T` ( Q\o<%Ltl  `5<B\:L:%`p$ T` ( Q\o<%Mtl  `5<\lt=[`H T)`\ c= t p$  p$  c=!pDT8  ptxlhd`\<lCxpPT$ T PQPo0%`*#`a*#\lx*#X*F@%d$ 2`\XT6@0).d$ Pk.,d$ 4k,TbH QTtBP:c%Td$ TT ( QPo@%dtl  T5@TeH QTpBP:f%Td$ TT ( QPo@%gpl  T5@BP:h%Td$ TT ( QPo@%ipl  T5@Plp=t T)TPTjH QTlBP:k%Td$ TT ( QPo@%lll  T5@BP:m%Td$ TT ( QPo@%nll  T5@Pll=t T)TPToH QThBP:p%Td$ TT ( QPo@%qhl  T5@BP:r%Td$ TT ( QPo@%shl  T5@BP:t%Td$ TT ( QPo@%uhl  T5@Plh=t T)TPPlt=H T)TP c= t d$ x d$  c=!d`< $dlthpx(`\XTP@00 G  0 `"  0 0#  ` lCxg`d$ d PQ`o@%vw*#llx*#h*FP%p$ 2lhd6P@)>p$ Pk><p$ 4k<dxH QdtB`:,y%dp$ Td ( Q`oP%ztl  d5PB`:,{%dp$ Td ( Q`oP%|tl  d5PB`:,8%dp$ Td ( Q`oP%}tl  d5PB`:,:%dp$ Td ( Q`oP%~tl  d5P`lt=H T)d` c= t p$ o p$  c=!pP 0 ptx$lhd`P@LlCxg`d$ d PQ`o@%*#llx*#h*FP%p$ 2lhd6P@)>p$ Pk><p$ 4k<1dxH QdtB`:,%dp$ Td ( Q`oP%ztl  d5PB`:,{%dp$ Td ( Q`oP%|tl  d5PB`:,%dp$ Td ( Q`oP%tl  d5PB`:,8%dp$ Td ( Q`oP%}tl  d5PB`:,:%dp$ Td ( Q`oP%~tl  d5P`lt=H T)d` c= t p$ o p$  c=!pPL0 ptx$lhd`P@H\`d$ d PQ`o@%*#hK_[*FP%t$ /hd6P@)>t$ Pk><t$ 4k<-=P`:, %dt$ Td ( ` 4 P`1l)d`5Pg`d$ d PQ`o@%*#hll*#(*FP%p$ 2h(d6P@)>p$ Pk><p$ 4k< dH QdxB`:,%dt$ Td ( Q`oP%xl  d5PB`:,%dt$ Td ( Q`oP%xl  d5PllF,%xl  B`:,%dt$ Td ( Q`oP%xl  d5P)>p$ Pk><p$ 4k<B`:,%dp$ Td ( Q`oP%xl  d5P p$ L p$  c=!p`lx=H T)d` c= x p$  t$ ^ t$  c=!t TH4 ltxp$h(d`P@DlCxh h "\lxH Q\`l(qXlX8:(#NhN8 $`1d68&lXlXlX hK1d ld` ll`=[\H T)\ c= `$x4 hxd` \8     /RS_DETAIL_TELXML_TAG_PROC_TCODEXML_TAG_PROC_DESCXXML_TAG_PROC_TYPEcXML_TAG_PROC_TRANSXML_TAG_PROC_ID,XML_TAG_PROC_BEACH_ID~XML_TAG_BCHROLE_TYPEcXML_TAG_BCHROLE_ORG_IDGXML_TAG_BCHROLE_PERS_IDXML_TAG_BCHROLE_DATEfPXML_TAG_BCHROLE_STATUSXML_TAG_TEL_TYPEXML_TAG_TEL_NUMBERbXML_TAG_TEL_DATE<XML_TAG_TEL_STATUSЭGetSaveFileNameW pOpenfilenamec OPENFILENAME35 comdlg32.dll? lStructSize/r hwndOwner hInstance  qQy{| QY!I )1 qɃ1N)Q  9a1MaNђbaZYcٓcdiId!AeeaAffIq9` q L  @ #*#*# #*#T 2    4*((  `#T/6 T0 q2 ^q< l qx9 1>#l< 121l 1 > # # ?2 ~ l *1 t0t xl=[|t T)|xLx: t l=[|t T/)|x6t Qpt Ql l l*xll=[|p D )|xt Ql l l*xll=[|p D )|xt Ql l l*xll=[|p D )|x pt  pt  pt lpt lF%t  qx\`| di0r/e\producp 1t . i l/t_1\bin;l \ c4  |x{{ \\`$ !` P"Q\o<%#$*#d%*FL%l$& '/d`6L<):l$& P'k:8l$& 4'k8`(H Q`x=L\:()%`l$& T'` (*\ 4+L`1h)`\5LlhF(%,xl - `.H Q`tB\:(/%`l$K_[& T'` (*Q\oL%0tl - `5LB\:(1%`l$& T'` (*Q\oL%2tl - `5LB\:(3%`l$& T'` (*Q\oL%4tl - `5LB\:(5%`l$& T'` (*Q\oL%6tl - `5LB\:(7%`l$& T'` (*Q\oL%8tl - `5L`9H Q`pB\:(:%`l$& T'` (*Q\oL%;pl - `5LB\:(<%`l$& T'` (*Q\oL%=pl - `5L\lp=[`t T)`\\lt=[`x T)`\lhxl > lhxl ? lhxl @ lhxl A \lx=[`H T)`\ c=Bt c=Bx l$& '^ l$& ' c=Cl T8  lphtx d`\L<f l= t)5,X:%l$ T ( Qo,%8lt= l  l= t)5,/:9%l$ T ( Qo,X/::%l$ T ( Qo,HX ;H ;<H l= pX:=%l$ T ( Qo,%>lp= l  l= p)5,.X?lp= l  l= p.H@lp= l  l= plp=![t T!) c= plt=![H T!) c= t l$  l$  c=&lH< $lXHtpx< D@<, frU $ `8 `==Qn ` !==D `Aa==(D `Aa==(D! `Aa==(@I ` y==@q ` y==@ ` ==@ ` ==@ ` y==@ ` y==89 `==Ha `==8 `Aa0###4 `00qrnIL_STATEV(XML_TAG_MAIL_ZIPE(XML_TAG_MAIL_DATE+a(XML_TAG_MAIL_STATUSR(XML_TAG_BCH_IDjXML_TAG_BCH_TRANS|(XML_TAG_BCH_DETAIL_NAME@(XML_TAG_BCH_NAME-(XML_TAG_BCH_DESC.(XML_TAG_BCH_STATE(XML_TAG_BCH_COMMENT)(XML_TAG_BCH_COUNTY(XML_TAG_BCH_WATER_NAME7h(XML_TAG_BCH_WATER_TYPEuXML_TAG_BCH_WATER_SALrXML_TAG_BCH_TCODE(XML_TAG_BCH_DETAIL_ATT^(XML_TAG_BCH_DETAIL_ACTrU Hًwx)QyɌ9Y{q{{pqK_[Yɏ9y||ɘY Y1qy|Ayyz}1:9 ar 9)I yY٫@!v19@Qyvvv  Q @!v1Y @ Q%q @vq!wppp@!v1  @QxxxQ   @uɆ@!v1@!~~~@!v1A @:)[9w  @ Q%A  @u1; @ Q%AI @uY @!v1yI @!v1  W    W    W    _    _    _  @qx Lx x x@ #t*#p*#l #h*#dTx 2 tplhd x x4*(D(4  4`#tTx/t6D4 Tx0 qx8@^q<@ lE 1l>l#t\ #p2tpl4 1l>l#t #p?2tpl*#t/t@ (i0pB (tplhdD4pd+[x4x6x,-X4 .plx=/[tX4 T/)xtpRpx:P0` 1`@<X4 .lx=/[tX4 T//<)xtp6`@ x2X4 .lx8x x3X4 .lx<x4X< l/0p<=/[txX8 D/x 5)txp x6X4 .lx<x7X< l/0p<=/[txX8 D/x 5)txp x8X4 .lx<x9X< l/0p<=/[txX8 D/x 5)txp84 :(P%x! <x x  t>l(l$llll 8=;xx4 < lx=;8x(P2%x! <x x 84 =(PK%x! <x x8xX4 .xFP%X4 .(Pd%x! <x x$@$  K_[$<xtp`@0 P  0   X(hx! `x hcX]4x5hx! \x xx! tx xx! Hx xx! x x)hx! `x hfX]4x5hP fX%! d fX%! | fX%! P fX%!  x! \x xx! tx xx! Hx xx! x x:4X$  xhH0 h  0   P  Fl%!  $  2Q9x ''(>xFH0:h NXX !6XH(NX!  X:h]1H(!  (:8]1! H c]1')6X(9x ''(>xFH0:h"NXX !6XH(LFH!  X!  XNHN)6XH9x ''(>xFH0:h#NXX !6XH(JX! ` Xfh]1H(! x (f8]1'!  f]1')6X(]9x ''(>xFH0:h$NXX !6XH(HX! ` Xch]1H(! \ (f8]1'! t f]1'! H f]1'xdt! t dfT]1D'4) t6 X(dn9x ''(>xFH0:h%NXX !6XH(F!  !  (X! \ H! t (! H !  t! xt 0! 0 ,! , (! ( O OV+V+V+ (V+"HV+$XV+& )t0,(6XH(  ''(>FH@&'*#x'*#(*#)*#*#'*#'*#**#)*#l*FX !2x6XH(! Q  (c! <Q(h% c:h%! ! Q  c0 !xt0,(XH(xdD40 h  0   0   0   0   D :l%! :l%h! ,h h:l%h! Dh hh! `Qhd d cl%d cdh! \Qh` ` cl%` c`h! tQh\ \ cl%\ c\h! HQhX X cl%X cXh! QhT T cl%T cTh! xQhP P cl%P cPh! QhL L cl%L cLh! h (h(l%h! <h h h! QhH H H N8  :l N((8 #$*# %H 2$ 68(N8 :l N((8 #$*# %H 2$ 68( HcHh! Qh        c \8h! h :lN((8 #$F%! , /$)h68(\8h! h :lN((8 #$F%! D /$)h68(tH 0 d`\XTPLH $$ h8(T x$ `x x $  x0   K_[0   0   0 0  t-Ct(`p! `p `cP]4p5`>Ct(`p! \p `cP]4p5`objBeachProcRSN strProcID strTagName!GvDatabeTypevstrValueK objNewElementm _B_str_Chrm# _B_var_Stringӊ _B_str_UCaseK _B_str_Right#(ItemzValueK _B_var_FormatSQL_PERSON_WHERE#Cl\MSACAL COMPATUILibq MediaPlayer MSComctlLibmForm_XML Designer  cmdBrowsexFormDetail2 xCalStartxCalEnd Check4 chkOrg?Check16>Label17GCheck18@Label19I ProgressBar0v cmdGoxCalEnd_UpdatedCode Calendar0; ActiveXCtl31g Form_Form16 calDate lblTxtDate4txtDateY lblHeaderDcalDate_Updated\strMo`Updated  _B_var_strMo$strDa_  _B_var_strDa{#strYrb  _B_var_strYr&daPickZ  _B_var_daPickW  _B_var_endFDayStrMonthYear6nglob:  _B_var_globg+di\  _B_var_ditxt  _B_var_txttxtd Form_Cal Test calDate_ClickClickSetFocuscalDate_NewYear _B_var_calDate_NewYear|calDate_NewMonth6NewMonthY8caldate_ _B_var_caldate_3sNewYear _B_str_Format" strYrdaPick8>  accParent#  accChildCountT accChild accName accValuewg accDescription= accRoleMQ accState" accHelp4c  accHelpTopicZ accKeyboardShortcutu accFocusk  accSelectionD accDefaultAction1  accSelect   accLocation  accNavigatesf  accHitTest  accDoDefaultActionFormNameI RecordSourcebFilter;FilterOn&OrderBy OrderByOn& AllowFiltersY1Captionx DefaultViewշ ViewsAllowedH AllowEditingDefaultEditing AllowEditsAllowDeletions*AllowAdditionsI DataEntry AllowUpdating RecordsetType RecordLocksk< ScrollBarsRecordSelectorsŏNavigationButtons DividingLines0 AutoResize AutoCenterPopUpbModal BorderStyleS ControlBox  MinButton, MaxButton MinMaxButtons CloseButton_WhatsThisButtonDPicture* PictureType?sPictureSizeModePictureAlignmentY PictureTilingWCycleǷMenuBar߫Toolbar2 ShortcutMenu!ShortcutMenuBarGridXeGridYbLayoutForPrint:RFastLaserPrintingHelpFile HelpContextIdu" RowHeiK_[ghtDatasheetFontName-DatasheetFontHeightDatasheetFontWeightkDatasheetFontItalic[!DatasheetFontUnderlineTabularCharSet?DatasheetGridlinesBehavior?DatasheetGridlinesColor~DatasheetCellsEffectDatasheetForeColorShowGrid[DatasheetBackColorUHwnd/Count0vPageN}PagesLogicalPageWidthLogicalPageHeightj ZoomControl.VisiblePaintingmfPrtMip\H PrtDevMode% PrtDevNames  FrozenColumnsĚBookmarkC TabularFamily#Q_Name: PaletteSourcelTag& PaintPalette*OnMenuUXOpenArgsB ConnectSynchN/ OnCurrentLOnInsert} BeforeInsert AfterInsert: BeforeUpdate6 AfterUpdateOnDirtyXOnDelete_BeforeDelConfirm^AfterDelConfirmԛOnOpenOnLoad?OnResizeOnUnloadjOnCloseY OnActivate OnDeactivateQ` OnGotFocus OnLostFocus(;OnClick8 OnDblClick- OnMouseDownN OnMouseMoveQ OnMouseUp0 OnKeyDownOnKeyUp`O OnKeyPressڝ KeyPreviewE9OnErrorOnFilter[ OnApplyFilterKOnTimer;Z TimerInterval?cDirtyV WindowWidth5 WindowHeightN CurrentViewCurrentSectionTopHCurrentSectionLeftSelLeft#$SelTopmSelWidth SelHeight! CurrentRecord@ PictureData> InsideHeight InsideWidthlPicturePalette  HasModule.SacHiddenCurrentPage  OrientationwAllowDesignChanges٢ ServerFilter]tServerFilterByForm MaxRecordsȲ UniqueTableg ResyncCommandInputParametersE MaxRecButtonW Application*Parent NewRecordUndoÞ ActiveControlyDefaultControlDynasetWRecordsetClone8SectionG Properties+ConnectControlRecalcӬRequeryRefreshRepaintGoToPage &ControlsK_NewEnumxASubdatasheetHeightpSubdatasheetExpandedRDatasheetBorderLineStylen#DatasheetColumnHeaderUnderlineStylet HorizontalDatasheetGridlineStyleXVerticalDatasheetGridlineStyle WindowTopE WindowLeftMove>yOnUndol OnRecordExith( PivotTable ChartSpaceyPrinterҩMoveableBeginBatchEditZ UndoBatchEdit~BeforeBeginTransaction AfterBeginTransactionBeforeCommitTransactionAfterCommitTransaction4RollbackTransactionI AllowFormViewNAllowDatasheetView"AllowPivotTableView]AllowPivotChartViewF OnConnectd OnDisconnectuPivotTableChange Query% BeforeQuerySelectionChangenCommandBeforeExecuteCommandChecked+1CommandEnabled0CommandExecuteC DataSetChange}BeforeScreenTip`AfterFinalRendere AfterRender AfterLayoutW BeforeRenderot MouseWheel. ViewChange$ DataChange| FetchDefaults BatchUpdates؁ CommitOnClosegCommitOnNavigation#UseDefaultPrinter7RecordSourceQualifierItexCalStart_UpdatedpxCalStart_ClicklblSelBeginDate K_[H txtBeginDateq lblSelEndDate  txtEndDate̿JetES> Form_XML GenkForm_Cal Test1  ActiveXCtl4n lblEndDateSellblBeginDateSelq xCalBeginŶxCalBegin_UpdatedCkxCalBegin_Clickm xCalEnd_ClickL ProgressBar8v lblChkActT1chkActC: lblChkBeachobchkBeach lblChkOrgP~ lblTxtBrowsevgtxtFile cmdGo_Click{ pbProgressaEnabled۪ GoToControl P _B_var_GoToControl1Check23`Check25b lblChkRoleU  lblChkProc DateGenerateBeachNotificationXMLr SetupFileName(  _B_var_return _B_var_objFile4 _B_var_Datev SetFileName CreateBaseXMLcmdBrowse_Clickltxtb  _B_var_WithYstrf[5 _B_var_OFN_EXPLORER _B_var_OFN_OVERWRITEPROMPTd _B_var_OFN_HIDEREADONLYL _B_var_OFN_PATHMUSTEXIST1mdl+Forms Employees Modules modGenerateCXMLKchkRole( chkProcess chkAct_Click/  _B_var_IfPChecked0Xo UncheckedmYeschkD~chkbchkochkProc%G _B_var_chkprocJ  _B_var_chkU;chkrblnAct\blnBeachblnOrg blnRole blnProcessblnybnly  _B_var_bnl6bnlbeachzM _B_var_bnlbeach%blnprozblnProc _B_var_blnProc# _B_var_XML_TAG_DETAIL_DOC _B_var_SCHEMA_NAME  _B_var_SCHEMA_NAMESPACE! _B_var_AddOrganizationInformationDoCmdƧ OpenModuleobjXMLDocument, objRootElement  _B_var_OpenModule?modAddOrganizationInformationJMsgBoxRvbOKOnlypb^AddCustomBeachInformation!AddCustomBeachActivityInformation( _B_var_AddCustomBeachActivityInformationD dtActBegindtActEnd AddCustomBeachActivityInformation3Agolbal]  _B_var_golbalSQL_ACTIVITY_DATE_BEGINESQL_ACTIVITY_DATE_ENDDT\DTACTEJ|Label27lLabel28mtxtetxtBeginDate_BeforeUpdateCancelexti{  _B_var_exti _B_var_dtActBegin _B_var_dtActEndxcalben]  _B_var_enchkBeach_Clickk  _B_var_False-chkaxCalBegin_EnterWEnter xCalEnd_Enter7 Form_Load{SQL_WHERE_DATE_END۸ _B_var_SQL_WHERE_DATE_ENDezkbForm_AfterUpdatetxtfstrFileName؎txtf  _B_var_txtfv  _B_var_Debugۮenablesthe'progressu Command29 Command30Command30_Click?'  _B_var_ExitprogramHQuit9cmdClosejcmdClose_Click!P cmdResetcmdReset_ClickAForm_Custom XML GenerationFill,TextBoxQ  _B_var_FillYUSelectedYCalcProg intCountawintCountP _B_var_Integerfinalb  _B_var_final{& dblPercentb _B_var_dblPercentEdblProgCa\dblBasenfrmAfterUpdateLV vbExclamationModule1bModule2c modSharedXML modCustomXML\ modshared _B_var_modshared9  _B_var_AddCustomBeachInformationF _B_var_xdtText9# _B_var_AppendBeachXMLDataToDocument'pbp" _B_var_AddBeachActivityInformation _B_var_AddBeachInformation" _B_var_objXMLActivityDetailm _B_var_txtBeginDate _B_var_txtEndDate-Form_frmCustomXMLGeneration"frmCustomXMLGeneration_AfterUpdate!wfrmCustomXMLGeneration_LoadI _B_var_Form_Loadt SpecialEffectNnone=flatacEffectNormalac}\acEffectShadow/ aceffectsacEffectChiselMinimizeoMoveSize@sysinfok _B_var_sysinfo_ p workareawidth Form_Activaten MaximizeFy RunCommand` acCmdZoom75L CmdZoom75!K_[Activate| acCmdZoomBoxwD acCmdZoomacCmdSizeToFitFormofrmCustomXMLGeneration_ActivatehRestore>" _B_var_frmCustomXMLGeneration_LoadForm_MouseMoveaButtonShiftYl MouseMovev Form_Open-disableImsgbo  _B_var_msgbo|foB] _B_var_Selectedz ActivityoRange   _B_var_RangeValuei ValueIsNullxCalBegin_NewMonth}+xCalEnd_NewYearxCalEnd_NewMonth|xCalBegin_NewYear-NullCalLobjCal#CalendarI vbNewLineuavbnewvbt vbTabc9File%FiluFi<]vb_ vbInformationn IncludedData strIncludedFincluded _B_var_included(l  _B_var_elseifqmBeach!Role!TOrganizational ProcedureToday txtStartDate_AfterUpdate dteStartDate= txtStartDateaIsDate2txtStopDate_AfterUpdate[ dteStopDate txtStopDateU lblStopDate lblStartDatecxCalBegin_AfterUpdate9xCalEnd_AfterUpdatedteDummyUwne  _B_var_wneȡXML_TAG_BCH_ACCESSzXML_TAG_BCH_ACCESS_TYPE*XML_TAG_BCH_ACCESS_COMMENTXML_TAG_BCH_ACC_TYPE( XML_TAG_BCH_ACC_COMMENTXML_TAG_BCH_HUCw2XML_TAG_BCH_WATER_HUC#:XML_TAG_BCH_ACCn XML_TAG_ATT_BCH_POLLXML_TAG_ATT_BCH_TIER# XML_TAG_BCH__ _B_var_XML_TAG_BCH_WATER_NAME~CobjXMLBeachAccessDetailXML_TAG_BCH_ACC_/- _B_var_objXMLBeachAccessDetailobjXMLAccessDetail%AddBeachAttributePollutionInformationAddBeachAttrPollInformation-objXMLPollutionData\SQL_ATTRIBUTE_POLL|SQL_ATTRIBUTE_POLL_WHERE[SQL_$ SQL_ATTRIBUTEbSQL_WHEF;XML_Tag xml_tag_att_bch_p# objXMLPolluty _B_var_objXMLContactDataQobjbustrbea D[ _B_var_DobjXMLBeachPollSources'objRSPol~k strPolSQLxml_tag_ appendbeachSobjxm  XML_TAG_ATT_ Label34 chkActOnlyj lblChkActOnlychkActOnly_ClickfalMse_ blnActOnlyZ lblBeachNamez lblBeachAttchkAtt<chkName` _B_var_chkActOnlyBeachDataCheckw chkName_Click chkAtt_ClickU chkRole_Clickof^blnName)9blnAttѾ _B_var_blnBeach objXMLPollutionSourceDetail XML_TAG_ATT_BCH_POLL_CDXS(XML_TAG_PERS_ID3(XML_TAG_PERS_DETAIL_NAMEg1XML_TAG_PERS_TRANS(XML_TAG_PERS_STATUS[(XML_TAG_PERS_FNAME](XML_TAG_PERS_LNAME(XML_TAG_PERS_MIDDLE(XML_TAG_PERS_SUFFIX((XML_TAG_PERS_TITLEXML_TAG_PERS_TCODE%\(XML_TAG_PERS_DETAIL_MAIL Root Entry+'d/$ JContentszAccessObjSiteData&8 #K_[Root Entry+'d/$ۿjContentszAccessObjSiteData&8 88 ]DBArialDBArialArial 88&w $K_[P@ArialP@ArialArialh; ,p; L9;;;< @< ,< 3 := @= `= h= @=" = ==  = $> (> EH>h> @p> Calendar MSCAL.Calendar.7ז$_EN) @d5U`abceLabel28$Activity Stop Datei$ EgUj2U`arbfi chkAct =True"[Event Procedure]϶. nO!M/d5`aTbclblChkAct2Include Beach Activities? NJ0?Vd|j2U`a:bgfichkBeach =True"[Event Procedure];ȫGR d5`zabclblChkBeach&Include Beach Data?eDOB|$j2U`a bgfi chkOrg =True.ARQ@hd5`ua bclblChkOrg2Include Org./Person Data?*I.Hn5h1U`ac,i cmdGoGo!"[Event Procedure]z;L)^=m7UF`abLfk txtFile59$C}Whd5U`habdclblTxtBrowse File Name/Path?:G_Hފm[Rh1U`%ac,icmdBrowseBrowse..."[Event Procedure]J?pٴ@9\Aj2U`abf i chkRole =True"[Event Procedure])hNʠG~d5`abclblChkRole0Include Beach Role Data?qE)jG@ j2U`a bgfi chkProc =True DFM@Qd5`za bclblChkProc.Include Procedure Data?7\(qEr1Bh1U`%ac,icmdReset Reset"[Event Procedure]wc& ?Ld]pm7UF` al bf txtStartDated5U`abc Label3Year = w1MHʹj2U`aB bfichkCoor =TrueFRKIʁQd5`a$ bQ cLabel51 %K_[Root EntryRoot Entry B*PhOleObjectData\AccessObjSiteData&OO8 qhj ZtuQha;jdfn[iaetr "Ariald B*!C4C3~Bͫ!%X 222222< 1 $ RAWWinPrintLebanon Copy Room - ProgCtrl"COMCTL.ProgCtrl.1[:wHZP:OdOrganizationPersonInformation0MoveNextL!strOrgIDobjXMLPersonDataobjXMLPersonNameDetail strPersonIDwstrKeyIDQcktKeyobjXMLContactDatastrSQLFstrTagIobjXMLBeachData~de1@ NODE_ELEMENTMWQX_SCHEMA_NAMEDYearCompletionIndicatorsE6YearCompletionD _B_var_YearCompletion1 Indicato&K_[rsi _B_var_Indicators$"XML_TAG_YEAR_COMPLETION_INDICATORS XML_TAG_YCI_ XML_TAG_YCI_YEARIXML_TAG_YCI_NOTIFICATION(XML_TAG_YCI_MONITORING XML_TAG_YCI_LOCATIONcb_YearH _B_var_cb_Year̽ _B_var_objXMLDoc objRootDoc _B_var_objRootDocA _B_var_SetFileName|{ NotificationWelNotifdGomtxtFiled lblTxtBrowseh cmdBrowsed lblChkOrgd lblChkRoled lblChkProcjchkRolejchkProcd Label27d Label28h cmdResetmtxtStopDated lblStopDatemtxtStartDated lblStartDated  lblBeachNamed "lblBeachAttj!chkAttjchkNamed $Label40d ,Label3j#chkCompm+txtDataYeard &lblNotj%chkNotd (lblMonj'chkMond *(XML_TAG_PROC_ID,(XML_TAG_PROC_BEACH_ID~(XML_TAG_BCHROLE_TYPEc(XML_TAG_BCHROLE_ORG_IDG(XML_TAG_BCHROLE_PERS_ID(XML_TAG_BCHROLE_DATEfP(XML_TAG_BCHROLE_STATUS(XML_TAG_TEL_TYPE(XML_TAG_TEL_NUMBERb(XML_TAG_TEL_DATE<(XML_TAG_TEL_STATUSЭ(GetSaveFileNameW pOpenfilenamec (!OPENFILENAME35 comdlg32.dll? lStructSize/r hwndOwner hInstance  lpstrFilterlpstrCustomFilterlMaxCustFilterD lFilterIndexw lpstrFileVlMaxFilelpstrFileTitlep4 lMaxFileTitlelpstrInitialDirr lpstrTitleoflagso iFileOffsetwiFileExtension lpstrDefExt_ lCustData'5lpfnHooklpTemplateNamet (OFN_EXPLORERL(OFN_FILEMUSTEXISTٽ(OFN_HIDEREADONLY(OFN_OVERWRITEPROMPT(OFN_PATHMUSTEXIST(OFN_ALLOWMULTISELECT(GenerateBeachNotificationXML|:objXMLDocument1@ DOMDocument40wgobjRootElementQIXMLDOMElementobjSchemaAttributelIXMLDOMAttributeQ|objFilec1 strFileNameeChrK~ReplacefRight UCase5  appendChildbcreateProcessingInstructionk createCommentלNow% createElementHcreateAttribute  Attributes setNamedItem (AddOrganizationInformation+(AddBeachInformation(AddBeachProcedureInformationHdocumentElementESaveobjParentElementb objXMLOrgData-objXMLOrgNameDetailobjRS  RecordsetstrOrganizationIDk1CurrentProject$ ConnectionEOFBOFyFields7(AppendBeachXMLDataToDocumentr(AddMailingAddressInformation`(AddElectronicAddressInformation-p(AddTelephoneInformation+ (AddOrganizationPersonInformation0MoveNextL!strOrgIDobjXMLPersonDataobjXMLPersonNameDetail strPersonIDwstrKeyIDQcktKeyobjXMLContactDatastrSQLFstrTagIobjXMLBeachData~objXMLBeachNameDetailkstrBeachIdentifier5(AddBeachAttributeInformationQ(AddBeachActivityInformation`#(AddBeachOrganizationRoleInformationoy(AddBeachPersonRoleInformation strBeachIDpobjXMLAttributeDetail objXMLBeachExtentDetailobjXMLSwimSeasonDetailCobjXMLMonitorFrequencyDetailW~objXMLActivityDetailobjXMLExtentDetail^ lngActivityID^ vExtentLengthsdvExtentUnitOfMeasureU!(AddBeachActivityReasonInformation"(AddBeachActivityStationInformation,IsNullobjXMLActivityReason{ objXMLBeachRoleData@objXMLBeachProcData* objProcRSX>objBeachProcRSN strProcID strTagName!GvDatabeTypevstrValueK objNewElementm _B_str_Chrm# _B_var_Stringӊ _B_str_UCaseK _B_str_Right#(ItemzValueK _B_var_Format(SQL_PERSON_WHERE#Cl\ MSACAL COMPATUILibq MediaPlayer MSComctlLibmForm_XML Designer  cmdBrowsexFormDetail2 'K_[xCalStartxCalEnd Check4 chkOrg?Check16>Label17GCheck18@Label19I ProgressBar0v cmdGoxCalEnd_UpdatedCode Calendar0; ActiveXCtl31g Form_Form16 calDate lblTxtDate4txtDateY lblHeaderDcalDate_Updated\strMo`Updated  _B_var_strMo$strDa_  _B_var_strDa{#strYrb  _B_var_strYr&daPickZ  _B_var_daPickW  _B_var_endFDayStrMonthYear6nglob:  _B_var_globg+di\  _B_var_ditxt  _B_var_txttxtd Form_Cal Test calDate_ClickClickSetFocuscalDate_NewYear _B_var_calDate_NewYear|calDate_NewMonth6NewMonthY8caldate_ _B_var_caldate_3sNewYear _B_str_Format" strYrdaPick8>  accParent#  accChildCountT accChild accName accValuewg accDescription= accRoleMQ accState" accHelp4c  accHelpTopicZ accKeyboardShortcutu accFocusk  accSelectionD accDefaultAction1  accSelect   accLocation  accNavigatesf  accHitTest  accDoDefaultActionFormNameI RecordSourcebFilter;FilterOn&OrderBy OrderByOn& AllowFiltersY1Captionx DefaultViewշ ViewsAllowedH AllowEditingDefaultEditing AllowEditsAllowDeletions*AllowAdditionsI DataEntry AllowUpdating RecordsetType RecordLocksk< ScrollBarsRecordSelectorsŏNavigationButtons DividingLines0 AutoResize AutoCenterPopUpbModal BorderStyleS ControlBox  MinButton, MaxButton MinMaxButtons CloseButton_WhatsThisButtonDPicture* PictureType?sPictureSizeModePictureAlignmentY PictureTilingWCycleǷMenuBar߫Toolbar2 ShortcutMenu!ShortcutMenuBarGridXeGridYbLayoutForPrint:RFastLaserPrintingHelpFile HelpContextIdu" RowHeightDatasheetFontName-DatasheetFontHeightDatasheetFontWeightkDatasheetFontItalic[!DatasheetFontUnderlineTabularCharSet?DatasheetGridlinesBehavior?DatasheetGridlinesColor~DatasheetCellsEffectDatasheetForeColorShowGrid[DatasheetBackColorUHwnd/Count0vPageN}PagesLogicalPageWidthLogicalPageHeightj ZoomControl.VisiblePaintingmfPrtMip\H PrtDevMode% PrtDevNames  FrozenColumnsĚBookmarkC TabularFamily#Q_Name: PaletteSourcelTag& PaintPalette*OnMenuUXOpenArgsB ConnectSynchN/ OnCurrentLOnInsert} BeforeInsert AfterInsert: BeforeUpdate6 AfterUpdateOnDirtyXOnDelete_BeforeDelConfirm^AfterDelConfirmԛOnOpenOnLoad?OnResizeOnUnloadjOnCloseY OnActivate OnDeactivateQ` OnGotFocus OnLostFocus(;OnClick8 OnDblClick- OnMouseDownN OnMouseMoveQ OnMouseUp0 OnKeyDownOnKeyUp`O OnKeyPressڝ KeyPreviewE9OnErrorOnFilter[ OnApplyFilterKOnTimer;Z (K_[TimerInterval?cDirtyV WindowWidth5 WindowHeightN CurrentViewCurrentSectionTopHCurrentSectionLeftSelLeft#$SelTopmSelWidth SelHeight! CurrentRecord@ PictureData> InsideHeight InsideWidthlPicturePalette  HasModule.SacHiddenCurrentPage  OrientationwAllowDesignChanges٢ ServerFilter]tServerFilterByForm MaxRecordsȲ UniqueTableg ResyncCommandInputParametersE MaxRecButtonW Application*Parent NewRecordUndoÞ ActiveControlyDefaultControlDynasetWRecordsetClone8SectionG Properties+ConnectControlRecalcӬRequeryRefreshRepaintGoToPage &ControlsK_NewEnumxASubdatasheetHeightpSubdatasheetExpandedRDatasheetBorderLineStylen#DatasheetColumnHeaderUnderlineStylet HorizontalDatasheetGridlineStyleXVerticalDatasheetGridlineStyle WindowTopE WindowLeftMove>yOnUndol OnRecordExith( PivotTable ChartSpaceyPrinterҩMoveableBeginBatchEditZ UndoBatchEdit~BeforeBeginTransaction AfterBeginTransactionBeforeCommitTransactionAfterCommitTransaction4RollbackTransactionI AllowFormViewNAllowDatasheetView"AllowPivotTableView]AllowPivotChartViewF OnConnectd OnDisconnectuPivotTableChange Query% BeforeQuerySelectionChangenCommandBeforeExecuteCommandChecked+1CommandEnabled0CommandExecuteC DataSetChange}BeforeScreenTip`AfterFinalRendere AfterRender AfterLayoutW BeforeRenderot MouseWheel. ViewChange$ DataChange| FetchDefaults BatchUpdates؁ CommitOnClosegCommitOnNavigation#UseDefaultPrinter7RecordSourceQualifierItexCalStart_UpdatedpxCalStart_ClicklblSelBeginDateH txtBeginDateq lblSelEndDate  txtEndDate̿ JetES> Form_XML GenkForm_Cal Test1  ActiveXCtl4n lblEndDateSellblBeginDateSelq xCalBeginŶxCalBegin_UpdatedCkxCalBegin_Clickm xCalEnd_ClickL ProgressBar8v lblChkActT1chkActC: lblChkBeachobchkBeach lblChkOrgP~ lblTxtBrowsevgtxtFile cmdGo_Click{ pbProgressaEnabled۪ GoToControl P _B_var_GoToControl1Check23`Check25b lblChkRoleU  lblChkProc DateGenerateBeachNotificationXMLr SetupFileName(  _B_var_return _B_var_objFile4 _B_var_Datev SetFileName CreateBaseXMLcmdBrowse_Clickltxtb  _B_var_WithYstrf[5 _B_var_OFN_EXPLORER _B_var_OFN_OVERWRITEPROMPTd _B_var_OFN_HIDEREADONLYL _B_var_OFN_PATHMUSTEXIST1mdl+Forms Employees Modules modGenerateCXMLKchkRole( chkProcess chkAct_Click/  _B_var_IfPChecked0Xo UncheckedmYeschkD~chkbchkochkProc%G _B_var_chkprocJ  _B_var_chkU;chkrblnAct\blnBeachblnOrg blnRole blnProcessblnybnly  _B_var_bnl6bnlbeachzM _B_var_bnlbeach%blnprozblnProc _B_var_blnProc# _B_var_XML_TAG_DETAIL_DOC _B_var_SCHEMA_NAME  _B_var_SCHEMA_NAMESPACE! _B_var_Add)K_[OrganizationInformationDoCmdƧ OpenModuleobjXMLDocument, objRootElement  _B_var_OpenModule?modAddOrganizationInformationJMsgBoxRvbOKOnlypb^(AddCustomBeachInformation!AddCustomBeachActivityInformation( _B_var_AddCustomBeachActivityInformationD dtActBegindtActEnd AddCustomBeachActivityInformation3Agolbal]  _B_var_golbal(SQL_ACTIVITY_DATE_BEGINE(SQL_ACTIVITY_DATE_ENDDT\DTACTEJ|Label27lLabel28mtxtetxtBeginDate_BeforeUpdateCancelexti{  _B_var_exti _B_var_dtActBegin _B_var_dtActEndxcalben]  _B_var_enchkBeach_Clickk  _B_var_False-chkaxCalBegin_EnterWEnter xCalEnd_Enter7 Form_Load{(SQL_WHERE_DATE_END۸ _B_var_SQL_WHERE_DATE_ENDezkbForm_AfterUpdatetxtfstrFileName؎txtf  _B_var_txtfv  _B_var_Debugۮenablesthe'progressu Command29 Command30Command30_Click?'  _B_var_ExitprogramHQuit9cmdClosejcmdClose_Click!P cmdResetcmdReset_ClickA Form_Custom XML GenerationFill,TextBoxQ  _B_var_FillYUSelectedYCalcProg intCountawintCountP _B_var_Integerfinalb  _B_var_final{& dblPercentb _B_var_dblPercentEdblProgCa\dblBasenfrmAfterUpdateLV vbExclamationModule1bModule2c modSharedXML modCustomXML\ modshared _B_var_modshared9  _B_var_AddCustomBeachInformationF _B_var_xdtText9# _B_var_AppendBeachXMLDataToDocument'pbp" _B_var_AddBeachActivityInformation _B_var_AddBeachInformation" _B_var_objXMLActivityDetailm _B_var_txtBeginDate _B_var_txtEndDate-Form_frmCustomXMLGeneration"frmCustomXMLGeneration_AfterUpdate!wfrmCustomXMLGeneration_LoadI _B_var_Form_Loadt SpecialEffectNnone=flatacEffectNormalac}\acEffectShadow/ aceffectsacEffectChiselMinimizeoMoveSize@sysinfok _B_var_sysinfo_ p workareawidth Form_Activaten MaximizeFy RunCommand` acCmdZoom75L CmdZoom75Activate| acCmdZoomBoxwD acCmdZoomacCmdSizeToFitFormofrmCustomXMLGeneration_ActivatehRestore>" _B_var_frmCustomXMLGeneration_LoadForm_MouseMoveaButtonShiftYl MouseMovev Form_Open-disableImsgbo  _B_var_msgbo|foB] _B_var_SelectedzActivityoRange   _B_var_RangeValuei ValueIsNullxCalBegin_NewMonth}+xCalEnd_NewYearxCalEnd_NewMonth|xCalBegin_NewYear-NullCalLobjCal#CalendarI vbNewLineuavbnewvbt vbTabc9File%FiluFi<]vb_ vbInformationn IncludedData strIncludedFincluded _B_var_included(l  _B_var_elseifqmBeach!Role!TOrganizational ProcedureToday txtStartDate_AfterUpdate dteStartDate= txtStartDateaIsDate2txtStopDate_AfterUpdate[ dteStopDate txtStopDateU lblStopDate lblStartDatecxCalBegin_AfterUpdate9xCalEnd_AfterUpdatedteDummyUwne  _B_var_wneȡXML_TAG_BCH_ACCESSzXML_TAG_BCH_ACCESS_TYPE*XML_TAG_BCH_ACCESS_COMMENT(XML_TAG_BCH_ACC_TYPE( (XML_TAG_BCH_ACC_COMMENTXML_TAG_BCH_HUCw2XML_TAG_BCH_WATER_HUC#:(XML_TAG_BCH_ACCn (XML_TAG_ATT_BCH_POLL(XML_TAG_ATT_BCH_TIER# XML_TAG_BCH__ _B_var_XML_TAG_BCH_WATER_NAME~CobjXMLBeachAccessDetailX*K_[ML_TAG_BCH_ACC_/- _B_var_objXMLBeachAccessDetailobjXMLAccessDetail%AddBeachAttributePollutionInformationAddBeachAttrPollInformation-objXMLPollutionData\(SQL_ATTRIBUTE_POLL|(SQL_ATTRIBUTE_POLL_WHERE[SQL_$ SQL_ATTRIBUTEbSQL_WHEF;XML_Tag xml_tag_att_bch_p# objXMLPolluty _B_var_objXMLContactDataQobjbustrbea D[ _B_var_DobjXMLBeachPollSources'objRSPol~k strPolSQLxml_tag_ appendbeachSobjxm  XML_TAG_ATT_ Label34 chkActOnlyj lblChkActOnlychkActOnly_ClickfalMse_ blnActOnlyZ lblBeachNamez lblBeachAttchkAtt<chkName` _B_var_chkActOnlyBeachDataCheckw chkName_Click chkAtt_ClickU chkRole_Clickof^blnName)9blnAttѾ _B_var_blnBeach objXMLPollutionSourceDetail (XML_TAG_ATT_BCH_POLL_CD(XML_TAG_ATT_BCH_POLL_DESCA% OBJXMLPOL;  _B_var_True!VAddBeachHUCInformationASQL_BEACH_NAME_HUCVSTRBEACHIDENIFIER4objxmld, objxmlbeachn _B_var_SQL_BEACH_NAME_HUCO(SCHEMA_LOCATION8(W3_SCHEMA_NAMESPACE9(BEACHES_SCHEMA_NAMESPACEForm_End of Year Submissionj  Command12Text2~Label3,Label5,Check6 Label7,Check8Label9,Frame10Label11ACommand12_Click  b_createXMLRb_createXML_Click?[Filenamej Contact_Infotb_year cb_Locationg cb_Monitoringcb_Notification" XML_H_ROOT_TAG@"MakeGuidյXML_H_SCHEMA_NAMEXML_H_SCHEMA_NAMESPACEt CE_Headerr Author_Name[Organization_Nameu Comments) CE_PayloadvInc_Electronic_Addressu8Inc_TelephonicInc_Organization_Address Inc_ProjectXInc_Monitoring_Location` Inc_Activityx(Inc_Activity_GroupSchanges Remove_NodeK6 IXMLDOMNode5 selectNodesg parentNode removeChildGUIDl1^l2^l3^l4^ CoCreateGuidlpGuid OLE32.DLLStringFromGUID2%lpStringzcbBytesid]sTempenLene,hr]StrConvx' vbUnicode vbFromUnicode0 _B_var_XML_H_ROOT_TAGϹ _B_var_objRootElement GUID Code!| _B_var_objSchemaAttributes. _B_var_Chr\;_B_var_StrConv{CE_Leaf_Node_BasicData; objXMLDocE createNode1@ NODE_ELEMENTMWQX_SCHEMA_NAMEDYearCompletionIndicatorsE6YearCompletionD _B_var_YearCompletion1 Indicatorsi _B_var_Indicators$"(XML_TAG_YEAR_COMPLETION_INDICATORS XML_TAG_YCI_ (XML_TAG_YCI_YEARI(XML_TAG_YCI_NOTIFICATION((XML_TAG_YCI_MONITORING (XML_TAG_YCI_LOCATIONcb_YearH _B_var_cb_Year̽ _B_var_objXMLDoc objRootDoc _B_var_objRootDocA _B_var_SetFileName|{ NotificationWelNotification*elYear'} elMonitoring> elLocationt" tb_data_year _B_var_tb_data_yearC _B_var_tb_yearg%Form_End of Year Submission Generator3 & Form_End Of Year Submission Generation>CreateYearCompletionIndicator3$ _B_var_CreateYearCompletionIndicatordataYearTLocation- Monitoring bNotificationZ bMonitoringG: bLocation\bNotificationasZ _B_var_bNotificationas _B_var_bNotification7emd  _B_var_emdF CreateYearCompletionIndicatorXMLf _B_var_OPENFILENAMEn"Form_EndOfYearSubmissionGenerationdMForm_CustomXMLGeneration) _B_var_XML_TAG_YEAR_COMPLETION_INDICATORSG _B_var_FilenamerPrivat  _B_var_Privat{sFrame13Label14DXML_TAG_ATT_SWIM_STARTl(XML_TAG_ATT_SWIM_END_DATEf@(XML_TAG_ATT_SWIM_START_DATE*XML_TAG_DETAIL_ORGBEACHES_SCHEMA+K_[_NAMESPACE/XML_TAG_ORG_DETAIL_NAMEBEACHES_SCHEMA_NAMESPACE63/XML_TAG_ORG_DETAIL_PERSBEACHES_SCHEMA_NAMESPACEN0XML_TAG_PERS_DETAIL_NAMEBEACHES_SCHEMA_NAMESPACE\FobjXMLDocumentcreateNodeS _B_var_objXMLDocumentcreateNode1( xdtDateTime eXMLDataTpel _B_var_eXMLDataTpeCData  _B_var_CDataQI` _B_var_I elseiffMXL(XML_TAG_ATT_BCH_POLL_NONE#(XML_TAG_ATT_BCH_POLL_UNINVESTIGATEDKobjXMLPollutionSoucetobjXMLPollutionSourceq _B_var_objXMLPollutionSource\(XML_TAG_ATT_MON_IRREG(XML_TAG_ATT_MON_IRREG_COMMENTXML_TAG_ATT_MON_IRREG_COMMENTS% _B_var_XML_TAG_ATT_MON_IRREG_COMMENTS xdtYN(XML_TAG_ATT_BCH_POLL_SOURCE6GBeachActBeachIndicator(XML_TAG_ATT_BCH_ACT_BCHWCheck39Label40Check41Label42Check43Label44Check45Label46chkComp-chkNotchkMon%|chkLocvblnComp modShareed%GAddEndOfCompletionInformationB _B_var_AddEndOf}!(AddEndOfYearCompletionInformation`5 txt_data_year _B_var_txt_data_yearx txtDataYear _B_var_txtDataYear1Project-blnNot^blnNomblnNbl\Valu ValVa_VmchkComFchkCochkClblNotlblMonlblLoc4blnMon>blnLoctxtYearobjXMLYearCompletionIndicators\IsEmpty (AddBeachCoordinateInformation(SQL_BEACH_COORDINATEZ(SQL_BEACH_COORDINATE_WHERE(XML_TAG_BCH_COORDINATED{XML_TAG_BCHCOOR_TYPEX XML_TAG_BCHCOOR_START_LATBPXML_TAG_BCHCOOR_START_LONGFXML_TAG_BCHCOOR_END_LATXML_TAG_BCHCOOR_END_LONGf< (XML_TAG_BCHCOOR_SOURCE_MAP_SCALE%[((XML_TAG_BCHCOOR_H_COLLECTION_METHOD_NAME&(XML_TAG_BCHCOOR_H_REFERENCE_DATUM_NAMEŲ(XML_TAG_BCHCOOR_DESCRIPTION(XML_TAG_BCHCOOR_LAT(XML_TAG_BCHCOOR_LONG˼objXMLBeachCoordinateData`(XML_TAG_BCHCOOR_START_POINTY(XML_TAG_BCHCOOR_END_POINTkobjXMLBeachCoordinateStartPointobjXMLBeachCoordinateEndPointaUCheck50̨Label51chkCoorf- _B_var_chkCoor0chkRolchkRoblnCoor#AddCustomBeachCoordinateInformation?& _B_var_objXMLBeachCoordinateStartPointq ComctlLibn ActiveXCtl52 024 6     &Z;L**LLL*LLL<<<<<<<<<<<|,K_[N0{5453339B-7E2F-49D8-A4AD-44808B5188C6} A(%*H %@x TT(%z$%@Xl @ %@h *%%8% `%k( 66I  `3k, ?? Pi i   @i @i ` i  i @ i$ in ( i@, iB0 `` k0 55 `p(|k4   l`Hk8 %%  `'|k< % ``()|k@  ) `$lkD 5 `HH TTH  ` L %P(X v@ ` P ..`x ~ ` T 00`  ` X `x  H ` \ `0 x`k` YY. ,`8 xkd  i\  B ` h  `dtX@((X@(( H ` l   F ` p   D ` t %H i `%( ,b `5+X x BB ` lk|  04P  X 0hpH 0h@"{ 4H@"~ 8h@"@ <@"h @@b@ ``@@@   H   h P0d` ` `%0  ( \@ `RlXx `@ xF-K_[RlZ%0  ( T(`( 8P8`H" XLP` %%(0  ( 0  ( 0  ( p8' pHX` X7(@8  B %0  ( %Hp@@( @@$ @  @  `pA@  @x @h 8p((@X @H Bz@x @h  0  ( 0  ( @ X @H 0Dh`H`  PX`0  ( H@4 %@0  ( 0  ( 0  ( X08`x0 ,p`h%X (`%h 0  ( (  X ( p .K_[x $` `hh% $ `%x )`!x!!!*H!* @!x @!h @!X @"H @ "D @"B @P"0 @8" @" @h" @" @" @" @# @# @0# @# @x# @H# @# @`# x @#p @#l @h$j @$X @#H @P$D @ $4 @$$ @8$ @$ @$ @@* @) @$ @(* @) %%@l &('''h&'&lrpt\<X'x&`0A %x'h&@&t @&p @&l @&h @d @T @@'D @4 p'  %X'@ " ~P&xX(4B))) X(@X* @* @p* @ @ @ @p Pl*`%*Xh/p3`3h/x4Bh/`x @h +(X @H @8 ,( @ / x,( @ x@ / @ (@ @ @@#$#X#x$@@#$#X#x$/K_[@@#$#X#x$@"#P""#X*x8x f ~ p3 @ @ @0X @x p0t @d @T @0XD @4 10 @ @@ 1( @ h/RPVb`p3X @ @ @ @ @ @ @ @ @ @@ @ @ @ @x8 @ @ @ (@ @ @ @ @ @ X3`x83830\ 33`x83=x83`x8E` 054455z n" ~ @4x 8@4t @x5p @5` @P @`5@ @< 4 h j l ~ @5, @( @ H55(x6(7666x6`86hb `b`6x6x6`6@PVB@7p @7` @08P @@7@ @@7< @`78 p'@x74 @70 0@, @7 6@8 7@ @8 @H8 @ @ 6 Ff  @(3H1002823 @`77@@x @h H7@X ::<:@ exte@xai:@PVB@p @` @P <@  <p< @8 @4 @0 @, @ @ @ @ @ @ @ in;`xP=@ @in= @x @h @X @>(H (>D @B 0K_[>0 p>@ @> @ @ >@ @@ ? @ ? H?@ @x? @ @ ?@ @@p ?l @j  @XX (8@@H h@D @4 tionTy/x$ @@ @ h&@ @ @( @ x?P7`   8B>A@ h  ( d) XCJ *\R4*#6a$*\Rffff*024a55fc4c(*\Rffff*024a55fc4c\2*\R4*#9*\R4*#8$*\Rffff*034a55fc52$*\Rffff*064a55ff2c*\R4*#5*\R4*#3*\R0*#12*\R4*#1*\R4*#6*\R4*#12*\R1*#4a*\R0*#e*\R0*#13*\R0*#14*\R1*#c1*\R0*#1*\R0*#f*\R1*#5d*\R1*#1*\R0*#f*\R0*#12*\R1*#78*\R1*#48*\R1*#50*\R1*#52*\R1*#5b*\R1*#25*\R1*#98*\R1*#99pxvI LP $  > < :H 8 > > @  @X J    < HH @ H B B` H D F8 HH H F @( Hh H B B@ H D H F` 8 H D H8 F 8 H H FX > H H F` > H L`  88  @   < : ,0  h @`"@     P   B@ X P*P & x   8   E@"4`  0   @ "  < 4H  : ( : &( 8P & : ( : &X 8 ( : >  0` > 8 ( @0 "T.p , .6>R6@  .`&  0  0 ( H0X  ^p @   (R'6(X1K_[      .     $0X h x  @ "  8 >8 x   @ " 6)@  .P           (  &0X h  px      2   J(8H  P X` h  p x      " @ $ @ 8H >    @!"P! .X! (!  $! ! ! ! ! T "  08" )" (h" " " (" " T  X""  2# " P# `# p# T # # "### "### @# $$ ($ <P$ $ 0$ $ @$"8$ (8%@$  <`%$ $ @% % $ 8& H& ication*elYear'} elMonitoring> elLocationt" tb_data_year _B_var_tb_data_yearC _B_var_tb_yearg%Form_End of Year Submission Generator3 &Form_End Of Year Submission Generation>CreateYearCompletionIndicator3$ _B_var_CreateYearCompletionIndicatordataYearTLocation- Monitoring bNotificationZ bMonitoringG: bLocation\bNotificationasZ _B_var_bNotificationas _B_var_bNotification7emd  _B_var_emd$ & @' "h& @P'p& .'T9'&& J(<h( |9( && 4h) F& @)T9)& &  D8*2UN9*'( H* &+ ZU\9@+(( X+ &+O(Z9 ,,, F, B,  - $0- X-  .h-^O- :- 8.... ../  D/P/ X/`/  "h////  //  ./0 00 0 @ 0 $`0 0 :0 0 0 (1 @H1 " 0 10 1 @1 01 1 <2 X2 `2 @2" 2 22 &2 3(3 *03`3 x3 3 3 63 4   4@4H4X4`2K_[4h4 p4x44444 4 ,4 45 ,5 L85555 @5 .5 6 <6 X6 `6 @6" 6 66  L6&@7 h7x7 *77  7 7 7 68 P8 p888888 888888 8 ,9 09P9 ,X9 L9999 @9 ,0: `: :h: : : : @:" 0; 8;X;  `; ; ; ;; @; *< H< :P< < < < @<" =  =@= H= h= x= == @= >  > :P> :> 6> (> ? @(?"0> h? 8>@> ? ?  2?? ??? @ @@@  @ (@0@8@ @@ H@P@X@ `@ h@p@x@ @ @@@ @ @@@  @ @  @ A  *A@A  4HA TAA A A"NB"N0B AA  (XB TBB B B B C CC  (C$\@C$\hC C @C C C :C :HD 6D 8D D @D "  E &(E PE`E @hE (E E >E F  F @@F" F NF FF @F &8G `G <xG hG G @G" H H0H @8H &xH H >H H H @I" PI NXI II @I $J (J <8J xJ J @J" J N(K JJ @xK "K K :K : L >L 2L K 6 M @XM @M BKK `L  (hLM (LF<8N xL  (MD3N N  (NfN  N  (N>3XO (N  (ND3HP OO  (O (O D*PO $POO  (PWQ 8* Q8P XQPP  (pQWQ 8*QQ QQR R R @pR $R R >R <8S (xS 8R S @S"3K_[@R(T  THR  S  S(S  &PT 0T xT T T T @TT 8V8@X0E*********************************************************************8 BEACH Activity XML Generatorath 8 This database can be used to generate XML documents forje6 submission to the US EPA based on the requirements of4 the BEACH act. This database, once populated, willp`2 generate XML for the organization, person, beach,7 activity, and procedure requirements of the BEACH act.8 This database will not generate XML documents for beach` monitoring data.: If you have any questions about this code, please contactC Michael Klos (CGI-AMS) at 703-652-0425 or michael.klos@cgi-ams.comChange History:fi6 Programmer | Date | Changes savB ------------------|-------------------|--------------------------: Jason Payne | 12/01/2003 | Original AuthorB ------------------|-------------------|--------------------------; Michael Klos | 08/11/2004 | Added Custom XML z%; | | Generation form B ------------------|-------------------|--------------------------> Michael Klos | 01/04/2005 | Added Date Boxes to? | | the Custom XML form2 | | (v1.2)h2 | | (v1.2)`(]@ B ------------------|-------------------|--------------------------]@ ]@ ]@@ ]@h A Michael Klos | 12/16/2005 | Revamped to conform toP  Name: SetFileName@  9T Input/Output: None( q 9D( @ | | updated Notification c| 9FX 9 | | Schema (v1.2)B ------------------|-------------------|--------------------------B Michael Klos | 12/20/2005 | Added "Activities Only"; | | checkbox to thehe Bea; | | Custom XML form9B ------------------|-------------------|--------------------------= Michael Klos | 01/04/2006 | Revamped to handlebox A | | additional changes to? | | Notification SchemaB ------------------|-------------------|--------------------------= Michael Klos | 02/02/2006 | Revamped to handleActiA | | additional changes to? | | Notification Schemao B ------------------|-------------------|--------------------------A Andrew Hampton | 10/11/2007 | Changes related to the? | | Notification Schema8 | | v2.0 upgrade 9Hhe phdk Create API structure `($\9RPxB ------------------|-------------------|--------------------------A Erik Richards | 08/25/2008 | Changes related to the2Declare variables required for XML file generationx? | | Notification Schema8 4K_[ | | v2.1 upgrade9*********************************************************Hk@ l r p t9^Save Beach Notification XML As9\ t`oxP .z(75A@hB ------------------|-------------------|-------------------------- H0E*********************************************************************$ 6 Description: Allows user to select path and filenameboxe3 while initializing objects necessary% for XML file creation.rs a:**********************************************************XML Documents (*.xml)$ *.xml$ 9J******Prompt user for file name $<pDetermine file save namele !R$ $' $ $ .XMLe obje .xml'9********************************************************* Name: CreateBaseXML Cre6 Description: Allows user to select path and filenamech N. while initializing the objects.ox3Input/Output: blnName - Value of "Beach Name Data"! checkbox3 blnAtt - Value of "Beach Attributes" checkboxdu1 blnAct - Value of "Beach Activity" checkbox R3 blnRole - Value of "Beach Role Data"g Acti! checkbox4 blnOrg - Value of "Organization Data" checkbox 2 blnProc - Value of "Procedure Data"! checkbox4 dtActBegin - Beginning Activity Date,88 derived from "Activity Start* Date" calendar7 dtActEnd - Ending Activity Date, derived**2 from "Activity End Date"" calendar:**********************************************************$  $(is%Create the document and some commentsxml version="1.0" z% zB@roBeach Data Submission created $ z% zB@is n " z% .~ to (Now add the beach information and schemaxsi:schemaLocation z%.**  (d****  ~!B@ butxmlns z%.****** " (d****  ~!B@***** xmlns:xsi z%.fu (dto t  ~!B@WAdd the individual sections of the schema to the XML document, based on user selections z ~ B@k ((****       e:  z ~     @ B B@: k 2 (( Non  z ~ B@******kK ((**** n  z ~ h !( j !( l !( ~ B@x alk_ ((HFinally save the XML document ~ z/md  zB@d ((****o(9********************************************************* Name: chkAct_Click*****1 Description: Provides commands for enabling and7 disabling form elements related to beachro activitiesInput/Output: Nonedes co:********************************************************** /If the Beach Activity box has been unchecked...** !((...zero out the dates on both calandars, 9@ 99q B9@8 @ 8 0 @( ( 0 99q0...and both calen5K_[dar textboxes, z 9(9q 9(9q,Check to see if all beach data is unselectedke surA@kCIf the Beach Activity checkbox is checked, re-enable cals, txtboxescan be !( 9 9q0 B9 9q z(4 (xkPoH`A@o09********************************************************* Name: chkBeach_Click1 Description: Provides commands for enabling and7 disabling form elements related to beachda datathe AcInput/Output: Noneake :**********************************************************(If the Beach Data checkbox is checked... H...enable the child checkboxesl (w ( old d (ise) ( Month (d, setk( reta'''"*If the Beach Data Checkbox is unchecked..."...uncheck the child checkboxes...'Q...then run the chkAct_Click sub to correctly set the Activity-related details...A@ ((0#,...and finally disable the child checkboxes. ( (( (koA@o A@o9********************************************************* Name: cmdBrowse_ClickV`A@"5 Description: Provides functionality to the "Browse"*** button.h arInput/Output: Nonech inc 'oH(:**********************************************************!Kicks off the "Save As..." dialog5Sets the File textbox with the selected filename/pathrson9*********************************************************'( Name: cmdGo_Click2 Description: Provides functionality to the "Go!" button.ch N (|d|)Input/Output: Nones to sd BX X nder)|d|):**********************************************************:Checks to see that a valid filename/path has been selected(If not, warns the user and exits the sub>Please select file save location using the 'Browse...' button.  !A@4 alsDMake sure that (if activity box is checked) dates have been selected****** B!( !(  d|'d f  ~ $me*fPlease make sure that both a beginning and ending date have been selected for the Activity Date Range.  !A@4ssio .Check to see that the selected dates are valid89If dates are in incorrect order, inform user and exit sub>End Date occurs before Begin Date. Please correct to proceed.  !A@4reme>Check check box values to make sure that something is selectedocum8Please select at least one data type to include in file.  !A@4coACheck to see that, if Beach Data only is selected, that some type of beach data is also selected**FPlease select at least one data type of Beach data to include in file.  !A@4***RCheck to see that, if any data submissions have been completed by the organization they have also included a yearCPlease select any data completions that apply and include the year.  !A@4ate|`dX@If filename/path and dates are valid, and something is selected,**<(take the focus off of the Go! button so it can be disabled)****** B@****** disable the Go! button...**** R(******'...and execute the final file creation.tp* !( !( !( !( !( F!( !( f !(6K_[ !( B!(A@ 4After creation of XML, inform user what has happenedto zer    (Notification XML Generated Successfully! P P File Name:  V  P P Included:  V b ` !A@4kkkkkk>After completion of file creation, re-enable the Go! button...**** R9q...reset the progress bar...he val 9(q@...clear the file path...''...and set the focus to the Go! button.** RC@qo9********************************************************* Name: cmdReset_Click che4 Description: Provides functionality to the "Reset"ded inA@x! button.oX33Input/Output: Nones bar.:********************************************************** Reset form@39*********************************************************) Name: txtStartDate_AfterUpdate()5 Description: Migrates change in textbox to calendaralenInput/Output: None: Non:**********************************************************Declare local variablesri]( z!($ z!(Nothingd #Test string to see if date is valids vali z!($|| Grab value from text boxte z!(X'x Set xCalBegin to same date 0Note that the value is set twice due to a glitcha  in the calendar control c xd$ X  x 9( x9(C@ q d   x 9( x9(C@ q k %Change text box to appropriate format for xm/d/yyyy$ X z((d@ %Invalid date entered, display messagemess6Invalid start date entered; please check and re-enter.  !A@4A@kko9*********************************************************( Name: txtStopDate_AfterUpdate()Up5 Description: Migrates change in textbox to calendaralenInput/Output: None: Non:**********************************************************@Declare local variablesri]EIf textbox is null, grab calendar date (should only be called OnLoad)OnLo !($ !(Nothingd#Test string to see if date is valids vali !($|| Grab value from text boxte !(X' Set xCalEnd to same dateam 0Note that the value is set twice due to a glitcha  in the calendar control c d$ X B  9( 9(C@ qd B  9( 9(C@ qPkH %Change text box to appropriate format for m/d/yyyy$ X ((d %Invalid date entered, display messagemess5Invalid stop date entered; please check and re-enter.  !A@4A@khk`oX9*********************************************************& Name: xCalBegin_AfterUpdate()3 Description: Causes date change to be migrated to****** text boxInput/Output: None():**********************************************************Declare local variables]Get date from xCalBegin !('x****Put date in text box****** xm/d/yyyy$ X z((op9*********************************************************$ Name: xCalEnd_AfterUpdate()d/yyyy3 Description: Causes date change to be migrated to****** text box Input/Output: None:**********************************************************Declare local variables]0Get date from xCalBegin B!('***7K_[*Put date in text box****** m/d/yyyy$ X ((o9********************************************************* Name: Form_LoadH''X'3 Description: Provides commands for the Custom XML3 Generation form onLoad. This sub is------0 also used for resetting the form.naInput/Output: None------:**********************************************************Blank any textboxes | z((m XM ((@+Set all check boxes to "Enabled" and "True"on for 99(q 99(q 99(qh 99(qH 99(q( F99(q 99(qEnable Go! Button R(------Reset Progress Bar ((H$Check that all calendars are enabled******A@l.Set initial Calendar Date (Jan 1st, this year)**** 9C@C@ qP>M Note that value must be set twice to override "NewMonth" and "NewYear" substwic1/2/ Zyyyy$ X9(t twic1/1/ Zyyyy$ X9(ear" s!Set initial Calendar Date (today) B9BM Note that value must be set twice to override "NewMonth" and "NewYear" subsC@C@tC@tC@ qoD Insert datesos !(m/d/yyyy$ X z(( con B!(m/d/yyyy$ X (( 9********************************************************* Name: Form_Openfi3 Description: Provides commands for the Custom XML------D3 Generation form onLoad. This sub ist/Outp0 also used for resetting the form.Input/Output: Nonees,:********************************************************** Make sure window isn't maximized *B@ o9*********************************************************! Name: xCalBegin_NewMonth7 Description: Causes dates to zero out on month updatetiInput/Output: None check:**********************************************************HWhen month is updated, set date to null (will retain old date otherwise)-- (@------oC9********************************************************* Name: xCalBegin_NewYear@H6 Description: Causes dates to zero out on year updateals,Input/Output: Nonek to s:**********************************************************  (@-Beao9********************************************************* Name: xCalEnd_NewMonth 7 Description: Causes dates to zero out on month updateerInput/Output: None&:********************************************************** HWhen Month is updated, set date to null (will retain old date otherwise)** B(@******op9********************************************************* Name: xCalEnd_NewYearutespG6 Description: Causes dates to zero out on year updatehat,Input/Output: Nonehat so:**********************************************************  B(@data to  ](JGWhen Year is updated, set date to null (will retain old date otherwise)9********************************************************* Name: IncludedData 4 Description: Compiles string (formatted for MsgBox | 4 display) based upon the values of the------'d ----kKN xN7 checkboxes. Lists specifically what wasan+ included in file g8K_[eneration. | 0Input/Output: strIncluded - listing of what was 9 included in XML generation:********************************************************** -Beach Data'd---- ----HMk tionkkP d:  P V V V-Beach Name Data'd  z O  d P V V V-Beach Attribute Data'd  d P V V V-Beach Activity Data (  to  B)'d   d P V V V-Beach Role Data'd--k k F----d0O " kk`QHQQQQ-Organizational/Person Data'd dR  d P V V V-Beach Coordinate Data'dssfu  d P V V-Organizational/Person Data'ded:  kkQ  F  d P V V-Procedure Data'd-Procedure Data'd f   Fta sub  d P V V-Completion Data'dd@-Completion Data'dk k d'biPS  SSS9********************************************************* Name: BeachDataCheckX8 Description: Checks to see if all the checkboxes under(C@9(qS6 chkBeach are unchecked. If so, chkBeachated! is also unchecked.Input/Output: nonetion S:********************************************************** ( ) ThSet chkBeach to falsear. (A@4kR Grey out appropriate check boxesP (V (each C (DataoT ( (' xUUU&2  !  !  !  !  !FaV         V  F  f VzAttribute VB_Name = "Form_Custom XML Generation"D Basb0{5453339B-7E2F-49D8-A4AD-44808B5@188C6} |G lobalvSpacIFalse dCreatab"lTru Pr@edeclaId"Expose_TemplateDeriv3izD$'*A ' BEACH ActivityorThis dcan be ulto gedocuments f subPmiss the US EPA bd on requirreCof&act. ,!mpopuPd, will J# organ@PA, person,0ach, @?, and procedure~ %$AKF! 8notDCmonitoring V.If you have@#@y ques-s about bcode2lecont@0Michael Klos (CGI-AMS) at 703-652-0425 or m C .k@ @cgi-ams.com@Change Hiry: Progr`ammer|ك D@ Rs -|-Gq Ja6 `Paynec $ 12/01/2003aOriginal AuthP ?j"+a$P08/1"4$Addy'joha2_(](1/04A(5:Boxesww -'\B @A16Revamp`1рconm_3 up``Notificaq!BSchema (v1.2)aq 209 "i:Only'"bckbox@(῿Ap-ABb_-SPAS-6! Ndl/  G2addiE R1? QY$ s!R _$-k0U2Q$ojn  8?;a!?HAn@drew HFtTH0da7$qpRo4a 4 t2v2.0 up|d0 __XRErik Rardsq25Q$8@1_D14r2__GP1_X GP? O paF licitCompNaq 'D Pvarisūdswfi  PobjD As MS2.DOMU40>RootEl8IOMNCOF1 OPENFI@LENAMEKstrA"St# 1:A2SetDescri`Allowsar>select` pathRnOp6whAiializs necespsary_` Rc0DInput/Out` Nonq? Pub) Sub x( 9K_[d'2e APIb uctp With objFile  .lStructSize = Len()hwndOwnerB0&.Ins0tancr .lp(strtb"XML Documents (*.xml)" & Chr$(0) "dlMaxC{1024flagsOFN_EXPLORE R Or OVERWRITEP ROMPTHIDEREADONLY PATHMUSTEXIST;aming(a?0, 0tTitl"Save Beach Notifica tion As".EndŃ'Prompt usfor f! namIf` (Get/N ӀThen%Exit SDubEls 'DeemineCs-Coe@Replace%.Ewe,p, ""E A+Right$(UCase$(), 4) <> ".E") K. #&@ DR ASIf9@V A@ '*5 B:CreateB60ADescr ip{ Allowssto select pa@na@)w\'whA~initializ thes.Input/Outblnj- Valu f "D Data@L- checkbox! Att  ributeZ6  " cti0vity Ro`q ?!9!Org*!anizaB|7] zcJ edure7 dtActBegin` =nI",A e,o>*@deriveHd f "FS0tart\ "e" calendart- / d  h5 PuPblic J(A%rAs BoRan, _+Dm?f!`h?)r0/&@Coi// 2"0//'C s //0Pa"O6*HnS' [d _some comSet]dE@wNew MS02.DOM40# .ap*p@6Ccd.cjDss@6` ("t{vers=""1.0"|OO2DQ (˴ga1mi@ d ANow()RootE| <l~ ;nj6k=~ )_k AT9rchildA{0k%rttcRoleCoor-JbOd?H~1~MVpqywq|!# n run$ kf subdcorr`b -udetai|ls {!zf$7S^g &A&0 "&&  T/Tte cL?T{A hq,{WoFPMWmdBrowse1Ăf0ality$#6"'(8butt3TT oTk TKf*f0""A-" d@ogEuS'ps5 Nw fnA/pathtQxtFile = strName  End Sub '*5v : cmdGo_ClickDescription&Provides funcality to the "pGo!"4Obutton.Input/OutPNon7*Privatfe`()A'@ChecksSseeUat a v^d fn/path has been selected0If (Ā""@) Then'not, wa rn5user aexit sMsgBox "Plea se9H sav@e locaAY usingX'Browse...' V", vb@ExclamB , Me.Cal'E AElsȓ'MakurF(if awvwBb@(is cPed) dZsJ'PJAK((xCal.ValuAALOr BegDinI) AI_+(chkAct@[True) \KLPm1botat@nAPbndÁ1P1 forZ i?DRange.cZ%K[BJ\AC AE-a2"Uk#a,CA,) < ,2&"8 in incorr^ order, mNX jWa%0!B%occLurh e  q. \e proceed?+ +kZ&.Z [+u`GsomethE?`+ ea1aUBeachUFa`=#ZOrg cComp]E^c !:K_[t Ga typ`zoO?A %`Vm,7?V,)'(t~focus=@f!A0 sApOt canB disabl.SetF$ .EnR E/)' a`execuinalcreB0YCaeBhXMLPkO,pOctLJQO5@sr6aB vm'Aft_ A&`Hnwˡ8h8en5ÍE>NotifikGrc cessf Dy!" &NewL8inevb",dޣTab`s Incbd: 3UO, ??bI?BB*?1IfQ ip=5!fXQ!N e", re-e=_ACWi"@ @True End Withh('...reset the prog4s bar`d pbP6(.Value = 0& clear_fi"ldath\txtF= ""Eafoc us toFGo! button.-cmdGoSetF5  NSub  '*5 Name:8BR_ClickDescriptionvides func alitym"]')x')Input/Outc)Nonc*APrivateJ @E 1()P'A& formFA@_Load > ?U@bAL UStartD'_AfterUpd%AC XMigr@s change in textboxYcalendar?Rˎ Q.Au'Declare lo% variablesCWDim dte> As @CCIf ((IsNull(I)) Or  v""Then Nothinbg#ElsbTest strI(se+f 0 dis@li@ yIs Grab frozmB6 `6!=\ CU ' xCalBegaCxo s`xB !e avawice da g`xc$a"'"Ohe EN control A!'CInt(akat$(), "d6= 1) o(Bk a)+ 1QTRef !aAakLa s-j%tIfk y'CAZga:pp} atky`vCStrCm/d/yC# o+'In0,idS;enTed, display m`essag8?QMsgBS"sXQ ; p~s`.heck Q{re-.", vbEx@Nman, Me.CapqqhyV^SybopaC_d'ןddd /y /y dt yddSd 'pGErNnd, `tbK^(should only bMled OnQd!L:is ;)iyi''ii ii0A i< Tg)'oixtoiT#a:WijEi/ e/i /is /i/i/i/i`Oh ?h"[ [[݃ ht\Jvgaq ?R Df `\g . 4 Qg$bgo g[HR g ggrgggopgagmgg )qgZgfg gCaus0BWtPAWmd@7 ͑/Output: None '*6 Private Sub xCalBegin_AfterUpd2()  'Declare local variablesDim dteStartDqOAs 'Get R fr\omm ==.0ValuCPuCin text box txt? = CStr(Format$( 1, "m/Hd/y")qEdnd  Name - 'Description@Causeschange to be migrd,@In2A"$opˆt߅ +C؄lA_LoadAProvidcommands for th@e CustXML?GeneD Im on . ThisT s`{iu' also Ndb resetting m. @J?XJ!BBlank anyB| |ŌstrFile*{"" +oStlBe $dSall cpheck`2r"$End"d "TrueWithkBeach-. [  7a# e At:t Fg'YAc Rola Org_K`xc 'cH Go! @ButtonscmdGo&wR1= g=s Barpb50 S'CR/thatPB@0alendahrs e#0ch/_Click 3S'!4initiR (Jan 1st,FJyeareQv mOpI twicqoverrR "NewMonth9Y"QOĉƍ ]0 Q0. FocuQvC!l("1/2/" & KQd1Kq1 "R|ef0D6p AtodayOtOцOObM / Hr/.T! ?/PKS'Inserd _Z #] Bb>p ?_qw rOpe@O>߃|߃a 3߃߃߃߃P߃`\/I(Cancel Intege&EMake@window isn't max`imize D oCmd.Stor P /T֕K0a s9zero Boon mN u__ % VWhe\# d, Z Dnu`(wiPretaold΂orwiseJ9IsN= s/5 ; c# k? ޴ xCalBegin_NewYear() .ValueIsNull = True End Sub  '*5; Naxme:sZM0onth!$Description+Causes datto zero out on m5 upWith>,.t Focus ,Value = F IEM- 'Grey out appropriateveck boxebNamegAttcRol0 @CkwIf Sub network.net/schema/BEACHES/2 index.xsd "AddressPostalCode ^http://www.exchangenetwork.net/schema/BEACHES/2 Rhttp://www.w3.org/2001/XMLSchema-instance . WHERE SEND_TO_EPA = 'Y= SELECT TELEPHONE.TELEPHONE_0Kϟ:xME`@11L<6 h < : 8( >` >   @ 4 " @@  @ .P  > > @ ,H x > . > 80 @h"L*  0  @"\8)` &x(  =& F   D@ ( (p 4B <B 8B BBP <B=K_[ >Bp >B ( (( <B( >Bh , $ 0  $@ h   H x  D   D     J P  4(` p x       @ 6 P >X 4 4  > .P > 8 @ *8 @h < > 6( @` ", 0        B Rh ) & (H  , >0 >B4BP BB0@B  H@  <B 8B  :  /`(/ ( DB  &  &      >( 8 @P  X x   xp9*********************************************************( Name: AddCustomBeachInformation8 Description: Procedure that manages the queries to the8 database to add beach name, activity, and: role information to the XML document, based% on user input in formsH7Input/Output: objXMLDocument - the document to add the' data to7 objParentElement - the parent element to1 add the data to:**********************************************************)Variables used to create the XML document]x]]]:Query the beach table to return the beach name detail data   P ! B@\ ! !bCreate the beach detail elementAdd the beach identifierID %'  , z  NAME % ` B@ , z  COMMENT % ` B@ , z  STATE_POSTAL_CODE % ` B@ , z   FIPS_COUNTY % ` B@E_PO "Create the BeachNameDetail element   Add the individual data pieces  B@ Add the individual data pieces  B@C_ z   B@ti z   @ B B@<an z   B@ z   B@  z   B@<k z   B@kX.Finally add the beach data to the root elementON_I  B@.. B@rBodyTClean up our resourcesATER B@Bring =.o9*********************************************************0 Name: AddCustomBeachActivityInformationTT8 Description: Procedure that manages the queries to theCT- database to add beach activity_TAG. information to the XML documentlect7Input/Output: objXMLDocument - the document to add thect' data toEC7 objParentElement - the parent element toG_1 add the data to: strBeachID - the beach ID to query activity$ data forGlobal9 dtActBegin - beginning date for activities5 >K_[ to be included in XML DocmeDe7 dtActEnd - ending date for activities tonN0 be included in XML Doc A:********************************************************** ((((Name" )Variables used to create the XML document]x]]]]];Query the beach activity table to return the beach activity XML_T  4  6  L @ N B z ! B@AG_ORG ! !bCreate the beach detail elementlo%Add the standard activity informationcAdd ACTIVITY_ID %'TA ( z  xNAME % ` B@A@ ( z  |ACTUAL_STOP_DATE % * B@ ( z   DESCRIPTION % ` B@8 ( z  COMMENT % ` B@AAdd activity reason and station data if it exists in the database ( z  EXTENT_START_MEASURE % ` B@  ' z    ` B@ ( z    ` B@A@3Determine if extent data should be added to the XML EXTENT_LENGTH %'EXTENT_UNIT_OF_MEASURE %' $ $SQL_  B@CH.k7Finally add the beach activity data to the root elementCo  B@OR. B@ring =`Clean up our resourcesIGN. B@BD = '".o BBased on the value of blnAtt, add the BeachAttributeDetail Element  k ( z  v ACTIVITY_CODE % ` B@FE ( z  zACTUAL_START_DATE % * B@N_ID F  ( z    ` B@ , z   DESCRIPTION % ` B@@9********************************************************* BEACH Activity XML Generator8 This database can be used to generate XML documents for6 submission to the US EPA based on the requirements of4 the BEACH act. This database, once populated, will2 generate XML for the organization, person, beach,7 activity, and procedure requirements of the BEACH act.8 This database will not generate XML documents for beach monitoring data.9 If you have any questions about this code please contact:**********************************************************. Michael Klos (CGI Federal) at 703-652-0425 or k @To this point, the BeachDetail element has been created, and the_B BeachIdentifier added. >Based on the value of blnName, add the BeachNameDetail Element As =Based on the value of blnAct, add the BeachNameDetail Elementment>Based on the value of blnRole, add the BeachNameDetail Element), x] , z   ACCESS_TYPE % ` B@ 4 z  ACCESS_COMMENT % ` B@(8 michael.klos@cgifederal.com( r " z% .  " z% ."  " z% .  " z% .   " z% . ((((!(&(+(0( k`DBased on the value of blnCoor, add the BeachCoordinateDetail ElementP z   B@ p , z  WATERBODY_NAME % ` B@ , z  WATERBODY_TYPE % ` B@Attribute VB_Name = "modCustomXML" '*5v BEACH Activity  Generator>"This database can be used t(o g,e9documents f= submi ssion+the US EPA2 Jd re quire9ofs*act. A,ce populated, willFA #organizatC, p@erson,aa8ch,0~, and procedure K%IB not:monihing.  If you haveFy ques-s?K_[ abouFt bcod@?lbecont0Michael Klos (CGI Fed@rl) at 703-652-0425 %Cgm .k @cgif .comu** Op- ExplicitCompaWDē {$: AdBewInmB~@4 Descri'% P{thHmanages@YeA^rio#addCv nBrole i&߅]wd`f`orpAinAmms@In`/OutQobj@ Dr -  d k_ /` P9n8tElx aF5'C t dSSetW =I.s$N(NODE_ELEMENT,a_TAG,ES_SCHEMASPACE Ti'CFields`("ID"pShcd` .Apd a.To mBCH_\ID: o , xdtText+5T1poixnt,rc(Uohas` (pwE' I1@pledBղvalue of _@P>=Х(T) en7(R .)l)).))9();)1_$_$u_$W$ $C$a?;/!")?% ? 1'@p2\ DESC f  !RIPTION? ? ? ? ? ef; COMM2Lok T/ / / / / / HSTATEo Fields("STATE_POpL_CODE"), xdtTe xt modSharedXML.Appen@dBeachDataToDocument ob6j(,XNameDetail, #_TAG_BCHyUNTYx, _ s  iRS.FIPSIsWR_NAMEd$BODY&yfTYP?3TER33zKSeؔAccessC =L.createNode(N_ELEMENTACC, BEACHES_S @MAB^SPAC|E)K,"_?]"@4ESSBl**z;COM-{? | ?ITJ9'Add the individual d pi>eKL.aChildD%S ?(ug 'End IfA1'BasenB!value of blnAtt, ad$ttribut$ Ele If (#) Then' hdȠ c InformationNa , str"IdifierwG pcm)ctCustomF.`L(ct Mtyu, dtActBegiNnd? =Role/'Q? OOrganiz"_;F_t%%Pe0rsonoMLh% %1ÿ4Coor!dinjk44 W F llyM6BbQ#TtoDr`oot e]BMPnt4/M')= Nothinghn` MoveNfLo opS'Clean up our res`a`CloseT RS Sub '*@** ' :u ?Fvi:F QDescripVProcedureat ma nagesbqueriRuQrb`c `ba;Mi]!Q d Input/Out` 0E+ - { B}to0(Tp)u+OV076kDtcID !4/ #6r wa0banp1e  4`bcludinQ 2-- it$/0 PrivV P7O2x(ByRef |'As MS( 2.DOM(40o&I.t o :"? ? ? ? ? ? 1 ,S/ 4 + 0*[.arCdtH "</Q =q6hiUˑqIf'Fi`nallyaC_yEDro>` PPntT/ L; / ~MoveNLoopS'Clean up our res`cesp Clo%{0D SubizationMa@K_[hBKϖ&PB<caGetSaveFileNameAE >GetSaveFileNameAML_GetSaveFileNameAxRX!RR@!RR8RLLMEP d1! LH^@@&1L<<<< <$<(<,<0<4<8<<<@ <<<<<<<<<<<<<<<<<<<<<<<<<<<<|0 (x7H" P7H xHP8H00Hij`( Cj`1C"@8H$hh:H&9H(;H*H ,('H .0;H ,`.H `p%``dH `Xk--){ H%) %i@i `)(H` %`lEACH p% t% xL%  `8(k@ <<<){ `h%)H% p% t%  `,J ..){ 08H%)X`%i p% t%  `,J --){ (H%)HP%i x% `0J ""t){ %) H%iH tXH% xx% `$JVV){ %)H%iH`H H`X H%%j`CjbHC`h l` `ph t H% `Jh FF){ %) %iH` TH X H% \P jb C%  x dp % h H% AK_[ l H%%%jdC p t ){ j`0Cjj C ( `J S%) 0 %%jlCi`h`l p  t %  `8k ;;){  H%)@ H %i j`yC) ad%j`,C`h`l p(% tH%  `8k==){ H%)%i ) ad%`hH`lH ppH% t% P`@8kBB%%b`Cbb8Cbd`CbfCbjCblC){ )i8H)Xad%`h l% pH% t% `k??Z){ 8@%)`h%i`lH p% t% xL% `(k@<<){ `h %)%)http://www.w3.org/2001/XMLSchema-instanceʘt5B';ʘp5B;hjHHA%REASONjd>Chh DDhfp@@hd<<Xhb::Hh`88h^44h\00hZ,,hX((HhV0$$hhTH hR`8hPxhNBhLhJ hHhFhDPERS@ +<p-- )>8' AND FK_BEACH_ID = 'j`H6CSOURCE WHERE FK_BEACH_ID = ' X5`H WHERE SEND_TO_EPA = 'Y85pH%44HH%04H%,4xH%(h4H%"@4H%4GH%3GH%3DH%30:HP x3P~H%P3xH%(3H}%3HH{%2|Hy%2sBK_[Hw2sHu`2|Hs@1|Hq0pHn AND CLASS = 'j`HCjbpCjdCjfC' AND FK_BEACH_ID = ''ꐘX0nHk08wHg`0uHe/nHc/lHa/0uH_HjjDCꐾh/.H]xꐺ@/lH[8ꐶ/XeHYT .HW WHERE FK_ORGANIZATION_ID = ' INDICATOR BeachDetailF QHNꐮhxdHK .@PHI ActivityNameꐦ60[HEꐢ-NHC(ꐞ-LHAXꐚp-JH?ꐖH-8GH=ꐒX,EH;ꐎ,<H9 ꐊ+GH7H ꐆ+hDH5x ꐂ+h1H3 ~(x>H1 z`(<H/!v8(P*H-8!r'H+!h8d^@! j`&C!ʐZ%H'!z%)H%("P%H#X"Lp%CH!"H@CH"D %BH"@$:H#<$HH#8$=Hx#L$9H#4X$@H$ꐸ0$(=Hj`>C.2#Hꐺ#H6P#HN #=H:"0H>"XAHB"AHF`"8HJ0"XEH N"<H"R!H$ʐX!@H&ʐ\&H(jb8&CjdCjj&CjlCn&)H)p!*H*t (*H, WHERE FK_PERSON_ID = 'ID = 'b`p'Cbb'Cbd'CbfCbj(CblCx H.| x*H0ꐀP BH2Hb`(Cbb)Cbd0)CbfCbj)CblC'', 'mm/dd/yyyy'));= 'CK_[BeachDataSubmissionOrganizationDetailnBeachProcedureDetailActivityTypeCodetailActivityActualStopDatej`*Cjb*Cjd+CjfCjjh+CjlCꐄ 7H4ꐈDH6ꐌ7H8ꐐEH:j`zCꐔ`EH<jb,Cjd,CjfCjj -CjlCꐘ0GH>ꐜTH@ꐠNHBꐤOHDj`(7Cꐬ@XdHJP XP[HQ' AND FK_ORGANIZATION_ID = ' StateCodetB.%j`eCꐴ@eHXꐸPiHZꐼ jH\BH^PuH`hlHb8puHduHfꐠyHjꐚ0`zHlppHmqHo WHERE FK_ACTIVITY_ID = = ''jb1CjdCrHrActivityCommentTextatejb1Cjd1CjfCjj 2CjlC`xUTE.X|Ht(sHvtHx(HzpH|hȀH~8 yH  :HHHFHxH H@H&H*XH.H2H6XH:@:H (H 5Hʘl5CʘnBʘrBʘvB 05(IHjbp6CjdCjj6CjlCꐨЍ\HFActivityExtentDetailjbP7CjdC9http://www.exchangenetwork.net/schema/BEACHES/2 index.xsdCHES//http://www.exchangenetwork.net/schema/BEACHES/2schema/ActivityReasonDetailCHj`08CjbX8CjdxCSELECT ORGANIZATION.ID, ORGANIZATION.ORGANIZATION_CODE, ORGANIZATION.NAME, ORGANIZATION.DESCRIPTION, ORGANIZATION.ABBREVIATION FROM ORGANIZATIONROM ORSELECT ELECTRONIC_ADDRESS.ELECTRONIC_ADDRESS_CODE, ELECTRONIC_ADDRESS.ADDRDK_[ESS, ELECTRONIC_ADDRESS.EFFECTIVE_DATE, ELECTRONIC_ADDRESS.STATUS FROM ELECTRONIC_ADDRESSECT9' AND BEACH_ACTIVITY.ACTUAL_START_DATE >= CDATE(FORMAT$(' CDAT WHERE FK_ACTIVITY_ID = K_ACTI FirstName CDATLastNameeꐾ 6HSELECT MAILING_ADDRESS.MAILING_ADDRESS_CODE, MAILING_ADDRESS.LINE_1, MAILING_ADDRESS.LINE_2, MAILING_ADDRESS.LINE_3, MAILING_ADDRESS.CITY, MAILING_ADDRESS.STATE_POSTAL_CODE, MAILING_ADDRESS.ZIP_CODE, MAILING_ADDRESS.EFFECTIVE_DATE, MAILING_ADDRESS.STATUS FROM MAILING_ADDRESSNT,vSELECT TELEPHONE.TELEPHONE_CODE, TELEPHONE.TELEPHONE_NUMBER, TELEPHONE.EFFECTIVE_DATE, TELEPHONE.STATUS FROM TELEPHONESELECT PERSON.ID, PERSON.ACTIVE, PERSON.FIRST_NAME, PERSON.LAST_NAME, PERSON.MIDDLE_INITIAL, PERSON.SUFFIX, PERSON.TITLE FROM PERSON WHERE FK_PROCEDURE_ID = 'ActivityActualStartDate= 'ActivityReasonTypeiltejj=CjlC|SELECT BEACH_POLLUTION.FK_BEACH_ID, BEACH_POLLUTION.POLLUTION_SOURCE, BEACH_POLLUTION.POLLUTION_COMMENT FROM BEACH_POLLUTION_AI', 'mm/dd/yyyy')) AND BEACH_ACTIVITY.ACTUAL_START_DATE <= CDATE(FORMAT$('AILIN|SELECT BEACH_ACTIVITY_REASON.CLASS, BEACH_ACTIVITY_REASON.TYPE, BEACH_ACTIVITY_REASON.DESCRIPTION FROM BEACH_ACTIVITY_REASONAT#ActivityMonitoringStationIdentifierjfCjb>CjdCjj@?CjlCj`?Cjb?Cjd?Cj* CISELECT BEACH_ACTIVITY.ACTIVITY_CODE, BEACH_ACTIVITY.NAME, BEACH_ACTIVITY.ACTUAL_START_DATE, BEACH_ACTIVITY.ACTUAL_STOP_DATE, BEACH_ACTIVITY.DESCRIPTION, BEACH_ACTIVITY.COMMENT, BEACH_ACTIVITY.EXTENT_START_MEASURE, BEACH_ACTIVITY.EXTENT_LENGTH, BEACH_ACTIVITY.EXTENT_UNIT_OF_MEASURE, BEACH_ACTIVITY.ACTIVITY_ID FROM BEACH_ACTIVITYACTIVDSELECT BEACH_ACTIVITY_STATION.STATION_ID FROM BEACH_ACTIVITY_STATION_SSELECT BEACH_ORGANIZATION_ROLE_ASSIGN.ORG_ROLE_CODE, BEACH_ORGANIZATION_ROLE_ASSIGN.FK_ORGANIZATION_ID, BEACH_ORGANIZATION_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_ORGANIZATION_ROLE_ASSIGN.STATUS FROM BEACH_ORGANIZATION_ROLE_ASSIGNE_ASSI5 WHERE BEACH_ORGANIZATION_ROLE_ASSIGN.FK_BEACH_ID = 'HActivityDescriptionTexttartDatAddressPostalCodestalC Dj`(CCjbPCCjdCjjmC/ WHERE BEACH_PERSON_ROLE_ASSIGN.FK_BEACH_ID = 'ITY_REAESELECT BEACH_PROCEDURE_ASSIGN.FK_BEACH_ID FROM BEACH_PROCEDURE_ASSIGNLF`xj`DCActivityExtentStartMeasuredentActivityExtentLengthMeasureMeaNameSuffixTextjlCjbECjd0ECjfCUSELECT PROCEDURE.ID, PROCEDURE.PROCEDURE_CODE, PROCEDURE.DESCRIPTION FROM [PROCEDURE]EActivityReasonDescriptionTextActivitySourceDetailteActivitySourceTypeilonIj`pFC`X&xescrNamePrefixText`0Fh xjbFCjdFCjfCjjGCB_var_txt_data_yearx txtDataYear _B_var_txtDataYear1Project-blnNot^blnNomblnNbl\Valu ValVa_VmchkComFchkCochkClblNotlblMonlblLoc4blnMon>blnLoctxtYearobjXMLYearCompletionIndicators\IsEmpty AddBeachCoordinateInformationSQL_BEACH_COORDINATEZSQL_BEACH_COORDINATE_WHEREXML_TAG_BCH_COORDINATED{XML_TAG_BCHCOOR_TYPEX XML_TAG_BCHCOOR_START_LATBPXML_TEK_[AG_BCHCO      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~OR_START_LONGFXML_TAG_BCHCOOR_END_LATXML_TAG_BCHCOOR_END_LONGf< XML_TAG_BCHCOOR_SOURCE_MAP_SCALE%[(XML_TAG_BCHCOOR_H_COLLECTION_METHOD_NAME&XML_TAG_BCHCOOR_H_REFERENCE_DATUM_NAMEŲXML_TAG_BCHCOOR_DESCRIPTIONXML_TAG_BCHCOOR_LATXML_TAG_BCHCOOR_LONG˼objXMLBeachCoordinateData`XML_TAG_BCHCOOR_START_POINTYXML_TAG_BCHCOOR_END_POINTkobjXMLBeachCoordinateStartPointobjXMLBeachCoordinateEndPointaUCheck50̨Label51chkCoorf- _B_var_chkCoor0chkRolchkRoblnCoor#AddCustomBeachCoordinateInformation?& _B_var_objXMLBeachCoordinateStartPointq ComctlLibn ActiveXCtl52   024 6 $H;L**LLL*LLL<<<<<<<<<<<|N0{5453339B-7E2F-49D8-A4AD-44808B5188C6} A(%*H %@x TT(%z$%@Xl @ %@h x8%%8% `%k( 66I  `3k, ?? Pi i   @i @i ` i  i @ i$ in ( i@, iB0 `` k0 55 `p(|k4   l`Hk8 %%  `'|k< % ``()|k@  ) `$lkD 5 `*kH TTH  `FK_[ L %P(X v@ ` P ..`x ~ ` T 00`  ` X `x  H ` \ `0 x`k` YY. ,`8 xkd  i\  B ` h  `dtX@((X@(( H ` l   F ` p   D ` t %H i `%( ,b `5+X x BB ` lk|  04P  X 0hpH 0h@"{ 4H@"~ 8h@"@ <@"h @@b@ ``@@@   H   h P0d` ` `%0  ( \@ `RlXx `@ xFRlZ%0  ( T(`( 8P8`H" XLP` %%(0  ( 0  ( 0  ( p8' pHX` X7(@8  B %0  ( %Hp@@( @@$ @  @  `pAGK_[@  @x @h 8p((@X @H Bz@x @h  0  ( 0  ( @ X @H 0Dh`H`  PX`0  ( H@4 %@0  ( 0  ( 0  ( X08`x0 ,p`h%X (`%h 0  ( (  X ( p x $` `hh% $ `%x )`!x!!!*H!* @!x @!h @!X @"H @ "D @"B @P"0 @8" @" @h" @" @" @" @# @# @0# @# @x# @H# @# @`# x @#p @#l @h$j @$X @#H @P$D @ $4 @$$ @8$ HK_[@$ @$ @@* @) @$ @(* @) %%@l &('''h&'&lrpt\<X'x&`0A %x'h&@&t @&p @&l @&h @d @T @@'D @4 p'  %X'@ " ~P&xX(4B))) X(@X* @* @p* @ @ @ @p Pl*`%*Xp+0,++`1 2@3p3`34B@P2x @+h @+X @+H @,8 @,( @/ @`, @H, @x, x@, @/ @, (@, @/ @@#$#X#x$@@#$#X#x$@@#$#X#x$@"#P""#X*X+Ff  ~ @/ @/ @(0 @/ @0x @p0t @@0d @0T @@X0D @04 @10 @0 @@ @0 @ h/RPVb`@1 @01 @H1 @ @x1 @1 @1 @1 @1 @1 @@2 @ @82 @ @@h2 @2 @2 @2 (@2 @2 @2 @3 @(3 @ 3X3`%3@380\ 33`|%33=3`IK_[%3E` 054455z n" ~ @4x 8@4t @x5p @5` @P @`5@ @< 4 h j l ~ @5, @( @ H55(x6(7666x6`86hb `b`6x6x6`6@PVB@7p @7` @08P @@7@ @@7< @`78 p'@x74 @70 0@, @7 6@8 7@ @8 @H8 @ @ 6 Ff  @(3H1002823 @`77@@x @h H7@X ::<:@ exte@xai:@PVB@p @` @P <@  <p< @8 @4 @0 @, @ @ @ @ @ @ @ in;`xP=@ @in= @x @h @X @>(H (>D @B >0 p>@ @> @ @ >@ @@ ? @ ? H?@ @x? @ @ ?@ @@p ?l @j  @XX (8@@H h@D @4 tionTy/x$ @@ @ h&@ @ @( @ x?P7`   8B>A@ h  ( d) XCJ *\R4*#6a$*\Rffff*024a55fc4c(*\Rffff*024a55fc4c\2*\R4*#9*\R4*#8$*\Rffff*034a55fc52$*\Rffff*064a55ff2c*\R4*#5*\R4*#3*\R0*#12*\R4*#1*\R4*#6JK_[*\R4*#12*\R1*#4a*\R0*#e*\R0*#13*\R0*#14*\R1*#c1*\R0*#1*\R0*#f*\R1*#5d*\R1*#1*\R0*#f*\R0*#12*\R1*#78*\R1*#48*\R1*#50*\R1*#52*\R1*#5b*\R1*#25*\R1*#98*\R1*#99pxvI LP $  > < :H 8 > > @  @X J    < HH @ H B B` H D F8 HH H F @( Hh H B B@ H D H F` 8 H D H8 F 8 H H FX > H H F` > H L`  88  @   < : ,0  h @`"@     P   B@ X P*P & x   8   E@"4`  0   @ "  < 4H  : ( : &( 8P & : ( : &X 8 ( : >  0` > 8 ( @0 "T.p , .6>R6@  .`&  0  0 ( H0X  ^p @   (R'6(X      .     $0X h x  @ "  8 >8 x   @ " 6)@  .P           (  &0X h  px      2   J(8H  P X` h  p x      " @ $ @ 8H >    @!"P! .X! (!  $! ! ! ! ! T "  08" )KK_[" (h" " " (" " T  X""  2# " P# `# p# T # # "### "### @# $$ ($ <P$ $ 0$ $ @$"8$ (8%@$  <`%$ $ @% % $ 8& H& $ & @' "h& @P'p& .'T9'&& J(<h( |9( && 4h) F& @)T9)& &  D8*2UN9*'( H* &+ ZU\9@+(( X+ &+O(Z9 ,,, F, B,  - $0- X-  .h-^O- :- 8.... ../  D/P/ X/`/  "h////  //  ./0 00 0 @ 0 $`0 0 :0 0 0 (1 @H1 " 0 10 1 @1 01 1 <2 X2 `2 @2" 2 22 &2 3(3 *03`3 x3 3 3 63 4   4@4H4X4`4h4 p4x44444 4 ,4 45 ,5 L85555 @5 .5 6 <6 X6 `6 @6" 6 66  L6&@7 h7x7 *77  7 7 7 68 P8 p888888 888888 8 ,9 09P9 ,X9 L9999 @9 ,0: `: :h: : : : @:" 0; 8;X;  `; ; ; ;; @; *< H< :P< < < < @<" =  =@= H= h= x= == @= >  > :P> :> 6> (> ? @(?"0> h? 8>@> ? ?  2?? ??? @ @@@  @ (@0@8@ @@ H@P@X@ `@ h@p@x@ @ @@@ @ @@@  @ @ LK_[ @ A  *A@A  4HA TAA A A"NB"N0B AA  (XB TBB B B B C CC  (C$\@C$\hC C @C C C :C :HD 6D 8D D @D "  E &(E PE`E @hE (E E >E F  F @@F" F NF FF @F &8G `G <xG hG G @G" H H0H @8H &xH H >H H H @I" PI NXI II @I $J (J <8J xJ J @J" J N(K JJ @xK "K K :K : L >L 2L K 6 M @XM @M BKK `L  (hLM (LF<8N xL  (MD3N N  (NfN  N  (N>3XO (N  (ND3HP OO  (O (O D*PO $POO  (PWQ 8* Q8P XQPP  (pQWQ 8*QQ QQR R R @pR $R R >R <8S (xS 8R S @S"@R(T  THR  S  S(S  &PT 0T xT T T T @TT 8V8@X0E*********************************************************************8 BEACH Activity XML Generatorath 8 This database can be used to generate XML documents forje6 submission to the US EPA based on the requirements of4 the BEACH act. This database, once populated, willp`2 generate XML for the organization, person, beach,7 activity, and procedure requirements of the BEACH act.8 This database will not generate XML documents for beach` monitoring data.: If you have any questions about this code, please contactC Michael Klos (CGI-AMS) at 703-652-0425 or michael.klos@cgi-ams.comChange History:fi6 Programmer | Date | Changes savB ------------------|-------------------|--------------------------: Jason Payne | 12/01/2003 | Original AuthorB ------------------|-------------------|--------------------------; Michael Klos | 08/11/2004 | Added Custom XML z%; | | Generation form B ------------------|-------------------|--------------------------> Michael Klos | 01/04/2005 | Added Date Boxes to? | | the Custom XML form2 | | (v1.2)h2 | | (v1.2)`(]@ B ------------------|-------------------|-----------------MK_[---------]@ ]@ ]@@ ]@h A Michael Klos | 12/16/2005 | Revamped to conform toP  Name: SetFileName@  9T Input/Output: None( q 9D( @ | | updated Notification c| 9FX 9 | | Schema (v1.2)B ------------------|-------------------|--------------------------B Michael Klos | 12/20/2005 | Added "Activities Only"; | | checkbox to thehe Bea; | | Custom XML form9B ------------------|-------------------|--------------------------= Michael Klos | 01/04/2006 | Revamped to handlebox A | | additional changes to? | | Notification SchemaB ------------------|-------------------|--------------------------= Michael Klos | 02/02/2006 | Revamped to handleActiA | | additional changes to? | | Notification Schemao B ------------------|-------------------|--------------------------A Andrew Hampton | 10/11/2007 | Changes related to the? | | Notification Schema8 | | v2.0 upgrade 9Hhe phdk Create API structure `($\9RPxB ------------------|-------------------|--------------------------A Erik Richards | 08/25/2008 | Changes related to the2Declare variables required for XML file generationx? | | Notification Schema8 | | v2.1 upgrade9*********************************************************Hk@ l r p t9^Save Beach Notification XML As9\ t`oxP .z(75A@hB ------------------|-------------------|-------------------------- H0E*********************************************************************$ 6 Description: Allows user to select path and filenameboxe3 while initializing objects necessary% for XML file creation.rs a:**********************************************************XML Documents (*.xml)$ *.xml$ 9J******Prompt user for file name $<pDetermine file save namele !R$ $' $ $ .XMLe obje .xml'9********************************************************* Name: CreateBaseXML Cre6 Description: Allows user to select path and filenamech N. while initializing the objects.ox3Input/Output: blnName - Value of "Beach Name Data"! checkbox3 blnAtt - Value of "Beach Attributes" checkboxdu1 blnAct - Value of "Beach Activity" checkbox R3 blnRole - Value of "Beach Role Data"g Acti! checkbox4 blnOrg - Value of "Organization Data" checkbox 2 blnProc - Value of "Procedure Data"! checkbox4 dtActBegin - Beginning Activity Date,8NK_[8 derived from "Activity Start* Date" calendar7 dtActEnd - Ending Activity Date, derived**2 from "Activity End Date"" calendar:**********************************************************$  $(is%Create the document and some commentsxml version="1.0" z% zB@roBeach Data Submission created $ z% zB@is n " z% .~ to (Now add the beach information and schemaxsi:schemaLocation z%.**  (d****  ~!B@ butxmlns z%.****** " (d****  ~!B@***** xmlns:xsi z%.fu (dto t  ~!B@WAdd the individual sections of the schema to the XML document, based on user selections z ~ B@k ((****       e:  z ~     @ B B@: k 2 (( Non  z ~ B@******kK ((**** n  z ~ h !( j !( l !( ~ B@x alk_ ((HFinally save the XML document ~ z/md  zB@d ((****o(9********************************************************* Name: chkAct_Click*****1 Description: Provides commands for enabling and7 disabling form elements related to beachro activitiesInput/Output: Nonedes co:********************************************************** /If the Beach Activity box has been unchecked...** !((...zero out the dates on both calandars, 9@ 99q B9@8 @ 8 0 @( ( 0 99q0...and both calendar textboxes, z 9(9q 9(9q,Check to see if all beach data is unselectedke surA@kCIf the Beach Activity checkbox is checked, re-enable cals, txtboxescan be !( 9 9q0 B9 9q z(4 (xkPoH`A@o09********************************************************* Name: chkBeach_Click1 Description: Provides commands for enabling and7 disabling form elements related to beachda datathe AcInput/Output: Noneake :**********************************************************(If the Beach Data checkbox is checked... H...enable the child checkboxesl (w ( old d (ise) ( Month (d, setk( reta'''"*If the Beach Data Checkbox is unchecked..."...uncheck the child checkboxes...'Q...then run the chkAct_Click sub to correctly set the Activity-related details...A@ ((0#,...and finally disable the child checkboxes. ( (( (koA@o A@o9********************************************************* Name: cmdBrowse_ClickV`A@"5 Description: Provides functionality to the "Browse"*** button.h arInput/Output: Nonech inc 'oH(:**********************************************************!Kicks off the "Save As..." dialog5Sets the File textbox with the selected filename/pathrson9*****************OK_[****************************************'( Name: cmdGo_Click2 Description: Provides functionality to the "Go!" button.ch N (|d|)Input/Output: Nones to sd BX X nder)|d|):**********************************************************:Checks to see that a valid filename/path has been selected(If not, warns the user and exits the sub>Please select file save location using the 'Browse...' button.  !A@4 alsDMake sure that (if activity box is checked) dates have been selected****** B!( !(  d|'d f  ~ $me*fPlease make sure that both a beginning and ending date have been selected for the Activity Date Range.  !A@4ssio .Check to see that the selected dates are valid89If dates are in incorrect order, inform user and exit sub>End Date occurs before Begin Date. Please correct to proceed.  !A@4reme>Check check box values to make sure that something is selectedocum8Please select at least one data type to include in file.  !A@4coACheck to see that, if Beach Data only is selected, that some type of beach data is also selected**FPlease select at least one data type of Beach data to include in file.  !A@4***RCheck to see that, if any data submissions have been completed by the organization they have also included a yearCPlease select any data completions that apply and include the year.  !A@4ate|`dX@If filename/path and dates are valid, and something is selected,**<(take the focus off of the Go! button so it can be disabled)****** B@****** disable the Go! button...**** R(******'...and execute the final file creation.tp* !( !( !( !( !( F!( !( f !( !( B!(A@ 4After creation of XML, inform user what has happenedto zer    (Notification XML Generated Successfully! P P File Name:  V  P P Included:  V b ` !A@4kkkkkk>After completion of file creation, re-enable the Go! button...**** R9q...reset the progress bar...he val 9(q@...clear the file path...''...and set the focus to the Go! button.** RC@qo9********************************************************* Name: cmdReset_Click che4 Description: Provides functionality to the "Reset"ded inA@x! button.oX33Input/Output: Nones bar.:********************************************************** Reset form@39*********************************************************) Name: txtStartDate_AfterUpdate()5 Description: Migrates change in textbox to calendaralenInput/Output: None: Non:**********************************************************Declare local variablesri]( z!($ z!(Nothingd #Test string to see if date is valids vali z!($|| Grab value from text boxte z!(X'x Set xCalBegin to same date 0Note that the value is set twice due to a glitcha  in the calendar control c xd$ X  x 9( x9(C@ q d   x 9( x9(C@ q k %Change text box to appropriate format for xm/d/yyyy$ X z((d@ %Invalid date entered, display messagemess6Invalid start date PK_[entered; please check and re-enter.  !A@4A@kko9*********************************************************( Name: txtStopDate_AfterUpdate()Up5 Description: Migrates change in textbox to calendaralenInput/Output: None: Non:**********************************************************@Declare local variablesri]EIf textbox is null, grab calendar date (should only be called OnLoad)OnLo !($ !(Nothingd#Test string to see if date is valids vali !($|| Grab value from text boxte !(X' Set xCalEnd to same dateam 0Note that the value is set twice due to a glitcha  in the calendar control c d$ X B  9( 9(C@ qd B  9( 9(C@ qPkH %Change text box to appropriate format for m/d/yyyy$ X ((d %Invalid date entered, display messagemess5Invalid stop date entered; please check and re-enter.  !A@4A@khk`oX9*********************************************************& Name: xCalBegin_AfterUpdate()3 Description: Causes date change to be migrated to****** text boxInput/Output: None():**********************************************************Declare local variables]Get date from xCalBegin !('x****Put date in text box****** xm/d/yyyy$ X z((op9*********************************************************$ Name: xCalEnd_AfterUpdate()d/yyyy3 Description: Causes date change to be migrated to****** text box Input/Output: None:**********************************************************Declare local variables]0Get date from xCalBegin B!('****Put date in text box****** m/d/yyyy$ X ((o9********************************************************* Name: Form_LoadH''X'3 Description: Provides commands for the Custom XML3 Generation form onLoad. This sub is------0 also used for resetting the form.naInput/Output: None------:**********************************************************Blank any textboxes | z((m XM ((@+Set all check boxes to "Enabled" and "True"on for 99(q 99(q 99(qh 99(qH 99(q( F99(q 99(qEnable Go! Button R(------Reset Progress Bar ((H$Check that all calendars are enabled******A@l.Set initial Calendar Date (Jan 1st, this year)**** 9C@C@ qP>M Note that value must be set twice to override "NewMonth" and "NewYear" substwic1/2/ Zyyyy$ X9(t twic1/1/ Zyyyy$ X9(ear" s!Set initial Calendar Date (today) B9BM Note that value must be set twice to override "NewMonth" and "NewYear" subsC@C@tC@tC@ qoD Insert datesos !(m/d/yyyy$ X z(( con B!(m/d/yyyy$ X (( 9********************************************************* Name: Form_Openfi3 Description: Provides commands for the Custom XML------D3 Generation form onLoad. This sub ist/Outp0 also used for resetting the form.Input/Output: Nonees,:*QK_[********************************************************* Make sure window isn't maximized *B@ o9*********************************************************! Name: xCalBegin_NewMonth7 Description: Causes dates to zero out on month updatetiInput/Output: None check:**********************************************************HWhen month is updated, set date to null (will retain old date otherwise)-- (@------oC9********************************************************* Name: xCalBegin_NewYear@H6 Description: Causes dates to zero out on year updateals,Input/Output: Nonek to s:**********************************************************  (@-Beao9********************************************************* Name: xCalEnd_NewMonth 7 Description: Causes dates to zero out on month updateerInput/Output: None&:********************************************************** HWhen Month is updated, set date to null (will retain old date otherwise)** B(@******op9********************************************************* Name: xCalEnd_NewYearutespG6 Description: Causes dates to zero out on year updatehat,Input/Output: Nonehat so:**********************************************************  B(@data to  ](JGWhen Year is updated, set date to null (will retain old date otherwise)9********************************************************* Name: IncludedData 4 Description: Compiles string (formatted for MsgBox | 4 display) based upon the values of the------'d ----kKN xN7 checkboxes. Lists specifically what wasan+ included in file generation. | 0Input/Output: strIncluded - listing of what was 9 included in XML generation:********************************************************** -Beach Data'd---- ----HMk tionkkP d:  P V V V-Beach Name Data'd  z O  d P V V V-Beach Attribute Data'd  d P V V V-Beach Activity Data (  to  B)'d   d P V V V-Beach Role Data'd--k k F----d0O " kk`QHQQQQ-Organizational/Person Data'd dR  d P V V V-Beach Coordinate Data'dssfu  d P V V-Organizational/Person Data'ded:  kkQ  F  d P V V-Procedure Data'd-Procedure Data'd f   Fta sub  d P V V-Completion Data'dd@-Completion Data'dk k d'biPS  SSS9********************************************************* Name: BeachDataCheckX8 Description: Checks to see if all the checkboxes under(C@9(qS6 chkBeach are unchecked. If so, chkBeachated! is also unchecked.Input/Output: nonetion S:********************************************************** ( ) ThSet chkBeach to falsear. (A@4kR Grey out appropriate check boxesP (RK_[V (each C (DataoT ( (' xUUU&2  !  !  !  !  !FaV         V  F  f VzAttribute VB_Name = "Form_Custom XML Generation"D Basb0{5453339B-7E2F-49D8-A4AD-44808B5@188C6} |G lobalvSpacIFalse dCreatab"lTru Pr@edeclaId"Expose_TemplateDeriv3izD$'*A ' BEACH ActivityorThis dcan be ulto gedocuments f subPmiss the US EPA bd on requirreCof&act. ,!mpopuPd, will J# organ@PA, person,0ach, @?, and procedure~ %$AKF! 8notDCmonitoring V.If you have@#@y ques-s about bcode2lecont@0Michael Klos (CGI-AMS) at 703-652-0425 or m C .k@ @cgi-ams.com@Change Hiry: Progr`ammer|ك D@ Rs -|-Gq Ja6 `Paynec $ 12/01/2003aOriginal AuthP ?j"+a$P08/1"4$Addy'joha2_(](1/04A(5:Boxesww -'\B @A16Revamp`1рconm_3 up``Notificaq!BSchema (v1.2)aq 20HM G9 "i:Only'"bckbox@(῿Ap-ABb_-SPAS-6! Ndl/  G2addiE R1? QY$ s!R _$-k0U2Q$ojn  8?;a!?HAn@drew HFtTH0da7$qpRo4a 4 t2v2.0 up|d0 __XRErik Rardsq25Q$8@1_D14r2__GP1_X GP? O paF licitCompNaq 'D Pvarisūdswfi  PobjD As MS2.DOMU40>RootEl8IOMNCOF1 OPENFI@LENAMEKstrA"St# 1:A2SetDescri`Allowsar>select` pathRnOp6whAiializs necespsary_` Rc0DInput/Out` Nonq? Pub) Sub x( d'2e APIb uctp With objFile  .lStructSize = Len()hwndOwnerB0&.Ins0tancr .lp(strtb"XML Documents (*.xml)" & Chr$(0) "dlMaxC{1024flagsOFN_EXPLORE R Or OVERWRITEP ROMPTHIDEREADONLY PATHMUSTEXIST;aming(a?0, 0tTitl"Save Beach Notifica tion As".EndŃ'Prompt usfor f! namIf` (Get/N ӀThen%Exit SDubEls 'DeemineCs-Coe@Replace%.Ewe,p, ""E A+Right$(UCase$(), 4) <> ".E") K. #&@ DR ASIf9@V A@ '*5 B:CreateB60ADescr ip{ Allowssto select pa@na@)w\'whA~initializ thes.Input/Outblnj- Valu f "D Data@L- checkbox! Att  ributeZ6  " cti0vity Ro`q ?!9!Org*!anizaB|7] zcJ edure7 dtActBegin` =nI",A e,o>*@deriveHd f "FS0tart\ "e" calendart- / d  h5 PuPblic J(A%rAs BoRan, _+Dm?f!`h?)r0/&@Coi// 2"0//'C s //0Pa"O6*HnS' [d _some comSet]dE@wNew MS02.DOM40# .ap*p@6Ccd.cjDss@6` ("t{vers=""1.0"|OO2DQ (˴ga1mi@ d ANow()RootE| <l~ ;nj6k=~ )_k AT9rchildA{0k%rttcRoleCoor-JbOd?H~1~MVpqywq|!# n run$ kf subdcorr`b -udetai|ls {!zf$7S^g &A&0 "&&  T/Tte cL?T{A hq,{WoFPMWmdBrowse1Ăf0ality$#6"'(8butt3TT oTk TKf*f0""A-" d@ogEuS'ps5 Nw fnA/pathtQxtFile = strName  End Sub '*5v : cmdGo_ClickDescription&Provides funcality to the "pGo!"4Obutton.Input/OutPNon7*Privatfe`()A'@ChecksSseeUat a v^d fn/path has been selected0If (Ā""@) Then'not, wa rn5user aexit sMsgBox "Plea se9H sav@e locaAY usingX'Browse...' V", vb@ExclamB , Me.Cal'E AElsȓ'MakurF(if awvwBb@(is cPed) dZsJ'PJAK((xCal.ValuAALOr BegDinI) AI_+(chkAct@[True) \KLPm1botat@nAPbndÁ1P1 forZ i?DRange.cZ%K[BJ\AC AE-a2"Uk#a,CA,) < ,2&"8 in incorr^ order, mNX jWa%0!B%occLurh e  q. \e proceed?+ +kZ&.Z [+u`GsomethE?`+ ea1aUBeachUFa`=#ZOrg cComp]E^c !t Ga typ`zoO?A %`Vm,7?V,)'(t~focus=@f!A0 sApOt canB disabl.SetF$ .EnR E/)' a`execuinalcreB0YCaeBhXMLPkO,pOctLJQO5@sr6aB vm'Aft_ A&`Hnwˡ8h8en5ÍE>NotifikGrc cessf Dy!" &NewL8inevb",dޣTab`s Incbd: 3UO, ??bI?BB*?1IfQ ip=5!fXQ!N e", re-e=_ACWi"@ @True End Withh('...reset the prog4s bar`d pbP6(.Value = 0& clear_fi"ldath\txtF= ""Eafoc us toFGo! button.-cmdGoSetF5  NSub  '*5 Name:8BR_ClickDescriptionvides func alitym"]')x')Input/Outc)Nonc*APrivateJ @E 1()P'A& formFA@_Load > ?U@bAL UStartD'_AfterUpd%AC XMigr@s change in textboxYcalendar?Rˎ Q.Au'Declare lo% variablesCWDim dte> As @CCIf ((IsNull(I)) Or  v""Then Nothinbg#ElsbTest strI(se+f 0 dis@li@ yIsTK_[ Grab frozmB6 `6!=\ CU ' xCalBegaCxo s`xB !e avawice da g`xc$a"'"Ohe EN control A!'CInt(akat$(), "d6= 1) o(Bk a)+ 1QTRef !aAakLa s-j%tIfk y'CAZga:pp} atky`vCStrCm/d/yC# o+'In0,idS;enTed, display m`essag8?QMsgBS"sXQ ; p~s`.heck Q{re-.", vbEx@Nman, Me.CapqqhyV^SybopaC_d'ןddd /y /y dt yddSd 'pGErNnd, `tbK^(should only bMled OnQd!L:is ;)iyi''ii ii0A i< Tg)'oixtoiT#a:WijEi/ e/i /is /i/i/i/i`Oh ?h"[ [[݃ ht\Jvgaq ?R Df `\g . 4 Qg$bgo g[HR g ggrgggopgagmgg )qgZgfg gCaus0BWtPAWmd@7 ͑/Output: None '*6 Private Sub xCalBegin_AfterUpd2()  'Declare local variablesDim dteStartDqOAs 'Get R fr\omm ==.0ValuCPuCin text box txt? = CStr(Format$( 1, "m/Hd/y")qEdnd  Name - 'Description@Causeschange to be migrd,@In2A"$opˆt߅ +C؄lA_LoadAProvidcommands for th@e CustXML?GeneD Im on . ThisT s`{iu' also Ndb resetting m. @J?XJ!BBlank anyB| |ŌstrFile*{"" +oStlBe $dSall cpheck`2r"$End"d "TrueWithkBeach-. [  7a# e At:t Fg'YAc Rola Org_K`xc 'cH Go! @ButtonscmdGo&wR1= g=s Barpb50 S'CR/thatPB@0alendahrs e#0ch/_Click 3S'!4initiR (Jan 1st,FJyeareQv mOpI twicqoverrR "NewMonth9Y"QOĉƍ ]0 Q0. FocuQvC!l("1/2/" & KQd1Kq1 "R|ef0D6p AtodayOtOцOObM / Hr/.T! ?/PKS'Inserd _Z #] Bb>p ?_qw rOpe@O>߃|߃a 3߃߃߃߃P߃`\/I(Cancel Intege&EMake@window isn't max`imize D oCmd.Stor P /T֕K0a s9zero Boon mN u__ % VWhe\# d, Z Dnu`(wiPretaold΂orwiseJ9IsN= s/5 ; c# k? ޴ xCalBegin_NewYear() .ValueIsNull = True End Sub  '*5; Naxme:sZM0onth!$Description+Causes datto zero out on m5 upWith>,.t Focus ,Value = F IEM- 'Grey out appropriateveck boxebNamegAttcRol0 @CkwIf Sub 0 also used for resetting the form.Input/Output: Nonees,:********************************************************** Make sure window isn't maximized *B@ o9*********************************************************! NUK_[ame: xCalBegin_NewMonth7 Description: Causes dates to zero out on month updatetiInput/Output: NonK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *,^9GT8nG  a Q!XAi)iٙ )Iyٚ      !"#$%&'()*+,-./012456789:<=>?@AChijlqsrtlkxyz{|}~)a P1ɎIяsAѐi9a a    y a Q &Form_End Of Year Submission Generation modSharedXMLmodGenerateXML modCustomXMLForm_Custom XML GenerationBeachActivitiesF@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA  0J_N?4C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLBAccess chkAtt_Click  9@0FC:\WINDOWS\system32\stdole2.tlbstdole aPm.4C:\Program Files\Common Files\System\ado\msado21.tlbADODB Ai`Q!C:\WINDOWS\system32\msxml4.dllMSXML2 Qyp*0[ C:\WINDOWS\System32\shdocvw.dllSHDocVw\ uM chkAct_Click 1YPpZdC:\WINDOWS\system32\SHELL32.dllShell32 a.'d/$ 'C:\PROGRA~1\MICROS~2\OFFICE11\MSCAL.OCXMSACAL A i 'V:#Uw6KekF  C:\WINDOWS\System32\compatui.dll COMPATUILib 1 Y "L~C:\WINDOWS\system32\msdxm.ocx MediaPlayer ! I  C:\WINDOWS\system32\mscomctl.ocx MSComctlLib  Y X#b`2s  C:\WINDOWS\System32\msjtes40.dllJetES  I c~k B*  C:\WINDOWS\system32\comctl32.ocx ComctlLib  1 rhttp://www.exchangenetwork.net/schema/BEACHES/2 index.xsd "AddressPostalCode ^http://www.exchangenetwork.net/schemVK_[a/BEACHES/2 Rhttp://www.w3.org/2001/XMLSchema-instance . WHERE SEND_TO_EPA = 'Y= SELECT TELEPHONE.TELEPHONE_CODE, TELEPHONE.TELEPHONE_NUMBER, TELEPHONE.EFFECTIVE_DATE, TELEPHONE.STATUS FROM TELEPHONEf SELECT BEACH.ID, BEACH.NAME, BEACH.DESCRIPTION, BEACH.COMMENT, BEACH.STATE_POSTAL_CODE, BEACH.FIPS_COUNTY, BEACH.WATERBODY_NAME, BEACH.WATERBODY_TYPE, BEACH.ACCESS_TYPE, BEACH.ACCESS_COMMENT FROM BEACH FActivityMonitoringStationIdentifier xCalBeginJ SELECT ORGANIZATION.ID, ORGANIZATION.ORGANIZATION_CODE, ORGANIZATION.NAME, ORGANIZATION.DESCRIPTION, ORGANIZATION.ABBREVIATION FROM ORGANIZATION& ', 'mm/dd/yyyy')) AND BEACH_ACTIVITY.ACTUAL_START_DATE <= CDATE(FORMAT$(' .ActivityActualStartDate &SELECT MAILING_ADDRESS.MAILING_ADDRESS_CODE, MAILING_ADDRESS.LINE_1, MAILING_ADDRESS.LINE_2, MAILING_ADDRESS.LINE_3, MAILING_ADDRESS.CITY, MAILING_ADDRESS.STATE_POSTAL_CODE, MAILING_ADDRESS.ZIP_CODE, MAILING_ADDRESS.EFFECTIVE_DATE, MAILING_ADDRESS.STATUS FROM MAILING_ADDRESSS FSELECT ELECTRONIC_ADDRESS.ELECTRONIC_ADDRESS_CODE, ELECTRONIC_ADDRESS.ADDRESS, ELECTRONIC_ADDRESS.EFFECTIVE_DATE, ELECTRONIC_ADDRESS.STATUS FROM ELECTRONIC_ADDRESS : WHERE FK_ORGANIZATION_ID = ' . WHERE FK_PERSON_ID = ' &ExtentLengthMeasureD SELECT PERSON.ID, PERSON.ACTIVE, PERSON.FIRST_NAME, PERSON.LAST_NAME, PERSON.MIDDLE_INITIAL, PERSON.SUFFIX, PERSON.TITLE FROM PERSON 8' AND FK_ORGANIZATION_ID = ' *' AND FK_BEACH_ID = ' j WHERE BEACH_ORGANIZATION_ROLE_ASSIGN.FK_BEACH_ID = '2 SELECT BEACH_ATTRIBUTE.EFFECTIVE_YEAR, BEACH_ATTRIBUTE.EXTENT_LENGTH, BEACH_ATTRIBUTE.EXTENT_UNITS, BEACH_ATTRIBUTE.BEACH_TIER, BEACH_ATTRIBUTE.SWIM_SEASON_LENGTH, BEACH_ATTRIBUTE.SWIM_SEASON_UNITS, BEACH_ATTRIBUTE.SWIM_SEASON_START_DATE, BEACH_ATTRIBUTE.SWIM_SEASON_END_DATE, BEACH_ATTRIBUTE.SWIM_MONITOR_FREQ, BEACH_ATTRIBUTE.OFF_MONITOR_FREQ, BEACH_ATTRIBUTE.MONITOR_FREQ_UNITS, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY_COMMENTS, BEACH_ATTRIBUTE.NO_POLLUTION_SOUWK_[RCES, BEACH_ATTRIBUTE.POLLUTION_SOURCES_UNINVESTIGATED, BEACH_ATTRIBUTE.BEACH_ACT_BEACH FROM BEACH_ATTRIBUTE@ SELECT BEACH_POLLUTION.FK_BEACH_ID, BEACH_POLLUTION.POLLUTION_SOURCE, BEACH_POLLUTION.POLLUTION_COMMENT FROM BEACH_POLLUTION , WHERE FK_BEACH_ID = ' r' AND BEACH_ACTIVITY.ACTUAL_START_DATE >= CDATE(FORMAT$(' ,ActivityActualStopDate SELECT BEACH_ACTIVITY.ACTIVITY_CODE, BEACH_ACTIVITY.NAME, BEACH_ACTIVITY.ACTUAL_START_DATE, BEACH_ACTIVITY.ACTUAL_STOP_DATE, BEACH_ACTIVITY.DESCRIPTION, BEACH_ACTIVITY.COMMENT, BEACH_ACTIVITY.EXTENT_START_MEASURE, BEACH_ACTIVITY.EXTENT_LENGTH, BEACH_ACTIVITY.EXTENT_UNIT_OF_MEASURE, BEACH_ACTIVITY.ACTIVITY_ID FROM BEACH_ACTIVITY@ SELECT BEACH_ACTIVITY_REASON.CLASS, BEACH_ACTIVITY_REASON.TYPE, BEACH_ACTIVITY_REASON.DESCRIPTION FROM BEACH_ACTIVITY_REASON 0 WHERE FK_ACTIVITY_ID =  AND CLASS = '% SELECT BEACH_ACTIVITY_STATION.STATION_ID FROM BEACH_ACTIVITY_STATIONr SELECT BEACH_ORGANIZATION_ROLE_ASSIGN.ORG_ROLE_CODE, BEACH_ORGANIZATION_ROLE_ASSIGN.FK_ORGANIZATION_ID, BEACH_ORGANIZATION_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_ORGANIZATION_ROLE_ASSIGN.STATUS FROM BEACH_ORGANIZATION_ROLE_ASSIGN ActivityName BSELECT BEACH_PERSON_ROLE_ASSIGN.PERSON_ROLE_CODE, BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_ID, BEACH_PERSON_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_PERSON_ROLE_ASSIGN.STATUS, PERSON.FK_ORGANIZATION_ID FROM PERSON INNER JOIN BEACH_PERSON_ROLE_ASSIGN ON PERSON.ID = BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_ID ^ WHERE BEACH_PERSON_ROLE_ASSIGN.FK_BEACH_ID = ' t WHERE BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID = ', SELECT PROCEDURE.ID, PROCEDURE.PROCEDURE_CODE, PROCEDURE.DESCRIPTION FROM [PROCEDURE] (BeachProcedureDetail ActivityTypeCode  ,SELECT BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LONGITUDE, BEACH_LATITUDE_XK_[LONGITUDE_COORDINATE.SOURCE_MAP_SCALE, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_COLLECTION_METHOD_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_REFERENCE_DATUM_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.DESCRIPTION FROM BEACH_LATITUDE_LONGITUDE_COORDINATE$ SELECT BEACH_PROCEDURE_ASSIGN.FK_BEACH_ID FROM BEACH_PROCEDURE_ASSIGN 4 WHERE FK_PROCEDURE_ID = ' '; ; $', 'mm/dd/yyyy')); REASON SOURCE INDICATOR &BeachDataSubmission $OrganizationDetail BeachDetail CreateBaseXML .ActivityDescriptionText &ActivityCommentText (ActivityExtentDetail 4ActivityExtentStartMeasure 6ActivityExtentLengthMeasure >ActivityExtentUnitOfMeasureCode (ActivityReasonDetail $ActivityReasonType "BeachExtentDetailchkName :ActivityReasonDescriptionText (ActivitySourceDetail $ActivitySourceType :ActivitySourceDescriptionText .ActivityIndicatorDetail *ActivityIndicatorType @ActivityIndicatorDescriptionText ,AttributeEffectiveYear StateCode .ExtentUnitOfMeasureCode 6BeachSwimSeasonLengthDetail .SwimSeasonLengthMeasure 6SwimSeasonUnitOfMeasureCode &SwimSeasonStartDate "SwimSeasonEndDate 2MonitoringFrequencyDetail 4SwimSeasonFrequencyMeasure ,MailingAddressCityName 2OffSeasonFrequencyMeasure HMonitoringFrequencyUnitOfMeasureCode (MonitoredIrregularly 6MonitoredIrregularlyComment 4BeachPollutionSourceDetail (BeachPollutionSource 0BeachPollutionSourceCode >BeachPollutionSourceDescription 6NoPollutionSourcesIndicator NPollutionSourcesUninvestigatedIndicator BeachTierRanking ,BeachActBeachIndicator ,MailingAddressTypeCode :MailingAddressStreetLine1Text :MailingAddressStreetLine2Text :MailingAddressStreetLine3Text 6MailingAddressEffectiveDate :MailingAddressStatusIndicator BeachIdentifier BeachNameDetail &ProgramInterestName <ProgramInterestDescriptionText 0ProgramInterestStateCode 4ProgramInterestCommentText *BeachCoordinateDetail :ProgramInterestFIPSCountyCode "WateYK_[rBodyNameCode "WaterBodyTypeCode 0BeachAccessibilityDetail ,BeachAccessibilityType 2BeachAccessibilityComment (BeachAttributeDetail &BeachActivityDetail BeachRoleDetail #AddBeachOrganizationRoleInformation 2ElectronicAddressTypeCode *ElectronicAddressText <ElectronicAddressEffectiveDate @ElectronicAddressStatusIndicator ,OrganizationIdentifier ,OrganizationNameDetail (OrganizationTypeCode OrganizationName "ProcedureTypeCode 6OrganizationDescriptionText 8OrganizationAbbreviationText @OrganizationMailingAddressDetail FOrganizationElectronicAddressDetail 6OrganizationTelephoneDetail 0OrganizationPersonDetail PersonIdentifier PersonNameDetailcmdGo *PersonStatusIndicator FirstName LastName &PersonMiddleInitial NameSuffixText NamePrefixText 4PersonMailingAddressDetail :PersonElectronicAddressDetail *PersonTelephoneDetail 0ProcedureDescriptionTextb_createXML_Click &ProcedureIdentifier 0ProcedureBeachIdentifier "BeachRoleTypeCode >BeachRoleOrganizationIdentifier 2BeachRolePersonIdentifier ,BeachRoleEffectiveDate 0BeachRoleStatusIndicator >BeachCoordinateStartPointDetail "AddBeachActivityStationInformation :BeachCoordinateEndPointDetail LatitudeMeasure LongitudeMeasure *SourceMapScaleNumeric <HorizontalCollectionMetho0dName XHorizontalCoordinateReferenceSystemDatumName <BeachCoordinateDescriptionText "TelephoneTypeCodecb_Notification &TelephoneNumberText ,TelephoneEffectiveDate 0TelephoneStatusIndicator 0YearCompletionIndicators CompletionYear DNotificiationDataCompleteIndicator >MonitoringDataCompleteIndicator :LocationDataCompleteIndicator cb_Monitoring ,,LL, $,0<HGetSaveFileName comdlg32.dll GetSaveFileNameA ь0ZK_[AddOrganizationInformation3)6{O>`3)6{O>`  AddOrganizationPersonInformationAddMailingAddressInformationAddElectronicAddressInformationAddTelephoneInformationAddBeachAttributeInformationAddBeachActivityInformation !AddBeachActivityReasonInformation SetFileNameAddBeachPersonRoleInformationAddBeachCoordinateInformationAddBeachProcedureInformation !AddEndOfYearCompletionInformationAppendBeachXMLDataToDocument xRF*DI/f"v7JpK[[%5ʼtFkԫ)z XB`a!vSC7?DetailHC7?Frame13Frame10@C7? tb_data_yearEC7? b_createXML31?FormGC7? cb_LocationchkRole ,,48i ,$gAavFJ۟oh2+CZ O83ST/~IDQ0SEJ49Q1chkCompchkBeachchkMonchkActtxtFile B* pbProgressp W* ActiveX Controls in Access  1chkAttchkNotchkProcchkLoc txtDataYear txtStartDatecmdReset txtStopDatechkCoor cmdBrowse-'d/$xCalEndchkOrgchkBeach_Click chkName_Click chkRole_ClickcmdBrowse_Click cmdGo_ClickcmdReset_ClicktxtStartDate_AfterUpdatetxtStopDate_AfterUpdatexCalBegin_AfterUpdatexCalEnd_AfterUpdate Form_Load Form_OpenxCalBegin_NewMonthxCalBegin_NewYearxCalEnd_NewMonthxCalEnd_NewYear IncludedDataBeachDataCheck <<48<@i ,$ Aɤs h)aN?ћ`GXGPћ F;|?T;|?P;|?h;|? 1/2/ yyyy 1/1/Refresh Today m/d/yyyyVBE6.DLL Yb  Y ValueIsNull *XML Documents (*.xml) *.xml <Save Beach Notification XML As .XML .xml Y  Y_  Y 8 Y X Yj x   File Name:    Included: ! |Please select file save location using the 'Browse...' button.J?P5 Please make sure that both a beginning and ending date have been selected for the Activity Date Range." |End Date occurs before Begin Date. Please correct to proceed. pPlease select at least one data type to include in file.% Please select at least one data type of Beach data to include in file.# Please select any data completions that apply and include the year. PNotification XML Generated Successfully! YS  Y0 iو_@2Q! xml version="1.0"3)6{O>`3)6{O>` <Beach Data Submission crea[K_[ted $xsi:schemaLocation3)6{O>` xmlns xmlns:xsiAddCustomBeachInformation !AddCustomBeachActivityInformation Y" qy>`}A5m.Um.ٰm. IDm.Lm. "ORGANIZATION_CODE NAME DESCRIPTION ABBREVIATION &YYYY-MM-DDTHH:MM:SS YYYY-MM-DD Y true N false ACTIVE Y  (MAILING_ADDRESS_CODE LINE_1 LINE_2 LINE_3 CITY "STATE_POSTAL_CODE ZIP_CODE EFFECTIVE_DATE STATUS .ELECTRONIC_ADDRESS_CODE ADDRESS TELEPHONE_CODE TELEPHONE_NUMBER FIRST_NAME LAST_NAME MIDDLE_INITIAL SUFFIX TITLE -Beach Data : -Beach Name Data *-Beach Attribute Data ,-Beach Activity Data (  to  ) -Beach Role Data ,-Beach Coordinate Data 6-Organizational/Person Data -Procedure Data -Completion Data PROCEDURE_CODE FK_BEACH_IDHPROCEDURE_CODE FK_BEACH_*SEP=B'oF_4 rU~~~~~~~~~~k    pOpenfilename objXMLDocument  objParentElementstrOrgIDstrKeyIDcktKey strBeachID lngActivityIDblnNotblnMonblnLoctxtYear strTagNamevDataeType q( 8  H YX h x q qblnNameblnAttblnActblnRoleblnCoorblnOrgblnProcblnComp dtActBegindtActEndCancelnnrU (rU $`) TA`(- q !9Y########,,$`0 $`4 $`8 $A`< $`@ $`D $`H $A `L $ `P $ `T $  `X 8$I `\ 8$`` (`d 0y&$ `h <$I`l @$`p <$`t @( `x 0$I`| n89 `=a=Ha `=a=\K_[)un @:@)ppp@AivvvIQ@Axxx@11@11@11ѐWWW__ @qx Lx x x@ #t*#p*#l #h*#dTx 2 tplhd x x4*(D(4  4`#tTx/t6D4 Tx0 qx8@^q<@ lE 1l>l#t\ #p2tpl4 1l>l#t #p?2tpl*#t/t@ (i0n p$  (tplhdD4q'[x4x6x()X4 *plx=+[tX4 T+)xtpRpx:P,` -`@<X4 *lx=+[tX4 T+/<)xtp6`@ x.X4 *lx8x x/X4 *lx<x0X< l+0p<=+[txX8 D+x 1)txp x2X4 *lx<x3X< l+0p<=+[txX8 D+x 1)txp 84 4(P%x! <x x ll$l l 84 5(P2%x! <x x 84 6(PK%x! <x x8xX4 *xFP%X4 *(Pd%x! <x x @$  $<xtp`@0)hx! Hx hfX]4x5hx! QxD cX%D D < D cDx! Qx0 cX%0 0 < 0 c0x! ,Qx,:X%,  , Pc,x! D__SRP_4T |D__SRP_5 / __SRP_62__SRP_7#rU hNAi9yaٝ!Y!AA1qѠQAAy)A9iQqɣIq٭)A W Ai]K_[aa1Aɔ@A@Y @y@@ @1@ɖ@@@@ )@ I@ YqI@ @@ Yɗ@:ɓ@qqppp@QxxxQ@QvvvQ@)@)@ Y)| @)\ICWWW___ @qx Lx x x@ #t*#p*#l #h*#dTx 2 tplhd x x4*(D(4  4`#tTx/t6D4 Tx0 qx8@^q<@ lE 1l>l#t\ #p2tpl4 1l>l#t #p?2tpl*#t/t@ (i0,$(tplhdD4A0.[x4x6x/0X4 1plx=2[tX4 T2)xtpRpx:P3` 4`@<X4 1lx=2[tX4 T2/<)xtp6`@6x56P%X4 1lx=7[t8)xt x8X4 1lx<x9X< l20p<=2[txX8 D2x :)txp x;X4 1lx<x5X< l20p<=2[txX8 D2x :)txp x<X4 1lx<x=X< l20p<=2[^K_[txX8 D2x :)txp 84 >(P%x!  x x' {(l0l,lllll 84 ?$(P2%x!  x x$84 @(PK%x!  x x(l`x! x @t! t ,p! p (! ( `#<,V@V`V84 A/<)xtp(6`@,(P_%x!  x x8xX4 1xFP%X4 1(Pd%x!  x x,d$  0 <xtp(`@,8)hx! Hx hfX]4x5hx! QxD cX%D D < D cDx! Qx0 cX%0 0 < 0 c0x! ,Qx,:X%,  , Pc,x! DQx(:X%(  ( Pc(| (hx! Hx hcX]4x5hx! Qx$ $  $ < c$x! Qx    < c x! ,x Pxx! Dx Px\< $D0,($ xhH< |  $  (hx! `x hcX]4x5hx! \x xx! tx xx! Hx xx! x xx!  x x)hx! `x hfX]4x5h fX%! d fX%! | fX%! P fX%!  fX%! 0 x! \x xx! tx xx! Hx xx! x xx!  x x4$  xhH< |  $  < |  $  P ( Fl%!   $  2Q9x ''(>xFH0:h!NXX "6XH(pX!  X:h]1H(!  (:8]1! H c]1')6X(9x ''(>xFH0:h#NXX "6XH(nFH!  X!  XNHN)6XH9x ''(>xFH0:h$NXX "6XH(lX! ` Xfh]1H(! x (f8]1'!  f]1'!  f]1'x)6X(9x ''(>xFH0:h%NXX "6XH(jX! ` Xch]1H(! \ (f8]1'! t f]1'! H f]1'xdt! t dfT]1D'4 0!  0  f]1') t06 X(d 9x ''(>xFH0:h&NXX "6XH(hOX!  Xch]1H! Qo( '8'6X(8N9x ''(>xFH0:h(NXX "6XH(f!  !  (X! \ H! t (! H !  t!  t 0! x0 !  !  !  !  OOV+V+V+V+V+(V+HV+XV+, )t06XH(x  ''(>FH@)**#x**#+*#,*#*#**#**#-*#,*#l*FX "2x6XH(! Q  (c!  Q(h% c:h%! ! Q  c0 &xt0XH(xdD4 O0  _K_[ 0   0 @  0   0   D :l%! :l%h! ,h h:l%h! Dh hh! `Qhd d cl%d cdh! \Qh` ` cl%` c`h! tQh\ \ cl%\ c\h! HQhX X cl%X cXh! QhT T cl%T cTh! xQhP P cl%P cPh! QhL L cl%L cLh! h (h(l%h!  h h8 h! QhH H H N8  :l N((8 #$*# %H 2$ 68(N8 :l N((8 #$*# %H 2$ 68( HcHh! Qh        c \8h! h :lN((8 #$F%! , /$)h68(\8h! h :lN((8 #$F%! D /$)h68(tH 0 d`\XTPLH $$ h8(T x$ `x x $  x0   0   0   0   -Ct(`p! `p `cP]4p5`zBCt(`p! \p `cP]4p5`l#t\ #p2tpl4 1l>l#t #p?2tpl*#t/t@ (i0,$(tplhdD4A0 ,  8)hx! Hx hfX]4x5hx! QxD cX%D D < D cDx! Qx0 cX%0 0 < 0 c0x! ,Qx,:X%,  , Pc,x! DQx(:X%(  ( Pc(| (hx! Hx hcX]4x5hx! Qx$ $  $ < c$x! Qx    < c x! ,x Pxx! Dx Px\< $D0,($ xhH< |  $  (hx! `x hcX]4x5hx! \x xx! tx xx! Hx xx! x xx!  x x)hx! `x hfX]4x5h fX%! d faK_[X%! | fX%! P fX%!  fX%! 0 x! \x xx! tx xx! Hx xx! x xx!  x x4$  xhH< |  $  < |  $  P ( Fl%!   $  2Q9x ''(>xFH0:h!NXX "6XH(pX!  X:h]1H(!  (:8]1! H c]1')6X(9x ''(>xFH0:h#NXX "6XH(nFH!  X!  XNHN)6XH9x ''(>xFH0:h$NXX "6XH(lX! ` Xfh]1H(! x (f8]1'!  f]1')6X(]9x ''(>xFH0:h%NXX "6XH(jX! ` Xch]1H(! \ (f8]1'! t f]1'! H f]1'xdt! t dfT]1D'4 0!  0  f]1'!  f]1')t06X(d 9x ''(>xFH0:h&NXX "6XH(hOX!  Xch]1H! Qo( '8'6X(8N9x ''(>xFH0:h(NXX "6XH(f!  !  (X! \ H! t (! H !  t!  t 0! x0 !  !  !  !  OɀOɈV+V+V+V+V+(V+HV+XV+, )t06XH(`x X ''(>XFH@)**#x**#|+*#x,*#t*#p**#l**#h-*#d,*#\l`*FX "2x|xtplhd\`6XH(! QT T (cT!  QP(h%P cP:h%! ! QL L cL00 TPL)x|xtplhd`\Xt0XH(xdD4  O0   0   0 @  0   0   D :l%! :l%h! ,h h:l%h! Dh hh! `Qhd d cl%d cdh! \Qh` ` cl%` c`h! tQh\ \ cl%\ c\h! HQhX X cl%X cXh! QhT T cl%T cTh! xQhP P cl%P cPh! QhL L cl%L cLh! h (h(l%h!  h h8 h! QhH H H N8  :l N((8 #$*# %H 2$ 68(N8 :l N((8 #jlCActivitySourceDescriptionText`+x`XGh ActivityExtentUnitOfMeasureCodeK_BEACHActivityIndicatorDetailonTextPersonMailingAddressDetailingAPersonTelephoneDetail`xjjHHCjlCjjHCjlC`xj`ICjb$*# %H 2$ 68( HbK_[cHh! Qh        c \8h! h :lN((8 #$F%! , /$)h68(\8h! h :lN((8 #$F%! D /$)h68(tH 0 d`\XTPLH $$ h8(T x$ `x x $  x0   0   0   0   0   4hx! \x hfX]1HBD! \D kB0'  ! t  f]1'! t k'! H f]1'pjl! Hl kjX'H4D! D 4f$]1'!  k'!   f]1'!   k'p)xDlD6h0 X4,x! `Qxl l fX%l clx! \x xx! tx xx! Hx xx! x xx!  x x,4( lxDlDhH  pH4p     / :G`1t2<840)p6@` (`p! p `cP]4p5`3lt)*#<+*#8+*#4+*#0H*1t2<840(`p! xp `cP]4p5`(`p! `p `cP]4p5`*lt)*#<+*#8+*#4I*1t2<84ICt(`p! p `cP]4p5`bW`p! `p `cP]1@! x c]1 )p6`V*lt)*#<+*#8+*#4J*1t2<84`JCt(`p! p `cP]4p5`W`p! `p `cP]1@! x c]1 )p6`*lt)*#<+*#8+*#4K*1t2<84KCtltCx/ 0, xtD<840,p`@ 0 4       /Q`o@%*#llx*#h*FP%p$ 2lhd6P@)>p$ Pk><p$ 4k<1dH QdtB`:,%dp$ Td ( Q`oP%tl  d5PB`:,%dp$ Td ( Q`oP%tl  d5PB`:,%dp$ Td ( Q`oP%tl  d5PB`:,G%dp$ Td ( Q`oP%tl  d5PB`:,I%dp$ Td ( Q`oP%tl  d5P`lt=H T)d` c= t p$ o p$  c=!pPL0ptx$lhd`P@H\`d$ d PQ`o@%*#h*FP%t$ /hd6P@)>t$ cK_[Pk><t$ 4k<-=P`:, %dt$ Td ( ` 4 P`1l)d`5Pg`d$ d PQ`o@%*#hll*#(*FP%p$ 2h(d6P@)>p$ Pk><p$ 4k< dH QdxB`:,%dt$ Td ( Q`oP%xl  d5PB`:,%dt$ Td ( Q`oP%xl  d5PllF,%xl  B`:,%dt$ Td ( Q`oP%xl  d5P)>p$ Pk><p$ 4k<B`:,%dp$ Td ( Q`oPICCompletionYear`x`xs`+xH`hIh jdJCpL`X&xS`Ih A`x@jfCjj`JCjlC`x`xActivityIndicatorTypeiK`x`x      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~`+xh`xP`Kh j`KC8Mionext`x76jbKCjdKCjfCjjHLCjlCL`` x `+x`Lh `xAttributeEffectiveYearXNj``MC`x onYear`x2 jbMCjdMCjfCjj0NCBeachExtentDetaileYear`x 7jlCN`xj`sCj`OCExtentLengthMeasureearxS`x ijb(OCjdPOCjfCjjOCjlCExtentUnitOfMeasureCodeExSwimSeasonStartDate`xj`PCSwimSeasonEndDatete`` x`x`x RVjbPCjdPCjfCjjHQCjlCj`QCjb RCMonitoredIrregularly`` x`+x = '`xjdHRCjfCjjRCjlCj`^Cj`SCjb8SCjdSC`xVW`xjfCjjSCjlC ActivityIndicatorDescriptionTextj`UCj`dK_[TC`xLjbTCjdTCjfCjjHUCjlCj`YCjbVC`x`x`xjd@VCjfCjjVCjlCj`VCjbWCjd@XCj`XWCjb_C`Qh ceCoW`+x`Wh `+xceCo8X`x`x`Wh YXjfCjjXC`xPjlCY`x`x`x`xj`hYCjbZC`x`^\`xjbYCjdZCjfCjjhZCjlCjdZCjfCjj[CjlCBeachSwimSeasonLengthDetailxtBeachPollutionSource`xO`` x`+x`xj`[Cjb\Cjd@\CjfCjj\C\`xjlCSwimSeasonLengthMeasuretailxtx^j`X]C`x`` xjb]C`xjd]CjfCjj^CjlCj`_C`[h 8_`` xjb^Cjd@kCN`xjbX_C``xjd_CjfCjj_CjlCjd `CjfCjjp`CjlCj`bC`+xxe`x`x`x8P`x P`xP`xO`xO`xO`xO`xO`xxO`x`O`xHO`x0O`xO`xO`xN`xN`xNjjCjbbCjd cCjfCjjpcCjlCj`cCjbcCjddCeK_[jfCSwimSeasonUnitOfMeasureCodeOLEMonitoringFrequencyDetailH_ORGSwimSeasonFrequencyMeasureANIZBeachTierRankingurceasj`COffSeasonFrequencyMeasuredeeDeMonitoredIrregularlyCommentjbCMailingAddressTypeCodeMailingAddressStreetLine1TextigjjeCjlCj`eCjbhfC`xD`+x`8fh jdfCjfC`x`x`x`x`x`+x`xY`x`0gh Ijj hC`h`x`+x`xjlC`x i`xX`x`xhj`hC`xjbiCjd@iCjfCjjiC`x jlCk`x MailingAddressStreetLine2TextMailingAddressCityName`x`x`x`gh `xp]`x`x`+x`x`jh `xjfC`x`x`xjjlC@n`x`x`x`` x`` x`x`xjlCMailingAddressStreetLine3TextBeachIdentifierdengthDBeachNameDetailjlC`x`` xp]`xj`wCj`~C``h j``nC`` x `xdo`xjb0oC`xProgramInterestName`` xBeachAccessibilityType`x`x``xjdXoCjfCo`x`xpK`x`+xp`oh `x`` x`xBeachAttributeDetailpe`` xBeachActivityDetaill`xrX[`x jjrC(^`` x`x`x`xBeachRoleDetailtail`x`x`x`x`x(vU`xX[`x`x`xElectronicAddressTextjlC`xj`+x`rh 8oOrganizationIdentifierj`XsCjb |COrganizationNameDefK_[tailjbxvCOrganizationTypeCodeil`xj`HtCOrganizationNameCode`x****jbptCjdtCjfCjjvC`` x`x`x_FREMailingAddressEffectiveDate, BMailingAddressStatusIndicator,ProgramInterestDescriptionTextProgramInterestStateCoderePE, ProgramInterestCommentTextACH_`x`x jlCXw`x`g`x`xjdvCjfCjjxwC`x`x`xProgramInterestFIPSCountyCodeuHx`x jlCjbwCjdwCjfC`x`` xX[z`x`xjjxCjlCPersonIdentifier`xBeachAccessibilityDetaililPersonNameDetailsText`x `x`xd|jbyCjdyC`x jfCjj8zCjlCBeachAccessibilityCommentzjbzCjd{C}`x`x`x`x`` x`x`x`x jfCjj{CjlCjdC`x`xU`xEElectronicAddressTypeCodeiptioElectronicAddressEffectiveDate ElectronicAddressStatusIndicator2TextUOrganizationDescriptionTextxt}`x`x`xjj~C}`` x`` x0~~j`x `` xjlC~`xPersonStatusIndicatorr`x~X[`x jbC~`x`+xery `~h OrganizationAbbreviationTextNI OrganizationMailingAddressDetailPr#OrganizationElectronicAddressDetailresOrganizationTelephoneDetailresText`xPersonMiddleInitialorl`xProcedureTypeCodetail`x`x`x`` x`xjdCOrganizationPersonDetailyCode`` x'ProcedureIdentifieril`+x`h jjC`+x `ph jlCj`CjbCjdCjjhCjlCj`CjbCjdCPersonElectronicAddressDetail`gK_[x`xBeachRoleTypeCodeer`x`xBeachRoleEffectiveDate`x`x`x`xLatitudeMeasureiveDate`x`+xh`+xy ad``h datjjCjlCj`Cjb0CjdCjjCjlCj`ЅCjbCjdCjjxCTelephoneTypeCodeeDate`x(jlCj`ȆCjbCjdCjjxCProcedureDescriptionTextetail`` xjlCj`ȇCjbpCProcedureBeachIdentifiereBeachRolePersonIdentifiereDate`x`x `xBeachRoleOrganizationIdentifierr x]`x`xBeachRoleStatusIndicatorrxtTelephoneNumberTextcatHH`+xP``Hh TelephoneEffectiveDateTelephoneStatusIndicatorTeYearCompletionIndicatorsYe`x`xta`x`0h "NotificiationDataCompleteIndicator`xjdC`xjjHC0`x`x`+x`h jlC`h ail`x`h r`x`xDate!SELECT BEACH_PERSON_ROLE_ASSIGN.PERSON_ROLE_CODE, BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_ID, BEACH_PERSON_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_PERSON_ROLE_ASSIGN.STATUS, PERSON.FK_ORGANIZATION_ID FROM PERSON INNER JOIN BEACH_PERSON_ROLE_ASSIGN ON PERSON.ID = BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_IDACTIVMonitoringDataCompleteIndicatorTYLocationDataCompleteIndicatorGjlCꐪ8dHG hOHHj`8CBeachPollutionSourceDetailejjCjlCBeachPollutionSourceCode`x`؎h tifij`Ch`x `8h j`x`xat`h be`x`x`h DatejbXC`x `xcatojdCj* Cj`x`xjj0C`xjlC hHRjdCj* C`x`x`x `h `x`x`Hh `x`xh H^`xhK_[`x`xj`x `Вh `xX`x`0h `x`h `x`x`Гh `x` x`x`x`x``h  j`x`x`h o`+x`h jj@CjlC HS< țHT`x`+x `Еh P xH@8 X   (+ 0XpX P8(&hxGP( \ PT -O` 0 H0 P ، @` `i@0[y(8  $   hp `bXx 0@pH.xl 88(0%hHh`zpH`- 0 l`" `(p!PJ0#j`(Cjb`CjdCj* CjjؚCjlCj`CjbPCjdxCj* CBeachPollutionSourceDescriptionDATE, BNoPollutionSourcesIndicatorREQ> HUjj@CjlCꐰXdHLjbCjdCj* Cjj0CjlCꐲHM$MonitoringFrequencyUnitOfMeasureCodeX`xh4`h `x`h `x`h `x ` x` x` x`@h `x`Ȟh П`xj`@CjbhCjdCj* CBeachActBeachIndicator`xWaterBodyNameCodecator@reCodejN CȠ`xIBUTjjCjlC`x`x`x`x`x`x`x`x`x`x`xj`CjbCjd@Cj* CiK_[`x`x `x`x`x`h УHp`x`hh `x`@h ``x`ph `x`h `xjN C`xjjhCjlCH HdHO t`x \@` x (Tp` xj`C`xФjbCjdإCj* CjN C PJ`xo`x `x`@h jjȦCjlCpj`x``x`xꐢ8.HHP``x`xh  L`x BeachCoordinateDetail`x` x`xj`C` xjbȨCh`xjdCj* CjN Cjj(C h`xp`x B ``x`x`h `xjlC`x`xjbCjdتCj* CjN CjjPCjlCj`CjbȫCjdCj* HC'PollutionSourcesUninvestigatedIndicator_POLLUTjN C){ hꐤdHV0$H jjCjlCj`XCjbȭCLongitudeMeasureetail`x`h jdCj* CjN CjjC)ȵK`xp`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`xxp`x`h jlCj`Cjb(CjdPCj* бCб`x`x`xjN CjK_[H(`xOLLU`xN_`x F` x`xjjCjlCj`C`xj`hC`xL`xBUTEjbCjdCj* C`xjN CjjhC0` xE, BjlCjbCjdCj* CjN C` xRIBUjjxCjlC ` xi  Hj`xi ȵ (`xhn`xZSourceMapScaleNumeric`x`h x  `xLkpAAxWaterBodyTypeCodec` xi  H(i  `xj`xCBeachCoordinateEndPointDetail`x `x> "P p" `x`x@h `xjbC t`x@8d `xjd0Cj* XCjN CjjCjlC`x `йh `x`x@` `x`x`x@PP `xj`ȿCj`0Cj`C@@ `xjbȻC`x0* jdCj* CjN CjjhCjlC   `$Jм KK){ ( `x` x)H@i HorizontalCollectionMethodName`x`xj`CjbCjd0Cj* XCjN CjjоC o`x jlC`x`xjbXCjdhCh`xꐮ H%xHjbCjdCj* @CjN CH`xjjCjlCꐰ اHp` xj`hC`x(jbCkK_[`xo`xjdCj* CjN Cjj`CjlC H@> `x H@< `x@, `xp`x H Hꐼ pHꐾ hH pHj``C,HorizontalCoordinateReferenceSystemDatumNameorBeachCoordinateDescriptionTextj`@C`x`x`h jbhCjdC`x aSELECT BEACH_ATTRIBUTE.EFFECTIVE_YEAR, BEACH_ATTRIBUTE.EXTENT_LENGTH, BEACH_ATTRIBUTE.EXTENT_UNITS, BEACH_ATTRIBUTE.BEACH_TIER, BEACH_ATTRIBUTE.SWIM_SEASON_LENGTH, BEACH_ATTRIBUTE.SWIM_SEASON_UNITS, BEACH_ATTRIBUTE.SWIM_SEASON_START_DATE, BEACH_ATTRIBUTE.SWIM_SEASON_END_DATE, BEACH_ATTRIBUTE.SWIM_MONITOR_FREQ, BEACH_ATTRIBUTE.OFF_MONITOR_FREQ, BEACH_ATTRIBUTE.MONITOR_FREQ_UNITS, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY_COMMENTS, BEACH_ATTRIBUTE.NO_POLLUTION_SOURCES, BEACH_ATTRIBUTE.POLLUTION_SOURCES_UNINVESTIGATED, BEACH_ATTRIBUTE.BEACH_ACT_BEACH FROM BEACH_ATTRIBUTEj* @CjN CjjCjlC`x H`x`h `j`x jbCjdCj* CjN Cjj(CjlC Hj* CjN CjjCjlCHhꐬ pHj* CjN CjjCSELECT BEACH.ID, BEACH.NAME, BEACH.DESCRIPTION, BEACH.COMMENT, BEACH.STATE_POSTAL_CODE, BEACH.FIPS_COUNTY, BEACH.WATERBODY_NAME, BEACH.WATERBODY_TYPE, BEACH.ACCESS_TYPE, BEACH.ACCESS_COMMENT FROM BEACH`2jlCj`Cjb(CjdPCj* C: WHERE BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID = 'NGITBeachCoordinateStartPointDetailRDINATEjN Cjj0CjlC0@( `xJ`xDE_C`h `h ai " ^ atPtionText`x(` h x `g`xP`x@hHظ8pX@P `x@(L @H @@8 @( 0 `g`x@ @ lK_[j`xp`xxXp8J@ U`xND_L@ E_Xx@(8(@pU`x$j*,P`x@d @X` @\ @L @< @: ^`x@8  " `* * `x `x` x` x&j*,P` x` x0 xP^@d @` @\ @L `g` x@< @ : @8  " `* 8L `x` x(j*,P@d n` xo`x h P  h`g@` j`x6@\ @L @< @8: @8 " 4`68* P: `x`x.,P " @d `xo`xx@`(Xj@` @\ @X n`x@T @@D @4 @p2 @0 @ `  `xl @ ` x " @d @` `xph(H0n@X JPLN t`x@ h @d o`x`x@` @P @@ P(p`x@h`x8@> @< @, @( 0" "` &(o`xP " *`x8hl @h @d @` 0(p`x P @@ @> @< 0, ,.0* 2`x&`x0@P " 0(d @` `x`x`x` x`x`mK_[x p` мl `x`xpr`x`xSELECT BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.SOURCE_MAP_SCALE, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_COLLECTION_METHOD_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_REFERENCE_DATUM_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.DESCRIPTION FROM BEACH_LATITUDE_LONGITUDE_COORDINATE(px\ @X @H @8 &@6 H@4 x$ H xPLN t@h @d @` z`x(# 002P +$4H-P.X8(/PH% $3 0"8@/`"X$@2-6/208'hh  #@45h054(P&P 6.$"X0!X50 $3h/(3x3( !0P#H8x43@h40$X,h(X!"%%`(4Ѝ# `2@15%+@0p%p-(/5 "8.3!0`5/@:P@!+-P3h5$"x&0X %,PhXXHhHxP @@ @> @< x(, x( ` &(h(p` x" d ` @X nK_[oK_[PX!85.'xXCJ *\R4*#6a*\R4*#8$*\Rffff*024a55fc4c*\R3*#44*\R4*#8(*\Rffff*024a55fc4c\0(*\Rffff*024a55fc4c\2*\R0*#f*\R0*#13*\R3*#32*\R4*#1(*\Rffff*024a55fc4c\1*\R3*#37*\R3*#36*\R3*#35*\R4*#6*\R4*#3*\R3*#34*\R1*#af*\R1*#98*\R1*#99 @ $  >@ < : 8 >H > ~ ~ @~ .x~ &P~ @~ ~~ $}F}<P}6} }$|{ z(zy*py$Hyx(xn؊"hxw"wV`v"8vFuVuu$ttPxt$8qsB@s.r<q"FbhqRp&ppppp ,@p(ppo 2oooooX8o LHo " ooooo 4n n nhnPn 0n nmg$m"m0pm$Hm (m m&l(l,l $`l @l l*k kk*k$Xk"0k,k j"jj xj$Pj((j$j(i @(&i&i&`i00i ((؆&i $h,h(4Hh"8 ph"Hh*h*g*g"hgPg0g(g*f fff `f*0f$f&e*e||$e"`e&8e e dd" d&d"hd*8d,d c"c"c xcXc(0c(c,b0b(b$Xb @b bb"aaa ahaHa& a*`"` `$`h` H`$ ` `_,_&_"h_$@_ 8,*"*P8* (__ ^"^$^ (p^$H^(^.],]*] 2`] (8] H(]  ]]]]]\\\\\\\\\\\\\\\\x\ *H\" \*[8["[ [ &X[ pK_[ @[ 0Z Z >Z 6hZ (@Z 8Z >Y .Y >Y 8PY @Y"Y 0XXXXX  N`X"\8X) X $W(  W=W"W $pW(Ȃ>B0W0BW8BV8BV  $hVXV@V(VVU  2UU U U UU  hU XU PU HU @U 6T T >T 0XT (0T (T >S .S >xS 8@S <S 0R @R"xR ( 0HR@R8R0R(R  BQ.pQ)Q $pQ(  PQ=8Q"Q $P(2BP6BxP6B@P:BP2BO2BO $hOXO@O(OO  2NN N N NN  N pN hN `N @ N 2M M >M 6hM (@M 8M >L .L >L 8PL >L BK ,K DPK :K @J"$J 0JJxJpJhJ  JJJJIIIIII I  @`IJHI)0I (I((  H@BH2BpH2B8H2BH0BG>BG4BXG:BG2BF ( 6FF F FxF  XF HF @F 8F @E 4E E >xE :8E (E E >D .D >XD 8 D >C BC ,hC D C :B @B"$B  0XBPBHB@B8B  JAAAAAAAAA pA  D(AJA)@ ,@(H  @DB`@4B(@:B?2B? ( 6x?h? `? P?H?  (? ? ? ? @> ,> > >P> 6> (= = >= .x= >8= 8= >< Bx< ,H< D< :; @;"$h; 08;0;(; ;;  J::::::p:h:`: P:  ::J9)9 *9(h  9:BP9<B9:B82B8 ( @X8H8 @8 08(8  8 7 7 7 @7 2p7 h7 >(7 46 46 6 >p6 .@6 >6 85 @5 *X5 @5" 5 0444444/44qK_[4 p4 "H4 *4  D3.p3)3  &`3(  ,03 22:B2(:Bx28B@2 $22 (ȃ  *Vj ( >B1 >B1 0H BB` @Bx  $`1P1 (>B1<B0>B0BBJB   $h0X0 (  4؅,D @B DH8G@ LB  2H !80 J/ )0(  (/<B/ >Bh/ < $@/0/ (/  . . . .  .P  $(0  &x .  .6B`  <B  >X.H. @. 0.(.  . - - - @- 0x- p- >0- 4, 4, , >x, .H, >, 8+ @+ *`+ @ +" + 0*******  B`*.p0*)* &)((  ,)>)>B`)4B()BB(@B(  HX(@((( <B'8B'  :p' /P'(/('' (H DB& && &p& `&  X&P&  >&& % %%  % % % % @`% 6(%  % >$ :$ 4h$ `$ > $ .# ># 8x# >8# 4# @"" " 0x"p"h"  R"6!)! &!(h  ,h!0B8!8B!  >      p  `  X R 6) &( ,X0B(8B >   ` P H   V6) &x(( ,H0B8B >  xp  P @ 8 0 @ 8  >p <0 4  > . >@ 8 > 4 @P" 8 0  T*nx)`  ,06B       @` 8(   > < :` X > . > 8p <0 * @"   0xph  <((g) ((  :Bh>B(:B2B ( 4xhrK_[ ` PH  (    @ 2  >H 6 :  > .X > 8 < *p @0"   0  <(gp)X (0(Ȅ  <B >B 8B` :B 2B ( 4      `  P  H @ @ 2 0 >8 >ؖ "x  > . > 8X < *Д @" @ ( 0`  <(gp)  ((`     (P :B<BК %<B HBPFB %   (p %8B0:B %<Bh HBFB %  %8B  :@@    P   (X @ 2  > 8H 4  > . >X 8 B * @h "X 0(      8"\) "h=P  80g) > (  x :B8 8B "  6 )8BP @ 8 (   4       x h ` X @h 6(   h >p . > 8 @Џ"4H ( 8 & H(  6XP(H X  >`( ȏ Аؐ <((0 P` h :ؑ(  08  4h ( @ 2  @ "p h >( . > 8 >@ . , @ 0p @0",  @   (  .PH  F`  (8 @  8 @@    Љ ȉ   6 ph  80   opj.  B@H_  (dACH_2Set the element's value and add it to the documentnj X 'S, BEA ^!bK ^!`KTTO/No fancy processing for numeric or textual datsK_[aUT XYYYY-MM-DDTHH:MM:SS$' ^!* KT 9Convert the incoming date string to an XML formatted date (Now process the data based upon its typeLLCreate the new element FK_kh|h $P:Ensure we actually have data to move into the XML document]X]x    CTUAL_:*********************************************************** the data is handled9 eType - the type of the data, dictates how& vData - the data to addD ' new element7 strTagName - the name of the tag for the B1 add the data to7 objParentElement - the parent element toAS' data toTI7Input/Output: objXMLDocument - the document to add the XML document. CLASS: Description: Appends BEACH XML data to the current beach+ Name: AppendBeachXMLDataToDocumentD = 9*********************************************************od. B@B_ASSIGClean up our resourcesORGAd B@GN.EFFkd B@B_ORGANdd.   B@M -Finally add the role data to the root element BEA. B@BLE_ASSd B@'( z  ( FK_BEACH_ID % `A@ ! !b 0Add all of the assigned beaches to the procedureIV( z  &  `A@TATUS,( z   DESCRIPTION % `A@( z  "PROCEDURE_CODE % `A@.FK_PE Add the role data 7Create the procedure assignment section of the databaseCE ! ! L N  P ! B@2Check for assignments of this procedure to beachesID %'Get the current procedure IDID = ' ! !b J  P ! B@yy'));2Query the procedure table to return procedure data]]]])Variables used to create the XML document ( t:**********************************************************$ data forch dat; strBeachID - the beach ID to query procedureon key1 add the data to7 objParentElement - the parent element toct' data to7Input/Output: objXMLDocument - the document to add thece. assingments to the XML documenttyTy2 database to add beach and procedure8 Description: Procedure that manages the queries to theit+ Name: AddBeachProcedureInformationvityDe9*********************************************************o]. B@B Clean up our resources] B@ntLeng.   B@-Finally add the role data to the root elementActi( z  2STATUS % `A@( z  0EFFECTIVE_DATE % * A@ptionT( z  . FK_PERSON_ID % `A@( z  ,FK_ORGANIZATION_ID % `A@( z  *PERSON_ROLE_CODE % `A@tyInAdd the role data"Create the role assignment element ! tK_[!b F H  P ! B@6Query the beach org/role table to return the role data ]])Variables used to create the XML document ((Season:**********************************************************$ data for 6 strBeachID - the beach ID to query roleure1 add the data to7 objParentElement - the parent element tour' data tori7Input/Output: objXMLDocument - the document to add thead3 role assignments to the XML documentingAdd/ database to add beach and personre8 Description: Procedure that manages the queries to the, Name: AddBeachPersonRoleInformationeCode9*********************************************************oX. B@BingAddClean up our resourceserW B@nStat.   B@-Finally add the role data to the root elementmInt( z  2STATUS % `A@xt( z  0EFFECTIVE_DATE % * A@ramInt( z  ,FK_ORGANIZATION_ID % `A@( z  * ORG_ROLE_CODE % `A@hAccesAdd the role data"Create the role assignment element ! !b B D  P ! B@6Query the beach org/role table to return the role dataessT]])Variables used to create the XML document ((ective:**********************************************************$ data fornizati6 strBeachID - the beach ID to query role Beg1 add the data to7 objParentElement - the parent element toti' data toin7Input/Output: objXMLDocument - the document to add theai3 role assignments to the XML documentPerson5 database to add beach and organizationer8 Description: Procedure that manages the queries to theca2 Name: AddBeachOrganizationRoleInformation9*********************************************************ohR. B@B AddClean up our resourcestail(R B@onElec( z  ~ STATION_ID % `A@et%Add the standard activity information ! !b > @ X  R ! B@NQuery the beach activity station table to return the beach activity's stations8]p)Variables used to create the XML document !! :**********************************************************. reason data for(7 lngActivityID - the Activity ID to query1 add the data to7 objParentElement - the parent element topl' data todi7Input/Output: objXMLDocument - the document to add theat. information to the XML documentIndi5 database to add beach activity station88 Description: Procedure that manages the queries to the1 Name: AddBeachActivityStationInformation9*********************************************************oM. B@BClean up our resourcesM B@.  B@7Finally add the beach activity data to the root elementis( z   DESCRIPTION % `A@( z  TYPE % `A@%Add the standard activity informationCreate the beach detail element ! !b 8 : X  < \ P ! B@ddOQuery uK_[the beach activity reason table to return the beach activity's indicatorss . B@B Clean up our resourcesatiopK B@ .  B@nt7Finally add the beach activity data to the root elementad( z   DESCRIPTION % `A@( z  TYPE % `A@%Add the standard activity information Create the beach detail element** ! !b 8 : X  < Z P ! B@ dLQuery the beach activity reason table to return the beach activity's sourcesrn the. B@B detaiClean up our resources!HI B@.  B@7Finally add the beach activity data to the root element( z   DESCRIPTION % `A@( z  TYPE % `A@%Add the standard activity information Create the beach detail elementL_ ! !b 8 : X  < X P ! B@PTLQuery the beach activity reason table to return the beach activity's reasons ]@]`)Variables used to create the XML document !! j:**********************************************************. reason data for7 lngActivityID - the Activity ID to query o1 add the data to7 objParentElement - the parent element to' data toou7Input/Output: objXMLDocument - the document to add thes . information to the XML document 4 database to add beach activity reason: obj8 Description: Procedure that manages the queries to the 0 Name: AddBeachActivityReasonInformation- 9*********************************************************o D. B@B Clean up our resourcestionC B@(.  B@ 7Finally add the beach activity data to the root element**kpC.  B@p ( z    ` B@ t ' z    ` B@ ( z  EXTENT_START_MEASURE % ` B@l da $ $esEXTENT_UNIT_OF_MEASURE %' EXTENT_LENGTH %'3Determine if extent data should be added to the XML% ( z  COMMENT % ` B@ ( z   DESCRIPTION % ` B@0 z   B@ z   B@itAAdd activity reason and station data if it exists in the database ( z  |ACTUAL_STOP_DATE % * B@ ( z  zACTUAL_START_DATE % * B@FFIX  ( z  xNAME % ` B@E  ( z  v ACTIVITY_CODE % ` B@_N ACTIVITY_ID %'l%Add the standard activity information lCreate the beach detail element ! !b 4  6  P ! B@ o;Query the beach activity table to return the beach activity******]0]H]]]] )Variables used to create the XML document ((( cripti:**********************************************************$ data for : strBeachID - the beach ID to query activity1 add the data to7 objParentElement - the parent element toEl' data to 7Input/Output: objXMLDocument - the document to add thetr. information to the XML document - database to add beach activity(8 Description: Procedure that manages the queries to thekt* Name: AddBeacvK_[hActivityInformation9*********************************************************o;. B@B******Clean up our resourcesh; B@(.  B@ t8Finally add the beach attribute data to the root elementhe. Add Beach Tier data % Clean up objRSPol B@Bn up o. B@]  ! B@ta.B B  B@toAdd the individual data pieces < z B POLLUTION_COMMENT % `A@ss0 z B POLLUTION_SOURCE % `A@ to "Add all pollution sources/comments ! !b  B@    P'  B@ Add the individual data pieces ( z  MONITOR_FREQ_UNITS % `A@PO( z  OFF_MONITOR_FREQ % `A@CODE( z  SWIM_MONITOR_FREQ % `A@  B@Add the individual data piecesDDRE, z  SWIM_SEASON_LENGTH % `A@, z  SWIM_SEASON_UNITS % `A@  B@Add the individual data pieces****( z   EXTENT_UNITS % `A@( z   EXTENT_LENGTH % `A@dure t( z  EFFECTIVE_YEAR % `A@dresse+lngActivityID = objRS.Fields("ACTIVITY_ID")&Add the standard attribute informationcumeCreate the beach detail elementat ! !b 0  2  P ! B@=Query the beach attribute table to return the beach attribute str#Dim vExtentUnitOfMeasure As Variant@Dim vExtentLength As Variantn for,Dim lngActivityID As Long] ] ] ]X ]x ] ] ] )Variables used to create the XML document (( :**********************************************************$ data for : strBeachID - the beach ID to query activity1 add the data to7 objParentElement - the parent element to' data to7Input/Output: objXMLDocument - the document to add the. information to the XML documentct d. database to add beach attributeb8 Description: Procedure that manages the queries to the+ Name: AddBeachAttributeInformation9*********************************************************o0. B@B `A@Clean up our resources0 B@%.  B@9Finally add the telephone number data to the root element( z  :STATUS % `A@( z  8EFFECTIVE_DATE % * A@es0( z  6TELEPHONE_NUMBER % `A@****( z  4TELEPHONE_CODE % `A@lephonAdd the contact data8#Create the telephone number element ! !b  ! B@4Query the telephone table to return the contact data: obj  P'thk0. '  , ' d. '  * '8  jbj ('DCreate the SQL based on the data type, either organization or persond the ]P ]h ] ] )Variables used to create the XML document ((( :**********************************************************4 either person or organizationtype o= cktKey - the type of address data to query forpers& organization****; information for, either person or(8 strKeyID - the key value to query address1 add wK_[the data to7 objParentElement - the parent element to' data to7Input/Output: objXMLDocument - the document to add theon" to the XML document0 database to add telephone numbershe8 Description: Procedure that manages the queries to the& Name: AddTelephoneInformationPHON9*********************************************************o). B@B8Clean up our resourcesCTIVH) B@dA@.  B@0Finally add the address data to the root elementad( z  STATUS % `A@( z  EFFECTIVE_DATE % * A@ resou( z  ADDRESS % `A@****( z  ELECTRONIC_ADDRESS_CODE % `A@ AddAdd the contact dataz %Create the electronic address elementhe ! !b  ! B@ri=Query the electronic address table to return the contact data  P'tpk& '  , 'o add& '  * '  j &'DCreate the SQL based on the data type, either organization or person ] ] ]]0)Variables used to create the XML document (((P:**********************************************************4 either person or organization dat= cktKey - the type of address data to query for& organization; information for, either person or(8 strKeyID - the key value to query addressat1 add the data to7 objParentElement - the parent element tob' data to7Input/Output: objXMLDocument - the document to add the**" to the XML document3 database to add electronic addresses`A@8 Description: Procedure that manages the queries to the_L. Name: AddElectronicAddressInformationNT_U9*********************************************************o@". B@B%Clean up our resources" B@ %.  B@0Finally add the address data to the root element ( z  STATUS % `A@be( z  EFFECTIVE_DATE % * A@OR_FRE( z  ZIP_CODE % `A@MONI( z  STATE_POSTAL_CODE % `A@R_( z  CITY % `A@( z  LINE_3 % `A@y to r( z  LINE_2 % `A@P'( z  LINE_1 % `A@b( z  MAILING_ADDRESS_CODE % `A@Add the contact dataLLUTIO"Create the mailing address element ! !b  ! B@in:Query the mailing address table to return the contact data  P'k '  , 'd '  * '  jh $'DCreate the SQL based on the data type, either organization or personlly ad](]@]X]x)Variables used to create the XML document (((:**********************************************************4 either person or organization(= cktKey - the type of address data to query for Pro& organization0; information for, either person or inf8 strKeyID - the key value to query addressbj1 add the data to7 objParentElement - the parent element txK_[oEl' data to 7Input/Output: objXMLDocument - the document to add thetr" to the XML document0 database to add mailing addresses**8 Description: Procedure that manages the queries to the+ Name: AddMailingAddressInformation9*********************************************************o. B@B beachClean up our resources6 B@ ..  B@b,Finally add the org data to the root element% z   lA@st z   lA@at z   lA@D  B@atAdd the individual data piecesE ( z  TITLE % `A@ME ( z  SUFFIX % `A@TUAL_S( z  MIDDLE_INITIAL % `A@|( z   LAST_NAME % `A@vi( z   FIRST_NAME % `A@e( z  ACTIVE % `A@8Create the name detail section0( z    `A@ ` ID %'ine Add the org identifiered tCreate the org detail elementNIT_ ! !b .  ,  P ! B@<Query the person table to return the person name detail data B@]`]x]])Variables used to create the XML document ((tr:*********************************************************** people data for5 strOrgID - the organizationID to query1 add the data to7 objParentElement - the parent element toea' data toro7Input/Output: objXMLDocument - the document to add theat" to the XML document* database to add person data8 Description: Procedure that manages the queries to thead/ Name: AddOrganizationPersonInformation9*********************************************************o. B@B Clean up our resources  B@ - the..  B@,Finally add the org data to the root element8 z  A@****** z   jA@** z   jA@8 z   jA@s  B@ tAdd the individual data piecesP( z   ABBREVIATION % `A@( z   DESCRIPTION % `A@( z  NAME % `A@( z  ORGANIZATION_CODE % `A@adCreate the name detail section ( z    `A@0ID %'RIPTAdd the org identifier8Create the org detail element ! !b "  P ! B@ resouHQuery the organization table to return the organization name detail data r]]]])Variables used to create the XML document (or:**********************************************************1 add the data to7 objParentElement - the parent element to' data to 7Input/Output: objXMLDocument - the document to add theel" to the XML document0 database to add organization data8 Description: Procedure that manages the queries to theth) Name: AddOrganizationInformation9*************************************************************** End API constants ******]5]'Path must existformat]5'%Save As: prompt before replacing file]'Read only button hidden ]5(File must existh acti]5'yK_[Look is like Explorer p ^ ^p^^^^^^^^0^H^`^x^^^^^^^ 8Pct!****** Begin API constants ******,****** End XML Document tag constants ****** the]LocationDataCompleteIndicatorX5 activ]MonitoringDataCompleteIndicatortion]"NotificiationDataCompleteIndicator05tp]CompletionYear 6docume]YearCompletionIndicators@: "Year Completion Indicators Section]TelephoneStatusIndicator5leme]TelephoneEffectiveDateX ]TelephoneNumberText4]TelephoneTypeCodeheTelephone section]BeachRoleStatusIndicator4 rea]BeachRoleEffectiveDate******]BeachRolePersonIdentifier4**]BeachRoleOrganizationIdentifier to ]BeachRoleTypeCodeh4 Role sectionach ac]ProcedureBeachIdentifiereach]ProcedureIdentifier@4]ProcedureTypeCodeH]ProcedureDescriptionText4(Procedure section]PersonTelephoneDetailx~ ]PersonElectronicAddressDetail3`A@]PersonMailingAddressDetailbe]NamePrefixText3]NameSuffixText******]PersonMiddleInitial3]LastName Add] FirstNamex3nf]PersonStatusIndicator8: Pro]PersonNameDetailP3ies ]PersonIdentifierh datPerson sectionnd o]OrganizationPersonDetail(3 rol]OrganizationTelephoneDetail]#OrganizationElectronicAddressDetail3] OrganizationMailingAddressDetail ]OrganizationAbbreviationText2]OrganizationDescriptionText]OrganizationName2 ]OrganizationTypeCode(]OrganizationNameDetail2the be]OrganizationIdentifierX Organization section to] ElectronicAddressStatusIndicator`2****]ElectronicAddressEffectiveDate(]ElectronicAddressText@1ument]ElectronicAddressTypeCodeorElectronic address section]BeachRoleDetail0 ]BeachActivityDetail]BeachAttributeDetail0]BeachAccessibilityCommentX0w]BeachAccessibilityTypez ]BeachAccessibilityDetail00A@]ProgramInterestFIPSCountyCodeATION_]ProgramInterestCommentText0 ]ProgramInterestStateCode8A@]ProgramInterestDescriptionText/%]ProgramInterestNameh]BeachNameDetail/elem]BeachIdentifier Beach section]MailingAddressStatusIndicator/ forma]MailingAddressEffectiveDate]AddressPostalCodeh/**] StateCode  ]MailingAddressCityName@/]MailingAddressStreetLine3TextPt mana]MailingAddressStreetLine2Text/(] ActivityName8(]MailingAddressStreetLine1Text and p]MailingAddressTypeCode.assignMailing address section]BeachTierRankingocum]BeachPollutionSourceDescriptionh ]BeachPollutionSourceCodeX8]BeachPollutionSourceDetailHre]$MonitoringFrequencyUnitOfMeasureCodeX]OffSeasonFrequencyMeasureh ]SwimSeasonFrequencyMeasure@y ]MonitoringFrequencyDetail. ]SwimSeasonUnitOfMeasureCodeЍ]SwimSeasonLengthMeasure6****]BeachSwimSeasonLengthDetail]ExtentUnitOfMeasureCode-le t]ExtentLengthMeasure]BeachExtentDetail- ]AttributeEffectiveYear Beach Attribute sectionnt] ActivityIndicatorDescriptionTextp-ata]ActivityIndicatorType0E_CODE]ActivityIndicatorDetailH- ]ActivitySourceDescriptionText`]ActivitySourceTypeX,SO]ActivitySourceDetail]zK_[ActivityReasonDescriptionText,dA@]ActivityReasonType]ActivityReasonDetail+Beach Activity Reason Sectionhe r]ActivityExtentUnitOfMeasureCode]ActivityExtentLengthMeasure+]ActivityExtentStartMeasure ]ActivityExtentDetail+]ActivityCommentTextP ]ActivityDescriptionText(reIn]#ActivityMonitoringStationIdentifier ]ActivityActualStopDate`( the]ActivityActualStartDate bea]ActivityTypeCode Beach Activity sectiondocu]BeachProcedureDetail'] BeachDetail!]OrganizationDetail&]BeachDataSubmission&Main document sections obj.****** Begin XML Document tag constants ****** xA@lA@j @!organization or person keysachID EEnumeration to determine which data key should be operated on, eitherta fA@dA@bA@` X!,Enumeration used to help build XML documents(] INDICATOR% t]SOURCE!]REASON%&Reason,Source, and Indicator Constantsoced];%q]', 'mm/dd/yyyy'));!]';"] WHERE FK_PROCEDURE_ID = 'p%pr]ESELECT BEACH_PROCEDURE_ASSIGN.FK_BEACH_ID FROM BEACH_PROCEDURE_ASSIGN0"ure to] WHERE FK_ACTIVITY_ID = "]USELECT PROCEDURE.ID, PROCEDURE.PROCEDURE_CODE, PROCEDURE.DESCRIPTION FROM [PROCEDURE]H%he dat]/ WHERE BEACH_PERSON_ROLE_ASSIGN.FK_BEACH_ID = '`"8]!SELECT BEACH_PERSON_ROLE_ASSIGN.PERSON_ROLE_CODE, BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_ID, BEACH_PERSON_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_PERSON_ROLE_ASSIGN.STATUS, PERSON.FK_ORGANIZATION_ID FROM PERSON INNER JOIN BEACH_PERSON_ROLE_ASSIGN ON PERSON.ID = BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_ID % r]5 WHERE BEACH_ORGANIZATION_ROLE_ASSIGN.FK_BEACH_ID = '"t]SELECT BEACH_ORGANIZATION_ROLE_ASSIGN.ORG_ROLE_CODE, BEACH_ORGANIZATION_ROLE_ASSIGN.FK_ORGANIZATION_ID, BEACH_ORGANIZATION_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_ORGANIZATION_ROLE_ASSIGN.STATUS FROM BEACH_ORGANIZATION_ROLE_ASSIGN$each]DSELECT BEACH_ACTIVITY_STATION.STATION_ID FROM BEACH_ACTIVITY_STATION$] AND CLASS = '" ] WHERE FK_ACTIVITY_ID = $8]|SELECT BEACH_ACTIVITY_REASON.CLASS, BEACH_ACTIVITY_REASON.TYPE, BEACH_ACTIVITY_REASON.DESCRIPTION FROM BEACH_ACTIVITY_REASON #]I', 'mm/dd/yyyy')) AND BEACH_ACTIVITY.ACTUAL_START_DATE <= CDATE(FORMAT$('$o]9' AND BEACH_ACTIVITY.ACTUAL_START_DATE >= CDATE(FORMAT$('P#]' AND FK_BEACH_ID = 'X$ent]ISELECT BEACH_ACTIVITY.ACTIVITY_CODE, BEACH_ACTIVITY.NAME, BEACH_ACTIVITY.ACTUAL_START_DATE, BEACH_ACTIVITY.ACTUAL_STOP_DATE, BEACH_ACTIVITY.DESCRIPTION, BEACH_ACTIVITY.COMMENT, BEACH_ACTIVITY.EXTENT_START_MEASURE, BEACH_ACTIVITY.EXTENT_LENGTH, BEACH_ACTIVITY.EXTENT_UNIT_OF_MEASURE, BEACH_ACTIVITY.ACTIVITY_ID FROM BEACH_ACTIVITY#] WHERE FK_BEACH_ID = '0$te the]|SELECT BEACH_POLLUTION.FK_BEACH_ID, BEACH_POLLUTION.POLLUTION_SOURCE, BEACH_POLLUTION.POLLUTION_COMMENT FROM BEACH_POLLUTION#]' AND FK_BEACH_ID = '$^]' AND FK_ORGANIZATION_ID = '0]SELECT PERSON.ID, PERSON.ACTIVE, PERSON.FIRST_NAME, PERSON.LAST_NAME, PERSON.MIDDLE_INITIAL, PERSON.SUFFIX, PERSON.TITLE FROM PERSON] WHERE FK_PERSON_ID = 'ach ] WHERE FK_ORGANIZATION_ID = 'cation]vSELECT TELEPHONE.TELEPHONE_CODE, TELEPHONE.TELEPHONE_NUMBER, TELEPHONE.EFFECTIVE_DATE, TELEPHONE.STATUS FROM TELEPHONE]SELECT ELECTRONIC_ADDRESS.ELECTRONIC_ADDRESS_CODE, ELECTRONIC_ADDRESS.ADDRESS, ELECTRONIC_ADDRESS.EFFECTIVE_DATE, ELECTRONIC_ADDRESS.STATUS FROM ELECTRONIC_ADDRESSh]SELECT MAILING_ADDRESS.MAILING_ADDRESS_CODE, MAILING_ADDRESS.LINE_1, MAILING_ADDRESS.LINE_2, MAILING_ADDRESS.LINE_3, MAILING_ADDRESS.CITY, MAILING_ADDRESS.STATE_POSTAL_CODE, {K_[MAILING_ADDRESS.ZIP_CODE, MAILING_ADDRESS.EFFECTIVE_DATE, MAILING_ADDRESS.STATUS FROM MAILING_ADDRESS@]SELECT ORGANIZATION.ID, ORGANIZATION.ORGANIZATION_CODE, ORGANIZATION.NAME, ORGANIZATION.DESCRIPTION, ORGANIZATION.ABBREVIATION FROM ORGANIZATION ]WaterBodyNameCodeAM]WaterBodyTypeCodeMM] WHERE SEND_TO_EPA = 'Yx SQL Constants])http://www.w3.org/2001/XMLSchema-instancePCo]/http://www.exchangenetwork.net/schema/BEACHES/2(he f]9http://www.exchangenetwork.net/schema/BEACHES/2 index.xsd**Name of default BEACHES schema****tt:********************************************************** or michael.klos@cgifederal.comh( Michael Klos (CGI Federal) 703-652-0425n 9 If you have any questions about this code please contact monitoring data.8 This database will not generate XML documents for beach 7 activity, and procedure requirements of the BEACH act. 2 generate XML for the organization, person, beach,4 the BEACH act. This database, once populated, will 6 submission to the US EPA based on the requirements of****8 This database can be used to generate XML documents for u BEACH Activity XML Generator9*********************************************************kd( !add the swim season length number]SwimSeasonEndDatehod *else add the start and end date to the XML, z   SWIM_SEASON_END_DATE % dA@#if there isn't a start and end dateRE FK_SWIM_SEASON_START_DATE %$SWIM_SEASON_END_DATE %$"S]SwimSeasonStartDate, z   SWIM_SEASON_START_DATE % dA@S, ELE p " z% ., BE  " z% .NGTH  " z% .N_UN  " z% .ASON  " z% ..SWI  " z% .RIBU  " z% .ATTR  " z% .H_AT  " z% .ROM  " z% .w  " z% .IVE_  " z% . FRO  " z% .SE  " z% .ZATI  " z% .ZATI  " z% .PTIO  " z% . SE  " z% . EACH t " z% .  BEA  " z% .FIPS  " z% .tyRedkA@* ?Convert the incoming dateTime string into an XML formatted dateAc ^!dKT = o X YYYY-MM-DD$'AI.If there are no pollution sources, add elementCHES+Else, query to return any pollution sourcesn any =Else, if the pollution sources are univestigated, add element P " z% .B a piAdd the individual data piecesg ]MonitoredIrregularlyComment]NoPollutionSourcesIndicator]MonitoredIrregularly]'PollutionSourcesUninvestigatedIndicator)ht0 z  < NO_POLLUTION_SOURCES % N A@0 z  > POLLUTION_SOURCES_UNINVESTIGATED % N A@workNO_POLLUTION_SOURCES %YNa POLLUTION_SOURCES_UNINVESTIGATED %YeSet Pollution Detail to nothingH_( z  F MONITORED_IRREGULARLY % N A@_UNITS( z  H MONITORED_IRREGULARLY_COMMENTS % `A@TRIBUTA@N 9Convert the incoming date string to an XML formatted date ^!N KTREGUtrue' X Yfalse' d X Ne (vDat'kPs]BeachPollutionSource8.Add Beach Act Beach data]BeachActBeachIndicatorACH_AT, z   BEACH_TIER % `A@IT, z  T BEACH_ACT_BEACH % N A@0r]aSELECT BEACH_ATTRIBUTE.EFFECTIVE_YEAR, BEACH_ATTRIBUTE.EXTENT_LENGTH, |K_[BEACH_ATTRIBUTE.EXTENT_UNITS, BEACH_ATTRIBUTE.BEACH_TIER, BEACH_ATTRIBUTE.SWIM_SEASON_LENGTH, BEACH_ATTRIBUTE.SWIM_SEASON_UNITS, BEACH_ATTRIBUTE.SWIM_SEASON_START_DATE, BEACH_ATTRIBUTE.SWIM_SEASON_END_DATE, BEACH_ATTRIBUTE.SWIM_MONITOR_FREQ, BEACH_ATTRIBUTE.OFF_MONITOR_FREQ, BEACH_ATTRIBUTE.MONITOR_FREQ_UNITS, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY_COMMENTS, BEACH_ATTRIBUTE.NO_POLLUTION_SOURCES, BEACH_ATTRIBUTE.POLLUTION_SOURCES_UNINVESTIGATED, BEACH_ATTRIBUTE.BEACH_ACT_BEACH FROM BEACH_ATTRIBUTE]] (dion9********************************************************* Description: Add " z% . TTRI2Add the elements of the schema to the XML documentCreate YearCompletionIndicatorsss " z% . RIBU7Input/Output: objXMLDocument - the document to add theS,' data toTE7 objParentElement - the parent element to1 add the data to/Create Year and add to YearCompletionIndicatorsy B@] " z% . ta fd:**********************************************************  o0o0 Name: AddEndOfYearCompletionInformation7Create Notification and add to YearCompletionIndicators true (dfalse (dkxn B@5Create Monitoring and add to YearCompletionIndicators]( " z% . true (ddmfalse (dkm B@3Create Location and add to YearCompletionIndicators] " z% . true (ddmfalse (dkl B@ ----!- -Finally add the role data to the root element B@. 9*********************************************************, Name: AddBeachCoordinateInformation data 8 Description: Procedure that manages the queries to theet XML documentdd bea7Input/Output: objXMLDocument - the document to add the ' data tobl7 objParentElement - the parent element toyv1 add the data to6 strBeachID - the beach ID to query role $ data for@j:********************************************************** ))oi)Variables used to create the XML document]]h6Query the beach org/role table to return the role data . B@ment.a B@BeachRo."Create the role assignment element B@roClean up our resources   P ! B@ ! !b]BeachCoordinateDetail7 database to add beach coordinates to the o]: WHERE BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID = 'AT " z% . _LATAdd the coordinate dataES% z END_LONGITUDE % `A@Add the end point% z DESCRIPTION % `A@% z END_LATITUDE % `A@% z SOURCE_MAP_SCALE % `A@ORDI% z REF_H_COLLECTION_METHOD_NAME % `A@% z REF_H_REFERENCE_DATUM_NAME % `A@H_Coorinate section]HorizontalCollectionMethodNameitudeM]LatitudeMeasure]LongitudeMeasureLATI]SourceMapScaleNumericz ],HorizontalCoordinateReferenceSystemDatumName ]BeachCoordinateDescriptionText " z% . H_RE " z% . `% z START_LATITUDE %}K_[ `A@A@% z START_LONGITUDE % `A@% z SOURCE_MAP_SCALE % `A@% z REF_H_COLLECTION_METHOD_NAME % `A@% z REF_H_REFERENCE_DATUM_NAME % `A@ B@ . B@. ]]Add the start pointTUM_NA3Finally add the coordinate data to the root elementp`]BeachCoordinateStartPointDetailemen]BeachCoordinateEndPointDetail. ]SELECT BEACH.ID, BEACH.NAME, BEACH.DESCRIPTION, BEACH.COMMENT, BEACH.STATE_POSTAL_CODE, BEACH.FIPS_COUNTY, BEACH.WATERBODY_NAME, BEACH.WATERBODY_TYPE, BEACH.ACCESS_TYPE, BEACH.ACCESS_COMMENT FROM BEACHPDI]SELECT BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.SOURCE_MAP_SCALE, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_COLLECTION_METHOD_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_REFERENCE_DATUM_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.DESCRIPTION FROM BEACH_LATITUDE_LONGITUDE_COORDINATE@`]SELECT BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.SOURCE_MAP_SCALE, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_COLLECTION_METHOD_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_REFERENCE_DATUM_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.DESCRIPTION FROM BEACH_LATITUDE_LONGITUDE_COORDINATE@]~K_[K_[K_[K_[K_[K_[kAttribute VB_Name = "modSharedXML" '*5v BEACH Activity  Generator>"This database can be used t(o g,e9documents f= submi ssion+the US EPA2 Jd re quire9ofs*act. A,ce populated, willFA #organizatC, p@erson,aa8ch,0~, and procedure K%IB not:monihing.  If you haveFy ques-s abouFt bcod@?lbecont0Michael Klos (CGI Fed@rl) 703-652-0425 or mC .k@ @cgif .com@** Op, ExplicitCompY D 'of defaultCES schema Global Const SCHEMA_LOCATION As S@Qhttp://@www.exBntwork.n(et//pES/2 indexp.xsd@J_DNAMESPALCE W3w3.X/2001J/@tSB#-i "ance @6SQL $ap&QL_SEND_TO_o& WHERE a= 'Y _#_!_DETAIL+"SELECT#8.ID,$eDESCRIP7ECOMMENTSTATE_POL_CODBEFIPSU(NTYEW@RBODYbTYPACCESS_P FROMC1qORG>`ANIZbS $$J%*ABBRxEVI`"M5ING_ADDR !R7l.LINE_1, 23CIA;GBMZIPTEFF@RIVE_D`EO `( q(\`RONIC(.O$p$4, p /.9 o L_T`PHONN<. E_NUMBER, -  V q@NTACT_J_.+$LFK8_ID'PERSd'iU;oQpidcbA ), FIRSTL $LAMIDDLE_INITIALSUFFIXTITLEMsOL_3' AND  yATTRIBUsp[oa "c.1g!YEA#XT`a_LENGTH]_USTI(SWIMpA0s .9/*,RT$F_1xH_PMETOR_FREQ? OFF_H8_o b 4ED_IRREGULAR~Luk`?z.DNO0{LLU}_0SOURv/ PO,Q NVESTIGY%xt?3-7DU'-L- "-B- K2SU.P3UV.$oW1o "7M8qCTIVxLL32L.a/UATA3sAOP5_o 5vEC3;MEASURUDGe!6_OP9O7&" _P$}E As String = "' AND FK_BEACH_ID'" Global Const SQL_ACTIVITY_DATEZGIN X.UAL_ STARTr >= CB(FORMAT$( mE , 'mm/dd/y')){<+{REASOrSELECT  5_.CLASS,TYPE DESCRIPTI7FROM!A_WHERE1}  y2:~5JoP .(B.=ByORG_8ROL0ANXIZA: _IGN._CODV @IDŋ EFFIVE FUS *5 +K_[!CM2M"PERp/.II/P--C,, C. J,/ INNER JO&H `=.A ID7D!Z>8i$ZbrCOORD\INKD gL@fTUDE_LONGI"e %[`/ea_ ~e ." ISOURCE_MAP_SCAL&REF_HL_METHOD_NAM?.PdNzUMo.lo *L4@ * "\c"$ok3PROCEDU~R^1p8=._vQ^w[]6L3JX^}?OF@w@Bx_TEXLT_@0 ';L#_NUMERI~CO?S'ݢ 'Reason,Source, and IndicatorantstQe`$"^ ;E>ob al Const XML_TAG_TEL_STATUS As String = "TelephoneStatusIndicator" 'Yearmple`tion <ec$ GlobYEAR_COMPLETION_INDICATOR ~`Co_^~WCI_[ AO;NOTIFIDJ!NotificiajData*eJ+MON"InING*Moni.)LOSLo'* EndA Document tag cants C By Begin APIR Declare Fun~ GetSaveFileName Lib "comdlg32.dll" Alias _  " A" (pOpenf@nAOPENFILENAME)!RLong)TyXpe IluctSize hwndOwnerKI@anc lpstr@1tC CACustomMaxC+ lex E  &eTitlU -IOialDib  flagsi!@OffsetIntegerb#BExtens@7Def&W(fnHo$okTe atK@ A[BCʄOFN_EXPLORER&H80#1 'L is likeK_[ ExpplorAOMUSTEXISTUb1A'3mA `existHIDEREADO(NLY4Read only butthiddenOVERWRITEPR 12 'l#: pr t bef` replach PATH+! 'Path ALLOWMULTISELEC00k'Ék. A:&bAddOrganizaIn mB`DescripProceduthat manages the querziaoA database `to ad6 O ! dd@Input/Outobj`ư-% k /` P`ntEleSp2 0~`oO{ * Public Sub or(ByRef  ?MS2.DOM40,%e IOM)1EQ'Variabl0#usedqcreH0HDim +N +S Q/DetailP_{ZcNew FDB.Record`ZW{@m3DT 'Q1y2 o)/0g .return={d3 "RS.Q} SQL_ORG_|_DET AIL &RSEND_TO_EP2AWHS0XT_, Curr0: x@  Des0cripProcedurehat managesBkqueri?ozbas o">pJ>s$@ ~ ds@Input/Out(`%x -"% dK to/` N pPS`  e] ID `b!,y{ peopleciF5 PublicAP~F(ByRefDm2As MS42.DOM40, _c_o1// K1G I@OMDŽ H ByV/` Str)#'Variab"l`useo createe Y!Dimd%#UC M YNew ADODB.Recorxdse !D `c!'Q@}6yBmxtSrePturnIn@y dRy>.O@| SQL_PERSON_NAME_DETAIL &SEND_T`O_EPAWHERE Vb@_TEXT_, Curb`Kjy.Connp PDo W0ea` (C EOF Orq ^BOF\ 1 'CkCkgX=0."Node(NODE_ELEMENT,a#_TAG_ORG, BEAC HES_SPMASPACE '^b idsifxierY Fields("ID"HABeach17Toe \ % _1_@?H ,_!I(s !(5_"_VR #,o0.m?L |STATUS_P?/%ACTIVEϻ G,_F? b O FIRST     b8L Q ? LA ?+ MIDDLE  @_INITIAL_`_ _ _ _ W SUFFIX_ 6 k p TIT/   ??b7YVL}CX'dd!o]d AddElectronic`ressInformation objXMLDocument,: MA?@  Descrip Procedure@iat ma nageslqueriBpQwbas@o}mAE'K  dDInput/Out@%@R -#E A@LO ʞDp£ ?VKeyIDDkey valu߂'-"g& i@, eir pn`raniz>aA? typ`xfe9FyC@ ;Mg]5 Publicg:](ByRefDE@ As MSJ2.DOM40, _u=I KGG IVOMEleᙃ ByVal0E` Str y8eContact T9)A'Variab"l {useo creat@QHsDim$)  )+C)dNew ADODB.RecordsebSQLa3ǃ Tag-'C'n@c _QeC = _MAILING_ADDRESS#If (%*=OrY) Then% & CONTACT_WHERE_ORG &v= 0_TAGp_DET0 EvleLpa PERSON/P +?jIf =  TEX`T_ENDS'Q`dy b tQ(A\returcC+GpZ`yOp$`, CurAkju.p)npВD(o We (EOF Or,BOF05% 1=25F.5Node(NODE_ELE0MENT, BEACHES_SPMA_NAMESPACEX  /} A"Beach$:To7 դ ,'0_TYPEGa?Fields(" 4_C"), xdtT6qO O ,O 3B 2  ? _2     3  O _3 ?    r CITYo ?k O O O O O B STAT/5O[ _POpL4%/ / / / " ZIPK_[oAF@V5@ U    r D EFFECTIVE_ `;eTim/ / / , صAG_MAIL_STATUS, _ $objRS.Fields(""), xdtText')'Finally add theress d@ata toroot elemendParE.appendChild XMLContactDKrSet = Noth8ing!wMoveNnLoop'Clean up our c\ces C0lose=RS 7 End Sub '*5 Name:Addctr0onicInformation Descr ipAProc edure_at managesBbquerifGAmbas@oBtmvF' yAl docuy'@Input/Out&SD -$E A%  O JDpB @ strKeyIDDkey valuOZlitB v, ei@r person orZorganizAL%ckt type ofe9tC@ M*4 Pub(licg ](B0yRefIAs MS K2.DOM40h% GG IAWOME aj Val fE` S|tr@9ekĢ:T:)c'Variabl`|use@o creat R@(t Dim *c dNew ADODB.RecordseD@SQL  Tag-'C' nÅd_RfC = _ELECTRONIC_ADDRESSIf ()+= Oj) xThe1 &" CONTACT_WHERE_ORG &=c @a= 0_Tp_DETa#EldA =  PERSON/.?kIf  TEXT_ELNDS'Q0ey3b t(]retur#cS}G3@[zOt, C urlject:. /np"oqDo WeQ (EOF Or,BOF11 &? A(=3G.6Node(NODE&MENT,1 , BEA@CHES_SPMA_NAMESPACE H PR1 A’Beach$To ,dC,6('_TYPEHa?15_C   a} (  O{ T@    ժ| DAT'?FFKIVE_ `eTima/ / / / "!œ _K H0dᔖљQ|q>>? SurſѝTPphoneooo"Jo3mt5 numbPM??ŖO??w _$Դ? ,x?Qtry addre@ss ' information $, either pers$orzorg0aniz|PcktKey - Q type of data to quezh v*6 Public Sub AddTelephoneI(ByRef objXMLDocument As MS2.DOM 40, _ ,Par)(Ele -I8OM -Val st@rKeyID+String*p:eContacs"Tr) 9'Variables usedtcr0eate|/ dcDL DimDRDOSK< RSA1New ADODB.RecordsetG ;SQL;1JTagM'CG,baA2 2.x"pssivity "fB!M#˟tIz Lo5ЯzT=__uWV6Detaildʟ wExt.V SwimSea(MonitorFre`=8ncyPollu!CS"OonȀ;RS t07`'lngAct7P8LongvLength#n"vExtentUnitOfMeasure As Variant 'Query the beach attribute tabl o re0turnFobjRS.Open SQL_ATTRIBUTE_DETAIL &SEND_TO_EPA(WHEREstrB ID"_TEXT_>, CurrProjec@t.ConnionDo WhiNot (KEOF Or BOF)`'Crea|detail elem;Set(PXMLAD=! Docu.c)Node(NODE_ELEMENT, _TA`G_BCH, BEACHES_SMA_NAMESPACE\YAddsta ndardinformatG;'lngActipvityY+@oFields("ACTIVITY_HID"Ap@wdf-DataTo{E8 <, F;}_EFF_YEAR, _2cWpE*E+E"), xdtTexGiB.Ci-Xn hK(LLLEN)9LXTN_GTvH%L><_UNI&<?<S'E`indZdual d T piecesK WR.aB[C>d$WnAJSwimSonJJSWIM~#g'if~isn't a rnd e`eIf IsNullDEh_SEASON_START_DATE")x) A`^ Thed8'a%$ s$ length numberaOO/+f_fO$xg__%Cg''? c4UElsH#Q'Je  ta,&K_[ tog`5nbqT6DPr7*oPE /Emlo~uQ 3 ?  9p E1=fwTT` TTTMo orFrequencyoT#?=!"FREQoTߓ  qF}_B_MOsOR_o   it _OFF +  m l R  /     _IRREGK A TOREDU LARLYT$YNG8/ / / / / _COMMrΟ  u1 WMߟMML@@WNPolluQSourceONONANPOLLNNy  'If there ano pollution sources, add eleme ntpnobjRS.Fields("NO_POLLUTION_SOURCES") = "Y" Thenv|AppendBeachXMLDataToDocue Y,PSDetail, )_TAG_AT T_BCH_NONE, _ s!j, xdtYN .'Else8, iunivestigaxted#_UNINVESTIGATED!=_":Sbwcquery to return an>yOfG ^GstrSQL@@RIBUTE & _WHEREBID _TEXT_ENND B.O@ , CurrProject.pConnDo While Not (FEOF OrAiRS 0BOF) Setm@ r.cre`WNode(NODE_ELEMENTr#, BEACHES_SMA_NAME`SPACEp'"A@all/7/comAs?L4TCD\a*l&2%\")ZTex譅?L?#DESC?COMF O#E individual d@ pie@@\#.a"C@kdSd ishing/f(MoveNBLoop'Clean upA @Clo|se RA. End If7Attributeacs 'A  `not   =4=U+ B^ Tierb&?Hߎ܎,?:TIER918X_O8 ch Act s4/n%emV/MLAC"_ _H_g(Finey1Cb a(C\rou>`P`ntEӲ/CL,',6 !0P@W@Cx>urP>IRS A=Sub '*** ' Name:|$%YtyInfo8rmaDescrip`cedupthat manages ѝio baseq?̴cti!!`A d4: Input/Ou>t` 005. -  2jto0&TpR'EڰO.h cP`0a/ 3p ! Public ( ##(ByRef As MS2.DOMU40E KI OM?]VЉ(PSPpng$=Variabl.used1%C&*qDimT$6yDetail As MSXML2.I(DOMElement  Dim obbjdExtT)RSNew ADODB.RecordselngActivityID-LongyvtLengthVaria !UnitOfMe`asure(P'Query the beach a< table to return RS.Open SQL_ACTIVITY_DETAIL & SEND_TO_EPA WHERE st,HG>_TYPE, _G4A) tN,CV"), xdtTex?/cp;a37.L/.T_STARO?...UAL_DATE$ AeTime?'9?/ddF+/STNK%o]k% d]Ft nt29 %>t o :"? ? ? ? ? ?=,S/ 4 + O0*+X.a2UCd#Y4/Q d =4hiUőE5If'Fi`nallyaCCbop1roo@p=` PPntT/ L; / A MoveNLoopS'Clean up ours`cesp Clo%{0 Sub '*** ' Name:12І2^ QDescripPcedqthat managesqi^Ua}oXƑ* dU Input/Out`P 0 - ; T'0&Tp( ܰ@ add the data to ' lngActivityID - "to queryr reasonifor0*6 Public Sub AddBeachRhIndmation(ByRef objXMLDocument As MS2.DOM 40, _ ](ParQ&Ele)I5OM %*Val RLong) J'Variables useo cte: dpDim|O ?* RS New ADODB.RecordsetC C'Qba a|t+C@turnP 's sjRS.Open SQL_ACTIVITY_REASON &Q_WHERE1CStr(5Q) 2_CODE B_TEXT_END, CurAzProject.Conn@C,Do While Not (/EOF Or_3BOFq A'CpPdet`ail eÕG Setys=.CNode(N@5_ELEMENT, `_TAG*_DETAIL*, BEACHES_SMA_NAMESPACEnB9standard>igoAp9#u@DTo,kK$6TYPEk.C3Fields(""), xdtTexZ&fT$,-SCDESCRIPTI ONK_[3Finally b+sy7ro@V.M$j.a7C\d3Tachingg1MoveN/Loop#'Clean up our%sceJClose@=q  ? =??NC!SOUR4CE?t?JbjJ(II#+x IOIIL_II _Ih_IP >_Iu>[I_I_c0_I_Ien?Tu‡0U қ $aE_I  _ITHHbH}oHndHtaO)F)H0H֗HrHHHA Sߓߓ`9preߓГindicatorboIwID(aIINDIC_IҶS.D1_I_Iq   `%(3??T5OIOI@'OIOIn 1 OIOIo>o>T?I?`?I?I?I eTT /I  /I/Ich/I/I/I&))II _IRI Set objRS = Nothing  End Sub '*5v Name:AddBeachActivityStationInform 36Descr ip=Procedure that manages e queri o:ldatabas9o add b~d a s@i I t- XML documentInput/OutSD -P"@the R[#1Par@EleD2p e to1 D# VlngjID. @@F`y_repasonC{ *6 Publi cA (ByR efAIgAs MS2.DOMl40, _ZhFbIOMi%0Val \@Long)A$'Va riabl@usTedcVtAeL Dim>@New ADODB.RecordseX#'Q`iyVbd @il"i@returnP'sEjs URS.Open SQL_ACTIVITY_STATION &_WHERECStr( J")D"_NUMERIC_END`, Cur!cject.ConnCDo Wh&i` (EOF OrC$.BOF-""!'`LbndardȄ Ap@ To,AH,8_TAGa%$Hd#Fie lds("-_ID"), xdt8Tex>MoveNLoop#'Clean up our HresceofofAdfM7D`O; Sii i06/4OieB#CNFhBEACH_ORG_ROLQfiKhjsgTEXTOgOg OgS.Og3 BC}WC8w4W>=!fPh.Node(NODE_ELEMENTgBDETHAIL, ES_SCHEMA_NAMESPACErP r 97 ?qqq : _TYPEq? qE _Cr/ s/ / ch50/ 1I O PE FK+ANIZ2?}# G_!DAT !EFFEE_pBeTim    w 1USo" !/'FinalDCO@3A^y ?AKx 5** Public[(ByRef LcAs MSg 2.DOMh40, _G`eIOMfVal \@Str )'Variabl ^usedJcreat!ceLTDim$!9umD b u RSNew ADODB.Recordse$Q p yb]bbkorg/ bholnreturnBB4Open SQL_BEACH_PERSON_ROLE &_WH/ / n/ / / U[x DPŃCMCO_`M44))nt Zh_ [ P`?0p*LhZbj_8ZļZ Q ODESCRIP! (G 'FWlly aƁ to0׾PPa!ES/uO?q ntcMoveNLoop S'Clean up ourbs`cesC0lose$RSO  ? p$ Sub 'N*** Name:00cedureInformat'Descrippat managesqueri) database to add beach and procedure ' assing mentsnthe XML docu(`Inp@ut/Out : objFDD - jb}9? m1)cPabrEleepI eto c Q6strByID3qpueryjhforL*6 Public Sub AddNPIn/mation(ByRef As MSh2.DOMi40, _ `aIOMg) 'Variables used[ creatcΖDim/9DiCD DRS  New ADODB.RecordsetJ  @@StrC'Q lBreturnpRS.Open SQL_PROCEDURE &SEND_TO_EPADWHERE_TEXT_, C ur(ject.Connc @Do Whi@Not ('EOF8 Or!-A@BOF`6?!'Getzc ID$= Fields("ID" @Check @X gn{s ofY isH @obres(9(BEACH)_ASSIGND(_"+@bC42 2)If 1g23 Thena'CgjP) sB*efS< *ybo9 {D.#xNode(NODE_EL@EMENT,a_TAG_DETAIY, -ES_SCHEMA_NAMESPACEAa'@?e ro W!ApesTo,!Q m_TYPEd@ f[ v_C!"), xdtTexeL,DES>Cp !RIPTION_ _ !ID? o 6? k!b#allE./0gdCgZZR6#Q9cOS ch1%6J_ u*FK_" ApMoveN,Loop+\Clo6s0x $F =PhFu'Fi:nyAUroOn^ J.aCCepqdAtaOQcDQ0\k ElEnd IftE 'Clean up our res`ceqGD  1'OName4`\OfYearComple1 QDescrip:#Ɓ^D34d͠=#R̫s>ӟƿo?Ϳ/nP  ok^/ByVal bln` Bo0anǏMon  Loc/txt0h?NIJe schemaQQe XML document  'Create YearCompletionIndicatorsDim o bj|N As I>DOMEleQSetr= D .cNode(NODE_EL@EMENT,_TAG_YEAR_COMPLETION_INDICATORS, BEACHES_SMA_NAMESPACE)z and a dd toelρvjCIla0.Text =p txtIl.appendChild C ACEFNotif@gmH؅elJ sLNpOTIFA^NI@f (bln) ThenG?"V@"true"C Else fa@  If eIEGhMoniingmh(33tYMONIrING3c3@o3?3el2e 2Lo fel:211LO?e $e 1e1f?1?1f%0'Finallyche role data!totrParentd >{v yht##x} E`Sub '*3` Name: A_BeachszToewDescripQpsSucur b ֆ. Input/Out`#x - aaryhpW'00:Tpr O%strTagQtn of tag forDZnew*|vD1/eTypettt) , ts xhowAiled' Publhic - (((`ByRefM2S%2.#40, _5 ?V$ ? 2Val XStr> ByVariant#e@q!!ϴQ ues sNewO S'Ensure we acDtuVhavgVmoinq# `eIsNull(2eExit!AP*2X( ?rœ'Now pro0cess=Abased upon8 itp07 Se@lect C "cS 'Convertinc om $keTime&anXDmatt3 .xdt!A!= For (C, "Y-MM-DDTHH:MM:SS"%1/ / `! H7 'A Y 1/% S YN C75/="/ ;PQ9"N"false" t E pstrValue = " nd Ifd &'No fancy processing for nu@meric textual data9Case@ eXMLDType.xdtN@umber,TB: CStr(*vF)#ESe0lect'S et th:lement's v|aadd iEodoc_nobjNewE}.E-P ar*appendChild E (Noth _ub  EXISTd",(00, 0(#"Tit`6`Sv vkAs`ܡPEndN A1'PmpJt!r f!@n@(Geta  A?F4'Thevne'Exit&iEls tBDe@8m |s'A=eR= ReplacJe.Ae,,( "" Right$(UCp`$(), 4)@ <> ". $")s&Pp&DIPySE3QvBtsod"}SetC= N8ew DDF.appendChiVlH.Ye!ceІnK_[g5r9l(" vrU \`$q9Y==#####,,H`y9Y==,,ny@<x11y@@x1Yy@ DyQy@Hyqyppp@:Lz)z@ PAzizI  W 0 d(  x'\l! xl \ l5\W+'' ',:LN\\ 6\, [\l! xl \(L]e, ! x  (<4]r)l6\ +'' ',:LN\\ 6\, l! xl \!  ,!   !   V+,V+\V+` /)l6\, x0 txp4 l\, PPd5PB`:,%dp$ Td ( Q`oP%tl  d5PB`:,%dp$ Td ( Q`oP%tl  d5P`lt=x T)d`Y(llxl Y(llxl Y(llxl llxl  `lx=H T)d` c= t c= x p$ ^ p$  c=!p T(4 pxlt hd`P@lCxpTX$ X PQTo4%N*#dO*#`lx*#\*FD%l$ 2d`\X6D4)2l$ Pk20l$ 4k0XPH QXt=DT: %Xl$ TX ( T 4 D`1h)XT5DlhF %Qtl  XRH QXpBT: %Xl$ TX ( QToD%Spl  X5DBT: T%Xl$ TX ( QToD%Upl  X5DBT: V%Xl$ TX ( QToD%Wpl  X5DBT: X%Xl$ TX ( QToD%Ypl  X5DBT: Z%Xl$ TX ( QToD%[pl  X5DBT: \%Xl$ TX ( QToD%]pl  X5DBT: ^%Xl$ TX ( QToD%_pl  X5DTlp=t T)XTYlhtl Ylhtl Ylhtl Tlt=H T)XT c= p c= t l$ x l$  c=!l`8  lthpx(d`\XTD4lCx%Cl?ll&*#dlx*1l/d'Ch_ll(*#dlx*1l/d)Ch ll*1lJ\`$ ` PQ\o<%llFL%p$ `5<):p$ Pk:8p$ 4k8`lhH Q`tB\:L*%`p$ T` ( Q\o<%+tl  `5<B\:L,%`p$ T` ( Q\o<%-tl  `5<B\:L.%`p$ T` ( Q\o<%/tl  `5<B\:L0%`p$ T` ( Q\o<%1tl  `5<B\:L2%`p$ T` ( Q\o<%3tl  `5<B\:L4%`p$ T` ( Q\o<%5tl  `5<B\:L6%`p$ T` ( Q\o<%7tl  `5<B\:L8%`p$ T` ( Q\o<%9tl  `5<B\:L:%`p$ TK_[` ( Q\o<%;tl  `5<\lt=[`H T)`\ c= t p$  p$  c=!rU~| 0 $  0   f6qqѪ! aٗaA1yG!i ٬qaaYbqbiycciddٴieeIq9! p q L  @ #*#*# #*#T 2    4*((  `#T/6 T0 q2 ^q< l qx9 1>#l< 121l 1 > # # ?2 ~ l *1 t0t xl=[|t T)|xLx: t l=[|t T/)|x6(%t l=pt Ql l l*xll=[|p D )|xt Ql l l*xll=[|p D )|xt Ql l l*xll=[|p D )|x pt  pt  pt lpt lF%t  qxp| di0D%p t i D%l  4  |xh\\` $! "` P#Q\o<%$%*#d&*FL%l$' (/d`6L<):l$' P(k:8l$' 4(k8(`)(%H l`=x`=L\:(*%`l$' T(` (+\ 4,L`1h)`\5LlhF(%-xl . (`/(%H l`=t`B\:(0%`l$' T(` (+Q\oL%1tl . `5LB\:(2%`l$' T(` (+Q\oL%3tl . `5LB\:(4%`l$' T(` (+Q\oL%5tl . `5LB\:(6%`l$' T(` (+Q\oL%7tl . `5LB\:(8%`l$' T(` (+Q\oL%9tl . `5L(`:(%H l`=p`B\:(;%`l$' T(` (+Q\oL%<pl . `5LB\:(=%`l$' T(` (+Q\oL%>pl . `5L\lp=[`t T)`\\lt=[`x T)`\lhxl ? lhxl @ lhxl A lhxl B lhxl C \lx=[`H T)`\ c=t c=x l$' (^ l$' ( c=Dl T8  lphtx d`\L<fPx ll=l$\l! l \l5\  l   l l= [l T )l(lL%x ll=l$\l! l \l5\   l   l l= [l T )l(lL%x ll=l$\l! l \l5\  l   l l= [l T )ll= [lt T )lltlx l4FL%x   D ,txp0 l\, PX4 plx=[tX4 T)xtpRpx:P` `@<X4 lx=[t__SRP_8/__SRP_9 $__SRP_aK_[g __SRP_b YX4 T/<)xtp6`@ xX4 lx8x xX4 lx<xX< l0p<=[txX8 Dx )txp xX4 lx<xX< l0p<=[txX8 Dx )txp84 (P%x! <x x  %l(l$llll 84  (P2%x! <x x 484 (PK%x! <x x8xX4 xFP%X4yInformation Y" qy>`}A5m.Um.ٰm. IDm.Lm. "ORGANIZATION_CODE NAME DESCRIPTION ABBREVIATION &YYYY-MM-DDTHH:MM:SS YYYY-MM-DD Y true N false ACTIVE Y  (MAILING_ADDRESS_CODE LINE_1 LINE_2 LINE_3 CITY "STATE_POSTAL_CODE ZIP_CODE EFFECTIVE_DATE STATUS .ELECTRONIC_ADDRESS_CODE ADDRESS TELEPHONE_CODE TELEPHONE_NUMBER FIRST_NAME LAST_NAME MIDDLE_INITIAL SUFFIX TITLE -Beach Data : -Beach Name Data *-Beach Attribute Data ,-Beach Activity Data (  to  ) -Beach Role Data ,-Beach Coordinate Data 6-Organizational/Person Data -Procedure Data -Completion Data PROCEDURE_CODE FK_BEACH_IDH  "#$%&'()*+,-.0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefhijklmnopqrstuvwxyz{|}~K*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  C;+~  a A!a P1ɎIяsAѐi9a aA QK_[!XAi)iٙ )Iyٚ)    y a Q &Form_End Of Year Submission Generation modSharedXMLmodGenerateXML modCustomXMLForm_Custom XML GenerationBeachActivitiesF@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA  0J_N?4C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLBAccess chkAtt_Click  9@0FC:\WINDOWS\system32\stdole2.tlbstdole aPm.4C:\Program Files\Common Files\System\ado\msado21.tlbADODB Ai`Q!C:\WINDOWS\system32\msxml4.dllMSXML2 Qyp*0[ C:\WINDOWS\System32\shdocvw.dllSHDocVw\ uM chkAct_Click 1YPpZdC:\WINDOWS\system32\SHELL32.dllShell32 a.'d/$ 'C:\PROGRA~1\MICROS~2\OFFICE11\MSCAL.OCXMSACAL A i 'V:#Uw6KekF  C:\WINDOWS\System32\compatui.dll COMPATUILib 1 Y "L~C:\WINDOWS\system32\msdxm.ocx MediaPlayer ! I  C:\WINDOWS\system32\mscomctl.ocx MSComctlLib  Y X#b`2s  C:\WINDOWS\System32\msjtes40.dllJetES  I c~k B*  C:\WINDOWS\system32\comctl32.ocx ComctlLib  1 rhttp://www.exchangenetwork.net/schema/BEACHES/2 index.xsd "AddressPostalCode ^http://www.exchangenetwork.net/schema/BEACHES/2 Rhttp://www.w3.org/2001/XMLSchema-instance . WHERE SEND_TO_EPA = 'Y= SELECT TELEPHONE.TELEPHONE_CODE, TELEPHONE.TELEPHONE_NUMBER, TELEPHONE.EFFECTIVE_DATE, TELEPHONE.STATUS FROM TELEPHONEf SELECT BEACH.ID, BEACH.NAME, BEACH.DESCRIPTION, BEACH.COMMENT, BEACH.STATE_POSTAL_CODE, BEACH.FIPS_COUNTY, BEACH.WATERBODY_NAME, BEACH.WATERBODY_TYPE, BEACH.ACCESS_TYPE, BEACH.ACCESS_COMMENT FROM BEACH FActivityMonitoringStationIdentifier xCalBeginJ SELECT ORGANIZATION.ID, ORGANIZATION.ORGANIZATION_CODE, ORGANIZATION.NAME, ORGANIZATION.DESCRIPTION, ORGANIZATION.ABBREVIATION FROM ORGANIZATION& ', 'mm/dd/yyyy')) AND BEAK_[CH_ACTIVITY.ACTUAL_START_DATE <= CDATE(FORMAT$(' .ActivityActualStartDate &SELECT MAILING_ADDRESS.MAILING_ADDRESS_CODE, MAILING_ADDRESS.LINE_1, MAILING_ADDRESS.LINE_2, MAILING_ADDRESS.LINE_3, MAILING_ADDRESS.CITY, MAILING_ADDRESS.STATE_POSTAL_CODE, MAILING_ADDRESS.ZIP_CODE, MAILING_ADDRESS.EFFECTIVE_DATE, MAILING_ADDRESS.STATUS FROM MAILING_ADDRESSS FSELECT ELECTRONIC_ADDRESS.ELECTRONIC_ADDRESS_CODE, ELECTRONIC_ADDRESS.ADDRESS, ELECTRONIC_ADDRESS.EFFECTIVE_DATE, ELECTRONIC_ADDRESS.STATUS FROM ELECTRONIC_ADDRESS : WHERE FK_ORGANIZATION_ID = ' . WHERE FK_PERSON_ID = ' &ExtentLengthMeasureD SELECT PERSON.ID, PERSON.ACTIVE, PERSON.FIRST_NAME, PERSON.LAST_NAME, PERSON.MIDDLE_INITIAL, PERSON.SUFFIX, PERSON.TITLE FROM PERSON 8' AND FK_ORGANIZATION_ID = ' *' AND FK_BEACH_ID = ' j WHERE BEACH_ORGANIZATION_ROLE_ASSIGN.FK_BEACH_ID = '2 SELECT BEACH_ATTRIBUTE.EFFECTIVE_YEAR, BEACH_ATTRIBUTE.EXTENT_LENGTH, BEACH_ATTRIBUTE.EXTENT_UNITS, BEACH_ATTRIBUTE.BEACH_TIER, BEACH_ATTRIBUTE.SWIM_SEASON_LENGTH, BEACH_ATTRIBUTE.SWIM_SEASON_UNITS, BEACH_ATTRIBUTE.SWIM_SEASON_START_DATE, BEACH_ATTRIBUTE.SWIM_SEASON_END_DATE, BEACH_ATTRIBUTE.SWIM_MONITOR_FREQ, BEACH_ATTRIBUTE.OFF_MONITOR_FREQ, BEACH_ATTRIBUTE.MONITOR_FREQ_UNITS, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY_COMMENTS, BEACH_ATTRIBUTE.NO_POLLUTION_SOURCES, BEACH_ATTRIBUTE.POLLUTION_SOURCES_UNINVESTIGATED, BEACH_ATTRIBUTE.BEACH_ACT_BEACH FROM BEACH_ATTRIBUTE@ SELECT BEACH_POLLUTION.FK_BEACH_ID, BEACH_POLLUTION.POLLUTION_SOURCE, BEACH_POLLUTION.POLLUTION_COMMENT FROM BEACH_POLLUTION , WHERE FK_BEACH_ID = ' r' AND BEACH_ACTIVITY.ACTUAL_START_DATE >= CDATE(FORMAT$(' ,ActivityActualStopDate SELECT BEACH_ACTIVITY.ACTIVITY_CODE, BEACH_ACTIVITY.NAME, BEACH_ACTIVITY.ACTUAL_START_DATE, BEACH_ACTIVITY.ACTUAL_STOP_DATE, BEACH_ACTIVITY.DESCRIPTION, BEACH_ACTIVITY.COMMENT, BEACH_ACTIVITY.EXTENT_START_MEASURE, BEACH_ACTIVITY.EXTENT_LENGTH, BEACH_ACTIVITY.EXTENT_UNIT_OF_MEASURE,K_[ BEACH_ACTIVITY.ACTIVITY_ID FROM BEACH_ACTIVITY@ SELECT BEACH_ACTIVITY_REASON.CLASS, BEACH_ACTIVITY_REASON.TYPE, BEACH_ACTIVITY_REASON.DESCRIPTION FROM BEACH_ACTIVITY_REASON 0 WHERE FK_ACTIVITY_ID =  AND CLASS = '% SELECT BEACH_ACTIVITY_STATION.STATION_ID FROM BEACH_ACTIVITY_STATIONr SELECT BEACH_ORGANIZATION_ROLE_ASSIGN.ORG_ROLE_CODE, BEACH_ORGANIZATION_ROLE_ASSIGN.FK_ORGANIZATION_ID, BEACH_ORGANIZATION_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_ORGANIZATION_ROLE_ASSIGN.STATUS FROM BEACH_ORGANIZATION_ROLE_ASSIGN ActivityName BSELECT BEACH_PERSON_ROLE_ASSIGN.PERSON_ROLE_CODE, BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_ID, BEACH_PERSON_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_PERSON_ROLE_ASSIGN.STATUS, PERSON.FK_ORGANIZATION_ID FROM PERSON INNER JOIN BEACH_PERSON_ROLE_ASSIGN ON PERSON.ID = BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_ID ^ WHERE BEACH_PERSON_ROLE_ASSIGN.FK_BEACH_ID = ' t WHERE BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID = ', SELECT PROCEDURE.ID, PROCEDURE.PROCEDURE_CODE, PROCEDURE.DESCRIPTION FROM [PROCEDURE] (BeachProcedureDetail ActivityTypeCode  ,SELECT BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.SOURCE_MAP_SCALE, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_COLLECTION_METHOD_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_REFERENCE_DATUM_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.DESCRIPTION FROM BEACH_LATITUDE_LONGITUDE_COORDINATE$ SELECT BEACH_PROCEDURE_ASSIGN.FK_BEACH_ID FROM BEACH_PROCEDURE_ASSIGN 4 WHERE FK_PROCEDURE_ID = ' '; ; $', 'mm/dd/yyyy')); REASON SOURCE INDICATOR &BeachDataSubmission $OrganizationDetail BeachDetail CreateBaseXML .ActivityDescriptionText &ActivityCommentText (ActivityExtentDetail 4ActivityExtentStartMeasure 6ActivityExtentLengthMeasure >AcK_[tivityExtentUnitOfMeasureCode (ActivityReasonDetail $ActivityReasonType "BeachExtentDetailchkName :ActivityReasonDescriptionText (ActivitySourceDetail $ActivitySourceType :ActivitySourceDescriptionText .ActivityIndicatorDetail *ActivityIndicatorType @ActivityIndicatorDescriptionText ,AttributeEffectiveYear StateCode .ExtentUnitOfMeasureCode 6BeachSwimSeasonLengthDetail .SwimSeasonLengthMeasure 6SwimSeasonUnitOfMeasureCode &SwimSeasonStartDate "SwimSeasonEndDate 2MonitoringFrequencyDetail 4SwimSeasonFrequencyMeasure ,MailingAddressCityName 2OffSeasonFrequencyMeasure HMonitoringFrequencyUnitOfMeasureCode (MonitoredIrregularly 6MonitoredIrregularlyComment 4BeachPollutionSourceDetail (BeachPollutionSource 0BeachPollutionSourceCode >BeachPollutionSourceDescription     !&(-03456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmnopruvxy{~08=Babce ghi j&kǟK9@/\mNQn:;. U  Arial8 h odXXLetterSCPI0ih5ELEB-295TEC-155B( odXXLetterH@t$dd**** o****d{"ArialddXdddd$$ddd 222222< 1 $ UEIP_164.16.4.166d2 Tahomahgh Tahomaj1ghk1m45 Tahoma`  DetailAC!jm7]F`atb_data_year'#eNý.%d5]`habc Label3Year.UG#H3a72?j0;;r{ZIBlob woPropData:<1 6NoPollutionSourcesIndicator NPollutionSourcesUninvestigatedIndicator BeachTierRanking ,BeachActBeachIndicator ,MailingAddressTypeCode :MailingAddressStreetLine1Text :MailingAddressStreetLine2Text :MailingAddressStreetLine3Text 6MailingA087:<=Babc;e gݜmb@ucMf⬲. UBRelationships for BeachActivities Arial8;%h\\HOTH.ams.com\FFX-12601-10104( odXLetter 8 1/2 x 11 in)@'''',,<-XX<-XX<-(None)(None)(None)(None)K_[<񤤣)P8Lexmark W820 PS3\\HOTH.ams.com\FFX-12601-10104FFX-12601-10104.ams.comd2 Tahomag37n Tahoma` ReportHeaderD7OjΩPbd5Q7`ta4b2c dLabel169The following Entity Relationship Diagram (ERD) is a representation of the notification data required by EPA. This ERD is not a representation of EPA's storage solution. States may use the following ERD to design notification data storage solutions. For an explanation of the notification data elements required by EPA, see the PRAWN for Beaches User Guide. Arial9Bqgu{`% DetailNZ*YG~:#f23Q`? ab Line0XXBM)&f23Q`O a b Line1o [G Ş5g`m aB bZcx Image2h(@@@@@@@@@@@@@@@K_[a=vJO g`] abcK Image3x( P@@@@@@@@@@@@@@ {?Bgzf3S`0 abcT Line4? GN"1f23Q`O a b Line56PDJ+cf23Q`ab Line65Kg䂉DΡg`abZcx Image7h(@@@@@@@@@@@@@@@K_[tO^Iܾg`m aA bcK Image8x( P@@@@@@@@@@@@@@%l'?ELPFߋ|df3`a b c Line9VrFRTf23Q` ab Line10bP3dLxB~f23Q`N ab Line11ԝdHabcKImage28x( P@@@@@@@K_[@@@@@@@柎CLg((_07N3K+hf3`B'abhc Line34 ҏJ$cf23S`(a b Line35[qhKvB/f23S`a&aAb Line36w{OWE1ʵPg`&abZcxImage37h(@@@@@@@@@@@@@@@K_[ )D7g`(a0 bcKImage38x( P@@@@@@@@@@@@@@#c2jLa:v`f3`B'a bhc Line39nűvF iNf23Q`ab Line400e,cLB0*:f23S`a&aAb Line41a0=wLM>g`&abZcxImage42h(@@@@@@@@@@@@@@K_[@;ntu*KXbzg`aZbcKImage43x( P@@@@@@@@@@@@@@Cq"E#™!f3`abP c~ Line44I1HA_W  gf23Q`(ab Line45(ǠcC݊6_f23S`a&aAb Line46BFD;Eg`&abZcxImage47h(@@@@@@@@K_[@@@@@@@^\RDeg`(aAbcKImage48x( P@@@@@@@@@@@@@@lxHT-d~f3`B'aPbhci Line49&rLp_`f23S` aYb Line50)A4 f23Q`ab Line51h덞rM Hkg`a[bZcxImage52h(K_[@@@@@@@@@@@@@@@ wMUag`>abcKImage53x( P@@@@@@@@@@@@@@K_[$;Bcef3S`abch Line54vS>?L7߿:+f23S`(aVb Line55nPrg6LHf23Q`%ab Line561;}l8HAcV"N'Ģ.jg`5aWbZcxImage82h(@@@@@@@@K_[@@@@@@@m4\AclRg`4abcKImage83x( P@@@@@@@@@@@@@@K_[!gE8WM埢f3`4abc; Line84LPCf23Q`3a=b Line85E ' kK&E׷f23Q`63a-b Line86%Mk&ig`c3abZcxImage87h(@@@@@@@@@@@@@@@ckzB7_"c/5g`63a bcKImage88x( P@@@@@@@@@@@@@@K_[],KʸM۸f3`63aLbc Line894aלM! (f23S` a2b Line90dQ.FaR5!f23Q`ab Line91ٖ5AC8Gg`abZcxImage92h(@@@@@@@@@@@@@@@붓ǕMGŞtug`>abcKImage93x( P@@@@@@@K_[@@@@@@@O2t}f3`aAb cd Line94k9bC8bXf23S`a&ab Line95ANG.\ jf23Q`_(a!b Line96FGH/ g`(a9!bZcxImage97h(@@@@@@@@@@@@@@@ OpEyg`&abcKImage98x( P@@@@@@@K_[@@@@@@@ՠ0 0Enuzf3`B'a"bc Line99P YRe,ENiUf23S` a+bLine100p1'8pInFf23Q`=aH!bLine101S (OGg`ja bZcxImage102h(@@@@@@@@@@@@@@@K_[mJ՘a !g`>abcKImage103x( P@@@@@@@@@@@@@@A!joL"f3`a:b<cLine104< " 6tE U-Ԁf23S`=aB bLine105ȭ=!Lw8f23Q`%abLine106h$Hg`%a bZcxImage107h(@@@@@@@@@@@@@@@K_[CVCI|Iѷg`[abcKImage108x( P@@@@@@@@@@@@@@:(Bc ]f3`=ab` cLine109y_M,0af23Q`N abLine110Jjw1DVf23Q`a#bLine111UmG"g`ad#bZcxImage112h(@@@@@@@@K_[@@@@@@@xG5HB5,Dfg`l abcKImage113x( P@@@@@@@@@@@@@@`exN9Z x޽f3`/ abwc Line114HK_,f23S`(aWbLine115rFFAǮf23Q`Aa#bLine116mN`bzg`_ad#bZcxImage117h(@@@@@@@K_[@@@@@@@@ڟHK#BW W(g`(abcKImage118x( P@@@@@@@@@@@@@@K_[>b/EH$6f3`"afbcLine119o jDRYm>f23Q`1aNbLine1209#$AdNgrf23Q`72abLine121TLiIgK r)lg`d2a2bZcxImage122h(@@@@@@@@@@@@@@@<I¹ۛ83g`1abcKImage123x( P@@@@@@@@@@@@@@K_[R#)dCJ!0H*f3`72abKcLine124Ϲ@h_BY=@0V\9n03awbRc d&ecl0Value Listߨ"ID";"NAME";"DESCRIPTION";"COMMENT";"FK_STATE_POSTAL_CODE";"COUNTY";"SENT_TO_EPA";""]Hp6G>>d235`waqb cecltitle0 BEACHq#@Nݘn03ahb~ c d lecl1Value Listn"ACTIVITY_ID";"FK_BEACH_ID";"FK_ACTIVITY_CODE";"NAME";"ACTUAL_START_DATE";"ACTUAL_STOP_DATE";"DESCRIPTION";"COMMENT";"EXTENT_START_MEASURE";"EXTENT_LENGTH";"EXTENT_UNIT_OF_MEASURE";""xߴB#A xd235`hab cecltitle1BEACH_ACTIVITY)IN>Oe`n03a bXc dlecl2Value List\"KEY";"FK_ACTIVITY_ID";"NAME";"DESCRIPTION";""7ߥH2$)&d235Q` awb cecltitle2*BEACH_ACTIVITY_REASONY!J[jcރn03abbck dElecl3Value List߰"KEY";"FK_BEACH_ID";"FK_ORGANIZATION_ID";"FK_ORG_ROLE_CODE";"EFFECTIVE_DATE";"STATUS";""|L)1gըd235`abk cecltitle3/{n03abcdElecl7Value Listߠ"ID";"FK_ORGANIZATION_CODE";"NAME";"DESCRIPTION";"ABBREVIATION";"SENT_TO_EPA";"" "qbHQm7d235`abcecltitle7ORGANIZATION_؎BP @ϻin03abcdlecl8Value List"ID";"FK_ORGANIZATION_ID";"ACTIVE";"FIRST_NAME";"LAST_NAME";"MIDDLE_INITIAL";"SUFFIX";"TITLE";"SENT_TOK_[_EPA";""Nc "E>($3{d235Q`a bcecltitle8 PERSONukeMnKgn03a@)bu!c_ dl ecl20Value List<"CODE";"NAME";"DESCRIPTION";""lB:HLEiA8d235Q`@)a b_ cecltitle20*REF_ORGANIZATION_TYPEJf,E`hReportFooterPQ%MjAc˲K_[TypeInfo=2J BlobDelta`&DirData9?qLPropDatasge18fLine19fLine20fLine21gImage22gImage23fLine24fLine25fLine26gImage27gImage28f Line29f!Line30f"Line31g#Image32g$Image33f%Line34f&Line35f'Line36g(Image37g)Image38f*Line39f+Line40f,Line41g-Image42g.Image43f/Line44f0Line45f1Line46g2Image47g3Image48f4Line49f5Line50f6Line51g7Image52g8Image53f9Line54f:Line55f;Line56g<Image57g=Image58f>Line59f?Line60f@Line61gAImage62gBImage63fCLine64fDLine65fELine66gFImage67gGImage68fHLine69fILine70fJLine71gKImage72gLImage73fMLine74fNLine75fOLine76gPImage77gQImage78fRLine79fSLine80fTLine81gUImage82gVImage83fWLine84fXLine85fYLine86gZImage87g[Image88f\Line89f]Line90f^Line91g_Image92g`Image93faLine94fbLine95fcLine96gdImage97geImage98ffLine99fgLine100fhLine101giImage102gjImage103fkLine104flLine105fmLine106gnImage107goImage108fpLine109fqLine110frLine111gsImage112gtImage113fuLine114fvLine115fwLine116gxImage117gyImage118fzLine119f{Line120f|Line121g}Image122g~Image123fLine124necl0decltitle0necl1decltitle1necl2decltitle2necl3decltitle3necl4decltitle4necl5decltitle5necl6decltitle6necl7decltitle7necl8decltitle8necl9decltitle9necl10decltitle10necl11decltitle11necl12decltitle12necl13decltitle13necl14decltitle14necl15decltitle15necl16decltitle16necl17decltitle17necl18decltitle18necl19decltitle19necl20decltitle20ReportFooterdgndffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfffggfndndndK_[ndndndndndndndndndndndndndndndndndndFRelationships for BeachActivities 0CB033!BGenerateBeachNotificationXML () 33,06Scripts8LD2?j0B@Blob CtBlobDelta1AHE@gj@w51Blob FwBlobDeltaDirDatazx:Custom XML Generation0-10BGenerate Beach Notification XML.Custom XML Generation 0CB0 1CB0BGenerate Beach Notification XML$Save XML File As 0CB0 1CB1 2CB1PropDataGI|DirDataCopyJ}nPropDataCopy%PropDataijMSysDbDatabasesKPM2?j0ONK_[22Blob DirDataddressEffectiveDate :MailingAddressStatusIndicator BeachIdentifier BeachNameDetail &ProgramInterestName <ProgramInterestDescriptionText 0ProgramInterestStateCode 4ProgramInterestCommentText *BeachCoordinateDetail :ProgramInterestFIPSCountyCode "WaterBodyNameCode "WaterBodyTypeCode 0BeachAccessibilityDetail ,BeachAccessibilityType 2BeachAccessibilityComment (BeachAttributeDetail &BeachActivityDetail BeachRoleDetail #AddBeachOrganizationRoleInformation 2ElectronicAddressTypeCode *ElectronicAddressText <ElectronicAddressEffectiveDate @ElectronicAddressStatusIndicator ,OrganizationIdentifier ,OrganizationNameDetail (OrganizationTypeCode OrganizationName "ProcedureTypeCode 6OrganizationDescriptionText 8OrganizationAbbreviationText @OrganizationMailingAddressDetail FOrganizationElectronicAddressDetail 6OrganizationTelephoneDetail 0OrganizationPersonDetail PersonIdentifier PersonNameDetailcmdGo *PersonStatusIndicator FirstName LastName &PersonMiddleInitial NameSuffixText NamePrefixText 4PersonMailingAddressDetail :PersonElectronicAddressDetail *PersonTelephoneDetail 0ProcedureDescriptionTextb_createXML_Click &ProcedureIdentifier 0ProcedureBeachIdentifier "BeachRoleTypeCode >BeachRoleOrganizationIdentifier 2BeachRolePersonIdentifier ,BeachRoleEffectiveDate 0BeachRoleStatusIndicator >BeachCoordinateStartPointDetail "AddBeachActivityStationInformation :BeachCoordinateEndPointDetail LatitudeMeasure LongitudeMeasure *SourceMapScaleNDM G0umeric <HorizontalCollectionMethodName XHorizontalCoordiu_ I 3   | ft++ǶG$5vO@>8@PERSONMШ @M:::......., @Ntm3vO@دĊ@ELECTRONIC_ADDRESSM @H$5vO@>8@PERSONMШ @M:::......., @Ntm3vO@دĊ@ELECTRONIC_ADDRESSM @HRRRFFFFFFFD @.vO@Ȗ O@BEACH_ACTIVITY_REASONMf@AXXXLLLLLLLJ @#`@#`@FormsM,,,,,,,,,,* !B{t@B{t@BEACHBEACH_POLLUTIONMJJJJJJJJJJH  ~9vO@~9vO@{C6C1E3E8-9AA8-4666-9DB1-9B6F1F5335FD}Mnnnnnnnnnnl @9vO@@9vO@{C6AD4CA2-2760-44E2-9CBE-69A950A9B87A}Mnnnnnnnnnnl -9vO@-9vO@{B066CA4B-7575-4EE8-A630-0BE92DE68C88}Mnnnnnnnnnnl @9vO@@9vO@{916F5F3C-DC96-4B45-879B-2194A5828702}Mnnnnnnnnnnl  9vO@ 9vO@{81BF7223-8544-41A3-8560-CACC051B6D95}Mnnnnnnnnnnl P9:vO@P9:vO@{6F0337BD-7DBE-424B-9AEC-E2523CFBA821}Mnnnnnnnnnnl ~9vO@~9vO@{6590FD47-D877-48FA-8A2C-C974E93739DC}Mnnnnnnnnnnl ~9vO@~9vO@{5FD66722-0304-4E68-BC25-354CCCEF73EA}Mnnnnnnnnnnl -9vO@-9vO@{52E968D3-2688-4494-A906-191347F3FBF0}Mnnnnnnnnnnl @9vO@@9vO@{4AC36A5A-98EC-415A-BB9A-B212AC9D59F3}Mnnnnnnnnnnl -9vO@-9vO@{22A2A81A-EF57-4C71-98C4-B906A599DC47}Mnnnnnnnnnnl  9vO@ 9vO@{1FB22605-76C2-4F24-8D06-09755C0B638A}Mnnnnnnnnnnl ~9vO@~9vO@{0CB61F25-EDA6-442A-9BFA-E5691F41AF10}Mnnnnnnnnnnl  9vO@ 9vO@{024D5083-5345-448A-AA3E-79900810E254}Mnnnnnnnnnnl P9:vO@P9:vO@{007BDFDC-68E3-40E7-979F-2AF82B37C52B}Mnnnnnnnnnnl C_ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ abcdefghi j k l m nopqrstuvwxyz{|}~ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~     PQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./01234S YNY Ѝ Y  Y   Y  Y  Y  Id LValueObjectGuidObjectNameProperty Value      YYYId$ObjectGuidProperty$ObjectNamePropertyHv1b     ]Y%%N Y  Y  Y x Y  Y < Y IID"ORGANIZATION_CODENAMEDESCRIPTIONABBREVIATIONSEND_TO_EPAY!KED"#Y0Y$YNYVY2YYY.rD.rE.rF.rG.rHORGANIZATION_IDPrimaryKeyTYPEv1n394e785LOCAL_GOVtestingtestingdescTY0., ?2349fwePRIVATETestedTesteddescTDY.,( ?@:<>HSsQ QDF@ @:<>HSsQ QDF@ ^dMJ^+Udq fiYqJmQ  Y%%N %% Y  Y  Y  Y d Y d Y  Y  Y Cx Y OID$FK_ORGANIZATION_ID ACTIVEFIRST_NAMELAST_NAMEMIDDLE_INITIAL SUFFIX TITLESEND_TO_EPAWEO%'P;CS%(E;A%);Y0YNY:YVYYYY.rD.rF.rG.rHL{1FB22605-76C2-4F24-8D06-09755C0B638A}IDORGANIZATION_IDPrimaryKeyv1@@$m, JH394e785ACTIVEJillHolanderY)''''  foi34e0394e785ACTIVEChrisJohnsonManagerY75,,,#   9e8ef72349fweACTIVEBobFranksJY,***(   ? $ HQFQSD&SdY<>Q6&[W& $@:<>HSsQ&QDF@&QDF@& $ HQFQSD&SdY<>Q6&[W& qY%%N++ Y  Y  Y  Y IDPROCEDURE_CODEDESCRIPTIONSEND_TO_EPACIFO+-ZARREO+.FEETU+/"YGYYY.rD"FK_PROCEDURE_TYPEIDPrimaryKeyv1@ *PRESS_RELEASDA_ASES_RISKOur Procedure to Assess RiskY>< * OJ+JkQk+iYk\, *fiQkk+iQ^QJk, *fiQkk+iQ^QJk,D Y%%N11Y  Y  Y   Y $d Y Y  Y AKEY$FK_ORGANIZATION_IDFK_PERSON_IDTELEPHONE_CODE TELEPHONE_NUMBEREFFECTIVE_DATE STATUS13 014Y15DRNA16_IreTE17$ Y$YYYYYYL{007BDFDC-68E3-40E7-979F-2AF82B37C52B}L{024D5083-5345-448A-AA3E-79900810E254}KEYORGANIZATION_IDPERSON_IDPrimaryKeyTELEPHONE_CODEv1b@ 0@9e8ef7VOICE617-254-0845ACTIVE3+}020 20 HQFQSD2020qdYMQ2] 4   H  26BEACHBEACH_POLLUTIONBEACH_POLLUTIONFK_BEACH_IDBEACHIDxtjT6{C6C1E3E8-9AA8-4666-9DB1-9B6F1F5335FD}BEACH_ORGANIZATION_ROLE_ASSIGNFK_ORGANIZATION_IDORGANIZATIONIDZ{C6AD4CA2-2760-44E2-9CBE-69A950A9B87A}BEACH_ACTIVITY_REASONFK_ACTIVITY_IDBEACH_ACTIVITYACTIVITY_IDZ{B066CA4B-7575-4EE8-A630-0BE92DE68C88}MAILING_ADDRESSFK_PERSON_IDPERSONIDxZ{916F5F3C-DC96-4B45-879B-2194A5828702}BEACH_PERSON_ROLE_ASSIGNFK_BEACH_IDBEACHIDZ{81BF7223-8544-41A3-8560-CACC051B6D95}MAILING_ADDRESSFK_ORGANIZATION_IDORGANIZATIONIDxZ{6F0337BD-7DBE-424B-9AEC-E2523CFBA821}BEACH_PROCEDURE_ASSIGNFK_PROCEDURE_IDPROCEDUREIDZ{6590FD47-D877-48FA-8A2C-C974E93739DC}BEACH_ORGANIZATION_ROLE_ASSIGNFK_BEACH_IDBEACHIDZ{5FD66722-0304-4E68-BC25-354CCCEF73EA}ELECTRONIC_ADDRESSFK_ORGANIZATION_IDORGANIZATIONID~Z{52E968D3-2688-4494-A906-191347F3FBF0}BEACH_PERSON_ROLE_ASSIGNFK_PERSON_IDPERSONIDZ{4AC36A5A-98EC-415A-BB9A-B212AC9D59F3}BEACH_ACTIVITYFK_BEACH_IDBEACHIDvZ{22A2A81A-EF57-4C71-98C4-B906A599DC47}ELECTRONIC_ADDRESSFK_PERSON_IDPERSONID~Z{1FB22605-76C2-4F24-8D06-09755C0B638A}PERSONFK_ORGANIZATION_IDORGANIZATIONIDfZ{0CB61F25-EDA6-442A-9BFA-E5691F41AF10}BEACH_PROCEDURE_ASSIGNFK_BEACH_IDBEACHIDZ{024D5083-5345-448A-AA3E-79900810E254}TELEPHONEFK_ORGANIZATION_IDORGANIZATIONIDlZ{007BDFDC-68E3-40E7-979F-2AF82B37C52B}TELEPHONEFK_PERSON_IDPERSONIDlZQvcP=*z @ -  } j C 0  m Z G p]I6#r_L8%uaN;M M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtM M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M  M  OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp  L  M  OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp  L  M  OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp  L  M  OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp  L L L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp L M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L L M OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp L L M OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp L L M OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp L L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L L M OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp L L M OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp L M L M OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp L . V`;?@pn]RV`;?@pn]R0AK177449INTERPOLATION-MAPNAD27similar point of acces.cJC0&DLVALοk`MR2OrientationOrderByOnNameMapDefaultViewColumnWidthColMR2OrientationOrderByOnNameMapDefaultViewColumnWidthColMR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl$UnicodeCompressionIMEModeIMESentenceModeRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsDecimalPlacesDefaultValueValidationRuleGUIDValidationText FilterOrderByDescription FormatInputMaskCaptionSmartTagsColumnWidths_     U»`Oxd grjS`@BEACHC/.Ab$ Y»`Oxd gID)]nE4#»`Oxd gNAMEONG݀@7#»`Oxd gDESCRIPTION8GGBZ»`Oxd gCOMMENT+L(cERl»`Oxd gSTATE_POSTAL_CODEIDŕح)>»`Oxd gFIPS_COUNTY#N.»`Oxd gWATERBODY_NAME Ag&F\D»`Oxd gWATERBODY_TYPE" DKC»`Oxd gACCESS_TYPE`"jNtכ. »`Oxd gACCESS_COMMENTsErx»`Oxd gSEND_TO_EPA   »`Oxd g ID       m       C/.Ab$ YNAME       m       )]nE4#㛒DESCRIPTION       m       ONG݀@7#COMMENT       m       8GGBZ("STATE_POSTAL_CODE       m   Table/Query REF_STATE        +L(cERlSEND_TO_EPA    "Y"   ="Y" Or "N"  n Value List Y;N          sErxFIPS_COUNTY       m       IDŕح)>ACCESS_TYPE       m       " DKC򩸘"ACCESS_COMMENT       m       `"jNtכ. "WATERBODY_NAME o      m      "WATERBODY_TYPE       m      MR2 GUIDNameMap0 ucMf⬲.  UMR2( ReplicateProject MR20 Title AuthorCompanyT& BeachActivities  jpayne AMSMR2>AccessVersion BuildProjVer6 08.50  #1IvcO<)   x e R > +  {  g T A -}jVC0 lYE2 n[M _O 1ʠ[8}(P'ڞ6Uj2Вe&'_ Ri^l]Zv8ѶKR>/ۺfoDYxp _L _OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp _M VL VOERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp VM NL NOERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp NM GL GOERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp GM BL BOERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp BM :L :OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp :M 2L 2OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp 2M .L .OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp .M )L )OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp )M "L "OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp "M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M M OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp L M OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp L M OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp L M OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp L !L !OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp !M  L  OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp  M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp LVAL‹>ά/E3BEACHBEACH <BEACH_ACTIVITYBEACH_ACTIVITYwBEACH_ACTIVITY_REASONBEACH_ACTIVITY_REASON#9BEACH_ORGANIZATION_ROLE_ASSIGNBEACH_ORGANIZATION_ROLE_ASSIGN)BEACH_PERSON_ROLE_ASSIGNBEACH_PERSON_ROLE_ASSIGNBEACH_PROCEDURE_ASSIGNBEACH_PROCEDURE_ASSIGN mPROCEDUREPROCEDURE8qORGANIZATIONORGANIZATION=MPERSONPERSON- ELECTRONIC_ADDRESSELECTRONIC_ADDRESS?MAILING_ADDRESSMAILING_ADDRESSE[TELEPHONETELEPHONE=BEACH_POLLUTIONBEACH_POLLUTIONyBEACH_HUCBEACH_HUCLVALLVAL‹@MR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenDecimalPlacesDefaultValueRequiredDisplayControlAllowZeroLength$UnicodeCompressionRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsIMEModeIMESentenceModeInputMaskValidationRuleGUIDValidationText FilterOrderByDescription FormatCaptionColumnWidthsM    UuNf]ᷮ@BEACH_ACTIVITY֭}_OnT[uNf]ACTIVITY_ID»`Oxd gW4@BEACHC/.Ab$ Y»`Oxd gID *.1pC JN&uNf]FK_BEACH_ID59AHyGYuNf]ACTIVITY_CODEn `A<$'uNf]NAME+XLRuNf]ACTUAL_START_DATElJ @laF uNf]ACTUAL_STOP_DATEZzB`(auNf]DESCRIPTIONw cOЙ Z‡uNf]COMMENTsi2@z@~TuNf]EXTENT_START_MEASUREv^IVVehuNf]EXTENT_LENGTHE@<uNf]EXTENT_UNIT_OF_MEASURE`eKT?quNf]SEND_TO_EPA   uNf]ACTIVITY_ID      0    m ֭}_OnT[ FK_BEACH_ID         n   Table/Query@ 8SELECT BEACH.ID FROM BEACH;       *.1pC JN&E ACTIVITY_CODE         m   Table/Queryt lSELECT REF_ACTIVITY_TYPE.CODE FROM REF_ACTIVITY_TYPE;      59AHyGYۄNAME         m     n `A<$'("ACTUAL_START_DATE     8 099/99/0000\ 00:00:00;0;_   +XLR& ACTUAL_STOP_DATE     8 099/99/0000\ 00:00:00;0;_   lJ @laF DESCRIPTION         m     ZzB`(aCOMMENT         m     w cOЙ Z‡2,EXTENT_UNIT_OF_MEASURE         m   Value List FT;M;YDS      E@<SEND_TO_EPA    "Y"     ="Y" Or "N"  n Value List Y;N        `eKT?qד.(EXTENT_START_MEASURE      0    m si2@z@~T EXTENT_LENGTH      0  LVAL  m v^IVVeh@LVALjMR2 GUIDNameMapZ hjt|Iew Y6 . U MR2 GUIDNameMapZ hjt|Iew Y6 . U MR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapDefaultViewGUIDColumnWidthColumnOrderColumnHiddenDescription FormatDecimalPlacesInputMaskCaptionDefaultValueRequiredDisplayControlRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsColumnWidthsAllowZeroLengthIMEModeIMESentenceMode$UnicodeCompression    UxJZ`L\>*j(Bd@BEACH_ACTIVITY_STATION)nX.$E_.nBhxJZ`L\>*jKEY=we@Y9q[[@"DBEACH_ACTIVITŸ́ezxANY-=we@Y9ACTIVITY_IDS8G4haTxJZ`L\>*jFK_ACTIVITY_ID18ŞMhGxJZ`L\>*jSTATION_ID  xJZ`L\>*j8"FK_ACTIVITY_ID         0  n Table/Queryv nSELECT BEACH_ACTIVITY.ACTIVITY_ID FROM BEACH_ACTIVITY;    S8G4haTK KEY       )nX.$E_.nBhSTATION_ID         m    @<]@CֱMR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenDecimalPlacesDefaultValueRequiredDisplayControlRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsAllowZeroLength$UnicodeCompressionIMEModeIMESentenceModeGUIDA    U(T @Uqw>J3S@BEACH_ACTIVITY_REASONP@3E;fmV`(T @Uqw>KEY=we@Y9GFK_ACTIVITY_IDi! @-W(T @Uqw>CLASSr˿Q;G5Y(T @Uqw>TYPEdGv¾U(T @Uqw>DESCRIPTION  DLu~K KEY    `CIth28"FK_ACTIVITY_ID D     0    n Table/Queryv nSELECT BEACH_ACTIVITY.ACTIVITY_ID FROM BEACH_ACTIVITY;     z+lLP03 TYPE        m    ~i@H򿊒DESCRIPTION        m    #qEG|m̷ CLASS        m    |E۔yBILVAL‹CMR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenDecimalPlacesDefaultValueRequiredDisplayControl FormatAllowZeroLengthIMEModeIMESentenceMode$UnicodeCompressionRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsValidationRuleGUID FilterOrderByValidationTextDescriptionInputMaskCaptionColumnWidthsSmartTags  N F Up$J ZZh;@BEACH_ATTRIBUTE»`Oxd gR4=8@BEACHC/.Ab$ Y»`Oxd gIDDVtNMS-`^p$J ZZhFK_BEACH_IDQ\WKC=vHp$J ZZhEFFECTIVE_YEARV~K1GM؏Gp$J ZZhEXTENT_LENGTH@9}f?HAzW!p$J ZZhEXTENT_UNITS%C d^&p$J ZZhBEACH_ACT_BEACHkM";@;p$J ZZhBEACH_TIERW&wPH]^p$J ZZhSWIM_SEASON_LENGTH6HSKp$J ZZhSWIM_SEASON_UNITS,\CU`q p$J ZZhSWIM_SEASON_START_DATE,NXJp$J ZZhSWIM_SEASON_END_DATE2Okhp$J ZZhSWIM_MONITOR_FREQyO(Sp$J ZZhOFF_MONITOR_FREQ$!_EEν`w p$J ZZhMONITOR_FREQ_UNITS0"P.'N\="Rp$J ZZhMONITORED_IRREGULARLYPW@`Nʧp$J ZZhMONITORED_IRREGULARLY_COMMENTS^K_HH'ۆ|0gp$J ZZhNO_POLLUTION_SOURCES b7?M\7|p$J ZZhPOLLUTION_SOURCES_UNINVESTIGATEDi} mY@z&Vp$J ZZhSEND_TO_EPA   p$J ZZhEXTENT_UNITS         m     @9}f?HAzW!*$SWIM_SEASON_LENGTH n     0    m W&wPH]^("SWIM_SEASON_UNITS         m     6HSK("SWIM_MONITOR_FREQ      0    m 2Okh& OFF_MONITOR_FREQ      0    m yO(S宠*$MONITOR_FREQ_UNITS B        m     $!_EEν`w "EFFECTIVE_YEAR b     0    m Q\WKC=vH FK_BEACH_ID         n Table/Query@ 8SELECT BEACH.ID FROM BEACH;        DVtNMS-`^SEND_TO_EPA    "Y"     ="Y" Or "N"  n Value List Y;N        i} mY@z&V EXTENT_LENGTH      0    m g LVALw V~K1GM؏GBEACH_TIER   $ General Number     m kM";@;B<MONITORED_IRREGULARLY_COMMENTS         m    2,SWIM_SEASON_START_DATE        $ 99/99/0000;0;_.(SWIM_SEASON_END_DATE        $ 99/99/0000;0;_0*MONITORED_IRREGULARLY    "N"     ="Y" Or "N"  n     Value List Y;N   .(NO_POLLUTION_SOURCES    "N"     ="Y" Or "N"  n     Value List Y;N   F@POLLUTION_SOURCES_UNINVESTIGATED    "N"     ="Y" Or "N"  n     Value List Y;N   $BEACH_ACT_BEACH    "Y"     ="Y" Or "N"  n Value List Y;N       LVALMR2BValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapDefaultViewGUIDColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControlIMEModeIMESentenceMode$UnicodeCompressionSmartTagsDecimalPlaces  F > UժnB D,5'pļ`@EBEACH_LATITUDE_LONGITUDE_COORDINATESy-9M8AMpժnB D,5'FK_BEACH_IDBXGժnB D,5'START_LATITUDE}%ǍHçPժnB D,5'START_LONGITUDEa)r>D.v 9ժnB D,5'END_LATITUDELGS%G{4(mժnB D,5'END_LONGITUDEajYFޑժnB D,5'SOURCE_MAP_SCALE|pIV'FժnB D,5'REF_H_COLLECTION_METHOD_NAMEl=hOr WoժnB D,5'REF_H_REFERENCE_DATUM_NAMEH";B@ժnB D,5'DESCRIPTION   ժnB D,5'>8REF_H_COLLECTION_METHOD_NAME         m   s& SOURCE_MAP_SCALE         0  m:4REF_H_REFERENCE_DATUM_NAME         m   o"START_LATITUDE         0  mq$START_LONGITUDE  s       0  mkEND_LATITUDE         0  mm END_LONGITUDE         0  mzDESCRIPTION         m   zFK_BEACH_ID         m   LVALMR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl$UnicodeCompressionRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsIMEModeIMESentenceModeInputMaskValidationRuleDefaultValueGUID    U+RǧA`oJZT@BEACH_ORGANIZATION_ROLE_ASSIGN\>Rwxt;7*$FK_ORGANIZATION_ID       n   Table/Query\ TSELECT ORGANIZATION.ID FROM ORGANIZATION;       5En p"EFFECTIVE_DATE D   8 099/99/0000\ 00:00:00;0;_    K$F[Y5 STATUS e    6 .='ACTIVE' Or 'INACTIVE'  n   "ACTIVE" Value List& ACTIVE;INACTIVE       G UHD|]ÒNU ORG_ROLE_CODE q      m   Table/Query |SELECT REF_ORGANIZATION_ROLE.CODE FROM REF_ORGANIZATION_ROLE;       W Or\ FK_BEACH_ID       n   Table/Query@ 8SELECT BEACH.ID FROM BEACH;       ic?ejLIXkN/LVALAMR2&ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapDefaultViewGUIDColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControlIMEModeIMESentenceMode$UnicodeCompressionSmartTags  T L URݪf9Mo+Wyx3@BEACH_POLLUTION!ة,7F? i $Rݪf9Mo+FK_BEACH_IDf3Ht^3Rݪf9Mo+POLLUTION_SOURCENFK2FOXRݪf9Mo+POLLUTION_COMMENT   Rݪf9Mo+zFK_BEACH_ID         m   & POLLUTION_SOURCE  J       m   ("POLLUTION_COMMENT  v       m   MR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl$UnicodeCompressionRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsIMEModeIMESentenceModeInputMaskValidationRuleDefaultValueGUID    U*s)G_~hWG·@BEACH_PERSON_ROLE_ASSIGNpM6*s)G_~hKEY=ڃ#AnXg Cб@$BEACH42!D6Pfw=ڃ#AnXg CID6ikZJP:*s)G_~hFK_BEACH_ID`ݛ|PDya1nA@$PERSON\x'$Etދj`ݛ|PDya1ID_rnEy.5J*s)G_~hFK_PERSON_IDpq|cG^l*s)G_~hPERSON_ROLE_CODErGD0~(*s)G_~hEFFECTIVE_DATE+ĽجJ φ*s)G_~hSTATUS K KEY    jX $L,XFK_PERSON_ID r      n   Table/QueryD <SELECT PERSON.ID FROM PERSON;       n ꡘNIDx`~"EFFECTIVE_DATE D   8 099/99/0000\ 00:00:00;0;_   U@iHjJ.5 STATUS     6 .='ACTIVE' Or 'INACTIVE'  n   "ACTIVE" Value List& ACTIVE;INACTIVE       X$~jlLP> _C& PERSON_ROLE_CODE       m   Table/Queryl dSELECT REF_PERSON_ROLE.CODE FROM REF_PERSON_ROLE;       mx@" FK_BEACH_ID       n   Table/Query@ 8SELECT BEACH.ID FROM BEACH;       tܚsr(OxTj12 LVALB MR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl$UnicodeCompressionRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsIMEModeIMESentenceModeGUID FilterOrderByO    UQ^ELUCR$zN@BEACH_PROCEDURE_ASSIGN~e6KaŌQ^ELUCR$KEY»`Oxd gaO@BEACHC/.Ab$ Y»`Oxd gIDQ@ğG\8JQ^ELUCR$FK_BEACH_ID/F7HF;yd}LjCq@PROCEDURE_NJqZ8/F7HF;ydIDxLJjKB@rXQ^ELUCR$FK_PROCEDURE_ID   Q^ELUCR$K KEY    ~e6KaŌ)$FK_PROCEDURE_ID       n   Table/QueryT LSELECT PROCEDURE.ID FROM [PROCEDURE];       xLJjKB@rX FK_BEACH_ID       n   Table/Query@ 8SELECT BEACH.ID FROM BEACH;       Q@ğG\8J*LVAL:MR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl$UnicodeCompressionRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsIMEModeIMESentenceModeInputMaskValidationRuleDefaultValueGUID!    U?FJN M՘ ?FJN ORGANIZATION`(I&JBФ= M70ybG\EUww ID@Þ9Nye;T,?FJN PERSON\x'$Etދj`ݛ|PDya1IDIonM7ї?FJNwu{MDPIDj&M&@h:|p^Cwp[+ FK_ORGANIZATION_IDMB18B׍@PERSONA+4~J}=*MB18ID<;.H~2Mkj:|p^Cwp[+ FK_PERSON_ID־ȼcDYO:|p^Cwp[+ MAILING_ADDRESS_CODExML K~:|p^Cwp[+ LINE_1l:Ol7 zEN:|p^Cwp[+ LINE_2;uۀKsj:|p^Cwp[+ LINE_3 Hj% :|p^Cwp[+ CITY1|A:|p^Cwp[+ STATE_POSTAL_CODE]2BD1.:|p^Cwp[+ ZIP_CODE/ƽbDON:|p^Cwp[+ EFFECTIVE_DATE:W[wLIj::|p^Cwp[+ STATUS   :|p^Cwp[+ K KEY     J )ȋ"7*$FK_ORGANIZATION_ID       n   Table/Query\ TSELECT ORGANIZATION.ID FROM ORGANIZATION;       j&M&@hFK_PERSON_ID r      n   Table/QueryD <SELECT PERSON.ID FROM PERSON;       <;.H~2Mkjo.(MAILING_ADDRESS_CODE n      m   Table/Query SELECT REF_MAILING_ADDRESS_TYPE.CODE FROM REF_MAILING_ADDRESS_TYPE;       ־ȼcDYO LINE_1       m     xML K~ۈ LINE_2       m     l:Ol7 zEN LINE_3       m     ;uۀKsjCITY       m      Hj% ;("STATE_POSTAL_CODE       m   Table/Queryb ZSELECT REF_STATE.POSTAL_CODE FROM REF_STATE;       1|AZIP_CODE       m     ]2BD1."EFFECTIVE_DATE    8 099/99/0000\ 00:00:00;0;_   /ƽbDON5 STATUSLVAL       n  6 .='ACTIVE' Or 'INACTIVE' "ACTIVE" Value List& ACTIVE;INACTIVE       :W[wLIj: vub N ; (   w d Q = * 0L 0OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp 0M *L *OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp *M $L $OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp $M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M L TOERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M TOERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp M O 1ʠ[8}(P'ڞ6Uj2Вe&'_ Ri^l]Zv8ѶKR>/ۺfoDYxp L OERk[8;p)&'_ Ri^l]ZvkmY[~\HtPվ>/ۺfoDYxp LVALMR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl$UnicodeCompressionIMEModeIMESentenceModeRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsDefaultValueValidationRuleGUIDValidationText FilterOrderByDescription FormatInputMaskCaptionSmartTagsColumnWidths%    Uu{MDPy8@ORGANIZATION V@4>wu{MDPIDw3 L*cu{MDPORGANIZATION_CODESO~u{MDPNAME37h,Ezu{MDPDESCRIPTIONٝJ\J5  u{MDPABBREVIATIONDݚEx1u{MDPSEND_TO_EPA   u{MDP ID       m        V@4>w]("ORGANIZATION_CODE       m   Table/Query |SELECT REF_ORGANIZATION_TYPE.CODE FROM REF_ORGANIZATION_TYPE;        w3 L*cNAME       m       SO~DESCRIPTION       m       37h,EzABBREVIATION       m       ٝJ\J5  SEND_TO_EPA    "Y"   ="Y" Or "N"  n Value List Y;N          DݚEx1HLVALXMR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl$UnicodeCompressionIMEModeIMESentenceModeRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsDefaultValueValidationRuleGUIDValidationText FilterOrderByDescription FormatInputMaskCaptionSmartTagsColumnWidths7    UMB18d>8@PERSONA+4~J}=*MB18IDu{MDPE8@ORGANIZATION V@4>wu{MDPIDn!4KBFMB18FK_ORGANIZATION_IDKG5NMB18ACTIVEGwLVOup7CMB18FIRST_NAME0|f.FB*]HMB18LAST_NAMEb-DrnuMB18MIDDLE_INITIAL&GKⓝ#r[MB18SUFFIXvW kEkTP3MB18TITLE0 F#t#P'[MB18SEND_TO_EPA   MB18 ID       m       A+4~J}=*FIRST_NAME       m       GwLVOup7CLAST_NAME       m       0|f.FB*]H"MIDDLE_INITIAL       m       b-Drnu SUFFIX       m       &GKⓝ#r[ TITLE       m       vW kEkTP37*$FK_ORGANIZATION_ID       n   Table/Query\ TSELECT ORGANIZATION.ID FROM ORGANIZATION;        n!4KBF5 ACTIVE    "ACTIVE"  6 .='ACTIVE' Or 'INACTIVE'  n   Value List& ACTIVE;INACTIVE        KG5NSEND_TO_EPA    "Y"   ="Y" Or "N"  n Value List Y;N          0 F#t#P'[LVALMR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl$UnicodeCompressionIMEModeIMESentenceModeRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsDefaultValueValidationRuleGUID FilterOrderByValidationTextDescription FormatInputMaskCaptionSmartTagsColumnWidthsC    U/F7HF;yd?8@PROCEDURE_NJqZ8/F7HF;ydID ֖:K[>/F7HF;ydPROCEDURE_CODEdhcJ^b/F7HF;ydDESCRIPTION{HK)ʐ{/F7HF;ydSEND_TO_EPAQ^ELUCR$sy@]P0BEACH_PROCEDURE_ASSIGNxLJjKB@rXQ^ELUCR$FK_PROCEDURE_ID   /F7HF;yd ID       m       _NJqZ8K"PROCEDURE_CODE o      m   Table/Queryx pSELECT REF_PROCEDURE_TYPE.CODE FROM REF_PROCEDURE_TYPE;         ֖:K[>DESCRIPTION       m       dhcJ^bSEND_TO_EPA    "Y"   ="Y" Or "N"  n Value List Y;N          {HK)ʐ{LVAL*MR2OrientationOrderByOnNameMapDefaultViewColumnWidthColumnOrderColumnHiddenRequiredAllowZeroLengthDisplayControl$UnicodeCompressionRowSourceTypeRowSourceBoundColumnColumnCountColumnHeadsIMEModeIMESentenceModeInputMaskValidationRuleDefaultValueGUID'    U杀*[2OH'?!>P@TELEPHONE cA?*w杀*[2OH'?KEY0ybG\EUww SЇ@ORGANIZATION`(I&JBФ= M70ybG\EUww ID\C杀*[2OH'?FK_ORGANIZATION_ID`ݛ|PDya1JUЇ@PERSON\x'$Etދj`ݛ|PDya1IDSXG-VƑ1杀*[2OH'?FK_PERSON_IDPezԡF(杀*[2OH'?TELEPHONE_CODEE{bEZR杀*[2OH'?TELEPHONE_NUMBERL^vHSO&<杀*[2OH'?EFFECTIVE_DATEr3˜BM'杀*[2OH'?STATUS  R(G3گkK KEY    \,jٹ~F$'f937*$FK_ORGANIZATION_ID       n   Table/Query\ TSELECT ORGANIZATION.ID FROM ORGANIZATION;        u6폈J\;kFK_PERSON_ID r      n   Table/QueryD <SELECT PERSON.ID FROM PERSON;       iBJ]K"TELEPHONE_CODE       m   Table/Queryx pSELECT REF_TELEPHONE_TYPE.CODE FROM REF_TELEPHONE_TYPE;        |FZ2%y& TELEPHONE_NUMBER       m  . &!999\-000\-0000;0;_   x nFCt^%yƴ"EFFECTIVE_DATE    8 099/99/0000\ 00:00:00;0;_   ?''yG95 STATUS     6 .='ACTIVE' Or 'INACTIVE'  n   "ACTIVE" Value List& ACTIVE;INACTIVE       P?sK4@lezK_[nateReferenceSystemDatumName <BeachCoordinateDescriptionText "TelephoneTypeCodecb_Notification &TelephoneNumberText ,TelephoneEffectiveDate 0TelephoneStatusIndicator 0YearCompletionIndicators CompletionYear DNotificiationDataCompleteIndicator >MonitoringDataCompleteIndicator :LocationDataCompleteIndicator cb_Monitoring ,,LL, $,0<HGetSaveFileName comdlg32.dll GetSaveFileNameA ь0AddOrganizationInformation3)6{O>`3)6{O>`  AddOrganizationPersonInformationAddMailingAddressInformationAddElectronicAddressInformationAddTelephoneInformationAddBeachAttributeInformationAddBeachActivityInformation !AddBeachActivityReasonInformation SetFileNameAddBeachPersonRoleInformationAddBeachCoordinateInformationAddBeachProcedureInformation !AddEndOfYearCompletionInformationAppendBeachXMLDataToDocument xRF*DI/f"v7JpK[[%5ʼtFkԫ)z XB`a!vSC7?DetailHC7?Frame13Frame10@C7? tb_data_yearEC7? b_createXML31?FormGC7? cb_LocationchkRole ,,48i ,$gAavFJ۟oh2+CZ O83ST/~IDQ0SEJ49Q1chkCompchkBeachchkMonchkActtxtFile B* pbProgressp W* ActiveX Controls in Access  1chkAttchkNotchkProcchkLoc txtDataYear txtStartDatecmdReset txtStopDatechkCoor cmdBrowse-'d/$xCalEndchkOrgchkBeach_Click chkName_Click chkRole_ClickcmdBrowse_Click cmdGo_ClickcmdReset_ClicktxtStartDate_AfterUpdatetxtStopDate_AfterUpdatexCalBegin_AfterUpdatexCalEnd_AfterUpdate Form_Load Form_OpenxCalBegin_NewMonthxCalBegin_NewYearxCalEnd_NewMonthxCalEnd_NewYear IncludedDataBeachDataCheck <<48<@i ,$ Aɤs h)aN?ћ`GXGPћ F;|?T;|?P;|?h;|? 1/2/ yyyy 1/1/Refresh Today m/d/yyyyVBE6.DLL Yb  Y ValueIsNull *XML Documents (*.xml) *.xml <Save Beach Notification XML As .XML .xml Y  Y_  Y 8 Y X Yj x   File Name:    Included: ! |Please select file save location using the 'Browse...' button.J?P5 Please make sure that both a beginning and ending date have been selected for the Activity Date Range." |End Date occurs beforK_[e Begin Date. Please correct to proceed. pPlease select at least one data type to include in file.% Please select at least one data type of Beach data to include in file.# Please select any data completions that apply and include the year. PNotification XML Generated Successfully! YS  Y0 iو_@2Q! xml version="1.0"3)6{O>`3)6{O>` <Beach Data Submission created $xsi:schemaLocation3)6{O>` xmlns xmlns:xsiAddCustomBeachInformation !AddCustomBeachActivitq( 8  H YX h x q qblnNameblnAttblnActblnRoleblnCoorblnOrgblnProcblnComp dtActBegindtActEndCancelnrU (rU $`) TA`(- q !9Y########,,$`0 $`4 $`8 $A`< $`@ $`D $`H $A `L $ `P $ `T $  `X 8$I `\ 8$`` (`d 0y&$ `h <$I`l @$`p <$`t @( `x 0$I`| n89 `=a=Ha `=a=)un @:@)ppp@AivvvIQ@Axxx@11@11@11ѐWK_[WW__ @qx Lx x x@ #t*#p*#l #h*#dTx 2 tplhd x x4*(D(4  4`#tTx/t6D4 Tx0 qx8@^q<@ lE 1l>l#t\ #p2tpl4 1l>l#t #p?2tpl*#t/t@ (i0n p$  (tplhdD4q'[x4x6x()X4 *plx=+[tX4 T+)xtpRpx:P,` -`@<X4 *lx=+[tX4 T+/<)xtp6`@ x.X4 *lx8x x/X4 *lx<x0X< l+0p<=+[txX8 D+x 1)txp x2X4 *lx<x3X< l+0p<=+[txX8 D+x 1)txp 84 4(P%x! <x x ll$l l 84 5(P2%x! <x x 84 6(PK%x! <x x8xX4 *xFP%X4 *(Pd%x! <x x @$  $<xtp`@0)hx! Hx hfX]4x5hx! QxD cX%D D < D cDx! Qx0 cX%0 0 < 0 c0x! ,Qx,:X%,  , Pc,x! D__SRP_4T |D__SRP_5 / __SRP_62__SRP_7#rU hNAi9yaٝ!Y!AA1qѠQAAy)A9iQqɣIq٭)A W Aiaa1Aɔ@A@Y @y@@ @1@ɖ@@@@ )K_[@ I@ YqI@ @@ Yɗ@:ɓ@qqppp@QxxxQ@QvvvQ@)@)@ Y)| @)\ICWWW___ @qx Lx x x@ #t*#p*#l #h*#dTx 2 tplhd x x4*(D(4  4`#tTx/t6D4 Tx0 qx8@^q<@ lE 1l>l#t\ #p2tpl4 1l>l#t #p?2tpl*#t/t@ (i0,$(tplhdD4A0.[x4x6x/0X4 1plx=2[tX4 T2)xtpRpx:P3` 4`@<X4 1lx=2[tX4 T2/<)xtp6`@6x56P%X4 1lx=7[t8)xt x8X4 1lx<x9X< l20p<=2[txX8 D2x :)txp x;X4 1lx<x5X< l20p<=2[txX8 D2x :)txp x<X4 1lx<x=X< l20p<=2[txX8 D2x :)txp 84 >(P%x!  x x' {(l0l,lllll 84 ?$(P2%x!  x x$84 @(PK%x!  x x(l`x! x @t! t ,p! p (! ( `#<,V@V`V84 A/<)xtp(6`@,(P_%x!  x x8xX4 1xFP%X4 1(Pd%x!  x x,d$  0 <xtp(`@,8)hx! Hx hfX]4x5hx! QxD cX%D D < D cDx! Qx0 cX%0 0 < 0 c0x! ,Qx,:X%,  , Pc,x! DQx(:X%(  ( Pc(| (hx! Hx hcX]4x5hx! Qx$ $  $ < c$x! Qx    < c x! ,x Pxx! Dx Px\< $D0,($ xhH< |  $  (hx! `x hcXK_[]4x5hx! \x xx! tx xx! Hx xx! x xx!  x x)hx! `x hfX]4x5h fX%! d fX%! | fX%! P fX%!  fX%! 0 x! \x xx! tx xx! Hx xx! x xx!  x x4$  xhH< |  $  < |  $  P ( Fl%!   $  2Q9x ''(>xFH0:h!NXX "6XH(HX!  X:h]1H(!  (:8]1! H c]1')6X(9x ''(>xFH0:h#NXX "6XH(FFH!  X!  XNHN)6XH9x ''(>xFH0:h$NXX "6XH(DX! ` Xfh]1H(! x (f8]1'!  f]1')6X(]9x ''(>xFH0:h%NXX "6XH(BX! ` Xch]1H(! \ (f8]1'! t f]1'! H f]1'xdt! t dfT]1D'4 0!  0  f]1') t06 X(d 9x ''(>xFH0:h&NXX "6XH(@OX!  Xch]1H! Qo( '8'6X(8&9x ''(>xFH0:h(NXX "6XH(>!  !  (X! \ H! t (! H !  t!  t 0! x0 !  !  !  !  OOV+V+V+V+V+(V+HV+XV+, )t06XH(x  ''(>FH@)**#x**#+*#,*#*#**#**#-*#,*#l*FX "2x6XH(! Q  (c!  Q(h% c:h%! ! Q  c0 &xt0XH(xdD4 O0   0   0 @  0   0   D :l%! :l%h! ,h h:l%h! Dh hh! `Qhd d cl%d cdh! \Qh` ` cl%` c`h! tQh\ \ cl%\ c\h! HQhX X cl%X cXh! QhT T cl%T cTh! xQhP P cl%P cPh! QhL L cl%L cLh! h (h(l%h!  h h8 h! QhH H H N8  :l N((8 #$*# %H 2$ 68(N8 :l N((8 #$*# %H 2$ 68( HcHh! Qh        c \8h! h :lN((8 #$F%! , /$)h68(\8h! h :lN((8 #$F%! D /$)h68(tH 0 d`\XTPLH $$ hK_[8(T x$ `x x $  x0   0   0   0   -Ct(`p! `p `cP]4p5`zBCt(`p! \p `cP]4p5`l#t\ #p2tpl4 1l>l#t #p?2tpl*#t/t@ (i0PI(tplhdD4)|l+[x4x6x,-X4 .plx=/[tX4 T/)xtpRpx:P0` 1`@<X4 .lx=/[tX4 T//<)xtp6`@6x23P%X4 .lx=4[t8)xt x5rU~| sA U)Q yW٭ yIvv)wAwiAxx!AQѳ  #K_[Iy#~9jjI1kykcѵ_)aAlli y~AtQt!uuz!ѷAi$&{y{{A|A||} y}9}QIATiU KiwA` \`d$ d PQ`o@%*#h*FP%p$ /hd6P@)>p$ Pk><p$ 4k<(d  ,%H ld= xd=P`:, %dp$ Td (` 4P`1l)d`5PllF,%xl  (d ,%H ld= tdB`:,%dp$ Td (Q`oP%tl  d5PB`:,%dp$ Td (Q`oP%tl  d5PB`:,%dp$ Td (Q`oP%tl  d5PB`:,%dp$ Td (Q`oP%tl  d5P`lt=x T)d`Y(llxl Y(llxl Y(llxl llxl  `lx=H T)d` c= t c= x p$ ^ p$  c= pc T 4 pxlt hd`P@lCxpTX$ X PQTo4%S*#dT*#`lx*#\*FD%l$ 2d`\X6D4)2l$ Pk20l$ 4k0~(X U %H lX= tX=DT: %Xl$ TX (T 4D`1h)XT5DlhF %Vtl  (X W %H lX= pXBT: X%Xl$ TX (QToD%Ypl  X5DBT: Z%Xl$ TX (QToD%[pl  X5DBT: \%Xl$ TX (QToD%]pl  X5DBT: ^%Xl$ TX (QToD%_pl  X5DBT: `%Xl$ TX (QToD%apl  X5DBT: b%Xl$ TX (QToD%cpl  X5DTlp=t T)XTYlhtl Ylhtl Ylhtl Tlt=H T)XT c= p c= t l$ x l$  c= l`8  lthpx(d`\XTD4lCx*Cl?ll+*#dlx*1l/d,Ch_ll-*#dlx*1l/d.Ch ll*1lJ\`$ ` PQ\o<%llFL%p$ `5<):p$ Pk:8p$ 4k8(` lhL%H l`= t`B\:L/%`p$ T` (Q\o<%0tl  `5<B\:L1%`p$ T` (Q\o<%2tl  `5<B\:L3%`p$ T` (Q\o<%4tl  `5<B\:L5%`p$ T` (Q\o<%6tl  `5<B\:L7%`p$ T` (Q\o<%8tl  `5<B\:L9%`p$ T` (Q\o<%:tl  `5<B\:L;%`p$ T` (Q\o<%<tl  `5<B\:L=%`p$ T` (Q\o<%>tl  `5<B\:L?%`p$ T` (Q\o<%@tl  `5<\lt=[`H T)`\ c= t p$  p$  c= p@D8  ptxlhd`\<dlCxACl?ll+*#dlx*1l/dBCh_ll-*#dlx*1l/dCCh ll*1lJ\`$ ` PQ\o<%llFL%p$ `5<):p$ Pk:8p$ 4k8I(` lhL%H l`= t`B\:LD%`p$ T` (Q\o<%Etl  `5<B\:LF%`p$ T` (Q\o<%Gtl  `5<B\:L=%`p$ T` (Q\o<%Htl  `5<B\:L?%`pK_[$ T` (Q\o<%Itl  `5<\lt=[`H T)`\ c= t p$  p$  c= pDd8  ptxlhd`\<dlCxJCl?ll+*#dlx*1l/dKCh_ll-*#dlx*1l/dLCh ll*1lJ\`$ ` PQ\o<%llFL%p$ `5<):p$ Pk:8p$ 4k8I(` lhL%H l`= t`B\:LM%`p$ T` (Q\o<%Ntl  `5<B\:LO%`p$ T` (Q\o<%Ptl  `5<B\:L=%`p$ T` (Q\o<%Qtl  `5<B\:L?%`p$ T` (Q\o<%Rtl  `5<\lt=[`H T)`\ c= t p$  p$  c= pDd8  ptxlhd`\<0  0 (  0   0   0   0   0  p\`d$ d PQ`o@%i*#h*FP%t$ /hd6P@)>t$ Pk><t$ 4k<=P`:, %dt$ Td (` 4P`1l)d`5Pg`d$ d PQ`o@%jk*#hll*#(*FP%p$ 2h(d6P@)>p$ Pk><p$ 4k<(d l,%H ld= xdB`:,m%dt$ Td (Q`oP%nxl  d5PB`:,%dt$ Td (Q`oP%oxl  d5PllF,%pxl  )>p$ Pk><p$ 4k<B`:,q%dp$ Td (Q`oP%rxl  d5P p$  p$  c= p`lx=H T)d` c= x p$  t$ ^ t$  c= t T4 ltxp$h(d`P@Hl Cx(` dd%H l`= t`(` ed%H l`= \` lx\ lXl\=[`t T)`X(` fd%H l`= T`k &T l (T lXlT=[`t T)`X(` gd%H l`= P`k0 &P l? (P lXlP=[`t T)`X(` hd%H l`= L`k &L l (L lXlL=[`t T)`XXlt=[`H T)`X c= t0< $Lx\TtP`XlCxh h !(L lxP%H lL= `Ll(qHlH8:("NhN8 #`1d68clH8:($NhN8 #`1d68clH?hK#%2/&Cd:hK#'2/0(Cd:)CdclHYlHc hK1d ld` ll`=H T)L c= `$|4 Xhxd`$L8     %xdD4 O0 h  0   0   0   0   D :l%! :l%h! ,h ham   *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\MicrosofK_[t Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB#Microsoft Access 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\Program Files\Common Files\System\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library*\G{F5078F18-C551-11D3-89B9-0000F81FE221}#4.0#0#C:\WINDOWS\system32\msxml4.dll#Microsoft XML, v4.0*\G{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0#C:\WINDOWS\System32\shdocvw.dll#Microsoft Internet Controls*\G{50A7E9B0-70EF-11D1-B75A-00A0C90564FE}#1.0#0#C:\WINDOWS\system32\SHELL32.dll#Microsoft Shell Controls And Automation*\G{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0#C:\PROGRA~1\MICROS~2\OFFICE11\MSCAL.OCX#Microsoft Calendar Control 11.0*\G{233A5627-7755-4B36-AA00-656B8846F501}#1.0#0#C:\WINDOWS\System32\compatui.dll#CompatUI 1.0 Type Library*\G{22D6F304-B0F6-11D0-94AB-0080C74C7E95}#1.0#0#C:\WINDOWS\system32\msdxm.ocx#Windows Media Player*\G{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0#C:\WINDOWS\system32\mscomctl.ocx#Microsoft Windows Common Controls 6.0 (SP6)*\G{2358C810-62BA-11D1-B3DB-00600832C573}#4.0#0#C:\WINDOWS\System32\msjtes40.dll#JET Expression Service Type Library*\G{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0#C:\WINDOWS\system32\comctl32.ocx#Microsoft Windows Common Controls 5.0 (SP2) XCJ K8FMONNRCDBZVZDEZCSIDJDAUWMDCH014a55fc4c LForm_End Of Year Submission Generation@!8KGZORNHFHKAUSDGNZABKMRCBDXU_024a55fc4cmodSharedXML@yA8ZJEBSJMNWGEPCEFSXQXDJXVYGJM_064a435892modGenerateXML 8PPPEOMIZRXFDUDPMIVDNJPGJYAQC084a435892modCustomXML:`08HWAUNCNWGUWINDFZUSVCMJDSGEYB034a55fc524Form_Custom XML Generation@ rK_[@ 'rP@r`VVKVz`p؈%IjYAYf J6@rq@V-c{L_6zT-tSHsH AccessAnd As BBooleanByRefByVal"Const.Debug=DimBdoubleDElseEElseIfGEndHendifPExplicitQFRFalseTForVFormat$YFunction_IfxLongyLoop{MeModNotNothingNullOptionOrPrivatePublicreturnSubThenTrueWith VBAWin16~Win32MacVBA6# BeachActivitiesstdole`ADODBsMSXML2OSHDocVw!Shell32t modGenerateXMLm _Evaluate SCHEMA_NAMESCHEMA_NAMESPACEWA(SQL_SEND_TO_EPA}(SQL_BEACH_NAME_DETAIL(SQL_ORG_NAME_DETAIL(SQL_MAILING_ADDRESS(SQL_ELECTRONIC_ADDRESS4< (SQL_TELEPHONEAC(SQL_CONTACT_WHERE_ORG(SQL_CONTACT_WHERE_PERSON(SQL_PERSON_NAME_DETAILle(SQL_ATTRIBUTE_DETAIL3(SQL_ATTRIBUTE_WHERE (SQL_ACTIVITY_DETAIL(SQL_ACTIVITY_WHERE(SQL_ACTIVITY_REASON~(SQL_ACTIVITY_REASON_WHERE1(SQL_ACTIVITY_REASON_WHERE2(SQL_ACTIVITY_STATION`(SQL_ACTIVITY_STATION_WHEREh_(SQL_BEACH_ORG_ROLE(SQL_BEACH_ORG_ROLE_WHEREM#(SQL_BEACH_PERSON_ROLE(SQL_BEACH_PERSON_ROLE_WHERE (SQL_PROCEDURE(SQL_BEACH_PROCEDURE_ASSIGNX (SQL_BEACH_PROCEDURE_ASSIGN_WHERE5(SQL_WHERE_TEXT_END(SQL_WHERE_NUMERIC_ENDTRANS_CODE_ADDqCTRANS_CODE_EDITU  (REASON_CODE$f (SOURCE_CODE$ (INDIC_CODE` (eXMLDataType 8 xdtText xdtNumber9o xdtDatexdtTransactionCode(eContactKeyTypes cktOrganization cktPersonz(XML_TAG_DETAIL_DOCt@(XML_TAG_DETAIL_ORG{(XML_TAG_DETAIL_BEACH(XML_TAG_DETAIL_PROCn(XML_TAG_ACT_TYPEJ(XML_TAG_ACT_NAME9=(XML_TAG_ACT_START(XML_TAG_ACT_STOP~(XML_TAG_ACT_STATION(XML_TAG_ACT_DESCϚ(XML_TAG_ACT_COMMENTA(XML_TAG_ACT_DETAIL_EXTENT~(XML_TAG_ACT_EXT_START(XML_TAG_ACT_EXT_LENGTH(XML_TAG_ACT_EXT_UNITSl(XML_TAG_ACT_DETAIL_REASON`(XML_TAG_ACT_REASON_TYPE(XML_TAG_ACT_REASON_DESC(XML_TAG_ACT_DETAIL_SOURCE(XML_TAG_ACT_SOURCE_TYPE(XML_TAG_ACT_SOURCE_DESC:(XML_TAG_ACT_DETAIL_INDIC`(XML_TAG_ACT_INDIC_TYPE(XML_TAG_ACT_INDIC_DESC(XML_TAG_ATT_EFF_YEAR(XML_TAG_ATT_EXT4(XML_TAG_ATT_EXT_LENw(XML_TAG_ATT_EXT_UNITr(XML_TAG_ATT_SWIM(XML_TAG_ATT_SWIM_LEN(XML_TAG_ATT_SWIM_UNIT(XML_TAG_ATT_FREQ3(XML_TAG_ATT_FREQ_SWIMx(XML_TAG_ATT_FREQ_OFF(XML_TAG_ATT_FREQ_UNIT(XML_TAG_MAIL_TYPE(&(XML_TAG_MAIL_LINE1f(XML_TAG_MAIL_LINE2f(XML_TAG_MAIL_LINE3f(XML_TAG_MAIL_CITYe(XML_TAG_MAIL_STATEK_[V(XML_TAG_MAIL_ZIPE(XML_TAG_MAIL_DATE+a(XML_TAG_MAIL_STATUSR(XML_TAG_BCH_IDjXML_TAG_BCH_TRANS|(XML_TAG_BCH_DETAIL_NAME@(XML_TAG_BCH_NAME-(XML_TAG_BCH_DESC.(XML_TAG_BCH_STATE(XML_TAG_BCH_COMMENT)(XML_TAG_BCH_COUNTY(XML_TAG_BCH_WATER_NAME7h(XML_TAG_BCH_WATER_TYPEuXML_TAG_BCH_WATER_SALrXML_TAG_BCH_TCODE(XML_TAG_BCH_DETAIL_ATT^(XML_TAG_BCH_DETAIL_ACT(XML_TAG_BCH_DETAIL_ROLE3(XML_TAG_ELEC_TYPEp(XML_TAG_ELEC_TEXT|(XML_TAG_ELEC_DATEث(XML_TAG_ELEC_STATUSZ(XML_TAG_ORG_IDX(XML_TAG_ORG_DETAIL_NAME+-XML_TAG_ORG_TRANS(XML_TAG_ORG_TYPEx(XML_TAG_ORG_NAME"(XML_TAG_ORG_DESCy(XML_TAG_ORG_ABBREVmXML_TAG_ORG_TCODE~(XML_TAG_ORG_DETAIL_MAILg(XML_TAG_ORG_DETAIL_ELECs(XML_TAG_ORG_DETAIL_TELX(XML_TAG_ORG_DETAIL_PERS(XML_TAG_PERS_ID3(XML_TAG_PERS_DETAIL_NAMEg1XML_TAG_PERS_TRANS(XML_TAG_PERS_STATUS[(XML_TAG_PERS_FNAME](XML_TAG_PERS_LNAME(XML_TAG_PERS_MIDDLE(XML_TAG_PERS_SUFFIX((XML_TAG_PERS_TITLEXML_TAG_PERS_TCODE%\(XML_TAG_PERS_DETAIL_MAILobjBeachProcRSN strProcID strTagName!GvDatabeTypevstrValueK objNewElementm _B_str_Chrm# _B_var_Stringӊ _B_str_UCaseK _B_str_Right#(ItemzValueK _B_var_Format(SQL_PERSON_WHERE#Cl\ MSACAL COMPATUILibq MediaPlayer MSComctlLibmForm_XML Designer  cmdBrowsexFormDetail2 xCalStartxCalEnd Check4 chkOrg?Check16>Label17GCheck18@Label19I ProgressBar0v cmdGoxCalEnd_UpdatedCode Calendar0; ActiveXCtl31g Form_Form16 calDate lblTxtDate4txtDateY lblHeaderDcalDate_Updated\strMo`Updated  _B_var_strMo$strDa_  _B_var_strDa{#strYrb  _B_var_strYr&daPickZ  _B_var_daPickW  _B_var_endFDayStrMonthYear6nglob:  _B_var_globg+di\  _B_var_ditxt  _B_var_txttxtd Form_Cal Test calDate_ClickClickSetFocuscalDate_NewYear _B_var_calDate_NewYear|calDate_NewMonth6NewMonthY8caldate_ _B_var_caldate_3sNewYear _B_str_Format" strYrdaPick8>  accParent#  accChildCountT accChild accName accValuewg accDescription= accRoleMQ accState" accHelp4c  accHelpTopicZ accKeyboardShortcutu accFocusk  accSelectionD accDefaultAction1  accSelect   accLocation  accNavigatesf  accHitTest  accDoDefaultActionFormNameI RecordSourcebFilter;FilterOn&OrderBy OrderByOn& AllowFiltersY1Captionx DefaultViewշ ViewsAllowedH AllowEditingDefaultEditing AllowEditsAllowDeletions*AllowAdditionsI DataEntry AllowUpdating RecordsetType RecordLocksk< ScrollBarsRecordSelectorsŏNavigationButtons DividingLines0 AutoResize AutoCenterPopUpbModal BorderStyleS ControlBox  MinButton, MaxButton MinMaxButtons CloseButton_WhatsThisButtonDPicture* PictureType?sPictureSizeModePictureAlignmentY PictureTilingWCycleǷMenuBar߫Toolbar2 ShortcutMenu!ShortcutMenuBarGridXeGridYbLayoutForPrint:RFastLaserPrintingHelpFile HelpContextIdu" RowHeightDatasheetFontName-DatasheetFontHeightDatasheetFontWeightkDatasheetFontItalic[!DatasheetFontUnderlineTabularCharSet?DatasheetGridlinesBehavior?DatasheetGridlinesColor~DatasheetCellsEffectDatasheetForeColorShowGrid[DatasheetBackColorUHwnd/Count0vPageN}PagesLogicalPageWidthLogicalPageHeightj ZoomControl.VisiblePaintingmfPrtMip\H PrtDevMode% PrtDevNames  FrozenColumnsĚBookmarkC TabularFamily#Q_Name: PaletteSourcelTag& PaintPalette*OnMenuUXOpenArgsB ConnectSynchN/ OnCurrentLOnInsert} K_[BeforeInsert AfterInsert: BeforeUpdate6 AfterUpdateOnDirtyXOnDelete_BeforeDelConfirm^AfterDelConfirmԛOnOpenOnLoad?OnResizeOnUnloadjOnCloseY OnActivate OnDeactivateQ` OnGotFocus OnLostFocus(;OnClick8 OnDblClick- OnMouseDownN OnMouseMoveQ OnMouseUp0 OnKeyDownOnKeyUp`O OnKeyPressڝ KeyPreviewE9OnErrorOnFilter[ OnApplyFilterKOnTimer;Z TimerInterval?cDirtyV WindowWidth5 WindowHeightN CurrentViewCurrentSectionTopHCurrentSectionLeftSelLeft#$SelTopmSelWidth SelHeight! CurrentRecord@ PictureData> InsideHeight InsideWidthlPicturePalette  HasModule.SacHiddenCurrentPage  OrientationwAllowDesignChanges٢ ServerFilter]tServerFilterByForm MaxRecordsȲ UniqueTableg ResyncCommandInputParametersE MaxRecButtonW Application*Parent NewRecordUndoÞ ActiveControlyDefaultControlDynasetWRecordsetClone8SectionG Properties+ConnectControlRecalcӬRequeryRefreshRepaintGoToPage &ControlsK_NewEnumxASubdatasheetHeightpSubdatasheetExpandedRDatasheetBorderLineStylen#DatasheetColumnHeaderUnderlineStylet HorizontalDatasheetGridlineStyleXVerticalDatasheetGridlineStyle WindowTopE WindowLeftMove>yOnUndol OnRecordExith( PivotTable ChartSpaceyPrinterҩMoveableBeginBatchEditZ UndoBatchEdit~BeforeBeginTransaction AfterBeginTransactionBeforeCommitTransactionAfterCommitTransaction4RollbackTransactionI AllowFormViewNAllowDatasheetView"AllowPivotTableView]AllowPivotChartViewF OnConnectd OnDisconnectuPivotTableChange Query% BeforeQuerySelectionChangenCommandBeforeExecuteCommandChecked+1CommandEnabled0CommandExecuteC DataSetChange}BeforeScreenTip`AfterFinalRendere AfterRender AfterLayoutW BeforeRenderot MouseWheel. ViewChange$ DataChange| FetchDefaults BatchUpdates؁ CommitOnClosegCommitOnNavigation#UseDefaultPrinter7RecordSourceQualifierItexCalStart_UpdatedpxCalStart_ClicklblSelBeginDateH txtBeginDateq lblSelEndDate  txtEndDate̿ JetES> Form_XML GenkForm_Cal Test1  ActiveXCtl4n lblEndDateSellblBeginDateSelq xCalBeginŶxCalBegin_UpdatedCkxCalBegin_Clickm xCalEnd_ClickL ProgressBar8v lblChkActT1chkActC: lblChkBeachobchkBeach lblChkOrgP~ lblTxtBrowsevgtxtFile cmdGo_Click{ pbProgressaEnabled۪ GoToControl P _B_var_GoToControl1Check23`Check25b lblChkRoleU  lblChkProc DateGenerateBeachNotificationXMLr SetupFileName(  _B_var_return _B_var_objFile4 _B_var_Datev SetFileName CreateBaseXMLcmdBrowse_Clickltxtb  _B_var_WithYstrf[5 _B_var_OFN_EXPLORER _B_var_OFN_OVERWRITEPROMPTd _B_var_OFN_HIDEREADONLYL _B_var_OFN_PATHK_[MUSTEXIST1mdl+Forms Employees Modules modGenerateCXMLKchkRole( chkProcess chkAct_Click/  _B_var_IfPChecked0Xo UncheckedmYeschkD~chkbchkochkProc%G _B_var_chkprocJ  _B_var_chkU;chkrblnAct\blnBeachblnOrg blnRole blnProcessblnybnly  _B_var_bnl6bnlbeachzM _B_var_bnlbeach%blnprozblnProc _B_var_blnProc# _B_var_XML_TAG_DETAIL_DOC _B_var_SCHEMA_NAME  _B_var_SCHEMA_NAMESPACE! _B_var_AddOrganizationInformationDoCmdƧ OpenModuleobjXMLDocument, objRootElement  _B_var_OpenModule?modAddOrganizationInformationJMsgBoxRvbOKOnlypb^(AddCustomBeachInformation!AddCustomBeachActivityInformation( _B_var_AddCustomBeachActivityInformationD dtActBegindtActEnd AddCustomBeachActivityInformation3Agolbal]  _B_var_golbal(SQL_ACTIVITY_DATE_BEGINE(SQL_ACTIVITY_DATE_ENDDT\DTACTEJ|Label27lLabel28mtxtetxtBeginDate_BeforeUpdateCancelexti{  _B_var_exti _B_var_dtActBegin _B_var_dtActEndxcalben]  _B_var_enchkBeach_Clickk  _B_var_False-chkaxCalBegin_EnterWEnter xCalEnd_Enter7 Form_Load{(SQL_WHERE_DATE_END۸ _B_var_SQL_WHERE_DATE_ENDezkbForm_AfterUpdatetxtfstrFileName؎txtf  _B_var_txtfv  _B_var_Debugۮenablesthe'progressu Command29 Command30Command30_Click?'  _B_var_ExitprogramHQuit9cmdClosejcmdClose_Click!P cmdResetcmdReset_ClickA Form_Custom XML GenerationFill,TextBoxQ  _B_var_FillYUSelectedYCalcProg intCountawintCountP _B_var_Integerfinalb  _B_var_final{& dblPercentb _B_var_dblPercentEdblProgCa\dblBasenfrmAfterUpdateLV vbExclamationModule1bModule2c modSharedXML modCustomXML\ modshared _B_var_modshared9  _B_var_AddCustomBeachInformationF _B_var_xdtText9# _B_var_AppendBeachXMLDataToDocument'pbp" _B_var_AddBeachActivityInformation _B_var_AddBeachInformation" _B_var_objXMLActivityDetailm _B_var_txtBeginDate _B_var_txtEndDate-Form_frmCustomXMLGeneration"frmCustomXMLGeneration_AfterUpdate!wfrmCustomXMLGeneration_LoadI _B_var_Form_Loadt SpecialEffectNnone=flatacEffectNormalac}\acEffectShadow/ aceffectsacEffectChiselMinimizeoMoveSize@sysinfok _B_var_sysinfo_ p workareawidth Form_Activaten MaximizeFy RunCommand` acCmdZoom75L CmdZoom75Activate| acCmdZoomBoxwD acCmdZoomacCmdSizeToFitFormofrmCustomXMLGeneration_ActivatehRestore>" _B_var_frmCustomXMLGeneration_LoadForm_MouseMoveaButtonShiftYl MouseMovev Form_Open-disableImsgbo  _B_var_msgbo|foB] _B_var_SelectedzActivityoRange   _B_var_RangeValuei ValueIsNullxCalBegin_NewMonth}+xCalEnd_NewYearxCalEnd_NewMonth|xCalBegin_NewYear-NullCalLobjCal#CalendarI vbNewLineuavbnewvbt vbTabc9File%FiluFi<]vb_ vbInformationn IncludedData strIncludedFincluded _B_var_included(l  _B_var_elseifqmBeach!Role!TOrganizational ProcedureToday txtStK_[artDate_AfterUpdate dteStartDate= txtStartDateaIsDate2txtStopDate_AfterUpdate[ dteStopDate txtStopDateU lblStopDate lblStartDatecxCalBegin_AfterUpdate9xCalEnd_AfterUpdatedteDummyUwne  _B_var_wneȡXML_TAG_BCH_ACCESSzXML_TAG_BCH_ACCESS_TYPE*XML_TAG_BCH_ACCESS_COMMENT(XML_TAG_BCH_ACC_TYPE( (XML_TAG_BCH_ACC_COMMENTXML_TAG_BCH_HUCw2XML_TAG_BCH_WATER_HUC#:(XML_TAG_BCH_ACCn (XML_TAG_ATT_BCH_POLL(XML_TAG_ATT_BCH_TIER# XML_TAG_BCH__ _B_var_XML_TAG_BCH_WATER_NAME~CobjXMLBeachAccessDetailXML_TAG_BCH_ACC_/- _B_var_objXMLBeachAccessDetailobjXMLAccessDetail%AddBeachAttributePollutionInformationAddBeachAttrPollInformation-objXMLPollutionData\(SQL_ATTRIBUTE_POLL|(SQL_ATTRIBUTE_POLL_WHERE[SQL_$ SQL_ATTRIBUTEbSQL_WHEF;XML_Tag xml_tag_att_bch_p# objXMLPolluty _B_var_objXMLContactDataQobjbustrbea D[ _B_var_DobjXMLBeachPollSources'objRSPol~k strPolSQLxml_tag_ appendbeachSobjxm  XML_TAG_ATT_ Label34 chkActOnlyj lblChkActOnlychkActOnly_ClickfalMse_ blnActOnlyZ lblBeachNamez lblBeachAttchkAtt<chkName` _B_var_chkActOnlyBeachDataCheckw chkName_Click chkAtt_ClickU chkRole_Clickof^blnName)9blnAttѾ _B_var_blnBeach objXMLPollutionSourceDetail (XML_TAG_ATT_BCH_POLL_CD(XML_TAG_ATT_BCH_POLL_DESCA% OBJXMLPOL;  _B_var_True!VAddBeachHUCInformationASQL_BEACH_NAME_HUCVSTRBEACHIDENIFIER4objxmld, objxmlbeachn _B_var_SQL_BEACH_NAME_HUCO(SCHEMA_LOCATION8(W3_SCHEMA_NAMESPACE9(BEACHES_SCHEMA_NAMESPACEForm_End of Year Submissionj  Command12Text2~Label3,Label5,Check6 Label7,Check8Label9,Frame10Label11ACommand12_Click  b_createXMLRb_createXML_Click?[Filenamej Contact_Infotb_year cb_Locationg cb_Monitoringcb_Notification" XML_H_ROOT_TAG@"MakeGuidյXML_H_SCHEMA_NAMEXML_H_SCHEMA_NAMESPACEt CE_Headerr Author_Name[Organization_Nameu Comments) CE_PayloadvInc_Electronic_Addressu8Inc_TelephonicInc_Organization_Address Inc_ProjectXInc_Monitoring_Location` Inc_Activityx(Inc_Activity_GroupSchanges Remove_NodeK6 IXMLDOMNode5 selectNodesg parentNode removeChildGUIDl1^l2^l3^l4^ CoCreateGuidlpGuid OLE32.DLLStringFromGUID2%lpStringzcbBytesid]sTempenLene,hr]StrConvx' vbUnicode vbFromUnicode0 _B_var_XML_H_ROOT_TAGϹ _B_var_objRootElement GUID Code!| _B_var_objSchemaAttributes. _B_var_Chr\;_B_var_StrConv{CE_Leaf_Node_BasicData; objXMLDocE createNode1@ NODE_ELEMENTMWQX_SCHEMA_NAMEDYearCompletionIndicatorsE6YearCompletionD _B_var_YearCompletion1 Indicatorsi _B_var_Indicators$"(XML_TAG_YEAR_COMPLETION_INDICATORS XML_TAG_YCI_ (XML_TAG_YCI_YEARI(XML_TAG_YCI_NOTIFICATION((XML_TAG_YCI_MONITORING (XML_TAG_YCI_LOCATIONcb_YearH _B_var_cb_Year̽ _B_var_objXMLDoc objRootDoc _B_var_objRootDocA _B_var_SetFileName|{ NotificationWelNotification*elYear'} elMonitoring> elLocationt" tb_data_year _B_var_tb_data_yearC _B_var_tb_yearg%Form_End of Year Submission Generator3 & Form_End Of Year Submission Generation>CreateYearCompletionIndicator3$ _B_var_CreateYearCompletiK_[onIndicatordataYearTLocation- Monitoring bNotificationZ bMonitoringG: bLocation\bNotificationasZ _B_var_bNotificationas _B_var_bNotification7emd  _B_var_emdF CreateYearCompletionIndicatorXMLf _B_var_OPENFILENAMEn"Form_EndOfYearSubmissionGenerationdMForm_CustomXMLGeneration) _B_var_XML_TAG_YEAR_COMPLETION_INDICATORSG _B_var_FilenamerPrivat  _B_var_Privat{sFrame13Label14DXML_TAG_ATT_SWIM_STARTl(XML_TAG_ATT_SWIM_END_DATEf@(XML_TAG_ATT_SWIM_START_DATE*XML_TAG_DETAIL_ORGBEACHES_SCHEMA_NAMESPACE/XML_TAG_ORG_DETAIL_NAMEBEACHES_SCHEMA_NAMESPACE63/XML_TAG_ORG_DETAIL_PERSBEACHES_SCHEMA_NAMESPACEN0XML_TAG_PERS_DETAIL_NAMEBEACHES_SCHEMA_NAMESPACE\FobjXMLDocumentcreateNodeS _B_var_objXMLDocumentcreateNode1( xdtDateTime eXMLDataTpel _B_var_eXMLDataTpeCData  _B_var_CDataQI` _B_var_I elseiffMXL(XML_TAG_ATT_BCH_POLL_NONE#(XML_TAG_ATT_BCH_POLL_UNINVESTIGATEDKobjXMLPollutionSoucetobjXMLPollutionSourceq _B_var_objXMLPollutionSource\(XML_TAG_ATT_MON_IRREG(XML_TAG_ATT_MON_IRREG_COMMENTXML_TAG_ATT_MON_IRREG_COMMENTS% _B_var_XML_TAG_ATT_MON_IRREG_COMMENTS xdtYN(XML_TAG_ATT_BCH_POLL_SOURCE6GBeachActBeachIndicator(XML_TAG_ATT_BCH_ACT_BCHWCheck39Label40Check41Label42Check43Label44Check45Label46chkComp-chkNotchkMon%|chkLocvblnComp modShareed%GAddEndOfCompletionInformationB _B_var_AddEndOf}!(AddEndOfYearCompletionInformation`5 txt_data_year _B_var_txt_data_yearx txtDataYear _B_var_txtDataYear1Project-blnNot^blnNomblnNbl\Valu ValVa_VmchkComFchkCochkClblNotlblMonlblLoc4blnMon>blnLoctxtYearobjXMLYearCompletionIndicators\IsEmpty (AddBeachCoordinateInformation(SQL_BEACH_COORDINATEZ(SQL_BEACH_COORDINATE_WHERE(XML_TAG_BCH_COORDINATED{XML_TAG_BCHCOOR_TYPEX XML_TAG_BCHCOOR_START_LATBPXML_TAG_BCHCOOR_START_LONGFXML_TAG_BCHCOOR_END_LATXML_TAG_BCHCOOR_END_LONGf< (XML_TAG_BCHCOOR_SOURCE_MAP_SCALE%[((XML_TAG_BCHCOOR_H_COLLECTION_METHOD_NAME&(XML_TAG_BCHCOOR_H_REFERENCE_DATUM_NAMEŲ(XML_TAG_BCHCOOR_DESCRIPTION(XML_TAG_BCHCOOR_LAT(XML_TAG_BCHCOOR_LONG˼objXMLBeachCoordinateData`(XML_TAG_BCHCOOR_START_POINTY(XML_TAG_BCHCOOR_END_POINTkobjXMLBeachCoordinateStartPointobjXMLBeachCoordinateEndPointaUCheck50̨Label51chkCoorf- _B_var_chkCoor0chkRolchkRoblnCoor#AddCustomBeachCoordinateInformation?& _B_var_objXMLBeachCoordinateStartPointq ComctlLibn ActiveXCtl52 024 6     &Z;L**LLL*LLL<<<<<<<<<<<|N0{5453339B-7E2F-49D8-A4AD-44808B5188C6} A(%*H %@x TT(%z$%@Xl @ %@h %%8% `%k( 66I  ` , ?? Pi i  @i @i ` i i  i in i@ iB `` k0 55 ` 4   l`|H8 %%  ` < " `` @  & `$lkD 2 `'kH TTE  ` L %P(X v@ ` P ..`x ~ ` T 00`  ` X `x  H ` \ `0 x`k` YY+ ,`8 xkd  i\  B ` h  `dX@((X@(( H ` l   F ` p   D ` t %H i `%( ,b ` X x BB ` k| 04P  X 0hpH 0h@"{ 4H@"~ 8h@"@ <@"h @@b@ K_[ ``@@@   H   h P0d` ` `%0  ( \@ `RlXx `@ xFRlZ%0  ( T(`( 8P8`H" XLP` %%(0  ( 0  ( 0  ( p8' pHX` X7(@8  B %0  ( %Hp@@( @@$ @  @  `pA@ @ (x @h 8p(((X 0H Bz@x @h  0  ( 0  ( @ X @H 0Dh`H`  PX`0  ( H@4 %@0  ( 0  ( 0  ( X08`x0 ,p`h%X (`%h K_[0  ( (  X ( p 0x $` `hh% $ `%x )`!x!!!$H!$ @!x @!h @!X @"H @ "D @"B @P"0 @8" @" @h" @" @" @" @# @# @0# @# @x# @H# @# @`# x @#p @#l @h$j @$X @#H @P$D @ $4 @$$ @8$ @$ @ @ @ @ $`%$%%@l &('''h&'&lrpt\<X'x&`0A %x'h&@&t @&p @&l @&h @d @T @@'D @4 p'  %X'@ " ~P&xp(0)((+,@0p0`04B@,x @(h @(X @(H @)8 @)( @ * @`) @H) @x) )@) @) @) @) @* X(F f ~ @h* @8* @* p@P* @*x @*t @*d @+T @*D @*4 @p+0 @(+ @ @@+ @ )RPVb`@+ @+ @+ @ K_[@+ @, @, @0, @H, @`, x@x, @ @, (@ @h/ @@#$#X#x$@@#$#X#x$@@#$#X#x$@"#P""#X*@/ @/ @/ @/ @/ @/ @0 @(0 @ @0X0`%0@08X+ @00`@|%00=0`%0E`7h`7p 2l @j 2X H2@H x2D @4 @$ 2@ @ 3 ,@ 3( 3 ,`43p43LX44P @48 @5  4` 8`@p `7`p4`75@(@x 6@X@@x @h X@X @ @@@x @h @X p'7Xx 7@x 0@h @X 67x 7 @(6`77@@x @h H7@X ::<:@ exte@xai:@PVB@p @` @P <K_[@  <p< @8 @4 @0 @, @ @ @ @ @ @ @ in;`xP=@ @in= @x @h @X @>(H (>D @B >0 p>@ @> @ @ >@ @@ ? @ ? H?@ @x? @ @ ?@ @@p ?l @j  @XX (8@@H h@D @4 tionTy/x$ @@ @ h&@ @ @( @ x?P7`   8B>A@ h  ( d) XCJ *\R4*#6a$*\Rffff*024a55fc4c(*\Rffff*024a55fc4c\2*\R4*#9*\R4*#8$*\Rffff*034a55fc52*\R1*#4a*\R0*#e*\R0*#13*\R0*#14*\R1*#c1*\R0*#1*\R0*#f*\R1*#5d*\R1*#1*\R0*#f*\R0*#12*\R1*#78*\R1*#48*\R1*#50*\R1*#52*\R1*#5b*\R1*#25*\R1*#98*\R1*#99pxvI LP $  > < :H 8 > > @  @X J    < HH @ H B B` H D F8 HH H F @( Hh H B B@ H D H F` 8 H D H8 F 8 H H FX > H H F` > H L`  88  @   < : ,0  h @`"@     P   B@ X P*P & x   8   E@"4`  0   @ "  < 4H  : ( : &( 8P &K_[ : ( : &X 8 ( : >  0` > 8 ( @0 "T. p , .>@  .`&  ( HX  ^p @   (R6X      .    $0X h x  @ "  8 >8 x   @ " 6)@  .P           (  &0X h  px      2   J(8H  P X` h  p x      "  @ $ @ 8H >    @!"P! .X! (!  $! ! ! ! ! U "  08" )" (h" " " (" "U  X""  2# " P# `# p# U # # " ### " ### @# $$ ($ <P$ $ 0$ $ @$"8$ (8%@$  <`%$ $ @% % $ 8& H& $ & @' "h& @P'p& .'T9'&& J(<h( |9( && 4h) F& @)T9)& &  D8*&*N9*'( H* &@+ Zh+\9+(( X(, &,O(Z9,-- F- B`- - $- -  .-^O . :. .`/h/p/ x///  D// //  "/0 0(0  00P0  .X00 00 0 @0 $0 1 :1 x1 X1 1 @1 " `1 2h1 1 @02 0p2  2 <2 2 2 @3" H3 P3p3 &x3 33 *33 4  4 04 6P4 4  44444K_[4 4555 5(5 05 ,85 h55 ,5 L566 6 @(6 .h6 6 <6 6 6 @7" H7 P7p7  Lx7&7 78 *888  P8 p8 8 68 8 89 90989@9 H9P9X9h9p9x9 9 ,9 99 ,9 L:`:h:p: @x: ,: : :: 0; P; X; @x;" ; ;;  ; < < 8<X< @`< *< < :< = 8= @= @`=" = == = = > >@> @H> > > :> :? 6X? > ? @?"> ? >> @  @  20@h@ p@x@@ @ @@@ @ @@@ @ @@@ @ @@A A AA A (A 0A8A@A  HA `A  pA A  *AA  4A T8BB B B"NB"NB B(B  (B T CC C xC C C CC  C$\C$\C C @D XD xD :D :D 6E D HE @hE " E &E EE @E (0F XF >`F F F @F" G NG `GpG @G &G G <H G @H @`H" H HH @H &I (I >0I pI xI @I" I NI 0J@J @HJ $J J <J K K @(K" hK NK pKK @L "@L K :hL :L >0M 2pM K 6M @M @ N B KK L  L`N MFN M  xND0O N  NfxO N  O>O N  ODP  P(P  0P PP DQ@P $P`PhP  `QQ 8QP QpQxQ  QR 8(R`R hRRR R R @R $8S R >`S <S (T R (T @HT"K_[R r5T  UR  S SS  &@U  U hU xU U 0UU U8@X0E*********************************************************************8 BEACH Activity XML Generatorath 8 This database can be used to generate XML documents forje6 submission to the US EPA based on the requirements of4 the BEACH act. This database, once populated, willp`2 generate XML for the organization, person, beach,7 activity, and procedure requirements of the BEACH act.8 This database will not generate XML documents for beach` monitoring data.: If you have any questions about this code, please contactC Michael Klos (CGI-AMS) at 703-652-0425 or michael.klos@cgi-ams.comChange History:fi6 Programmer | Date | Changes savB ------------------|-------------------|--------------------------: Jason Payne | 12/01/2003 | Original AuthorB ------------------|-------------------|--------------------------; Michael Klos | 08/11/2004 | Added Custom XML z%; | | Generation form B ------------------|-------------------|--------------------------> Michael Klos | 01/04/2005 | Added Date Boxes to? | | the Custom XML form2 | | (v1.2)h2 | | (v1.2)`(]@ B ------------------|-------------------|--------------------------]@ ]@ ]@@ ]@h A Michael Klos | 12/16/2005 | Revamped to conform toP  Name: SetFileName@  9T Input/Output: None( q 9D( @ | | updated Notification c| 9FX 9 | | Schema (v1.2)B ------------------|-------------------|--------------------------B Michael Klos | 12/20/2005 | Added "Activities Only"; | | checkbox to thehe Bea; | | Custom XML form9B ------------------|-------------------|--------------------------= Michael Klos | 01/04/2006 | Revamped to handlebox A | | additional changes to? | | Notification SchemaB ------------------|-------------------|--------------------------= Michael Klos | 02/02/2006 | Revamped to handleActiA | | additional changes to? | | Notification Schemao B ------------------|-------------------|--------------------------A Andrew Hampton | 10/11/2007 | Changes related to the? | | Notification Schema8 | | v2.0 upgrade 9Hhe phdk Create API structure `($\9RPxB ------------------|-------------------|--------------------------A Erik Richards | 08/25/2008 | Changes related to the2Declare variables required for XML file generationx? | | Notification Schema8 K_[ | | v2.1 upgrade9*********************************************************Hk@ l r p t9^Save Beach Notification XML As9\ t`oxP .z(75A@hB ------------------|-------------------|-------------------------- H0E*********************************************************************$ 6 Description: Allows user to select path and filenameboxe3 while initializing objects necessary% for XML file creation.rs a:**********************************************************XML Documents (*.xml)$ *.xml$ 9J******Prompt user for file name $<pDetermine file save namele !R$ $' $ $ .XMLe obje .xml'9********************************************************* Name: CreateBaseXML Cre6 Description: Allows user to select path and filenamech N. while initializing the objects.ox3Input/Output: blnName - Value of "Beach Name Data"! checkbox3 blnAtt - Value of "Beach Attributes" checkboxdu1 blnAct - Value of "Beach Activity" checkbox R3 blnRole - Value of "Beach Role Data"g Acti! checkbox4 blnOrg - Value of "Organization Data" checkbox 2 blnProc - Value of "Procedure Data"! checkbox4 dtActBegin - Beginning Activity Date,88 derived from "Activity Start* Date" calendar7 dtActEnd - Ending Activity Date, derived**2 from "Activity End Date"" calendar:**********************************************************$  $(is%Create the document and some commentsxml version="1.0" z% zB@roBeach Data Submission created $ z% zB@is n " z% .~ to (Now add the beach information and schemaxsi:schemaLocation z%.**  (d****  ~!B@ butxmlns z%.****** " (d****  ~!B@***** xmlns:xsi z%.fu (dto t  ~!B@WAdd the individual sections of the schema to the XML document, based on user selections z ~ B@k ((****       e:  z ~     @ B B@: k 2 (( Non  z ~ B@******kK ((**** n  z ~ h !( j !( l !( ~ B@x alk_ ((HFinally save the XML document ~ z/md  zB@d ((****o(9********************************************************* Name: chkAct_Click*****1 Description: Provides commands for enabling and7 disabling form elements related to beachro activitiesInput/Output: Nonedes co:********************************************************** /If the Beach Activity box has been unchecked...** !((...zero out the dates on both calandars, 9@ 99q B9@8 @ 8 0 @( ( 0 99q0...and both calendar textboxesK_[, z 9(9q 9(9q,Check to see if all beach data is unselectedke surA@kCIf the Beach Activity checkbox is checked, re-enable cals, txtboxescan be !( 9 9q0 B9 9q z(4 (xkPoH`A@o09********************************************************* Name: chkBeach_Click1 Description: Provides commands for enabling and7 disabling form elements related to beachda datathe AcInput/Output: Noneake :**********************************************************(If the Beach Data checkbox is checked... H...enable the child checkboxesl (w ( old d (ise) ( Month (d, setk( reta'''"*If the Beach Data Checkbox is unchecked..."...uncheck the child checkboxes...'Q...then run the chkAct_Click sub to correctly set the Activity-related details...A@ ((0#,...and finally disable the child checkboxes. ( (( (koA@o A@o9********************************************************* Name: cmdBrowse_ClickV`A@"5 Description: Provides functionality to the "Browse"*** button.h arInput/Output: Nonech inc 'oH(:**********************************************************!Kicks off the "Save As..." dialog5Sets the File textbox with the selected filename/pathrson9*********************************************************'( Name: cmdGo_Click2 Description: Provides functionality to the "Go!" button.ch N (|d|)Input/Output: Nones to sd BX X nder)|d|):**********************************************************:Checks to see that a valid filename/path has been selected(If not, warns the user and exits the sub>Please select file save location using the 'Browse...' button.  !A@4 alsDMake sure that (if activity box is checked) dates have been selected****** B!( !(  d|'d f  ~ $me*fPlease make sure that both a beginning and ending date have been selected for the Activity Date Range.  !A@4ssio .Check to see that the selected dates are valid89If dates are in incorrect order, inform user and exit sub>End Date occurs before Begin Date. Please correct to proceed.  !A@4reme>Check check box values to make sure that something is selectedocum  F .8Please select at least one data type to include in file.  !A@4coACheck to see that, if Beach Data only is selected, that some type of beach data is also selected**        s dateFPlease select at least one data type of Beach data to include in file.  !A@4***RCheck to see that, if any data submissions have been completed by the organization they have also included a yearCPlease select any data completions that apply and include the year.  !A@4ate|`dX@If filename/path and dates are valid, and something is selected,**<(take the focus off of the Go! button so it can be disabled)****** B@****** disable the Go! button...**** R(**K_[****'...and execute the final file creation.tp* !( !( !( !( !( F!( !( f !( !( B!(A@ 4After creation of XML, inform user what has happenedto zer    (Notification XML Generated Successfully! P P File Name:  V  P P Included:  V b ` !A@4kkkkkk>After completion of file creation, re-enable the Go! button...**** R9q...reset the progress bar...he val 9(q@...clear the file path...''...and set the focus to the Go! button.** RC@qo9********************************************************* Name: cmdReset_Click che4 Description: Provides functionality to the "Reset"ded inA@x! button.oX33Input/Output: Nones bar.:********************************************************** Reset form@39*********************************************************) Name: txtStartDate_AfterUpdate()5 Description: Migrates change in textbox to calendaralenInput/Output: None: Non:**********************************************************Declare local variablesri]( z!($ z!(Nothingd #Test string to see if date is valids vali z!($|| Grab value from text boxte z!(X'x Set xCalBegin to same date 0Note that the value is set twice due to a glitcha  in the calendar control c xd$ X  x 9( x9(C@ q d   x 9( x9(C@ q k %Change text box to appropriate format for xm/d/yyyy$ X z((d@ %Invalid date entered, display messagemess6Invalid start date entered; please check and re-enter.  !A@4A@kko9*********************************************************( Name: txtStopDate_AfterUpdate()Up5 Description: Migrates change in textbox to calendaralenInput/Output: None: Non:**********************************************************@Declare local variablesri]EIf textbox is null, grab calendar date (should only be called OnLoad)OnLo !($ !(Nothingd#Test string to see if date is valids vali !($|| Grab value from text boxte !(X' Set xCalEnd to same dateam 0Note that the value is set twice due to a glitcha  in the calendar control c d$ X B  9( 9(C@ qd B  9( 9(C@ qPkH %Change text box to appropriate format for m/d/yyyy$ X ((d %Invalid date entered, display messagemess5Invalid stop date entered; please check and re-enter.  !A@4A@khk`oX9*********************************************************& Name: xCalBegin_AfterUpdate()3 Description: Causes date change to be migrated to****** text boxInput/Output: None():**********************************************************Declare local variables]Get date from xCalBegin !('x****Put date in text box****** xm/d/yyyy$ X z((op9*********************************************************$ Name: xCalEnd_AfterUpdate()d/yyyy3 Description: Causes date change to be migrated to****** text box Input/Output: None:******************************K_[****************************Declare local variables]0Get date from xCalBegin B!('****Put date in text box****** m/d/yyyy$ X ((o9********************************************************* Name: Form_LoadH''X'3 Description: Provides commands for the Custom XML3 Generation form onLoad. This sub is------0 also used for resetting the form.naInput/Output: None------:**********************************************************Blank any textboxes | z((m XM ((@+Set all check boxes to "Enabled" and "True"on for 99(q 99(q 99(qh 99(qH 99(q( F99(q 99(qEnable Go! Button R(------Reset Progress Bar ((H$Check that all calendars are enabled******A@l.Set initial Calendar Date (Jan 1st, this year)**** 9C@C@ qP>M Note that value must be set twice to override "NewMonth" and "NewYear" substwic1/2/ Zyyyy$ X9(t twic1/1/ Zyyyy$ X9(ear" s!Set initial Calendar Date (today) B9BM Note that value must be set twice to override "NewMonth" and "NewYear" subsC@C@tC@tC@ qoD Insert datesos !(m/d/yyyy$ X z(( con B!(m/d/yyyy$ X (( 9********************************************************* Name: Form_Openfi3 Description: Provides commands for the Custom XML------D3 Generation form onLoad. This sub ist/Outp0 also used for resetting the form.Input/Output: Nonees,:********************************************************** Make sure window isn't maximized *B@ o9*********************************************************! Name: xCalBegin_NewMonth7 Description: Causes dates to zero out on month updatetiInput/Output: None check:**********************************************************HWhen month is updated, set date to null (will retain old date otherwise)-- (@------oC9********************************************************* Name: xCalBegin_NewYear@H6 Description: Causes dates to zero out on year updateals,Input/Output: Nonek to s:**********************************************************  (@-Beao9********************************************************* Name: xCalEnd_NewMonth 7 Description: Causes dates to zero out on month updateerInput/Output: None&:********************************************************** HWhen Month is updated, set date to null (will retain old date otherwise)** B(@******op9********************************************************* Name: xCalEnd_NewYearutespG6 Description: Causes dates to zero out on year updatehat,Input/Output: Nonehat so:**********************************************************  B(@data to  ](JGWhen Year is updated, set date to null (will retain old date otherwise)9********************************************************* Name: IncludedData 4 Description: Compiles string (formatted for MsgBox | 4 display) based upon the values of the------'d ----kKN K_[xN7 checkboxes. Lists specifically what wasan+ included in file generation. | 0Input/Output: strIncluded - listing of what was 9 included in XML generation:********************************************************** -Beach Data'd---- ----HMk tionkkP d:  P V V V-Beach Name Data'd  z O  d P V V V-Beach Attribute Data'd  d P V V V-Beach Activity Data (  to  B)'d   d P V V V-Beach Role Data'd--k k F----d0O " kk`QHQQQQ-Organizational/Person Data'd dR  d P V V V-Beach Coordinate Data'dssfu  d P V V-Organizational/Person Data'ded:  kkQ  F  d P V V-Procedure Data'd-Procedure Data'd f   Fta sub  d P V V-Completion Data'dd@-Completion Data'dk k d'biPS  SSS9********************************************************* Name: BeachDataCheckX8 Description: Checks to see if all the checkboxes under(C@9(qS6 chkBeach are unchecked. If so, chkBeachated! is also unchecked.Input/Output: nonetion S:********************************************************** &  !  !  !  !ions tSet chkBeach to falsear. (A@4kR Grey out appropriate check boxesP (V (each C (DataoT ( (' xUzAttribute VB_Name = "Form_Custom XML Generation"D Basb0{5453339B-7E2F-49D8-A4AD-44808B5@188C6} |G lobalvSpacIFalse dCreatab"lTru Pr@edeclaId"Expose_TemplateDeriv3izD$'*A ' BEACH ActivityorThis dcan be ulto gedocuments f subPmiss the US EPA bd on requirreCof&act. ,!mpopuPd, will J# organ@PA, person,0ach, @?, and procedure~ %$AKF! 8notDCmonitoring V.If you have@#@y ques-s about bcode2lecont@0Michael Klos (CGI-AMS) at 703-652-0425 or m C .k@ @cgi-ams.com@Change Hiry: Progr`ammer|ك D@ Rs -|-Gq Ja6 `Paynec $ 12/01/2003aOriginal AuthP ?j"+a$P08/1"4$Addy'joha2_(](1/04A(5:Boxesww -'\B @A16Revamp`1рconm_3 up``Notificaq!BSchema (v1.2)aq 209 "i:Only'"bckbox@(῿Ap-ABb_-SPAS-6! Ndl/  G2addiE R1? QY$ s!R _$-k0U2Q$ojn  8?;a!?HAn@drew HFtTH0da7$qpRo4a 4 t2v2.0 up|d0 __XRErik Rardsq25Q$8@1_D14r2__GP1_X GP? O paF licitCompNaq 'D Pvarisūdswfi  PobjD As MS2.DOMU40>RootEl8IOMNCOF1 OPENFI@LENAMEKstrA"St# 1:A2SetDescri`Allowsar>select` pathRnOp6whAiializs necespsary_` Rc0DInput/Out` Nonq? Pub) Sub x( d'2e APIb uctp With objFile  .lStructSize = Len()hwndOwnerB0&.Ins0tancr .lp(strtK_[b"XML Documents (*.xml)" & Chr$(0) "dlMaxC{1024flagsOFN_EXPLORE R Or OVERWRITEP ROMPTHIDEREADONLY PATHMUSTEXIST;aming(a?0, 0tTitl"Save Beach Notifica tion As".EndŃ'Prompt usfor f! namIf` (Get/N ӀThen%Exit SDubEls 'DeemineCs-Coe@Replace%.Ewe,p, ""E A+Right$(UCase$(), 4) <> ".E") K. #&@ DR ASIf9@V A@ '*5 B:CreateB60ADescr ip{ Allowssto select pa@na@)w\'whA~initializ thes.Input/Outblnj- Valu f "D Data@L- checkbox! Att  ributeZ6  " cti0vity Ro`q ?!9!Org*!anizaB|7] zcJ edure7 dtActBegin` =nI",A e,o>*@deriveHd f "FS0tart\ "e" calendart- / d  h5 PuPblic J(A%rAs BoRan, _+Dm?f!`h?)r0/&@Coi// 2"0//'C s //0Pa"O6*HnS' [d _some comSet]dE@wNew MS02.DOM40# .ap*p@6Ccd.cjDss@6` ("t{vers=""1.0"|OO2DQ (˴ga1mi@ d ANow()RootE| <l~ ;nj6k=~ )_k AT9rchildA{0k%rttcRoleCoor-JbOd?H~1~MVpqywq|!# n run$ kf subdcorr`b -udetai|ls {!zf$7S^g &A&0 "&&  T/Tte cL?T{A hq,{WoFPMWmdBrowse1Ăf0ality$#6"'(8butt3TT oTk TKf*f0""A-" d@ogEuS'ps5 Nw fnA/pathtYxtFile = strName  End Sub '*5v : cmdGo_ClickDescription&Provides funcality to the "pGo!"4Obutton.Input/OutPNon7*Privatfe`()A'@ChecksSseeUat a v^d fn/path has been selected0If (Ā""@) Then'not, wa rn5user aexit sMsgBox "Plea se9H sav@e locaAY usingX'Browse...' V", vb@ExclamB , Me.Cal'E AElsȓ'MakurF(if awvwBb@(is cPed) dZsJ'PJAK((xCal.ValuAALOr BegDinI) AI_+(chkAct@[True) \KLPm1botat@nAPbndÁ1P1 forZ i?DRange.cZ%K[BJ\AC AE-a2"Uk#a,CA,) < ,2&"8 in incorr^ order, mNX jWa%0!B%occLurh e  q. \e proceed?+ +kZ&.Z [+u`GsomethE?`+ ea1aUBeachUFa`=#ZOrg co1[ ,\ at Ea typwoA9lude?+ +3,!oY`Hf?!"?aly (,lA,b4 ofwVa+o̳!i 2‡1!5O5A~K_[tA:̔#l@Ro !Co`H= !(/"?Q+A %Uk,BT,)'(t!}focus@f!AЦ$ spO t canB disabl.SetF$ ǿR.EnR Eo/)' ae0xecuinalcreB0 KYCaeBXMLkOC,pOctLJQO5qqq6 m'AftA&`Hnw8!h8enE>Notifi5Gr`1ccessf Dy!" &NewLinevb",ݣTab`~s' Incbd: UO, ??bIBB*ѥIfQ i=5!fXQ!N e", re-e=_ACWi@"@ ?@d '...reset the proghs bar`With pbPlP.Valu e = 0&En As @CCIf ((IsN0ull(I))0 Or ""aThen N@othing#ElsJbTes`t str(se+f 0 is9@li@Is GrabC fromB6 `6!= CU ' xCalBegaCo s`xB !e avawice da g`xch"Ohe EN control!'CIntB(akat$(), "d6= 1) o($Bk a)+ 1QTRef !aAakLa s-j%tIfk 'CAZgapp} 9atky`vCStrCm/d/yC# o+'In`X$idvenTed, display messagC8?QMsgBS"sX ; p~s`.heck Q{re-.", vbEx@Nman, Me.CapqqhyV^dStopuaC_d'ddd /y /y d >eyddd .'pGErNnd, `tbK^(should only bMled OnQd!L:i;)iyi''ibi ii0A i< Tg)'oixtoiT#a:WijEio/ e/i /isn /i/i'/i/i Oh ?h @[ [[ ht\Jvgaq ?R Df `\g . 4 Qg$bgo g[gC g ggrgggopgagmgg )qgZ_gfg gCaus0BWtPAWmd@7 *1 Private Sub xCalBegin_AfterUpd2() 'Declare local variables:Dim dteStartDO8As 'Get R fro.mm ==.V@alue CPuCin tex t boxtxt? = CStr(Format$( 1, "m/d/y")qEnd3'2 ' Name:- 'DescriptionCauseschange to be migrd-)Inpu`t/OutNonN3*2!$opˆt߅ +C؄lA_LoadAProvidcommands for th@e CustXMLA BGeneD Im on . ThisT s`{iu' also Ndb resetting m. @J?XJ!BBlank anyB| |ŌstrFile*{"" +oStlBe $dSall cpheck`2r"$End"d "TrueWithkBeach-. [  7a# e At:t Fg'YAc Rola Org_K`xc 'cH Go! @ButtoncmdGoLtR1= g=s Barpb50 S'CR/thatPB@0alendahrs e#0ch/_Click 3S'!4initiR (Jan 1st,F!Jyeare ,Nov mOpI twicAqoverrR "NewMonth9Y"QOĉ?ƍ O$% Fo\cu:C!l("1/2/" & KQd1%q1 "Ref0D6p todayOtOцOObM / Hr/.T! /PKS'Inserd _Z /] Bb>p _qw rOpe@O>߃|߃a 3߃߃߃߃P߃6?I(Cancel Integea&EMake@window isn't maxi0mize DoCmd.Stor P /T֕K0a s9zero o!on mN u__ ǃ% VWhe\q# d, Z n"u`(wiPreDtaoldorwiseJ9IsN= s/5 Q0F_ c# k   xCalBegin.ValueIsNull = True End Sub ` '*5v Name: Z_NewMon th!$Description+Causes datto zero out on m5 uph < : 8( >` >   @ 4 " @@  @ .P  > > @ ,H x > . > 80 @h"L* 0  @"\8)` &x(  =& F   D@ ( (p 4B <B 8B BBP <B >Bp >B ( (( <B( >Bh , $ 0  $@ h   H x  D   D     J P  4(` p x       @ 6 P >X 4 4  > .P > 8 @ *8 @h < > 6( @` ", 0        B Rh ) & (H  , >0 >B4BP BB0@B  H@  <B 8B  :  /`(/ ( DB  &  &      >( 8 @P  X x  K_[ xp9*********************************************************( Name: AddCustomBeachInformation8 Description: Procedure that manages the queries to the8 database to add beach name, activity, and: role information to the XML document, based% on user input in formsH7Input/Output: objXMLDocument - the document to add the' data to7 objParentElement - the parent element to1 add the data to:**********************************************************)Variables used to create the XML document]x]]]:Query the beach table to return the beach name detail data   P ! B@\ ! !bCreate the beach detail elementAdd the beach identifierID %'  , z  NAME % ` B@ , z  COMMENT % ` B@ , z  STATE_POSTAL_CODE % ` B@ , z   FIPS_COUNTY % ` B@E_PO "Create the BeachNameDetail element   Add the individual data pieces  B@ Add the individual data pieces  B@C_ z   B@ti z   @ B B@<an z   B@ z   B@  z   B@<k z   B@kX.Finally add the beach data to the root elementON_I  B@.. B@rBodyTClean up our resourcesATER B@Bring =.o9*********************************************************0 Name: AddCustomBeachActivityInformationTT8 Description: Procedure that manages the queries to theCT- database to add beach activity_TAG. information to the XML documentlect7Input/Output: objXMLDocument - the document to add thect' data toEC7 objParentElement - the parent element toG_1 add the data to: strBeachID - the beach ID to query activity$ data forGlobal9 dtActBegin - beginning date for activities5 to be included in XML DocmeDe7 dtActEnd - ending date for activities tonN0 be included in XML Doc A:********************************************************** ((((Name" )Variables used to create the XML document]x]]]]];Query the beach activity table to return the beach activity XML_T  4  6  L @ N B z ! B@AG_ORG ! !bCreate the beach detail elementlo%Add the standard activity informationcAdd ACTIVITY_ID %'TA ( z  xNAME % ` B@A@ ( z  |ACTUAL_STOP_DATE % * B@ ( z   DESCRIPTION % ` B@8 ( z  COMMENT % ` B@AAdd activity reason and station data if it exists in the database ( z  EXTENT_START_MEASURE % ` B@  ' z    ` B@ ( z    ` B@A@3Determine if extent data should be added to the XML EXTENT_LENGTH %'EXTENT_UNIT_OF_MEASURE %' $ $SQL_  B@CH.k7Finally add the beach activity data to the root elementCo  B@OR. B@ring =`Clean up our resourcesIGN. B@BK_[D = '".o BBased on the value of blnAtt, add the BeachAttributeDetail Element  k ( z  v ACTIVITY_CODE % ` B@FE ( z  zACTUAL_START_DATE % * B@N_ID F  ( z    ` B@ , z   DESCRIPTION % ` B@@9********************************************************* BEACH Activity XML Generator8 This database can be used to generate XML documents for6 submission to the US EPA based on the requirements of4 the BEACH act. This database, once populated, will2 generate XML for the organization, person, beach,7 activity, and procedure requirements of the BEACH act.8 This database will not generate XML documents for beach monitoring data.9 If you have any questions about this code please contact:**********************************************************. Michael Klos (CGI Federal) at 703-652-0425 or k @To this point, the BeachDetail element has been created, and the_B BeachIdentifier added. >Based on the value of blnName, add the BeachNameDetail Element As =Based on the value of blnAct, add the BeachNameDetail Elementment>Based on the value of blnRole, add the BeachNameDetail Element), x] , z   ACCESS_TYPE % ` B@ 4 z  ACCESS_COMMENT % ` B@(8 michael.klos@cgifederal.com( r " z% .  " z% ."  " z% .  " z% .   " z% . ((((!(&(+(0( k`DBased on the value of blnCoor, add the BeachCoordinateDetail ElementP z   B@ p , z  WATERBODY_NAME % ` B@ , z  WATERBODY_TYPE % ` B@Attribute VB_Name = "modCustomXML" '*5v BEACH Activity  Generator>"This database can be used t(o g,e9documents f= submi ssion+the US EPA2 Jd re quire9ofs*act. A,ce populated, willFA #organizatC, p@erson,aa8ch,0~, and procedure K%IB not:monihing.  If you haveFy ques-s abouFt bcod@?lbecont0Michael Klos (CGI Fed@rl) at 703-652-0425 %Cgm .k @cgif .comu** Op- ExplicitCompaWDē {$: AdBewInmB~@4 Descri'% P{thHmanages@YeA^rio#addCv nBrole i&߅]wd`f`orpAinAmms@In`/OutQobj@ Dr -  d k_ /` P9n8tElx aF5'C t dSSetW =I.s$N(NODE_ELEMENT,a_TAG,ES_SCHEMASPACE Ti'CFields`("ID"pShcd` .Apd a.To mBCH_\ID: o , xdtText+5T1poixnt,rc(Uohas` (pwE' I1@pledBղvalue of _@P>=Х(T) en7(R .)l)).))9();)1_$_$u_$W$ $C$a?;/!")?% ? 1'@p2\ DESC f  !RIPTION? ? ? ? ? ef; COMM2Lok T/ / / / / / HSTATEo Fields("STATE_POpL_CODE"), xdtTe xt modSharedXML.Appen@dBeachDataToDocument ob6j(,XNameDetail, #_TAG_BCHyUNTYx, _K_[ s  iRS.FIPSIsWR_NAMEd$BODY&yfTYP?3TER33zKSeؔAccessC =L.createNode(N_ELEMENTACC, BEACHES_S @MAB^SPAC|E)K,"_?]"@4ESSBl**z;COM-{? | ?ITJ9'Add the individual d pi>eKL.aChildD%S ?(ug 'End IfA1'BasenB!value of blnAtt, ad$ttribut$ Ele If (#) Then' hdȠ c InformationNa , str"IdifierwG pcm)ctCustomF.`L(ct Mtyu, dtActBegiNnd? =Role/'Q? OOrganiz"_;F_t%%Pe0rsonoMLh% %1ÿ4Coor!dinjk44 W F llyM6BbQ#TtoDr`oot e]BMPnt4/M')= Nothinghn` MoveNfLo opS'Clean up our res`a`CloseT RS Sub '*@** ' :u ?Fvi:F QDescripVProcedureat ma nagesbqueriRuQrb`c `ba;Mi]!Q d Input/Out` 0E+ - { B}to0(Tp)u+OV076kDtcID !4/ #6r wa0banp1e  4`bcludinQ 2-- it$/0 PrivV P7O2x(ByRef |'As MS( 2.DOM(40o&I.t o :"? ? ? ? ? ? 1 ,S/ 4 + 0*[.arCdtH "</Q =q6hiUˑqIf'Fi`nallyaC_yEDro>` PPntT/ L; / ~MoveNLoopS'Clean up our res`cesp Clo%{0D Sub      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~,d K<(oGetSaveFileNameAGetSaveFileNameAxME K_[ 7HD 8HH <HN =HR HʐX X H#SO#TORD8#ataSubmission`#zationDetailn#etailnDe$ "H%b`#Cbb$Cbd($CbfCbjx$CblCH,8#H'r `#H(v 0=H*| X8H-ꐀ =H/ꐆ =H2ꐊ >H4ꐐ x>H7ꐔ >H9ꐚ ?H<ꐞ H?H>ꐤ ?HAꐨ ?HCꐮ 0@HFꐲ p@HHꐸ @HKꐼ AHM `AHP AHR AHU (BHW BHZ BH\ CH_ 8CHa CHd CHf (DHi GHk ZHn OHp VHs  HNHu pKHx ZHz @QH}  h[H& QH* RH0 XSH4 @TH: h\H˜l C˜n B˜r Bb`/CK_[bb+Cbd ,CbfC`-H1HL <Hbb,Cbd,CbfCbj8-CblC-hxp# t-- p--`lb`/C0//www.w3.org/2001/XMLSchema-instanceinsta W FK_ORGANIZATION_ID = 'N W FK_PERSON_ID = 'N_ID = BerocedureDetailre0/.%bj.CblCbbX/C/ FK_ORGANIZATION_ID = '1bd/CbfCbb/Cbd0Cp1tyNameb`00CbbX0Cbd0CbfCbj0CblCbfCbjH1CblC8 "_8 BEACH.ID, BEACH.TRANSACTION, BEACH.NAME, BEACH.DESCRIPTION, BEACH.COMMENT, BEACH.STATE_POSTAL_CODE, BEACH.FIPS_COUNTY, BEACH.WATERBODY_NAME, BEACH.WATERBODY_TYPE, BEACH.WATERBODY_SALINITY FROM BEACHOSE ORGANIZATION.ID, ORGANIZATION.TRANSACTION, ORGANIZATION.ORGANIZATION_CODE, ORGANIZATION.NAME, ORGANIZATION.DESCRIPTION, ORGANIZATION.ABBREVIATION FROM ORGANIZATIONNIZASE MAILING_ADDRESS.MAILING_ADDRESS_CODE, MAILING_ADDRESS.LINE_1, MAILING_ADDRESS.LINE_2, MAILING_ADDRESS.LINE_3, MAILING_ADDRESS.CITY, MAILING_ADDRESS.STATE_POSTAL_CODE, MAILING_ADDRESS.ZIP_CODE, MAILING_ADDRESS.EFFECTIVE_DATE, MAILING_ADDRESS.STATUS FROM MAILING_ADDRESS_ADSE ELECTRONIC_ADDRESS.ELECTRONIC_ADDRESS_CODE, ELECTRONIC_ADDRESS.ADDRESS, ELECTRONIC_ADDRESS.EFFECTIVE_DATE, ELECTRONIC_ADDRESS.STATUS FROM ELECTRONIC_ADDRESS_ADvSEp TELEPHONE.TELEPHONE_CODE, TELEPHONE.TELEPHONE_NUMBER, TELEPHONE.EFFECTIVE_DATE, TELEPHONE.STATUS FROM TELEPHONESE PERSON.ID, PERSON.TRANSACTION, PERSON.ACTIVE, PERSON.FIRST_NAME, PERSON.LAST_NAME, PERSON.MIDDLE_INITIAL, PERSON.SUFFIX, PERSON.TITLE FROM PERSONM PERS'SE( BEACH_ATTRIBUTE.EFFECTIVE_YEAR, BEACH_ATTRIBUTE.EXTENT_LENGTH, BEACH_ATTRIBUTE.EXTENT_UNITS, BEACH_ATTRIBUTE.SWIM_SEASON_LENGTH, BEACH_ATTRIBUTE.SWIM_SEASON_UNITS, BEACH_ATTRIBUTE.SWIM_MONITOR_FREQ, BEACH_ATTRIBUTE.OFF_MONITOR_FREQ, BEACH_ATTRIBUTE.MONITOR_FREQ_UNITS FROM BEACH_ATTRIBUTETTRIBUT|SEx BEACH_ACTIVITY_REASON.CLASS, BEACH_ACTIVITY_REASON.TYPE, BEACH_ACTIVITY_REASON.DESCRIPTION FROM BEACH_ACTIVITY_REASONY_ W FK_ACTIVITY_ID = TY_ID DSE@ BEACH_ACTIVITY_STATION.STATION_ID FROM BEACH_ACTIVITY_STATION_S W FK_ACTIVITY_ID = TY_ID 5 W0 BEACH_ORGANIZATION_ROLE_ASSIGN.FK_BEACH_ID = 'HActyActualStopDatebj8CblCF BEACH_ACTIVITY.ACTIVITY_CODE, BEACH_ACTIVITY.NAME, BEACH_ACTIVITY.ACTUAL_START_DATE, BEACH_ACTIVITY.ACTUAL_STOP_DATE, BEACH_ACTIVITY.DESCRIPTION, BEACH_ACTIVITY.COMMENT, BEACH_ACTIVITY.EXTENT_START_MEASURE, BEACH_ACTIVITY.EXTENT_LENGTH, BEACH_ACTIVITY.EXTENT_UNIT_OF_MEASURE, BEACH_ACTIVITY.ACTIVITY_ID FROM BEACH_ACTIVITYIVITYSE BEACH_ORGANIZATION_ROLE_ASSIGN.ORG_ROLE_CODE, BEACH_ORGANIZATION_ROLE_ASSIGN.FK_ORGANIZATION_ID, BEACH_ORGANIZATION_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_ORGANIZATION_ROLE_ASSIGN.STATUS FROM BEACH_ORGANIZATION_ROLE_ASSIGNTY.EXT!SE  BEACH_PERSON_ROLE_ASSIGN.PERSON_ROLE_CODE, BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_ID, BEACH_PERSOK_[N_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_PERSON_ROLE_ASSIGN.STATUS, PERSON.FK_ORGANIZATION_ID FROM PERSON INNER JOIN BEACH_PERSON_ROLE_ASSIGN ON PERSON.ID = BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_IDH_ORG/ W0 BEACH_PERSON_ROLE_ASSIGN.FK_BEACH_ID = 'RGANIZAnSEh PROCEDURE.ID, PROCEDURE.[TRANSACTION], PROCEDURE.PROCEDURE_CODE, PROCEDURE.DESCRIPTION FROM [PROCEDURE]ESE@ BEACH_PROCEDURE_ASSIGN.FK_BEACH_ID FROM BEACH_PROCEDURE_ASSIGNP W FK_PROCEDURE_ID = 'E_COActyTypeCodeOLE_ASActyActualStartDatePERSON_#Ac tyMonitoringStationIdentifieritoActyDescriptionTextAcActyCommentTextERSActyExtentDetailRSActyExtentStartMeasureActyExtentLengthMeasureAc tyExtentUnitOfMeasureCodeyExtentActyReasonDetailxtActyReasonTypeil PActyReasonDescriptionTextActySourceDetailtDActySourceTypeilPRActySourceDescriptionTextActyIndicatorDetailAcActyIndicatorType Ac tyIndicatorDescriptionTextIndicaAtuteEffectiveYearBextentDetaileYearExLengthMeasureExUnitOfMeasureCodeExBewimSeasonLengthDetailSwasonLengthMeasureSwSwasonUnitOfMeasureCodeMoringFrequencyDetailoSwasonFrequencyMeasureOfsonFrequencyMeasuref$Mo ringFrequencyUnitOfMeasureCodeeqMagAddressTypeCodeMagAddressStreetLine1TextMagAddressStreetLine2TextMagAddressStreetLine3TextMagAddressCityTextMagAddressStateCodeMaMagAddressZipCodeeMagAddressEffectiveDateMagAddressStatusIndicatorBedentifiericatorBeameTransactionTypeCodeBeameDetaileCodePrmInterestNamesurPrmInterestDescriptionTextPrmInterestStateCodePrPrmInterestCommentTextPrmInterestFIPSCountyCodeWaodyNameCodeCodeqWaodyTypeCodeodeWaodySalinityCodeeBeameTransactionTypeCodeBettributeDetailLiBectivityDetaillssBeoleDetailtailElonicAddressTypeCodelElonicAddressTextElonicAddressEffectiveDate El onicAddressStatusIndicatoricAddrOrzationIdentifierOrzationNameDetail#Or zationNameTransactionTypeCodenNaOrzationTypeCodeOrzationNameCodeipPeIdentifiernteresPeNameDetailb`DCbbDCbdDCbfCbj8ECblCb`ECbbECbdECbfCbj(FCblCb`xFCbbFCbdFCbfCHhzationDescriptionTextUREOrzationAbbreviationTexteD#Or zationNameTransactionTypeCodepeCbjGCblCb`GCbbHCbd(HCbfCbjxHCblCb`(JCb`8ICI`xII`Hh bb`ICbdICbfCbjSCJLastNameb`KCJStatusIndicatorbbPJCbdxJCbfCbjJC8K`hx( blCK_[b`LCpK HK`pxKSuffix`XKh bbKC LI`xbdLC@L`x MTitleK`x`PLh bfCbjLCblCbbHMCNN`@xbdpMCbfCbjMCblCb`XPCHNzationTelephoneDetaile`hxNFirstNameicator`x`x`xNh NMiddleInitial`hxO@L`x`xb`@OCbbhOCbdOCbfCbj0PCPzationPersonDetail`x`xblCbbQCP`xb`PCbbhRC@Q`xbdQCpQTelephoneDetail`hxQureTypeCodetailr`hx RureIdentifierail`xbfCbj@RCR`xblCbdRCbfCbjSC8SoleTypeCodeere`xblCXS`xSoleEffectiveDate`xblC@T8`(@8K==JbfCbjpTChUoneTypeCodeeDate`xblCb`TCbbUC`x`xbd@UCbfCV `xbjUC`xblCb` VCbbHVCbdpVCbfCVNameTransactionTypeCode`x`x@WoneNumberde`xbj`WCW`xblCb`WCY`xbbWCbd XCbfCbjpXCblCb`XCbbXCbdxYCHY`x`xYoneEffectiveDate`xbfC ZtXGDate`xbjYCblCZHHH Or zationMailingAddressDetail`xH[K_[zationElectronicAddressDetailPeNameTransactionTypeCodepPeMailingAddressDetailptioPeElectronicAddressDetailiX]`xR`x[8ureTransactionTypeCodeypPrureDescriptionTextial[`x%`x]ureTransactionTypeCodetaPrureBeachIdentifiertronicBe oleOrganizationIdentifierephoneDBeolePersonIdentifiernDetaBeoleStatusIndicatorctionTTeoneStatusIndicatorctionTb`\Cbb\C`xbdp^CX]pIb`]C_`xY]`xbb]Cbd]CbfCbjH^CblCbfCbj^CblCb`_Cbb8_Cbd`_CbfCha"gb`_Cbb_Cbd `CbfCbjp`CblCb``C`x ``h bbaCbd@aCbfCHb` lJ`h`X `H bjaCblCb`bC c/dd/yyyy'));AT c`hxbbbCbdbCbfCbjHdCHc`xpd `@c FFpd Lc) Mc ici@diBpd`x blCd`xb`gCb`eCfx[`xVbb8eCbd`eCbfCbjeCblCb`pfCPf`xb`iCg`xbbfCbdfCbfCbj@gC`xxP`x blCb`lCg ibbhC`xh`x bd8hCbfCbjhCblCb`@jCiHQ`xbb(iCbdPiCbfCbjiCjs`x`ih blCb`HkCK_[bbhjCbdjCbfCkP_bjjCblCb`XmCbbpkCbdkCbfCbjHlC@lPr``xh bblCplblCmh R`x`lh b`mCbdmCbfCbjmCbb0pCmE('hblCbbpC(nd b`@oCqPn`xb`xnCbbnCbdnCbfCbjoCblCbbhoCbdoCbfCbjoCblCb`pqCbdXpCbfCbjpCblCb`hrCbd qCbfCbjqCbbqCrblCb``sCbdrCbfCbjrCbbrCsblCb`tCbdsCbfCbjsCbb(tCstblCt` `xb`wCbdPtCbfCbjuCtP c`xbbuChu blCb`wCv@ v`x `uh u`xbduCbfCbjHvCblC`x `pvh @x`hxb`yC`hxbb(wCbd(yCb`xwCbbwCbdwCbfCbbxCbdhzCy> ATH{`hx`xfb`xbjxCblCH{CbfCbjxyCblC`xbb}K_[C`x`x `yh `xb`X{CbfCbjzCblC`x b` {Cbb|C|bb{Cbd{CbfC`hx`yh h|d`xbj|C`xx}`x blCb`~Cbd}CbfCbjP}CblC(~ HbH `x`x`P|h bdH~C`xORMA`hxbfC`x bb~CbdCbj CH`xblCpCC '`~h `hxb`PC`}h `xh`xbbxCbdCbfCbjXC(`x`x< `xblCbjȁC`xYblC(`hx`xp, `xa`x؂8`,@p1IIb`Cȃxl`xbb(CbdPCbfCbjCblCh HbfCbj@CblC8HbfCCC8BEACH_ACTIVITY.ACTUAL_START_DATE >= CDATE(FORMAT$('8_-tx-g`-sPI',H/dd/yyyy')) AND BEACH_ACTIVITY.ACTUAL_START_DATE <= CDATE(FORMAT$('8f(<h 8N`x`h ($ '(\ @X X(XH ȇ8 P@( x( `x `x`x( -( x-(HH8X]`xf`x ``x`xK_[2P`X` @\ @X @T N`x c`x8dP`x`h  P h`xX@ @0 @. @, `x@ ` `x`x`xȌX]`hx(6LNzD d`xYp@ @< @, @  `x@ - @ `x`xP 8(`x caacYa c  `x `xu`x`Xh p @ @ @ @ `xp8xzd|<XPp j`x a`@@p @l @h `x @d @` Y@\ `xH@X @H @8 j`xzd06 @4 $ 0Z\R~`В8t (@p   h`x 0@l @h @d f`x`x`x`x`x pT @D @B @@ 0 j`x@KPp`h @d @` @P P@@ @> h`x Ж< , `j((  @XЗdЖ`x`hx*,Pd @` @\ @L 8 < 8j`x X: @8 Ж8d`xxX*,P@d @` @\ `x` K_[f`(L 8< m`x `: @8 d  h`x2p*,PXd @` @\ @L 8< @: @8 f`68d:h؛(j`xh`hxt\pH,P`0d @` @\ @X @T @D @4 @2 @0  f  (l `x P*`Ppj`x@pX@m@l @h d@d @` @P @@ @> @< , m`xpd2,P`x؟HP*`x0l @h `xXP(nXd @` @P @@ (n`x| X&' )x"!X P H,` P)&()(ȃ(h  H$x)%Hc+ Z(@*`(%@%(!x h #&0 p,p'8(*("`!&0& 0+hX 0% "(X+ph @ ')8!*X% 8ph%yx}( ) pP"0HP8  Sp`!X&( xh@ "&@' + $ 'Hh*$X **) p@H'`X (!> @< , p0d2@  PLNt"h @d @` @P @@ @> @< (, (  &$f(HH{xP/`rpt\<` @ @  @ @ @ K_[( @ (M  nX @| @x `Pr`h @d @` @P @@ @> @< , fHh؉`x8T6Pv`D @@ @< @8 @4 @$ @ @ @  zd|RK_[K_[K_[K_[K_[.XXCJ  @ $@ h >p < : 80 >h >   @ .H &x @  @ 20 h :p < 8 ( 0 @PB      B@ ` h*&   2    9@"1`   , .0>L (  .`& * *( H*X  Dp     $ ( 8  H P @X (  > > :H  > . > 8@ @x " 0       @ "\` K_[) & (   = & $H (4Bp <B 8B BB <Bh (<B>B ( $((  $Px  J0  4  0 8 @P  X x   9********************************************************* BEACH Activity XML Generator8 This database can be used to generate XML documents fora 6 submission to the US EPA based on the requirements of84 the BEACH act. This database, once populated, will2 generate XML for the organization, person, beach,7 activity, and procedure requirements of the BEACH act.8 This database will not generate XML documents for beach% monitoring data.9 If you have any questions about this code please contact( Michael Klos (CGI Federal) 703-652-0425 or michael.klos@cgifederal.com$ :********************************************************** x 9*********************************************************+ Name: GenerateBeachNotificationXMLificat3 Description: Driving procedure that initiates the.ID, B6 creation of XML documents from the data$ 2 that is contained in this database.Input/Output: Nonetructu:**********************************************************]@]`]]]Create API structure: Non  9D09F tha9Hined iXML Documents (*.xml)$ *.xml$ 9Jm the 9T l r p t9^ng pro($\9Rtes thSave Beach Notification XML As9\enqPrompt user for file name $<****'xzPdHDetermine file save nameIN !R$ $' $ $ .XML  .xml'0kk%Create the document and some comments .zSCRIPTxml version="1.0" z% zB@Beach Data Submission created $ z% zB@(Now add the beach information and schema xsi:schemaLocation z%.,  (d  ~!B@stxmlns z%._Y " (d   ~!B@  xmlns:xsi z%.H_ (d****  ~!B@******=Add the individual sections of the schema to the XML document z ~ B@: Pro z ~ B@s the z ~ B@8Finally save the XML documentame, ~ z/ML  zB@'xi9*********************************************************" Name: AddBeachInformation8 Description: Procedure that manages the queries to thebj8 database to add beach name, activity, and 3 role information to the XML document******7Input/Output: objXMLDocument - the document to add theo ' data to7 objParentElement - the parent element toet1 add the data to:********************************************************** !)Variables used to create the XML document]]]]]:Query the beach table to return the beach name detail data   P ! B@ibute, ! !bCreate the beach detail elemente Add the beach identifierID %' ( z    ` B@**  B@pPCreate the namK_[e detail section**** ( z  NAME % ` B@8 ( z   DESCRIPTION % ` B@8 ( z  COMMENT % ` B@ ( z  STATE_POSTAL_CODE % ` B@0 ( z   FIPS_COUNTY % ` B@ity, ( z   ACCESS_TYPE % ` B@te X 0 z  ACCESS_COMMENT % ` B@Add the individual data piecescodeAdd the individual data piecesos@c  B@70 z   B@ z   B@ z   B@ z   B@_C.Finally add the beach data to the root elementdual  B@ o.. B@ederalClean up our resources( M B@Bs (CGI.o n " z% .~eral r " z% .  " z% ."  " z% .  z   B@ CAdd the beach activity, attribute, role, and coordinate information " xvity, attribute, role, and coordinate information " 8.E,' ( objRS.Fields("WATERBODY_TYPE"), xdtText modSharedXML.AppendBeachXMLDataToDocument objXMLDocument, objXMLBeachNameDetail, XML_TAG_BCH_WATER_SAL,' objRS.Fields("WATERBODY_SALINITY"), xdtText!cument, objXMLBeachNameDetail, XML_TAG_BCH_WATER_SAL, objRS.Fields("WATERBODY_SALINITY"), xdtText modSharedXML.AppendBeachXMLDataToDocument objXMLDocument, objXMLBeachNameDetail, XML_TAG_BCH_WATER_SAL,' objRS.Fields("WATERBODY_SALINITY"), xdtText! eate the beach detail element a z%.(d the standard activity information  VITY_ID %'@d activity reason and station data if it exists in the database8termine if extent data should be added to the XML_UNIT_ NT_LENGTH %' NT_UNIT_OF_MEASURE %'  $ z%. k8nally add the beach activity data to the root element B@ o ean up our resources**** ******opP(imSeasonLengthMeasure] imSeasonUnitOfMeasureCode] nitoringFrequencyDetail] imSeasonFrequencyMeasure] fSeasonFrequencyMeasureCo](nitoringFrequencyUnitOfMeasureCodeiling address section] ilingAddressTypeCodet](ilingAddressStreetLine1Textt](ilingAddressStreetLine2Textt](ilingAddressStreetLine3Text] ilingAddressCityText] ilingAddressStateCode] ilingAddressZipCode] ilingAddressEffectiveDate](ilingAddressStatusIndicatorhIdentach section ]achIdentifier] achNameTransactionTypeCode]achNameDetail(]ogramInterestName](ogramInterestDescriptionText] ogramInterestStateCode] ogramInterestCommentText](ogramInterestFIPSCountyCode]terBodyNameCode]terBodyTypeCode] terBodySalinityCode] achNameTransactionTypeCode]achAttributeDetail]achActivityDetail]achRoleDetail ectronic address section] ectronicAddressTypeCode] ectronicAddressTextte](ectronicAddressEffectiveDateator](ectronicAddressStatusIndicator ganization section] ganizationIdentifier] ganizationNameDetailypeCod]K_[(ganizationNameTransactionTypeCode]ganizationTypeCode]ganizationName] ganizationDescriptionText] ganizationAbbreviationText](ganizationNameTransactionTypeCode](ganizationMailingAddressDetailetai](ganizationElectronicAddressDetail] ganizationTelephoneDetail] ganizationPersonDetailIdenrson section]rsonIdentifier(]rsonNameDetail](rsonNameTransactionTypeCode] rsonStatusIndicator]rsonFirstName]rsonLastName]rsonMiddleInitial]rsonSuffix]rsonTitle](rsonNameTransactionTypeCode] rsonMailingAddressDetail](rsonElectronicAddressDetail] rsonTelephoneDetailedureTocedure section] ocedureTransactionTypeCode] ocedureDescriptionText ]ocedureTypeCode] ocedureTransactionTypeCode]ocedureIdentifier] ocedureBeachIdentifieroleTle section(]achRoleTypeCode](achRoleOrganizationIdentifier] achRolePersonIdentifier] achRoleEffectiveDate] achRoleStatusIndicatoroneTlephone section]lephoneTypeCode]lephoneNumber] lephoneEffectiveDate] lephoneStatusIndicatornsta0**** End XML Document tag constants *********** **** Begin API constants ******@ ^^^^^^^^^^^^^^^^^^^^p]('Look is like Explorer] (File must exist hidde]('Read only button hiddenbefore]0'%Save As: prompt before replacing file] 'Path must existPI con]* **** End API constants ********8*******************************************************0ame: GenerateBeachNotificationXMLng pro8escription: Driving procedure that initiates theML doc8 creation of XML documents from the dataed i0 that is contained in this database.put/Output: None******8********************************************************(]]]]]eate API structure D@F(*.xmlH@Documents (*.xml)$ *.xml$ 9J l p t9^each N($\9R9\ Beach Notification XML As9\eqompt user for file name ine zdtermine file save name $ $'  $ .XML .xml'ocumenkk(eate the document and some comments"1.0z z( version="1.0" z% zB@8h Data Submission created $ z% zB@th z%.~and (w add the beach information and schemaz0i:noNamespaceSchemaLocation z%. (dxsi !B@lns:xsi z%. (de in !B@of the@d the individual sections of the schema to the XML document zA@ zA@ X zA@ nally save the XML document z/ zB@i8*******************************************************(ame: AddOrganizationInformation8escription: Procedure that manages the queries to therg0 database to add organization datant to the XML documentK_[8put/Output: objXMLDocument - the document to add theda( data to- 8 objParentElement - the parent element to 0 add the data to8********************************************************S d(riables used to create the XML document]]]]Hery the organization table to return the organization name detail data "  P ! B@te the  !b eate the org detail elemente or z%.d the org identifier %' z    `A@on eate the name detail section  z%. 0 z   TRANSACTION % `A@8 z  ORGANIZATION_CODE % `A@ ( z  NAME % `A@0 z   DESCRIPTION % `A@0 z   ABBREVIATION % `A@ d the individual data pieces B@j z  jA@j z  jA@ z  jA@ad z A@the ro0nally add the org data to the root element B@ esean up our resources8 ******o8*******************************************************0ame: AddOrganizationPersonInformation t8escription: Procedure that manages the queries to theer( database to add person data to the XML document8put/Output: objXMLDocument - the document to add theda( data to- 8 objParentElement - the parent element to 0 add the data to8 strOrgID - the organizationID to queryple ( people data for8********************************************************( XML d(riables used to create the XML document]]]]@ery the person table to return the person name detail data .( ,  P ! B@et  !b eate the org detail elemententi z%.d the org identifier %'  z    `A@  eate the name detail section z%. 0 z   TRANSACTION % fA@0 z  ACTIVE % `A@ `0 z   FIRST_NAME % `A@`0 z   LAST_NAME % `A@8 z  MIDDLE_INITIAL % `A@`A@0 z  SUFFIX % `A@`A@0 z  TITLE % `A@ d the individual data pieces B@ z  lA@ z  lA@or z  lA@me0nally add the org data to the root element B@ ean up our resources**** ******o8*******************************************************0ame: AddMailingAddressInformationt mana8escription: Procedure that manages the queries to thedd0 database to add mailing addresses to the XML document8put/Output: objXMLDocument - the document to add the( data tore8 objParentElement - the parent element toe 0 add the data to8 strKeyID - the key value to query addressr,@ information for, either person oron( organizationdres@ cktKey - the tyK_[pe of address data to query forr or8 either person or organization******8******************************************************** (((t(riables used to create the XML document]]]]Heate the SQL based on the data type, either organization or person $   ' d  'the k 'n 8ery the mailing address table to return the contact data ! B@ng  !b eate the mailing address element z%. d the contact dataDE 8 z  MAILING_ADDRESS_CODE % `A@0 z  LINE_1 % `A@`A@0 z  LINE_2 % `A@`A@0 z  LINE_3 % `A@A@( z  CITY % `A@8 z  STATE_POSTAL_CODE % `A@A@0 z  ZIP_CODE % `A@8 z  EFFECTIVE_DATE % dA@`A@0 z  STATUS % `A@root e0nally add the address data to the root element B@ o ean up our resources**** ******o8*******************************************************0ame: AddElectronicAddressInformationmana8escription: Procedure that manages the queries to thec 8 database to add electronic addresses to the XML document8put/Output: objXMLDocument - the document to add the( data tore8 objParentElement - the parent element toe 0 add the data to8 strKeyID - the key value to query addressr,@ information for, either person oron( organizationdres@ cktKey - the type of address data to query forr or8 either person or organization******8******************************************************** ((pt(riables used to create the XML document]]]]Heate the SQL based on the data type, either organization or person &   ' d  'the k 'tu@ery the electronic address table to return the contact datab ! B@ro  !b(eate the electronic address elementt da z%. d the contact data_CODE@ z  ELECTRONIC_ADDRESS_CODE % `A@`A@0 z  ADDRESS % `A@8 z  EFFECTIVE_DATE % dA@`A@0 z  STATUS % `A@root e0nally add the address data to the root element B@ o ean up our resources**** ******o8*******************************************************(ame: AddTelephoneInformationmana8escription: Procedure that manages the queries to the n0 database to add telephone numbers to the XML document8put/Output: objXMLDocument - the document to add the( data tore8 objParentElement - the parent element toe 0 add the data to8 strKeyID - the key value to query addressr,@ information for, either person oron( organizationdres@ cktKey - the type of address data to quK_[ery forr or8 either person or organization******8******************************************************** ((t(riables used to create the XML document]]]]Heate the SQL based on the data type, either organization or person (   ' d  'the k 'co8ery the telephone table to return the contact datab ! B@ho  !b(eate the telephone number elementact da z%. d the contact data%8 z  4TELEPHONE_CODE % `A@%8 z  6TELEPHONE_NUMBER % `A@8 z  8EFFECTIVE_DATE % dA@`A@0 z  :STATUS % `A@a to t8nally add the telephone number data to the root element B@ o ean up our resources**** ******o9*********************************************************" Name: AddBeachInformation8 Description: Procedure that manages the queries to thee,8 database to add beach name, activity, andML3 role information to the XML documentt - th7Input/Output: objXMLDocument - the document to add the' data tore7 objParentElement - the parent element toe 1 add the data to:********************************************************** !t)Variables used to create the XML document]]]]:Query the beach table to return the beach name detail data   P ! B@each d ! !bCreate the beach detail elementen r z%.Add the beach identifierID %' T z    `A@ Create the name detail section  z%. V z   TRANSACTION % fA@( z  NAME % `A@0 z   DESCRIPTION % `A@0 z  COMMENT % `A@%8 z  STATE_POSTAL_CODE % `A@ 0 z   FIPS_COUNTY % `A@8 z  WATERBODY_NAME % `A@%8 z  WATERBODY_TYPE % `A@ %8 z  WATERBODY_SALINITY % `A@Add the individual data pieces, at  B@ol7Add the beach activity, attribute, and role informationWX A@ z A@ z A@the be z A@ot ele.Finally add the beach data to the root element  B@.. B@h7Clean up our resources**** B@B******.o(7d*******************************************************0ame: AddBeachAttributeInformationt mana8escription: Procedure that manages the queries to theri0 database to add beach attributedocu0 information to the XML document- th8put/Output: objXMLDocument - the document to add the( data tore8 objParentElement - the parent element toe 0 add the data to8 strBeachID - the beach ID to query activity( data for******8********************************************************(ument(riables used to create the XML document]]]]]m lngActivityID As Long m vExtentLength As Variant(m vExtentUnitOfMeasuK_[re As Varianteturn @ery the beach attribute table to return the beach attribute 0( 2  P ! B@ d  !b eate the beach detail element a z%.(d the standard attribute information_ID"0gActivityID = objRS.Fields("ACTIVITY_ID")%8 z  EFFECTIVE_YEAR % `A@ z%.8 z   EXTENT_LENGTH % `A@ 0 z   EXTENT_UNITS % `A@ d the individual data pieces8 B@ z%.%8 z  SWIM_SEASON_LENGTH % `A@%8 z  SWIM_SEASON_UNITS % `A@ d the individual data pieces8 B@ z%.%8 z  SWIM_MONITOR_FREQ % `A@8 z  OFF_MONITOR_FREQ % `A@%8 z  MONITOR_FREQ_UNITS % `A@ d the individual data piecesattr B@th8nally add the beach attribute data to the root element B@ o ean up our resources**** ******o9********************************************************** Name: AddBeachActivityInformation8 Description: Procedure that manages the queries to theiv- database to add beach activitydocu. information to the XML document- th7Input/Output: objXMLDocument - the document to add the' data tore7 objParentElement - the parent element toe 1 add the data to: strBeachID - the beach ID to query activity$ data for******:********************************************************** ((Xument)Variables used to create the XML document]](]H]h]];Query the beach activity table to return the beach activity 4  6  P ! B@ d ! !bCreate the beach detail element a  z%.%Add the standard activity information  ACTIVITY_ID %'e z  v ACTIVITY_CODE % `A@A@( z  xNAME % `A@8 z  zACTUAL_START_DATE % dA@8 z  |ACTUAL_STOP_DATE % dA@f itAAdd activity reason and station data if it exists in the database0g A@ z A@ 0 z   DESCRIPTION % `A@0 z  COMMENT % `A@ed t3Determine if extent data should be added to the XML_UNIT_ EXTENT_LENGTH %'EXTENT_UNIT_OF_MEASURE %' $ $  z%. h z  EXTENT_START_MEASURE % `A@ z    `A@ z    `A@lly ad B@ti.k&7Finally add the beach activity data to the root element  B@ o. B@&Clean up our resources**** B@B******.oH&@&*******************************************************0ame: AddBeachActivityReasonInformationna8escription: Procedure that manages the queries to theiv8 database to add beach activity reasonL docu0 information to the XML document- th8put/Output: objXMLDocument - the document to add the( data tore8 objParentElement - the parent element toe 0 add the data to8 lngActivityID - the Activity IDK_[ to queryta0 reason data for****8********************************************************!ument(riables used to create the XML document]]Pery the beach activity reason table to return the beach activity's reasons  80 X  < X P ! B@ d  !b eate the beach detail element a z%.(d the standard activity information( z  TYPE % `A@0 z   DESCRIPTION % `A@8nally add the beach activity data to the root element B@ o ean up our resourcesh ac son taPery the beach activity reason table to return the beach activity's sources  80 X  < Z P ! B@ d  !b eate the beach detail element a z%.(d the standard activity information( z  TYPE % `A@0 z   DESCRIPTION % `A@8nally add the beach activity data to the root element B@ o ean up our resourcesh ac son taPery the beach activity reason table to return the beach activity's indicators 80 X  < \ P ! B@ d  !b eate the beach detail element a z%.(d the standard activity information( z  TYPE % `A@0 z   DESCRIPTION % `A@8nally add the beach activity data to the root element B@ o ean up our resources**** ******o8*******************************************************0ame: AddBeachActivityStationInformation8escription: Procedure that manages the queries to theiv8 database to add beach activity stationdocu0 information to the XML document- th8put/Output: objXMLDocument - the document to add the( data tore8 objParentElement - the parent element toe 0 add the data to8 lngActivityID - the Activity ID to queryta0 reason data for****8********************************************************!ument(riables used to create the XML document]Pery the beach activity station table to return the beach activity's stations >( X  R ! B@dard a  !b(d the standard activity information `0 z  ~ STATION_ID % `A@ou ean up our resources**** ******o8*******************************************************0ame: AddBeachOrganizationRoleInformation8escription: Procedure that manages the queries to the o8 database to add beach and organization XML8 role assignments to the XML documentt - th8put/Output: objXMLDocument - the document to add the( data tore8 objParentElement - the parent element toe 0 add the data to8 strBeachID - the beach ID to query role( data for******8********************************************************(pument(riables used to create the XML document]]8ery the beach org/role table to return the role data B   P ! B@  K_[!b eate the role assignment element z%.  d the role data8 z  * ORG_ROLE_CODE % `A@ %8 z  ,FK_ORGANIZATION_ID % `A@8 z  0EFFECTIVE_DATE % dA@`A@0 z  2STATUS % `A@t elem0nally add the role data to the root element B@ o ean up our resources**** ******o8*******************************************************0ame: AddBeachPersonRoleInformationt mana8escription: Procedure that manages the queries to the p0 database to add beach and personML8 role assignments to the XML documentt - th8put/Output: objXMLDocument - the document to add the( data tore8 objParentElement - the parent element toe 0 add the data to8 strBeachID - the beach ID to query role( data for******8********************************************************(`ument(riables used to create the XML document]]8ery the beach org/role table to return the role data F   P ! B@  !b eate the role assignment element z%. d the role data8 z  *PERSON_ROLE_CODE % `A@%8 z  ,FK_ORGANIZATION_ID % `A@ 0 z  . FK_PERSON_ID % `A@8 z  0EFFECTIVE_DATE % dA@`A@0 z  2STATUS % `A@t elem0nally add the role data to the root element B@ o ean up our resources**** ******o8*******************************************************0ame: AddBeachProcedureInformationt mana8escription: Procedure that manages the queries to the p0 database to add beach and procedure0 assingments to the XML document- th8put/Output: objXMLDocument - the document to add the( data tore8 objParentElement - the parent element toe 0 add the data to@ strBeachID - the beach ID to query procedure( data for******8********************************************************Ht(riables used to create the XML document]]]]0ery the procedure table to return procedure data J  P ! B@ent pr  !b t the current procedure IDsignme%'e to0eck for assignments of this procedure to beaches( L N  P ! B@  ! 8eate the procedure assignment section of the databasea z%.  d the role data8 z  "PROCEDURE_CODE % `A@ 0 z   DESCRIPTION % `A@ z  &  `A@ 0 z  $ TRANSACTION % fA@ 0d all of the assigned beaches to the procedure  !b0 z  ( FK_BEACH_ID % `A@ lly ad  the r 0nally add the role data to the root element B@k ean up our resources**** ******o8*******************************************************0ame: AppendBeachXMLDataToDocument XML d8escription: K_[ Appends BEACH XML data to the current beach XML document.t - th8put/Output: objXMLDocument - the document to add the( data tore8 objParentElement - the parent element toe 0 add the data to8 strTagName - the name of the tag for the( new element( vData - the data to add dat8 eType - the type of the data, dictates how( the data is handled8********************************************************   Xave da]]8sure we actually have data to move into the XML document |keate the new elemente da z%.pe(w process the data based upon its type i @nvert the incoming date string into an XML formatted date:SS$ ^KT0  YYYY-MM-DDTHH:MM:SS$'0 fancy processing for numeric or textual data ^K ^!`K ^!fKT add itn0t the element's value and add it to the documentp((d B@oPpLECT PROCEDURE.ID, PROCEDURE.[TRANSACTION], PROCEDURE.PROCEDURE_CODE, PROCEDURE.DESCRIPTION FROM [PROCEDURE]/d  PROCEHp*******************************************************(((!(pk 8escription: Procedure that manages the queries to theth8 database to add beach name, activity, ande ( on user input in forms XML **** (8put/Output: objXMLDocument - the document to add the( data totu8 objParentElement - the parent element to0 add the data to8********************************************************Hriables used to create the XML document]]]]8ery the beach table to return the beach name detail data   P ! B@   !b eate the beach detail element z%.eSchd the beach identifier%' z    `A@z% eate the name detail sectionB@ z%.e in0 z   TRANSACTION % fA@( z  NAME % `A@0 z   DESCRIPTION % `A@0 z  COMMENT % `A@ Dat8 z  STATE_POSTAL_CODE % `A@on0 z   FIPS_COUNTY % `A@8 z  WATERBODY_NAME % `A@ por8 z  WATERBODY_TYPE % `A@ificat8 z  WATERBODY_SALINITY % `A@ d the individual data pieces B@8******************************************************* A@  !b A@`i z A@cripti0nally add the beach data to the root element B@ X oxean up our resources\ ohame: AddCustomBeachInformation8 role information to the XML document, based z  @ BA@<hhHd the beach activity (if desired), attribute, and role information2.DOMD(((HcachAct@escription: Procedure that manages the queries to the 0 database to add beach activity\0 information to the XML document(8put/Output: objXMLDocument - the document to add theen( data to 8 objParentElement - the K_[parent element toen0 add the data to8 strBeachID - the beach ID to query activity( data for8********************************************************(riables used to create the XML document]]]]]]@ery the beach activity table to return the beach activity eate the beach detail element z%.(d the standard activity information VITY_ID %'8 z  v ACTIVITY_CODE % `A@( z  xNAME % `A@8 z  zACTUAL_START_DATE % dA@8 z  |ACTUAL_STOP_DATE % dA@@d activity reason and station data if it exists in the database z A@ z A@0 z   DESCRIPTION % `A@0 z  COMMENT % `A@8termine if extent data should be added to the XML NT_LENGTH %' NT_UNIT_OF_MEASURE %'  $ z%.8 z  EXTENT_START_MEASURE % `A@ z    `A@ z    `A@ B@k8nally add the beach activity data to the root element B@ ean up our resources o`ame: AddCustomBeachActivityInformation8 dtActBegin - beginning date for activities8 to be included in XML Doc8 dtActEnd - ending date for activities to0 be included in XML DocP 4  6  L @ N B z ! B@rBeach^ 'mm/dd/yyyy'));_DP 'mm/dd/yyyy')) AND BEACH_ACTIVITY.ACTUAL_START_DATE <= CDATE(FORMAT$('T_ onstk^AND BEACH_ACTIVITY.ACTUAL_START_DATE >= CDATE(FORMAT$('L_]AND BEACH_ACTIVITY.ACTUAL_START_DATE >= CDATE(FORMAT$('ȃL_p] dtActEnd & SQL_WHERE_DATE_ENDD BEAC@]TY.ACTUAL_START_DATE >= CDATE(FORMAT$('ȃL_]_DATE_END & dtActEnd & SQL_WHERE_DATE_ENDx strBeachID & SQL_ACTIVITY_DATE_BEGIN & dtActBegin & SQL_ACTIVITY_DATE_END & dtActEnd & SQL_WHERE_DATE_ENDDATE[8\GIN & dtActBegin & SQL_ACTIVITY_DATE_END &' dtActEnd & SQL_WHERE_DATE_END[[DATE_END &' dtActEnd & SQL_WHERE_DATE_END[K_[K_[K_[K_[K_[K_[~Attribute VB_Name = "modGenerateXML" '*5v BEACH Activity or>"This database can be used to g9documents f= submission+the US EPA Jd require99ofs*acPt. A,ce populd, will FA #orga nizatC, person,apach,0~, and procedure K%IB not:moni@toring.  If you haveFy ques-s a0bout bcod@?lecont0Michael Klos (CGI Fedl) 703-652-0425 or mC .k@ @cgif .c om@**  Op, Ex@plicitCompa@VD 3A: BevNotific}5 Descri' Dr@~`}that ifi@s[eA FcreB ofrom tspmin@iāInput/OutNon *4 Pub`1 Fun@}nY%() As L`ong D@im obj@)D|MS2.D$OM40RootEl{I OM Schemag@ FFile OPENFILENAMEstr fS'C: PI uct@With!#".l`SizLen(#A)ghwndOw0&Instan`= lpterA`$ * z*.xml)" & Chr$(0:) "h lM ax 1024AflagsOFN_EXPLORER Or OVERWRITEPROMPTHIDEREADONLYePATHMUSTEXISTd",(00, 0(#"Tit`6`Sv vkAs`ܡPEndN A1'PmpJt!r f!@n@(Geta  A?F4'Thevne'Exit&iEls tBDe@8m |s'A=eR= ReplacJe.Ae,,( "" Right$(UCp`$(), 4)@ <> ". $")s&Pp&DIPySE3QvBtsod"}SetC= N8ew DDF.appendChiVlH.Ye!ceІng5r9l(" v=""1.0"OOBD0lQ ("*l Sgd !9Now()DP=N}(NODE_ELEMENT,q0_TAG_DETAIL_DOC,ES_SCHEMA_NSPACE  adhempmazsV:X RvX si:yLow*.0Text5 LOCATION(.&s.set2dIterh\ (d  mlns? 5 Of 5$"pp<`d" :xsi W3#nte S'A&inddual sesqBc";p C3ShU@d.OػIpnfor+K bj#uB;ooAO- BFqC SK_['Finally a !.-~ #u b3?`'1S `F//!Q<00=@qm`anage1riodPb x)߯roiX'; ' -? /DY/  data t0o '(objParentElem - the pL ePr addz*6 Public Sub AddBeachInformation(ByRef XMLDocuAs MS 2.DOM40, _ X (K)I5OM) *'Variables useo create dODim[jD2NameDetail AccHessiRSANew ADODB.RecordsDet%strfdAifier S`tringC C'QueryDbr tL ret(urnHn7 d8zRS.Open SQL_BEACH_NAME_DETAIL &SEND_TO_EPADWHERE_TEXT_, CurAProject.ConnDo While Not (CEOF OrAm xBOF~ɎA'>CG~91G SentG=DE.ÑNode(NODE_ELEMENT, _TA&G>C, DES_SCHEMAGSPACEHj}.i7Gp;B Fields("ID" modSh`d.Ap`5w\To% ,F!'B  o9/ '%zindividual µpie0S/..axCdu'4B?A~o]87 b¡actty, atbute , rolPand co`in1i7+#d"AhteJ/ , τoe __0_tR_ZOrganizRp? `Personj/W_ _ Cv % w'F#lly u&5toro0.*.GE=hA4; o*MoveNƬLoopSS'Clean up our @resources objRS.Close!Set P = Nothing` End Sub       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~                     M    ! " # B& ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < > ? @ A B C D 0F G H I J K L N O P Q R S U V W X Y Z [ JWsAKϖ&PB<caGetSaveFileNameAE >GetSaveFileNameAML_GetSaveFileNameAxRX!RR@!RR8RLLME d1<<H^@@&1L<<<< <$<(<,<0<4<8<<<@Chh DDhfp@@hd<<Xhb::Hh`88h^44h\00hZ,,hX((HhV0$$hhTH hR`8hPxhNBhLhJ hHhFhDPERS@ +<p-- )>8' AND FK_BEACH_ID = 'j`H6CSOURCE WHERE FK_BEACH_ID = ' X5`H WHERE SEND_TO_EPA = 'Y85pH%44HH%04H%,4xH%(h4H%"@4H%4GH%3GH%3DH%30:HP x3P~H%P3xH%(3H}%3HH{%2|Hy%2sHw2sHu`2|Hs@1|Hq0pHn AND CLASS = 'j`HCjbpCjdCjfC' AND FK_BEACH_ID = ''ꐘX0nHk08wHg`0uHe/nHc/lHa/0uH_HjjDCꐾh/.H]xꐺ@/lH[K_[8ꐶ/XeHYT .HW WHERE FK_ORGANIZATION_ID = ' INDICATOR BeachDetailF QHNꐮhxdHK .@PHI ActivityNameꐦ60[HEꐢ-NHC(ꐞ-LHAXꐚp-JH?ꐖH-8GH=ꐒX,EH;ꐎ,<H9 ꐊ+GH7H ꐆ+hDH5x ꐂ+h1H3 ~(x>H1 z`(<H/!v8(P*H-8!r'H+!h8d^@! j`&C!ʐZ%H'!z%)H%("P%H#X"Lp%CH!"H@CH"D %BH"@$:H#<$HH#8$=Hx#L$9H#4X$@H$ꐸ0$(=Hj`>C.2#Hꐺ#H6P#HN #=H:"0H>"XAHB"AHF`"8HJ0"XEH N"<H"R!H$ʐX!@H&ʐ\&H(jb8&CjdCjj&CjlCn&)H)p!*H*t (*H, WHERE FK_PERSON_ID = 'ID = 'b`p'Cbb'Cbd'CbfCbj(CblCx H.| x*H0ꐀP BH2Hb`(Cbb)Cbd0)CbfCbj)CblC'', 'mm/dd/yyyy'));= 'BeachDataSubmissionOrganizationDetailnBeachProcedureDetailActivityTypeCodetailActivityActualStopDatej`*Cjb*Cjd+CjfCjjh+CjlCꐄ 7H4ꐈDH6ꐌ7H8ꐐEH:j`zCꐔ`EH<jb,Cjd,CjfCjj -K_[CjlCꐘ0GH>ꐜTH@ꐠNHBꐤOHDj`(7Cꐬ@XdHJP XP[HQ' AND FK_ORGANIZATION_ID = ' StateCodetB.%j`eCꐴ@eHXꐸPiHZꐼ jH\BH^PuH`hlHb8puHduHfꐠyHjꐚ0`zHlppHmqHo WHERE FK_ACTIVITY_ID = = ''jb1CjdCrHrActivityCommentTextatejb1Cjd1CjfCjj 2CjlC`xUTE.X|Ht(sHvtHx(HzpH|hȀH~8 yH  :HHHFHxH H@H&H*XH.H2H6XH:@:H (H 5Hʘl5CʘnBʘrBʘvB 05(IHjbp6CjdCjj6CjlCꐨЍ\HFActivityExtentDetailjbP7CjdC9http://www.exchangenetwork.net/schema/BEACHES/2 index.xsdCHES//http://www.exchangenetwork.net/schema/BEACHES/2schema/ActivityReasonDetailCHj`08CjbX8CjdxCSELECT ORGANIZATION.ID, ORGANIZATION.ORGANIZATION_CODE, ORGANIZATION.NAME, ORGANIZATION.DESCRIPTION, ORGANIZATION.ABBREVIATION FROM ORGANIZATIONROM ORSELECT ELECTRONIC_ADDRESS.ELECTRONIC_ADDRESS_CODE, ELECTRONIC_ADDRESS.ADDRESS, ELECTRONIC_ADDRESS.EFFECTIVE_DATE, ELECTRONIC_ADDRESS.STATUS FROM ELECTRONIC_ADDRESSECT9' AND BEACH_ACTIVITY.ACTUAL_START_DATE >= CDATE(FORMAT$(' CDAT WHERE FK_ACTIVITY_ID = K_ACTI FirstName CDATLastNameeꐾ 6HSELECT MAILING_ADDRESS.MAILING_ADDRESS_CODE, MAILING_ADDRESS.LINE_1, MAILING_ADDRESS.LINE_2, MAILING_ADDRESS.LINE_3, MAILING_ADDRESS.CITY, MAILING_ADDRESS.STATE_POSTAL_CODE, MAILING_ADDRESS.ZIP_CODE, MAILING_ADDRESS.EFFECTIVE_DATE, MAILING_ADDRESS.STATUS FROM MAILING_ADDRESSNT,vSELECT TELEPHONE.TELEPHONE_CODE, TELEPHONE.TELEPHONE_NUMBER, TELEPHONE.EFFECTIVE_DATE, TELEPHONE.STATUS FROM TELEPHONESELECT PERSON.ID, PERSON.ACTIVE, PERSON.FIRST_NAME, PERSON.LAST_NAME, PERSON.MIDDLE_INITIAL, PERSON.SUFFIX, PERSON.TITLE FROM PERSON WHERE FK_PROCEDURE_ID = 'K_[ActivityActualStartDate= 'ActivityReasonTypeiltejj=CjlC|SELECT BEACH_POLLUTION.FK_BEACH_ID, BEACH_POLLUTION.POLLUTION_SOURCE, BEACH_POLLUTION.POLLUTION_COMMENT FROM BEACH_POLLUTION_AI', 'mm/dd/yyyy')) AND BEACH_ACTIVITY.ACTUAL_START_DATE <= CDATE(FORMAT$('AILIN|SELECT BEACH_ACTIVITY_REASON.CLASS, BEACH_ACTIVITY_REASON.TYPE, BEACH_ACTIVITY_REASON.DESCRIPTION FROM BEACH_ACTIVITY_REASONAT#ActivityMonitoringStationIdentifierjfCjb>CjdCjj@?CjlCj`?Cjb?Cjd?Cj* CISELECT BEACH_ACTIVITY.ACTIVITY_CODE, BEACH_ACTIVITY.NAME, BEACH_ACTIVITY.ACTUAL_START_DATE, BEACH_ACTIVITY.ACTUAL_STOP_DATE, BEACH_ACTIVITY.DESCRIPTION, BEACH_ACTIVITY.COMMENT, BEACH_ACTIVITY.EXTENT_START_MEASURE, BEACH_ACTIVITY.EXTENT_LENGTH, BEACH_ACTIVITY.EXTENT_UNIT_OF_MEASURE, BEACH_ACTIVITY.ACTIVITY_ID FROM BEACH_ACTIVITYACTIVDSELECT BEACH_ACTIVITY_STATION.STATION_ID FROM BEACH_ACTIVITY_STATION_SSELECT BEACH_ORGANIZATION_ROLE_ASSIGN.ORG_ROLE_CODE, BEACH_ORGANIZATION_ROLE_ASSIGN.FK_ORGANIZATION_ID, BEACH_ORGANIZATION_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_ORGANIZATION_ROLE_ASSIGN.STATUS FROM BEACH_ORGANIZATION_ROLE_ASSIGNE_ASSI5 WHERE BEACH_ORGANIZATION_ROLE_ASSIGN.FK_BEACH_ID = 'HActivityDescriptionTexttartDatAddressPostalCodestalC Dj`(CCjbPCCjdCjjmC/ WHERE BEACH_PERSON_ROLE_ASSIGN.FK_BEACH_ID = 'ITY_REAESELECT BEACH_PROCEDURE_ASSIGN.FK_BEACH_ID FROM BEACH_PROCEDURE_ASSIGNLF`xj`DCActivityExtentStartMeasuredentActivityExtentLengthMeasureMeaNameSuffixTextjlCjbECjd0ECjfCUSELECT PROCEDURE.ID, PROCEDURE.PROCEDURE_CODE, PROCEDURE.DESCRIPTION FROM [PROCEDURE]EActivityReasonDescriptionTextActivitySourceDetailteActivitySourceTypeilonIj`pFC`X&xescrNamePrefixText`0Fh xjbFCjdFCjfCjjGCjlCActivitySourceDescriptionText`+x`XGh ActivityExtentUnitOfMeasureCodeK_BEACHActivityIndicatorDetailonTextPersonMailingAddressDetailingAPersonTelephoneDetail`xjjHHCjlCjjHCjlC`xj`ICjbICCompletionYear`x`xs`+xH`hIh jdJCJ`X&xS`Ih A`x@jfCjj`JCjlC`x`xActivityIndicatorTypeiK`x`x`+xh`xP`Kh j`KCpLionext`x76jbKCjdKCjfCjjHLCK_[jlCL`` x `+x`Lh `xAttributeEffectiveYear8Mj``MC`xXN onYear`x2 jbMCjdMCjfCjj0NCBeachExtentDetaileYear`x 7jlCN`xj`sCj`OCExtentLengthMeasureearxS`x ijb(OCjdPOCjfCjjOCjlCExtentUnitOfMeasureCodeExSwimSeasonStartDate`xj`PCSwimSeasonEndDatete`` x`x`x RVjbPCjdPCjfCjjHQCjlCj`QCjb RCMonitoredIrregularly`` x`+x = '`xjdHRCjfCjjRCjlCj`^Cj`SCjb8SCjdSC`xVU`xjfCjjSCjlC ActivityIndicatorDescriptionTextj`UCj`TC`xLjbTCjdTCjfCjjHUCjlCj`YCjbVCW`x`x`xjd@VCjfCjjVCjlCj`VCjbWCjd@XCj`XWCjb_C`Qh ceCoW`+x`Wh `+xceCo8X`x`x`Wh YXjfCjjXC`xPjlCY`x`x`x`xj`hYCjbZC`x`^\`xjbYCjdZCjfCjjhZCjlCjdZCjfCjj[CjlCBeachSwimSeasonLengthDetailxtBeachPollutionSource`xO`` x`+x`xj`K_[[Cjb\Cjd@\CjfCjj\C\`xjlCSwimSeasonLengthMeasuretailxtx^j`X]C`x`` xjb]C`xjd]CjfCjj^CjlCj`_C`[h ^`` xjb^Cjd@kC8_N`xjbX_C``xjd_CjfCjj_CjlCjd `CjfCjjp`CjlCj`bC`+xxe`x`x`x8P`x P`xP`xO`xO`xO`xO`xO`xxO`x`O`xHO`x0O`xO`xO`xN`xN`xNjjCjbbCjd cCjfCjjpcCjlCj`cCjbcCjddCjfCSwimSeasonUnitOfMeasureCodeOLEMonitoringFrequencyDetailH_ORGSwimSeasonFrequencyMeasureANIZBeachTierRankingurceasj`COffSeasonFrequencyMeasuredeeDeMonitoredIrregularlyCommentjbCMailingAddressTypeCodeMailingAddressStreetLine1Texti`gjjeCjlCj`eCjbhfC`xD`+x`8fh jdfCjfC`x`x`x`x`x`+x`xgY`x`0gh Ijj hC`h`x`+x`xjlC`x i`xX`x`xhj`hC`xjbiCjd@iCjfCjjiC`x jlCj`x MailingAddressStreetLine2TextMailingAddressCityName`x`x`x`gh `xkp]`x`x`+x`x`jh `xjfCK_[`x`x`xjjlCn`x`x`x`` x`` x`x`xjlCMailingAddressStreetLine3TextBeachIdentifierdengthDBeachNameDetailjlC`x`` xp]`xj`wCj`~C``h j``nC@n`` x `xdo`xjb0oC`xProgramInterestName`` xBeachAccessibilityType`x`x``xjdXoCjfCo`x`xpK`x`+xp`oh `x`` x`xBeachAttributeDetailpe`` xBeachActivityDetaill`xrX[`x jjrC(^`` x`x`x`xBeachRoleDetailtail`x`x`x`x`x(vU`xX[`x`x`xElectronicAddressTextjlC`xj`+x`rh 8oOrganizationIdentifierj`XsCjb |COrganizationNameDetailjbxvCOrganizationTypeCodeil`xj`HtCOrganizationNameCode`x****jbptCjdtCjfCjjvC`` x`x`x_FREMailingAddressEffectiveDate, BMailingAddressStatusIndicator,ProgramInterestDescriptionTextProgramInterestStateCoderePE, ProgramInterestCommentTextACH_`x`x jlCXw`x`g`x`xjdvCjfCjjxwC`x`x`xProgramInterestFIPSCountyCodeuHx`x jlCjbwCjdwCjfC`x`` xX[z`x`xjjxCjlCPersonIdentifier`xBeachAccessibilityDetaililPersonNameDetailsText`x `x`xd|jbyCjdyC`x jfCjj8zCjlCBeachAccessibilityCommentzjbzCjd{C}`xK_[`x`x`x`` x`x`x`x jfCjj{CjlCjdC`x`xU`xEElectronicAddressTypeCodeiptioElectronicAddressEffectiveDate ElectronicAddressStatusIndicator2TextUOrganizationDescriptionTextxt}`x`x`xjj~C}`` x`` x0~~j`x `` xjlC~`xPersonStatusIndicatorr`x~X[`x jbC~`x`+xery `~h OrganizationAbbreviationTextNI OrganizationMailingAddressDetailPr#OrganizationElectronicAddressDetailresOrganizationTelephoneDetailresText`xPersonMiddleInitialorl`xProcedureTypeCodetail`x`x`x`` x`xjdCOrganizationPersonDetailyCode`` x'ProcedureIdentifieril`+x`h jjC`+x `ph jlCj`CjbCjdCjjhCjlCj`CjbCjdCPersonElectronicAddressDetail`x`xBeachRoleTypeCodeer`x`xBeachRoleEffectiveDate`x`x`x`xLatitudeMeasureiveDate`x`+xh`+xy ad``h datjjCjlCj`Cjb0CjdCjjCjlCj`ЅCjbCjdCjjxCTelephoneTypeCodeeDate`x(jlCj`ȆCjbCjdCjjxCProcedureDescriptionTextetail`` xjlCj`ȇCjbpCProcedureBeachIdentifiereBeachRolePersonIdentifiereDate`x`x `xBeachRoleOrganizationIdentifierr x]`x`xBeachRoleStatusIndicatorrxtTelephoneNumberTextcatHH`+xP``Hh TelephoneEffectiveDateTelephoneStatusIndicatorTeYearCompletionIndicatorsYe`x`xta`x`0h "NotificiationDataCompleteIndicator`xjdCK_[`xjjHC0`x`x`+x`h jlC`h ail`x`h r`x`xDate!SELECT BEACH_PERSON_ROLE_ASSIGN.PERSON_ROLE_CODE, BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_ID, BEACH_PERSON_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_PERSON_ROLE_ASSIGN.STATUS, PERSON.FK_ORGANIZATION_ID FROM PERSON INNER JOIN BEACH_PERSON_ROLE_ASSIGN ON PERSON.ID = BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_IDACTIVMonitoringDataCompleteIndicatorTYLocationDataCompleteIndicatorGjlCꐪ8dHG hOHHj`8CBeachPollutionSourceDetailejjCjlCBeachPollutionSourceCode`x`؎h tifij`Ch`x `8h j`x`xat`h be`x`x`h DatejbXC`x `xcatojdCj* Cj`x`xjj0C`xjlC hHRjdCj* C`x`x`x `h `x`x`Hh `x`xh H^`x`x`xj`x `Вh `xX`x`0h `x`h `x`x`Гh `x` x`x`x`x``h  j`x`x`h o`+x`h jj@CjlC HS< țHT`x`+x `Еh P xH@8 X   (+ 0XpX P8(&hxGP( \ PT -O` 0 H0 P ، @` `i@0[y(8  $   hp `bXx 0@pH.xl 88(0%hHh`zpH`- 0 l`" `(p!PJ0#j`(CK_[jb`CjdCj* CjjؚCjlCj`CjbPCjdxCj* CBeachPollutionSourceDescriptionDATE, BNoPollutionSourcesIndicatorREQ> HUjj@CjlCꐰXdHLjbCjdCj* Cjj0CjlCꐲHM$MonitoringFrequencyUnitOfMeasureCodeX`xh4`h `x`h `x`h `x ` x` x` x`@h `x`Ȟh П`xj`@CjbhCjdCj* CBeachActBeachIndicator`xWaterBodyNameCodecator@reCodejN CȠ`xIBUTjjCjlC`x`x`x`x`x`x`x`x`x`x`xj`CjbCjd@Cj* C`x`x `x`x`x`h УHp`x`hh `x`@h ``x`ph `x`h `xjN C`xjjhCjlCH HdHO t`x \@` x (Tp` xj`C`xФjbCjdإCj* CjN C PJ`xo`x `x`@h jjȦCjlCpj`x``x`xꐢ8.HHP``x`xh  L`x BeachCoordinateDetail`x` x`xj`C` xjbȨCh`xjdCj* CjN Cjj(C h`xp`x B `K_[`x`x`h `xjlC`x`xjbCjdتCj* CjN CjjPCjlCj`CjbȫCjdCj* HC'PollutionSourcesUninvestigatedIndicator_POLLUTjN C){ hꐤdHV0$H jjCjlCj`XCjbȭCLongitudeMeasureetail`x`h jdCj* CjN CjjC)ȵK`xp`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`xxp`x`h jlCj`Cjb(CjdPCj* бCб`x`x`xjN CH(`xOLLU`xN_`x F` x`xjjCjlCj`C`xj`hC`xL`xBUTEjbCjdCj* C`xjN CjjhC0` xE, BjlCjbCjdCj* CjN C` xRIBUjjxCjlC ` xi  Hj`xi ȵ (`xhn`xZSourceMapScaleNumeric`x`h x  `LJpAAxWaterBodyTypeCodec` xi  H(i  `xj`xCBeachCoordinateEndPointDetail`x `x> HP p" `x`xh `xjbC tظ`xd `xjd0Cj* XCjN K_[CjjCjlC`x `йh 8`x`x` `x`x`xP `xj`ȿCj`0CPj`C@ `xjbȻC`x0* jdCj* CjN CjjhCjlC   `$Jм KK){ ( `x` x)H@i HorizontalCollectionMethodName`x`xj`CjbCjd0Cj* XCjN CjjоC o`x jlC`x`xjbXCjdhCh`xꐮ H%xHjbCjdCj* @CjN CH`xjjCjlCꐰ اHp` xj`hC`x(jbC`xo`xjdCj* CjN Cjj`CjlC H> `x H8< `x, `xp`x H Hꐼ pHꐾ hH pHj``C,HorizontalCoordinateReferenceSystemDatumNameorBeachCoordinateDescriptionTextj`@C`x`x`h jbhCjdC`x aSELECT BEACH_ATTRIBUTE.EFFECTIVE_YEAR, BEACH_ATTRIBUTE.EXTENT_LENGTH, BEACH_ATTRIBUTE.EXTENT_UNITS, BEACH_ATTRIBUTE.BEACH_TIER, BEACH_ATTRIBUTE.SWIM_SEASON_LENGTH, BEACH_ATTRIBUTE.SWIM_SEASON_UNITS, BEACH_ATTRIBUTE.SWIM_SEASON_START_DATE, BEACH_ATTRIBUTE.SWIM_SEASON_END_DATE, BEACH_ATTRIBUTE.SWIM_MONITOR_FREQ, BEACH_ATTRIBUTE.OFF_MONITOR_FREQ, BEACH_ATTRIBUTE.MONITOR_FREQ_UNITS, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY_COMMENTS, BEACH_ATTRIBUTE.NO_POLLUTION_SOURCES, BEACH_ATTRIBUTE.POLLUTION_SOURCES_UNINVESTIGATED, BEACH_ATTRIBUTE.BEACH_ACT_BEACH FROM BEACH_ATTRIBUTEj* @CjN CjjCjlC`x H K_[0`x`h Xj`x jbCjdCj* CjN Cjj(CjlC Hj* CjN CjjCjlCHhꐬ pHj* CjN CjjCSELECT BEACH.ID, BEACH.NAME, BEACH.DESCRIPTION, BEACH.COMMENT, BEACH.STATE_POSTAL_CODE, BEACH.FIPS_COUNTY, BEACH.WATERBODY_NAME, BEACH.WATERBODY_TYPE, BEACH.ACCESS_TYPE, BEACH.ACCESS_COMMENT FROM BEACH`2jlCj`Cjb(CjdPCj* C: WHERE BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID = 'NGITBeachCoordinateStartPointDetailRDINATEjN Cjj0CjlCPJ`xDE_C`h P8" ^PointDaiP P inatPtionText`x(` h x `g`x`xpp@ `xh*,PPd @@` @\ 0 `g`xX(L 0< j`xp`x(@(8XU(: U`xND_L(8 E_p`EN0*  IT ^`x*,Ppd @` @\ @L 0< ^`xh: @8 (`*  \  `x` x` x*,Px` x` x h P P`gXd @` @\ @L `g` xp< @: @8 4`68* L `xP,P " 8d @` n` xo`x@`hj\ j`x6X @T @D @4 @2 @0   K_[  `x(l  `xo`x X n@2P " (P @L n`xH @D @@ @0 @ @ @ o`xx xX @   d `x`N H < >  T (Ho`x0P " *l o`x`x8Ph @d @` (p`x(P @@ @> @< , `,0* 2 8ho`xP " *`x8hl @h @d @` 0(p`x P @@ @> @< 0, ,.0* 2`x&`x0@P " 0(d @` `x`x`x` x`x`x p` мl `x`xpr`x`xSELECT BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.SOURCE_MAP_SCALE, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_COLLECTION_METHOD_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_REFERENCE_DATUM_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.DESCRIPTION FROM BEACH_LATITUDE_LONGITUDE_COORDINATE(px\ @X @H @8 &@6 H@4 x$ H xPLN t@h @d @` z`x(# 002P +$4H-P.X8(/PH% $3 0"8@/`"X$@2-6/208'hh  #@45h054(P&P 6.$"X0!X50 $3h/(3x3( !0P#H8x43@h40$X,h K_[(X!"%%`(4Ѝ# `2@15%+@0p%p-(/5 "8.3!0`5/@:P@!+-P3h5$"x&0X %,PhXXHhHxP @@ @> @< x(, x( ` &(h(p` x" d ` @X  K_[PX!85.'xXCJ *\R4*#6a*\R4*#8$*\Rffff*024a55fc4c(*\Rffff*024a55fc4c\0(*\Rffff*024a55fc4c\2(*\Rffff*024a55fc4c\1 @ $  >@ < : 8 >H > ~ ~ @~ .x~ &P~ @~ ~~ $}F}<P}6} }$|{ z(zy*py$Hyx(xn؊"hxw"wV`v"8vFuVuu$ttPxt$8qsB@s.r<q"FbhqRp&ppppp ,@p(ppo 2oooooX8o LHo " ooooo 4n n nhnPn 0n nmg$m"m0pm$Hm (m m&l(l,l $`l @l l*k kk*k$Xk"0k,k j"jj xj$Pj((j$j(iK_[ @(&i&i&`i00i ((؆&i $h,h(4Hh"8 ph"Hh*h*g*g"hgPg0g(g*f fff `f*0f$f&e*e||$e"`e&8e e dd" d&d"hd*8d,d c"c"c xcXc(0c(c,b0b(b$Xb @b bb"aaa ahaHa& a*`"` `$`h` H`$ ` `_,_&_"h_$@_ 8,*"*P8* (__ ^"^$^ (p^$H^(^.],]*] 2`] (8] H(]  ]]]]]\\\\\\\\\\\\\\\\x\ *H\" \*[8["[ [ &X[ @[ 0Z Z >Z 6hZ (@Z 8Z >Y .Y >Y 8PY @Y" Y 0XXXXX  N`X"\8X) X $W(  W=W"W $pW(Ȃ>B0W0BW8BV8BV  $hVXV@V(VVU  2UU U U UU  hU XU PU HU @U 6T T >T 0XT (0T (T >S .S >xS 8@S <S 0R @R" xR ( 0HR@R8R0R(R  BQ.pQ)Q $pQ(  PQ=8Q"Q $P(2BP6BxP6B@P:BP2BO2BO $hOXO@O(OO  2NN N N NN  N pN hN `N @ N 2M M >M 6hM (@M 8M >L .L >L 8PL >L BK ,K DPK :K @J"$ J 0JJxJpJhJ  JJJJIIIIII I  @`IJHI)0I (I((  H@BH2BpH2B8H2BH0BG>BG4BXG:BG2BF ( 6FF F FxF  XF HF K_[@F 8F @E 4E E >xE :8E (E E >D .D >XD 8 D >C BC ,hC D C :B @B"$ B  0XBPBHB@B8B  JAAAAAAAAA pA  D(AJA)@ ,@(H  @DB`@4B(@:B?2B? ( 6x?h? `? P?H?  (? ? ? ? @> ,> > >P> 6> (= = >= .x= >8= 8= >< Bx< ,H< D< :; @;"$ h; 08;0;(; ;;  J::::::p:h:`: P:  ::J9)9 *9(h  9:BP9<B9:B82B8 ( @X8H8 @8 08(8  8 7 7 7 @7 2p7 h7 >(7 46 46 6 >p6 .@6 >6 85 @5 *X5 @5" 5 0444444/444 p4 "H4 *4  D3.p3)3  &`3(  ,03 22:B2(:Bx28B@2 $22 (ȃ  *Vj ( >B1 >B1 0H BB` @Bx  $`1P1 (>B1<B0>B0BBJB   $h0X0 (  4؅,D @B DH8G@ LB  2H !80 J/ )0(  (/<B/ >Bh/ < $@/0/ (/  . . . .  .P  $(0  &x .  .6B`  <B  >X.H. @. 0.(.  . - - - @- 0x- p- >0- 4, 4, , >x, .H, >, 8+ @+ *`+ @ +" + 0*******  B`*.p0*)* &)((  ,)>)>B`)4B()BB(@B(  HX(@((( <B'8B'  :p' /P'(/('' (H DB& && &p& `&  X&P&  >&& % %%  % % % % @`% 6(%  % K_[>$ :$ 4h$ `$ > $ .# ># 8x# >8# 4# @"" " 0x"p"h"  R"6!)! &!(h  ,h!0B8!8B!  >      p  `  X R 6) &( ,X0B(8B >   ` P H   V6) &x(( ,H0B8B >  xp  P @ 8 0 @ 8  >p <0 4  > . >@ 8 > 4 @P" 8 0  T*nx)`  ,06B       @` 8(   > < :` X > . > 8p <0 * @"   0xph  <((g) ((  :Bh>B(:B2B ( 4xh ` PH  (    @ 2  >H 6 :  > .X > 8 < *p @0"   0  <(gp)X (0(Ȅ  <B >B 8B` :B 2B ( 4      `  P  H @ @ 2 0 >8 >ؖ "x  > . > 8X < *Д @" @ ( 0`  <(gp)  ((`     (P :B<BК %<B HBPFB %   (p %8B0:B %<Bh HBFB %  %8B  :@@    P   (X @ 2  > 8H 4  > . >X 8 B * @h " X 0(      8"\) "h=P  80g) > (  x :B8 8B "  6 )8BP @ 8 (   4K_[       x h ` X @h 6(   h >p . > 8 @Џ"4 H ( 8 & H(  6XP(H X  >`( ȏ Аؐ <((0 P` h :ؑ(  08  4h ( @ 2  @ "p h >( . > 8 >@ . , @ 0p @0",   @   (  .PH  F`  (8 @  8 @@    Љ ȉ   6 ph  80   opj.  B@H_  (dACH_2Set the element's value and add it to the documentnj X 'S, BEA ^!bK ^!`KTTO/No fancy processing for numeric or textual dataUT XYYYY-MM-DDTHH:MM:SS$' ^!* KT 9Convert the incoming date string to an XML formatted date (Now process the data based upon its typeLLCreate the new element FK_kh|h $P:Ensure we actually have data to move into the XML document]X]x    CTUAL_:*********************************************************** the data is handled9 eType - the type of the data, dictates how& vData - the data to addD ' new element7 strTagName - the name of the tag for the B1 add the data to7 objParentElement - the parent element toAS' data toTI7Input/Output: objXMLDocument - the document to add the XML document. CLASS: Description: Appends BEACH XML data to the current beach+ Name: AppendBeachXMLDataToDocumentD = 9*********************************************************od. B@B_ASSIGClean up our resourcesORGAd B@GN.EFFkd B@B_ORGANdd.   B@M -Finally add the role data to the root element BEA. B@BLE_ASSd B@'( z  ( FK_BEACH_ID % `A@ ! !b 0Add all of the assigned beaches to the procedureIV( z  &  `A@TATUS,( z   DESCRIPTION % `A@( z  "PROCEDURE_CODE % `A@.FK_PE Add the role data 7Create the procedure assignment section of the databaseCE ! ! L N  P ! B@2Check for assignments of this procedure to beachesID %'Get the current procedure IDID = ' ! !b J  P ! B@yy'));2Query the procedure table to return procedure data]]]])Variables used to creatK_[e the XML document ( t:**********************************************************$ data forch dat; strBeachID - the beach ID to query procedureon key1 add the data to7 objParentElement - the parent element toct' data to7Input/Output: objXMLDocument - the document to add thece. assingments to the XML documenttyTy2 database to add beach and procedure8 Description: Procedure that manages the queries to theit+ Name: AddBeachProcedureInformationvityDe9*********************************************************o]. B@B Clean up our resources] B@ntLeng.   B@-Finally add the role data to the root elementActi( z  2STATUS % `A@( z  0EFFECTIVE_DATE % * A@ptionT( z  . FK_PERSON_ID % `A@( z  ,FK_ORGANIZATION_ID % `A@( z  *PERSON_ROLE_CODE % `A@tyInAdd the role data"Create the role assignment element ! !b F H  P ! B@6Query the beach org/role table to return the role data ]])Variables used to create the XML document ((Season:**********************************************************$ data for 6 strBeachID - the beach ID to query roleure1 add the data to7 objParentElement - the parent element tour' data tori7Input/Output: objXMLDocument - the document to add thead3 role assignments to the XML documentingAdd/ database to add beach and personre8 Description: Procedure that manages the queries to the, Name: AddBeachPersonRoleInformationeCode9*********************************************************oX. B@BingAddClean up our resourceserW B@nStat.   B@-Finally add the role data to the root elementmInt( z  2STATUS % `A@xt( z  0EFFECTIVE_DATE % * A@ramInt( z  ,FK_ORGANIZATION_ID % `A@( z  * ORG_ROLE_CODE % `A@hAccesAdd the role data"Create the role assignment element ! !b B D  P ! B@6Query the beach org/role table to return the role dataessT]])Variables used to create the XML document ((ective:**********************************************************$ data fornizati6 strBeachID - the beach ID to query role Beg1 add the data to7 objParentElement - the parent element toti' data toin7Input/Output: objXMLDocument - the document to add theai3 role assignments to the XML documentPerson5 database to add beach and organizationer8 Description: Procedure that manages the queries to theca2 Name: AddBeachOrganizationRoleInformation9*********************************************************ohR. B@B AddClean up our resourcestail(R B@onElec( z  ~ STATION_ID % `A@et%Add the standard activity information ! !b > @ X  R ! B@NQuery the beach activity station table to returK_[n the beach activity's stations8]p)Variables used to create the XML document !! :**********************************************************. reason data for(7 lngActivityID - the Activity ID to query1 add the data to7 objParentElement - the parent element topl' data todi7Input/Output: objXMLDocument - the document to add theat. information to the XML documentIndi5 database to add beach activity station88 Description: Procedure that manages the queries to the1 Name: AddBeachActivityStationInformation9*********************************************************oM. B@BClean up our resourcesM B@.  B@7Finally add the beach activity data to the root elementis( z   DESCRIPTION % `A@( z  TYPE % `A@%Add the standard activity informationCreate the beach detail element ! !b 8 : X  < \ P ! B@ddOQuery the beach activity reason table to return the beach activity's indicatorss . B@B Clean up our resourcesatiopK B@ .  B@nt7Finally add the beach activity data to the root elementad( z   DESCRIPTION % `A@( z  TYPE % `A@%Add the standard activity information Create the beach detail element** ! !b 8 : X  < Z P ! B@ dLQuery the beach activity reason table to return the beach activity's sourcesrn the. B@B detaiClean up our resources!HI B@.  B@7Finally add the beach activity data to the root element( z   DESCRIPTION % `A@( z  TYPE % `A@%Add the standard activity information Create the beach detail elementL_ ! !b 8 : X  < X P ! B@PTLQuery the beach activity reason table to return the beach activity's reasons ]@]`)Variables used to create the XML document !! j:**********************************************************. reason data for7 lngActivityID - the Activity ID to query o1 add the data to7 objParentElement - the parent element to' data toou7Input/Output: objXMLDocument - the document to add thes . information to the XML document 4 database to add beach activity reason: obj8 Description: Procedure that manages the queries to the 0 Name: AddBeachActivityReasonInformation- 9*********************************************************o D. B@B Clean up our resourcestionC B@(.  B@ 7Finally add the beach activity data to the root element**kpC.  B@p ( z    ` B@ t ' z    ` B@ ( z  EXTENT_START_MEASURE % ` B@l da $ $esEXTENT_UNIT_OF_MEASURE %' EXTENT_LENGTH %'3Determine if extent data should be added to the XML% ( z  COMMENT % ` B@ ( z   DESCRIPTION % ` B@0 z   B@ z   B@itAAdd activity reason andK_[ station data if it exists in the database ( z  |ACTUAL_STOP_DATE % * B@ ( z  zACTUAL_START_DATE % * B@FFIX  ( z  xNAME % ` B@E  ( z  v ACTIVITY_CODE % ` B@_N ACTIVITY_ID %'l%Add the standard activity information lCreate the beach detail element ! !b 4  6  P ! B@ o;Query the beach activity table to return the beach activity******]0]H]]]] )Variables used to create the XML document ((( cripti:**********************************************************$ data for : strBeachID - the beach ID to query activity1 add the data to7 objParentElement - the parent element toEl' data to 7Input/Output: objXMLDocument - the document to add thetr. information to the XML document - database to add beach activity(8 Description: Procedure that manages the queries to thekt* Name: AddBeachActivityInformation9*********************************************************o;. B@B******Clean up our resourcesh; B@(.  B@ t8Finally add the beach attribute data to the root elementhe. Add Beach Tier data % Clean up objRSPol B@Bn up o. B@]  ! B@ta.B B  B@toAdd the individual data pieces < z B POLLUTION_COMMENT % `A@ss0 z B POLLUTION_SOURCE % `A@ to "Add all pollution sources/comments ! !b  B@    P'  B@ Add the individual data pieces ( z  MONITOR_FREQ_UNITS % `A@PO( z  OFF_MONITOR_FREQ % `A@CODE( z  SWIM_MONITOR_FREQ % `A@  B@Add the individual data piecesDDRE, z  SWIM_SEASON_LENGTH % `A@, z  SWIM_SEASON_UNITS % `A@  B@Add the individual data pieces****( z   EXTENT_UNITS % `A@( z   EXTENT_LENGTH % `A@dure t( z  EFFECTIVE_YEAR % `A@dresse+lngActivityID = objRS.Fields("ACTIVITY_ID")&Add the standard attribute informationcumeCreate the beach detail elementat ! !b 0  2  P ! B@=Query the beach attribute table to return the beach attribute str#Dim vExtentUnitOfMeasure As Variant@Dim vExtentLength As Variantn for,Dim lngActivityID As Long] ] ] ]X ]x ] ] ] )Variables used to create the XML document (( :**********************************************************$ data for : strBeachID - the beach ID to query activity1 add the data to7 objParentElement - the parent element to' data to7Input/Output: objXMLDocument - the document to add the. information to the XML documentct d. database to add beach attributeb8 Description: Procedure that manages the queries to the+ Name: AddBeachAttributeInformation9*********************************************************o0. B@B `A@K_[Clean up our resources0 B@%.  B@9Finally add the telephone number data to the root element( z  :STATUS % `A@( z  8EFFECTIVE_DATE % * A@es0( z  6TELEPHONE_NUMBER % `A@****( z  4TELEPHONE_CODE % `A@lephonAdd the contact data8#Create the telephone number element ! !b  ! B@4Query the telephone table to return the contact data: obj  P'thk0. '  , ' d. '  * '8  jbj ('DCreate the SQL based on the data type, either organization or persond the ]P ]h ] ] )Variables used to create the XML document ((( :**********************************************************4 either person or organizationtype o= cktKey - the type of address data to query forpers& organization****; information for, either person or(8 strKeyID - the key value to query address1 add the data to7 objParentElement - the parent element to' data to7Input/Output: objXMLDocument - the document to add theon" to the XML document0 database to add telephone numbershe8 Description: Procedure that manages the queries to the& Name: AddTelephoneInformationPHON9*********************************************************o). B@B8Clean up our resourcesCTIVH) B@dA@.  B@0Finally add the address data to the root elementad( z  STATUS % `A@( z  EFFECTIVE_DATE % * A@ resou( z  ADDRESS % `A@****( z  ELECTRONIC_ADDRESS_CODE % `A@ AddAdd the contact dataz %Create the electronic address elementhe ! !b  ! B@ri=Query the electronic address table to return the contact data  P'tpk& '  , 'o add& '  * '  j &'DCreate the SQL based on the data type, either organization or person ] ] ]]0)Variables used to create the XML document (((P:**********************************************************4 either person or organization dat= cktKey - the type of address data to query for& organization; information for, either person or(8 strKeyID - the key value to query addressat1 add the data to7 objParentElement - the parent element tob' data to7Input/Output: objXMLDocument - the document to add the**" to the XML document3 database to add electronic addresses`A@8 Description: Procedure that manages the queries to the_L. Name: AddElectronicAddressInformationNT_U9*********************************************************o@". B@B%Clean up our resources" B@ %.  B@0Finally add the address data to the root element ( z  STATUS % `A@be( z  EFFECTIVE_DATE % * A@OR_FRE( z  ZIP_CODE % `A@MONI( z  K_[STATE_POSTAL_CODE % `A@R_( z  CITY % `A@( z  LINE_3 % `A@y to r( z  LINE_2 % `A@P'( z  LINE_1 % `A@b( z  MAILING_ADDRESS_CODE % `A@Add the contact dataLLUTIO"Create the mailing address element ! !b  ! B@in:Query the mailing address table to return the contact data  P'k '  , 'd '  * '  jh $'DCreate the SQL based on the data type, either organization or personlly ad](]@]X]x)Variables used to create the XML document (((:**********************************************************4 either person or organization(= cktKey - the type of address data to query for Pro& organization0; information for, either person or inf8 strKeyID - the key value to query addressbj1 add the data to7 objParentElement - the parent element toEl' data to 7Input/Output: objXMLDocument - the document to add thetr" to the XML document0 database to add mailing addresses**8 Description: Procedure that manages the queries to the+ Name: AddMailingAddressInformation9*********************************************************o. B@B beachClean up our resources6 B@ ..  B@b,Finally add the org data to the root element% z   lA@st z   lA@at z   lA@D  B@atAdd the individual data piecesE ( z  TITLE % `A@ME ( z  SUFFIX % `A@TUAL_S( z  MIDDLE_INITIAL % `A@|( z   LAST_NAME % `A@vi( z   FIRST_NAME % `A@e( z  ACTIVE % `A@8Create the name detail section0( z    `A@ ` ID %'ine Add the org identifiered tCreate the org detail elementNIT_ ! !b .  ,  P ! B@<Query the person table to return the person name detail data B@]`]x]])Variables used to create the XML document ((tr:*********************************************************** people data for5 strOrgID - the organizationID to query1 add the data to7 objParentElement - the parent element toea' data toro7Input/Output: objXMLDocument - the document to add theat" to the XML document* database to add person data8 Description: Procedure that manages the queries to thead/ Name: AddOrganizationPersonInformation9*********************************************************o. B@B Clean up our resources  B@ - the..  B@,Finally add the org data to the root element8 z  A@****** z   jA@** z   jA@8 z   jA@s  B@ tAdd the individual data piecesP( z   ABBREVIATION % `A@( z   DESCRIPTION % `A@( z  NAME % `A@( z K_[ ORGANIZATION_CODE % `A@adCreate the name detail section ( z    `A@0ID %'RIPTAdd the org identifier8Create the org detail element ! !b "  P ! B@ resouHQuery the organization table to return the organization name detail data r]]]])Variables used to create the XML document (or:**********************************************************1 add the data to7 objParentElement - the parent element to' data to 7Input/Output: objXMLDocument - the document to add theel" to the XML document0 database to add organization data8 Description: Procedure that manages the queries to theth) Name: AddOrganizationInformation9*************************************************************** End API constants ******]5]'Path must existformat]5'%Save As: prompt before replacing file]'Read only button hidden ]5(File must existh acti]5'Look is like Explorer p ^ ^p^^^^^^^^0^H^`^x^^^^^^^ 8Pct!****** Begin API constants ******,****** End XML Document tag constants ****** the]LocationDataCompleteIndicatorX5 activ]MonitoringDataCompleteIndicatortion]"NotificiationDataCompleteIndicator05tp]CompletionYear 6docume]YearCompletionIndicators@: "Year Completion Indicators Section]TelephoneStatusIndicator5leme]TelephoneEffectiveDateX ]TelephoneNumberText4]TelephoneTypeCodeheTelephone section]BeachRoleStatusIndicator4 rea]BeachRoleEffectiveDate******]BeachRolePersonIdentifier4**]BeachRoleOrganizationIdentifier to ]BeachRoleTypeCodeh4 Role sectionach ac]ProcedureBeachIdentifiereach]ProcedureIdentifier@4]ProcedureTypeCodeH]ProcedureDescriptionText4(Procedure section]PersonTelephoneDetailx~ ]PersonElectronicAddressDetail3`A@]PersonMailingAddressDetailbe]NamePrefixText3]NameSuffixText******]PersonMiddleInitial3]LastName Add] FirstNamex3nf]PersonStatusIndicator8: Pro]PersonNameDetailP3ies ]PersonIdentifierh datPerson sectionnd o]OrganizationPersonDetail(3 rol]OrganizationTelephoneDetail]#OrganizationElectronicAddressDetail3] OrganizationMailingAddressDetail ]OrganizationAbbreviationText2]OrganizationDescriptionText]OrganizationName2 ]OrganizationTypeCode(]OrganizationNameDetail2the be]OrganizationIdentifierX Organization section to] ElectronicAddressStatusIndicator`2****]ElectronicAddressEffectiveDate(]ElectronicAddressText@1ument]ElectronicAddressTypeCodeorElectronic address section]BeachRoleDetail0 ]BeachActivityDetail]BeachAttributeDetail0]BeachAccessibilityCommentX0w]BeachAccessibilityTypez ]BeachAccessibilityDetail00A@]ProgramInterestFIPSCountyCodeATION_]ProgramInterestCommentText0 ]ProgramInterestStateCode8A@]ProgramInterestDescriptionText/%]ProgramInterestNameh]BeachNameDetail/elem]BeachIdentifier Beach sectionK_[]MailingAddressStatusIndicator/ forma]MailingAddressEffectiveDate]AddressPostalCodeh/**] StateCode  ]MailingAddressCityName@/]MailingAddressStreetLine3TextPt mana]MailingAddressStreetLine2Text/(] ActivityName8(]MailingAddressStreetLine1Text and p]MailingAddressTypeCode.assignMailing address section]BeachTierRankingocum]BeachPollutionSourceDescriptionh ]BeachPollutionSourceCodeX8]BeachPollutionSourceDetailHre]$MonitoringFrequencyUnitOfMeasureCodeX]OffSeasonFrequencyMeasureh ]SwimSeasonFrequencyMeasure@y ]MonitoringFrequencyDetail. ]SwimSeasonUnitOfMeasureCodeЍ]SwimSeasonLengthMeasure6****]BeachSwimSeasonLengthDetail]ExtentUnitOfMeasureCode-le t]ExtentLengthMeasure]BeachExtentDetail- ]AttributeEffectiveYear Beach Attribute sectionnt] ActivityIndicatorDescriptionTextp-ata]ActivityIndicatorType0E_CODE]ActivityIndicatorDetailH- ]ActivitySourceDescriptionText`]ActivitySourceTypeX,SO]ActivitySourceDetail]ActivityReasonDescriptionText,dA@]ActivityReasonType]ActivityReasonDetail+Beach Activity Reason Sectionhe r]ActivityExtentUnitOfMeasureCode]ActivityExtentLengthMeasure+]ActivityExtentStartMeasure ]ActivityExtentDetail+]ActivityCommentTextP ]ActivityDescriptionText(reIn]#ActivityMonitoringStationIdentifier ]ActivityActualStopDate`( the]ActivityActualStartDate bea]ActivityTypeCode Beach Activity sectiondocu]BeachProcedureDetail'] BeachDetail!]OrganizationDetail&]BeachDataSubmission&Main document sections obj.****** Begin XML Document tag constants ****** xA@lA@j @!organization or person keysachID EEnumeration to determine which data key should be operated on, eitherta fA@dA@bA@` X!,Enumeration used to help build XML documents(] INDICATOR% t]SOURCE!]REASON%&Reason,Source, and Indicator Constantsoced];%q]', 'mm/dd/yyyy'));!]';"] WHERE FK_PROCEDURE_ID = 'p%pr]ESELECT BEACH_PROCEDURE_ASSIGN.FK_BEACH_ID FROM BEACH_PROCEDURE_ASSIGN0"ure to] WHERE FK_ACTIVITY_ID = "]USELECT PROCEDURE.ID, PROCEDURE.PROCEDURE_CODE, PROCEDURE.DESCRIPTION FROM [PROCEDURE]H%he dat]/ WHERE BEACH_PERSON_ROLE_ASSIGN.FK_BEACH_ID = '`"8]!SELECT BEACH_PERSON_ROLE_ASSIGN.PERSON_ROLE_CODE, BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_ID, BEACH_PERSON_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_PERSON_ROLE_ASSIGN.STATUS, PERSON.FK_ORGANIZATION_ID FROM PERSON INNER JOIN BEACH_PERSON_ROLE_ASSIGN ON PERSON.ID = BEACH_PERSON_ROLE_ASSIGN.FK_PERSON_ID % r]5 WHERE BEACH_ORGANIZATION_ROLE_ASSIGN.FK_BEACH_ID = '"t]SELECT BEACH_ORGANIZATION_ROLE_ASSIGN.ORG_ROLE_CODE, BEACH_ORGANIZATION_ROLE_ASSIGN.FK_ORGANIZATION_ID, BEACH_ORGANIZATION_ROLE_ASSIGN.EFFECTIVE_DATE, BEACH_ORGANIZATION_ROLE_ASSIGN.STATUS FROM BEACH_ORGANIZATION_ROLE_ASSIGN$each]DSELECT BEACH_ACTIVITY_STATION.STATION_ID FROM BEACH_ACTIVITY_STATION$] AND CLASS = '" ] WHERE FK_ACTIVITY_ID = $8]|SELECT BEACH_ACTIVITY_REASON.CLASS, BEACH_ACTIVITY_REASON.TYPE, BEACH_ACTIVITY_REASON.DESCRIPTION FROM BEACH_ACTIVITY_REASON #]I', 'mm/dd/yyyy')) AND BEACH_ACTIVITY.ACTUAL_START_DATE <= CDATE(FORMAT$('$o]9' AND BEACH_ACTIVITY.ACTUAL_START_DATE >= CDATE(FORMAT$('P#]' AND FK_BEACH_ID = 'X$ent]ISELECT K_[BEACH_ACTIVITY.ACTIVITY_CODE, BEACH_ACTIVITY.NAME, BEACH_ACTIVITY.ACTUAL_START_DATE, BEACH_ACTIVITY.ACTUAL_STOP_DATE, BEACH_ACTIVITY.DESCRIPTION, BEACH_ACTIVITY.COMMENT, BEACH_ACTIVITY.EXTENT_START_MEASURE, BEACH_ACTIVITY.EXTENT_LENGTH, BEACH_ACTIVITY.EXTENT_UNIT_OF_MEASURE, BEACH_ACTIVITY.ACTIVITY_ID FROM BEACH_ACTIVITY#] WHERE FK_BEACH_ID = '0$te the]|SELECT BEACH_POLLUTION.FK_BEACH_ID, BEACH_POLLUTION.POLLUTION_SOURCE, BEACH_POLLUTION.POLLUTION_COMMENT FROM BEACH_POLLUTION#]' AND FK_BEACH_ID = '$^]' AND FK_ORGANIZATION_ID = '0]SELECT PERSON.ID, PERSON.ACTIVE, PERSON.FIRST_NAME, PERSON.LAST_NAME, PERSON.MIDDLE_INITIAL, PERSON.SUFFIX, PERSON.TITLE FROM PERSON] WHERE FK_PERSON_ID = 'ach ] WHERE FK_ORGANIZATION_ID = 'cation]vSELECT TELEPHONE.TELEPHONE_CODE, TELEPHONE.TELEPHONE_NUMBER, TELEPHONE.EFFECTIVE_DATE, TELEPHONE.STATUS FROM TELEPHONE]SELECT ELECTRONIC_ADDRESS.ELECTRONIC_ADDRESS_CODE, ELECTRONIC_ADDRESS.ADDRESS, ELECTRONIC_ADDRESS.EFFECTIVE_DATE, ELECTRONIC_ADDRESS.STATUS FROM ELECTRONIC_ADDRESSh]SELECT MAILING_ADDRESS.MAILING_ADDRESS_CODE, MAILING_ADDRESS.LINE_1, MAILING_ADDRESS.LINE_2, MAILING_ADDRESS.LINE_3, MAILING_ADDRESS.CITY, MAILING_ADDRESS.STATE_POSTAL_CODE, MAILING_ADDRESS.ZIP_CODE, MAILING_ADDRESS.EFFECTIVE_DATE, MAILING_ADDRESS.STATUS FROM MAILING_ADDRESS@]SELECT ORGANIZATION.ID, ORGANIZATION.ORGANIZATION_CODE, ORGANIZATION.NAME, ORGANIZATION.DESCRIPTION, ORGANIZATION.ABBREVIATION FROM ORGANIZATION ]WaterBodyNameCodeAM]WaterBodyTypeCodeMM] WHERE SEND_TO_EPA = 'Yx SQL Constants])http://www.w3.org/2001/XMLSchema-instancePCo]/http://www.exchangenetwork.net/schema/BEACHES/2(he f]9http://www.exchangenetwork.net/schema/BEACHES/2 index.xsd**Name of default BEACHES schema****tt:********************************************************** or michael.klos@cgifederal.comh( Michael Klos (CGI Federal) 703-652-0425n 9 If you have any questions about this code please contact monitoring data.8 This database will not generate XML documents for beach 7 activity, and procedure requirements of the BEACH act. 2 generate XML for the organization, person, beach,4 the BEACH act. This database, once populated, will 6 submission to the US EPA based on the requirements of****8 This database can be used to generate XML documents for u BEACH Activity XML Generator9*********************************************************kd( !add the swim season length number]SwimSeasonEndDatehod *else add the start and end date to the XML, z   SWIM_SEASON_END_DATE % dA@#if there isn't a start and end dateRE FK_SWIM_SEASON_START_DATE %$SWIM_SEASON_END_DATE %$"S]SwimSeasonStartDate, z   SWIM_SEASON_START_DATE % dA@S, ELE p " z% ., BE  " z% .NGTH  " z% .N_UN  " z% .ASON  " z% ..SWI  " z% .RIBU  " z% .ATTR  " z% .H_AT  " z% .ROM  " z% .w  " z% .IVE_  " z% . FRO  " z% .SE  " z% .ZATI  " z% .ZATI  " z% .PTIO  " z% . SE  " z% . EACH t " z% .  BEA  " z% .FIPS  " z% .tyRedkA@* ?Convert the incoming dateTime string into an XML formatted dateAc ^!dKT = o X YYYY-MM-DD$'AI.If there are no pollution sources, add K_[elementCHES+Else, query to return any pollution sourcesn any =Else, if the pollution sources are univestigated, add element P " z% .B a piAdd the individual data piecesg ]MonitoredIrregularlyComment]NoPollutionSourcesIndicator]MonitoredIrregularly]'PollutionSourcesUninvestigatedIndicator)ht0 z  < NO_POLLUTION_SOURCES % N A@0 z  > POLLUTION_SOURCES_UNINVESTIGATED % N A@workNO_POLLUTION_SOURCES %YNa POLLUTION_SOURCES_UNINVESTIGATED %YeSet Pollution Detail to nothingH_( z  F MONITORED_IRREGULARLY % N A@_UNITS( z  H MONITORED_IRREGULARLY_COMMENTS % `A@TRIBUTA@N 9Convert the incoming date string to an XML formatted date ^!N KTREGUtrue' X Yfalse' d X Ne (vDat'kPs]BeachPollutionSource8.Add Beach Act Beach data]BeachActBeachIndicatorACH_AT, z   BEACH_TIER % `A@IT, z  T BEACH_ACT_BEACH % N A@0r]aSELECT BEACH_ATTRIBUTE.EFFECTIVE_YEAR, BEACH_ATTRIBUTE.EXTENT_LENGTH, BEACH_ATTRIBUTE.EXTENT_UNITS, BEACH_ATTRIBUTE.BEACH_TIER, BEACH_ATTRIBUTE.SWIM_SEASON_LENGTH, BEACH_ATTRIBUTE.SWIM_SEASON_UNITS, BEACH_ATTRIBUTE.SWIM_SEASON_START_DATE, BEACH_ATTRIBUTE.SWIM_SEASON_END_DATE, BEACH_ATTRIBUTE.SWIM_MONITOR_FREQ, BEACH_ATTRIBUTE.OFF_MONITOR_FREQ, BEACH_ATTRIBUTE.MONITOR_FREQ_UNITS, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY, BEACH_ATTRIBUTE.MONITORED_IRREGULARLY_COMMENTS, BEACH_ATTRIBUTE.NO_POLLUTION_SOURCES, BEACH_ATTRIBUTE.POLLUTION_SOURCES_UNINVESTIGATED, BEACH_ATTRIBUTE.BEACH_ACT_BEACH FROM BEACH_ATTRIBUTE]] (dion9********************************************************* Description: Add " z% . TTRI2Add the elements of the schema to the XML documentCreate YearCompletionIndicatorsss " z% . RIBU7Input/Output: objXMLDocument - the document to add theS,' data toTE7 objParentElement - the parent element to1 add the data to/Create Year and add to YearCompletionIndicatorsy B@] " z% . ta fd:**********************************************************  o0o0 Name: AddEndOfYearCompletionInformation7Create Notification and add to YearCompletionIndicators true (dfalse (dkxn B@5Create Monitoring and add to YearCompletionIndicators]( " z% . true (ddmfalse (dkm B@3Create Location and add to YearCompletionIndicators] " z% . true (ddmfalse (dkl B@ ----!- -Finally add the role data to the root element B@. 9*********************************************************, Name: AddBeachCoordinateInformation data 8 Description: Procedure that manages the queries to theet XML documentdd bea7Input/Output: objXMLDocument - the document to add the ' data tobl7 objParentElement - the parent element toyv1 add the data to6 strBeachID - the beach ID to query role $ data for@j:********************************************************** ))oi)Variables used to create the XML document]]hK_[6Query the beach org/role table to return the role data . B@ment.a B@BeachRo."Create the role assignment element B@roClean up our resources   P ! B@ ! !b]BeachCoordinateDetail7 database to add beach coordinates to the o]: WHERE BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID = 'AT " z% . _LATAdd the coordinate dataES% z END_LONGITUDE % `A@Add the end point% z DESCRIPTION % `A@% z END_LATITUDE % `A@% z SOURCE_MAP_SCALE % `A@ORDI% z REF_H_COLLECTION_METHOD_NAME % `A@% z REF_H_REFERENCE_DATUM_NAME % `A@H_Coorinate section]HorizontalCollectionMethodNameitudeM]LatitudeMeasure]LongitudeMeasureLATI]SourceMapScaleNumericz ],HorizontalCoordinateReferenceSystemDatumName ]BeachCoordinateDescriptionText " z% . H_RE " z% . `% z START_LATITUDE % `A@A@% z START_LONGITUDE % `A@% z SOURCE_MAP_SCALE % `A@% z REF_H_COLLECTION_METHOD_NAME % `A@% z REF_H_REFERENCE_DATUM_NAME % `A@ B@ . B@. ]]Add the start pointTUM_NA3Finally add the coordinate data to the root elementp`]BeachCoordinateStartPointDetailemen]BeachCoordinateEndPointDetail. ]SELECT BEACH.ID, BEACH.NAME, BEACH.DESCRIPTION, BEACH.COMMENT, BEACH.STATE_POSTAL_CODE, BEACH.FIPS_COUNTY, BEACH.WATERBODY_NAME, BEACH.WATERBODY_TYPE, BEACH.ACCESS_TYPE, BEACH.ACCESS_COMMENT FROM BEACHPDI]SELECT BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.SOURCE_MAP_SCALE, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_COLLECTION_METHOD_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_REFERENCE_DATUM_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.DESCRIPTION FROM BEACH_LATITUDE_LONGITUDE_COORDINATE@`]SELECT BEACH_LATITUDE_LONGITUDE_COORDINATE.FK_BEACH_ID, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.START_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LATITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.END_LONGITUDE, BEACH_LATITUDE_LONGITUDE_COORDINATE.SOURCE_MAP_SCALE, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_COLLECTION_METHOD_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.REF_H_REFERENCE_DATUM_NAME, BEACH_LATITUDE_LONGITUDE_COORDINATE.DESCRIPTION FROM BEACH_LATITUDE_LONGITUDE_COORDINATE@]K_[K_[K_[K_[ K_[!K_[kAttribute VB_Name = "modSharedXML" '*5v BEACH Activity  Generator>"This database can be used t(o g,e9documents f= submi ssion+the US EPA2 Jd re quire9ofs*act. A,ce populated, willFA #organizatC, p@erson,aa8ch,0~, and procedure K%IB not:monihing.  If you haveFy ques-s abouFt bcod@?lbecont0Michael Klos (CGI Fed@rl) 703-652-0425 or mC .k@ @cgif .com@** Op, ExplicitCompY D 'of defaultCES schema Global Const SCHEMA_LOCATION As S@Qhttp://@www.exBntwork.n(et//pES/2 indexp.xsd@J_DNAMESPALCE W3w3.X/2001J/@tSB#-i "ance @6SQL $ap&QL_SEND"K_[_TO_o& WHERE a= 'Y _#_!_DETAIL+"SELECT#8.ID,$eDESCRIP7ECOMMENTSTATE_POL_CODBEFIPSU(NTYEW@RBODYbTYPACCESS_P FROMC1qORG>`ANIZbS $$J%*ABBRxEVI`"M5ING_ADDR !R7l.LINE_1, 23CIA;GBMZIPTEFF@RIVE_D`EO `( q(\`RONIC(.O$p$4, p /.9 o L_T`PHONN<. E_NUMBER, -  V q@NTACT_J_.+$LFK8_ID'PERSd'iU;oQpidcbA ), FIRSTL $LAMIDDLE_INITIALSUFFIXTITLEMsOL_3' AND  yATTRIBUsp[oa "c.1g!YEA#XT`a_LENGTH]_USTI(SWIMpA0s .9/*,RT$F_1xH_PMETOR_FREQ? OFF_H8_o b 4ED_IRREGULAR~Luk`?z.DNO0{LLU}_0SOURv/ PO,Q NVESTIGY%xt?3-7DU'-L- "-B- K2SU.P3UV.$oW1o "7M8qCTIVxLL32L.a/UATA3sAOP5_o 5vEC3;MEASURUDGe!6_OP9O7&" _P$}E As String = "' AND FK_BEACH_ID'" Global Const SQL_ACTIVITY_DATEZGIN X.UAL_ STARTr >= CB(FORMAT$( mE , 'mm/dd/y')){<+{REASOrSELECT  5_.CLASS,TYPE DESCRIPTI7FROM!A_WHERE1}  y2:~5JoP .(B.=ByORG_8ROL0ANXIZA: _IGN._CODV @IDŋ EFFIVE FUS *5 +!CM2M"PERp/.II/P--C,, C. J,/ INNER JO&H `=.A ID7D!Z>8i$ZbrCOORD\INKD gL@fTUDE_LONGI"e %[`/ea_ ~e ." ISOURCE_MAP_SCAL&REF_HL_METHOD_NAM?.PdNzUMo.lo *L4@ * "\c"$ok3PROCEDU~R^1p8=._vQ^w[]6L3JX^}?OF@w@Bx_TEXLT_@0 ';L#_NUMERI~CO?S'ݢ 'Reason,Source, and IndicatorantstQe`$"^ ;E>ob al Const XML_TAG_TEL_STATUS As String = "TelephoneStatusIndicator" 'Yearmple`tion <ec$ GlobYEAR_COMPLETION_INDICATOR ~`Co_^~WCI_[ AO;NOTIFIDJ!NotificiajData*eJ+MON"InING*Moni.)LOSLo'* EndA Document tag cants C By Begin APIR Declare Fun~ GetSaveFileName Lib "comdlg32.dll" Alias _  " A" (pOpenf@nAOPENFILENAME)!RLong)TyXpe IluctSize hwndOwnerKI@anc lpstr@1tC CACustomMaxC+ lex E  &eTitlU -IOialDib  flagsi!@OffsetIntegerb#BExtens@7Def&W(fnHo$okTe atK@ A[BCʄOFN_EXPLORER&H80#1 'L is like ExpplorAOMUSTEXISTUb1A'3mA `existHIDEREADO(NLY4Read only butthiddenOVERWRITEPR 12 'l#: pr t bef` replach PATH+! 'Path ALLOWMULTISELEC00k'Ék. A:&bAddOrganizaIn mB`DescripProceduthat manages the querziaoA database `to ad6 O ! dd@Input/Outobj`ư-% k /` P`ntEleSp2 0~`oO{ * Public Sub or(ByRef  ?MS2.DOM40,%e IOM)1EQ'Variabl0#usedqcreH0HDim +N +S Q/DetailP_{ZcNew FDB.Record`ZW{@m3DT 'Q1y2 o)/0g .return={d3 "RS.Q} SQL_ORG_|_DET AIL &RSEND_TO_EP2AWHS0XT_, Curr0: x@  Des0cripProcedurehat managesBkqueri?ozbas o">pJ>s$@ ~ ds@Input/Out(`%x -"% dK to/` N pPS`  e] ID `b!,y{ peopleciF5 PublicAP~F(ByRefDm2As MS42.DOM40, _c_o1// K1G I@OMDŽ H ByV/` Str)#'Variab"l`useo createe Y!Dimd%#UC M YNew ADODB.Recorxdse !D `c!'Q@}6yBmxtSrePturnIn@y dRy>.O@| SQL_PERSON_NAME_DETAIL &SEND_T`O_EPAWHERE Vb@_TEXT_, Curb`Kjy.Connp PDo W0ea` (C EOF Orq ^BOF\ 1 'CkCkgX=0."Node(NODE_ELEMENT,a#_TAG_ORG, BEAC HES_SPMASPACE '^b idsifxierY Fields("ID"HABeach17Toe \ % _1_@?H ,_!I(s !(5_"_VR #,o0.m?L |STATUS_P?/%ACTIVEϻ G,_F? b O FIRST     b8L Q ? LA ?+ MIDDLE  @_INITIAL_`_ _ _ _ W SUFFIX_ 6 k p TIT/   ??b7YVL}CX'dd!o]d AddElectronic`ressInformation objXMLDocument,: MA?@  Descrip Procedure@iat ma nageslqueriBpQwbas@o}mAE'K  dDInput/Out@%@R -#E A@LO ʞDp£ ?VKeyIDDkey valu߂'-"g& i@, eir pn`raniz>aA? typ`xfe9FyC@ ;Mg]5 Publicg:](ByRefDE@ As MSJ2.DOM40, _u=I KGG IVOMEleᙃ ByVal0E` Str y8eContact T9)A'Variab"l {useo creat@QHsDim$)  )+C)dNew ADODB.RecordsebSQLa3ǃ Tag-'C'n@c _QeC = _MAILING_ADDRESS#If (%*=OrY) Then% & CONTACT_WHERE_ORG &v= 0_TAGp_DET0 EvleLpa PERSON/P +?jIf =  TEX`T_ENDS'Q`dy b tQ(A\returcC+GpZ`yOp$`, CurAkju.p)npВD(o We (EOF Or,BOF05% 1=25F.5Node(NODE_ELE0MENT, BEACHES_SPMA_NAMESPACEX  /} A"Beach$:To7 դ ,'0_TYPEGa?Fields(" 4_C"), xdtT6qO O ,O 3B 2  ? _2     3  O _3 ?    r CITYo ?k O O O O O B STAT/5O[ _POpL4%/ / / / " ZIPoAF@V5@ U    r D EFFECTIVE_ `;eTim/ / / , صAG_MAIL_STATUS, _ $objRS.Fields(""), xdtText')'Finally add theress d@ata toroot elemendParE.appendChild XMLContactDKrSet = Noth8ing!wMoveNnLoop'Clean up our c\ces C0lose=RS 7 End Sub '*5 Name:Addctr0onicInformation Descr ipAProc edure_at managesBbquerifGAmbas@oBtmvF' yAl docuy'@Input/Out&SD -$E A%  O JDpB @ strKeyIDDkey valuOZlitB v, ei@r person orZorganizAL%ckt type ofe9tC@ M*4 Pub(licg ](B0yRefIAs MS K2.DOM40h% GG IAWOME aj Val fE` S|tr@9ekĢ:T:)c'Variabl`|use@o creat R@(t Dim *c dNew ADODB.RecordseD@SQL  Tag-'C' nÅd_RfC = _ELECTRONIC_ADDRESSIf ()+= Oj) xThe1 &" CONTACT_WHERE_ORG &=c @a= 0_Tp_DETa#EldA =  PERSON/.?kIf  TEXT_ELNDS'Q0ey3b t(]retur#cS}G3@[zOt, C urlject:. /np"oqDo WeQ (EOF Or,BOF11 &? A(=3G.6Node(NODE&MENT,1 , BEA@CHES_SPMA_NAMESPACE H PR1 A’Beach$To ,dC,6('_TYPEHa?15_C   a} (  O{ T@    ժ| DAT'?FFKIVE_ `eTima/ / / / "!œ _K H0dᔖљQ|q>>? SurſѝTPphoneooo"Jo3mt5 numbPM??ŖO??w _$Դ? ,x?Qtry addre@ss ' information $, either pers$orzorg0aniz|PcktKey - Q type of data to quezh v*6 Public Sub AddTelephoneI(ByRef objXMLDocument As MS2.DOM 40, _ ,Par)(Ele -I8OM -Val st@rKeyID+String*p:eContacs"Tr) 9'Variables usedtcr0eate|/ dcDL DimDRDOSK< RSA1New ADODB.RecordsetG ;SQL;1JTagM'CG,baA2 2.x"pssivity "fB!M#˟tIz Lo5ЯzT=__uWV6Detaildʟ wExt.V SwimSea(MonitorFre`=8ncyPollu!CS"OonȀ;RS t07`'lngAct7P8LongvLength#n"vExtentUnitOfMeasure As Variant 'Query the beach attribute tabl o re0turnFobjRS.Open SQL_ATTRIBUTE_DETAIL &SEND_TO_EPA(WHEREstrB ID"_TEXT_>, CurrProjec@t.ConnionDo WhiNot (KEOF Or BOF)`'Crea|detail elem;Set(PXMLAD=! Docu.c)Node(NODE_ELEMENT, _TA`G_BCH, BEACHES_SMA_NAMESPACE\YAddsta ndardinformatG;'lngActipvityY+@oFields("ACTIVITY_HID"Ap@wdf-DataTo{E8 <, F;}_EFF_YEAR, _2cWpE*E+E"), xdtTexGiB.Ci-Xn hK(LLLEN)9LXTN_GTvH%L><_UNI&<?<S'E`indZdual d T piecesK WR.aB[C>d$WnAJSwimSonJJSWIM~#g'if~isn't a rnd e`eIf IsNullDEh_SEASON_START_DATE")x) A`^ Thed8'a%$ s$ length numberaOO/+f_fO$xg__%Cg''? c4UElsH#Q'Je  ta,& tog`5nbqT6DPr7*oPE /Emlo~uQ 3 ?  9p E1=fwTT` TTTMo orFrequencyoT#?=!"FREQoTߓ  qF}_B_MOsOR_o   it _OFF +  m l R  /     _IRREGK A TOREDU LARLYT$YNG8/ / / / / _COMMrΟ  u1 WMߟMML@@WNPolluQSourceONONANPOLLNNy  'If there ano pollution sources, add eleme ntpnobjRS.Fields("NO_POLLUTION_SOURCES") = "Y" Thenv|AppendBeachXMLDataToDocue Y,PSDetail, )_TAG_AT T_BCH_NONE, _ s!j, xdtYN .'Else8, iunivestigaxted#_UNINVESTIGATED!=_":Sbwcquery to return an>yOfG ^GstrSQL@@RIBUTE & _WHEREBID _TEXT_ENND B.O@ , CurrProject.pConnDo While Not (FEOF OrAiRS 0BOF) Setm@ r.cre`WNode(NODE_ELEMENTr#, BEACHES_SMA_NAME`SPACEp'"A@all/7/comAs?L4TCD\a*l&2%\")ZTex譅?L?#DESC?COMF O#E individual d@ pie@@\#.a"C@kdSd ishing/f(MoveNBLoop'Clean upA @Clo|se RA. End If7Attributeacs 'A  `not   =4=U+ B^ Tierb&?Hߎ܎,?:TIER918X_O8 ch Act s4/n%emV/MLAC"_ _H_g(Finey1Cb a(C\rou>`P`ntEӲ/CL,',6 !0P@W@Cx>urP>IRS A=Sub '*** ' Name:|$%YtyInfo8rmaDescrip`cedupthat manages ѝio baseq?̴cti!!`A d4: Input/Ou>t` 005. -  2jto0&TpR'EڰO.h cP`0a/ 3p ! Public ( ##(ByRef As MS2.DOMU40E KI OM?]VЉ(PSPpng$=Variabl.used1%C&*qDimT$6yDetail As MSXML2.I(DOMElement  Dim obbjdExtT)RSNew ADODB.RecordselngActivityID-LongyvtLengthVaria !UnitOfMe`asure(P'Query the beach a< table to return RS.Open SQL_ACTIVITY_DETAIL & SEND_TO_EPA WHERE st,HG>_TYPE, _G4A) tN,CV"), xdtTex?/cp;a37.L/.T_STARO?...UAL_DATE$ AeTime?'9?/ddF+/STNK%o]k% d]Ft nt29 %>t o :"? ? ? ? ? ?=,S/ 4 + O0*+X.a2UCd#Y4/Q d =4hiUőE5If'Fi`nallyaCCbop1roo@p=` PPntT/ L; / A MoveNLoopS'Clean up ours`cesp Clo%{0 Sub '*** ' Name:12І2^ QDescripPcedqthat managesqi^Ua}oXƑ* dU Input/Out`P 0 - ; T'0&Tp( ܰ@ add the data to ' lngActivityID - "to queryr reasonifor0*6 Public Sub AddBeachRhIndmation(ByRef objXMLDocument As MS2.DOM 40, _ ](ParQ&Ele)I5OM %*Val RLong) J'Variables useo cte: dpDim|O ?* RS New ADODB.RecordsetC C'Qba a|t+C@turnP 's sjRS.Open SQL_ACTIVITY_REASON &Q_WHERE1CStr(5Q) 2_CODE B_TEXT_END, CurAzProject.Conn@C,Do While Not (/EOF Or_3BOFq A'CpPdet`ail eÕG Setys=.CNode(N@5_ELEMENT, `_TAG*_DETAIL*, BEACHES_SMA_NAMESPACEnB9standard>igoAp9#u@DTo,kK$6TYPEk.C3Fields(""), xdtTexZ&fT$,-SCDESCRIPTI ON3Finally b+sy7ro@V.M$j.a7C\d3Tachingg1MoveN/Loop#'Clean up our%sceJClose@=q  ? =??NC!SOUR4CE?t?JbjJ(II#+x IOIIL_II _Ih_IP >_Iu>[I_I_c0_I_Ien?Tu‡0U қ $aE_I  _ITHHbH}oHndHtaO)F)H0H֗HrHHHA Sߓߓ`9preߓГindicatorboIwID(aIINDIC_IҶS.D1_I_Iq   `%(3??T5OIOI@'OIOIn 1 OIOIo>o>T?I?`?I?I?I eTT /I  /I/Ich/I/I/I&))II _IRI Set objRS = Nothing  End Sub '*5v Name:AddBeachActivityStationInform 36Descr ip=Procedure that manages e queri o:ldatabas9o add b~d a s@i I t- XML documentInput/OutSD -P"@the R[#1Par@EleD2p e to1 D# VlngjID. @@F`y_repasonC{ *6 Publi cA (ByR efAIgAs MS2.DOMl40, _ZhFbIOMi%0Val \@Long)A$'Va riabl@usTedcVtAeL Dim>@New ADODB.RecordseX#'Q`iyVbd @il"i@returnP'sEjs URS.Open SQL_ACTIVITY_STATION &_WHERECStr( J")D"_NUMERIC_END`, Cur!cject.ConnCDo Wh&i` (EOF OrC$.BOF-""!'`LbndardȄ Ap@ To,AH,8_TAGa%$Hd#Fie lds("-_ID"), xdt8Tex>MoveNLoop#'Clean up our HresceofofAdfM7D`O; Sii i06/4OieB#CNFhBEACH_ORG_ROLQfiKhjsgTEXTOgOg OgS.Og3 BC}WC8w4W>=!fPh.Node(NODE_ELEMENTgBDETHAIL, ES_SCHEMA_NAMESPACErP r 97 ?qqq : _TYPEq? qE _Cr/ s/ / ch50/ 1I O PE FK+ANIZ2?}# G_!DAT !EFFEE_pBeTim    w 1USo" !/'FinalDCO@3A^y ?AKx 5** Public[(ByRef LcAs MSg 2.DOMh40, _G`eIOMfVal \@Str )'Variabl ^usedJcreat!ceLTDim$!9umD b u RSNew ADODB.Recordse$Q p yb]bbkorg/ bholnreturnBB4Open SQL_BEACH_PERSON_ROLE &_WH/ / n/ / / U[x DPŃCMCO_`M44))nt Zh_ [ P`?0p*LhZbj_8ZļZ Q ODESCRIP! (G 'FWlly aƁ to0׾PPa!ES/uO?q ntcMoveNLoop S'Clean up ourbs`cesC0lose$RSO  ? p$ Sub 'N*** Name:00cedureInformat'Descrippat managesqueri) database to add beach and procedure ' assing mentsnthe XML docu(`Inp@ut/Out : objFDD - jb}9? m1)cPabrEleepI eto c Q6strByID3qpueryjhforL*6 Public Sub AddNPIn/mation(ByRef As MSh2.DOMi40, _ `aIOMg) 'Variables used[ creatcΖDim/9DiCD DRS  New ADODB.RecordsetJ  @@StrC'Q lBreturnpRS.Open SQL_PROCEDURE &SEND_TO_EPADWHERE_TEXT_, C ur(ject.Connc @Do Whi@Not ('EOF8 Or!-A@BOF`6?!'Getzc ID$= Fields("ID" @Check @X gn{s ofY isH @obres(9(BEACH)_ASSIGND(_"+@bC42 2)If 1g23 Thena'CgjP) sB*efS< *ybo9 {D.#xNode(NODE_EL@EMENT,a_TAG_DETAIY, -ES_SCHEMA_NAMESPACEAa'@?e ro W!ApesTo,!Q m_TYPEd@ f[ v_C!"), xdtTexeL,DES>Cp !RIPTION_ _ !ID? o 6? k!b#allE./0gdCgZZR6#Q9cOS ch1%6J_ u*FK_" ApMoveN,Loop+\Clo6s0x $F =PhFu'Fi:nyAUroOn^ J.aCCepqdAtaOQcDQ0\k ElEnd IftE 'Clean up our res`ceqGD  1'OName4`\OfYearComple1 QDescrip:#Ɓ^D34d͠=#R̫s>ӟƿo?Ϳ/nP  ok^/ByVal bln` Bo0anǏMon  Loc/txt0h?NIJe schemaQQe XML document  'Create YearCompletionIndicatorsDim o bj|N As I>DOMEleQSetr= D .cNode(NODE_EL@EMENT,_TAG_YEAR_COMPLETION_INDICATORS, BEACHES_SMA_NAMESPACE)z and a dd toelρvjCIla0.Text =p txtIl.appendChild C ACEFNotif@gmH؅elJ sLNpOTIFA^NI@f (bln) ThenG?"V@"true"C Else fa@  If eIEGhMoniingmh(33tYMONIrING3c3@o3?3el2e 2Lo fel:211LO?e $e 1e1f?1?1f%0'Finallyche role data!totrParentd >{v yht##x} E`Sub '*3` Name: A_BeachszToewDescripQpsSucur b ֆ. In(K_[put/Out`#x - aaryhpW'00:Tpr O%strTagQtn of tag forDZnew*|vD1/eTypettt) , ts xhowAiled' Publhic - (((`ByRefM2S%2.#40, _5 ?V$ ? 2Val XStr> ByVariant#e@q!!ϴQ ues sNewO S'Ensure we acDtuVhavgVmoinq# `eIsNull(2eExit!AP*2X( ?rœ'Now pro0cess=Abased upon8 itp07 Se@lect C "cS 'Convertinc om $keTime&anXDmatt3 .xdt!A!= For (C, "Y-MM-DDTHH:MM:SS"%1/ / `! H7 'A Y 1/% S YN C75/="/ ;PQ9"N"false" t E pstrValue = " nd Ifd &'No fancy processing for nu@meric textual data9Case@ eXMLDType.xdtN@umber,TB: CStr(*vF)#ESe0lect'S et th:lement's v|aadd iEodoc_nobjNewE}.E-P ar*appendChild E (Noth _ub  H,!KNH$CoCreateGuid8StringFromGUID2"v7JpK[[%5ʼtFkԫ)z XB`a!vx XB`a!v"v7JpK[[MET$<@[LS S<<<\< <<@< <(<, <0<<8<@ `JZZ. {xh ~tpX p%% %0P xH4 n" 0l @\ x@$%8b@ 4@L @< , x@  @ 0( 0 p @ (   J H @ 0P H0@  J z x8p (lrpt\<t`pt8p "8@(l @h @d @` @P (@ @0 8p @ @8   d @` @P (@ @0 )K_[   P   ( ,X`J i   "@l modS@h Sh@d KGZO@` DXU_@P FH(@ KM@0 H ,+( GstomMp@  hXxXXCJ (*\Rffff*024a55fc4c\2$*\Rffff*024a55fc4c$*\Rffff*014a55fc4c p p x @x X P < : ,  >X .( @B       B@@ 8 *&    8 ` E@"4   " ,HP 'X:+p "[ d+H     >04L0  *h(  .& * 8*H` *  8 &(  6(`(h   >( $   0   8 P X  <h  (  $         :( h (p  $         *   ( @ P `   XPX]0The XML Document being created(]] !($hema%-Year is required. The XML was not generated.A@4|k$( H <.z( ]0|xopk0 !( !(4 NAMESPWYear is not valid. The Year must be between 1950 and 2100. The XML was not generated.A@4"NH ikx 'kh @ .xml'@ @ $ $ .XML !R$ $'@ Determine file save named z ' $<Prompt user for file nameq Save Beach Notification XML As9\($\9R l r p t9^9TXML Documents (*.xml)$ *.xml$ 9J9H9F 9D Create API structureh:**********************************************************( a file name was selected.7Input/Output: Returns false if Cancel was hit, true if% for XML file creation.3 while initializing objects necessary6 Description: Allows user to select pat*K_[h and filename Name: SetFileName9*********************************************************hCreate new XML documentxmlversion="1.0" encoding="UTF-8" z% zB@ Submission created $ z% zB@@#Create root element for the Payloadtor@(Now add the beach information and schema@xsi:schemaLocation z%.  (d  ~!B@xmlns z%. " (d  ~!B@ xmlns:xsi z%.h (d  ~!B@2Add the elements of the schema to the XML documentCreate YearCompletionIndicators " z% . /Create Year and add to YearCompletionIndicators]P " z% . h (d B@,7Create Notification and add to YearCompletionIndicators] " z% . J !(true (ddPfalse (d@k0 B@5Create Monitoring and add to YearCompletionIndicators@]  " z% . H !(true (ddfalse (dkp B@3Create Location and add to YearCompletionIndicators] " z% . ( F !(true (ddfalse (dpt\k B@`$Add YearCompletionIndicators to Root J @ ~B@  Save the file ~ z/d @  zB@k ]@]@Variables for the XML filex n " z% .~ Attribute VB_Name = "Form_End Of Year Submission Generat(" Basz0{CAE13525-74BC-46FD-A18D-6BD4AB297AC1} |GlobalSpacIFalse dCreatablTru PredeclaId"Expose_TemplateDerivCustomizD$Op Comp@ D3T  ".@&") F>&@J+a,Ifc!ü "'pSub b_%e_Ck($DimAE\AsMS2.DOM40 'FbeAC d RootEleafe I OM Schemag@F1IsNull(tb_d ata_y.V alue)/MsgBox ("2~is requi9s. qr Rnot gc@P'c 9 < 01950: >p 210/ A v-cd 2 mpy be tweencqh!_ _ A _ '{W '(#q[newdS@&= N&40g\A#.appendCtd.c(oHup)]ra@s(F"6ba/("P"%1 aNow r`3 `r3TPayloa5796=eNode(NODE_ELEMENT,_TAG_DETAIL_DOC, BEACHES_SPMA_SPACEhOq6 0 addBbcin mc(~s=' ? e#f?0si:Loi9,.TextdT LOCATION 8. s.setQjdIteQ K mlns 9P E W e bj 8,Y 0:xsi = W3^&  b''Ad)4s ofb*3$ to J9V1leIndAorsgo_)Po?oc4a0?t##<gtHt sM+K_[ONITORING)srH (rP qG!qLor ?rf8&7qLO?qF$qEY7f7A``eln6ar_; 6AyRoo}'Save the filHdd   B (F nameKE Sub #˒( 8  H YX h x q qblnNameblnAttblnActblnRoleblnCoorblnOrgblnProcblnComp dtActBegindtActEndCancelnngrU (rU $`) TA`(- q !9Y########,,$`0 $`4 $`8 $A`< $`@ $`D $`H $A `L $ `P $ `T $  `X 8$I `\ 8$`` (`d 0y&$ `h <$I`l @$`p <$`t @( `x 0$I`| n89 `=a=Ha `=a=)un @:@)ppp@AivvvIQ@Axxx@11@11@11ѐWWW__ @qx Lx x x@ #t*#p*#l #h*#dTx 2 tplhd x x4*(D(4  4`#tTx/t6D4 Tx0 qx8@^q<@ lE 1l>l#t\ #p2tpl4 1l>l#t #p?2tpl*#t/t@ (i0n p$  (tplhdD,K_[4q'[x4x6x()X4 *plx=+[tX4 T+)xtpRpx:P,` -`@<X4 *lx=+[tX4 T+/<)xtp6`@ x.X4 *lx8x x/X4 *lx<x0X< l+0p<=+[txX8 D+x 1)txp x2X4 *lx<x3X< l+0p<=+[txX8 D+x 1)txp 84 4(P%x! <x x ll$l l 84 5(P2%x! <x x 84 6(PK%x! <x x8xX4 *xFP%X4 *(Pd%x! <x x @$  $<xtp`@0)hx! Hx hfX]4x5hx! QxD cX%D D < D cDx! Qx0 cX%0 0 < 0 c0x! ,Qx,:X%,  , Pc,x! D__SRP_4T |D__SRP_5 / __SRP_6% 2__SRP_7 #rU h.Ai9yaٝ!Y!AA1qѠQAAy)A9iQqɣɔ@A@Y @y@@ @1@ɖ@@@@ )@ I@ YqI@ @@ Yɗ@:ɓ@qqppp@-K_[QxxxQ@QvvvQ@)@)@ Y)| @)\ICWWW___ @qx Lx x x@ #t*#p*#l #h*#dTx 2 tplhd x x4*(D(4  4`#tTx/t6D4 Tx0 qx8@^q<@ lE 1l>l#t\ #p2tpl4 1l>l#t #p?2tpl*#t/t@ (i0,$(tplhdD4A0 ,  8)hx! Hx hfX]4x5hx! QxD cX%D D < D cDx! Qx0 cX%0 0 < 0 c0x! ,Qx,:X%,  , Pc,x! DQx(:X%(  ( Pc(| (hx! Hx hcX]4x5hx! Qx$ $  $ < c$x! Qx    < c x! ,x Pxx! Dx Px\< $D0,($ xhH0 `  X(hx! `x hcX]4x5hx! \x xx! tx xx! Hx xx! x x)hx! `x hfX]4x5hP fX%! d fX%! | fX%! P fX%! 0 x! \x xx! tx xx! Hx xx! x x4X$  xhH0   0   P ( Fl%!   $  2Q9x ''(>xFH0:h!NXX "6XH(HX!  X:h]1H(!  (:8]1! H c]1')6X(9x ''(>xFH0:h#NXX "6XH(FFH!  X!  XNHN)6XH9x ''(>xFH0:h$NXX "6XH(DX! ` Xfh]1H(! x (f8]1'!  f]1')6X(]9x ''(>xFH0:h%NXX "6XH(BX! ` Xch]1H(! \ (f8]1'! t f]1'! H f]1'xdt! t dfT]1D'4 0!  0  f]1') t06 X(d 9x ''(>xFH0:h&NXX "6XH(@OX!  Xch]1H! Qo( '8'6X(8&9x ''(>xFH0:h(NXX "6XH(>!  !  (X! \ H! t (! H !  t!  t 0! x0 !  !  !  !  OOV+.K_[V+V+V+V+(V+HV+XV+, )t06XH(x  ''(>FH@)**#x**#+*#,*#*#**#**#-*#,*#l*FX "2x6XH(! Q  (c!  Q(h% c:h%! ! Q  c0 &xt0XH(xdD4 O0   0   0 @  0   0   D :l%! :l%h! ,h h:l%h! Dh hh! `Qhd d cl%d cdh! \Qh` ` cl%` c`h! tQh\ \ cl%\ c\h! HQhX X cl%X cXh! QhT T cl%T cTh! xQhP P cl%P cPh! QhL L cl%L cLh! h (h(l%h!  h h8 h! QhH H H N8  :l N((8 #$*# %H 2$ 68(N8 :l N((8 #$*# %H 2$ 68( HcHh! Qh        c \8h! h :lN((8 #$F%! , /$)h68(\8h! h :lN((8 #$F%! D /$)h68(tH 0 d`\XTPLH $$ h8(T x$ `x x $  x0   0   0   0   0   dhx! \x hfX]1HBD! \D kB0'  ! t  f]1'! t k'! H f]1'pjl! Hl kjX'H4D! D 4f$]1'!  k')xDlD6h0 X4x! `Qx  fX% cx! \x xx! tx xx! Hx xx! x x( hxDlDhH  pH45     /*#<)*#8+*#4+*#0+*#,C*1t2 <840,(`p! tp `cP]4p5`3lt)*#<+*#8+*#4+*#0D*1t2<840(`p! Hp `cP]4p5`lt)*#<+*#8+*#4+*#0E*F@`p! p `:PF !  :G`1t2<840)p6@` (`p! p `cP]4p5`3lt)*#<+*#8+*#4+*#0H*1t2<840(`p! xp `cP]4p5`(`p! `p `cP]4p5`*lt)*#<+*#8+*#4I*1t2<84ICt(`p! p `cP]4p5`bW`p! `p `cP]1@! x c]1 )p6`V*lt)*#<+*#8+*#4J*1t2<84`JCt(`p! p `cP]4p5`W`p! `p /K_[`cP]1@! x c]1 )p6`*lt)*#<+*#8+*#4K*1t2<84KCtltCx/ 0, xtD<840,p`@ 0 4       /Q`o@%*#llx*#h*FP%p$ 2lhd6P@)>p$ Pk><p$ 4k<1dH QdtB`:,%dp$ Td ( Q`oP%tl  d5PB`:,%dp$ Td ( Q`oP%tl  d5PB`:,%dp$ Td ( Q`oP%tl  d5PB`:,G%dp$ Td ( Q`oP%tl  d5PB`:,I%dp$ Td ( Q`oP%tl  d5P`lt=H T)d` c= t p$ o p$  c=!pPL0ptx$lhd`P@H\`d$ d PQ`o@%*#h*FP%t$ /hd6P@)>t$ Pk><t$ 4k<-=P`:, %dt$ Td ( ` 4 P`1l)d`5Pg`d$ d PQ`o@%*#hll*#(*FP%p$ 2h(d6P@)>p$ Pk><p$ 4k< dH QdxB`:,%dt$ Td ( Q`oP%xl  d5PB`:,%dt$ Td ( Q`oP%xl  d5PllF,%xl  B`:,%dt$ Td ( Q`oP%xl  d5P)>p$ Pk><p$ 4k<B`:,%dp$ Td ( Q`oPrU ,1pa48`==@` !==D`Aa==(D`Aa==(D!`Aa==(@I` y==@q` y==@` ==@` ==@ ` y==@ ` y==@9 ` y==8a `==L ` ==H`!AY==An@C)ppp@:?)@Q xxx0K_[Q@Y1 @Y1A@Y1у@Y1I@ O @ O1I@Y1@Y1Q@Y1y:WWW___ @qx Lx x x@ #t*#p*#l #h*#dTx 2 tplhd x x4*(D(4  4`#tTx/t6D4 Tx0 qx8@^q<@ lE 1l>l#t\ #p2tpl4 1l>l#t #p?2tpl*#t/t@ (i0PI(tplhdD4)|l+[x4x6x,-X4 .plx=/[tX4 T/)xtpRpx:P0` 1`@<X4 .lx=/[tX4 T//<)xtp6`@6x23P%X4 .lx=4[t8)xt x5rU~| 0   0   0   0 P  0   0  0 (  0   0   0   0   0  0   0   0        %@iq@ ! @9a~~~@Ai@iq@iq@iq@Aɒ@A@ I@A1K_[1@iqQ@ i@:@ɓppp@ 1)LxxxQ@ 1AvvvQ@iqa@iqy@iq@iqI@WWW___ @qx Lx x x@ #t*#p*#l #h*#dTx 2 tplhd x x4*(D(4  4`#tTx/t6D4 Tx0 qx8@^q<@ lE 1l>l#t\ #p2tpl4 1l>l#t #p?2tpl*#t/t@ (i0t?(tplhdD4Q0-[x`#$A` n==@` !==D`Aa==(D`Aa==(D!`Aa==(@I` y==@q` y==@` ==@` ==@ ` y==@ ` y==@9 ` y==8a `==L ` ==H`!AY==Qn^%q<8 $l$pz/ E 1h&>h#pT '#l42plh44 (1h>h#p )#l*?2plh4+*#p4/ppz/ @ (i0a/r CTS 3.(plhd2K_[`@0{p'\l! xl \ l5\W+'' ',:LN\\ 6\, [\l! xl \(L]e, ! x  (<4]r)l6\ +'' ',:LN\\ 6\, k x0l x ll= [x T )lLl:L \ \,x ll= [x T /)l6\,lx Qltlx Qlp p l *lp= [lt D l )llx Qlp p l *lp= [lt D l )llx Qlp p l *lp= [lt D l )l(lL%x ll=l(lL%x ll=l.\l! xl \`# l /l5\l= [l T )l(lL%x ll=l$\l! l \l5\m  l |  l l= [l T )l(lL%x ll=l$\l! l \l5\  l   l l= [l T )l(lL%x ll=l$\l! l \l5\  l   l l= [l T )ll= [lt T )lltlx l4FL%x  D ,txp0 l\, 0 8  HrU~|  DrU  !Iё@qqppp@ ْ@ @ 1@ YI@:ɓ@ @ @W0 h  0 X  Pquyvv97QQv;ADcawxAyqyyqizAxA1{AEFq)AHksAtt}~Q~~` \`d$ d PQ`o@%*#h*FP%p$ /hd6P@)>p$ Pk><p$ 4k<(d  ,%H ld= xd=P`:, %dp$ Td (` 4P`1l)d`5PllF,%xl  (d ,%H ld= tdB`:,%dp$ Td (Q`oP%tl  d5PB`:,%dp$ Td (Q`oP%tl  d5PB`:,%dp$ Td (Q`oP%tl  d5PB`:,%dp$ Td (Q`oP%tl  d5P`lt=x T)d`Y(llxl Y(llxl Y(llxl llxl  `lx=H T)d` c= t c= x p$ ^ 3K_[p$  c= pc T 4 pxlt hd`P@lCxpTX$ X PQTo4%S*#dT*#`lx*#\*FD%l$ 2d`\X6D4)2l$ Pk20l$ 4k0~(X U %H lX= tX=DT: %Xl$ TX (T 4D`1h)XT5DlhF %Vtl  (X W %H lX= pXBT: X%Xl$ TX (QToD%Ypl  X5DBT: Z%Xl$ TX (QToD%[pl  X5DBT: \%Xl$ TX (QToD%]pl  X5DBT: ^%Xl$ TX (QToD%_pl  X5DBT: `%Xl$ TX (QToD%apl  X5DBT: b%Xl$ TX (QToD%cpl  X5DTlp=t T)XTYlhtl Ylhtl Ylhtl Tlt=H T)XT c= p c= t l$ x l$  c= l`8  lthpx(d`\XTD4lCx*Cl?ll+*#dlx*1l/d,Ch_ll-*#dlx*1l/d.Ch ll*1lJ\`$ ` PQ\o<%llFL%p$ `5<):p$ Pk:8p$ 4k8(` lhL%H l`= t`B\:L/%`p$ T` (Q\o<%0tl  `5<B\:L1%`p$ T` (Q\o<%2tl  `5<B\:L3%`p$ T` (Q\o<%4tl  `5<B\:L5%`p$ T` (Q\o<%6tl  `5<B\:L7%`p$ T` (Q\o<%84 LVALMR2BValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapDefaultViewGUIDColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControlIMEModeIMESentenceMode$UnicodeCompressionSmartTagsDecimalPlaces  F > UժnB D,5'pļ`@EBEACH_LATITUDE_LONGITUDE_COORDINATESy-9M8AMpժnB D,5'FK_BEACH_IDBXGժnB D,5'START_LATITUDE}%ǍHçPժnB D,5'START_LONGITUDEa)r>D.v 9ժnB D,5'END_LATITUDELGS%G{4(mժnB D,5'END_LONGITUDEajYFޑժnB D,5'SOURCE_MAP_SCALE|pIV'FժnB D,5'REF_H_COLLECTION_METHOD_NAMEl=hOr WoժnB D,5'REF_H_REFERENCE_DATUM_NAMEH";B@ժnB D,5'DESCRIPTION   ժnB D,5'>8REF_H_COLLECTION_METHOD_NAME         m   s& SOURCE_MAP_SCALE         0  m:4REF_H_REFERENCE_DATUM_NAME         m   o"START_LATITUDE         0  mq$START_LONGITUDE  s       0  mkEND_LATITUDE         0  mm END_LONGITUDE         0  mzDESCRIPTION         m   zFK_BEACH_ID         m    LVALʾBEACH_LATITUDE_LONGITUDE_COORDINATECreate query in Design viewCustom XML Generation GenerationRelationships for BeachActivitiesCreate data access page in Design viewCustom XML Generationation XMLmodSharedXML*^\2LVALʾBEACH_LATITUDE_LONGITUDE_COORDINATECreate query in Design viewCustom XML Generation GenerationRelationships for BeachActivitiesCreate data access page in Design viewCustom XML Generationation XMLmodSharedXML*^\2