ࡱ> /1.t` :bjbj hJllll$NVVVPD =`^H#<$F)<<<<<<$>hNA<E$%$%$%<ll@='''$%lRF)'$%F)''"'v EV%"''tV=0='A &A'A'$%$%'$%$%$%$%$%<<'$%$%$%=$%$%$%$% d V V$("Jllllll INDEPENDENT RESEARCH AND DEVELOPMENT PROJECT DATA (INFORMATION IN THIS BLOCK MUST BE UNCLASSIFIED)Information in this block is furnished by the company in confidence with the claims that: (a) it falls within the exception under subsection (b)(4) of 5 U.S.C. 552, and (b) it is subject to 18 U.S.C. 1905. The information contained herein is furnished for the sole purpose of identifying the subject program, and the DoD shall except as required by the resolution of litigation or the direction of preemptive authority (e.g., The President, Congress, Justice Department) preclude disclosure to other than duly authorized Government Personnel. Any authorized reproduction or disclosure of the information contained herein, in whole or in part, shall include this notice.  CONTROL Forms.CommandButton.1 \s  (For Help, press F1 while cursor is on field or see Chapter 3 of the IR&D Database Contributors Guide for definition of each element.)PROJECT TITLE  FORMTEXT      PROJECT NUMBER  FORMTEXT      ACCESSION NUMBER  FORMTEXT      TECH PLAN FY  FORMTEXT     REPORT DATE  FORMTEXT      PROJECT START DATE  FORMTEXT      PRIOR YEAR $K  FORMTEXT      CURRENT YEAR $K  FORMTEXT      ORGANIZATION NAME, ADDRESS, CITY, STATE  FORMTEXT        FORMTEXT        FORMTEXT        FORMTEXT   ZIP CODE  FORMTEXT      ORG. SOURCE CODE  FORMTEXT      ORGANIZATION S FOCAL POINT NAME  FORMTEXT      TELEPHONE:  FORMTEXT       EMAIL:  FORMTEXT      PROJECT MANAGER/PRINCIPAL INVESTIGATOR  FORMTEXT      TELEPHONE:  FORMTEXT       EMAIL:  FORMTEXT      SUBJECT CATEGORIES AND SUBCATEGORIES (To indicate subject categories and subcategories re12bcd  & ' ( ) *  * , . B D F P R T V ķݰo`oVhbCJOJQJjhbOJQJU"jhbOJQJUmHnHujhbOJQJUhbOJQJjhbOJQJU hb5 hb5CJ hb6CJjfhbhbCJUjE hbOJQJUVjhbCJU hbCJhbOJQJhb56CJhb hb6CJ!2cd * l6l5kd$$IfP40**4 Paf4G$EƀbIfJ$$EƀbIfa$:::  5K$EƀbIf]G$EƀbIf5kd$$IfP40**4 Paf4 , T V kHkd$$IfP406$0*$4 Paf4J$$EƀbIfa$V v x z      F H J ^ ` b l n p wjhhbOJQJU hb5 hb5CJjhbOJQJUjhbOJQJUj< hbOJQJU"jhbOJQJUmHnHuj hbOJQJUhbOJQJjhbOJQJUhb hb5CJ.V x H p llllllllJ$$EƀbIfa$G$EƀbIf LNPdfhrtvxve!j2 hbCJOJQJU!j8hbCJOJQJUhbOJQJ&jhbCJOJQJUmHnHu!j>hbCJOJQJUhbCJOJQJjhbCJOJQJUjhbUmHnHujhbUjhbUhb hb5CJ hb5CJ# Nj"G$EƀbIfkdj$$IfP4ֈ=m6$0*0[ T4 Paf4NvmmG$EƀbIfI$EƀbIf$&(HJL`bdnptĽĞĽyk\Ľj)hbOJQJUjhbUmHnHuj'hbUjhbU"jhbOJQJUmHnHuj*&hbOJQJUjhbOJQJUhb hb5CJhbOJQJ&jhbCJOJQJUmHnHujhbCJOJQJU!j$#hbCJOJQJU#(llJ$$EƀbIfa$G$EƀbIf(JreJ$$EƀbIfa$N$$EƀbIfa$rtj""G$EƀbIfkd<)$$IfP4ֈ6$0*2T4 Paf4 VXllJ$$EƀbIfa$G$EƀbIf .0DFHRTVZ"$8:<FHJN8w8ʲʘʧʉzʮtrtU hbCJj7hbOJQJUj4hbOJQJUj2hbOJQJU hb5CJhbj/hbOJQJUhb5OJQJhbOJQJ"jhbOJQJUmHnHujhbOJQJUj*-hbOJQJU,XZj"G$EƀbIfkdd1$$IfP4ֈ0*2N 4 Paf4JLllllG$EƀbIfJ$$EƀbIfa$LNx8jJ$$EƀbIfa$kdb9$$IfP4ֈ0*2N 4 Paf4lated to your project, choose a selection from the top drop down, then the next dropdown will fill with subcategories.)WORK CATEGORY  FORMDROPDOWN PROJECT SENSITIVITY  FORMDROPDOWN Most Applicable  FORMDROPDOWN   FORMDROPDOWN   FORMDROPDOWN 2nd Choice  FORMDROPDOWN   FORMDROPDOWN   FORMDROPDOWN 3rd Choice  FORMDROPDOWN   FORMDROPDOWN   FORMDROPDOWN  NARRATIVE (Fill in each section as required. Please do not move or delete any section headers.) KEYWORDS NEED OBJECTIVE APPROACH PROGRESS      FILENAME IRDTemplate.dot  DATE \@ "MM/dd/yy" 08/30/99  TIME \@ "h:mm AM/PM" 8:08 PM Page  PAGE 1 of  NUMPAGES 2 w8x8888888888888888888888888888999999999xūq hb>*H*!jIhbCJOJQJU!jGhbCJOJQJU!j?hbCJOJQJU hb>*!j2<hbCJOJQJUhb hb5CJ!j:hbCJOJQJUjhbCJOJQJUhb5CJOJQJhbCJOJQJ%x88888888DDJ$$EƀbIfa$]kd>$$IfP4>Fl#0*    4 Paf4 $$Ifa$ $$Ifa$8899"949F9Q9c9u99J$$EƀbIfa$ 9 9!9"9#91929394959C9D9E9F9G9I9Q9R9`9a9b9c9d9r9s9t9u9v99999999999ִ୨֐nje`eje hb6 hb5hb!jbhbCJOJQJU!j_hbCJOJQJU!j~WhbCJOJQJU hb>*H* hb>* hb5CJ!jUhbCJOJQJU!jShbCJOJQJUhbCJOJQJjhbCJOJQJU!jvKhbCJOJQJU%99999999:: :::::::: !]kdc$$IfP4Fl0*`\     4 Paf499:: :::::::::!:":(:):*:+:5:6:E:F:G:H:\:]:e:f:g:h:~:::::::::::::::::::չ嫜嫜չչhbCJ OJQJmHnHujhbCJ OJQJU hbCJ OJQJhmHnHuhbCJ OJQJhjhbCJ OJQJUhhbCJ OJQJjhbU hb5hb1: :!:#:$:%:&:':(:):*:::::::: !`'1$]^ 1$]^1$ %`'1$/0P/ =!"#$% 5 000P/ =!"#$% d$$If!vh5*#v*:V P45*/ 44 Pf40Dd h  s *A? ?3"`?2t="MP`!H="Mb h>xm=N@c"EY**(82 IAGp ET -or$ƣ pЫǰ31wT#l*<`}"m17|@b,!M7Gm&dY i[a efYcέWu,uՈǬ|j0Wy&Y.tUp;K ) _w#'bKw1[1JQ8Jox(0׶;d$$If!vh5*#v*:V P45*/ 44 Pf4DP PROJECT_TITLEEnter the unclassified, descriptive title of the project. This title should refer to a specific system, a technology, or a general area of application of the study or effort.^The project title is limited to 80 characters. Use the second line if more length is required.DPROJECT_NUMBEREnter a specific project number for each project described. Generally, this number should be preserved throughout the life of the project. If the project changes in category and/or objective, a new project should be established. YThe Project Number is an optional field for the project number as used by the contractor.z$$If!vh5$5#v$#v:V P45$5/ 44 Pf4&DAACCESSION_NUMBER00000000cComposed of a unique 6-digit serial number preceded by a 2-digit company fiscal year designation. cComposed of a unique 6-digit serial number preceded by a 2-digit company fiscal year designation. DI TECH_PLAN_FY0000Enter the 4 digits of the contractor's current fiscal year covered by the Project Description. The last 2 digits must equate to the first two digits of the Record Accession Number._Enter the 4 digits of the contractor's current fiscal year covered by the Project Description. TECH_PLAN_FY_ExitD REPORT_DATE:Enter the date that the Project Description was submitted.:Enter the date that the Project Description was submitted.REPORT_DATE_ExitDPROJECT_START  !"#$%'()*+,-5043`a6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_b dufghijklmnopqrscvwxyz{|}~Root Entry  F2 Data &@dWordDocument hJObjectPool_1168676228@2iw555/  / 44 Pf4&DFIELDS1Select the main Field. When you leave the drop down, the Group and Subgroup boxes below the Field will fill with possible choices for the selected Field.Select the main Field. FIELDS1_Enter FIELDS1_Exit1 - Aviation Technology2 - Agriculture3 - Astronomy and Astrophysics"5 - Behavioral and Social Sciences#6 - Biological and Medical Sciences 7 - Chemistry#8 - Earth Sciences and Oceanography"9 - Electrotechnology and Fluidics;10 - Power Production and Energy Conversion (Nonpropulsive)11 - Materials'12 - Mathematical and Computer Sciences913 - Mechanical, Industrial, Civil and Marine Engineering814 - Test Equipment, Research Facilities and Reprography15 - Military Sciences16 - Guided Missile Technology.17 - Navigation, Detection and Countermeasures#18 - Nuclear Science and Technology 19 - Ordnance 20 - Physics"21 - Propulsion, Engines and Fuels22 - Space Technology23 - Biotechnology(24 - Environmental Pollution and Control25 - Communications0 - None of the abovePDGROUP1Select the Group for the chosen Field. When you leave the drop down, the Subgroup box below the Group will fill with possible choices for the selected Group, if any.'Select the Group for the chosen Field. GROUP1_Enter GROUP1_Exit0 - AllD SUB_GROUP14Select the SubGroup for the chosen Field and Group. 4Select the SubGroup for the chosen Field and Group. SUBGROUP1_Enter0 - All:DFIELDS2Select the secondary Field. When you leave the drop down, the Group and Subgroup boxes below the Field will fill with possible choices for the selected Field.Select the secondary Field. FIELDS2_Enter FIELDS2_Exit1 - Aviation Technology2 - Agriculture3 - Astronomy and Astrophysics"5 - Behavioral and Social Sciences#6 - Biological and Medical Sciences 7 - Chemistry#8 - Earth Sciences and Oceanography"9 - Electrotechnology and Fluidics;10 - Power Production and Energy Conversion (Nonpropulsive)11 - Materials'12 - Mathematical and Computer Sciences913 - Mechanical, Industrial, Civil and Marine Engineering814 - Test Equipment, Research Facilities and Reprography15 - Military Sciences16 - Guided Missile Technology.17 - Navigation, Detection and Countermeasures#18 - Nuclear Science and Technology 19 - Ordnance 20 - Physics"21 - Propulsion, Engines and Fuels22 - Space Technology23 - Biotechnology(24 - Environmental Pollution and Control25 - Communications0 - None of the aboveNDGROUP2Select the Group for the chosen Field. When you leave the drop down, the Subgroup box below the Group will fill with possible choices for the selected Group, if any.&Select the Group for the chosen Field. GROUP2_Enter GROUP2_Exit0 - AllD SUB_GROUP24Select the SubGroup for the chosen Field and Group. 4Select the SubGroup for the chosen Field and Group. SUBGROUP2_Enter0 - All4DFIELDS3Select the tertiary Field. When you leave the drop down, the Group and Subgroup boxes below the Field will fill with possible choices for the selected Field.Select the tertiary Field. FIELDS3_Enter FIELDS3_Exit1 - Aviation Technology2 - Agriculture3 - Astronomy and Astrophysics"5 - Behavioral and Social Sciences#6 - Biological and Medical Sciences 7 - Chemistry#8 - Earth Sciences and Oceanography"9 - Electrotechnology and Fluidics;10 - Power Production and Energy Conversion (Nonpropulsive)11 - Materials'12 - Mathematical and Computer Sciences913 - Mechanical, Industrial, Civil and Marine Engineering814 - Test Equipment, Research Facilities and Reprography15 - Military Sciences16 - Guided Missile Technology.17 - Navigation, Detection and Countermeasures#18 - Nuclear Science and Technology 19 - Ordnance 20 - Physics"21 - Propulsion, Engines and Fuels22 - Space Technology23 - Biotechnology(24 - Environmental Pollution and Control25 - Communications0 - None of the aboveNDGROUP3Select the Group for the chosen Field. When you leave the drop down, the Subgroup box below the Group will fill with possible choices for the selected Group, if any.&Select the Group for the chosen Field. GROUP3_Enter GROUP3_Exit0 - AllD SUB_GROUP34Select the SubGroup for the chosen Field and Group. 4Select the SubGroup for the chosen Field and Group. SUBGROUP3_Enter0 - All$$If!vh5`5\ 5#v`#v\ #v:V P45`5\ 5/  / / /  44 Pf4 $0 P \ h t4INDEPENDENT RESEARCH AND DEVELOPMENT PROJECT DATA Chris ChubbIRDTemplate.dott2Microsoft Office Word@^в@stdoleP f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\SU*\R8003*#5d   2 XH`R ^ Z`" @ D <P H  T hTx F ( 8 Z@" J < .8h Hp < V  x  ,   ( 0@HFP  Z" 8 @ P h 0p , ,P . H * 0( rX & . V(     3WUcx+cmdFinalCheck, 0, 0, MSForms, CommandButtonME PSLSS<,<s<<N0{00020906-0000-0000-C000-000000000046}P%*10  ( *Titl % @pBB`Bdata`D'''' t`B v  |H  ~`    `      `     `     `    ,F` I i ,L  I i ,N` I i ,  I  i ,P ` i i i ``,Rp 0  I P i ,T  I  i ,V 0 I P I p I  I  i `,Xh (  I H i ,Z  I  i \ ( I H I h i  ` ^ I I  I @I `i  ` `0  I I I 8I XI xI I I I i  !We`is d,dp I g MeI S''i ''''`'''',f( I Hngs.I herroi 30/9`titl,h8 I " " I  2").I @E7I `I I MBERI  I CESSI 'Bi J$` &xiS27,  )X%i !,` I \i ECT_,  I NUMBi  ,x` I !Ji GROU,8 I i  Erro`Hwhil,x I e dai  ix t`,h I 0es, i  .`IOR_, I i  L_PO`$f,@ I `F i  GR`B_GR`ELDS,x I !i h `` ` e en <<I" u haI$ tionI&  to )8rnin%` Fou`(Qu`* ,44%b K"X66`   H@6H:@F H0 8(H ` px  :  (< (8 ` B4@ x 0 & r` hpx    Z" ( D H`  N&8 B` BP X:h Z" & Hh  x  (8@H ZP" &$ ( ~H  Z"X `$" 40@ TP H Z"px $   F @ 0X Z"   $( P  p   F   0 ! !(! Z0!"!! !$! ! "" F" `" 0x"""" Z"" #(# 0#"H#p# dx#### Z#"X$`$ h$d$$$ Z$"X%`% h%d%%% Z%"X& F`& \& 2'@' ZH'"' ,' ' ' Z("`( ,h( (( Z(") , ) P)h) Zp)") ,) * * Z(*"* ,* ** Z*"@+ ,H+ x++ Z+"+ ,, 0,H, ZP,", ,, ,- Z-"h- ,p- -- Z-" . ,(. X.p. Zx.". ,. /(/ Z0/ Z/ Z/ ZP0 Z0 Z1 Rp1 R1 ( 2 ZH2 Z2 B 3 .3 J@33<333 Z3 B X4 .`4 J44<485@5 ZH5 B 5 .5 J506>H666 Z6 B 6 .7 J077D727 $8^@888 Z8 B 9 R9 Bp999 89:0: H: X: dh::: : Z: B H; .P; J;;:;T(<P<<< Z<B @= JH==T= Z>h>p>x> Z>B > J>8?@?\X???Z?8@@@NX@@@P@A A `0AAA  AA ZAB B JBhB6BBXB C(C Z0CB C JCC:D@DRPDDD ZDB E E(ER@EEEVEFF (FFF  FF ZFB 0G8G f@GvG H(H0H VHHHH ZH I (I8I IIIII ZIB HJPJ nXJ &J nJ `KpKXLM M(M Z0M ZM ZMB PN @XNNNN NpOxOOO ZOB O >O8P@PXP fhPPPPP ZPB PQXQ ,`Q(:Q RRS ^STT T Z(T" T @T DTU, U2PU6UU U ZU Z0V ZV ZV ZPW ZW ZX ZpX ZX Z0Y ZYB Y >Y8Z PZ`Z $pZZZZ ZZB [ H[$`[ [[[ $["[\ \(\0\ Z8\B \ :\ <\ D ] h]x]] ] ]]] Z]B (^ "0^tX^ ,^_ _ 4_P_h_p_x__ Z_B _ 2_(``aa a(a0a Z8aB a .aaaa bbb b(b0b Z8bB b .bbbb bcccc c Z(cB c >cccc cdddd d Z(dB d Ld Hd >(ehexee|e f f(f0f8f@f ZHf Zf Zg ZhgB g <gh(h@h2Xh hhh Zh" i Xi Ppi 4i 2i 60j 8hjj <j ,j:(khkpk  4xkk*k 0k l @l*Pl l>ll l m40m hm pm Dm4mn  n8nXn xn n4n n n oo (o@o`o o o4o o p p p @(p4hp ppp Zp" q ((q *Pq"q2qq"r(r2Hr8r(r(rs,(s(Xs(s0s8s8t0Ht6xt "t,t,u.8u<hu>uu 0v 8v"Xv*v  *v *v "w 48w4pw*w2w6x(Hx,px"x x4x 4 y"Xy@yy,y4zHz"hz6z,z(z {@@{"{2{"{  |6(|*`|(|(|6|(} 6@}.x}8}8}"~@~ `~:~:~($( P.p 4:,(HBp@<08 Lh6@40$h  26( 6H82؃6,H.x6,60@h 8,.0@*p8(؆&@("h JJ(0DX.4Ј:DH8`ȉ*((X,H(D Jh <؋4"P0x (8Ќ$&02X24ȍ,B0@x,8D &h$(, 0B@JBؐ8 &X>6:68 @p6H(0&X,.,.6@6x:J.@@pD240<h.6ؖB 4X4ȗD.0J`6:H(LpL.0@ p0""&86X*Л   @&`.&  & 0H&xD8,@Fp>4 0*P$6, 4<H.22(H8p$6С6(@0h. &Ȣ *:@N(У $ D Hh*Ф*20 :h02إ82H666 $( P*p.*ЧB H XPMacros for IR&D template,Used for data validation, auto filling, etc. ] 7Set to True to show msgboxes and false to turn them off]@  !13 dimensions are FG1, FG2, FG3 and value is TitleWNote: This constant array is built using the FGCodeArrayBuilder in the Access database.S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''`9Runs when a new document based on the template is created=Set up any default data values and load the fields and groups5CLC 9/17/99 Moved the code for the F&G arrays up here (  GDEBUG: Document_New(): Start. $ Debug MessageA"jCall LoadFGArray1A& G*DEBUG: Document_New(): Called ClearFGs(1). $ Debug MessageA"j2A& G*DEBUG: Document_New(): Called ClearFGs(2). $ Debug MessageA"j3A& GDEBUG: Document_New(): End. $ Debug MessageA"j ( oS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''DWhen the document is opened, check the type. Should not be opened as5a template. If it is, it will be told to close it and'create a new document from the template] GDEBUG: Document_Open(): Start. $ Debug MessageA"j5CLC 9/17/99 Moved the code for the F&G arrays up hereCall LoadFGArray .!l 0 G+DEBUG: Document_Open(): This is a Template. $ Debug MessageA"jThis should not be, squak  CNOTE: You should not open this template directly. Please close the ;template and create a new document based on this template.  2?Would you like to create a new document based on this template? 4 6 Do Not Open Template$" 8 &Open a document based on this template ..* *!> !:B< !We should now close this document *BBkk GDEBUG: Document_Open(): End. $ Debug MessageA"jo`S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''2Check all of the errors, then all of the warnings.]@X Check errors .)CLC 8/30/99 Remove the second title fieldystrError = strError & ErrorProjectTitle(.FormFields("PROJECT_TITLE").Result & " " & .FormFields("PROJECT_TITLE2").Result) B PROJECT_TITLE7H!J$F'B BPROJECT_NUMBER7H!J$L'B BACCESSION_NUMBER7H!J$N'B B TECH_PLAN_FY7H!JACCESSION_NUMBER7H!J$P'B B REPORT_DATE7H!J$R'B BPROJECT_START_DATE7H!J$T'B    BADDRESS17H!JADDRESS27H!JCITY7H!JSTATE7H!J$V'B BZIP_CODE7H!J$X'B BORG_SOURCE_CODE7H!J$Z'B BFOCAL_POINT_NAME7H!JFOCAL_POINT_PHONE7H!J$\'B BPROJECT_MANAGER7H!JPROJECT_MANAGER_PHON7H!J PROJECT_TITLE7H!JPROJECT_NUMBER7H!J$^'B 6 BFIELDS17H!JGROUP17H!J SUB_GROUP17H!JFIELDS27H!JGROUP27H!J SUB_GROUP27H!JFIELDS37H!JGROUP37H!J SUB_GROUP37H!J$` 'Bq B5Errors were encountered while checking the form data. 2 2 B 2-Please fix these errors and recheck the data. b $ Please fix these errorsA@"|0k(Now check the warningsATODO: Warnings about the email addresses, fields and groups, etc. . DPriorPRIOR_YEAR_EXP7H!J$d'D DCurrentCURRENT_YEAR_EXP7H!J$d'D D Focal PointFOCAL_POINT_EMAIL7H!J$f'D DProject ManagerPROJECT_MANAGER_EML7H!J$f'D  . F DFIELDS17H!JGROUP17H!J SUB_GROUP17H!JFIELDS27H!JGROUP27H!J SUB_GROUP27H!JFIELDS37H!JGROUP37H!J SUB_GROUP37H!J$h 'Dq D   7Warnings were encountered while checking the form data. 2 2 D 2=Please make sure that you have not forgotten any information. 25Would you like to stop and fix any of these warnings? 4 6 Warnings Found$" 8 Quit| k kx 3If we got here, we have checked the whole document."Check the filename of the document .5$jACCESSION_NUMBER7H!J.doc$j "Ask them if they want to rename itWThe document name is not the same as the Accession Number. Would you like to change it? 4 6 Change Document Name$" 8;Must get just the path, so we can save to the same locationACCESSION_NUMBER7H!J.docnC@lk kx *Ask them if they want to save the document5p Ask them if they want to save it;The document has not been saved. Would you like to save it? 4 6 Save Document$" 8Crk k q ox S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''p"When the tech plan field is exited=If the tech plan field is non-empty and the ADNumber field isAnon empty, check that the year is the same as the left two digitsof the ad number]Fix the 2 digit issue TECH_PLAN_FY .%H!J TECH_PLAN_FY .%H!J TECH_PLAN_FY .%H!JF TECH_PLAN_FY .%H!J TECH_PLAN_FY .%H(JdPl TECH_PLAN_FY .%H!J TECH_PLAN_FY .%H(Jkk B TECH_PLAN_FY .%H!JACCESSION_NUMBER .%H!J$P'B BError: 2 B b $ Data Entry ErrorA@"kPoHS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Format the date if there is one REPORT_DATE .%H5J5J$x Error, complain about itSThe Report Date is either not a valid date or in the correct format. Please repair. z $ Invalid DateA"d5J$x9JkqoS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Format the date if there is onePROJECT_START_DATE .%H5J5J$x Error, complain about itZThe Project Start Date is either not a valid date or in the correct format. Please repair. z $ Invalid DateA"d05J$x9JkqoS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''HFormat the zip code]ZIP_CODE .%H!J$'ZIP_CODE .%H!J$.The left 5 of the packed string, dash, right 4 $ZIP_CODE .%H(J   ZIP_CODE .%H!J- $ZIP_CODE .%H(JdP ZIP_CODE .%H!J-0000ZIP_CODE .%H(JkkoS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' . Load GroupsFIELDS17H!$ Clear out the other two1A&dFIELDS17H!$GROUP17H!A Clear subgroups SUB_GROUP17H!Akpqho`S''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' . Load GroupsFIELDS27H!$ Clear out the other two2A&dxFIELDS27H!$GROUP27H!A Clear subgroups SUB_GROUP27H!AkqoS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  . Load GroupsFIELDS37H!$ Clear out the other two3A&dFIELDS37H!$GROUP37H!A Clear subgroups SUB_GROUP37H!AkPqHo@S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''` . Load GroupsGROUP17H!$dFIELDS17H!$GROUP17H!$ SUB_GROUP17H!AkqoS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' . Load Groups  FIELDS27H!$GROUP27H!$ SUB_GROUP27H!AqoS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' . Load Groups  FIELDS37H!$GROUP37H!$ SUB_GROUP37H!AqoS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' @Because of screwey tab ordering, send them to the Group1 controlUNOTE: This is not working, because clicking sets it off, as does the cascading events+ActiveDocument.FormFields("FIELDS1").SelectoS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''`%Send the ALT-DOWN key to drop it downSendKeys "%{DOWN}"oS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%Send the ALT-DOWN key to drop it downSendKeys "%{DOWN}"oHS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%Send the ALT-DOWN key to drop it downSendKeys "%{DOWN}"oS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %Send the ALT-DOWN key to drop it downSendKeys "%{DOWN}"oS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''`%Send the ALT-DOWN key to drop it downSendKeys "%{DOWN}"o S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%Send the ALT-DOWN key to drop it downSendKeys "%{DOWN}"ohS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%Send the ALT-DOWN key to drop it downSendKeys "%{DOWN}"oS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %Send the ALT-DOWN key to drop it downSendKeys "%{DOWN}"oS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''`%Send the ALT-DOWN key to drop it downSendKeys "%{DOWN}"o@S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%Send the ALT-DOWN key to drop it downSendKeys "%{DOWN}"oS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%Send the ALT-DOWN key to drop it downSendKeys "%{DOWN}"oS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''L Start of the Field Neutral functions, may become common with the VB programL All functions within here should take all parameters and return values that" can be checked by other routines.S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' (Check that the project number is correctDReturn an error string if there is an error, null string if no error $-The Project Title is a required field. [8001] 2'Fk i S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''(Check that the project number is correctDReturn an error string if there is an error, null string if no error $.The Project Number is a required field. [8002] 2'Lk i S''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' (Check that the project number is correctDReturn an error string if there is an error, null string if no error $0The Accession Number is a required field. [8003] 2'Nkp ih S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''(Check that the project number is correctDReturn an error string if there is an error, null string if no error $5The Tech Plan Fiscal Year is a required field. [8004] 2' X $  X $ eNot within the range of Now+-15The Tech Plan Fiscal Year must be within one year of $. [8005] 2'kXiPS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' LChecks the Tech Plan FY against the first two digits of the Accession Number;Return an error string if an error, null string if no error]   1They are both filled in, check against each other $' $'   ComplainVThe first two digits of the Accession Number must be equal to the Tech Plan FY. [8006] 2'Pk(k iS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' (Check that the project number is correctDReturn an error string if there is an error, null string if no error $+The Report Date is a required field. [8007] 2'R $/ $/ $$eAThe Report Date must be a valid date in the format yymmdd. [8008] 2'Rk(i S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''p DReturn an error string if there is an error, null string if no error $ $/ $/ $$LThe Project Start Date must be a valid date in the format yyyy/mm/dd. [8009] 2'TkkiS''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' DReturn an error string if there is an error, null string if no error] $ GThe first address field (Organization Name) is a required field. [8010] 2'k@ $ EThe second address field (Street Address) is a required field. [8011] 2'k? $ :The third address field (City) is a required field. [8012] 2'kP? $ <The fourth address field (State) is a required field. [8013] 2'd> $ The state abbreviation,  ', does not appear to be correct. [8014] 2'kh>k`> 'ViP>S''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' DReturn an error string if there is an error, null string if no error $(The Zip Code is a required field. [8016] 2'X $eJThe Zip Code must be a valid zip in the format zzzzz or zzzzz-zzzz. [8017] 2'Xk<i<S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''h DReturn an error string if there is an error, null string if no error $+The Source Code is a required field. [8018] 2'Z $eCThe Source Code must be a valid 6 digit numeric source code. [8019] 2'ZkP;iH;S''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ] $ =The Organization Focal Point Name is a required field. [8020] 2'k`: $ BThe Organization Focal Point Telephone is a required field. [8021] 2'd9 $ nThe Organization Focal Point Telephone does not appear to be correct. Be sure to include the area code. [8022] 2'kH9k@9 '\i09S''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ]_CLC 8/31/00 If the project title and/or number have OVA, OVB or 'Overview' in them, ignore this  $jOVA  $jOVB   $jOVERVIEW 'd7 $ AThe Organization Project Manager Name is a required field. [8023] 2'kX7 $ FThe Organization Project Manager Telephone is a required field. [8024] 2'd6 $ rThe Organization Project Manager Telephone does not appear to be correct. Be sure to include the area code. [8025] 2'k86k06k(6 '^i6S''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''']hCLC 1/27/00 We had to remove the X and 0 fields for the first level because of problems with 25 elementsIf Left(strField, 1) = "X" Thenh strOut = strOut & "You must select a value for the Most Applicable Subject Category [8024]" & vbCrLfEnd If7 $1 $1 $1 $0 $0 $0 $0 $0 $0 You have not chosen any Subject Categories and Sub Categories, all of the values are at the default. Please choose all three Subject Categories and Sub Categories. [8024] 2'k2 '`i2S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''0:If the strExpends <> "" and out of range, return a warning] $ $ X  X   The  j Year Expenditures should be between 1 and 100,000 and should be expressed in thousands of dollars. [4001] 2'k0k0 'dip0S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''8If the strEmail <> "" and not an email, return a warning] $ $ The  B Email address does not appear to be in the correct format. [4002] 2'k(/k / 'fi/S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''] &If they are all blank, return an error8Sn  $  $  $  $  $  $  $  $  $ All blank All of the Subject Categories and SubCategory elements are blank. Subject Categories are not required, but they are reccommended. Please be sure that all three values are correct. [4003]'dP,WTODO: Mabye we should check for missing 1, but present 2 or three, and collapse upward.k+ 'hi+S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''89Runs when a new document based on the template is created=Set up any default data values and load the fields and groups .FIELDS 7H!AGROUP 7H!A SUB_GROUP 7H!Aq8*o0*S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''8Take the drop down object its self and check for a value'Default ! !  !  ! %!$'k`%kX%iP%S''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' BReturn the value from the beginning of the drop down, or, return 0  $XAll or Not Selected' - eTake from the left, minus two  - $X'd#'k#i#S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''3Take a date and return the fiscal year of the date.5NOTE: We may convert this to a government fiscal year>by taking dates after XXXXXX to indicate the next fiscal year. $ $'dp"Error, return -1'k@"i8"S''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Formats a date to yyyy/mm/dd   $ $/ $/ $$%It should be in YYMMDD format already 'x $e.FormatSortDate = Format(TheDate, "yyyy/mm/dd") yymmdd$'xd 'xk ix S''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''',If the state is not valid, then return False]AL,AK,AS,AZ,AR,CA,CO,CT,DE,DC,FM,FL,GA,GU,HI,ID,IL,IN,IA,KS,KY,LA,ME,MH,MD,MA,MI,MN,MS,MO,MT,NE,NV,NH,NJ,NM,NY,NC,ND,MP,OH,OK,OR,PW,PA,PR,RI,SC,SD,TN,TX,UT,VT,VI,VA,WA,WV,WI,WY,AE,AA,AE,AE,AE,AP   $j 'd'kiS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''8(Check against ddddd or dddd-dddd formats] $'   OK'd'kiS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''(Check against ddddd or dddd-dddd formats]P $' OK'd'kiS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''h7Check that it is at least 10 digits, even after packing] $'  OK'd'kiS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ECheck that it has an @ symbol and that there is something to the leftAof it, and that there is at least 3 characters to the right of it8and that there is at least one . greater than the @ sign] @'   +      .   .   .  'kd'kiS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''5Pack down a string, removing anything that is not 0-9]0H`    $'  0 9G  'j  'iPS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''xQHow do I store a 2 dimensional array, so I can look up the groups for each field?JFor the Field given, populate the dropdown with the groups that go with it.If FG1=FG2=FG3=0 Then stuff in the top levels.,If FG3=0 then get all that match FG1 and FG2/If FG2=0 and FG3 = 0, return all that match FG11The first element in each group will be "0 - All"]@Xp5CLC 9/20/99 Moved the code for the F&G arrays up here&CLC 11/1/99 Check to see if we need to$Nothing there yet, load itA,k.Figure out how we are going to query the array ! B@. "  $  & *Dont do anything, we just want the ALL tag0 - All ! B@< (  " $ &e Top level0 - None of the above ! B@<F CLC 9/17/99   $Push on FG(I, 0, 0)  -  $ ! B@<k =ddGroupDropDown.ListEntries.Add Name:="0 - None of the above" ( "!ddGroupDropDown.ListEntries.Count $ &e Second Level0 - All ! B@< (  " ($Push on FG(I, J, 0) ( -  " ($ ! B@<k ( (  &e Third Level0 - All ! B@< *  " $ *$Push on FG(I, J, K) * -  " $ *$ ! B@<k * ( d:They are all specified, just put in the one that is listed & -  " $ &$ ! B@< ( kHo@S'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''None of the above+Aviation Technology+ Aerodynamics+Military Aircraft Operations+Aircraft+ Helicopters+Bombers+Attack and Fighter Aircraft+"Patrol and Reconnaissance Aircraft+Transport Aircraft+Training Aircraft+V/STOL+Gliders and Parachutes+Civilian Aircraft +Pilotless Aircraft +Lighter-than-Air Aircraft +"Research and Experimental Aircraft +"Flight Control and Instrumentation+Terminal Flight Facilities+Commercial and General Aviation+ Agriculture+Agricultural Chemistry+Agricultural Economics+Agricultural Engineering+&Agronomy, Horticulture and Aquiculture+(Animal Husbandry and Veterinary Medicine+Forestry+Astronomy and Astrophysics+ Astronomy+ Astrophysics+Celestial Mechanics+$FG(4, 0, 0) = "Atmospheric Sciences"#FG(4, 1, 0) = "Atmospheric Physics"FG(4, 2, 0) = "Meteorology"Behavioral and Social Sciences+Administration and Management+Information Science+Economics and Cost Analysis+ Government and Political Science+Sociology and Law+Humanities and History+ Linguistics+ Psychology+Personnel Management and Labor +Biological and Medical Science+ Biochemistry+)Genetic Engineering and Molecular Biology+Biology+Anatomy and Physiology+Medicine and Medical Research+Ecology+ Radiobiology+ Food, Food Service and Nutrition+Hygiene and Sanitation +Stress Physiology + Toxicology +*Medical Facilities, Equipment and Supplies + Microbiology +Weapons Effects (Biological)+ Pharmacology+ Chemistry+ Industrial Chemistry / Chemical +Inorganic Chemistry+Organic Chemistry+Physical Chemistry+Radiation and Nuclear Chemistry+Polymer Chemistry+Earth Sciences and Oceanography+Biological Oceanography+"Cartography and Aerial Photography+!Physical and Dynamic Oceanography+ Geomagnetism+Geodesy+ Geography+$Geology, Geochemistry and Mineralogy+#Hydrology, Limnology and Potamology+Mining Engineering +Soil Mechanics + Seismology +Snow, Ice and Permafrost +Electrotechnology and Fluidics +#Electrical and Electronic Equipment +Fluidics and Fluerics +Lasers and Masers +,Line, Surface and Bulk Acoustic Wave Devices +)Electrooptical and Optoelectronic Devices +%Acoustooptic and Optoacoustic Devices +Electromagnetic Shielding +6Power Production and Energy Conversion (Nonpropulsive) + Non-Electrical Energy Conversion +*Electric Power Production and Distribution +Electrochemical Energy Storage +Energy Storage + Materials +Adhesives, Seals and Binders + Ceramics, Refractories and Glass +Refractory Fibers + Coatings, Colorants and Finishes +!Laminates and Composite Materials +Textiles +Metallurgy and Metallography +Properties of Metals and Alloys +Fabrication Metallurgy +Miscellaneous Materials +Lubricants and Hydraulic Fluids +Plastics +Elastomers and Rubber + Solvents, Cleaners and Abrasives +)Wood, Paper and Related Forestry Products +"Mathematical and Computer Sciences +Numerical Mathematics +Theoretical Mathematics +Statistics and Probability +Operations Research +!Computer Programming and Software +Computer Hardware +Computer Systems +)Computer Systems Management and Standards + Cybernetics +4Mechanical, Industrial, Civil and Marine Engineering +3Air Conditioning, Heating, Lighting and Ventilating +Civil Engineering +.Construction Equipment, Materials and Supplies +Containers and Packaging +Couplers, Fasteners and Joints +$Surface Transportation and Equipment +-Surface Effect Vehicles / Amphibious Vehicles +!Hydraulic and Pneumatic Equipment +JManufacturing and Industrial Engineering and Control of Production Systems +Machinery and Tools +Marine Engineering +Submarine Engineering +2Pumps, Filters, Pipes, Tubing, Fittings and Valves +Safety Engineering +.Structural Engineering and Building Technology +3Test Equipment, Research Facilities and Reprography+ Holography+&Test Facilities, Equipment and Methods+Recording and Playback Devices+ Photography+Printing and Graphic Arts+Military Sciences+!Military Forces and Organizations+ Civil Defense+Defense Systems+Antimissile Defense Systems+Antiaircraft Defense Systems+Antisatellite Defense Systems+Military Intelligence++Logistics, Military Facilities and Supplies+)Military Operations, Strategy and Tactics+Naval Surface Warfare+"Undersea and Antisubmarine Warfare+-Chemical, Biological and Radiological Warfare+Nuclear Warfare+ Space Warfare+Land Mine Warfare+Unconventional Warfare+Guided Missile Technology++Guided Missile Launching and Basing Support+4Guided Missile Trajectories, Accuracy and Ballistics+,Guided Missile Dynamics, Config. and Control+!Guided Missile Warheads and Fuzes+Guided Missiles+'Air- and Space-Launched Guided Missiles+ Surface-Launched Guided Missiles+#Underwater-Launched Guided Missiles+Guided Missile Reentry Vehicles+)Navigation, Detection and Countermeasures+ Acoustic Detection and Detectors+1Non-Acoustic and Non-Magnetic Submarine Detection+Direction Finding+Countermeasures+Radio Countermeasures+Acoustic Countermeasures+Radar Countermeasures+Optical Countermeasures+Optical Detection and Detectors+ Infrared Detection and Detectors+#Ultraviolet Detection and Detectors+3Magnetic and Electric Field Detection and Detectors+Navigation and Guidance+)Land and Riverine Navigation and Guidance+-Underwater and Marine Navigation and Guidance+Air Navigation and Guidance+Space Navigation and Guidance+%Miscellaneous Detection and Detectors+Active and Passive Radar +Seismic Detection and Detectors +,Target Direction, Range and Position Finding +Nuclear Science and Technology+Fusion Devices (Thermonuclear)+Isotopes+-Nuclear Explosions and Devices (Non-Military)+Nuclear Instrumentation+4Nuclear Power Plants and Fission Reactor Engineering+ Nuclear Fission Reactors (Power)+$Nuclear Fission Reactors (Non-Power)+1Nuclear Radiation Shielding Protection and Safety+6Radioactivity, Radioactive Wastes and Fission Products+5SNAP (Systems for Nuclear Auxiliary Power) Technology+Fission Reactor Physics +Fission Reactor Materials +Ordnance+Ammunition and Explosives+ Pyrotechnics+ Aerial Bombs+Combat Vehicles+Armor+ Fire Control and Bombing Systems+Guns+Rockets+Underwater Ordnance+ Torpedoes+ Explosions + Ballistics +Nuclear Weapons +Directed Energy Weapons +Guided Munitions +Physics+ Acoustics+Crystallography+Electricity and Magnetism+Fluid Mechanics+-Atomic and Molecular Physics and Spectroscopy+Optics+"Fiber Optics and Integrated Optics+Particle Accelerators+/Nuclear Physics and Elementary Particle Physics+'Plasma Physics and Magnetohydrodynamics +Quantum Theory and Relativity + Mechanics +Solid State Physics +Thermodynamics +Radiofrequency Wave Propagation+Electromagnetic Pulses+Propulsion, Engines and Fuels+&Air Breathing Engines (Unconventional)+Combustion and Ignition+Electric and Ion Propulsion+Fuels+Jet and Gas Turbine Engines+Nuclear Propulsion+"Reciprocating and Rotating Engines+Rocket Engines+ Liquid Propellant Rocket Engines+Solid Propellant Rocket Engines+Rocket Propellants +Liquid Rocket Propellants +Solid Rocket Propellants +Space Technology+ Astronauts+Unmanned Spacecraft+#Spacecraft Trajectories and Reentry+8Ground Support Systems and Facilities for Space Vehicles+Manned Spacecraft+ Biotechnology+-Biomedical Instrumentation and Bioengineering+1Human Factors Engineering and Man Machine Systems+Bionics+Protective Equipment+Life Support Systems+Escape, Rescue and Survival+#Environmental Pollution and Control+Air Pollution and Control+Noise Pollution and Control+"Solid Wastes Pollution and Control+Water Pollution and Control+ Pesticides Pollution and Control+Radiation Pollution and Control+Environmental Health and Safety+Communications+ Telemetry+Radio Communications+Non-Radio Communications+Voice Communications++Command, Control and Communications Systems+oWR''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''PWAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2ControlcmdFinalCheck, 0MSForms, CommandButton'Macros for I R&D tH ,'U[ d valiion, auto filling, etc. Opt wlicit Ist gDEBUG As BooleanQq 'Set #gshow msgboxes ) fAdturn them o`ff PKM FG(25, 1)2)Sng@ '3 dis@$re 1,233ue is Titlm'Note: constant array built us<"CodeABder i( Access Lb@FR'?CMASub E_New() 'Runs when a ne(w d &d .o,E|9cedhup@Ky dpefau@@5u!hloadDfieldmgroupsCLC 9/17/99 MoqXdeœHF&GZs her1App@IaJ.S enUfpA0= dI fLTaCall MsgBox( "O:#: Start.", vbOKOnly, "Debug M7age"e( rLFG=CYrFGs("1?_NA  1) 2v! n2. 3End_ AcA `bnr/nOpennWPXtheno e0d, cBftype. Should not be  aga$. Kitt, wtoclDoympfrom&&Dim 儠c \\#?n(nCcVCC'R): Actv .T9hwde_en_oE_Uca-OF'0p , squak uMNOTE: You (#6]directly. PJs")" & _A~"vw#`c. vbCrLf)"W2.y like!}?Z vbQ h+@\ YesNo1\o M`| ")vb  baq{kqq2=9&+)L(s.Add(.Ful©A'h R Weww 5%~F0C!C(tSI@q000///[W z_Ck(d' qofe errorp2twarnsPASstrEp;trWW#With#0'8/30Rem se0a'& $= & R PrLojA2(.AF("PROJECT_TITLE@").Res&==X$/r`A/o._r= Number NUMBER orpğ("ACCESSION_1TechPlanFYvsADFYk TECH_P@LAN_FYF ,> Re`portDԫREPORT_DAT or%#5&STA) strError = P& HAddress(.FormFields("ADDRESS1").Result, _ 28BCITY8>`STATEZ@ipCodeZ@IP_COD%S ource'ORG_SOURCE*FocalPoint RFOCAL_POINT_8NAMVnPHON->ProjectManager)PROJECT_MANAGERwL_A* 0TITLIF NUMBH&#CAnd GroupFIELDJ GRO UPJSUB_Nm#q/&)? J #354"&'2End WithIf<> "" Th encaMsgBox "s were encount@d while checking the f data." & vbC8rLf "Pleas`ixaE eas a`r.e , iti{ +OKOnly, "'Exit Sub3#a"Ifc'N owwarn sTODO: W aboutemail a#es, fg\, etc.0 ActiveDocumenta.$ cЅ&ExpendYear("Pr ior", HPRIOR_YEAR_EXPHs e 0Curr  CURRENT "(u&("B b I EMAILtrwo& m RE>M #FGoMoMGOK !!A>P4/L J2QW JJPKtK@ sKUK K("dKKKKL K NeImake su0Tthat you have notaSgotten Cy inaT`ationkTWouldlito\opbGfTany ofJ0U L?`/|vbQu esTYesNoTF_d")9@ "" AwLen(-) <= 2 TA2C= 70#%g#000 + m/ElsgTA t!19}!dIZfC%E=Lj&* ŠT@PFY@vsADFYs,YMACCESSION_NUMBE~RƐD}&CMsgBox "*:" & vbCXrLf ,i ticalpvbOKOnly, "Data Enhtry:" #$Sub '?, @ REPORT_DATE aldate ibzrs on$IWith+ ")O`*uSort"e() =!yk.a'.omin about8 itC(AaCa8ll c4`Rep@ a e not a valid @` correct fat. Please rep air.";Inion;InC ϡ oq!= fa0 !ED2cEPROJECT_STA_F_F ?G"3?GdB?G.GProjAStartH#HbH 8$ b$4$q$F/!$Z@IP_CODFmFzip codEPackedU= Da^ Is\}'J Ґt5 ps `,`Esh, right 4} P_L(x, 5[VT9ψ[ofQ? ? & "-arR} 4 R??6=~ |_ JQ 0y21_W0C3FIELDm)Y'NotEyArange0+-16\ mustQz!~one yq@G\s & "^5(e(&C(vsADC)TPFYgx,W''?+2+!e Y `againfirwpigits<'|A|.F{Dim a '<>~Ap+'y a6b fillGin,each&rb = Lef2/, 2DTp = Righ" +S ADP   'Compl7ab- U=W0p?pi /6/"/c۟?/.1ReportDat?/ZZZZZ- ZZ7 A/ld7JSZTIsMidcZ, 3*"&/qP 5trrtDate, 1, 2)) T@hen ErrorRepo = " D  must be a valid d in the format yymmdd. [8008]" & vbCrLfEnd I Func(tio'P _ Proje ctStao(str) As @StringS'Return ahn e  ifure is , null no%If Trim7<> "" Not IBs(Mid, 3"/5HNG@Nyy/mm/9]AddressA[I@{A2,Au0Cityte#DimOutͣ()Ag͏@-=&fir@a9 field (Organizap NamAZ requiredx10x6L2_utXapseco@@lqee@ #)bm1oA8third $2H8"$fourthQ3lsec6 D@AKstabbrevi"I<, !b <, does not appear to!corrL4NamC?"!bw@b ?;mZipCode(@ $" H"!;H #z16##=c"ZIP 3+"e -zi pz or -Qc!7 BS08ceAa4CoL1G 5o]OEoiWO r/eޣ6 digitmeric sB cp4 O5A>? FocalPointqs2Telephone)I/|%xrv;{|z ג{ql=2{_!UG a_iroe O D  {1' CGA!_ ď_ ^ j j`Be supki@nclude! area*2A S;% _l*M.Manager..b/Titl Number0CLC 8/3`1/00 (p t1d/ aBn hav'V@A, OVBb'Overview'dm, ignboqhisIn(UCasyT b Љ~ OVA@") > 0. _~BERVIEWW@ 99"" 4Naѵme) = "" Then strOutt & " Organization Project Manager Name is a required field. [8023]" & v bCrLfEnd IIf Trim(vTelephonKUb4TlseUNot Is) [s= !Zd oes n;appear to be corr. Be sure includhe areade5p'crror E4 A Func1 '?N ) E"FsAndGroupssb1,YSubH2;C33)DimtAs @StringC'CLC 1/27/00 We hadgremovCgX and 0aCs foumfirst levelxcause of problems wit h 25 mentsLeft@, 1X'TYou mu s `{a vaHluefMo`A@pplica  bCategoryB}h'iG 3#1" 8 `0@1_C a=0+ & & 0 @  I +304haGAchPosenHy1i7aK` D4@, allAItL;at !default. Pl"o~!ErangPretur% ws5?N5Ne{=IsNumerica ;.CLngQ< 1 ~> 10%Xu`!@" 1 iP2shouldtbetwe4v1RY,7e@xpressin03ous0s!5dollars/4001vI0_^0u"'umaila%%u%X%тn ea,`_%L _%_%rE)#c2$kAa3 _e ! add1 Q"rqma S[P2__ ]1 gFGДtr7ln93~$ '&yqrhblank%&ASJ(Q 1 Or FGStrVa-Q`JC| 0P ;hum)1M 22  9/S 123 =  {>'A! ?t!`QnqK9^`V%(._C!O, buG2+ comde@ԕhq3hE`s E@'TODO:b0ye w@lcheck»miss <1 kent 2 or three, and collapse upwa@rd. E dIf,WarningFGs = strOut  @Functi on 'P Private Sub Clea r(FGNum As Str)'Runs when a new documebased one templ*is credSety default data valuesload"field groups!With AqveD> C all GForF (0,  . m s("FIELDS" &v).Drop0Downv(-1 , )GROUPK)SUB_AEBC@t QQe* / ?''/ ?! E FGVal(ddeaInteger!C'Takhe d`wn object it@s selfcheck fd" 0 'DóQIf .@ixd T@Cue > 0L FGP.ListEnes.Im!ue).Namehe47 7 tIn)_Returro fromABobegin ,ofv,@, :r0v" "" Or Left{In, 1)adX"'A rN@ot Sel!ey3 4Els2eIn"-t")@2' l, minusp twow"@C +(Y - 2)o $iscalY(0DЎs9ae8tt:f yF@T'NOTE: W e maynvert!toPtgon2C'by takfter X indic&next 8ݱsQ [?FjSK'Error,-1C' ""]zmmdd5'""D B"%IsSt7ǑTBBooa0'qAsq p>notid,q:2n5`FaY Cons\TATESfZA?= "AL,AK,AS,AZ,AR,CA,CO,CT,DE,DC,FM,FL,GA,GU,HI,ID,IL,IN,IA,KS,KY,LA,ME,MH,MD,MI,MN,MS,MO,MT,NE,NV,NH,NJ,NM,NY,NC,NP,OH,OK,OR,PW,PA,PR,RI,SC,SD,TN,TX,UT,V @I,VA,W V,WI,WY,ApE,AAR P%"hSR, U~C ghM*rueDF/G/S'( Function IsZIP(strZip) As Boolean 'Check against d or-formats\Dim JPackedLStriLng= !D`igitsz#I`f LenC) = 5 Or`9 TheOK!jTrube ElsFa End If  ) SourceCodezuH NQd6^` bjJbTelephonbP`that is @!10 d, even after p@t"Uc>= &1?1-?,1Em8ailAb>1ha@1n @ sym`bol ay4there is @someth`1 to  left*'of9,;3 chara c`:srigh|t bJ . greaB@fnigCAtLocat@Long, Do = In`&, "@") x(H> 1)w1,< (/- l3)@0`*( ,@.") > 0) _#AaA? <>#L +aIs Jbb%c_?,/_?_?BсIn)"s Ɇ' dowX!*?, remov!@any@\s not 0-9c+tZOutq', I9CW@sFI%1 To, $u = Mid:In}p,*78u]"013E<= "^9@!_ a =&A Next I' pߎ/ Sub GroupsField(FG1, FG2A 3,ФDropDO4L'HoFw@sto]a 2vmensRBa^rrayHocan looPk up2Vg  each fu!?C'1`r gi{, poplulZdP r$with ego rid = 03=0Vuf@fC_topgvelAyet,!a.d~19CLoadFGAU`S'Figu'ZopAh(pagoE query'"" Cdd-.L istEnPest.Crc0 A1 3Q?C# 'DonPoK!M,juwa1ALL ta4A/ ' Add Name:= n.Valuep'1 !u =z * y'T%1 o o d Nѕab&" ''17$7>ZUBounH X` FG(I, #% "3%a1'Push _ :=I & "7"p !5^ 'ddGroupDropDown.ListEntries.Add Name:="0 - None of the above"  Valu@e = 1 CountEElseIf (FG270) And B3 Thenn'SecoLevel(All_ For J41 To UBJdDp, 2).uPFG 1, J, R<> "" N'Push on I 'YJ & ""K@ (EIf Next J 6i`S]Third ?]CH]K]3]A, K) ]K ]K] U^.K ^ 'y arll specified, just pu0t inBth"as ledWFG3U@&O Sub N'?, @ LoadFGArpray(#`b0rbr= "Qwa)@O"Aviati`tTechnologyĂ aerodynamics*2eMilitary Aircraft Oper +^3% 1"Helicopte r2Bomb3Attack a2Figh 4Pat(rolRnaissance5Transp(ort6in(ing7V/PSTOLM8bGlidbPar@achute#9bCiv1an 1 EPilotless1L(r-mn- 73ResearchEx@Aimental4BFl  Co1InstruaU#5Termin FacR6CommerciA"Gen* 1DF3a.Agricultur%22ChemIr5 zEP}o+63yEngineer0%onompy, H) Aqu AnimHusb@=91Ve`40Mexdicme F F  physE7'0 d@S Ce`.tMٰNan ' tmosphc Scie@6w PJ f M} opFwVBehavior Sor*\ 0Gd/&]qManxage3G Informv)Co`xA6/G'GrnPoaic o, #q2hBLaw%Humt=rH@o57L1uz%8Psycho9Wonnel  bor F1 BiaR!3G(0F0cB6Jtic ?Mole@Iar sF, V0tCr,|@ E_w  #P$ Radiob" 1Foo0Q S0erviyqNu{apHyg;Sa#. 1xStrpSfTox 1VQWh, E@Wp&1SuppliP 1vpMicr!Weapons Effects (') FPha}>ci++?k(IndrT / A>PA6Inorgc߃[OoO`R6zF%3N"clea r Chemistry" FG(7, 6, 0) = "P`olyme8RXEarth Sciences and Oceanograph h1hBiol@ogical,2,CaM^AerBi8Photd3a7PhysbD@ynamicn4Geomagn`etism^5des m||y, ckMinera:<HydrLimnPotam 9W,ing ELng0ng 10 Soil Mechanics nSeEO1kSnow, Ice'ermafrxost'EElectrot6FluidJ" " x@. Equipmen('DI; ALaserM/E LV, Surfa=Bulk AcoustWave Dxevi@JD/op BptoeE5Co5OaR$D^c ShieldF5D6PowProduct(ionEXgy` Conv&(Nonpropulsive)g &9-98E Dibu ;opAStoragef=$$Mat`KalHi1APAdhe"s`Ge(Bind';fC@ RePfrac@iGlas, 1" `y Fib &"CXoat@? C@|rant_Finis_@nComposit e  ^TextileZMetallur`JbNA*@ Rperrta"of`APlloy 2#Fabr@OYfMiscellane{ULuB )aul` `cP`9 "pEo`Rub:" Solv;:l?&Abra'|&Woo`d, PaRel0d Fore ?U G0!H0`n`%6a!u161Nu A`$$  #The?@ S_iV.StY` bability-O  ons Research- 3@`mm4SoftwarYE .vHard'vSystemV'm`*n M1qt'Cy$!qOaĂalndn, CivcMarqχ 'AAion diQ8P, He0ng, LighaI V,i( 8 C#opj`,k6,'=uxpplD!@taTPackap(1!upl8, Fas3(xJoi B;!TYspor+%wPEff@ VehicW / Amphib~i1LU6'7KPPneumcoG(F(Manutu gI&" !q P[3U_.CV*MachyToovSo(bm?+/UPumppUFilCMPipe`Tub,Fitt 4Tucl(earQ5SpU16LUMY-7 Unconve@onH'bEc@Guidedrssile TechnCo> }<;@ `}#Op ?F%70CInfrar`Z-Ul v@e!E \#v;=El6ric@ FieldG1`@# GV"_a+aRiveB$ar M_3D d?_ @# e?? 8!p`D{EnerQV!v%2!]u%*g%Ϥ Cr ograph;Q p;2tsm#Fl MΎa)Q#Atoh.MoulЖ bSpiroscop v$  8FibV#0Integrated Optic s" FG(20, 7, 0) = "Partle AccHeleor 8VNuclear Phys and Elementary > q9qlasma DMagnetohydrodyn4am1Quantum Th eotRela@tivity r119Mechan*2Solid StL%3)6G_FReciprocgD=•oHKRo\ck%^ 1B\Liqu@kell 2 åd ؿ@ TE%0Space T@pnolo.gtgRs_nae&{Q fmu_%RI6@Tpmet:=x Ԑ6Non-nVoiMߗKA0e,pb&Gx6 ERHb ' _VBA_PROJECT kdirPROJECTwm))PROJECT*trADYearA strReportDateEIsDate2 strStartDate7strAddr1strAddr2strCity?strState`strOutP1IsState strZipcj strSourceCodeA IsSourceCodestrNameZ strTelephone݈ IsTelephone] strField1 strGroup1l5 strSubGroup1 strField2 strGroup2m5 strSubGroup2 strField3 strGroup3n5 strSubGroup3strTypeAh strExpends IsNumeric$*strEmailB$IsEmail3FGStrValstrFGNum_[ddGroupDropDownValid'JValueK ListEntries-ItemzstrInT`TheDatebYear6nSTATESB)strPhone AtLocation}- DotLocationI`StrChar$FG1FG2FG3JaKb LoadFGArray/xClear cmdFinalCheckWT D57-747237F0D717}#2.0#0#C:\DOCUME~1\sthorson\LOCALS~1\Temp\Word8.0\MSFormstdOle2.tlb#OLE Automation/MSForms>SFErms3DD452EE1-E08F-@101A-8-02608C4D0BB4 DDOWS\sEFM20.DLL#Microsoft :" ] Ob Library/;D1tA00}#0#Gk0 A80/27F-467C-4AF6-9D57-747237F0D7176DOCUME~1\sthorson\L`OCALS@\Word8.0\U.exd =".E .`M AOfficOfic ~22DF8D04C-5BFAAiB-BDER5KAA422program files\m@e\0O97{l 7 m ThisDocumentG Th/sDcuenU 2 HB1,B,!*"B+BBt02435f6903ThisDocThisDocumentThisDocumentID="{0F6760F1-DADA-11D2-9A7F-00A0FFFFF632}" Document=ThisDocument/&H00000000 Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="F1F3FE0602060206020602" DPB="E2E0ED1EDF1FDF1FDF" GC="D3D1DC11CC12CC1233" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={000209F2-0000-0000-C000-000000000046};Word8.0;&H00000000 [Workspace] ThisDocument=0, 3, 786, 575, Z @2iwJ^r 1BCDENbs"6789XstuFTfz1CUW )$)C)S\))r;#r#c%ZrZc%Urc%rc%rc%zrzc%rc%ZrZc%Urc%c%c%c%CCrc%ZrZc% rc% c% c% brc% c% c% bvrvrrr c% r r r c% r r r$c%$r$r$rr 0*C0*C0*C0*C0*C0*C0*C0*C0*C0*C0*C0*;*0*;*0*L0*L2cd* +>J^r 1BCDENbs"6789XstuFTfz1CUVWx y z { |  y0y0y0y0y0y0y0y0y0y0 y0 y0 y0 y0 y0 y0 y0 y0 y0 y0 y0 y0y0y0y0y0y0y0y0y0y0y0y0y0&y0&y0&y0&y0&y0&y0&y0&y0/y0/y0/y0/y0/y0/y0/y0/y08y08y08y08y08y0>y0>y0>y0>y0>y0>y0>y0>y0>y0>y0>y0>y0y0y0y0y0y0y000000y0y0y0y0y0y0y0y00y0y0y00@y0T(`Fy0y0y0y0y0 V w899: !#  V N(rXLx889::  "$: &( +7<JV\r~ )/1=@NZ`s".4DPV_kqTdz/1ACS~ WF4F4FF4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4S$S$S S S S S S S$S$S$-/DMOfnu|~44 4!44D0  /X$2$q'muFdAN F@ 0( `` B S  ?H0(  ~ 'FINALCHECKSTART FINALCHECKEND PROJECT_TITLEPROJECT_NUMBERACCESSION_NUMBER TECH_PLAN_FY REPORT_DATEPROJECT_START_DATEPRIOR_YEAR_EXPCURRENT_YEAR_EXPADDRESS1ADDRESS2CITYSTATEZIP_CODEORG_SOURCE_CODEFOCAL_POINT_NAMEFOCAL_POINT_PHONEFOCAL_POINT_EMAILPROJECT_MANAGERPROJECT_MANAGER_PHONPROJECT_MANAGER_EML WORK_CATEGORY SENSITIVITYFIELDS1GROUP1 SUB_GROUP1FIELDS2GROUP2 SUB_GROUP2FIELDS3GROUP3 SUB_GROUP3 NARRATIVEKEYWORDSNEED OBJECTIVEAPPROACHPROGRESS ,Ks 2Ot#E`U{ 2DW   !"#$%&=]0Aa5Wre0BTW )*./3  4 5 U [ e i w z |  Wz  :) +=J]r 01ANas"5DW_r  4 5 U [ e i w  z  bcd>^BCDEb6789stuFfUV V`FhJV`FhJV `FhJV`FhJV`FhJV`FhJV`FhJV`FhJV`FhJV`FhJV`FhJV `FhJV!`FhJV" `FhJV#`FhJV$`FhJV%`FhJV&`FhJV' `FhJV(`FhJV)`FhJV* `FhJV+`FhJV, `FhJ.TemplateProject.ThisDocument.TECH_PLAN_FY_Exit-TemplateProject.ThisDocument.REPORT_DATE_Exit0TemplateProject.ThisDocument.cmdFinalCheck_Click4TemplateProject.ThisDocument.PROJECT_START_DATE_Exit)TemplateProject.ThisDocument.FIELDS2_Exit)TemplateProject.ThisDocument.FIELDS1_Exit)TemplateProject.ThisDocument.FIELDS3_Exit(TemplateProject.ThisDocument.GROUP1_Exit(TemplateProject.ThisDocument.GROUP2_Exit(TemplateProject.ThisDocument.GROUP3_Exit*TemplateProject.ThisDocument.ZIP_CODE_Exit5TemplateProject.ThisDocument.PROJECT_MANAGER_EML_Exit0TemplateProject.ThisDocument.WORK_CATEGORY_Enter.TemplateProject.ThisDocument.SENSITIVITY_Enter*TemplateProject.ThisDocument.FIELDS1_Enter)TemplateProject.ThisDocument.GROUP3_Enter)TemplateProject.ThisDocument.GROUP1_Enter)TemplateProject.ThisDocument.GROUP2_Enter*TemplateProject.ThisDocument.FIELDS2_Enter*TemplateProject.ThisDocument.FIELDS3_Enter,TemplateProject.ThisDocument.SUBGROUP2_Enter,TemplateProject.ThisDocument.SUBGROUP3_Enter,TemplateProject.ThisDocument.SUBGROUP1_Enter(TemplateProject.ThisDocument.LoadFGArray(TEMPLATEPROJECT.THISDOCUMENT.GROUP1_EXIT(TEMPLATEPROJECT.THISDOCUMENT.GROUP2_EXIT(TEMPLATEPROJECT.THISDOCUMENT.GROUP3_EXIT(TEMPLATEPROJECT.THISDOCUMENT.LOADFGARRAY)TEMPLATEPROJECT.THISDOCUMENT.FIELDS1_EXIT)TEMPLATEPROJECT.THISDOCUMENT.FIELDS2_EXIT)TEMPLATEPROJECT.THISDOCUMENT.FIELDS3_EXIT)TEMPLATEPROJECT.THISDOCUMENT.GROUP1_ENTER)TEMPLATEPROJECT.THISDOCUMENT.GROUP2_ENTER)TEMPLATEPROJECT.THISDOCUMENT.GROUP3_ENTER*TEMPLATEPROJECT.THISDOCUMENT.FIELDS1_ENTER *TEMPLATEPROJECT.THISDOCUMENT.FIELDS2_ENTER!*TEMPLATEPROJECT.THISDOCUMENT.FIELDS3_ENTER"*TEMPLATEPROJECT.THISDOCUMENT.ZIP_CODE_EXIT#,TEMPLATEPROJECT.THISDOCUMENT.SUBGROUP1_ENTER$,TEMPLATEPROJECT.THISDOCUMENT.SUBGROUP2_ENTER%,TEMPLATEPROJECT.THISDOCUMENT.SUBGROUP3_ENTER&-TEMPLATEPROJECT.THISDOCUMENT.REPORT_DATE_EXIT'.TEMPLATEPROJECT.THISDOCUMENT.SENSITIVITY_ENTER(.TEMPLATEPROJECT.THISDOCUMENT.TECH_PLAN_FY_EXIT)0TEMPLATEPROJECT.THISDOCUMENT.CMDFINALCHECK_CLICK*0TEMPLATEPROJECT.THISDOCUMENT.WORK_CATEGORY_ENTER+4TEMPLATEPROJECT.THISDOCUMENT.PROJECT_START_DATE_EXIT,5TEMPLATEPROJECT.THISDOCUMENT.PROJECT_MANAGER_EML_EXIT@)D}I@~ `@` ```p@UnknownGz Times New Roman5Symbol3& z Arial;& z Helvetica3z Times9New York# h&&TT";24d?Z3;HX(?b21INDEPENDENT RESEARCH AND DEVELOPMENT PROJECT DATA Chris Chubbt