KIDS Distribution saved on Aug 03, 2012@16:45:27 TMG*1.0*17 **KIDS**:TMG*1.0*17^ **INSTALL NAME** TMG*1.0*17 "BLD",7649,0) TMG*1.0*17^FP OF GREENEVILLE (TMG)^0^3120803^n "BLD",7649,1,0) ^^6^6^3101122^^ "BLD",7649,1,1,0) This patch provides reports that can display graphically "BLD",7649,1,2,0) in unmodified CPRS. "BLD",7649,1,3,0) "BLD",7649,1,4,0) The reports are pediatric growth charts. "BLD",7649,1,5,0) "BLD",7649,1,6,0) It also includes text objects and text tables. "BLD",7649,4,0) ^9.64PA^8925.1^3 "BLD",7649,4,101.24,0) 101.24 "BLD",7649,4,101.24,222) y^y^f^^n^TMG REPORTS^y^o^n "BLD",7649,4,8925.1,0) 8925.1 "BLD",7649,4,8925.1,222) n^y^f^^n^TMG OBJECTS^y^o^n "BLD",7649,4,22713,0) 22713 "BLD",7649,4,22713,222) y^y^f^^n^TMG GC^y^o^n "BLD",7649,4,"B",101.24,101.24) "BLD",7649,4,"B",8925.1,8925.1) "BLD",7649,4,"B",22713,22713) "BLD",7649,6.3) 23 "BLD",7649,"ABPKG") n "BLD",7649,"INI") "BLD",7649,"INID") ^n^ "BLD",7649,"INIT") ADDRPT^TMGGRC2 "BLD",7649,"KRN",0) ^9.67PA^8989.52^19 "BLD",7649,"KRN",.4,0) .4 "BLD",7649,"KRN",.401,0) .401 "BLD",7649,"KRN",.402,0) .402 "BLD",7649,"KRN",.403,0) .403 "BLD",7649,"KRN",.5,0) .5 "BLD",7649,"KRN",.84,0) .84 "BLD",7649,"KRN",3.6,0) 3.6 "BLD",7649,"KRN",3.8,0) 3.8 "BLD",7649,"KRN",9.2,0) 9.2 "BLD",7649,"KRN",9.8,0) 9.8 "BLD",7649,"KRN",9.8,"NM",0) ^9.68A^27^22 "BLD",7649,"KRN",9.8,"NM",4,0) TMGHTM1^^0^B51905296 "BLD",7649,"KRN",9.8,"NM",5,0) TMGGRC1^^0^B221877068 "BLD",7649,"KRN",9.8,"NM",6,0) TMGGRC2^^0^B190054215 "BLD",7649,"KRN",9.8,"NM",9,0) TMGGRCU^^0^B133259645 "BLD",7649,"KRN",9.8,"NM",10,0) TMGSTUT2^^0^B153970767 "BLD",7649,"KRN",9.8,"NM",11,0) TMGDEBU2^^0^B16539573 "BLD",7649,"KRN",9.8,"NM",12,0) TMGTIUOJ^^0^B58140826 "BLD",7649,"KRN",9.8,"NM",13,0) TMGTIUO3^^0^B266021056 "BLD",7649,"KRN",9.8,"NM",14,0) TMGTIUO4^^0^B185545212 "BLD",7649,"KRN",9.8,"NM",15,0) TMGTIUO5^^0^B56372960 "BLD",7649,"KRN",9.8,"NM",16,0) TMGTIUO6^^0^B57083103 "BLD",7649,"KRN",9.8,"NM",17,0) TMGGRC3A^^0^B83124690 "BLD",7649,"KRN",9.8,"NM",18,0) TMGGRC3B^^0^B134722379 "BLD",7649,"KRN",9.8,"NM",19,0) TMGGRC3C^^0^B112156712 "BLD",7649,"KRN",9.8,"NM",20,0) TMGGRC3D^^0^B100654947 "BLD",7649,"KRN",9.8,"NM",21,0) TMGGRC3E^^0^B86352065 "BLD",7649,"KRN",9.8,"NM",22,0) TMGGRC3F^^0^B207653088 "BLD",7649,"KRN",9.8,"NM",23,0) TMGGRC2A^^0^B137060007 "BLD",7649,"KRN",9.8,"NM",24,0) TMGGRC2B^^0^B135547639 "BLD",7649,"KRN",9.8,"NM",25,0) TMGGRC2C^^0^B70356251 "BLD",7649,"KRN",9.8,"NM",26,0) TMGUSRI2^^0^B308853482 "BLD",7649,"KRN",9.8,"NM",27,0) TMGTERM^^0^B253183474 "BLD",7649,"KRN",9.8,"NM","B","TMGDEBU2",11) "BLD",7649,"KRN",9.8,"NM","B","TMGGRC1",5) "BLD",7649,"KRN",9.8,"NM","B","TMGGRC2",6) "BLD",7649,"KRN",9.8,"NM","B","TMGGRC2A",23) "BLD",7649,"KRN",9.8,"NM","B","TMGGRC2B",24) "BLD",7649,"KRN",9.8,"NM","B","TMGGRC2C",25) "BLD",7649,"KRN",9.8,"NM","B","TMGGRC3A",17) "BLD",7649,"KRN",9.8,"NM","B","TMGGRC3B",18) "BLD",7649,"KRN",9.8,"NM","B","TMGGRC3C",19) "BLD",7649,"KRN",9.8,"NM","B","TMGGRC3D",20) "BLD",7649,"KRN",9.8,"NM","B","TMGGRC3E",21) "BLD",7649,"KRN",9.8,"NM","B","TMGGRC3F",22) "BLD",7649,"KRN",9.8,"NM","B","TMGGRCU",9) "BLD",7649,"KRN",9.8,"NM","B","TMGHTM1",4) "BLD",7649,"KRN",9.8,"NM","B","TMGSTUT2",10) "BLD",7649,"KRN",9.8,"NM","B","TMGTERM",27) "BLD",7649,"KRN",9.8,"NM","B","TMGTIUO3",13) "BLD",7649,"KRN",9.8,"NM","B","TMGTIUO4",14) "BLD",7649,"KRN",9.8,"NM","B","TMGTIUO5",15) "BLD",7649,"KRN",9.8,"NM","B","TMGTIUO6",16) "BLD",7649,"KRN",9.8,"NM","B","TMGTIUOJ",12) "BLD",7649,"KRN",9.8,"NM","B","TMGUSRI2",26) "BLD",7649,"KRN",19,0) 19 "BLD",7649,"KRN",19,"NM",0) ^9.68A^^ "BLD",7649,"KRN",19.1,0) 19.1 "BLD",7649,"KRN",101,0) 101 "BLD",7649,"KRN",409.61,0) 409.61 "BLD",7649,"KRN",771,0) 771 "BLD",7649,"KRN",870,0) 870 "BLD",7649,"KRN",8989.51,0) 8989.51 "BLD",7649,"KRN",8989.52,0) 8989.52 "BLD",7649,"KRN",8994,0) 8994 "BLD",7649,"KRN","B",.4,.4) "BLD",7649,"KRN","B",.401,.401) "BLD",7649,"KRN","B",.402,.402) "BLD",7649,"KRN","B",.403,.403) "BLD",7649,"KRN","B",.5,.5) "BLD",7649,"KRN","B",.84,.84) "BLD",7649,"KRN","B",3.6,3.6) "BLD",7649,"KRN","B",3.8,3.8) "BLD",7649,"KRN","B",9.2,9.2) "BLD",7649,"KRN","B",9.8,9.8) "BLD",7649,"KRN","B",19,19) "BLD",7649,"KRN","B",19.1,19.1) "BLD",7649,"KRN","B",101,101) "BLD",7649,"KRN","B",409.61,409.61) "BLD",7649,"KRN","B",771,771) "BLD",7649,"KRN","B",870,870) "BLD",7649,"KRN","B",8989.51,8989.51) "BLD",7649,"KRN","B",8989.52,8989.52) "BLD",7649,"KRN","B",8994,8994) "BLD",7649,"QDEF") ^^^^NO^^^^NO^^NO "BLD",7649,"QUES",0) ^9.62^^ "BLD",7649,"REQB",0) ^9.611^^ "DATA",101.24,49,0) TMG GRAPH^49^1^^TMGGRC2^TMGGRAPH^0^R^^^^H^250 "DATA",101.24,49,2) ^^TMG GRAPH^TMG GRAPH^^^ "DATA",101.24,50,0) TMG CHILD - HEIGHT CHART^50^1^^TMGGRC2^TMGGCHTC^0^R^^^^H^250 "DATA",101.24,50,2) ^^CHILD - HEIGHT CHART^TMG GROWTH CHART HEIGHT (CHILD)^^^ "DATA",101.24,51,0) TMG INFANT - HEAD CIRC CHART^51^1^^TMGGRC2^TMGGCHDC^0^R^^^^H^250 "DATA",101.24,51,2) ^^INFANT - HEAD CIRC CHART^TMG GROWTH CHART FOR HEAD CIRCUMFERENCE^^^ "DATA",101.24,52,0) TMG CHILD - WEIGHT CHART^52^1^^TMGGRC2^TMGGCWTC^0^R^^^^H^250 "DATA",101.24,52,2) ^^CHILD - WEIGHT CHART^TMG GROWTH CHART WEIGHT (CHILD)^^^ "DATA",101.24,53,0) TMG CHILD - BMI CHART^53^1^^TMGGRC2^TMGGCBMC^0^R^^^^H^250 "DATA",101.24,53,2) ^^CHILD - BMI CHART^TMG GROWTH CHART BMI (CHILD)^^^ "DATA",101.24,54,0) TMG INFANT - WT FOR LEN CHART^54^1^^TMGGRC2^TMGGCWHL^0^R^^^^H^250 "DATA",101.24,54,2) ^^INFANT -- WEIGHT FOR LENGTH CHART^INFANT WEIGHT FOR LENGTH CHART^^^ "DATA",101.24,55,0) TMG INFANT - BMI CHART^55^1^^TMGGRC2^TMGGCBMI^0^R^^^^H^250 "DATA",101.24,55,2) ^^INFANT - BMI CHART^TMG GROWTH CHART BMI (INFANT)^^^ "DATA",101.24,56,0) TMG INFANT - WEIGHT CHART^56^1^^TMGGRC2^TMGGCWTI^0^R^^^^H^250 "DATA",101.24,56,2) ^^INFANT - WEIGHT CHART^TMG GROWTH CHART WEIGHT (INFANT)^^^ "DATA",101.24,57,0) TMG INFANT - LENGTH CHART^57^1^^TMGGRC2^TMGGCLNI^0^R^^^^H^250 "DATA",101.24,57,2) ^^INFANT - LENGTH CHART^TMG GROWTH CHART LENGTH (INFANT)^^^ "DATA",101.24,58,0) TMG GROWTH CHARTS^58^1^^^^^R^^^^M "DATA",101.24,58,2) ^^TMG CDC GROWTH CHARTS^TMG GROWTH CHART MENU "DATA",101.24,58,10,0) ^101.241P^8^7 "DATA",101.24,58,10,1,0) 50^HEIGHT PERCENTILE (CHILD)^5 "DATA",101.24,58,10,2,0) 51^HEAD CIRCUMFERENCE^3 "DATA",101.24,58,10,3,0) 52^WEIGHT PERCENTILE (CHILD)^6 "DATA",101.24,58,10,4,0) 53^BMI PERCENTILE (CHILD)^7 "DATA",101.24,58,10,5,0) 54^WEIGHT PERCENT FOR HT OR LEN^3.5 "DATA",101.24,58,10,7,0) 56^WEIGHT PERCENTILE (INFANT)^2 "DATA",101.24,58,10,8,0) 57^LENGTH PERCENTILE (INFANT)^1 "DATA",8925.1,646,0) TMG TABLE - HYPERTENSION^^^O^^55^11 "DATA",8925.1,646,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[HYPERTENSION]") "DATA",8925.1,647,0) TMG TABLE - ANEMIA^^^O^^55^11 "DATA",8925.1,647,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[ANEMIA]") "DATA",8925.1,648,0) TMG TABLE - ASTHMA^^^O^^55^11 "DATA",8925.1,648,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[ASTHMA]") "DATA",8925.1,650,0) TMG TABLE - OSTEOPOROSIS^^^O^^55^11 "DATA",8925.1,650,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[OSTEOPENIA/OSTEOPOROSIS]") "DATA",8925.1,653,0) TMG TABLE - COPD^^^O^^55^11 "DATA",8925.1,653,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[COPD]") "DATA",8925.1,1433,0) TMG TABLE - THYROID^^^O^^55^11 "DATA",8925.1,1433,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[THYROID]") "DATA",8925.1,1437,0) TMG TABLE - LIPIDS^^^O^^55^11 "DATA",8925.1,1437,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[LIPIDS]") "DATA",8925.1,1438,0) TMG TABLE - TEAM^^^O^^55^11 "DATA",8925.1,1438,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[PROVIDER TEAM]") "DATA",8925.1,1439,0) TMG TABLE - FAMILY HX^^^O^^55^11 "DATA",8925.1,1439,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[FAMILY HX]") "DATA",8925.1,1440,0) TMG TABLE - SOCIAL HX^^^O^^55^11 "DATA",8925.1,1440,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[SOCIAL HX]") "DATA",8925.1,1441,0) TMG TABLE - SURGERIES^^^O^^55^11 "DATA",8925.1,1441,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[SURGERIES]") "DATA",8925.1,1442,0) TMG TABLE - PROBLEM LIST^^^O^^55^11 "DATA",8925.1,1442,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[PROBLEM LIST]") "DATA",8925.1,1443,0) TMG TABLE - DIABETIC STUDIES^^^O^^55^11 "DATA",8925.1,1443,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[DIABETIC STUDIES]") "DATA",8925.1,1444,0) TMG TABLE - STUDIES^^^O^^55^11 "DATA",8925.1,1444,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[STUDIES]") "DATA",8925.1,1451,0) TMG PATIENT VITALS^VT^TMG PATIENT VITALS^O^^55^11 "DATA",8925.1,1451,9) S X=$$VITALS^TMGTIUOJ(+$G(DFN),.TIU) "DATA",8925.1,1451,99) 61888,37202 "DATA",8925.1,1452,0) TMG PATIENT FLD^^TMG PATIENT FLD^O^^55^11 "DATA",8925.1,1452,9) S X=$$GETPTFLD^TMGTIUO2($G(DFN),X) "DATA",8925.1,1452,99) 61888,37202 "DATA",8925.1,1459,0) TMG PATIENT BMI^^TMG PATIENT BMI^O^^55^11 "DATA",8925.1,1459,9) SET X=$$ONEVITAL^TMGTIUOJ(+$GET(DFN),.TIU,"BMI") "DATA",8925.1,1459,99) 62021,43654 "DATA",8925.1,1460,0) TMG PATIENT WT^^^O^^55^11 "DATA",8925.1,1460,9) SET X=$$ONEVITAL^TMGTIUOJ(+$GET(DFN),.TIU,"WT") "DATA",8925.1,1461,0) TMG PATIENT HT^^^O^^55^11 "DATA",8925.1,1461,9) SET X=$$ONEVITAL^TMGTIUOJ(+$GET(DFN),.TIU,"HT") "DATA",8925.1,1462,0) TMG PATIENT TEMP^^^O^^55^11 "DATA",8925.1,1462,9) SET X=$$ONEVITAL^TMGTIUOJ(+$GET(DFN),.TIU,"TEMP") "DATA",8925.1,1463,0) TMG PATIENT BP^^^O^^55^11 "DATA",8925.1,1463,9) SET X=$$ONEVITAL^TMGTIUOJ(+$GET(DFN),.TIU,"BP") "DATA",8925.1,1464,0) TMG PATIENT PULSE^^^O^^55^11 "DATA",8925.1,1464,9) SET X=$$ONEVITAL^TMGTIUOJ(+$GET(DFN),.TIU,"Pulse") "DATA",8925.1,1465,0) TMG PATIENT RESP^^^O^^55^11 "DATA",8925.1,1465,9) SET X=$$ONEVITAL^TMGTIUOJ(+$GET(DFN),.TIU,"RESP") "DATA",8925.1,1466,0) TMG PATIENT HC^^^O^^55^11 "DATA",8925.1,1466,9) SET X=$$ONEVITAL^TMGTIUOJ(+$GET(DFN),.TIU,"HC") "DATA",8925.1,1475,0) TMG TABLE - CHF^^^O^^55^11 "DATA",8925.1,1475,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[CHF]") "DATA",8925.1,1480,0) TMG TABLE - MEDICATIONS^^^O^^55^11 "DATA",8925.1,1480,9) S X=$$GETTABLX^TMGTIUOJ(+$G(DFN),"[MEDICATIONS]") "DATA",22713,1,0) BMI BY AGE^AGE^MONTHS^BMI^KG/M**2^2-20Y "DATA",22713,1,1) https://spreadsheets.google.com/ccc?key=0As02V5OYrjbucFhfa0dnc0FTMjlid2pqZzRUMGhpVUE&hl=en "DATA",22713,1,2) BMIAGE "DATA",22713,1,"D",0) ^22713.02A^438^438 "DATA",22713,1,"D",1,0) 24^M^-2.01118107^16.575027675^0.080592465 "DATA",22713,1,"D",2,0) 24.99^M^-1.982373595^16.547774867^0.0801274288 "DATA",22713,1,"D",3,0) 25.99^M^-1.924100169^16.494427632^0.0792339937 "DATA",22713,1,"D",4,0) 26.99^M^-1.86549793^16.442595522^0.0783893561 "DATA",22713,1,"D",5,0) 27.99^M^-1.807261899^16.392243398^0.0775935012 "DATA",22713,1,"D",6,0) 28.99^M^-1.750118905^16.343336543^0.0768464622 "DATA",22713,1,"D",7,0) 29.99^M^-1.69481584^16.295840971^0.0761483079 "DATA",22713,1,"D",8,0) 30.99^M^-1.642106779^16.249723714^0.0754991255 "DATA",22713,1,"D",9,0) 31.99^M^-1.592744414^16.204952678^0.0748989935 "DATA",22713,1,"D",10,0) 32.99^M^-1.547442391^16.161498714^0.0743479966 "DATA",22713,1,"D",11,0) 33.99^M^-1.506902601^16.119332582^0.0738461386 "DATA",22713,1,"D",12,0) 34.99^M^-1.471770047^16.078427579^0.0733933698 "DATA",22713,1,"D",13,0) 35.99^M^-1.442628957^16.038758958^0.0729895508 "DATA",22713,1,"D",14,0) 36.99^M^-1.419991255^16.000304012^0.0726344323 "DATA",22713,1,"D",15,0) 37.99^M^-1.404277619^15.963042771^0.072327649 "DATA",22713,1,"D",16,0) 38.99^M^-1.39586317^15.926954175^0.0720686401 "DATA",22713,1,"D",17,0) 39.99^M^-1.394935252^15.892025816^0.0718568052 "DATA",22713,1,"D",18,0) 40.99^M^-1.401671596^15.858240929^0.071691278 "DATA",22713,1,"D",19,0) 41.99^M^-1.416100312^15.825588223^0.0715710933 "DATA",22713,1,"D",20,0) 42.99^M^-1.438164899^15.794057282^0.0714951131 "DATA",22713,1,"D",21,0) 43.99^M^-1.467669032^15.763642549^0.0714621062 "DATA",22713,1,"D",22,0) 44.99^M^-1.504376347^15.734336684^0.0714706462 "DATA",22713,1,"D",23,0) 45.99^M^-1.547942838^15.706135657^0.0715192177 "DATA",22713,1,"D",24,0) 46.99^M^-1.597896397^15.679040623^0.0716062769 "DATA",22713,1,"D",25,0) 47.99^M^-1.653732283^15.653051916^0.071730167 "DATA",22713,1,"D",26,0) 48.99^M^-1.714869347^15.628172692^0.0718892136 "DATA",22713,1,"D",27,0) 49.99^M^-1.780673181^15.604407997^0.0720817373 "DATA",22713,1,"D",28,0) 50.99^M^-1.850468473^15.58176458^0.0723060813 "DATA",22713,1,"D",29,0) 51.99^M^-1.923551865^15.560250666^0.0725606369 "DATA",22713,1,"D",30,0) 52.99^M^-1.999220429^15.539874597^0.0728438397 "DATA",22713,1,"D",31,0) 53.99^M^-2.076707178^15.520649927^0.0731543235 "DATA",22713,1,"D",32,0) 54.99^M^-2.155348017^15.502584267^0.0734906668 "DATA",22713,1,"D",33,0) 55.99^M^-2.234438552^15.485689732^0.0738516716 "DATA",22713,1,"D",34,0) 56.99^M^-2.313321723^15.469977177^0.0742362346 "DATA",22713,1,"D",35,0) 57.99^M^-2.391381273^15.455456916^0.0746433738 "DATA",22713,1,"D",36,0) 58.99^M^-2.468032491^15.442139608^0.0750722636 "DATA",22713,1,"D",37,0) 59.99^M^-2.542781541^15.430032072^0.0755221037 "DATA",22713,1,"D",38,0) 60.99^M^-2.61516595^15.419141631^0.0759922501 "DATA",22713,1,"D",39,0) 61.99^M^-2.684789516^15.409473561^0.0764821284 "DATA",22713,1,"D",40,0) 62.99^M^-2.751316949^15.401031388^0.0769912324 "DATA",22713,1,"D",41,0) 63.99^M^-2.81445945^15.393817852^0.0775191487 "DATA",22713,1,"D",42,0) 64.99^M^-2.87402476^15.387830936^0.0780653898 "DATA",22713,1,"D",43,0) 65.99^M^-2.92984048^15.383069448^0.0786295919 "DATA",22713,1,"D",44,0) 66.99^M^-2.981796828^15.37952958^0.0792113694 "DATA",22713,1,"D",45,0) 67.99^M^-3.029831343^15.37720582^0.0798103341 "DATA",22713,1,"D",46,0) 68.99^M^-3.073924224^15.376091068^0.0804260861 "DATA",22713,1,"D",47,0) 69.99^M^-3.114093476^15.376176765^0.0810582059 "DATA",22713,1,"D",48,0) 70.99^M^-3.15039004^15.37745304^0.0817062489 "DATA",22713,1,"D",49,0) 71.99^M^-3.182893018^15.379908859^0.0823697413 "DATA",22713,1,"D",50,0) 72.99^M^-3.21170511^15.383532169^0.0830481778 "DATA",22713,1,"D",51,0) 73.99^M^-3.23694834^15.388310046^0.0837410207 "DATA",22713,1,"D",52,0) 74.99^M^-3.25876011^15.39422883^0.0844476998 "DATA",22713,1,"D",53,0) 75.99^M^-3.277281546^15.40127496^0.0851676514 "DATA",22713,1,"D",54,0) 76.99^M^-3.292683774^15.40943252^0.0859001836 "DATA",22713,1,"D",55,0) 77.99^M^-3.305124073^15.418686911^0.0866446671 "DATA",22713,1,"D",56,0) 78.99^M^-3.314768951^15.429022732^0.0874004212 "DATA",22713,1,"D",57,0) 79.99^M^-3.321785992^15.440424387^0.0881667444 "DATA",22713,1,"D",58,0) 80.99^M^-3.326345795^15.452875806^0.088942897 "DATA",22713,1,"D",59,0) 81.99^M^-3.328602731^15.466362178^0.0897282019 "DATA",22713,1,"D",60,0) 82.99^M^-3.328725277^15.480867041^0.0905218748 "DATA",22713,1,"D",61,0) 83.99^M^-3.32687018^15.496374654^0.0913231621 "DATA",22713,1,"D",62,0) 84.99^M^-3.323188896^15.512869363^0.0921313054 "DATA",22713,1,"D",63,0) 85.99^M^-3.317827016^15.530335632^0.0929455443 "DATA",22713,1,"D",64,0) 86.99^M^-3.310923871^15.548758065^0.0937651184 "DATA",22713,1,"D",65,0) 87.99^M^-3.302612272^15.568121426^0.0945892702 "DATA",22713,1,"D",66,0) 88.99^M^-3.293018361^15.588410651^0.0954172465 "DATA",22713,1,"D",67,0) 89.99^M^-3.282260813^15.60961101^0.0962483005 "DATA",22713,1,"D",68,0) 90.99^M^-3.270454609^15.63170735^0.0970816941 "DATA",22713,1,"D",69,0) 91.99^M^-3.257703616^15.654685628^0.0979166976 "DATA",22713,1,"D",70,0) 92.99^M^-3.244108214^15.678531387^0.0987525931 "DATA",22713,1,"D",71,0) 93.99^M^-3.229761713^15.703230518^0.0995886749 "DATA",22713,1,"D",72,0) 94.99^M^-3.214751287^15.728769113^0.1004242507 "DATA",22713,1,"D",73,0) 95.99^M^-3.199158184^15.755133465^0.1012586429 "DATA",22713,1,"D",74,0) 96.99^M^-3.18305795^15.782310065^0.1020911894 "DATA",22713,1,"D",75,0) 97.99^M^-3.166520664^15.810285603^0.1029212448 "DATA",22713,1,"D",76,0) 98.99^M^-3.1496103^15.839047084^0.1037481885 "DATA",22713,1,"D",77,0) 99.99^M^-3.132389637^15.868581229^0.1045713862 "DATA",22713,1,"D",78,0) 100.99^M^-3.114911153^15.898875618^0.1053902685 "DATA",22713,1,"D",79,0) 101.99^M^-3.097226399^15.929917651^0.1062042575 "DATA",22713,1,"D",80,0) 102.99^M^-3.079383079^15.961694805^0.1070127883 "DATA",22713,1,"D",81,0) 103.99^M^-3.061423765^15.994194894^0.1078153274 "DATA",22713,1,"D",82,0) 104.99^M^-3.043386071^16.027406071^0.1086113736 "DATA",22713,1,"D",83,0) 105.99^M^-3.025310003^16.061315897^0.1094003876 "DATA",22713,1,"D",84,0) 106.99^M^-3.007225737^16.095912922^0.1101819146 "DATA",22713,1,"D",85,0) 107.99^M^-2.989164598^16.131185315^0.1109554781 "DATA",22713,1,"D",86,0) 108.99^M^-2.971148225^16.167122344^0.1117206908 "DATA",22713,1,"D",87,0) 109.99^M^-2.953208047^16.203711677^0.1124770587 "DATA",22713,1,"D",88,0) 110.99^M^-2.935363951^16.240942388^0.1132241995 "DATA",22713,1,"D",89,0) 111.99^M^-2.917635157^16.278803458^0.1139617339 "DATA",22713,1,"D",90,0) 112.99^M^-2.900039803^16.317283847^0.1146892914 "DATA",22713,1,"D",91,0) 113.99^M^-2.882593796^16.356372672^0.1154065227 "DATA",22713,1,"D",92,0) 114.99^M^-2.865311266^16.396059161^0.1161130971 "DATA",22713,1,"D",93,0) 115.99^M^-2.848204697^16.436332645^0.1168087018 "DATA",22713,1,"D",94,0) 116.99^M^-2.831285052^16.477182556^0.1174930418 "DATA",22713,1,"D",95,0) 117.99^M^-2.81456189^16.518598425^0.1181658396 "DATA",22713,1,"D",96,0) 118.99^M^-2.79804347^16.560569873^0.1188268351 "DATA",22713,1,"D",97,0) 119.99^M^-2.781736856^16.603086612^0.1194757852 "DATA",22713,1,"D",98,0) 120.99^M^-2.765648008^16.646138439^0.1201124636 "DATA",22713,1,"D",99,0) 121.99^M^-2.749782197^16.689715178^0.1207366562 "DATA",22713,1,"D",100,0) 122.99^M^-2.734142443^16.733806953^0.1213481813 "DATA",22713,1,"D",101,0) 123.99^M^-2.718732873^16.778403632^0.121946849 "DATA",22713,1,"D",102,0) 124.99^M^-2.703555506^16.82349538^0.1225325012 "DATA",22713,1,"D",103,0) 125.99^M^-2.688611957^16.869072375^0.1231049908 "DATA",22713,1,"D",104,0) 126.99^M^-2.673903164^16.915124866^0.1236641859 "DATA",22713,1,"D",105,0) 127.99^M^-2.659429443^16.961643168^0.1242099694 "DATA",22713,1,"D",106,0) 128.99^M^-2.645190534^17.00861766^0.1247422387 "DATA",22713,1,"D",107,0) 129.99^M^-2.631185649^17.056038787^0.1252609054 "DATA",22713,1,"D",108,0) 130.99^M^-2.617413511^17.103897052^0.125765895 "DATA",22713,1,"D",109,0) 131.99^M^-2.603872392^17.152183022^0.1262571467 "DATA",22713,1,"D",110,0) 132.99^M^-2.590560148^17.200887318^0.1267346133 "DATA",22713,1,"D",111,0) 133.99^M^-2.577474253^17.250000623^0.1271982604 "DATA",22713,1,"D",112,0) 134.99^M^-2.564611831^17.299513673^0.1276480666 "DATA",22713,1,"D",113,0) 135.99^M^-2.551969684^17.349417258^0.128084023 "DATA",22713,1,"D",114,0) 136.99^M^-2.539539972^17.399703081^0.1285061919 "DATA",22713,1,"D",115,0) 137.99^M^-2.527325681^17.450360715^0.1289144974 "DATA",22713,1,"D",116,0) 138.99^M^-2.515320235^17.501381606^0.1293090012 "DATA",22713,1,"D",117,0) 139.99^M^-2.503519447^17.552756739^0.1296897408 "DATA",22713,1,"D",118,0) 140.99^M^-2.491918934^17.604477144^0.1300567649 "DATA",22713,1,"D",119,0) 141.99^M^-2.480514136^17.656533895^0.1304101325 "DATA",22713,1,"D",120,0) 142.99^M^-2.469300331^17.708918107^0.1307499132 "DATA",22713,1,"D",121,0) 143.99^M^-2.458272656^17.761620938^0.1310761867 "DATA",22713,1,"D",122,0) 144.99^M^-2.447426113^17.814633586^0.1313890423 "DATA",22713,1,"D",123,0) 145.99^M^-2.436755595^17.867947289^0.1316885791 "DATA",22713,1,"D",124,0) 146.99^M^-2.426255887^17.92155332^0.1319749052 "DATA",22713,1,"D",125,0) 147.99^M^-2.415921689^17.975442992^0.1322481377 "DATA",22713,1,"D",126,0) 148.99^M^-2.405747619^18.029607653^0.1325084026 "DATA",22713,1,"D",127,0) 149.99^M^-2.395728233^18.084038684^0.1327558343 "DATA",22713,1,"D",128,0) 150.99^M^-2.385858029^18.138727501^0.1329905752 "DATA",22713,1,"D",129,0) 151.99^M^-2.376131459^18.193665552^0.133212776 "DATA",22713,1,"D",130,0) 152.99^M^-2.366542942^18.248844314^0.1334225948 "DATA",22713,1,"D",131,0) 153.99^M^-2.357086871^18.304255296^0.1336201973 "DATA",22713,1,"D",132,0) 154.99^M^-2.347757625^18.359890034^0.1338057563 "DATA",22713,1,"D",133,0) 155.99^M^-2.338549576^18.415740092^0.1339794518 "DATA",22713,1,"D",134,0) 156.99^M^-2.3294571^18.471797059^0.1341414703 "DATA",22713,1,"D",135,0) 157.99^M^-2.320474586^18.528052549^0.1342920051 "DATA",22713,1,"D",136,0) 158.99^M^-2.311596446^18.584498199^0.1344312555 "DATA",22713,1,"D",137,0) 159.99^M^-2.302817124^18.641125665^0.134559427 "DATA",22713,1,"D",138,0) 160.99^M^-2.294131107^18.697926627^0.1346767311 "DATA",22713,1,"D",139,0) 161.99^M^-2.285532933^18.754892781^0.1347833849 "DATA",22713,1,"D",140,0) 162.99^M^-2.277017201^18.812015839^0.1348796107 "DATA",22713,1,"D",141,0) 163.99^M^-2.268578584^18.869287528^0.1349656365 "DATA",22713,1,"D",142,0) 164.99^M^-2.260211837^18.92669959^0.1350416951 "DATA",22713,1,"D",143,0) 165.99^M^-2.251911809^18.984243775^0.1351080243 "DATA",22713,1,"D",144,0) 166.99^M^-2.243673453^19.041911845^0.1351648666 "DATA",22713,1,"D",145,0) 167.99^M^-2.235491842^19.099695568^0.1352124688 "DATA",22713,1,"D",146,0) 168.99^M^-2.227362173^19.157586716^0.1352510825 "DATA",22713,1,"D",147,0) 169.99^M^-2.21927979^19.215577065^0.1352809633 "DATA",22713,1,"D",148,0) 170.99^M^-2.211240187^19.27365839^0.1353023707 "DATA",22713,1,"D",149,0) 171.99^M^-2.203239029^19.331822466^0.1353155684 "DATA",22713,1,"D",150,0) 172.99^M^-2.195272161^19.390061061^0.1353208237 "DATA",22713,1,"D",151,0) 173.99^M^-2.187335625^19.448365938^0.1353184074 "DATA",22713,1,"D",152,0) 174.99^M^-2.179425674^19.506728848^0.1353085942 "DATA",22713,1,"D",153,0) 175.99^M^-2.171538789^19.565141532^0.1352916617 "DATA",22713,1,"D",154,0) 176.99^M^-2.163671689^19.623595714^0.1352678911 "DATA",22713,1,"D",155,0) 177.99^M^-2.155821357^19.682083101^0.1352375667 "DATA",22713,1,"D",156,0) 178.99^M^-2.147985046^19.740595376^0.1352009759 "DATA",22713,1,"D",157,0) 179.99^M^-2.140160305^19.799124201^0.1351584088 "DATA",22713,1,"D",158,0) 180.99^M^-2.132344989^19.857661209^0.1351101588 "DATA",22713,1,"D",159,0) 181.99^M^-2.124537282^19.916198004^0.1350565219 "DATA",22713,1,"D",160,0) 182.99^M^-2.116735712^19.974726154^0.1349977968 "DATA",22713,1,"D",161,0) 183.99^M^-2.108939167^20.033237194^0.134934285 "DATA",22713,1,"D",162,0) 184.99^M^-2.10114692^20.091722615^0.1348662908 "DATA",22713,1,"D",163,0) 185.99^M^-2.093358637^20.15017387^0.1347941208 "DATA",22713,1,"D",164,0) 186.99^M^-2.085574403^20.208582361^0.1347180845 "DATA",22713,1,"D",165,0) 187.99^M^-2.077794735^20.266939444^0.1346384938 "DATA",22713,1,"D",166,0) 188.99^M^-2.070020599^20.325236424^0.1345556632 "DATA",22713,1,"D",167,0) 189.99^M^-2.062253431^20.383464548^0.1344699098 "DATA",22713,1,"D",168,0) 190.99^M^-2.054495145^20.441615008^0.1343815533 "DATA",22713,1,"D",169,0) 191.99^M^-2.046748156^20.499678935^0.1342909159 "DATA",22713,1,"D",170,0) 192.99^M^-2.039015385^20.557647399^0.1341983225 "DATA",22713,1,"D",171,0) 193.99^M^-2.031300282^20.615511404^0.1341041006 "DATA",22713,1,"D",172,0) 194.99^M^-2.023606828^20.673261889^0.1340085806 "DATA",22713,1,"D",173,0) 195.99^M^-2.015942013^20.730889051^0.1339120657 "DATA",22713,1,"D",174,0) 196.99^M^-2.008305745^20.788385102^0.1338149542 "DATA",22713,1,"D",175,0) 197.99^M^-2.000706389^20.845740029^0.1337175518 "DATA",22713,1,"D",176,0) 198.99^M^-1.993150137^20.902944494^0.1336202002 "DATA",22713,1,"D",177,0) 199.99^M^-1.985643741^20.959989088^0.1335232441 "DATA",22713,1,"D",178,0) 200.99^M^-1.97819451^21.01686433^0.1334270316 "DATA",22713,1,"D",179,0) 201.99^M^-1.970810308^21.073560674^0.1333319137 "DATA",22713,1,"D",180,0) 202.99^M^-1.96349954^21.130068501^0.1332382449 "DATA",22713,1,"D",181,0) 203.99^M^-1.956271141^21.186378131^0.1331463832 "DATA",22713,1,"D",182,0) 204.99^M^-1.949134561^21.242479819^0.1330566901 "DATA",22713,1,"D",183,0) 205.99^M^-1.942099744^21.298363759^0.1329695305 "DATA",22713,1,"D",184,0) 206.99^M^-1.935177101^21.354020094^0.1328852735 "DATA",22713,1,"D",185,0) 207.99^M^-1.92837748^21.409438911^0.1328042916 "DATA",22713,1,"D",186,0) 208.99^M^-1.921712136^21.464610257^0.1327269615 "DATA",22713,1,"D",187,0) 209.99^M^-1.915192685^21.519524136^0.1326536641 "DATA",22713,1,"D",188,0) 210.99^M^-1.908831065^21.574170525^0.1325847841 "DATA",22713,1,"D",189,0) 211.99^M^-1.902639482^21.628539373^0.1325207109 "DATA",22713,1,"D",190,0) 212.99^M^-1.896630358^21.682620618^0.1324618378 "DATA",22713,1,"D",191,0) 213.99^M^-1.890816268^21.736404191^0.1324085629 "DATA",22713,1,"D",192,0) 214.99^M^-1.885209876^21.789880029^0.1323612888 "DATA",22713,1,"D",193,0) 215.99^M^-1.879823505^21.843038191^0.1323204265 "DATA",22713,1,"D",194,0) 216.99^M^-1.874670324^21.895868501^0.1322863818 "DATA",22713,1,"D",195,0) 217.99^M^-1.869760299^21.948361684^0.1322595999 "DATA",22713,1,"D",196,0) 218.99^M^-1.865113245^22.00050569^0.1322404176 "DATA",22713,1,"D",197,0) 219.99^M^-1.860734944^22.052292423^0.1322293301 "DATA",22713,1,"D",198,0) 220.99^M^-1.85663384^22.103713048^0.132226801 "DATA",22713,1,"D",199,0) 221.99^M^-1.852827186^22.154756029^0.1322332005 "DATA",22713,1,"D",200,0) 222.99^M^-1.849323204^22.205412485^0.1322489931 "DATA",22713,1,"D",201,0) 223.99^M^-1.846131607^22.255673^0.1322746254 "DATA",22713,1,"D",202,0) 224.99^M^-1.843261294^22.305528306^0.132310549 "DATA",22713,1,"D",203,0) 225.99^M^-1.840720248^22.354969299^0.1323572208 "DATA",22713,1,"D",204,0) 226.99^M^-1.83851544^22.403987057^0.132415103 "DATA",22713,1,"D",205,0) 227.99^M^-1.83665586^22.452571818^0.132484631 "DATA",22713,1,"D",206,0) 228.99^M^-1.835138046^22.500717781^0.1325663592 "DATA",22713,1,"D",207,0) 229.99^M^-1.833972004^22.548414372^0.132660699 "DATA",22713,1,"D",208,0) 230.99^M^-1.833157751^22.595654215^0.1327681527 "DATA",22713,1,"D",209,0) 231.99^M^-1.83269562^22.642429557^0.1328892105 "DATA",22713,1,"D",210,0) 232.99^M^-1.832584342^22.688732921^0.1330243684 "DATA",22713,1,"D",211,0) 233.99^M^-1.832820974^22.734557126^0.1331741285 "DATA",22713,1,"D",212,0) 234.99^M^-1.833400825^22.779895295^0.1333389994 "DATA",22713,1,"D",213,0) 235.99^M^-1.834317405^22.824740868^0.1335194959 "DATA",22713,1,"D",214,0) 236.99^M^-1.83555752^22.869089116^0.1337161923 "DATA",22713,1,"D",215,0) 237.99^M^-1.837119466^22.912931508^0.1339295249 "DATA",22713,1,"D",216,0) 238.99^M^-1.838987063^22.956263733^0.1341600729 "DATA",22713,1,"D",217,0) 239.99^M^-1.841146139^22.999080616^0.1344083809 "DATA",22713,1,"D",218,0) 240^M^-1.84233016^23.020294238^0.134539365 "DATA",22713,1,"D",219,0) 240.99^M^-1.843580575^23.041377338^0.1346750014 "DATA",22713,1,"D",220,0) 24^F^-0.98660853^16.423396643^0.085451785 "DATA",22713,1,"D",221,0) 24.99^F^-1.024496827^16.388040561^0.085025838 "DATA",22713,1,"D",222,0) 25.99^F^-1.102698353^16.318971901^0.0842140522 "DATA",22713,1,"D",223,0) 26.99^F^-1.18396635^16.252079845^0.083455124 "DATA",22713,1,"D",224,0) 27.99^F^-1.268071036^16.187346686^0.0827482842 "DATA",22713,1,"D",225,0) 28.99^F^-1.354751525^16.124754481^0.0820927371 "DATA",22713,1,"D",226,0) 29.99^F^-1.443689692^16.064287623^0.0814877172 "DATA",22713,1,"D",227,0) 30.99^F^-1.53454192^16.005930007^0.0809324482 "DATA",22713,1,"D",228,0) 31.99^F^-1.626928093^15.94966631^0.0804261754 "DATA",22713,1,"D",229,0) 32.99^F^-1.720434829^15.895481969^0.0799681758 "DATA",22713,1,"D",230,0) 33.99^F^-1.814635262^15.843361791^0.0795577348 "DATA",22713,1,"D",231,0) 34.99^F^-1.909076262^15.793291456^0.0791941867 "DATA",22713,1,"D",232,0) 35.99^F^-2.003296102^15.7452564^0.0788768946 "DATA",22713,1,"D",233,0) 36.99^F^-2.096828937^15.699241878^0.0786052551 "DATA",22713,1,"D",234,0) 37.99^F^-2.189211877^15.655232823^0.0783786964 "DATA",22713,1,"D",235,0) 38.99^F^-2.279991982^15.613213709^0.0781966743 "DATA",22713,1,"D",236,0) 39.99^F^-2.368732949^15.573168427^0.078058667 "DATA",22713,1,"D",237,0) 40.99^F^-2.455021314^15.53508019^0.077964169 "DATA",22713,1,"D",238,0) 41.99^F^-2.538471972^15.498931449^0.0779126837 "DATA",22713,1,"D",239,0) 42.99^F^-2.618732901^15.464703844^0.0779037156 "DATA",22713,1,"D",240,0) 43.99^F^-2.695488973^15.432378168^0.0779367628 "DATA",22713,1,"D",241,0) 44.99^F^-2.768464816^15.401934364^0.078011309 "DATA",22713,1,"D",242,0) 45.99^F^-2.837426693^15.373351541^0.0781268172 "DATA",22713,1,"D",243,0) 46.99^F^-2.902178205^15.346608415^0.0782827393 "DATA",22713,1,"D",244,0) 47.99^F^-2.962580386^15.321681814^0.0784784485 "DATA",22713,1,"D",245,0) 48.99^F^-3.018521987^15.298548972^0.0787133246 "DATA",22713,1,"D",246,0) 49.99^F^-3.069936555^15.277186179^0.0789866938 "DATA",22713,1,"D",247,0) 50.99^F^-3.116795864^15.257569204^0.0792978405 "DATA",22713,1,"D",248,0) 51.99^F^-3.159107331^15.239673384^0.079646006 "DATA",22713,1,"D",249,0) 52.99^F^-3.196911083^15.22347371^0.0800303887 "DATA",22713,1,"D",250,0) 53.99^F^-3.230276759^15.208944907^0.0804501449 "DATA",22713,1,"D",251,0) 54.99^F^-3.259300182^15.19606152^0.0809043905 "DATA",22713,1,"D",252,0) 55.99^F^-3.284099963^15.184797987^0.0813922027 "DATA",22713,1,"D",253,0) 56.99^F^-3.30481415^15.175128708^0.0819126232 "DATA",22713,1,"D",254,0) 57.99^F^-3.321596954^15.167028107^0.0824646608 "DATA",22713,1,"D",255,0) 58.99^F^-3.334615646^15.160470684^0.0830472946 "DATA",22713,1,"D",256,0) 59.99^F^-3.344047622^15.155431067^0.0836594775 "DATA",22713,1,"D",257,0) 60.99^F^-3.35007771^15.15188405^0.0843001394 "DATA",22713,1,"D",258,0) 61.99^F^-3.352893805^15.149804788^0.0849681996 "DATA",22713,1,"D",259,0) 62.99^F^-3.352691376^15.14916825^0.085662539 "DATA",22713,1,"D",260,0) 63.99^F^-3.34966438^15.149949835^0.086382035 "DATA",22713,1,"D",261,0) 64.99^F^-3.343998803^15.152125852^0.0871255909 "DATA",22713,1,"D",262,0) 65.99^F^-3.335889574^15.155671862^0.0878920466 "DATA",22713,1,"D",263,0) 66.99^F^-3.325522491^15.160564192^0.0886802643 "DATA",22713,1,"D",264,0) 67.99^F^-3.31307846^15.166779473^0.0894891056 "DATA",22713,1,"D",265,0) 68.99^F^-3.298732648^15.174294641^0.090317434 "DATA",22713,1,"D",266,0) 69.99^F^-3.282653831^15.183086936^0.0911641168 "DATA",22713,1,"D",267,0) 70.99^F^-3.265003896^15.193133896^0.0920280276 "DATA",22713,1,"D",268,0) 71.99^F^-3.245937506^15.204413348^0.0929080476 "DATA",22713,1,"D",269,0) 72.99^F^-3.225606516^15.216902957^0.0938030328 "DATA",22713,1,"D",270,0) 73.99^F^-3.204146115^15.230581504^0.0947119161 "DATA",22713,1,"D",271,0) 74.99^F^-3.181690237^15.245427448^0.0956335947 "DATA",22713,1,"D",272,0) 75.99^F^-3.158363475^15.261419664^0.096566992 "DATA",22713,1,"D",273,0) 76.99^F^-3.134282833^15.278537278^0.0975110459 "DATA",22713,1,"D",274,0) 77.99^F^-3.109557879^15.296759667^0.0984647101 "DATA",22713,1,"D",275,0) 78.99^F^-3.084290931^15.316066442^0.0994269552 "DATA",22713,1,"D",276,0) 79.99^F^-3.058577292^15.336437447^0.1003967693 "DATA",22713,1,"D",277,0) 80.99^F^-3.032505499^15.357852744^0.1013731591 "DATA",22713,1,"D",278,0) 81.99^F^-3.0061576^15.380292613^0.1023551503 "DATA",22713,1,"D",279,0) 82.99^F^-2.979609448^15.403737535^0.1033417884 "DATA",22713,1,"D",280,0) 83.99^F^-2.952930993^15.428168191^0.1043321392 "DATA",22713,1,"D",281,0) 84.99^F^-2.926186592^15.453565452^0.1053252892 "DATA",22713,1,"D",282,0) 85.99^F^-2.899435307^15.479910374^0.1063203463 "DATA",22713,1,"D",283,0) 86.99^F^-2.872731211^15.507184187^0.1073164399 "DATA",22713,1,"D",284,0) 87.99^F^-2.846123683^15.535368293^0.1083127212 "DATA",22713,1,"D",285,0) 88.99^F^-2.819657704^15.564444257^0.1093083637 "DATA",22713,1,"D",286,0) 89.99^F^-2.793374145^15.594393802^0.1103025629 "DATA",22713,1,"D",287,0) 90.99^F^-2.767310047^15.625198798^0.111294537 "DATA",22713,1,"D",288,0) 91.99^F^-2.741498897^15.656841259^0.1122835261 "DATA",22713,1,"D",289,0) 92.99^F^-2.715970894^15.689303334^0.113268793 "DATA",22713,1,"D",290,0) 93.99^F^-2.690753197^15.722567299^0.1142496222 "DATA",22713,1,"D",291,0) 94.99^F^-2.665870146^15.756615553^0.1152253207 "DATA",22713,1,"D",292,0) 95.99^F^-2.641343436^15.791430622^0.1161952181 "DATA",22713,1,"D",293,0) 96.99^F^-2.617192204^15.826995169^0.1171586674 "DATA",22713,1,"D",294,0) 97.99^F^-2.593430614^15.863292407^0.1181150731 "DATA",22713,1,"D",295,0) 98.99^F^-2.570076037^15.900304841^0.1190638073 "DATA",22713,1,"D",296,0) 99.99^F^-2.547141473^15.938015446^0.1200042898 "DATA",22713,1,"D",297,0) 100.99^F^-2.524635245^15.976407871^0.1209359936 "DATA",22713,1,"D",298,0) 101.99^F^-2.502569666^16.015464834^0.1218583548 "DATA",22713,1,"D",299,0) 102.99^F^-2.48095189^16.055169844^0.1227708703 "DATA",22713,1,"D",300,0) 103.99^F^-2.459785573^16.09550688^0.1236730846 "DATA",22713,1,"D",301,0) 104.99^F^-2.439080117^16.136458809^0.1245644841 "DATA",22713,1,"D",302,0) 105.99^F^-2.418838304^16.178009551^0.125444639 "DATA",22713,1,"D",303,0) 106.99^F^-2.399063683^16.220142813^0.1263131206 "DATA",22713,1,"D",304,0) 107.99^F^-2.379756861^16.262842771^0.1271695453 "DATA",22713,1,"D",305,0) 108.99^F^-2.360920527^16.306093162^0.1280135154 "DATA",22713,1,"D",306,0) 109.99^F^-2.342557728^16.349877586^0.1288446388 "DATA",22713,1,"D",307,0) 110.99^F^-2.324663326^16.39418118^0.1296626372 "DATA",22713,1,"D",308,0) 111.99^F^-2.307240716^16.438987413^0.1304671382 "DATA",22713,1,"D",309,0) 112.99^F^-2.290287663^16.484280823^0.1312578524 "DATA",22713,1,"D",310,0) 113.99^F^-2.273803847^16.530045538^0.1320344789 "DATA",22713,1,"D",311,0) 114.99^F^-2.257782149^16.57626713^0.132796819 "DATA",22713,1,"D",312,0) 115.99^F^-2.242227723^16.62292864^0.1335445247 "DATA",22713,1,"D",313,0) 116.99^F^-2.227132805^16.670015716^0.1342774356 "DATA",22713,1,"D",314,0) 117.99^F^-2.212495585^16.717512877^0.1349953236 "DATA",22713,1,"D",315,0) 118.99^F^-2.19831275^16.765404961^0.1356979956 "DATA",22713,1,"D",316,0) 119.99^F^-2.184580762^16.813676886^0.1363852755 "DATA",22713,1,"D",317,0) 120.99^F^-2.171295888^16.862313656^0.1370570042 "DATA",22713,1,"D",318,0) 121.99^F^-2.158454232^16.911300357^0.1377130391 "DATA",22713,1,"D",319,0) 122.99^F^-2.146051754^16.960622156^0.1383532537 "DATA",22713,1,"D",320,0) 123.99^F^-2.134084303^17.010264304^0.1389775374 "DATA",22713,1,"D",321,0) 124.99^F^-2.122547629^17.060212133^0.1395857952 "DATA",22713,1,"D",322,0) 125.99^F^-2.111437411^17.110451055^0.1401779469 "DATA",22713,1,"D",323,0) 126.99^F^-2.100749266^17.160966564^0.1407539274 "DATA",22713,1,"D",324,0) 127.99^F^-2.090478774^17.211744236^0.1413136859 "DATA",22713,1,"D",325,0) 128.99^F^-2.080621484^17.262769728^0.1418571858 "DATA",22713,1,"D",326,0) 129.99^F^-2.071172932^17.314028776^0.1423844043 "DATA",22713,1,"D",327,0) 130.99^F^-2.062128649^17.365507199^0.1428953318 "DATA",22713,1,"D",328,0) 131.99^F^-2.053484173^17.417190895^0.143389972 "DATA",22713,1,"D",329,0) 132.99^F^-2.045235058^17.469065845^0.1438683412 "DATA",22713,1,"D",330,0) 133.99^F^-2.03737688^17.52111811^0.1443304685 "DATA",22713,1,"D",331,0) 134.99^F^-2.029906684^17.573333469^0.1447763715 "DATA",22713,1,"D",332,0) 135.99^F^-2.022817914^17.625698688^0.1452061381 "DATA",22713,1,"D",333,0) 136.99^F^-2.016107084^17.678199868^0.1456198193 "DATA",22713,1,"D",334,0) 137.99^F^-2.009769905^17.730823397^0.1460174906 "DATA",22713,1,"D",335,0) 138.99^F^-2.003802134^17.783555746^0.1463992386 "DATA",22713,1,"D",336,0) 139.99^F^-1.998199572^17.836383471^0.1467651605 "DATA",22713,1,"D",337,0) 140.99^F^-1.992958064^17.889293209^0.1471153639 "DATA",22713,1,"D",338,0) 141.99^F^-1.988073505^17.942271684^0.1474499668 "DATA",22713,1,"D",339,0) 142.99^F^-1.983541835^17.995305704^0.1477690965 "DATA",22713,1,"D",340,0) 143.99^F^-1.979359041^18.048382162^0.1480728906 "DATA",22713,1,"D",341,0) 144.99^F^-1.975521156^18.101488036^0.1483614954 "DATA",22713,1,"D",342,0) 145.99^F^-1.972024258^18.154610394^0.1486350668 "DATA",22713,1,"D",343,0) 146.99^F^-1.968864465^18.207736386^0.1488937694 "DATA",22713,1,"D",344,0) 147.99^F^-1.966037938^18.260853253^0.1491377764 "DATA",22713,1,"D",345,0) 148.99^F^-1.963540872^18.313948324^0.1493672695 "DATA",22713,1,"D",346,0) 149.99^F^-1.961369499^18.367009017^0.1495824386 "DATA",22713,1,"D",347,0) 150.99^F^-1.959520079^18.420022839^0.1497834816 "DATA",22713,1,"D",348,0) 151.99^F^-1.9579889^18.472977388^0.1499706043 "DATA",22713,1,"D",349,0) 152.99^F^-1.956772271^18.525860352^0.1501440201 "DATA",22713,1,"D",350,0) 153.99^F^-1.95586652^18.578659513^0.1503039498 "DATA",22713,1,"D",351,0) 154.99^F^-1.955267984^18.631362745^0.1504506214 "DATA",22713,1,"D",352,0) 155.99^F^-1.954973011^18.683958013^0.1505842702 "DATA",22713,1,"D",353,0) 156.99^F^-1.954977947^18.736433381^0.1507051384 "DATA",22713,1,"D",354,0) 157.99^F^-1.955279136^18.788777004^0.1508134748 "DATA",22713,1,"D",355,0) 158.99^F^-1.955872909^18.840977134^0.1509095352 "DATA",22713,1,"D",356,0) 159.99^F^-1.956755579^18.893022121^0.1509935818 "DATA",22713,1,"D",357,0) 160.99^F^-1.957923436^18.944900411^0.1510658829 "DATA",22713,1,"D",358,0) 161.99^F^-1.959372737^18.996600549^0.1511267136 "DATA",22713,1,"D",359,0) 162.99^F^-1.9610997^19.048111179^0.1511763547 "DATA",22713,1,"D",360,0) 163.99^F^-1.963100496^19.099421046^0.1512150935 "DATA",22713,1,"D",361,0) 164.99^F^-1.96537124^19.150518994^0.1512432229 "DATA",22713,1,"D",362,0) 165.99^F^-1.967907983^19.201393971^0.1512610419 "DATA",22713,1,"D",363,0) 166.99^F^-1.970706706^19.252035026^0.1512688553 "DATA",22713,1,"D",364,0) 167.99^F^-1.973763307^19.302431312^0.1512669735 "DATA",22713,1,"D",365,0) 168.99^F^-1.977073595^19.352572085^0.1512557127 "DATA",22713,1,"D",366,0) 169.99^F^-1.980633277^19.402446707^0.1512353947 "DATA",22713,1,"D",367,0) 170.99^F^-1.984437954^19.452044646^0.1512063468 "DATA",22713,1,"D",368,0) 171.99^F^-1.988483106^19.501355476^0.1511689019 "DATA",22713,1,"D",369,0) 172.99^F^-1.992764085^19.550368876^0.1511233983 "DATA",22713,1,"D",370,0) 173.99^F^-1.997276103^19.599074637^0.1510701797 "DATA",22713,1,"D",371,0) 174.99^F^-2.002014224^19.647462655^0.1510095954 "DATA",22713,1,"D",372,0) 175.99^F^-2.00697335^19.695522937^0.1509419999 "DATA",22713,1,"D",373,0) 176.99^F^-2.012148213^19.743245597^0.1508677534 "DATA",22713,1,"D",374,0) 177.99^F^-2.017533363^19.790620862^0.1507872211 "DATA",22713,1,"D",375,0) 178.99^F^-2.023123159^19.837639068^0.1507007738 "DATA",22713,1,"D",376,0) 179.99^F^-2.028911755^19.884290662^0.1506087878 "DATA",22713,1,"D",377,0) 180.99^F^-2.034893091^19.930566203^0.1505116446 "DATA",22713,1,"D",378,0) 181.99^F^-2.041060881^19.976456361^0.1504097312 "DATA",22713,1,"D",379,0) 182.99^F^-2.047408604^20.021951917^0.1503034402 "DATA",22713,1,"D",380,0) 183.99^F^-2.05392949^20.067043765^0.1501931693 "DATA",22713,1,"D",381,0) 184.99^F^-2.060616513^20.11172291^0.1500793222 "DATA",22713,1,"D",382,0) 185.99^F^-2.067462375^20.155980469^0.1499623077 "DATA",22713,1,"D",383,0) 186.99^F^-2.074459502^20.199807672^0.1498425404 "DATA",22713,1,"D",384,0) 187.99^F^-2.081600029^20.243195857^0.1497204407 "DATA",22713,1,"D",385,0) 188.99^F^-2.088875793^20.286136477^0.1495964342 "DATA",22713,1,"D",386,0) 189.99^F^-2.096278323^20.328621093^0.1494709526 "DATA",22713,1,"D",387,0) 190.99^F^-2.103798828^20.370641376^0.1493444333 "DATA",22713,1,"D",388,0) 191.99^F^-2.111428194^20.412189106^0.1492173194 "DATA",22713,1,"D",389,0) 192.99^F^-2.119156972^20.453256172^0.14909006 "DATA",22713,1,"D",390,0) 193.99^F^-2.126975375^20.49383457^0.1489631101 "DATA",22713,1,"D",391,0) 194.99^F^-2.134873266^20.5339164^0.1488369306 "DATA",22713,1,"D",392,0) 195.99^F^-2.142840157^20.573493869^0.1487119885 "DATA",22713,1,"D",393,0) 196.99^F^-2.150865204^20.612559285^0.1485887569 "DATA",22713,1,"D",394,0) 197.99^F^-2.158937201^20.651105058^0.1484677151 "DATA",22713,1,"D",395,0) 198.99^F^-2.167044578^20.689123698^0.1483493484 "DATA",22713,1,"D",396,0) 199.99^F^-2.175176987^20.726607282^0.1482341202 "DATA",22713,1,"D",397,0) 200.99^F^-2.183317362^20.763550105^0.148122614 "DATA",22713,1,"D",398,0) 201.99^F^-2.191457792^20.799943374^0.1480152488 "DATA",22713,1,"D",399,0) 202.99^F^-2.199583649^20.83578051^0.1479125643 "DATA",22713,1,"D",400,0) 203.99^F^-2.207681525^20.871054493^0.1478150781 "DATA",22713,1,"D",401,0) 204.99^F^-2.215737645^20.905758394^0.1477233147 "DATA",22713,1,"D",402,0) 205.99^F^-2.223739902^20.939884769^0.1476377678 "DATA",22713,1,"D",403,0) 206.99^F^-2.231667995^20.973428578^0.1475590832 "DATA",22713,1,"D",404,0) 207.99^F^-2.239511942^21.006381705^0.1474877162 "DATA",22713,1,"D",405,0) 208.99^F^-2.247257081^21.038737402^0.1474242097 "DATA",22713,1,"D",406,0) 209.99^F^-2.254885145^21.070489959^0.1473691743 "DATA",22713,1,"D",407,0) 210.99^F^-2.26238209^21.101632407^0.147323144 "DATA",22713,1,"D",408,0) 211.99^F^-2.269731517^21.132158447^0.1472866982 "DATA",22713,1,"D",409,0) 212.99^F^-2.276917229^21.162061708^0.1472604146 "DATA",22713,1,"D",410,0) 213.99^F^-2.283925442^21.191335097^0.1472448281 "DATA",22713,1,"D",411,0) 214.99^F^-2.290731442^21.219974716^0.1472406828 "DATA",22713,1,"D",412,0) 215.99^F^-2.29732427^21.247972623^0.147248467 "DATA",22713,1,"D",413,0) 216.99^F^-2.303687802^21.275322389^0.1472687698 "DATA",22713,1,"D",414,0) 217.99^F^-2.309799971^21.302019325^0.1473022986 "DATA",22713,1,"D",415,0) 218.99^F^-2.315651874^21.328054894^0.1473495144 "DATA",22713,1,"D",416,0) 219.99^F^-2.32121731^21.353425629^0.1474112153 "DATA",22713,1,"D",417,0) 220.99^F^-2.326481911^21.378124616^0.1474879793 "DATA",22713,1,"D",418,0) 221.99^F^-2.331428139^21.402145892^0.1475804525 "DATA",22713,1,"D",419,0) 222.99^F^-2.336038473^21.425483514^0.1476892889 "DATA",22713,1,"D",420,0) 223.99^F^-2.34029545^21.448131558^0.1478151501 "DATA",22713,1,"D",421,0) 224.99^F^-2.344181703^21.470084116^0.1479587057 "DATA",22713,1,"D",422,0) 225.99^F^-2.34768^21.491335286^0.1481206332 "DATA",22713,1,"D",423,0) 226.99^F^-2.350773286^21.511879176^0.1483016185 "DATA",22713,1,"D",424,0) 227.99^F^-2.353444725^21.531709894^0.1485023554 "DATA",22713,1,"D",425,0) 228.99^F^-2.355677743^21.550821547^0.1487235462 "DATA",22713,1,"D",426,0) 229.99^F^-2.35745607^21.569208237^0.1489659018 "DATA",22713,1,"D",427,0) 230.99^F^-2.358763788^21.586864057^0.1492301415 "DATA",22713,1,"D",428,0) 231.99^F^-2.359585369^21.603783087^0.1495169936 "DATA",22713,1,"D",429,0) 232.99^F^-2.359905726^21.619959388^0.1498271951 "DATA",22713,1,"D",430,0) 233.99^F^-2.359710258^21.635387002^0.1501614923 "DATA",22713,1,"D",431,0) 234.99^F^-2.358980464^21.650061262^0.150520734 "DATA",22713,1,"D",432,0) 235.99^F^-2.357714508^21.663972695^0.1509054394 "DATA",22713,1,"D",433,0) 236.99^F^-2.355892424^21.677117355^0.1513165313 "DATA",22713,1,"D",434,0) 237.99^F^-2.353501353^21.689489352^0.1517548077 "DATA",22713,1,"D",435,0) 238.99^F^-2.350528726^21.701082884^0.1522210861 "DATA",22713,1,"D",436,0) 239.99^F^-2.346962247^21.711892252^0.1527162055 "DATA",22713,1,"D",437,0) 240^F^-2.34495843^21.716999342^0.152974718 "DATA",22713,1,"D",438,0) 240.99^F^-2.342796948^21.721909734^0.1532408716 "DATA",22713,2,0) HEAD CIRC BY AGE -- INFANT^AGE^MONTHS^HEAD CIRCUMFERENCE^CM^0-36M "DATA",22713,2,1) https://spreadsheets.google.com/ccc?key=0As02V5OYrjbucFhfa0dnc0FTMjlZZmw3MGVkaTdPS2c&hl=en "DATA",22713,2,2) HCAGEINF "DATA",22713,2,"D",0) ^22713.02A^76^76 "DATA",22713,2,"D",1,0) 0^M^4.427825037^35.81366835^0.052172542 "DATA",22713,2,"D",2,0) 0.99^M^4.310927464^37.19361054^0.047259148 "DATA",22713,2,"D",3,0) 1.99^M^3.869576802^39.20742929^0.040947903 "DATA",22713,2,"D",4,0) 2.99^M^3.305593039^40.65233195^0.037027722 "DATA",22713,2,"D",5,0) 3.99^M^2.720590297^41.76516959^0.034364245 "DATA",22713,2,"D",6,0) 4.99^M^2.16804824^42.66116148^0.032462175 "DATA",22713,2,"D",7,0) 5.99^M^1.675465689^43.40488731^0.031064702 "DATA",22713,2,"D",8,0) 6.99^M^1.255160322^44.03609923^0.03002267 "DATA",22713,2,"D",9,0) 7.99^M^0.91054114^44.58096912^0.029242173 "DATA",22713,2,"D",10,0) 8.99^M^0.639510474^45.05761215^0.028660454 "DATA",22713,2,"D",11,0) 9.99^M^0.436978864^45.4790756^0.0282336 "DATA",22713,2,"D",12,0) 10.99^M^0.296275856^45.85505706^0.027929764 "DATA",22713,2,"D",13,0) 11.99^M^0.210107251^46.19295427^0.027725179 "DATA",22713,2,"D",14,0) 12.99^M^0.171147024^46.49853438^0.027601686 "DATA",22713,2,"D",15,0) 13.99^M^0.172393886^46.77637684^0.027545148 "DATA",22713,2,"D",16,0) 14.99^M^0.207371541^47.03017599^0.027544382 "DATA",22713,2,"D",17,0) 15.99^M^0.270226126^47.2629533^0.027590417 "DATA",22713,2,"D",18,0) 16.99^M^0.355757274^47.47720989^0.02767598 "DATA",22713,2,"D",19,0) 17.99^M^0.459407627^47.67503833^0.027795115 "DATA",22713,2,"D",20,0) 18.99^M^0.577227615^47.85820606^0.0279429 "DATA",22713,2,"D",21,0) 19.99^M^0.705826778^48.02821867^0.028115241 "DATA",22713,2,"D",22,0) 20.99^M^0.842319055^48.18636864^0.028308707 "DATA",22713,2,"D",23,0) 21.99^M^0.984266833^48.3337732^0.028520407 "DATA",22713,2,"D",24,0) 22.99^M^1.129626698^48.47140432^0.028747896 "DATA",22713,2,"D",25,0) 23.99^M^1.276691223^48.60011223^0.028989089 "DATA",22713,2,"D",26,0) 24.99^M^1.424084853^48.72064621^0.029242207 "DATA",22713,2,"D",27,0) 25.99^M^1.570621291^48.83366629^0.029505723 "DATA",22713,2,"D",28,0) 26.99^M^1.715393998^48.93976089^0.029778323 "DATA",22713,2,"D",29,0) 27.99^M^1.857652984^49.03945383^0.030058871 "DATA",22713,2,"D",30,0) 28.99^M^1.996810563^49.13321432^0.030346384 "DATA",22713,2,"D",31,0) 29.99^M^2.132411346^49.22146409^0.030640006 "DATA",22713,2,"D",32,0) 30.99^M^2.264111009^49.30458348^0.030938992 "DATA",22713,2,"D",33,0) 31.99^M^2.391658052^49.38291658^0.031242693 "DATA",22713,2,"D",34,0) 32.99^M^2.514878222^49.45677569^0.031550537 "DATA",22713,2,"D",35,0) 33.99^M^2.633661226^49.526445^0.031862026 "DATA",22713,2,"D",36,0) 34.99^M^2.747949445^49.59218385^0.03217672 "DATA",22713,2,"D",37,0) 35.99^M^2.857728375^49.65422952^0.032494231 "DATA",22713,2,"D",38,0) 36^M^2.910932095^49.68393611^0.032653934 "DATA",22713,2,"D",39,0) 0^F^-1.298749689^34.7115617^0.046905108 "DATA",22713,2,"D",40,0) 0.99^F^-1.440271514^36.03453876^0.042999604 "DATA",22713,2,"D",41,0) 1.99^F^-1.581016348^37.97671987^0.038067862 "DATA",22713,2,"D",42,0) 2.99^F^-1.593136386^39.3801263^0.035079612 "DATA",22713,2,"D",43,0) 3.99^F^-1.521492427^40.46773733^0.033096443 "DATA",22713,2,"D",44,0) 4.99^F^-1.394565915^41.34841008^0.03170963 "DATA",22713,2,"D",45,0) 5.99^F^-1.231713389^42.0833507^0.030709039 "DATA",22713,2,"D",46,0) 6.99^F^-1.046582628^42.71033603^0.029974303 "DATA",22713,2,"D",47,0) 7.99^F^-0.848932692^43.25428882^0.029430992 "DATA",22713,2,"D",48,0) 8.99^F^-0.645779124^43.73249646^0.029030379 "DATA",22713,2,"D",49,0) 9.99^F^-0.442165412^44.15742837^0.028739112 "DATA",22713,2,"D",50,0) 10.99^F^-0.24163206^44.53836794^0.028533537 "DATA",22713,2,"D",51,0) 11.99^F^-0.046673786^44.88240562^0.028396382 "DATA",22713,2,"D",52,0) 12.99^F^0.141031094^45.19507651^0.028314722 "DATA",22713,2,"D",53,0) 13.99^F^0.320403169^45.48078147^0.028278682 "DATA",22713,2,"D",54,0) 14.99^F^0.490807133^45.74307527^0.028280585 "DATA",22713,2,"D",55,0) 15.99^F^0.65193505^45.98486901^0.028314363 "DATA",22713,2,"D",56,0) 16.99^F^0.803718086^46.20857558^0.028375159 "DATA",22713,2,"D",57,0) 17.99^F^0.946259679^46.41621635^0.028459033 "DATA",22713,2,"D",58,0) 18.99^F^1.079784984^46.60950084^0.028562759 "DATA",22713,2,"D",59,0) 19.99^F^1.204602687^46.78988722^0.028683666 "DATA",22713,2,"D",60,0) 20.99^F^1.321076285^46.95862881^0.028819525 "DATA",22713,2,"D",61,0) 21.99^F^1.429602576^47.11681039^0.028968459 "DATA",22713,2,"D",62,0) 22.99^F^1.530595677^47.26537682^0.029128879 "DATA",22713,2,"D",63,0) 23.99^F^1.624475262^47.40515585^0.029299426 "DATA",22713,2,"D",64,0) 24.99^F^1.71165803^47.53687649^0.029478937 "DATA",22713,2,"D",65,0) 25.99^F^1.792551616^47.66118396^0.029666406 "DATA",22713,2,"D",66,0) 26.99^F^1.867550375^47.77865186^0.02986096 "DATA",22713,2,"D",67,0) 27.99^F^1.93703258^47.8897923^0.030061839 "DATA",22713,2,"D",68,0) 28.99^F^2.001358669^47.99506422^0.030268375 "DATA",22713,2,"D",69,0) 29.99^F^2.060870301^48.09488048^0.030479985 "DATA",22713,2,"D",70,0) 30.99^F^2.115889982^48.18961365^0.03069615 "DATA",22713,2,"D",71,0) 31.99^F^2.16672113^48.2796011^0.030916413 "DATA",22713,2,"D",72,0) 32.99^F^2.21364844^48.36514917^0.031140368 "DATA",22713,2,"D",73,0) 33.99^F^2.256943216^48.44653703^0.031367651 "DATA",22713,2,"D",74,0) 34.99^F^2.296844024^48.52401894^0.031597939 "DATA",22713,2,"D",75,0) 35.99^F^2.333589434^48.59782828^0.031830942 "DATA",22713,2,"D",76,0) 36^F^2.350847202^48.63342328^0.031948378 "DATA",22713,3,0) LENGTH BY AGE -- INFANT^AGE^MONTHS^RECUMBENT LENGTH^CM^0-36M "DATA",22713,3,1) https://spreadsheets.google.com/ccc?key=0As02V5OYrjbucFhfa0dnc0FTMjlaLU5LVmFUV1JMYWc&hl=en "DATA",22713,3,2) LENAGEINF "DATA",22713,3,"D",0) ^22713.02A^74^74 "DATA",22713,3,"D",1,0) 0^M^1.2670042261^49.988884079^0.0531121908 "DATA",22713,3,"D",2,0) 0.99^M^0.5112376962^52.695975301^0.0486926838 "DATA",22713,3,"D",3,0) 1.99^M^-0.45224446^56.628428552^0.0441168302 "DATA",22713,3,"D",4,0) 2.99^M^-0.990594599^59.608953427^0.0417955825 "DATA",22713,3,"D",5,0) 3.99^M^-1.285837689^62.077000266^0.0404541256 "DATA",22713,3,"D",6,0) 4.99^M^-1.43031238^64.216864104^0.0396338789 "DATA",22713,3,"D",7,0) 5.99^M^-1.47657547^66.125314898^0.0391238128 "DATA",22713,3,"D",8,0) 6.99^M^-1.456837849^67.860179904^0.0388119944 "DATA",22713,3,"D",9,0) 7.99^M^-1.391898768^69.459084582^0.0386332091 "DATA",22713,3,"D",10,0) 8.99^M^-1.29571459^70.948039123^0.0385468328 "DATA",22713,3,"D",11,0) 9.99^M^-1.177919048^72.345861109^0.0385262623 "DATA",22713,3,"D",12,0) 10.99^M^-1.045326049^73.666654103^0.038553387 "DATA",22713,3,"D",13,0) 11.99^M^-0.902800887^74.921297174^0.0386155012 "DATA",22713,3,"D",14,0) 12.99^M^-0.753908107^76.118375358^0.0387034611 "DATA",22713,3,"D",15,0) 13.99^M^-0.601263523^77.264799111^0.0388105571 "DATA",22713,3,"D",16,0) 14.99^M^-0.446805039^78.366223087^0.0389317838 "DATA",22713,3,"D",17,0) 15.99^M^-0.291974772^79.427340501^0.0390633563 "DATA",22713,3,"D",18,0) 16.99^M^-0.13784767^80.452094919^0.0392023816 "DATA",22713,3,"D",19,0) 17.99^M^0.014776155^81.443836034^0.0393466285 "DATA",22713,3,"D",20,0) 18.99^M^0.1653041691^82.405436434^0.0394943647 "DATA",22713,3,"D",21,0) 19.99^M^0.3133018086^83.339380627^0.0396442379 "DATA",22713,3,"D",22,0) 20.99^M^0.4584554707^84.247833944^0.0397951891 "DATA",22713,3,"D",23,0) 21.99^M^0.6005446308^85.132696575^0.0399463877 "DATA",22713,3,"D",24,0) 22.99^M^0.7394389526^85.995648803^0.0400971806 "DATA",22713,3,"D",25,0) 23.99^M^0.8750004465^86.838175097^0.0402470597 "DATA",22713,3,"D",26,0) 24.99^M^1.0072080698^87.661609339^0.0403956257 "DATA",22713,3,"D",27,0) 25.99^M^0.8372513507^88.452472817^0.0405775247 "DATA",22713,3,"D",28,0) 26.99^M^0.681492975^89.223264339^0.0407231216 "DATA",22713,3,"D",29,0) 27.99^M^0.5387796541^89.975492278^0.0408331942 "DATA",22713,3,"D",30,0) 28.99^M^0.4076971531^90.710408526^0.0409090589 "DATA",22713,3,"D",31,0) 29.99^M^0.2867624533^91.429077621^0.0409524329 "DATA",22713,3,"D",32,0) 30.99^M^0.1744894848^92.132423789^0.0409653301 "DATA",22713,3,"D",33,0) 31.99^M^0.0694445205^92.821271673^0.0409499758 "DATA",22713,3,"D",34,0) 32.99^M^-0.029720564^93.496379457^0.0409087367 "DATA",22713,3,"D",35,0) 33.99^M^-0.124251789^94.158465459^0.0408440616 "DATA",22713,3,"D",36,0) 34.99^M^-0.215288396^94.808229231^0.0407584307 "DATA",22713,3,"D",37,0) 35.99^M^-0.30385434^95.446369813^0.0406543122 "DATA",22713,3,"D",38,0) 0^F^-1.295960857^49.286396118^0.0500855601 "DATA",22713,3,"D",39,0) 0.99^F^-0.809249882^51.683580573^0.0468185454 "DATA",22713,3,"D",40,0) 1.99^F^-0.050782985^55.286128126^0.0434439 "DATA",22713,3,"D",41,0) 2.99^F^0.4768514065^58.093819061^0.0417161032 "DATA",22713,3,"D",42,0) 3.99^F^0.8432996117^60.459807634^0.0407051733 "DATA",22713,3,"D",43,0) 4.99^F^1.0975622571^62.536696555^0.0400797646 "DATA",22713,3,"D",44,0) 5.99^F^1.2725096408^64.406327624^0.0396868449 "DATA",22713,3,"D",45,0) 6.99^F^1.3904288587^66.118415533^0.0394445547 "DATA",22713,3,"D",46,0) 7.99^F^1.466733925^67.705744192^0.0393047376 "DATA",22713,3,"D",47,0) 8.99^F^1.5123019758^69.191236138^0.0392371101 "DATA",22713,3,"D",48,0) 9.99^F^1.534950767^70.591639237^0.0392216648 "DATA",22713,3,"D",49,0) 10.99^F^1.5403908751^71.919616727^0.0392446716 "DATA",22713,3,"D",50,0) 11.99^F^1.5328528917^73.185010399^0.0392964203 "DATA",22713,3,"D",51,0) 12.99^F^1.5155094695^74.395643786^0.0393698746 "DATA",22713,3,"D",52,0) 13.99^F^1.4907650275^75.557854397^0.0394598321 "DATA",22713,3,"D",53,0) 14.99^F^1.460458255^76.676858713^0.0395623818 "DATA",22713,3,"D",54,0) 15.99^F^1.4260060091^77.757009856^0.0396745415 "DATA",22713,3,"D",55,0) 16.99^F^1.3885070954^78.801984056^0.0397940102 "DATA",22713,3,"D",56,0) 17.99^F^1.3488181274^79.814918523^0.0399189943 "DATA",22713,3,"D",57,0) 18.99^F^1.3076096543^80.798515316^0.0400480838 "DATA",22713,3,"D",58,0) 19.99^F^1.2654081486^81.755120921^0.0401801621 "DATA",22713,3,"D",59,0) 20.99^F^1.2226277319^82.686788098^0.0403143396 "DATA",22713,3,"D",60,0) 21.99^F^1.1795943654^83.59532461^0.040449904 "DATA",22713,3,"D",61,0) 22.99^F^1.1365644483^84.48233206^0.0405862829 "DATA",22713,3,"D",62,0) 23.99^F^1.0937319466^85.349236238^0.0407230154 "DATA",22713,3,"D",63,0) 24.99^F^1.0512729122^86.197316902^0.0408597268 "DATA",22713,3,"D",64,0) 25.99^F^1.041951175^87.090263184^0.0411421607 "DATA",22713,3,"D",65,0) 26.99^F^1.0125922357^87.957141816^0.0413493986 "DATA",22713,3,"D",66,0) 27.99^F^0.9705419086^88.796018399^0.041500428 "DATA",22713,3,"D",67,0) 28.99^F^0.9211299875^89.605511504^0.0416105082 "DATA",22713,3,"D",68,0) 29.99^F^0.8682213922^90.38476689^0.0416917614 "DATA",22713,3,"D",69,0) 30.99^F^0.8145441296^91.133417221^0.0417536804 "DATA",22713,3,"D",70,0) 31.99^F^0.7619579771^91.851543603^0.0418035615 "DATA",22713,3,"D",71,0) 32.99^F^0.7116602284^92.539635196^0.0418468815 "DATA",22713,3,"D",72,0) 33.99^F^0.6643233788^93.198544285^0.041887626 "DATA",22713,3,"D",73,0) 34.99^F^0.6202851017^93.829453915^0.0419285678 "DATA",22713,3,"D",74,0) 35.99^F^0.57955631^94.433822779^0.0419715144 "DATA",22713,4,0) STATURE BY AGE^AGE^MONTHS^STATURE (HEIGHT)^CM^2-20Y "DATA",22713,4,1) https://spreadsheets.google.com/ccc?key=0As02V5OYrjbucFhfa0dnc0FTMjlhNE15ajR3QU9mTkE&hl=en "DATA",22713,4,2) STATAGE "DATA",22713,4,"D",0) ^22713.02A^436^436 "DATA",22713,4,"D",1,0) 24^M^0.941523967^86.45220101^0.040321528 "DATA",22713,4,"D",2,0) 24.99^M^1.00720807^86.86160934^0.040395626 "DATA",22713,4,"D",3,0) 25.99^M^0.837251351^87.65247282^0.040577525 "DATA",22713,4,"D",4,0) 26.99^M^0.681492975^88.42326434^0.040723122 "DATA",22713,4,"D",5,0) 27.99^M^0.538779654^89.17549228^0.040833194 "DATA",22713,4,"D",6,0) 28.99^M^0.407697153^89.91040853^0.040909059 "DATA",22713,4,"D",7,0) 29.99^M^0.286762453^90.62907762^0.040952433 "DATA",22713,4,"D",8,0) 30.99^M^0.174489485^91.33242379^0.04096533 "DATA",22713,4,"D",9,0) 31.99^M^0.069444521^92.02127167^0.040949976 "DATA",22713,4,"D",10,0) 32.99^M^-0.029720564^92.69637946^0.040908737 "DATA",22713,4,"D",11,0) 33.99^M^-0.124251789^93.35846546^0.040844062 "DATA",22713,4,"D",12,0) 34.99^M^-0.215288396^94.00822923^0.040758431 "DATA",22713,4,"D",13,0) 35.99^M^-0.30385434^94.64636981^0.040654312 "DATA",22713,4,"D",14,0) 36.99^M^-0.390918369^95.27359106^0.04053412 "DATA",22713,4,"D",15,0) 37.99^M^-0.254801167^95.91474929^0.040572876 "DATA",22713,4,"D",16,0) 38.99^M^-0.125654535^96.54734328^0.04061691 "DATA",22713,4,"D",17,0) 39.99^M^-0.00316735^97.17191309^0.040666414 "DATA",22713,4,"D",18,0) 40.99^M^0.11291221^97.78897727^0.040721467 "DATA",22713,4,"D",19,0) 41.99^M^0.222754969^98.3990283^0.040782045 "DATA",22713,4,"D",20,0) 42.99^M^0.326530126^99.00254338^0.040848042 "DATA",22713,4,"D",21,0) 43.99^M^0.42436156^99.599977^0.040919281 "DATA",22713,4,"D",22,0) 44.99^M^0.516353108^100.191764^0.040995524 "DATA",22713,4,"D",23,0) 45.99^M^0.602595306^100.7783198^0.041076485 "DATA",22713,4,"D",24,0) 46.99^M^0.683170764^101.3600411^0.041161838 "DATA",22713,4,"D",25,0) 47.99^M^0.758158406^101.9373058^0.041251224 "DATA",22713,4,"D",26,0) 48.99^M^0.827636736^102.5104735^0.041344257 "DATA",22713,4,"D",27,0) 49.99^M^0.891686306^103.0798852^0.041440534 "DATA",22713,4,"D",28,0) 50.99^M^0.95039153^103.645864^0.041539635 "DATA",22713,4,"D",29,0) 51.99^M^1.003830006^104.208713^0.041641136 "DATA",22713,4,"D",30,0) 52.99^M^1.05213569^104.7687256^0.041744602 "DATA",22713,4,"D",31,0) 53.99^M^1.0953669^105.3261638^0.041849607 "DATA",22713,4,"D",32,0) 54.99^M^1.133652119^105.8812823^0.041955723 "DATA",22713,4,"D",33,0) 55.99^M^1.167104213^106.4343146^0.042062532 "DATA",22713,4,"D",34,0) 56.99^M^1.195845353^106.9854769^0.042169628 "DATA",22713,4,"D",35,0) 57.99^M^1.220004233^107.534968^0.042276619 "DATA",22713,4,"D",36,0) 58.99^M^1.239715856^108.0829695^0.042383129 "DATA",22713,4,"D",37,0) 59.99^M^1.255121285^108.6296457^0.042488804 "DATA",22713,4,"D",38,0) 60.99^M^1.266367398^109.1751441^0.042593311 "DATA",22713,4,"D",39,0) 61.99^M^1.273606657^109.7195954^0.042696342 "DATA",22713,4,"D",40,0) 62.99^M^1.276996893^110.2631136^0.042797615 "DATA",22713,4,"D",41,0) 63.99^M^1.276701119^110.8057967^0.042896877 "DATA",22713,4,"D",42,0) 64.99^M^1.272887366^111.3477265^0.042993904 "DATA",22713,4,"D",43,0) 65.99^M^1.265728536^111.8889694^0.043088503 "DATA",22713,4,"D",44,0) 66.99^M^1.255402281^112.4295761^0.043180513 "DATA",22713,4,"D",45,0) 67.99^M^1.242090871^112.9695827^0.043269806 "DATA",22713,4,"D",46,0) 68.99^M^1.225981067^113.5090108^0.043356287 "DATA",22713,4,"D",47,0) 69.99^M^1.207263978^114.0478678^0.043439893 "DATA",22713,4,"D",48,0) 70.99^M^1.186140222^114.5861486^0.043520597 "DATA",22713,4,"D",49,0) 71.99^M^1.162796198^115.1238315^0.043598407 "DATA",22713,4,"D",50,0) 72.99^M^1.137442868^115.6608862^0.043673359 "DATA",22713,4,"D",51,0) 73.99^M^1.110286487^116.1972691^0.043745523 "DATA",22713,4,"D",52,0) 74.99^M^1.081536236^116.732925^0.043815003 "DATA",22713,4,"D",53,0) 75.99^M^1.05140374^117.2677879^0.043881929 "DATA",22713,4,"D",54,0) 76.99^M^1.020102497^117.8017819^0.043946461 "DATA",22713,4,"D",55,0) 77.99^M^0.987847213^118.3348215^0.044008785 "DATA",22713,4,"D",56,0) 78.99^M^0.954853043^118.8668123^0.044069112 "DATA",22713,4,"D",57,0) 79.99^M^0.921334742^119.397652^0.044127675 "DATA",22713,4,"D",58,0) 80.99^M^0.887505723^119.9272309^0.044184725 "DATA",22713,4,"D",59,0) 81.99^M^0.85357703^120.455433^0.044240532 "DATA",22713,4,"D",60,0) 82.99^M^0.819756239^120.9821362^0.044295379 "DATA",22713,4,"D",61,0) 83.99^M^0.786246296^121.5072136^0.044349559 "DATA",22713,4,"D",62,0) 84.99^M^0.753244292^122.0305342^0.044403374 "DATA",22713,4,"D",63,0) 85.99^M^0.720940222^122.5519634^0.04445713 "DATA",22713,4,"D",64,0) 86.99^M^0.689515708^123.0713645^0.044511135 "DATA",22713,4,"D",65,0) 87.99^M^0.659142731^123.588599^0.044565693 "DATA",22713,4,"D",66,0) 88.99^M^0.629997853^124.1035312^0.044621104 "DATA",22713,4,"D",67,0) 89.99^M^0.602203984^124.6160161^0.044677662 "DATA",22713,4,"D",68,0) 90.99^M^0.575908038^125.1259182^0.044735646 "DATA",22713,4,"D",69,0) 91.99^M^0.55123134^125.6331012^0.044795322 "DATA",22713,4,"D",70,0) 92.99^M^0.528279901^126.1374319^0.044856941 "DATA",22713,4,"D",71,0) 93.99^M^0.507143576^126.6387804^0.04492073 "DATA",22713,4,"D",72,0) 94.99^M^0.487895344^127.1370217^0.044986899 "DATA",22713,4,"D",73,0) 95.99^M^0.470590753^127.6320362^0.045055632 "DATA",22713,4,"D",74,0) 96.99^M^0.455267507^128.1237104^0.045127088 "DATA",22713,4,"D",75,0) 97.99^M^0.441945241^128.6119383^0.045201399 "DATA",22713,4,"D",76,0) 98.99^M^0.430625458^129.096622^0.045278671 "DATA",22713,4,"D",77,0) 99.99^M^0.421291648^129.5776723^0.045358979 "DATA",22713,4,"D",78,0) 100.99^M^0.413909588^130.0550101^0.045442372 "DATA",22713,4,"D",79,0) 101.99^M^0.408427813^130.5285669^0.045528869 "DATA",22713,4,"D",80,0) 102.99^M^0.404778262^130.9982857^0.045618459 "DATA",22713,4,"D",81,0) 103.99^M^0.402877077^131.4641218^0.045711105 "DATA",22713,4,"D",82,0) 104.99^M^0.402625561^131.9260439^0.045806742 "DATA",22713,4,"D",83,0) 105.99^M^0.40391127^132.3840348^0.045905281 "DATA",22713,4,"D",84,0) 106.99^M^0.406609232^132.838092^0.046006604 "DATA",22713,4,"D",85,0) 107.99^M^0.410583274^133.2882291^0.046110573 "DATA",22713,4,"D",86,0) 108.99^M^0.415687443^133.7344759^0.046217028 "DATA",22713,4,"D",87,0) 109.99^M^0.421767514^134.1768801^0.04632579 "DATA",22713,4,"D",88,0) 110.99^M^0.428662551^134.6155076^0.046436662 "DATA",22713,4,"D",89,0) 111.99^M^0.436206531^135.0504433^0.04654943 "DATA",22713,4,"D",90,0) 112.99^M^0.44423^135.4817925^0.046663871 "DATA",22713,4,"D",91,0) 113.99^M^0.45256176^135.9096813^0.046779748 "DATA",22713,4,"D",92,0) 114.99^M^0.461030578^136.3342577^0.046896817 "DATA",22713,4,"D",93,0) 115.99^M^0.469466904^136.7556923^0.047014827 "DATA",22713,4,"D",94,0) 116.99^M^0.477704608^137.1741794^0.047133525 "DATA",22713,4,"D",95,0) 117.99^M^0.48558272^137.5899378^0.047252654 "DATA",22713,4,"D",96,0) 118.99^M^0.492947182^138.0032114^0.047371961 "DATA",22713,4,"D",97,0) 119.99^M^0.499652617^138.4142703^0.047491194 "DATA",22713,4,"D",98,0) 120.99^M^0.505564115^138.8234114^0.047610108 "DATA",22713,4,"D",99,0) 121.99^M^0.510559047^139.2309592^0.047728463 "DATA",22713,4,"D",100,0) 122.99^M^0.514528903^139.6372663^0.04784603 "DATA",22713,4,"D",101,0) 123.99^M^0.517381177^140.042714^0.047962592 "DATA",22713,4,"D",102,0) 124.99^M^0.519041285^140.4477127^0.048077942 "DATA",22713,4,"D",103,0) 125.99^M^0.519454524^140.8527022^0.048191889 "DATA",22713,4,"D",104,0) 126.99^M^0.518588072^141.2581515^0.048304259 "DATA",22713,4,"D",105,0) 127.99^M^0.516433004^141.6645592^0.048414893 "DATA",22713,4,"D",106,0) 128.99^M^0.513006312^142.072452^0.048523648 "DATA",22713,4,"D",107,0) 129.99^M^0.508352901^142.4823852^0.048630402 "DATA",22713,4,"D",108,0) 130.99^M^0.502547502^142.8949403^0.04873505 "DATA",22713,4,"D",109,0) 131.99^M^0.495696454^143.3107241^0.048837504 "DATA",22713,4,"D",110,0) 132.99^M^0.487939275^143.7303663^0.048937694 "DATA",22713,4,"D",111,0) 133.99^M^0.479449924^144.1545167^0.049035564 "DATA",22713,4,"D",112,0) 134.99^M^0.470437652^144.5838414^0.049131073 "DATA",22713,4,"D",113,0) 135.99^M^0.461147305^145.0190192^0.049224189 "DATA",22713,4,"D",114,0) 136.99^M^0.451858946^145.4607359^0.049314887 "DATA",22713,4,"D",115,0) 137.99^M^0.442886661^145.9096784^0.049403145 "DATA",22713,4,"D",116,0) 138.99^M^0.434576385^146.3665278^0.049488934 "DATA",22713,4,"D",117,0) 139.99^M^0.427302633^146.8319513^0.049572216 "DATA",22713,4,"D",118,0) 140.99^M^0.421464027^147.3065929^0.049652935 "DATA",22713,4,"D",119,0) 141.99^M^0.417477538^147.7910635^0.049731004 "DATA",22713,4,"D",120,0) 142.99^M^0.415771438^148.2859294^0.0498063 "DATA",22713,4,"D",121,0) 143.99^M^0.416777012^148.7917006^0.04987865 "DATA",22713,4,"D",122,0) 144.99^M^0.420919142^149.3088178^0.049947823 "DATA",22713,4,"D",123,0) 145.99^M^0.428606007^149.8376391^0.050013518 "DATA",22713,4,"D",124,0) 146.99^M^0.440218167^150.3784267^0.050075353 "DATA",22713,4,"D",125,0) 147.99^M^0.456097443^150.9313331^0.050132858 "DATA",22713,4,"D",126,0) 148.99^M^0.476536014^151.4963887^0.050185471 "DATA",22713,4,"D",127,0) 149.99^M^0.501766234^152.0734897^0.050232532 "DATA",22713,4,"D",128,0) 150.99^M^0.531951655^152.6623878^0.050273285 "DATA",22713,4,"D",129,0) 151.99^M^0.567179725^153.2626819^0.050306885 "DATA",22713,4,"D",130,0) 152.99^M^0.607456565^153.8738124^0.050332406 "DATA",22713,4,"D",131,0) 153.99^M^0.652704121^154.495058^0.05034886 "DATA",22713,4,"D",132,0) 154.99^M^0.702759868^155.1255365^0.050355216 "DATA",22713,4,"D",133,0) 155.99^M^0.757379106^155.7642086^0.050350423 "DATA",22713,4,"D",134,0) 156.99^M^0.816239713^156.4098858^0.050333444 "DATA",22713,4,"D",135,0) 157.99^M^0.878947416^157.0612415^0.050303283 "DATA",22713,4,"D",136,0) 158.99^M^0.945053486^157.7168289^0.050259018 "DATA",22713,4,"D",137,0) 159.99^M^1.014046108^158.3750929^0.050199837 "DATA",22713,4,"D",138,0) 160.99^M^1.085383319^159.034399^0.050125062 "DATA",22713,4,"D",139,0) 161.99^M^1.158487278^159.6930501^0.05003418 "DATA",22713,4,"D",140,0) 162.99^M^1.232768816^160.3493168^0.049926861 "DATA",22713,4,"D",141,0) 163.99^M^1.307628899^161.0014586^0.049802977 "DATA",22713,4,"D",142,0) 164.99^M^1.382473225^161.6477515^0.04966261 "DATA",22713,4,"D",143,0) 165.99^M^1.456720479^162.2865119^0.049506051 "DATA",22713,4,"D",144,0) 166.99^M^1.529810247^162.9161202^0.049333801 "DATA",22713,4,"D",145,0) 167.99^M^1.601219573^163.535045^0.049146553 "DATA",22713,4,"D",146,0) 168.99^M^1.670433444^164.1418486^0.04894519 "DATA",22713,4,"D",147,0) 169.99^M^1.736995571^164.7352199^0.048730749 "DATA",22713,4,"D",148,0) 170.99^M^1.800483802^165.3139755^0.048504404 "DATA",22713,4,"D",149,0) 171.99^M^1.860518777^165.8770715^0.048267442 "DATA",22713,4,"D",150,0) 172.99^M^1.916765525^166.4236087^0.04802123 "DATA",22713,4,"D",151,0) 173.99^M^1.968934444^166.9528354^0.047767192 "DATA",22713,4,"D",152,0) 174.99^M^2.016781776^167.4641466^0.047506783 "DATA",22713,4,"D",153,0) 175.99^M^2.060109658^167.9570814^0.047241456 "DATA",22713,4,"D",154,0) 176.99^M^2.098765817^168.4313175^0.04697265 "DATA",22713,4,"D",155,0) 177.99^M^2.132642948^168.8866644^0.046701759 "DATA",22713,4,"D",156,0) 178.99^M^2.16167779^169.3230548^0.046430122 "DATA",22713,4,"D",157,0) 179.99^M^2.185849904^169.7405351^0.046159004 "DATA",22713,4,"D",158,0) 180.99^M^2.205180153^170.139255^0.045889585 "DATA",22713,4,"D",159,0) 181.99^M^2.219728869^170.5194567^0.045622955 "DATA",22713,4,"D",160,0) 182.99^M^2.2295937^170.881464^0.045360101 "DATA",22713,4,"D",161,0) 183.99^M^2.234907144^171.2256717^0.045101913 "DATA",22713,4,"D",162,0) 184.99^M^2.235833767^171.5525345^0.044849174 "DATA",22713,4,"D",163,0) 185.99^M^2.232567138^171.8625576^0.044602566 "DATA",22713,4,"D",164,0) 186.99^M^2.2253265^172.1562865^0.044362674 "DATA",22713,4,"D",165,0) 187.99^M^2.214353232^172.4342983^0.044129985 "DATA",22713,4,"D",166,0) 188.99^M^2.199905902^172.6971935^0.043904897 "DATA",22713,4,"D",167,0) 189.99^M^2.182262864^172.9455898^0.043687723 "DATA",22713,4,"D",168,0) 190.99^M^2.161704969^173.180112^0.043478698 "DATA",22713,4,"D",169,0) 191.99^M^2.138524662^173.4013896^0.043277987 "DATA",22713,4,"D",170,0) 192.99^M^2.113023423^173.6100518^0.043085685 "DATA",22713,4,"D",171,0) 193.99^M^2.085490286^173.8067179^0.042901835 "DATA",22713,4,"D",172,0) 194.99^M^2.0562195^173.9919998^0.042726424 "DATA",22713,4,"D",173,0) 195.99^M^2.025496648^174.1664951^0.042559396 "DATA",22713,4,"D",174,0) 196.99^M^1.993598182^174.3307855^0.042400652 "DATA",22713,4,"D",175,0) 197.99^M^1.960789092^174.4854344^0.042250063 "DATA",22713,4,"D",176,0) 198.99^M^1.927320937^174.6309856^0.042107465 "DATA",22713,4,"D",177,0) 199.99^M^1.89343024^174.7679617^0.041972676 "DATA",22713,4,"D",178,0) 200.99^M^1.859337259^174.8968634^0.041845488 "DATA",22713,4,"D",179,0) 201.99^M^1.825245107^175.0181691^0.041725679 "DATA",22713,4,"D",180,0) 202.99^M^1.791339209^175.1323345^0.041613015 "DATA",22713,4,"D",181,0) 203.99^M^1.757787065^175.2397926^0.041507249 "DATA",22713,4,"D",182,0) 204.99^M^1.724738292^175.340954^0.041408129 "DATA",22713,4,"D",183,0) 205.99^M^1.692324905^175.4362071^0.041315398 "DATA",22713,4,"D",184,0) 206.99^M^1.660661815^175.5259191^0.041228796 "DATA",22713,4,"D",185,0) 207.99^M^1.629847495^175.6104358^0.04114806 "DATA",22713,4,"D",186,0) 208.99^M^1.599964788^175.690083^0.041072931 "DATA",22713,4,"D",187,0) 209.99^M^1.571081817^175.7651671^0.04100315 "DATA",22713,4,"D",188,0) 210.99^M^1.543252982^175.8359757^0.040938463 "DATA",22713,4,"D",189,0) 211.99^M^1.516519998^175.9027788^0.040878617 "DATA",22713,4,"D",190,0) 212.99^M^1.490912963^175.9658293^0.040823368 "DATA",22713,4,"D",191,0) 213.99^M^1.466451429^176.0253641^0.040772475 "DATA",22713,4,"D",192,0) 214.99^M^1.44314546^176.081605^0.040725706 "DATA",22713,4,"D",193,0) 215.99^M^1.420996665^176.1347593^0.040682834 "DATA",22713,4,"D",194,0) 216.99^M^1.399999187^176.1850208^0.04064364 "DATA",22713,4,"D",195,0) 217.99^M^1.380140651^176.2325707^0.040607913 "DATA",22713,4,"D",196,0) 218.99^M^1.361403047^176.2775781^0.040575448 "DATA",22713,4,"D",197,0) 219.99^M^1.343763564^176.3202008^0.040546051 "DATA",22713,4,"D",198,0) 220.99^M^1.327195355^176.3605864^0.040519532 "DATA",22713,4,"D",199,0) 221.99^M^1.311668242^176.3988725^0.040495713 "DATA",22713,4,"D",200,0) 222.99^M^1.297149359^176.4351874^0.040474421 "DATA",22713,4,"D",201,0) 223.99^M^1.283603728^176.469651^0.040455493 "DATA",22713,4,"D",202,0) 224.99^M^1.270994782^176.5023751^0.040438773 "DATA",22713,4,"D",203,0) 225.99^M^1.25928483^176.533464^0.040424111 "DATA",22713,4,"D",204,0) 226.99^M^1.248435461^176.5630153^0.040411366 "DATA",22713,4,"D",205,0) 227.99^M^1.23840791^176.5911197^0.040400405 "DATA",22713,4,"D",206,0) 228.99^M^1.229163362^176.6178621^0.040391101 "DATA",22713,4,"D",207,0) 229.99^M^1.220663228^176.6433219^0.040383334 "DATA",22713,4,"D",208,0) 230.99^M^1.212869374^176.6675729^0.04037699 "DATA",22713,4,"D",209,0) 231.99^M^1.20574431^176.6906844^0.040371962 "DATA",22713,4,"D",210,0) 232.99^M^1.199251356^176.712721^0.040368149 "DATA",22713,4,"D",211,0) 233.99^M^1.19335477^176.733743^0.040365456 "DATA",22713,4,"D",212,0) 234.99^M^1.188019859^176.753807^0.040363795 "DATA",22713,4,"D",213,0) 235.99^M^1.183213059^176.7729657^0.04036308 "DATA",22713,4,"D",214,0) 236.99^M^1.178901998^176.7912687^0.040363233 "DATA",22713,4,"D",215,0) 237.99^M^1.175055543^176.8087622^0.040364179 "DATA",22713,4,"D",216,0) 238.99^M^1.171643828^176.8254895^0.04036585 "DATA",22713,4,"D",217,0) 239.99^M^1.16863827^176.8414914^0.04036818 "DATA",22713,4,"D",218,0) 240^M^1.167279219^176.8492322^0.040369574 "DATA",22713,4,"D",219,0) 24^F^1.07244896^84.97555512^0.040791394 "DATA",22713,4,"D",220,0) 24.99^F^1.051272912^85.3973169^0.040859727 "DATA",22713,4,"D",221,0) 25.99^F^1.041951175^86.29026318^0.041142161 "DATA",22713,4,"D",222,0) 26.99^F^1.012592236^87.15714182^0.041349399 "DATA",22713,4,"D",223,0) 27.99^F^0.970541909^87.9960184^0.041500428 "DATA",22713,4,"D",224,0) 28.99^F^0.921129988^88.8055115^0.041610508 "DATA",22713,4,"D",225,0) 29.99^F^0.868221392^89.58476689^0.041691761 "DATA",22713,4,"D",226,0) 30.99^F^0.81454413^90.33341722^0.04175368 "DATA",22713,4,"D",227,0) 31.99^F^0.761957977^91.0515436^0.041803562 "DATA",22713,4,"D",228,0) 32.99^F^0.711660228^91.7396352^0.041846882 "DATA",22713,4,"D",229,0) 33.99^F^0.664323379^92.39854429^0.041887626 "DATA",22713,4,"D",230,0) 34.99^F^0.620285102^93.02945392^0.041928568 "DATA",22713,4,"D",231,0) 35.99^F^0.57955631^93.63382278^0.041971514 "DATA",22713,4,"D",232,0) 36.99^F^0.54198094^94.21335709^0.042017509 "DATA",22713,4,"D",233,0) 37.99^F^0.511429832^94.79643239^0.042104522 "DATA",22713,4,"D",234,0) 38.99^F^0.482799937^95.37391918^0.042199507 "DATA",22713,4,"D",235,0) 39.99^F^0.455521041^95.94692677^0.042300333 "DATA",22713,4,"D",236,0) 40.99^F^0.429150288^96.51644912^0.042405225 "DATA",22713,4,"D",237,0) 41.99^F^0.403351725^97.08337211^0.042512706 "DATA",22713,4,"D",238,0) 42.99^F^0.377878239^97.6484807^0.042621565 "DATA",22713,4,"D",239,0) 43.99^F^0.352555862^98.21246579^0.042730809 "DATA",22713,4,"D",240,0) 44.99^F^0.327270297^98.77593069^0.042839638 "DATA",22713,4,"D",241,0) 45.99^F^0.301955463^99.33939735^0.042947412 "DATA",22713,4,"D",242,0) 46.99^F^0.276583851^99.9033122^0.043053626 "DATA",22713,4,"D",243,0) 47.99^F^0.251158446^100.4680516^0.043157889 "DATA",22713,4,"D",244,0) 48.99^F^0.225705996^101.033927^0.043259907 "DATA",22713,4,"D",245,0) 49.99^F^0.20027145^101.6011898^0.043359463 "DATA",22713,4,"D",246,0) 50.99^F^0.174913356^102.1700358^0.043456406 "DATA",22713,4,"D",247,0) 51.99^F^0.149700081^102.7406094^0.043550638 "DATA",22713,4,"D",248,0) 52.99^F^0.12470671^103.3130077^0.043642107 "DATA",22713,4,"D",249,0) 53.99^F^0.100012514^103.8872839^0.043730791 "DATA",22713,4,"D",250,0) 54.99^F^0.075698881^104.4634511^0.043816701 "DATA",22713,4,"D",251,0) 55.99^F^0.051847635^105.0414853^0.043899867 "DATA",22713,4,"D",252,0) 56.99^F^0.02853967^105.6213287^0.043980337 "DATA",22713,4,"D",253,0) 57.99^F^0.005853853^106.2028921^0.044058171 "DATA",22713,4,"D",254,0) 58.99^F^-0.016133871^106.7860583^0.04413344 "DATA",22713,4,"D",255,0) 59.99^F^-0.037351181^107.3706841^0.044206218 "DATA",22713,4,"D",256,0) 60.99^F^-0.057729947^107.9566031^0.044276588 "DATA",22713,4,"D",257,0) 61.99^F^-0.077206672^108.5436278^0.044344632 "DATA",22713,4,"D",258,0) 62.99^F^-0.09572283^109.1315521^0.044410436 "DATA",22713,4,"D",259,0) 63.99^F^-0.113225128^109.7201531^0.044474084 "DATA",22713,4,"D",260,0) 64.99^F^-0.129665689^110.3091934^0.044535662 "DATA",22713,4,"D",261,0) 65.99^F^-0.145002179^110.8984228^0.044595254 "DATA",22713,4,"D",262,0) 66.99^F^-0.159197885^111.4875806^0.044652942 "DATA",22713,4,"D",263,0) 67.99^F^-0.172221748^112.0763967^0.044708809 "DATA",22713,4,"D",264,0) 68.99^F^-0.184048358^112.6645943^0.044762936 "DATA",22713,4,"D",265,0) 69.99^F^-0.194660215^113.2518902^0.044815402 "DATA",22713,4,"D",266,0) 70.99^F^-0.204030559^113.8380006^0.044866288 "DATA",22713,4,"D",267,0) 71.99^F^-0.212174408^114.4226317^0.044915672 "DATA",22713,4,"D",268,0) 72.99^F^-0.219069129^115.0054978^0.044963636 "DATA",22713,4,"D",269,0) 73.99^F^-0.224722166^115.5863089^0.045010259 "DATA",22713,4,"D",270,0) 74.99^F^-0.229140412^116.1647782^0.045055624 "DATA",22713,4,"D",271,0) 75.99^F^-0.232335686^116.7406221^0.045099817 "DATA",22713,4,"D",272,0) 76.99^F^-0.234324563^117.3135622^0.045142924 "DATA",22713,4,"D",273,0) 77.99^F^-0.235128195^117.8833259^0.045185036 "DATA",22713,4,"D",274,0) 78.99^F^-0.234772114^118.4496481^0.045226249 "DATA",22713,4,"D",275,0) 79.99^F^-0.233286033^119.0122722^0.045266662 "DATA",22713,4,"D",276,0) 80.99^F^-0.230703633^119.5709513^0.045306383 "DATA",22713,4,"D",277,0) 81.99^F^-0.227062344^120.1254495^0.045345524 "DATA",22713,4,"D",278,0) 82.99^F^-0.222403111^120.6755427^0.045384203 "DATA",22713,4,"D",279,0) 83.99^F^-0.216770161^121.22102^0.045422551 "DATA",22713,4,"D",280,0) 84.99^F^-0.210210748^121.7616844^0.045460702 "DATA",22713,4,"D",281,0) 85.99^F^-0.202774891^122.2973542^0.045498803 "DATA",22713,4,"D",282,0) 86.99^F^-0.194515104^122.827864^0.045537012 "DATA",22713,4,"D",283,0) 87.99^F^-0.185486099^123.3530652^0.045575495 "DATA",22713,4,"D",284,0) 88.99^F^-0.175744476^123.8728276^0.045614432 "DATA",22713,4,"D",285,0) 89.99^F^-0.165348396^124.38704^0.045654016 "DATA",22713,4,"D",286,0) 90.99^F^-0.15435722^124.8956114^0.04569445 "DATA",22713,4,"D",287,0) 91.99^F^-0.142831123^125.398472^0.045735953 "DATA",22713,4,"D",288,0) 92.99^F^-0.130830669^125.895574^0.045778759 "DATA",22713,4,"D",289,0) 93.99^F^-0.118416354^126.3868929^0.045823114 "DATA",22713,4,"D",290,0) 94.99^F^-0.105648092^126.8724284^0.04586928 "DATA",22713,4,"D",291,0) 95.99^F^-0.092584657^127.3522056^0.045917535 "DATA",22713,4,"D",292,0) 96.99^F^-0.079283065^127.8262759^0.045968169 "DATA",22713,4,"D",293,0) 97.99^F^-0.065797888^128.2947187^0.04602149 "DATA",22713,4,"D",294,0) 98.99^F^-0.0521805^128.757642^0.046077818 "DATA",22713,4,"D",295,0) 99.99^F^-0.03847825^129.2151839^0.046137487 "DATA",22713,4,"D",296,0) 100.99^F^-0.024733545^129.6675143^0.046200842 "DATA",22713,4,"D",297,0) 101.99^F^-0.010982868^130.1148354^0.04626824 "DATA",22713,4,"D",298,0) 102.99^F^0.002744306^130.5573839^0.046340046 "DATA",22713,4,"D",299,0) 103.99^F^0.016426655^130.995432^0.046416629 "DATA",22713,4,"D",300,0) 104.99^F^0.030052231^131.4292887^0.046498361 "DATA",22713,4,"D",301,0) 105.99^F^0.043619747^131.8593015^0.046585611 "DATA",22713,4,"D",302,0) 106.99^F^0.05713988^132.2858574^0.046678741 "DATA",22713,4,"D",303,0) 107.99^F^0.070636605^132.7093845^0.046778099 "DATA",22713,4,"D",304,0) 108.99^F^0.08414848^133.1303527^0.04688401 "DATA",22713,4,"D",305,0) 109.99^F^0.097729873^133.5492749^0.046996769 "DATA",22713,4,"D",306,0) 110.99^F^0.111452039^133.9667073^0.047116633 "DATA",22713,4,"D",307,0) 111.99^F^0.125404005^134.3832499^0.047243801 "DATA",22713,4,"D",308,0) 112.99^F^0.13969316^134.7995463^0.047378413 "DATA",22713,4,"D",309,0) 113.99^F^0.154445482^135.2162826^0.047520521 "DATA",22713,4,"D",310,0) 114.99^F^0.169805275^135.634186^0.047670085 "DATA",22713,4,"D",311,0) 115.99^F^0.185934346^136.0540223^0.047826946 "DATA",22713,4,"D",312,0) 116.99^F^0.203010488^136.4765925^0.04799081 "DATA",22713,4,"D",313,0) 117.99^F^0.2212252^136.9027281^0.048161228 "DATA",22713,4,"D",314,0) 118.99^F^0.240780542^137.3332846^0.04833757 "DATA",22713,4,"D",315,0) 119.99^F^0.261885086^137.7691339^0.048519011 "DATA",22713,4,"D",316,0) 120.99^F^0.284748919^138.2111552^0.048704503 "DATA",22713,4,"D",317,0) 121.99^F^0.309577733^138.6602228^0.048892759 "DATA",22713,4,"D",318,0) 122.99^F^0.336566048^139.1171933^0.049082239 "DATA",22713,4,"D",319,0) 123.99^F^0.365889711^139.5828898^0.049271137 "DATA",22713,4,"D",320,0) 124.99^F^0.397699038^140.0580848^0.049457371 "DATA",22713,4,"D",321,0) 125.99^F^0.432104409^140.5434787^0.049638596 "DATA",22713,4,"D",322,0) 126.99^F^0.46917993^141.0396832^0.049812203 "DATA",22713,4,"D",323,0) 127.99^F^0.508943272^141.5471945^0.049975355 "DATA",22713,4,"D",324,0) 128.99^F^0.551354277^142.0663731^0.050125012 "DATA",22713,4,"D",325,0) 129.99^F^0.596307363^142.59742^0.050257992 "DATA",22713,4,"D",326,0) 130.99^F^0.643626542^143.1403553^0.050371024 "DATA",22713,4,"D",327,0) 131.99^F^0.693062173^143.6949981^0.050460835 "DATA",22713,4,"D",328,0) 132.99^F^0.744289752^144.2609497^0.050524236 "DATA",22713,4,"D",329,0) 133.99^F^0.79691098^144.8375809^0.050558224 "DATA",22713,4,"D",330,0) 134.99^F^0.85045728^145.4240246^0.050560083 "DATA",22713,4,"D",331,0) 135.99^F^0.904395871^146.0191748^0.050527494 "DATA",22713,4,"D",332,0) 136.99^F^0.958138449^146.621692^0.050458634 "DATA",22713,4,"D",333,0) 137.99^F^1.011054559^147.2300177^0.050352269 "DATA",22713,4,"D",334,0) 138.99^F^1.062474568^147.8423918^0.050207825 "DATA",22713,4,"D",335,0) 139.99^F^1.111727029^148.4568879^0.050025434 "DATA",22713,4,"D",336,0) 140.99^F^1.158135105^149.0714413^0.049805967 "DATA",22713,4,"D",337,0) 141.99^F^1.201050821^149.6838943^0.049551023 "DATA",22713,4,"D",338,0) 142.99^F^1.239852328^150.2920328^0.049262895 "DATA",22713,4,"D",339,0) 143.99^F^1.274006058^150.8936469^0.048944504 "DATA",22713,4,"D",340,0) 144.99^F^1.303044695^151.4865636^0.048599314 "DATA",22713,4,"D",341,0) 145.99^F^1.326605954^152.0686985^0.048231224 "DATA",22713,4,"D",342,0) 146.99^F^1.344443447^152.6380955^0.047844442 "DATA",22713,4,"D",343,0) 147.99^F^1.356437773^153.1929631^0.047443362 "DATA",22713,4,"D",344,0) 148.99^F^1.362602695^153.7317031^0.04703243 "DATA",22713,4,"D",345,0) 149.99^F^1.363085725^154.2529332^0.046616026 "DATA",22713,4,"D",346,0) 150.99^F^1.358162799^154.755501^0.046198356 "DATA",22713,4,"D",347,0) 151.99^F^1.348227142^155.2384904^0.04578335 "DATA",22713,4,"D",348,0) 152.99^F^1.333772923^155.7012216^0.045374597 "DATA",22713,4,"D",349,0) 153.99^F^1.315374704^156.1432438^0.044975281 "DATA",22713,4,"D",350,0) 154.99^F^1.293664024^156.564323^0.044588148 "DATA",22713,4,"D",351,0) 155.99^F^1.269304678^156.9644258^0.044215488 "DATA",22713,4,"D",352,0) 156.99^F^1.242968236^157.3436995^0.043859135 "DATA",22713,4,"D",353,0) 157.99^F^1.21531127^157.7024507^0.04352048 "DATA",22713,4,"D",354,0) 158.99^F^1.186955477^158.0411233^0.043200497 "DATA",22713,4,"D",355,0) 159.99^F^1.158471522^158.3602756^0.042899776 "DATA",22713,4,"D",356,0) 160.99^F^1.130367088^158.6605588^0.042618565 "DATA",22713,4,"D",357,0) 161.99^F^1.103079209^158.9426964^0.042356812 "DATA",22713,4,"D",358,0) 162.99^F^1.076970655^159.2074654^0.042114211 "DATA",22713,4,"D",359,0) 163.99^F^1.052329922^159.455679^0.041890247 "DATA",22713,4,"D",360,0) 164.99^F^1.029374161^159.688172^0.04168424 "DATA",22713,4,"D",361,0) 165.99^F^1.008254396^159.9057871^0.041495379 "DATA",22713,4,"D",362,0) 166.99^F^0.989062282^160.1093647^0.041322765 "DATA",22713,4,"D",363,0) 167.99^F^0.971837799^160.299733^0.041165437 "DATA",22713,4,"D",364,0) 168.99^F^0.95657215^160.4776996^0.041022401 "DATA",22713,4,"D",365,0) 169.99^F^0.94324228^160.6440526^0.040892651 "DATA",22713,4,"D",366,0) 170.99^F^0.931767062^160.7995428^0.040775193 "DATA",22713,4,"D",367,0) 171.99^F^0.922058291^160.9448916^0.040669052 "DATA",22713,4,"D",368,0) 172.99^F^0.914012643^161.0807857^0.040573288 "DATA",22713,4,"D",369,0) 173.99^F^0.907516917^161.2078755^0.040487005 "DATA",22713,4,"D",370,0) 174.99^F^0.902452436^161.3267744^0.040409354 "DATA",22713,4,"D",371,0) 175.99^F^0.898698641^161.4380593^0.040339537 "DATA",22713,4,"D",372,0) 176.99^F^0.896143482^161.5422726^0.040276811 "DATA",22713,4,"D",373,0) 177.99^F^0.894659668^161.639917^0.040220488 "DATA",22713,4,"D",374,0) 178.99^F^0.89413892^161.7314645^0.040169932 "DATA",22713,4,"D",375,0) 179.99^F^0.894475371^161.8173534^0.040124562 "DATA",22713,4,"D",376,0) 180.99^F^0.895569834^161.8979913^0.040083845 "DATA",22713,4,"D",377,0) 181.99^F^0.897330209^161.9737558^0.040047295 "DATA",22713,4,"D",378,0) 182.99^F^0.899671635^162.0449969^0.040014473 "DATA",22713,4,"D",379,0) 183.99^F^0.902516442^162.1120386^0.03998498 "DATA",22713,4,"D",380,0) 184.99^F^0.905793969^162.17518^0.039958458 "DATA",22713,4,"D",381,0) 185.99^F^0.909440266^162.2346979^0.039934584 "DATA",22713,4,"D",382,0) 186.99^F^0.913397733^162.2908474^0.039913066 "DATA",22713,4,"D",383,0) 187.99^F^0.91761471^162.343864^0.039893644 "DATA",22713,4,"D",384,0) 188.99^F^0.922045055^162.3939652^0.039876087 "DATA",22713,4,"D",385,0) 189.99^F^0.926647697^162.4413513^0.039860185 "DATA",22713,4,"D",386,0) 190.99^F^0.931386217^162.4862071^0.039845754 "DATA",22713,4,"D",387,0) 191.99^F^0.93622842^162.5287029^0.039832629 "DATA",22713,4,"D",388,0) 192.99^F^0.941145943^162.5689958^0.039820663 "DATA",22713,4,"D",389,0) 193.99^F^0.94611388^162.6072309^0.039809725 "DATA",22713,4,"D",390,0) 194.99^F^0.95111043^162.6435418^0.0397997 "DATA",22713,4,"D",391,0) 195.99^F^0.956116576^162.6780519^0.039790485 "DATA",22713,4,"D",392,0) 196.99^F^0.961115792^162.7108751^0.039781991 "DATA",22713,4,"D",393,0) 197.99^F^0.966093766^162.7421168^0.039774136 "DATA",22713,4,"D",394,0) 198.99^F^0.971038162^162.7718741^0.03976685 "DATA",22713,4,"D",395,0) 199.99^F^0.975938391^162.8002371^0.03976007 "DATA",22713,4,"D",396,0) 200.99^F^0.980785418^162.8272889^0.039753741 "DATA",22713,4,"D",397,0) 201.99^F^0.985571579^162.8531067^0.039747815 "DATA",22713,4,"D",398,0) 202.99^F^0.99029042^162.8777619^0.039742249 "DATA",22713,4,"D",399,0) 203.99^F^0.994936555^162.9013208^0.039737004 "DATA",22713,4,"D",400,0) 204.99^F^0.999505539^162.9238449^0.039732048 "DATA",22713,4,"D",401,0) 205.99^F^1.003993753^162.9453912^0.039727352 "DATA",22713,4,"D",402,0) 206.99^F^1.0083983^162.9660131^0.03972289 "DATA",22713,4,"D",403,0) 207.99^F^1.012716921^162.9857599^0.03971864 "DATA",22713,4,"D",404,0) 208.99^F^1.016947912^163.0046776^0.039714581 "DATA",22713,4,"D",405,0) 209.99^F^1.021090055^163.0228094^0.039710697 "DATA",22713,4,"D",406,0) 210.99^F^1.025142554^163.0401953^0.039706971 "DATA",22713,4,"D",407,0) 211.99^F^1.029104983^163.0568727^0.039703391 "DATA",22713,4,"D",408,0) 212.99^F^1.032977233^163.0728768^0.039699945 "DATA",22713,4,"D",409,0) 213.99^F^1.036759475^163.0882404^0.039696623 "DATA",22713,4,"D",410,0) 214.99^F^1.040452117^163.1029943^0.039693415 "DATA",22713,4,"D",411,0) 215.99^F^1.044055774^163.1171673^0.039690313 "DATA",22713,4,"D",412,0) 216.99^F^1.047571238^163.1307866^0.039687311 "DATA",22713,4,"D",413,0) 217.99^F^1.050999451^163.1438776^0.039684402 "DATA",22713,4,"D",414,0) 218.99^F^1.054341482^163.1564644^0.039681581 "DATA",22713,4,"D",415,0) 219.99^F^1.057598512^163.1685697^0.039678842 "DATA",22713,4,"D",416,0) 220.99^F^1.060771808^163.1802146^0.039676182 "DATA",22713,4,"D",417,0) 221.99^F^1.063862715^163.1914194^0.039673596 "DATA",22713,4,"D",418,0) 222.99^F^1.066872639^163.202203^0.039671082 "DATA",22713,4,"D",419,0) 223.99^F^1.069803036^163.2125835^0.039668635 "DATA",22713,4,"D",420,0) 224.99^F^1.072655401^163.2225779^0.039666254 "DATA",22713,4,"D",421,0) 225.99^F^1.075431258^163.2322024^0.039663936 "DATA",22713,4,"D",422,0) 226.99^F^1.078132156^163.2414722^0.039661679 "DATA",22713,4,"D",423,0) 227.99^F^1.080759655^163.2504019^0.039659481 "DATA",22713,4,"D",424,0) 228.99^F^1.083315329^163.2590052^0.039657339 "DATA",22713,4,"D",425,0) 229.99^F^1.085800751^163.2672954^0.039655252 "DATA",22713,4,"D",426,0) 230.99^F^1.088217496^163.2752848^0.039653218 "DATA",22713,4,"D",427,0) 231.99^F^1.090567133^163.2829854^0.039651237 "DATA",22713,4,"D",428,0) 232.99^F^1.092851222^163.2904086^0.039649306 "DATA",22713,4,"D",429,0) 233.99^F^1.095071313^163.297565^0.039647424 "DATA",22713,4,"D",430,0) 234.99^F^1.097228939^163.304465^0.039645591 "DATA",22713,4,"D",431,0) 235.99^F^1.099325619^163.3111185^0.039643804 "DATA",22713,4,"D",432,0) 236.99^F^1.101362852^163.3175349^0.039642063 "DATA",22713,4,"D",433,0) 237.99^F^1.103342119^163.3237231^0.039640367 "DATA",22713,4,"D",434,0) 238.99^F^1.105264876^163.3296918^0.039638715 "DATA",22713,4,"D",435,0) 239.99^F^1.107132561^163.3354491^0.039637105 "DATA",22713,4,"D",436,0) 240^F^1.108046193^163.338251^0.039636316 "DATA",22713,5,0) WEIGHT BY AGE^AGE^MONTHS^WEIGHT^KG^2-20Y "DATA",22713,5,1) https://spreadsheets.google.com/ccc?key=0As02V5OYrjbucFhfa0dnc0FTMjlhNE15ajR3QU9mTkE&hl=en "DATA",22713,5,2) WTAGE "DATA",22713,5,"D",0) ^22713.02A^436^436 "DATA",22713,5,"D",1,0) 24^M^-0.20615245^12.6707633^0.108125811 "DATA",22713,5,"D",2,0) 24.99^M^-0.216501213^12.74154396^0.108166006 "DATA",22713,5,"D",3,0) 25.99^M^-0.239790488^12.88102276^0.108274706 "DATA",22713,5,"D",4,0) 26.99^M^-0.266315853^13.01842382^0.108421025 "DATA",22713,5,"D",5,0) 27.99^M^-0.295754969^13.1544966^0.10860477 "DATA",22713,5,"D",6,0) 28.99^M^-0.327729368^13.28989667^0.108825681 "DATA",22713,5,"D",7,0) 29.99^M^-0.361817468^13.42519408^0.109083424 "DATA",22713,5,"D",8,0) 30.99^M^-0.397568087^13.56088113^0.109377581 "DATA",22713,5,"D",9,0) 31.99^M^-0.434520252^13.69737858^0.109707646 "DATA",22713,5,"D",10,0) 32.99^M^-0.472188756^13.83504622^0.110073084 "DATA",22713,5,"D",11,0) 33.99^M^-0.510116627^13.97418299^0.110473254 "DATA",22713,5,"D",12,0) 34.99^M^-0.547885579^14.1150324^0.1109074 "DATA",22713,5,"D",13,0) 35.99^M^-0.58507011^14.25779618^0.111374787 "DATA",22713,5,"D",14,0) 36.99^M^-0.621319726^14.40262749^0.111874514 "DATA",22713,5,"D",15,0) 37.99^M^-0.656295986^14.54964614^0.112405687 "DATA",22713,5,"D",16,0) 38.99^M^-0.689735029^14.69893326^0.112967254 "DATA",22713,5,"D",17,0) 39.99^M^-0.721410388^14.85054151^0.11355811 "DATA",22713,5,"D",18,0) 40.99^M^-0.751175223^15.00449143^0.114176956 "DATA",22713,5,"D",19,0) 41.99^M^-0.778904279^15.16078454^0.114822482 "DATA",22713,5,"D",20,0) 42.99^M^-0.804515498^15.31940246^0.115493292 "DATA",22713,5,"D",21,0) 43.99^M^-0.828003255^15.48030313^0.116187777 "DATA",22713,5,"D",22,0) 44.99^M^-0.849380372^15.64343309^0.116904306 "DATA",22713,5,"D",23,0) 45.99^M^-0.86869965^15.80872535^0.117641148 "DATA",22713,5,"D",24,0) 46.99^M^-0.886033992^15.97610456^0.118396541 "DATA",22713,5,"D",25,0) 47.99^M^-0.901507878^16.14548194^0.119168555 "DATA",22713,5,"D",26,0) 48.99^M^-0.915241589^16.31676727^0.11995532 "DATA",22713,5,"D",27,0) 49.99^M^-0.927377772^16.4898646^0.120754916 "DATA",22713,5,"D",28,0) 50.99^M^-0.938069819^16.66467529^0.121565421 "DATA",22713,5,"D",29,0) 51.99^M^-0.94747794^16.84109948^0.122384927 "DATA",22713,5,"D",30,0) 52.99^M^-0.955765694^17.01903746^0.123211562 "DATA",22713,5,"D",31,0) 53.99^M^-0.963096972^17.1983908^0.124043503 "DATA",22713,5,"D",32,0) 54.99^M^-0.969633434^17.37906341^0.124878992 "DATA",22713,5,"D",33,0) 55.99^M^-0.975532355^17.56096245^0.125716348 "DATA",22713,5,"D",34,0) 56.99^M^-0.980937915^17.74400082^0.126554022 "DATA",22713,5,"D",35,0) 57.99^M^-0.986006518^17.92809121^0.127390453 "DATA",22713,5,"D",36,0) 58.99^M^-0.99086694^18.11315625^0.128224294 "DATA",22713,5,"D",37,0) 59.99^M^-0.995644402^18.29912286^0.129054277 "DATA",22713,5,"D",38,0) 60.99^M^-1.000453886^18.48592413^0.129879257 "DATA",22713,5,"D",39,0) 61.99^M^-1.005399668^18.67349965^0.130698212 "DATA",22713,5,"D",40,0) 62.99^M^-1.010575003^18.86179576^0.131510245 "DATA",22713,5,"D",41,0) 63.99^M^-1.016061941^19.05076579^0.132314586 "DATA",22713,5,"D",42,0) 64.99^M^-1.021931241^19.24037019^0.133110593 "DATA",22713,5,"D",43,0) 65.99^M^-1.028242376^19.43057662^0.133897752 "DATA",22713,5,"D",44,0) 66.99^M^-1.035043608^19.62136007^0.134675673 "DATA",22713,5,"D",45,0) 67.99^M^-1.042372125^19.8127028^0.13544409 "DATA",22713,5,"D",46,0) 68.99^M^-1.050254232^20.0045944^0.13620286 "DATA",22713,5,"D",47,0) 69.99^M^-1.058705595^20.19703171^0.136951959 "DATA",22713,5,"D",48,0) 70.99^M^-1.067731529^20.39001872^0.137691478 "DATA",22713,5,"D",49,0) 71.99^M^-1.077321193^20.58356862^0.138421673 "DATA",22713,5,"D",50,0) 72.99^M^-1.087471249^20.77769565^0.139142773 "DATA",22713,5,"D",51,0) 73.99^M^-1.098152984^20.97242631^0.139855242 "DATA",22713,5,"D",52,0) 74.99^M^-1.10933408^21.16779192^0.140559605 "DATA",22713,5,"D",53,0) 75.99^M^-1.120974043^21.36383013^0.141256489 "DATA",22713,5,"D",54,0) 76.99^M^-1.133024799^21.56058467^0.141946613 "DATA",22713,5,"D",55,0) 77.99^M^-1.145431351^21.75810506^0.142630785 "DATA",22713,5,"D",56,0) 78.99^M^-1.158132499^21.95644627^0.143309898 "DATA",22713,5,"D",57,0) 79.99^M^-1.171061612^22.15566842^0.143984924 "DATA",22713,5,"D",58,0) 80.99^M^-1.184141975^22.35583862^0.144656953 "DATA",22713,5,"D",59,0) 81.99^M^-1.197307185^22.55702268^0.145327009 "DATA",22713,5,"D",60,0) 82.99^M^-1.210475099^22.75929558^0.145996289 "DATA",22713,5,"D",61,0) 83.99^M^-1.223565263^22.9627344^0.146666 "DATA",22713,5,"D",62,0) 84.99^M^-1.236497304^23.16741888^0.147337375 "DATA",22713,5,"D",63,0) 85.99^M^-1.249186293^23.37343341^0.148011715 "DATA",22713,5,"D",64,0) 86.99^M^-1.261555446^23.58086145^0.148690256 "DATA",22713,5,"D",65,0) 87.99^M^-1.273523619^23.78979096^0.149374297 "DATA",22713,5,"D",66,0) 88.99^M^-1.285013783^24.00031064^0.150065107 "DATA",22713,5,"D",67,0) 89.99^M^-1.295952066^24.21251028^0.150763933 "DATA",22713,5,"D",68,0) 90.99^M^-1.306268473^24.42648043^0.151471982 "DATA",22713,5,"D",69,0) 91.99^M^-1.31589753^24.642312^0.152190413 "DATA",22713,5,"D",70,0) 92.99^M^-1.324778843^24.86009596^0.152920322 "DATA",22713,5,"D",71,0) 93.99^M^-1.332857581^25.07992303^0.153662731 "DATA",22713,5,"D",72,0) 94.99^M^-1.340080195^25.30188584^0.154418635 "DATA",22713,5,"D",73,0) 95.99^M^-1.346412105^25.52606977^0.155188768 "DATA",22713,5,"D",74,0) 96.99^M^-1.351813296^25.75256528^0.155973912 "DATA",22713,5,"D",75,0) 97.99^M^-1.356253969^25.9814599^0.156774684 "DATA",22713,5,"D",76,0) 98.99^M^-1.359710858^26.2128399^0.157591579 "DATA",22713,5,"D",77,0) 99.99^M^-1.362167159^26.44679027^0.158424964 "DATA",22713,5,"D",78,0) 100.99^M^-1.363612378^26.68339457^0.159275071 "DATA",22713,5,"D",79,0) 101.99^M^-1.364042106^26.92273494^0.160141995 "DATA",22713,5,"D",80,0) 102.99^M^-1.363457829^27.16489199^0.161025689 "DATA",22713,5,"D",81,0) 103.99^M^-1.361865669^27.40994539^0.161925976 "DATA",22713,5,"D",82,0) 104.99^M^-1.35928261^27.65796978^0.162842452 "DATA",22713,5,"D",83,0) 105.99^M^-1.355720571^27.90904433^0.163774719 "DATA",22713,5,"D",84,0) 106.99^M^-1.351202536^28.16324264^0.164722138 "DATA",22713,5,"D",85,0) 107.99^M^-1.345754408^28.42063744^0.165683945 "DATA",22713,5,"D",86,0) 108.99^M^-1.339405453^28.68130005^0.166659247 "DATA",22713,5,"D",87,0) 109.99^M^-1.332188093^28.94530029^0.167647017 "DATA",22713,5,"D",88,0) 110.99^M^-1.324137479^29.21270645^0.168646104 "DATA",22713,5,"D",89,0) 111.99^M^-1.315291073^29.48358527^0.169655235 "DATA",22713,5,"D",90,0) 112.99^M^-1.30568824^29.75800198^0.170673022 "DATA",22713,5,"D",91,0) 113.99^M^-1.295369867^30.03602021^0.17169797 "DATA",22713,5,"D",92,0) 114.99^M^-1.284374967^30.31770417^0.17272854 "DATA",22713,5,"D",93,0) 115.99^M^-1.272750864^30.60311107^0.173762961 "DATA",22713,5,"D",94,0) 116.99^M^-1.260539193^30.89230072^0.174799493 "DATA",22713,5,"D",95,0) 117.99^M^-1.247783611^31.18532984^0.175836284 "DATA",22713,5,"D",96,0) 118.99^M^-1.234527763^31.48225315^0.176871417 "DATA",22713,5,"D",97,0) 119.99^M^-1.220815047^31.78312329^0.177902912 "DATA",22713,5,"D",98,0) 120.99^M^-1.206688407^32.08799062^0.17892874 "DATA",22713,5,"D",99,0) 121.99^M^-1.19219015^32.39690313^0.17994683 "DATA",22713,5,"D",100,0) 122.99^M^-1.177361786^32.7099062^0.180955078 "DATA",22713,5,"D",101,0) 123.99^M^-1.162243894^33.02704244^0.181951361 "DATA",22713,5,"D",102,0) 124.99^M^-1.146876007^33.34835148^0.182933537 "DATA",22713,5,"D",103,0) 125.99^M^-1.131296524^33.67386973^0.183899465 "DATA",22713,5,"D",104,0) 126.99^M^-1.115542634^34.00363017^0.184847006 "DATA",22713,5,"D",105,0) 127.99^M^-1.099650267^34.33766207^0.185774041 "DATA",22713,5,"D",106,0) 128.99^M^-1.083654055^34.67599076^0.18667847 "DATA",22713,5,"D",107,0) 129.99^M^-1.067587314^35.01863732^0.187558229 "DATA",22713,5,"D",108,0) 130.99^M^-1.051482972^35.36561737^0.18841128 "DATA",22713,5,"D",109,0) 131.99^M^-1.035367321^35.71694723^0.189235738 "DATA",22713,5,"D",110,0) 132.99^M^-1.019277299^36.07262569^0.190029545 "DATA",22713,5,"D",111,0) 133.99^M^-1.003235326^36.43265996^0.190790973 "DATA",22713,5,"D",112,0) 134.99^M^-0.987269866^36.79704392^0.191518224 "DATA",22713,5,"D",113,0) 135.99^M^-0.971406609^37.1657671^0.192209619 "DATA",22713,5,"D",114,0) 136.99^M^-0.955670107^37.53881268^0.192863569 "DATA",22713,5,"D",115,0) 137.99^M^-0.940083834^37.91615721^0.193478582 "DATA",22713,5,"D",116,0) 138.99^M^-0.924670244^38.2977703^0.194053274 "DATA",22713,5,"D",117,0) 139.99^M^-0.909450843^38.6836143^0.194586368 "DATA",22713,5,"D",118,0) 140.99^M^-0.894446258^39.07364401^0.195076705 "DATA",22713,5,"D",119,0) 141.99^M^-0.879676305^39.46780643^0.195523246 "DATA",22713,5,"D",120,0) 142.99^M^-0.865160071^39.86604044^0.195925079 "DATA",22713,5,"D",121,0) 143.99^M^-0.850915987^40.26827652^0.196281418 "DATA",22713,5,"D",122,0) 144.99^M^-0.836961905^40.67443658^0.196591612 "DATA",22713,5,"D",123,0) 145.99^M^-0.823315176^41.08443363^0.19685514 "DATA",22713,5,"D",124,0) 146.99^M^-0.809992726^41.49817164^0.19707162 "DATA",22713,5,"D",125,0) 147.99^M^-0.797011132^41.91554528^0.197240806 "DATA",22713,5,"D",126,0) 148.99^M^-0.784386693^42.33643978^0.197362591 "DATA",22713,5,"D",127,0) 149.99^M^-0.772135506^42.76073078^0.197437004 "DATA",22713,5,"D",128,0) 150.99^M^-0.760273528^43.18828419^0.19746421 "DATA",22713,5,"D",129,0) 151.99^M^-0.748815968^43.61895703^0.197444522 "DATA",22713,5,"D",130,0) 152.99^M^-0.737780398^44.0525931^0.197378345 "DATA",22713,5,"D",131,0) 153.99^M^-0.727181568^44.48903027^0.197266263 "DATA",22713,5,"D",132,0) 154.99^M^-0.717035494^44.92809483^0.197108968 "DATA",22713,5,"D",133,0) 155.99^M^-0.707358338^45.36960315^0.196907274 "DATA",22713,5,"D",134,0) 156.99^M^-0.698166437^45.81336172^0.196662115 "DATA",22713,5,"D",135,0) 157.99^M^-0.689476327^46.25916729^0.196374538 "DATA",22713,5,"D",136,0) 158.99^M^-0.68130475^46.70680701^0.196045701 "DATA",22713,5,"D",137,0) 159.99^M^-0.673668658^47.15605863^0.195676862 "DATA",22713,5,"D",138,0) 160.99^M^-0.666585194^47.60669074^0.19526938 "DATA",22713,5,"D",139,0) 161.99^M^-0.660069969^48.05846572^0.19482473 "DATA",22713,5,"D",140,0) 162.99^M^-0.654142602^48.51113138^0.19434441 "DATA",22713,5,"D",141,0) 163.99^M^-0.648819666^48.96443224^0.193830046 "DATA",22713,5,"D",142,0) 164.99^M^-0.644118611^49.41810374^0.193283319 "DATA",22713,5,"D",143,0) 165.99^M^-0.640056805^49.87187409^0.192705974 "DATA",22713,5,"D",144,0) 166.99^M^-0.636651424^50.32546478^0.192099812 "DATA",22713,5,"D",145,0) 167.99^M^-0.633919328^50.77859121^0.191466681 "DATA",22713,5,"D",146,0) 168.99^M^-0.631876912^51.23096332^0.190808471 "DATA",22713,5,"D",147,0) 169.99^M^-0.63053994^51.68228625^0.190127105 "DATA",22713,5,"D",148,0) 170.99^M^-0.629923353^52.13226113^0.18942453 "DATA",22713,5,"D",149,0) 171.99^M^-0.630041066^52.58058583^0.188702714 "DATA",22713,5,"D",150,0) 172.99^M^-0.630905733^53.02695588^0.187963636 "DATA",22713,5,"D",151,0) 173.99^M^-0.632528509^53.47106525^0.187209281 "DATA",22713,5,"D",152,0) 174.99^M^-0.634918779^53.91260737^0.18644163 "DATA",22713,5,"D",153,0) 175.99^M^-0.638083884^54.35127608^0.185662657 "DATA",22713,5,"D",154,0) 176.99^M^-0.642028835^54.78676659^0.184874323 "DATA",22713,5,"D",155,0) 177.99^M^-0.646756013^55.21877657^0.184078567 "DATA",22713,5,"D",156,0) 178.99^M^-0.652262297^55.64701131^0.183277339 "DATA",22713,5,"D",157,0) 179.99^M^-0.658551638^56.07116407^0.182472427 "DATA",22713,5,"D",158,0) 180.99^M^-0.665609025^56.49095862^0.181665781 "DATA",22713,5,"D",159,0) 181.99^M^-0.673425951^56.90610886^0.18085918 "DATA",22713,5,"D",160,0) 182.99^M^-0.681987284^57.31634059^0.180054395 "DATA",22713,5,"D",161,0) 183.99^M^-0.691273614^57.72138846^0.179253153 "DATA",22713,5,"D",162,0) 184.99^M^-0.701261055^58.12099696^0.178457127 "DATA",22713,5,"D",163,0) 185.99^M^-0.711921092^58.51492143^0.177667942 "DATA",22713,5,"D",164,0) 186.99^M^-0.723218488^58.90293208^0.176887192 "DATA",22713,5,"D",165,0) 187.99^M^-0.735121189^59.28479948^0.176116307 "DATA",22713,5,"D",166,0) 188.99^M^-0.747580416^59.66032626^0.175356814 "DATA",22713,5,"D",167,0) 189.99^M^-0.760550666^60.02931704^0.174610071 "DATA",22713,5,"D",168,0) 190.99^M^-0.773984558^60.39158721^0.173877336 "DATA",22713,5,"D",169,0) 191.99^M^-0.787817728^60.74698785^0.173159953 "DATA",22713,5,"D",170,0) 192.99^M^-0.801993069^61.09536847^0.172459052 "DATA",22713,5,"D",171,0) 193.99^M^-0.816446409^61.43660077^0.171775726 "DATA",22713,5,"D",172,0) 194.99^M^-0.831110299^61.77057372^0.171110986 "DATA",22713,5,"D",173,0) 195.99^M^-0.845914498^62.09719399^0.170465756 "DATA",22713,5,"D",174,0) 196.99^M^-0.860786514^62.41638628^0.169840869 "DATA",22713,5,"D",175,0) 197.99^M^-0.875652181^62.72809362^0.169237063 "DATA",22713,5,"D",176,0) 198.99^M^-0.890436283^63.03227756^0.168654971 "DATA",22713,5,"D",177,0) 199.99^M^-0.905063185^63.32891841^0.168095124 "DATA",22713,5,"D",178,0) 200.99^M^-0.91945749^63.61801537^0.16755794 "DATA",22713,5,"D",179,0) 201.99^M^-0.933544683^63.89958662^0.167043722 "DATA",22713,5,"D",180,0) 202.99^M^-0.947251765^64.17366943^0.166552654 "DATA",22713,5,"D",181,0) 203.99^M^-0.960507855^64.44032016^0.166084798 "DATA",22713,5,"D",182,0) 204.99^M^-0.973244762^64.69961427^0.16564009 "DATA",22713,5,"D",183,0) 205.99^M^-0.985397502^64.95164625^0.165218341 "DATA",22713,5,"D",184,0) 206.99^M^-0.996904762^65.1965295^0.164819236 "DATA",22713,5,"D",185,0) 207.99^M^-1.007705555^65.43440186^0.16444238 "DATA",22713,5,"D",186,0) 208.99^M^-1.017756047^65.66540015^0.164087103 "DATA",22713,5,"D",187,0) 209.99^M^-1.027002713^65.88970117^0.163752791 "DATA",22713,5,"D",188,0) 210.99^M^-1.035402243^66.10749114^0.163438661 "DATA",22713,5,"D",189,0) 211.99^M^-1.042916356^66.31897311^0.163143825 "DATA",22713,5,"D",190,0) 212.99^M^-1.049511871^66.52436618^0.162867311 "DATA",22713,5,"D",191,0) 213.99^M^-1.055160732^66.72390443^0.162608072 "DATA",22713,5,"D",192,0) 214.99^M^-1.059840019^66.91783563^0.162365006 "DATA",22713,5,"D",193,0) 215.99^M^-1.063531973^67.10641956^0.162136973 "DATA",22713,5,"D",194,0) 216.99^M^-1.066224038^67.28992603^0.161922819 "DATA",22713,5,"D",195,0) 217.99^M^-1.067908908^67.46863255^0.161721398 "DATA",22713,5,"D",196,0) 218.99^M^-1.068589885^67.64281378^0.16153153 "DATA",22713,5,"D",197,0) 219.99^M^-1.068261146^67.8127675^0.161352313 "DATA",22713,5,"D",198,0) 220.99^M^-1.066933756^67.97877331^0.161182785 "DATA",22713,5,"D",199,0) 221.99^M^-1.064620976^68.14111022^0.161022184 "DATA",22713,5,"D",200,0) 222.99^M^-1.061341755^68.30004741^0.160869943 "DATA",22713,5,"D",201,0) 223.99^M^-1.057116957^68.4558454^0.160725793 "DATA",22713,5,"D",202,0) 224.99^M^-1.051988979^68.60872174^0.160589574 "DATA",22713,5,"D",203,0) 225.99^M^-1.04599033^68.75889263^0.1604617 "DATA",22713,5,"D",204,0) 226.99^M^-1.039168248^68.90653028^0.160342924 "DATA",22713,5,"D",205,0) 227.99^M^-1.031579574^69.05176427^0.160234478 "DATA",22713,5,"D",206,0) 228.99^M^-1.023291946^69.19467288^0.160138158 "DATA",22713,5,"D",207,0) 229.99^M^-1.014385118^69.33527376^0.160056393 "DATA",22713,5,"D",208,0) 230.99^M^-1.004952366^69.47351373^0.159992344 "DATA",22713,5,"D",209,0) 231.99^M^-0.995101924^69.60925782^0.159949989 "DATA",22713,5,"D",210,0) 232.99^M^-0.984958307^69.74227758^0.159934231 "DATA",22713,5,"D",211,0) 233.99^M^-0.974663325^69.87223885^0.159951004 "DATA",22713,5,"D",212,0) 234.99^M^-0.964376555^69.99868896^0.160007394 "DATA",22713,5,"D",213,0) 235.99^M^-0.954274945^70.12104381^0.160111769 "DATA",22713,5,"D",214,0) 236.99^M^-0.944551187^70.23857482^0.160273918 "DATA",22713,5,"D",215,0) 237.99^M^-0.935410427^70.35039626^0.160505203 "DATA",22713,5,"D",216,0) 238.99^M^-0.927059784^70.45546105^0.160818788 "DATA",22713,5,"D",217,0) 239.99^M^-0.919718461^70.55252127^0.161229617 "DATA",22713,5,"D",218,0) 240^M^-0.91648762^70.59761453^0.161476792 "DATA",22713,5,"D",219,0) 24^F^-0.73533951^12.05503983^0.107399495 "DATA",22713,5,"D",220,0) 24.99^F^-0.75220657^12.13455523^0.107740345 "DATA",22713,5,"D",221,0) 25.99^F^-0.78423366^12.2910249^0.10847701 "DATA",22713,5,"D",222,0) 26.99^F^-0.81409582^12.44469258^0.109280828 "DATA",22713,5,"D",223,0) 27.99^F^-0.841935504^12.59622335^0.110144488 "DATA",22713,5,"D",224,0) 28.99^F^-0.867889398^12.74620911^0.111060815 "DATA",22713,5,"D",225,0) 29.99^F^-0.892102647^12.89517218^0.112022759 "DATA",22713,5,"D",226,0) 30.99^F^-0.914718817^13.04357164^0.113023467 "DATA",22713,5,"D",227,0) 31.99^F^-0.935876584^13.19180874^0.114056328 "DATA",22713,5,"D",228,0) 32.99^F^-0.955723447^13.34022934^0.115114953 "DATA",22713,5,"D",229,0) 33.99^F^-0.974383363^13.48913319^0.116193327 "DATA",22713,5,"D",230,0) 34.99^F^-0.991980756^13.63877446^0.11728575 "DATA",22713,5,"D",231,0) 35.99^F^-1.008640742^13.78936547^0.118386848 "DATA",22713,5,"D",232,0) 36.99^F^-1.024471278^13.94108332^0.119491669 "DATA",22713,5,"D",233,0) 37.99^F^-1.039573604^14.09407175^0.120595658 "DATA",22713,5,"D",234,0) 38.99^F^-1.054039479^14.24844498^0.121694676 "DATA",22713,5,"D",235,0) 39.99^F^-1.067946784^14.40429169^0.12278503 "DATA",22713,5,"D",236,0) 40.99^F^-1.081374153^14.56167529^0.1238634 "DATA",22713,5,"D",237,0) 41.99^F^-1.094381409^14.72064045^0.124926943 "DATA",22713,5,"D",238,0) 42.99^F^-1.107021613^14.88121352^0.125973221 "DATA",22713,5,"D",239,0) 43.99^F^-1.119338692^15.04340553^0.127000212 "DATA",22713,5,"D",240,0) 44.99^F^-1.131367831^15.20721443^0.128006292 "DATA",22713,5,"D",241,0) 45.99^F^-1.143135936^15.37262729^0.128990225 "DATA",22713,5,"D",242,0) 46.99^F^-1.15466215^15.53962221^0.129951143 "DATA",22713,5,"D",243,0) 47.99^F^-1.165958392^15.70817017^0.130888527 "DATA",22713,5,"D",244,0) 48.99^F^-1.177029925^15.87823668^0.131802186 "DATA",22713,5,"D",245,0) 49.99^F^-1.187871001^16.04978452^0.132692269 "DATA",22713,5,"D",246,0) 50.99^F^-1.198484073^16.2227706^0.133559108 "DATA",22713,5,"D",247,0) 51.99^F^-1.208853947^16.39715363^0.134403386 "DATA",22713,5,"D",248,0) 52.99^F^-1.218965087^16.57289122^0.13522599 "DATA",22713,5,"D",249,0) 53.99^F^-1.228798212^16.74994187^0.136028014 "DATA",22713,5,"D",250,0) 54.99^F^-1.238330855^16.92826587^0.136810739 "DATA",22713,5,"D",251,0) 55.99^F^-1.247537914^17.10782615^0.137575606 "DATA",22713,5,"D",252,0) 56.99^F^-1.256392179^17.28858894^0.138324193 "DATA",22713,5,"D",253,0) 57.99^F^-1.264864846^17.47052444^0.139058192 "DATA",22713,5,"D",254,0) 58.99^F^-1.272926011^17.65360733^0.139779387 "DATA",22713,5,"D",255,0) 59.99^F^-1.28054514^17.83781722^0.140489635 "DATA",22713,5,"D",256,0) 60.99^F^-1.287691525^18.02313904^0.141190842 "DATA",22713,5,"D",257,0) 61.99^F^-1.294332076^18.20956418^0.141884974 "DATA",22713,5,"D",258,0) 62.99^F^-1.300441561^18.3970876^0.142573939 "DATA",22713,5,"D",259,0) 63.99^F^-1.305989011^18.58571243^0.143259709 "DATA",22713,5,"D",260,0) 64.99^F^-1.310946941^18.77544728^0.143944216 "DATA",22713,5,"D",261,0) 65.99^F^-1.315289534^18.966307^0.144629359 "DATA",22713,5,"D",262,0) 66.99^F^-1.318992925^19.15831267^0.14531699 "DATA",22713,5,"D",263,0) 67.99^F^-1.322035315^19.35149163^0.146008903 "DATA",22713,5,"D",264,0) 68.99^F^-1.324398133^19.54587708^0.146706813 "DATA",22713,5,"D",265,0) 69.99^F^-1.326064539^19.74150854^0.147412363 "DATA",22713,5,"D",266,0) 70.99^F^-1.327020415^19.93843145^0.148127109 "DATA",22713,5,"D",267,0) 71.99^F^-1.327256387^20.13669623^0.148852482 "DATA",22713,5,"D",268,0) 72.99^F^-1.326763834^20.33635961^0.149589838 "DATA",22713,5,"D",269,0) 73.99^F^-1.325538668^20.53748298^0.1503404 "DATA",22713,5,"D",270,0) 74.99^F^-1.323579654^20.74013277^0.151105277 "DATA",22713,5,"D",271,0) 75.99^F^-1.320888012^20.94438028^0.151885464 "DATA",22713,5,"D",272,0) 76.99^F^-1.317468695^21.15030093^0.152681819 "DATA",22713,5,"D",273,0) 77.99^F^-1.313331446^21.35797332^0.15349505 "DATA",22713,5,"D",274,0) 78.99^F^-1.308487081^21.56748045^0.154325756 "DATA",22713,5,"D",275,0) 79.99^F^-1.302948173^21.77890902^0.155174414 "DATA",22713,5,"D",276,0) 80.99^F^-1.296733913^21.99234686^0.15604132 "DATA",22713,5,"D",277,0) 81.99^F^-1.289863329^22.20788541^0.156926667 "DATA",22713,5,"D",278,0) 82.99^F^-1.282358762^22.4256177^0.157830504 "DATA",22713,5,"D",279,0) 83.99^F^-1.274244931^22.64563824^0.158752743 "DATA",22713,5,"D",280,0) 84.99^F^-1.265548787^22.86804258^0.159693163 "DATA",22713,5,"D",281,0) 85.99^F^-1.256299378^23.09292679^0.16065141 "DATA",22713,5,"D",282,0) 86.99^F^-1.24653066^23.32038549^0.161626956 "DATA",22713,5,"D",283,0) 87.99^F^-1.236266832^23.55051871^0.162619308 "DATA",22713,5,"D",284,0) 88.99^F^-1.225551344^23.78341652^0.1636276 "DATA",22713,5,"D",285,0) 89.99^F^-1.214410914^24.01917703^0.1646511 "DATA",22713,5,"D",286,0) 90.99^F^-1.202884389^24.25789074^0.165688808 "DATA",22713,5,"D",287,0) 91.99^F^-1.191007906^24.49964778^0.166739662 "DATA",22713,5,"D",288,0) 92.99^F^-1.178818621^24.74453536^0.167802495 "DATA",22713,5,"D",289,0) 93.99^F^-1.166354376^24.99263735^0.168876037 "DATA",22713,5,"D",290,0) 94.99^F^-1.153653688^25.24403371^0.169958922 "DATA",22713,5,"D",291,0) 95.99^F^-1.140751404^25.49880264^0.171049756 "DATA",22713,5,"D",292,0) 96.99^F^-1.127684095^25.7570168^0.172147043 "DATA",22713,5,"D",293,0) 97.99^F^-1.114490244^26.01874261^0.173249185 "DATA",22713,5,"D",294,0) 98.99^F^-1.101204848^26.28404312^0.174354569 "DATA",22713,5,"D",295,0) 99.99^F^-1.087863413^26.55297507^0.175461512 "DATA",22713,5,"D",296,0) 100.99^F^-1.074500927^26.82558904^0.176568284 "DATA",22713,5,"D",297,0) 101.99^F^-1.061151213^27.1019295^0.177673124 "DATA",22713,5,"D",298,0) 102.99^F^-1.047847141^27.38203422^0.178774242 "DATA",22713,5,"D",299,0) 103.99^F^-1.034620551^27.66593402^0.179869829 "DATA",22713,5,"D",300,0) 104.99^F^-1.021502197^27.9536524^0.180958063 "DATA",22713,5,"D",301,0) 105.99^F^-1.008521695^28.24520531^0.182037118 "DATA",22713,5,"D",302,0) 106.99^F^-0.995707494^28.54060085^0.183105172 "DATA",22713,5,"D",303,0) 107.99^F^-0.983086844^28.83983907^0.18416041 "DATA",22713,5,"D",304,0) 108.99^F^-0.970685789^29.14291171^0.185201039 "DATA",22713,5,"D",305,0) 109.99^F^-0.958529157^29.44980208^0.186225287 "DATA",22713,5,"D",306,0) 110.99^F^-0.946640568^29.76048479^0.187231416 "DATA",22713,5,"D",307,0) 111.99^F^-0.935042447^30.0749257^0.188217723 "DATA",22713,5,"D",308,0) 112.99^F^-0.923756041^30.39308176^0.18918255 "DATA",22713,5,"D",309,0) 113.99^F^-0.912801445^30.71490093^0.190124286 "DATA",22713,5,"D",310,0) 114.99^F^-0.902197638^31.0403221^0.191041375 "DATA",22713,5,"D",311,0) 115.99^F^-0.891962513^31.36927506^0.191932319 "DATA",22713,5,"D",312,0) 116.99^F^-0.882112919^31.7016805^0.192795682 "DATA",22713,5,"D",313,0) 117.99^F^-0.872664706^32.03744999^0.193630095 "DATA",22713,5,"D",314,0) 118.99^F^-0.863632768^32.37648607^0.19443426 "DATA",22713,5,"D",315,0) 119.99^F^-0.855031092^32.71868225^0.195206948 "DATA",22713,5,"D",316,0) 120.99^F^-0.846872805^33.06392318^0.195947008 "DATA",22713,5,"D",317,0) 121.99^F^-0.839170224^33.4120847^0.196653365 "DATA",22713,5,"D",318,0) 122.99^F^-0.831934903^33.76303402^0.197325023 "DATA",22713,5,"D",319,0) 123.99^F^-0.825177688^34.1166299^0.197961065 "DATA",22713,5,"D",320,0) 124.99^F^-0.818908758^34.47272283^0.198560655 "DATA",22713,5,"D",321,0) 125.99^F^-0.813137675^34.83115524^0.199123037 "DATA",22713,5,"D",322,0) 126.99^F^-0.807873433^35.19176177^0.199647538 "DATA",22713,5,"D",323,0) 127.99^F^-0.803122613^35.55437176^0.200133598 "DATA",22713,5,"D",324,0) 128.99^F^-0.79889771^35.91879976^0.200580618 "DATA",22713,5,"D",325,0) 129.99^F^-0.795203499^36.28486194^0.200988216 "DATA",22713,5,"D",326,0) 130.99^F^-0.792047959^36.65236365^0.201356017 "DATA",22713,5,"D",327,0) 131.99^F^-0.789435274^37.02110818^0.201683791 "DATA",22713,5,"D",328,0) 132.99^F^-0.787374433^37.39088668^0.201971282 "DATA",22713,5,"D",329,0) 133.99^F^-0.785870695^37.76148905^0.202218375 "DATA",22713,5,"D",330,0) 134.99^F^-0.784929893^38.1326991^0.202425006 "DATA",22713,5,"D",331,0) 135.99^F^-0.784557605^38.50429603^0.202591183 "DATA",22713,5,"D",332,0) 136.99^F^-0.78475917^38.87605489^0.20271698 "DATA",22713,5,"D",333,0) 137.99^F^-0.785539703^39.24774707^0.202802535 "DATA",22713,5,"D",334,0) 138.99^F^-0.786904102^39.61914076^0.202848049 "DATA",22713,5,"D",335,0) 139.99^F^-0.788858208^39.98999994^0.202853758 "DATA",22713,5,"D",336,0) 140.99^F^-0.791403051^40.36009244^0.202820053 "DATA",22713,5,"D",337,0) 141.99^F^-0.794546352^40.72917544^0.202747236 "DATA",22713,5,"D",338,0) 142.99^F^-0.79829102^41.09701099^0.202635758 "DATA",22713,5,"D",339,0) 143.99^F^-0.802640891^41.46335907^0.202486098 "DATA",22713,5,"D",340,0) 144.99^F^-0.807599577^41.82797963^0.202298783 "DATA",22713,5,"D",341,0) 145.99^F^-0.813170461^42.19063313^0.202074385 "DATA",22713,5,"D",342,0) 146.99^F^-0.819356692^42.55108107^0.201813521 "DATA",22713,5,"D",343,0) 147.99^F^-0.826161176^42.90908653^0.201516851 "DATA",22713,5,"D",344,0) 148.99^F^-0.833586038^43.2644155^0.201185082 "DATA",22713,5,"D",345,0) 149.99^F^-0.841634949^43.61683402^0.200818928 "DATA",22713,5,"D",346,0) 150.99^F^-0.850307441^43.9661169^0.200419208 "DATA",22713,5,"D",347,0) 151.99^F^-0.859607525^44.31203579^0.199986681 "DATA",22713,5,"D",348,0) 152.99^F^-0.869534339^44.65437319^0.199522233 "DATA",22713,5,"D",349,0) 153.99^F^-0.880088651^44.99291356^0.199026736 "DATA",22713,5,"D",350,0) 154.99^F^-0.891270585^45.32744704^0.198501096 "DATA",22713,5,"D",351,0) 155.99^F^-0.903079458^45.65777013^0.197946255 "DATA",22713,5,"D",352,0) 156.99^F^-0.915513542^45.98368656^0.197363191 "DATA",22713,5,"D",353,0) 157.99^F^-0.928569454^46.30500858^0.196752931 "DATA",22713,5,"D",354,0) 158.99^F^-0.942245864^46.62155183^0.196116472 "DATA",22713,5,"D",355,0) 159.99^F^-0.956537923^46.93314404^0.19545489 "DATA",22713,5,"D",356,0) 160.99^F^-0.971440492^47.23962058^0.194769279 "DATA",22713,5,"D",357,0) 161.99^F^-0.986947308^47.54082604^0.194060758 "DATA",22713,5,"D",358,0) 162.99^F^-1.003050887^47.83661466^0.193330477 "DATA",22713,5,"D",359,0) 163.99^F^-1.019742425^48.12685082^0.192579614 "DATA",22713,5,"D",360,0) 164.99^F^-1.037011698^48.41140938^0.191809374 "DATA",22713,5,"D",361,0) 165.99^F^-1.054846957^48.69017613^0.191020995 "DATA",22713,5,"D",362,0) 166.99^F^-1.073234825^48.9630481^0.190215739 "DATA",22713,5,"D",363,0) 167.99^F^-1.092160195^49.22993391^0.189394901 "DATA",22713,5,"D",364,0) 168.99^F^-1.111606122^49.49075409^0.188559804 "DATA",22713,5,"D",365,0) 169.99^F^-1.131553723^49.74544132^0.187711798 "DATA",22713,5,"D",366,0) 170.99^F^-1.151982079^49.99394068^0.186852266 "DATA",22713,5,"D",367,0) 171.99^F^-1.172868141^50.23620985^0.185982617 "DATA",22713,5,"D",368,0) 172.99^F^-1.19418462^50.47222213^0.185104331 "DATA",22713,5,"D",369,0) 173.99^F^-1.215907492^50.70195581^0.184218803 "DATA",22713,5,"D",370,0) 174.99^F^-1.238005268^50.92540942^0.183327556 "DATA",22713,5,"D",371,0) 175.99^F^-1.260445591^51.14259229^0.182432113 "DATA",22713,5,"D",372,0) 176.99^F^-1.283193626^51.3535268^0.181534018 "DATA",22713,5,"D",373,0) 177.99^F^-1.306212032^51.55824831^0.180634839 "DATA",22713,5,"D",374,0) 178.99^F^-1.329460945^51.75680513^0.179736168 "DATA",22713,5,"D",375,0) 179.99^F^-1.35289798^51.94925841^0.178839614 "DATA",22713,5,"D",376,0) 180.99^F^-1.376478254^52.13568193^0.177946804 "DATA",22713,5,"D",377,0) 181.99^F^-1.400154426^52.31616197^0.177059379 "DATA",22713,5,"D",378,0) 182.99^F^-1.423876772^52.49079703^0.17617899 "DATA",22713,5,"D",379,0) 183.99^F^-1.447593267^52.65969757^0.175307296 "DATA",22713,5,"D",380,0) 184.99^F^-1.471249702^52.82298572^0.174445958 "DATA",22713,5,"D",381,0) 185.99^F^-1.494789826^52.9807949^0.173596636 "DATA",22713,5,"D",382,0) 186.99^F^-1.518155513^53.13326946^0.172760982 "DATA",22713,5,"D",383,0) 187.99^F^-1.541286949^53.28056425^0.17194064 "DATA",22713,5,"D",384,0) 188.99^F^-1.564122852^53.42284417^0.171137232 "DATA",22713,5,"D",385,0) 189.99^F^-1.586600712^53.5602837^0.170352363 "DATA",22713,5,"D",386,0) 190.99^F^-1.608657054^53.69306637^0.169587605 "DATA",22713,5,"D",387,0) 191.99^F^-1.630227728^53.82138422^0.168844497 "DATA",22713,5,"D",388,0) 192.99^F^-1.651248208^53.94543725^0.168124538 "DATA",22713,5,"D",389,0) 193.99^F^-1.67165392^54.06543278^0.167429179 "DATA",22713,5,"D",390,0) 194.99^F^-1.691380583^54.18158486^0.166759816 "DATA",22713,5,"D",391,0) 195.99^F^-1.710364557^54.29411356^0.166117788 "DATA",22713,5,"D",392,0) 196.99^F^-1.728543207^54.40324431^0.165504365 "DATA",22713,5,"D",393,0) 197.99^F^-1.745855274^54.50920717^0.164920747 "DATA",22713,5,"D",394,0) 198.99^F^-1.762241248^54.61223603^0.164368054 "DATA",22713,5,"D",395,0) 199.99^F^-1.777643747^54.71256787^0.16384732 "DATA",22713,5,"D",396,0) 200.99^F^-1.792007891^54.81044184^0.163359491 "DATA",22713,5,"D",397,0) 201.99^F^-1.805281675^54.90609842^0.162905415 "DATA",22713,5,"D",398,0) 202.99^F^-1.817416335^54.99977846^0.162485839 "DATA",22713,5,"D",399,0) 203.99^F^-1.828366707^55.09172217^0.162101402 "DATA",22713,5,"D",400,0) 204.99^F^-1.838091576^55.18216811^0.161752634 "DATA",22713,5,"D",401,0) 205.99^F^-1.846554015^55.271352^0.161439944 "DATA",22713,5,"D",402,0) 206.99^F^-1.853721704^55.35950558^0.161163623 "DATA",22713,5,"D",403,0) 207.99^F^-1.859567242^55.44685531^0.160923833 "DATA",22713,5,"D",404,0) 208.99^F^-1.864068443^55.53362107^0.160720609 "DATA",22713,5,"D",405,0) 209.99^F^-1.86720861^55.62001464^0.16055385 "DATA",22713,5,"D",406,0) 210.99^F^-1.8689768^55.70623826^0.160423319 "DATA",22713,5,"D",407,0) 211.99^F^-1.869371157^55.79247939^0.160328578 "DATA",22713,5,"D",408,0) 212.99^F^-1.868386498^55.87892356^0.160269232 "DATA",22713,5,"D",409,0) 213.99^F^-1.866033924^55.96573022^0.160244549 "DATA",22713,5,"D",410,0) 214.99^F^-1.862327775^56.05304601^0.160253714 "DATA",22713,5,"D",411,0) 215.99^F^-1.857289195^56.14099882^0.160295765 "DATA",22713,5,"D",412,0) 216.99^F^-1.850946286^56.22969564^0.16036959 "DATA",22713,5,"D",413,0) 217.99^F^-1.84333425^56.3192203^0.16047393 "DATA",22713,5,"D",414,0) 218.99^F^-1.834495505^56.40963105^0.160607377 "DATA",22713,5,"D",415,0) 219.99^F^-1.824479785^56.50095811^0.16076838 "DATA",22713,5,"D",416,0) 220.99^F^-1.813344222^56.59320107^0.160955249 "DATA",22713,5,"D",417,0) 221.99^F^-1.801153404^56.68632619^0.161166157 "DATA",22713,5,"D",418,0) 222.99^F^-1.787979408^56.78026364^0.161399151 "DATA",22713,5,"D",419,0) 223.99^F^-1.773901816^56.87490465^0.161652158 "DATA",22713,5,"D",420,0) 224.99^F^-1.759007704^56.97009856^0.161922998 "DATA",22713,5,"D",421,0) 225.99^F^-1.743391606^57.06564989^0.162209399 "DATA",22713,5,"D",422,0) 226.99^F^-1.72715546^57.16131528^0.162509006 "DATA",22713,5,"D",423,0) 227.99^F^-1.710410733^57.25679821^0.162819353 "DATA",22713,5,"D",424,0) 228.99^F^-1.693267093^57.35175792^0.163138124 "DATA",22713,5,"D",425,0) 229.99^F^-1.67585442^57.44578172^0.163462715 "DATA",22713,5,"D",426,0) 230.99^F^-1.658302847^57.53840429^0.163790683 "DATA",22713,5,"D",427,0) 231.99^F^-1.640747464^57.62910094^0.164119574 "DATA",22713,5,"D",428,0) 232.99^F^-1.623332891^57.7172758^0.164446997 "DATA",22713,5,"D",429,0) 233.99^F^-1.606209374^57.80226553^0.164770638 "DATA",22713,5,"D",430,0) 234.99^F^-1.589533346^57.88333502^0.165088289 "DATA",22713,5,"D",431,0) 235.99^F^-1.573467222^57.95967458^0.165397881 "DATA",22713,5,"D",432,0) 236.99^F^-1.558179166^58.0303973^0.165697507 "DATA",22713,5,"D",433,0) 237.99^F^-1.543846192^58.09453209^0.165985386 "DATA",22713,5,"D",434,0) 238.99^F^-1.530642461^58.15103575^0.166260109 "DATA",22713,5,"D",435,0) 239.99^F^-1.518754013^58.1987714^0.16652037 "DATA",22713,5,"D",436,0) 240^F^-1.51336185^58.21897289^0.166644749 "DATA",22713,6,0) WEIGHT BY AGE -- INFANT^AGE^MONTHS^WEIGHT^KG^0-36M "DATA",22713,6,1) https://spreadsheets.google.com/ccc?key=0As02V5OYrjbucFhfa0dnc0FTMjlZTjJhTEJMRWVPY3c&hl=en "DATA",22713,6,2) WTAGEINF "DATA",22713,6,"D",0) ^22713.02A^76^76 "DATA",22713,6,"D",1,0) 0^M^1.815151075^3.530203168^0.152385273 "DATA",22713,6,"D",2,0) 0.99^M^1.547523128^4.003106424^0.146025021 "DATA",22713,6,"D",3,0) 1.99^M^1.068795548^4.879525083^0.136478767 "DATA",22713,6,"D",4,0) 2.99^M^0.695973505^5.672888765^0.129677511 "DATA",22713,6,"D",5,0) 3.99^M^0.41981509^6.391391982^0.124717085 "DATA",22713,6,"D",6,0) 4.99^M^0.219866801^7.041836432^0.121040119 "DATA",22713,6,"D",7,0) 5.99^M^0.077505598^7.630425182^0.1182712 "DATA",22713,6,"D",8,0) 6.99^M^-0.02190761^8.162951035^0.116153695 "DATA",22713,6,"D",9,0) 7.99^M^-0.0894409^8.644832479^0.114510349 "DATA",22713,6,"D",10,0) 8.99^M^-0.1334091^9.081119817^0.113217163 "DATA",22713,6,"D",11,0) 9.99^M^-0.1600954^9.476500305^0.11218624 "DATA",22713,6,"D",12,0) 10.99^M^-0.17429685^9.835307701^0.111354536 "DATA",22713,6,"D",13,0) 11.99^M^-0.1797189^10.16153567^0.110676413 "DATA",22713,6,"D",14,0) 12.99^M^-0.179254^10.45885399^0.110118635 "DATA",22713,6,"D",15,0) 13.99^M^-0.17518447^10.7306256^0.109656941 "DATA",22713,6,"D",16,0) 14.99^M^-0.16932268^10.97992482^0.109273653 "DATA",22713,6,"D",17,0) 15.99^M^-0.1631139^11.20955529^0.10895596 "DATA",22713,6,"D",18,0) 16.99^M^-0.15770999^11.4220677^0.108694678 "DATA",22713,6,"D",19,0) 17.99^M^-0.15402279^11.61977698^0.108483324 "DATA",22713,6,"D",20,0) 18.99^M^-0.15276214^11.80477902^0.108317416 "DATA",22713,6,"D",21,0) 19.99^M^-0.15446658^11.9789663^0.108193944 "DATA",22713,6,"D",22,0) 20.99^M^-0.15952202^12.14404334^0.108110954 "DATA",22713,6,"D",23,0) 21.99^M^-0.16817926^12.30154103^0.108067236 "DATA",22713,6,"D",24,0) 22.99^M^-0.1805668^12.45283028^0.108062078 "DATA",22713,6,"D",25,0) 23.99^M^-0.19670196^12.59913494^0.108095077 "DATA",22713,6,"D",26,0) 24.99^M^-0.21650121^12.74154396^0.108166005 "DATA",22713,6,"D",27,0) 25.99^M^-0.23979048^12.88102276^0.108274705 "DATA",22713,6,"D",28,0) 26.99^M^-0.26631585^13.01842382^0.108421024 "DATA",22713,6,"D",29,0) 27.99^M^-0.29575496^13.1544966^0.108604769 "DATA",22713,6,"D",30,0) 28.99^M^-0.32772936^13.28989667^0.108825681 "DATA",22713,6,"D",31,0) 29.99^M^-0.36181746^13.42519408^0.109083423 "DATA",22713,6,"D",32,0) 30.99^M^-0.39756808^13.56088113^0.109377581 "DATA",22713,6,"D",33,0) 31.99^M^-0.43452025^13.69737858^0.109707646 "DATA",22713,6,"D",34,0) 32.99^M^-0.47218875^13.83504622^0.110073084 "DATA",22713,6,"D",35,0) 33.99^M^-0.51012309^13.97418199^0.110473238 "DATA",22713,6,"D",36,0) 34.99^M^-0.54788557^14.1150324^0.1109074 "DATA",22713,6,"D",37,0) 35.99^M^-0.5850701^14.25779618^0.111374787 "DATA",22713,6,"D",38,0) 36^M^-0.60333785^14.32994444^0.111620652 "DATA",22713,6,"D",39,0) 0^F^1.509187507^3.39918645^0.142106724 "DATA",22713,6,"D",40,0) 0.99^F^1.357944315^3.79752846^0.138075916 "DATA",22713,6,"D",41,0) 1.99^F^1.105537708^4.544776513^0.131733888 "DATA",22713,6,"D",42,0) 2.99^F^0.902596648^5.230584214^0.126892697 "DATA",22713,6,"D",43,0) 3.99^F^0.734121414^5.859960798^0.123025182 "DATA",22713,6,"D",44,0) 4.99^F^0.590235275^6.437587751^0.119840911 "DATA",22713,6,"D",45,0) 5.99^F^0.464391566^6.967850457^0.117166868 "DATA",22713,6,"D",46,0) 6.99^F^0.352164071^7.454854109^0.11489384 "DATA",22713,6,"D",47,0) 7.99^F^0.250497889^7.902436186^0.112949644 "DATA",22713,6,"D",48,0) 8.99^F^0.15724751^8.314178377^0.11128469 "DATA",22713,6,"D",49,0) 9.99^F^0.070885725^8.693418423^0.109863709 "DATA",22713,6,"D",50,0) 10.99^F^-0.00968493^9.043261854^0.10866078 "DATA",22713,6,"D",51,0) 11.99^F^-0.085258^9.366593571^0.10765621 "DATA",22713,6,"D",52,0) 12.99^F^-0.15640945^9.666089185^0.106834517 "DATA",22713,6,"D",53,0) 13.99^F^-0.22355869^9.944226063^0.106183085 "DATA",22713,6,"D",54,0) 14.99^F^-0.28701346^10.20329397^0.105691242 "DATA",22713,6,"D",55,0) 15.99^F^-0.34699919^10.4454058^0.105349631 "DATA",22713,6,"D",56,0) 16.99^F^-0.40368918^10.67250698^0.105149754 "DATA",22713,6,"D",57,0) 17.99^F^-0.45721877^10.88638558^0.105083666 "DATA",22713,6,"D",58,0) 18.99^F^-0.50770077^11.08868151^0.105143752 "DATA",22713,6,"D",59,0) 19.99^F^-0.55523599^11.28089537^0.105322575 "DATA",22713,6,"D",60,0) 20.99^F^-0.59992113^11.46439708^0.10561278 "DATA",22713,6,"D",61,0) 21.99^F^-0.64185418^11.64043402^0.106007025 "DATA",22713,6,"D",62,0) 22.99^F^-0.6811381^11.81013895^0.106497957 "DATA",22713,6,"D",63,0) 23.99^F^-0.71788283^11.97453748^0.107078197 "DATA",22713,6,"D",64,0) 24.99^F^-0.75220617^12.13455528^0.107740346 "DATA",22713,6,"D",65,0) 25.99^F^-0.78423359^12.2910249^0.108477009 "DATA",22713,6,"D",66,0) 26.99^F^-0.81409743^12.44469237^0.109280822 "DATA",22713,6,"D",67,0) 27.99^F^-0.8419355^12.59622335^0.110144488 "DATA",22713,6,"D",68,0) 28.99^F^-0.86788939^12.74620911^0.111060814 "DATA",22713,6,"D",69,0) 29.99^F^-0.89210264^12.89517218^0.112022758 "DATA",22713,6,"D",70,0) 30.99^F^-0.91471881^13.04357164^0.113023466 "DATA",22713,6,"D",71,0) 31.99^F^-0.93587966^13.19180827^0.114056316 "DATA",22713,6,"D",72,0) 32.99^F^-0.95572344^13.34022934^0.115114952 "DATA",22713,6,"D",73,0) 33.99^F^-0.97438101^13.48913357^0.116193337 "DATA",22713,6,"D",74,0) 34.99^F^-0.99198075^13.63877446^0.11728575 "DATA",22713,6,"D",75,0) 35.99^F^-1.00864074^13.78936547^0.118386847 "DATA",22713,6,"D",76,0) 36^F^-1.01665314^13.86507382^0.118939087 "DATA",22713,7,0) WEIGHT FOR LENGTH -- INFANT^RECUMBENT LENGTH^CM^WEIGHT^KG^0-36M "DATA",22713,7,1) https://spreadsheets.google.com/ccc?key=0As02V5OYrjbucFhfa0dnc0FTMjlhdGZEN3prRWNqYnc&hl=en "DATA",22713,7,2) WTLENINF "DATA",22713,7,"D",0) ^22713.02A^120^120 "DATA",22713,7,"D",1,0) 45^M^1.44903689^2.289757735^0.149236691 "DATA",22713,7,"D",2,0) 45.99^M^1.31794165^2.38617219^0.144790131 "DATA",22713,7,"D",3,0) 46.99^M^1.041730589^2.587097922^0.1365472 "DATA",22713,7,"D",4,0) 47.99^M^0.756615683^2.797952593^0.129156077 "DATA",22713,7,"D",5,0) 48.99^M^0.472617587^3.017679791^0.122589498 "DATA",22713,7,"D",6,0) 49.99^M^0.197455933^3.245225583^0.116802688 "DATA",22713,7,"D",7,0) 50.99^M^-0.063272822^3.479567767^0.111734963 "DATA",22713,7,"D",8,0) 51.99^M^-0.305663778^3.719739648^0.107316407 "DATA",22713,7,"D",9,0) 52.99^M^-0.527210764^3.964838222^0.10347453 "DATA",22713,7,"D",10,0) 53.99^M^-0.726356263^4.214033476^0.100139369 "DATA",22713,7,"D",11,0) 54.99^M^-0.902380499^4.466562625^0.097246097 "DATA",22713,7,"D",12,0) 55.99^M^-1.055126826^4.721730669^0.09473644 "DATA",22713,7,"D",13,0) 56.99^M^-1.184933443^4.978903744^0.092558749 "DATA",22713,7,"D",14,0) 57.99^M^-1.292531809^5.237504753^0.09066765 "DATA",22713,7,"D",15,0) 58.99^M^-1.378973111^5.497008915^0.089023438 "DATA",22713,7,"D",16,0) 59.99^M^-1.445563111^5.756939907^0.087591418 "DATA",22713,7,"D",17,0) 60.99^M^-1.49380121^6.016866693^0.086341291 "DATA",22713,7,"D",18,0) 61.99^M^-1.525332827^6.276400575^0.085246598 "DATA",22713,7,"D",19,0) 62.99^M^-1.541839648^6.535195541^0.084284401 "DATA",22713,7,"D",20,0) 63.99^M^-1.545098045^6.792942366^0.083434649 "DATA",22713,7,"D",21,0) 64.99^M^-1.536863318^7.049370425^0.08268004 "DATA",22713,7,"D",22,0) 65.99^M^-1.518786093^7.304248994^0.082005843 "DATA",22713,7,"D",23,0) 66.99^M^-1.49249029^7.557381995^0.081399411 "DATA",22713,7,"D",24,0) 67.99^M^-1.459487925^7.808610136^0.080850107 "DATA",22713,7,"D",25,0) 68.99^M^-1.421167427^8.057810266^0.08034908 "DATA",22713,7,"D",26,0) 69.99^M^-1.378835366^8.304892397^0.079888977 "DATA",22713,7,"D",27,0) 70.99^M^-1.333634661^8.549802669^0.079463915 "DATA",22713,7,"D",28,0) 71.99^M^-1.286605147^8.792519752^0.079069193 "DATA",22713,7,"D",29,0) 72.99^M^-1.238665517^9.033054944^0.07870118 "DATA",22713,7,"D",30,0) 73.99^M^-1.19066716^9.271448675^0.078357096 "DATA",22713,7,"D",31,0) 74.99^M^-1.143316882^9.507773605^0.078035021 "DATA",22713,7,"D",32,0) 75.99^M^-1.097263403^9.742129356^0.077733651 "DATA",22713,7,"D",33,0) 76.99^M^-1.053083813^9.974642178^0.077452242 "DATA",22713,7,"D",34,0) 77.99^M^-1.011294273^10.20546331^0.077190512 "DATA",22713,7,"D",35,0) 78.99^M^-0.972360231^10.43476723^0.076948562 "DATA",22713,7,"D",36,0) 79.99^M^-0.936705887^10.66274993^0.076726804 "DATA",22713,7,"D",37,0) 80.99^M^-0.904722736^10.88962699^0.076525901 "DATA",22713,7,"D",38,0) 81.99^M^-0.876777097^11.11563177^0.076346711 "DATA",22713,7,"D",39,0) 82.99^M^-0.853216568^11.34101346^0.076190236 "DATA",22713,7,"D",40,0) 83.99^M^-0.834375406^11.56603512^0.076057579 "DATA",22713,7,"D",41,0) 84.99^M^-0.820578855^11.79097176^0.075949901 "DATA",22713,7,"D",42,0) 85.99^M^-0.81214646^12.01610828^0.075868383 "DATA",22713,7,"D",43,0) 86.99^M^-0.809394398^12.24173753^0.075814185 "DATA",22713,7,"D",44,0) 87.99^M^-0.812636889^12.46815824^0.075788413 "DATA",22713,7,"D",45,0) 88.99^M^-0.822186712^12.69567298^0.075792075 "DATA",22713,7,"D",46,0) 89.99^M^-0.838354876^12.92458613^0.075826044 "DATA",22713,7,"D",47,0) 90.99^M^-0.861449493^13.15520182^0.075891019 "DATA",22713,7,"D",48,0) 91.99^M^-0.891773904^13.38782185^0.075987476 "DATA",22713,7,"D",49,0) 92.99^M^-0.929617736^13.6227442^0.076115636 "DATA",22713,7,"D",50,0) 93.99^M^-0.975268944^13.86025986^0.076275395 "DATA",22713,7,"D",51,0) 94.99^M^-1.028990493^14.10065234^0.076466299 "DATA",22713,7,"D",52,0) 95.99^M^-1.091024455^14.34419522^0.076687482 "DATA",22713,7,"D",53,0) 96.99^M^-1.161574946^14.59115139^0.076937631 "DATA",22713,7,"D",54,0) 97.99^M^-1.240820737^14.84177007^0.077214912 "DATA",22713,7,"D",55,0) 98.99^M^-1.328879402^15.0962879^0.077516968 "DATA",22713,7,"D",56,0) 99.99^M^-1.425809463^15.35492729^0.077840877 "DATA",22713,7,"D",57,0) 100.99^M^-1.531575592^15.61789822^0.078183177 "DATA",22713,7,"D",58,0) 101.99^M^-1.646081976^15.88539464^0.078539804 "DATA",22713,7,"D",59,0) 102.99^M^-1.769082483^16.15760201^0.078906277 "DATA",22713,7,"D",60,0) 103.99^M^-1.900221246^16.43469418^0.079277694 "DATA",22713,7,"D",61,0) 45^F^0.666839915^2.305396985^0.168969897 "DATA",22713,7,"D",62,0) 45.99^F^0.699616404^2.403256702^0.157654766 "DATA",22713,7,"D",63,0) 46.99^F^0.747915684^2.606020484^0.139389663 "DATA",22713,7,"D",64,0) 47.99^F^0.751754737^2.817114082^0.125837223 "DATA",22713,7,"D",65,0) 48.99^F^0.691329975^3.035356101^0.115888948 "DATA",22713,7,"D",66,0) 49.99^F^0.559107556^3.259693318^0.108648608 "DATA",22713,7,"D",67,0) 50.99^F^0.361549127^3.48922017^0.103402703 "DATA",22713,7,"D",68,0) 51.99^F^0.116436203^3.723195489^0.099599651 "DATA",22713,7,"D",69,0) 52.99^F^-0.152509094^3.961034945^0.096830356 "DATA",22713,7,"D",70,0) 53.99^F^-0.421478627^4.202270022^0.09480477 "DATA",22713,7,"D",71,0) 54.99^F^-0.671388289^4.446476028^0.093323068 "DATA",22713,7,"D",72,0) 55.99^F^-0.889973526^4.693220151^0.092246459 "DATA",22713,7,"D",73,0) 56.99^F^-1.071844454^4.942029343^0.091473166 "DATA",22713,7,"D",74,0) 57.99^F^-1.216671445^5.192403337^0.090923715 "DATA",22713,7,"D",75,0) 58.99^F^-1.327360462^5.443830096^0.090532906 "DATA",22713,7,"D",76,0) 59.99^F^-1.408261687^5.69581328^0.090246768 "DATA",22713,7,"D",77,0) 60.99^F^-1.464051065^5.947889759^0.090021128 "DATA",22713,7,"D",78,0) 61.99^F^-1.499105627^6.199640267^0.089820688 "DATA",22713,7,"D",79,0) 62.99^F^-1.517197913^6.450695818^0.089618171 "DATA",22713,7,"D",80,0) 63.99^F^-1.521479703^6.700736725^0.089393174 "DATA",22713,7,"D",81,0) 64.99^F^-1.514481331^6.949493534^0.089131254 "DATA",22713,7,"D",82,0) 65.99^F^-1.498204976^7.196744733^0.088822943 "DATA",22713,7,"D",83,0) 66.99^F^-1.474231858^7.442313819^0.088462854 "DATA",22713,7,"D",84,0) 67.99^F^-1.443808911^7.686067039^0.088048963 "DATA",22713,7,"D",85,0) 68.99^F^-1.407959107^7.92790936^0.087581916 "DATA",22713,7,"D",86,0) 69.99^F^-1.367521025^8.167783677^0.087064605 "DATA",22713,7,"D",87,0) 70.99^F^-1.32324327^8.405666621^0.086501667 "DATA",22713,7,"D",88,0) 71.99^F^-1.275834578^8.641566305^0.085899159 "DATA",22713,7,"D",89,0) 72.99^F^-1.226014257^8.875519723^0.085264271 "DATA",22713,7,"D",90,0) 73.99^F^-1.174555804^9.107590221^0.084605096 "DATA",22713,7,"D",91,0) 74.99^F^-1.122323639^9.337865054^0.083930435 "DATA",22713,7,"D",92,0) 75.99^F^-1.070302348^9.566453061^0.083249631 "DATA",22713,7,"D",93,0) 76.99^F^-1.019617172^9.793482492^0.082572421 "DATA",22713,7,"D",94,0) 77.99^F^-0.971544123^10.01909902^0.081908788 "DATA",22713,7,"D",95,0) 78.99^F^-0.927495981^10.24346467^0.081268832 "DATA",22713,7,"D",96,0) 79.99^F^-0.889046221^10.46675386^0.080662561 "DATA",22713,7,"D",97,0) 80.99^F^-0.857844783^10.6891553^0.080099785 "DATA",22713,7,"D",98,0) 81.99^F^-0.835600041^10.91086924^0.079589888 "DATA",22713,7,"D",99,0) 82.99^F^-0.824007806^11.13210717^0.079141623 "DATA",22713,7,"D",100,0) 83.99^F^-0.824673085^11.35309164^0.078762888 "DATA",22713,7,"D",101,0) 84.99^F^-0.839021353^11.57405623^0.078460511 "DATA",22713,7,"D",102,0) 85.99^F^-0.868191531^11.79524697^0.078240047 "DATA",22713,7,"D",103,0) 86.99^F^-0.912987527^12.0169203^0.078105554 "DATA",22713,7,"D",104,0) 87.99^F^-0.973732843^12.23934838^0.078059544 "DATA",22713,7,"D",105,0) 88.99^F^-1.050238631^12.46281861^0.078102898 "DATA",22713,7,"D",106,0) 89.99^F^-1.141750538^12.68763627^0.078234935 "DATA",22713,7,"D",107,0) 90.99^F^-1.246935039^12.9141268^0.078453576 "DATA",22713,7,"D",108,0) 91.99^F^-1.363881842^13.1426393^0.078755652 "DATA",22713,7,"D",109,0) 92.99^F^-1.490235591^13.37354263^0.079137144 "DATA",22713,7,"D",110,0) 93.99^F^-1.623204367^13.60723197^0.079593737 "DATA",22713,7,"D",111,0) 94.99^F^-1.759750536^13.84412275^0.080121122 "DATA",22713,7,"D",112,0) 95.99^F^-1.896722704^14.08464853^0.080715361 "DATA",22713,7,"D",113,0) 96.99^F^-2.031079769^14.32925018^0.081372938 "DATA",22713,7,"D",114,0) 97.99^F^-2.159985258^14.57837334^0.082090922 "DATA",22713,7,"D",115,0) 98.99^F^-2.280992946^14.8324557^0.082866693 "DATA",22713,7,"D",116,0) 99.99^F^-2.392125361^15.09192012^0.083697706 "DATA",22713,7,"D",117,0) 100.99^F^-2.491985117^15.35716167^0.08458092 "DATA",22713,7,"D",118,0) 101.99^F^-2.579688446^15.62854849^0.085512655 "DATA",22713,7,"D",119,0) 102.99^F^-2.654922113^15.90640903^0.086487929 "DATA",22713,7,"D",120,0) 103.99^F^-2.717782155^16.19103966^0.087500575 "DATA",22713,8,0) WEIGHT FOR STATURE^STATURE (HEIGHT)^CM^WEIGHT^KG^2-20Y "DATA",22713,8,1) https://spreadsheets.google.com/ccc?key=0As02V5OYrjbucFhfa0dnc0FTMjlZTTdyYXBXZ1o1R2c&hl=en "DATA",22713,8,2) WTSTAT "DATA",22713,8,"D",0) ^22713.02A^92^92 "DATA",22713,8,"D",1,0) 77^M^-0.999294215^10.27440527^0.077115837 "DATA",22713,8,"D",2,0) 77.99^M^-0.979897716^10.38901871^0.076995353 "DATA",22713,8,"D",3,0) 78.99^M^-0.943555181^10.61724901^0.076769511 "DATA",22713,8,"D",4,0) 79.99^M^-0.91080778^10.84432907^0.076564374 "DATA",22713,8,"D",5,0) 80.99^M^-0.882026316^11.07048885^0.076380766 "DATA",22713,8,"D",6,0) 81.99^M^-0.857561667^11.29597453^0.076219662 "DATA",22713,8,"D",7,0) 82.99^M^-0.837750377^11.52104655^0.07608215 "DATA",22713,8,"D",8,0) 83.99^M^-0.822919198^11.74597768^0.075969382 "DATA",22713,8,"D",9,0) 84.99^M^-0.813388595^11.97105103^0.075882537 "DATA",22713,8,"D",10,0) 85.99^M^-0.809475279^12.19655799^0.075822785 "DATA",22713,8,"D",11,0) 86.99^M^-0.811493792^12.4227963^0.075791244 "DATA",22713,8,"D",12,0) 87.99^M^-0.8197572^12.65006791^0.075788944 "DATA",22713,8,"D",13,0) 88.99^M^-0.834576932^12.87867701^0.07581679 "DATA",22713,8,"D",14,0) 89.99^M^-0.856261805^13.10892794^0.075875517 "DATA",22713,8,"D",15,0) 90.99^M^-0.885116299^13.34112314^0.075965652 "DATA",22713,8,"D",16,0) 91.99^M^-0.921432943^13.5755615^0.076087468 "DATA",22713,8,"D",17,0) 92.99^M^-0.965501267^13.81253552^0.076240931 "DATA",22713,8,"D",18,0) 93.99^M^-1.017588552^14.05233041^0.076425662 "DATA",22713,8,"D",19,0) 94.99^M^-1.077941994^14.29522185^0.07664088 "DATA",22713,8,"D",20,0) 95.99^M^-1.146773671^14.54147499^0.076885365 "DATA",22713,8,"D",21,0) 96.99^M^-1.224269596^14.79134177^0.07715739 "DATA",22713,8,"D",22,0) 97.99^M^-1.310558831^15.04506152^0.077454707 "DATA",22713,8,"D",23,0) 98.99^M^-1.405713355^15.30285949^0.077774507 "DATA",22713,8,"D",24,0) 99.99^M^-1.509717075^15.56494815^0.078113436 "DATA",22713,8,"D",25,0) 100.99^M^-1.622491233^15.83152429^0.078467542 "DATA",22713,8,"D",26,0) 101.99^M^-1.743825743^16.10277448^0.078832409 "DATA",22713,8,"D",27,0) 102.99^M^-1.873365511^16.37887678^0.079203258 "DATA",22713,8,"D",28,0) 103.99^M^-2.010641647^16.65999867^0.079574978 "DATA",22713,8,"D",29,0) 104.99^M^-2.154957918^16.94630912^0.079942558 "DATA",22713,8,"D",30,0) 105.99^M^-2.305458316^17.23797444^0.08030117 "DATA",22713,8,"D",31,0) 106.99^M^-2.461019713^17.53517134^0.080646757 "DATA",22713,8,"D",32,0) 107.99^M^-2.62033059^17.83808212^0.080976208 "DATA",22713,8,"D",33,0) 108.99^M^-2.781787762^18.14690821^0.0812881 "DATA",22713,8,"D",34,0) 109.99^M^-2.943638944^18.46185811^0.081582687 "DATA",22713,8,"D",35,0) 110.99^M^-3.103888502^18.78315936^0.081862656 "DATA",22713,8,"D",36,0) 111.99^M^-3.260482798^19.11103983^0.082132791 "DATA",22713,8,"D",37,0) 112.99^M^-3.411305599^19.44572803^0.082400213 "DATA",22713,8,"D",38,0) 113.99^M^-3.554288672^19.78744004^0.082674023 "DATA",22713,8,"D",39,0) 114.99^M^-3.687600863^20.13635563^0.082964333 "DATA",22713,8,"D",40,0) 115.99^M^-3.809599339^20.49262111^0.083282267 "DATA",22713,8,"D",41,0) 116.99^M^-3.919005213^20.85632542^0.083638758 "DATA",22713,8,"D",42,0) 117.99^M^-4.014882272^21.2274989^0.084044246 "DATA",22713,8,"D",43,0) 118.99^M^-4.096683061^21.60610366^0.084508001 "DATA",22713,8,"D",44,0) 119.99^M^-4.164160421^21.9920407^0.085038256 "DATA",22713,8,"D",45,0) 120.99^M^-4.217425718^22.3851382^0.085641503 "DATA",22713,8,"D",46,0) 121.99^M^-4.256802224^22.78516628^0.086323118 "DATA",22713,8,"D",47,0) 77^F^-0.957840869^10.08653219^0.081713853 "DATA",22713,8,"D",48,0) 77.99^F^-0.935908436^10.19868351^0.081394448 "DATA",22713,8,"D",49,0) 78.99^F^-0.89621042^10.42217324^0.080780644 "DATA",22713,8,"D",50,0) 79.99^F^-0.863423474^10.64473659^0.080208403 "DATA",22713,8,"D",51,0) 80.99^F^-0.839250279^10.86657146^0.079687207 "DATA",22713,8,"D",52,0) 81.99^F^-0.825395013^11.08788714^0.079225952 "DATA",22713,8,"D",53,0) 82.99^F^-0.823487667^11.30890397^0.078832728 "DATA",22713,8,"D",54,0) 83.99^F^-0.834997067^11.52985331^0.078514592 "DATA",22713,8,"D",55,0) 84.99^F^-0.861125495^11.75097872^0.078277372 "DATA",22713,8,"D",56,0) 85.99^F^-0.90275588^11.97253416^0.078125431 "DATA",22713,8,"D",57,0) 86.99^F^-0.960308955^12.19478883^0.078061602 "DATA",22713,8,"D",58,0) 87.99^F^-1.033704489^12.41802682^0.078087089 "DATA",22713,8,"D",59,0) 88.99^F^-1.122303405^12.64254963^0.078201515 "DATA",22713,8,"D",60,0) 89.99^F^-1.224887418^12.86867851^0.07840306 "DATA",22713,8,"D",61,0) 90.99^F^-1.339655646^13.09675786^0.078688751 "DATA",22713,8,"D",62,0) 91.99^F^-1.464342037^13.32715202^0.079054697 "DATA",22713,8,"D",63,0) 92.99^F^-1.596224732^13.56025156^0.079496621 "DATA",22713,8,"D",64,0) 93.99^F^-1.732305592^13.79646793^0.080010179 "DATA",22713,8,"D",65,0) 94.99^F^-1.869440665^14.03623165^0.080591346 "DATA",22713,8,"D",66,0) 95.99^F^-2.004558693^14.27998232^0.081236502 "DATA",22713,8,"D",67,0) 96.99^F^-2.134764169^14.5281658^0.08194262 "DATA",22713,8,"D",68,0) 97.99^F^-2.257524917^14.78122196^0.082707038 "DATA",22713,8,"D",69,0) 98.99^F^-2.370762249^15.03957746^0.083527227 "DATA",22713,8,"D",70,0) 99.99^F^-2.472965302^15.30363303^0.084400264 "DATA",22713,8,"D",71,0) 100.99^F^-2.563140425^15.5737634^0.085322654 "DATA",22713,8,"D",72,0) 101.99^F^-2.640873937^15.8503043^0.086289668 "DATA",22713,8,"D",73,0) 102.99^F^-2.706178899^16.1335593^0.087295416 "DATA",22713,8,"D",74,0) 103.99^F^-2.759500412^16.42379037^0.088332358 "DATA",22713,8,"D",75,0) 104.99^F^-2.801578893^16.72122308^0.089391426 "DATA",22713,8,"D",76,0) 105.99^F^-2.833376069^17.02604617^0.090461996 "DATA",22713,8,"D",77,0) 106.99^F^-2.855987198^17.33841369^0.09153201 "DATA",22713,8,"D",78,0) 107.99^F^-2.870584724^17.65844486^0.092588053 "DATA",22713,8,"D",79,0) 108.99^F^-2.878341197^17.98622785^0.093615622 "DATA",22713,8,"D",80,0) 109.99^F^-2.880404823^18.32181829^0.094599184 "DATA",22713,8,"D",81,0) 110.99^F^-2.877853767^18.66524194^0.095522442 "DATA",22713,8,"D",82,0) 111.99^F^-2.871676584^19.01649457^0.096368448 "DATA",22713,8,"D",83,0) 112.99^F^-2.86277466^19.37553957^0.097119646 "DATA",22713,8,"D",84,0) 113.99^F^-2.851915004^19.74231348^0.097758211 "DATA",22713,8,"D",85,0) 114.99^F^-2.839760032^20.11672014^0.098265916 "DATA",22713,8,"D",86,0) 115.99^F^-2.826824189^20.4986363^0.098624434 "DATA",22713,8,"D",87,0) 116.99^F^-2.813480089^20.88790914^0.09881529 "DATA",22713,8,"D",88,0) 117.99^F^-2.799924586^21.28435965^0.09882 "DATA",22713,8,"D",89,0) 118.99^F^-2.786142221^21.6877854^0.098620143 "DATA",22713,8,"D",90,0) 119.99^F^-2.771843402^22.09796571^0.098197431 "DATA",22713,8,"D",91,0) 120.99^F^-2.756365595^22.51466977^0.097533789 "DATA",22713,8,"D",92,0) 121.99^F^-2.738514883^22.93766971^0.09661143 "FIA",101.24) OE/RR REPORT "FIA",101.24,0) ^ORD(101.24, "FIA",101.24,0,0) 101.24I "FIA",101.24,0,1) y^y^f^^n^TMG REPORTS^y^o^n "FIA",101.24,0,10) "FIA",101.24,0,11) "FIA",101.24,0,"RLRO") ^DIBT(936,1) "FIA",101.24,0,"VR") 1.0^TMG "FIA",101.24,101.24) 0 "FIA",101.24,101.241) 0 "FIA",101.24,101.243) 0 "FIA",8925.1) TIU DOCUMENT DEFINITION "FIA",8925.1,0) ^TIU(8925.1, "FIA",8925.1,0,0) 8925.1I "FIA",8925.1,0,1) n^y^f^^n^TMG OBJECTS^y^o^n "FIA",8925.1,0,10) "FIA",8925.1,0,11) "FIA",8925.1,0,"RLRO") ^DIBT(935,1) "FIA",8925.1,0,"VR") 1.0^TMG "FIA",8925.1,8925.1) 0 "FIA",8925.1,8925.11) 0 "FIA",8925.1,8925.111) 0 "FIA",8925.1,8925.112) 0 "FIA",8925.1,8925.113) 0 "FIA",8925.1,8925.114) 0 "FIA",8925.1,8925.12) 0 "FIA",8925.1,8925.13) 0 "FIA",8925.1,8925.14) 0 "FIA",22713) TMG GROWTH CHARTS DATA "FIA",22713,0) ^TMG(22713, "FIA",22713,0,0) 22713 "FIA",22713,0,1) y^y^f^^n^TMG GC^y^o^n "FIA",22713,0,10) "FIA",22713,0,11) "FIA",22713,0,"RLRO") ^DIBT(937,1) "FIA",22713,0,"VR") 1.0^TMG "FIA",22713,22713) 0 "FIA",22713,22713.02) 0 "INIT") ADDRPT^TMGGRC2 "MBREQ") 0 "PKG",212,-1) 1^1 "PKG",212,0) FP OF GREENEVILLE (TMG)^TMG^Private site Family Physicians of Greeneville, PC "PKG",212,20,0) ^9.402P^^ "PKG",212,22,0) ^9.49I^1^1 "PKG",212,22,1,0) 1.0^3080304 "PKG",212,22,1,"PAH",1,0) 17^3120803 "PKG",212,22,1,"PAH",1,1,0) ^^6^6^3120803 "PKG",212,22,1,"PAH",1,1,1,0) This patch provides reports that can display graphically "PKG",212,22,1,"PAH",1,1,2,0) in unmodified CPRS. "PKG",212,22,1,"PAH",1,1,3,0) "PKG",212,22,1,"PAH",1,1,4,0) The reports are pediatric growth charts. "PKG",212,22,1,"PAH",1,1,5,0) "PKG",212,22,1,"PAH",1,1,6,0) It also includes text objects and text tables. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 22 "RTN","TMGDEBU2") 0^11^B16539573 "RTN","TMGDEBU2",1,0) TMGDEBU2 ;TMG/kst/SACC-compliant Debug utilities ;07/17/12 "RTN","TMGDEBU2",2,0) ;;1.0;TMG-LIB;**1,17**;07/17/12;Build 23 "RTN","TMGDEBU2",3,0) ; "RTN","TMGDEBU2",4,0) ;"TMG DEBUG UTILITIES "RTN","TMGDEBU2",5,0) ;"SACC compliant versions of TMGDEBUG "RTN","TMGDEBU2",6,0) ;"Kevin Toppenberg MD "RTN","TMGDEBU2",7,0) ;"GNU General Public License (GPL) applies "RTN","TMGDEBU2",8,0) ;"7-17-2012 "RTN","TMGDEBU2",9,0) ; "RTN","TMGDEBU2",10,0) ;"NOTE: This will contain SACC-compliant versions of code from TMGDEBUG "RTN","TMGDEBU2",11,0) ;" If routine is not found here, the please migrate and update the "RTN","TMGDEBU2",12,0) ;" code to be compliant. "RTN","TMGDEBU2",13,0) ;"======================================================================= "RTN","TMGDEBU2",14,0) ;" API -- Public Functions. "RTN","TMGDEBU2",15,0) ;"======================================================================= "RTN","TMGDEBU2",16,0) ;"SHOWERR(PRIORERRORFOUND,ERROR) -- Output an error message "RTN","TMGDEBU2",17,0) ;"GETERRST(ERRARRAY) --Convert a standard DIERR array into a string for output "RTN","TMGDEBU2",18,0) ;"SHOWDIER(ERRMSG,PRIORERRORFOUND) --A standard output mechanism for the fileman DIERR message "RTN","TMGDEBU2",19,0) ; "RTN","TMGDEBU2",20,0) ;"======================================================================= "RTN","TMGDEBU2",21,0) ;"Private API functions "RTN","TMGDEBU2",22,0) ;"======================================================================= "RTN","TMGDEBU2",23,0) ;" "RTN","TMGDEBU2",24,0) ;"======================================================================= "RTN","TMGDEBU2",25,0) ;"DEPENDENCIES: TMGUSRI2 "RTN","TMGDEBU2",26,0) ;"======================================================================= "RTN","TMGDEBU2",27,0) ; "RTN","TMGDEBU2",28,0) SHOWERR(PRIORERRORFOUND,ERROR) ; "RTN","TMGDEBU2",29,0) ;"Purpose: to output an error message "RTN","TMGDEBU2",30,0) ;"Input: [OPTIONAL] PRIORERRORFOUND -- var to see if an error already shown. "RTN","TMGDEBU2",31,0) ;" if not passed, then default value used ('no prior error') "RTN","TMGDEBU2",32,0) ;" Error -- a string to display "RTN","TMGDEBU2",33,0) ;"results: none "RTN","TMGDEBU2",34,0) ; "RTN","TMGDEBU2",35,0) DO POPUPBOX^TMGUSRI2(" ERROR . . .",ERROR) "RTN","TMGDEBU2",36,0) SET PRIORERRORFOUND=1 "RTN","TMGDEBU2",37,0) QUIT "RTN","TMGDEBU2",38,0) ; "RTN","TMGDEBU2",39,0) GETERRST(ERRARRAY) ; "RTN","TMGDEBU2",40,0) ;"Purpose: convert a standard DIERR array into a string for output "RTN","TMGDEBU2",41,0) ;"Input: ERRARRAY -- PASS BY REFERENCE. example: "RTN","TMGDEBU2",42,0) ;" array("DIERR")="1^1" "RTN","TMGDEBU2",43,0) ;" array("DIERR",1)=311 "RTN","TMGDEBU2",44,0) ;" array("DIERR",1,"PARAM",0)=3 "RTN","TMGDEBU2",45,0) ;" array("DIERR",1,"PARAM","FIELD")=.02 "RTN","TMGDEBU2",46,0) ;" array("DIERR",1,"PARAM","FILE")=2 "RTN","TMGDEBU2",47,0) ;" array("DIERR",1,"PARAM","IENS")="+1," "RTN","TMGDEBU2",48,0) ;" array("DIERR",1,"TEXT",1)="The new record '+1,' lacks some required identifiers." "RTN","TMGDEBU2",49,0) ;" array("DIERR","E",311,1)="" "RTN","TMGDEBU2",50,0) ;"Results: returns one long equivalent string from above array. "RTN","TMGDEBU2",51,0) ; "RTN","TMGDEBU2",52,0) NEW TMGERRSTR,TMGIDX,TMGERRNUM "RTN","TMGDEBU2",53,0) ; "RTN","TMGDEBU2",54,0) SET TMGERRSTR="" "RTN","TMGDEBU2",55,0) FOR TMGERRNUM=1:1:+$GET(ERRARRAY("DIERR")) DO "RTN","TMGDEBU2",56,0) . SET TMGERRSTR=TMGERRSTR_"Fileman says: '" "RTN","TMGDEBU2",57,0) . IF TMGERRNUM'=1 SET TMGERRSTR=TMGERRSTR_"(Error# "_TMGERRNUM_") " "RTN","TMGDEBU2",58,0) . SET TMGIDX=$ORDER(ERRARRAY("DIERR",TMGERRNUM,"TEXT","")) "RTN","TMGDEBU2",59,0) . IF TMGIDX'="" FOR DO QUIT:(TMGIDX="") "RTN","TMGDEBU2",60,0) . . SET TMGERRSTR=TMGERRSTR_$GET(ERRARRAY("DIERR",TMGERRNUM,"TEXT",TMGIDX))_" " "RTN","TMGDEBU2",61,0) . . SET TMGIDX=$ORDER(ERRARRAY("DIERR",TMGERRNUM,"TEXT",TMGIDX)) "RTN","TMGDEBU2",62,0) . IF $GET(ERRARRAY("DIERR",TMGERRNUM,"PARAM",0))>0 DO "RTN","TMGDEBU2",63,0) . . SET TMGIDX=$ORDER(ERRARRAY("DIERR",TMGERRNUM,"PARAM",0)) "RTN","TMGDEBU2",64,0) . . SET TMGERRSTR=TMGERRSTR_"Details: " "RTN","TMGDEBU2",65,0) . . FOR DO QUIT:(TMGIDX="") "RTN","TMGDEBU2",66,0) . . . IF TMGIDX="" QUIT "RTN","TMGDEBU2",67,0) . . . SET TMGERRSTR=TMGERRSTR_"["_TMGIDX_"]="_$GET(ERRARRAY("DIERR",1,"PARAM",TMGIDX))_" " "RTN","TMGDEBU2",68,0) . . . SET TMGIDX=$ORDER(ERRARRAY("DIERR",TMGERRNUM,"PARAM",TMGIDX)) "RTN","TMGDEBU2",69,0) ; "RTN","TMGDEBU2",70,0) QUIT TMGERRSTR "RTN","TMGDEBU2",71,0) ; "RTN","TMGDEBU2",72,0) SHOWDIER(ERRMSG,PRIORERRORFOUND) ; "RTN","TMGDEBU2",73,0) ;"Purpose: To provide a standard output mechanism for the fileman DIERR message "RTN","TMGDEBU2",74,0) ;"Input: ERRMSG -- PASS BY REFERENCE. a standard error message array, as "RTN","TMGDEBU2",75,0) ;" put out by fileman calls "RTN","TMGDEBU2",76,0) ;" PRIORERRORFOUND -- OPTIONAL variable to keep track if prior error found. "RTN","TMGDEBU2",77,0) ;" Note -- can also be used as ErrorFound (i.e. set to 1 if error found) "RTN","TMGDEBU2",78,0) ;"Output -- none, displays error to console "RTN","TMGDEBU2",79,0) ;"Result -- none "RTN","TMGDEBU2",80,0) IF $DATA(ERRMSG("DIERR")) DO "RTN","TMGDEBU2",81,0) . NEW TMGERRSTR SET TMGERRSTR=$$GETERRST(.ERRMSG) "RTN","TMGDEBU2",82,0) . DO SHOWERR(.PRIORERRORFOUND,.TMGERRSTR) "RTN","TMGDEBU2",83,0) QUIT "RTN","TMGDEBU2",84,0) ; "RTN","TMGGRC1") 0^5^B221877068 "RTN","TMGGRC1",1,0) TMGGRC1 ;TMG/kst-Work with Growth Chart Data ;10/5/10 ; 5/31/11 "RTN","TMGGRC1",2,0) ;;1.0;TMG-LIB;**1,17**;10/5/10;Build 23 "RTN","TMGGRC1",3,0) ; "RTN","TMGGRC1",4,0) ;"Code for working with pediatric growth chart data. "RTN","TMGGRC1",5,0) ;"NOTE: Data is stored in custom file 22713 "RTN","TMGGRC1",6,0) ;" TMGGRC0 can load in this data "RTN","TMGGRC1",7,0) ;" "RTN","TMGGRC1",8,0) ;"Kevin Toppenberg MD "RTN","TMGGRC1",9,0) ;"(C) 10/5/10 "RTN","TMGGRC1",10,0) ;"Released under: GNU General Public License (GPL) "RTN","TMGGRC1",11,0) ; "RTN","TMGGRC1",12,0) ;"======================================================================= "RTN","TMGGRC1",13,0) ;" RPC -- Public Functions. "RTN","TMGGRC1",14,0) ;"======================================================================= "RTN","TMGGRC1",15,0) ;"LENPCTL(AGEYR,GENDER,LEN,NONULL) -- Return percentile of length FOR age "RTN","TMGGRC1",16,0) ;"HCPCTL(AGEYR,GENDER,HC,NONULL) -- Return percentile of head circumference for age "RTN","TMGGRC1",17,0) ;"WTPCTL(AGEYR,GENDER,WT,NONULL) -- Return percentile of weight for age "RTN","TMGGRC1",18,0) ;"BMIPCTL(AGEYR,GENDER,BMI,NONULL) -- Return percentile of BMI FOR age "RTN","TMGGRC1",19,0) ;"WTLENPCT(AGEYR,GENDER,WT,LEN,NONULL) - Return percentile of WT, LEN combo "RTN","TMGGRC1",20,0) ;"WHHAPCTL(AGEYR,GENDER,LEN,NONULL) -- Return percentile of WHO height FOR age "RTN","TMGGRC1",21,0) ;"WHHCPCTL(AGEYR,GENDER,HC,NONULL) -- Return percentile of WHO head circumference for age "RTN","TMGGRC1",22,0) ;"WHWAPCTL(AGEYR,GENDER,WT,NONULL) -- Return percentile of WHO weight for age "RTN","TMGGRC1",23,0) ;"WHBAPCTL(AGEYR,GENDER,BMI,NONULL) -- Return percentile of WHO BMI FOR age "RTN","TMGGRC1",24,0) ;"WHOWLPCT(AGEYR,GENDER,WT,LEN,NONULL)-- Return percentile of WHO WT, LEN combo "RTN","TMGGRC1",25,0) ;"WHWSPCTL(AGEYR,GENDER,WT,LEN,NONULL)-- Return percentile of WHO WT,Stature combo "RTN","TMGGRC1",26,0) ;"--- "RTN","TMGGRC1",27,0) ;"LENREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves "RTN","TMGGRC1",28,0) ;"HCREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves "RTN","TMGGRC1",29,0) ;"WTREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves "RTN","TMGGRC1",30,0) ;"BMIREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves "RTN","TMGGRC1",31,0) ;"WTLENREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves "RTN","TMGGRC1",32,0) ;"WHBMIREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves "RTN","TMGGRC1",33,0) ;"WHHAREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves "RTN","TMGGRC1",34,0) ;"WHWAREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves "RTN","TMGGRC1",35,0) ;"WHHCREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves "RTN","TMGGRC1",36,0) ;"WHWLREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves "RTN","TMGGRC1",37,0) ;"WHWSREF(MODE,GENDER,ARRAY,RLINES) -- Return array with data for %tile curves "RTN","TMGGRC1",38,0) ;"======================================================================= "RTN","TMGGRC1",39,0) ;"PRIVATE API FUNCTIONS "RTN","TMGGRC1",40,0) ;"======================================================================= "RTN","TMGGRC1",41,0) ;"COMMON(GRAPH,YVAL,XVAL,GENDER,NONULL) -- common lookup for all graphs "RTN","TMGGRC1",42,0) ;"COMMNREF(MODE,GENDER,GRAPH,ARRAY,RLINES) -- Return array filled with data for percentile curves "RTN","TMGGRC1",43,0) ;"======================================================================= "RTN","TMGGRC1",44,0) ;"DEPENDENCIES: TMGGRC1, TMGGRC0, TMGGRCU, XLFSTR, DIC "RTN","TMGGRC1",45,0) ;"======================================================================= "RTN","TMGGRC1",46,0) ; "RTN","TMGGRC1",47,0) LENPCTL(AGEYR,GENDER,LEN,NONULL) ; "RTN","TMGGRC1",48,0) ;"Purpose: Return percentile of length for age "RTN","TMGGRC1",49,0) ;"Input: AGEYR: age in *Years* "RTN","TMGGRC1",50,0) ;" GENDER: should be M or F "RTN","TMGGRC1",51,0) ;" LEN: stature or recumbent length in *Cm* "RTN","TMGGRC1",52,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",53,0) ;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A' "RTN","TMGGRC1",54,0) NEW GRAPH,RESULT "RTN","TMGGRC1",55,0) IF (+$GET(AGEYR)*12)<24 SET GRAPH="LENGTH BY AGE -- INFANT" "RTN","TMGGRC1",56,0) ELSE SET GRAPH="STATURE BY AGE" "RTN","TMGGRC1",57,0) NEW MONTHS SET MONTHS=+$GET(AGEYR)*12 "RTN","TMGGRC1",58,0) SET RESULT=$$COMMON(GRAPH,.LEN,.MONTHS,.GENDER,.NONULL) ; "RTN","TMGGRC1",59,0) QUIT RESULT "RTN","TMGGRC1",60,0) ; "RTN","TMGGRC1",61,0) HCPCTL(AGEYR,GENDER,HC,NONULL) ; "RTN","TMGGRC1",62,0) ;"Purpose: Return percentile of head circumference for age "RTN","TMGGRC1",63,0) ;"Input: AGEYR: age in *Years* "RTN","TMGGRC1",64,0) ;" GENDER: should be M or F "RTN","TMGGRC1",65,0) ;" HC: Head circumference in *Cm* "RTN","TMGGRC1",66,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",67,0) ;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A' "RTN","TMGGRC1",68,0) NEW MONTHS SET MONTHS=+$GET(AGEYR)*12 "RTN","TMGGRC1",69,0) NEW RESULT "RTN","TMGGRC1",70,0) SET RESULT=$$COMMON("HEAD CIRC BY AGE -- INFANT",.HC,.MONTHS,.GENDER,.NONULL) ; "RTN","TMGGRC1",71,0) QUIT RESULT "RTN","TMGGRC1",72,0) ; "RTN","TMGGRC1",73,0) WTPCTL(AGEYR,GENDER,WT,NONULL) ; "RTN","TMGGRC1",74,0) ;"Purpose: Return percentile of weight for age "RTN","TMGGRC1",75,0) ;"Input: AGEYR: age in *Years* "RTN","TMGGRC1",76,0) ;" GENDER: should be M or F "RTN","TMGGRC1",77,0) ;" WT: weight in *Kg* "RTN","TMGGRC1",78,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",79,0) ;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A' "RTN","TMGGRC1",80,0) NEW GRAPH,RESULT "RTN","TMGGRC1",81,0) IF (+$GET(AGEYR)*12)<24 SET GRAPH="WEIGHT BY AGE -- INFANT" "RTN","TMGGRC1",82,0) ELSE SET GRAPH="WEIGHT BY AGE" "RTN","TMGGRC1",83,0) NEW MONTHS SET MONTHS=+$GET(AGEYR)*12 "RTN","TMGGRC1",84,0) SET RESULT=$$COMMON(GRAPH,.WT,.MONTHS,.GENDER,.NONULL) ; "RTN","TMGGRC1",85,0) QUIT RESULT "RTN","TMGGRC1",86,0) ; "RTN","TMGGRC1",87,0) BMIPCTL(AGEYR,GENDER,BMI,NONULL) ; "RTN","TMGGRC1",88,0) ;"Purpose: Return percentile of BMI FOR age "RTN","TMGGRC1",89,0) ;"Input: AGEYR: age in *Years* "RTN","TMGGRC1",90,0) ;" GENDER: should be M or F "RTN","TMGGRC1",91,0) ;" BMI: weight in Kg/M**2 "RTN","TMGGRC1",92,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",93,0) NEW MONTHS SET MONTHS=+$GET(AGEYR)*12 "RTN","TMGGRC1",94,0) NEW RESULT "RTN","TMGGRC1",95,0) IF MONTHS<24 SET MONTHS=24 ;"CATCH VALUES BELOW 24 (e.g. 23.998) "RTN","TMGGRC1",96,0) SET RESULT=$$COMMON("BMI BY AGE",.BMI,.MONTHS,.GENDER,.NONULL) ; "RTN","TMGGRC1",97,0) QUIT RESULT "RTN","TMGGRC1",98,0) ; "RTN","TMGGRC1",99,0) WTLENPCT(AGEYR,GENDER,WT,LEN,NONULL) ; "RTN","TMGGRC1",100,0) ;"Purpose: Return percentile of WT, LEN combo "RTN","TMGGRC1",101,0) ;"Input: AGEYR: age in *Years* "RTN","TMGGRC1",102,0) ;" GENDER: should be M or F "RTN","TMGGRC1",103,0) ;" WT: weight in Kg "RTN","TMGGRC1",104,0) ;" LEN: stature or recumbent length in *Cm* "RTN","TMGGRC1",105,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",106,0) ;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A' "RTN","TMGGRC1",107,0) NEW GRAPH,RESULT "RTN","TMGGRC1",108,0) IF ((+$GET(AGEYR)*12)<12)!(LEN<77) DO "RTN","TMGGRC1",109,0) . SET GRAPH="WEIGHT FOR LENGTH -- INFANT" "RTN","TMGGRC1",110,0) ELSE DO "RTN","TMGGRC1",111,0) . SET GRAPH="WEIGHT FOR STATURE" "RTN","TMGGRC1",112,0) SET RESULT=$$COMMON(GRAPH,.WT,.LEN,.GENDER,.NONULL) ; "RTN","TMGGRC1",113,0) QUIT RESULT "RTN","TMGGRC1",114,0) ; "RTN","TMGGRC1",115,0) WHHAPCTL(AGEYR,GENDER,LEN,NONULL) ; "RTN","TMGGRC1",116,0) ;"Purpose: Return percentile of WHO length for age "RTN","TMGGRC1",117,0) ;"Input: AGEYR: age in *Years* "RTN","TMGGRC1",118,0) ;" GENDER: should be M or F "RTN","TMGGRC1",119,0) ;" LEN: stature or recumbent length in *Cm* "RTN","TMGGRC1",120,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",121,0) ;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A' "RTN","TMGGRC1",122,0) NEW RESULT "RTN","TMGGRC1",123,0) NEW MONTHS SET MONTHS=+$GET(AGEYR)*12 "RTN","TMGGRC1",124,0) SET RESULT=$$COMMON("WHO-HEIGHT BY AGE",.LEN,.MONTHS,.GENDER,.NONULL) ; "RTN","TMGGRC1",125,0) QUIT RESULT "RTN","TMGGRC1",126,0) ; "RTN","TMGGRC1",127,0) WHHCPCTL(AGEYR,GENDER,HC,NONULL) ; "RTN","TMGGRC1",128,0) ;"Purpose: Return percentile of WHO head circumference for age "RTN","TMGGRC1",129,0) ;"Input: AGEYR: age in *Years* "RTN","TMGGRC1",130,0) ;" GENDER: should be M or F "RTN","TMGGRC1",131,0) ;" HC: Head circumference in *Cm* "RTN","TMGGRC1",132,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",133,0) ;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A' "RTN","TMGGRC1",134,0) NEW MONTHS SET MONTHS=+$GET(AGEYR)*12 "RTN","TMGGRC1",135,0) NEW RESULT "RTN","TMGGRC1",136,0) SET RESULT=$$COMMON("WHO-HEAD CIRC BY AGE",.HC,.MONTHS,.GENDER,.NONULL) ; "RTN","TMGGRC1",137,0) QUIT RESULT "RTN","TMGGRC1",138,0) ; "RTN","TMGGRC1",139,0) WHWAPCTL(AGEYR,GENDER,WT,NONULL) ; "RTN","TMGGRC1",140,0) ;"Purpose: Return percentile of WHO weight for age "RTN","TMGGRC1",141,0) ;"Input: AGEYR: age in *Years* "RTN","TMGGRC1",142,0) ;" GENDER: should be M or F "RTN","TMGGRC1",143,0) ;" WT: weight in *Kg* "RTN","TMGGRC1",144,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",145,0) ;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A' "RTN","TMGGRC1",146,0) NEW RESULT "RTN","TMGGRC1",147,0) NEW MONTHS SET MONTHS=+$GET(AGEYR)*12 "RTN","TMGGRC1",148,0) SET RESULT=$$COMMON("WHO-WEIGHT BY AGE",.WT,.MONTHS,.GENDER,.NONULL) ; "RTN","TMGGRC1",149,0) QUIT RESULT "RTN","TMGGRC1",150,0) ; "RTN","TMGGRC1",151,0) WHBAPCTL(AGEYR,GENDER,BMI,NONULL) ; "RTN","TMGGRC1",152,0) ;"Purpose: Return percentile of WHO BMI FOR age "RTN","TMGGRC1",153,0) ;"Input: AGEYR: age in *Years* "RTN","TMGGRC1",154,0) ;" GENDER: should be M or F "RTN","TMGGRC1",155,0) ;" BMI: weight in Kg/M**2 "RTN","TMGGRC1",156,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",157,0) NEW MONTHS SET MONTHS=+$GET(AGEYR)*12 "RTN","TMGGRC1",158,0) NEW RESULT "RTN","TMGGRC1",159,0) SET RESULT=$$COMMON("WHO-BMI BY AGE",.BMI,.MONTHS,.GENDER,.NONULL) ; "RTN","TMGGRC1",160,0) QUIT RESULT "RTN","TMGGRC1",161,0) ; "RTN","TMGGRC1",162,0) WHWLPCTL(AGEYR,GENDER,WT,LEN,NONULL) ; "RTN","TMGGRC1",163,0) ;"Purpose: Return percentile of WHO WT, LEN combo "RTN","TMGGRC1",164,0) ;"Input: AGEYR: age in *Years* "RTN","TMGGRC1",165,0) ;" GENDER: should be M or F "RTN","TMGGRC1",166,0) ;" WT: weight in Kg "RTN","TMGGRC1",167,0) ;" LEN: stature or recumbent length in *Cm* "RTN","TMGGRC1",168,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",169,0) ;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A' "RTN","TMGGRC1",170,0) NEW RESULT "RTN","TMGGRC1",171,0) SET RESULT=$$COMMON("WHO-WEIGHT FOR LENGTH",.WT,.LEN,.GENDER,.NONULL) ; "RTN","TMGGRC1",172,0) QUIT RESULT "RTN","TMGGRC1",173,0) ; "RTN","TMGGRC1",174,0) WHWSPCTL(AGEYR,GENDER,WT,LEN,NONULL) ; "RTN","TMGGRC1",175,0) ;"Purpose: Return percentile of WHO WT, STATURE combo "RTN","TMGGRC1",176,0) ;"Input: AGEYR: age in *Years* "RTN","TMGGRC1",177,0) ;" GENDER: should be M or F "RTN","TMGGRC1",178,0) ;" WT: weight in Kg "RTN","TMGGRC1",179,0) ;" LEN: stature or recumbent length in *Cm* "RTN","TMGGRC1",180,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",181,0) ;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A' "RTN","TMGGRC1",182,0) NEW RESULT "RTN","TMGGRC1",183,0) SET RESULT=$$COMMON("WHO-WEIGHT FOR STATURE",.WT,.LEN,.GENDER,.NONULL) ; "RTN","TMGGRC1",184,0) QUIT RESULT "RTN","TMGGRC1",185,0) ; "RTN","TMGGRC1",186,0) COMMON(GRAPH,YVAL,XVAL,GENDER,NONULL) ; "RTN","TMGGRC1",187,0) ;"Purpose: common lookup for all graphs "RTN","TMGGRC1",188,0) ;"Input: GRAPH -- The name of the graph to lookup. "RTN","TMGGRC1",189,0) ;" YVAL -- the value to lookup on the graph "RTN","TMGGRC1",190,0) ;" XVAL: Will be: Months or Length "RTN","TMGGRC1",191,0) ;" GENDER: should be M or F "RTN","TMGGRC1",192,0) ;" NONNULL: OPTIONAL, default=0. If 1 then 'N/A' is returned instead of '' "RTN","TMGGRC1",193,0) ;"Results: e.g. 54th %tile, or "" IF invalid. If NONNULL=1, then return 'N/A' "RTN","TMGGRC1",194,0) ; "RTN","TMGGRC1",195,0) NEW DIC,X,Y,L,M,S "RTN","TMGGRC1",196,0) SET NONULL=$GET(NONULL) "RTN","TMGGRC1",197,0) NEW RESULT SET RESULT=$SELECT(+NONULL'=0:"N/A",1:"") ;"default "RTN","TMGGRC1",198,0) IF +$GET(XVAL)=0 GOTO COMQT "RTN","TMGGRC1",199,0) SET GENDER=$EXTRACT($$UP^XLFSTR(GENDER),1) "RTN","TMGGRC1",200,0) IF (GENDER'="M")&(GENDER'="F") GOTO COMQT "RTN","TMGGRC1",201,0) SET YVAL=+$GET(YVAL) IF YVAL=0 GOTO COMQT "RTN","TMGGRC1",202,0) SET DIC=22713,DIC(0)="M",X=$GET(GRAPH) "RTN","TMGGRC1",203,0) DO ^DIC "RTN","TMGGRC1",204,0) IF +Y'>0 GOTO COMQT "RTN","TMGGRC1",205,0) ;"IF GRAPH="WHO-WEIGHT FOR LENGTH" SET XVAL=XVAL\1 ;"ELH TEST "RTN","TMGGRC1",206,0) IF +$$GETLMS^TMGGRCU(Y,XVAL,GENDER,.L,.M,.S)<0 GOTO COMQT "RTN","TMGGRC1",207,0) NEW Z SET Z=$$LMS2Z^TMGGRCU(YVAL,L,M,S) "RTN","TMGGRC1",208,0) NEW W SET W=$$Z2PCTL^TMGGRCU(Z)\1 "RTN","TMGGRC1",209,0) IF W=-1 SET RESULT="Invalid value" GOTO COMQT "RTN","TMGGRC1",210,0) SET RESULT=$$SETSUFIX^TMGGRCU(W) "RTN","TMGGRC1",211,0) ; "RTN","TMGGRC1",212,0) COMQT QUIT RESULT "RTN","TMGGRC1",213,0) ; "RTN","TMGGRC1",214,0) LENREF(MODE,GENDER,ARRAY,RLINES) ; "RTN","TMGGRC1",215,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",216,0) ;"Input: MODE -- 1 if for age range 0-36 months, 2 if age 2-20 yrs "RTN","TMGGRC1",217,0) ;" GENDER -- M OR F "RTN","TMGGRC1",218,0) ;" ARRAY -- PASS BY REFERENCE. AN OUT PARAMETER. PRIOR VALUES KILLED. "RTN","TMGGRC1",219,0) ;" ARRAY(%tile,Age)=x^y "RTN","TMGGRC1",220,0) ;" RLINES -- OPTIONAL. Default='5,10,25,50,75,95' Listing of which lines to get "RTN","TMGGRC1",221,0) ;"Result: none "RTN","TMGGRC1",222,0) NEW GRAPH "RTN","TMGGRC1",223,0) IF +$GET(MODE)=1 SET GRAPH="LENGTH BY AGE -- INFANT" "RTN","TMGGRC1",224,0) ELSE SET GRAPH="STATURE BY AGE" "RTN","TMGGRC1",225,0) DO COMMNREF(MODE,GENDER,GRAPH,.ARRAY,.RLINES) ; "RTN","TMGGRC1",226,0) QUIT "RTN","TMGGRC1",227,0) ; "RTN","TMGGRC1",228,0) HCREF(MODE,GENDER,ARRAY,RLINES) ; "RTN","TMGGRC1",229,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",230,0) ;"Input: Same as for LENREF (see above) "RTN","TMGGRC1",231,0) DO COMMNREF(MODE,GENDER,"HEAD CIRC BY AGE -- INFANT",.ARRAY) ; "RTN","TMGGRC1",232,0) QUIT "RTN","TMGGRC1",233,0) ; "RTN","TMGGRC1",234,0) WTREF(MODE,GENDER,ARRAY,RLINES) ; "RTN","TMGGRC1",235,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",236,0) ;"Input: Same as for LENREF (see above) "RTN","TMGGRC1",237,0) NEW GRAPH "RTN","TMGGRC1",238,0) IF +$GET(MODE)=1 SET GRAPH="WEIGHT BY AGE -- INFANT" "RTN","TMGGRC1",239,0) ELSE SET GRAPH="WEIGHT BY AGE" "RTN","TMGGRC1",240,0) DO COMMNREF(MODE,GENDER,GRAPH,.ARRAY,.RLINES) ; "RTN","TMGGRC1",241,0) QUIT "RTN","TMGGRC1",242,0) ; "RTN","TMGGRC1",243,0) BMIREF(MODE,GENDER,ARRAY,RLINES) ; "RTN","TMGGRC1",244,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",245,0) ;"Input: Same as for LENREF (see above) "RTN","TMGGRC1",246,0) DO COMMNREF(MODE,GENDER,"BMI BY AGE",.ARRAY,.RLINES) ; "RTN","TMGGRC1",247,0) QUIT "RTN","TMGGRC1",248,0) ; "RTN","TMGGRC1",249,0) WTLENREF(MODE,GENDER,ARRAY,RLINES) ; "RTN","TMGGRC1",250,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",251,0) ;"Input: MODE -- 1 if for age range 0-36 months, 2 if age 2-20 yrs "RTN","TMGGRC1",252,0) ;" GENDER -- M OR F "RTN","TMGGRC1",253,0) ;" ARRAY -- PASS BY REFERENCE. AN OUT PARAMETER. PRIOR VALUES KILLED. "RTN","TMGGRC1",254,0) ;" ARRAY(%tile,x)=x^y ;x=LengthOrStature "RTN","TMGGRC1",255,0) ;" RLINES -- OPTIONAL. Default='5,10,25,50,75,95' Listing of which lines to get "RTN","TMGGRC1",256,0) NEW GRAPH "RTN","TMGGRC1",257,0) IF +$GET(MODE)=1 SET GRAPH="WEIGHT FOR LENGTH -- INFANT" "RTN","TMGGRC1",258,0) ELSE SET GRAPH="WEIGHT FOR STATURE" "RTN","TMGGRC1",259,0) DO COMMNREF(MODE,GENDER,GRAPH,.ARRAY,.RLINES) ; "RTN","TMGGRC1",260,0) QUIT "RTN","TMGGRC1",261,0) ; "RTN","TMGGRC1",262,0) WHBMIREF(MODE,GENDER,ARRAY,RLINES) ; "RTN","TMGGRC1",263,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",264,0) ;"Input: MODE -- 1 if for age range 0-36 months, 2 if age 2-20 yrs, 3 if age range 0-60 months "RTN","TMGGRC1",265,0) DO COMMNREF(MODE,GENDER,"WHO-BMI BY AGE",.ARRAY,.RLINES) ; "RTN","TMGGRC1",266,0) QUIT "RTN","TMGGRC1",267,0) ; "RTN","TMGGRC1",268,0) WHHAREF(MODE,GENDER,ARRAY,RLINES) ; "RTN","TMGGRC1",269,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",270,0) ;"Input: Same as for WHOBMIREF (see above) "RTN","TMGGRC1",271,0) DO COMMNREF(MODE,GENDER,"WHO-HEIGHT BY AGE ",.ARRAY,.RLINES) ; "RTN","TMGGRC1",272,0) QUIT "RTN","TMGGRC1",273,0) ; "RTN","TMGGRC1",274,0) WHWAREF(MODE,GENDER,ARRAY,RLINES) ; "RTN","TMGGRC1",275,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",276,0) ;"Input: Same as for WHOBMIREF (see above) "RTN","TMGGRC1",277,0) DO COMMNREF(MODE,GENDER,"WHO-WEIGHT BY AGE",.ARRAY,.RLINES) ; "RTN","TMGGRC1",278,0) QUIT "RTN","TMGGRC1",279,0) ; "RTN","TMGGRC1",280,0) WHHCREF(MODE,GENDER,ARRAY,RLINES) ; "RTN","TMGGRC1",281,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",282,0) ;"Input: Same as for WHOBMIREF (see above) "RTN","TMGGRC1",283,0) DO COMMNREF(MODE,GENDER,"WHO-HEAD CIRC BY AGE",.ARRAY,.RLINES) ; "RTN","TMGGRC1",284,0) QUIT "RTN","TMGGRC1",285,0) ; "RTN","TMGGRC1",286,0) WHWLREF(MODE,GENDER,ARRAY,RLINES) ; "RTN","TMGGRC1",287,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",288,0) ;"Input: Same as for WHOBMIREF (see above) "RTN","TMGGRC1",289,0) DO COMMNREF(MODE,GENDER,"WHO-WEIGHT FOR LENGTH",.ARRAY,.RLINES) ; "RTN","TMGGRC1",290,0) QUIT "RTN","TMGGRC1",291,0) ; "RTN","TMGGRC1",292,0) WHWSREF(MODE,GENDER,ARRAY,RLINES) ; "RTN","TMGGRC1",293,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",294,0) ;"Input: Same as for WHOBMIREF (see above) "RTN","TMGGRC1",295,0) DO COMMNREF(MODE,GENDER,"WHO-WEIGHT FOR STATURE",.ARRAY,.RLINES) ; "RTN","TMGGRC1",296,0) QUIT "RTN","TMGGRC1",297,0) ; "RTN","TMGGRC1",298,0) COMMNREF(MODE,GENDER,GRAPH,ARRAY,RLINES) ; "RTN","TMGGRC1",299,0) ;"Purpose: Return array filled with data for percentile curves "RTN","TMGGRC1",300,0) ;"Input: MODE -- 1 if for age range 0-36 months, 2 if age 2-20 yrs, 3 if age range 0-60 months "RTN","TMGGRC1",301,0) ;" 4 age range 0-24 months, 5 age range 24-60 months, 6 age range 0-6 months, "RTN","TMGGRC1",302,0) ;" 7 age range 6-24 months, 8 age range 0-13 months "RTN","TMGGRC1",303,0) ;" GENDER -- M OR F "RTN","TMGGRC1",304,0) ;" GRAPH -- Name of graph "RTN","TMGGRC1",305,0) ;" ARRAY -- PASS BY REFERENCE. AN OUT PARAMETER. PRIOR VALUES KILLED. "RTN","TMGGRC1",306,0) ;" ARRAY(%tile,x)=x^y "RTN","TMGGRC1",307,0) ;" RLINES -- OPTIONAL. Default='5,10,25,50,75,95' Listing of which %tile lines to get "RTN","TMGGRC1",308,0) ;"Result: none "RTN","TMGGRC1",309,0) NEW DIC,X,Y,L,M,S "RTN","TMGGRC1",310,0) KILL ARRAY "RTN","TMGGRC1",311,0) SET GENDER=$EXTRACT($$UP^XLFSTR(GENDER),1) "RTN","TMGGRC1",312,0) IF (GENDER'="M")&(GENDER'="F") GOTO CMRFQT "RTN","TMGGRC1",313,0) SET DIC=22713,DIC(0)="M",X=$GET(GRAPH) "RTN","TMGGRC1",314,0) DO ^DIC "RTN","TMGGRC1",315,0) IF +Y'>0 GOTO CMRFQT "RTN","TMGGRC1",316,0) NEW IEN SET IEN=+Y "RTN","TMGGRC1",317,0) NEW X0,XINC,XMAX "RTN","TMGGRC1",318,0) IF (GRAPH="WEIGHT FOR LENGTH -- INFANT") DO "RTN","TMGGRC1",319,0) . SET X0=80,XINC=5,XMAX=140 ;"X axis here is LENGTH, and Y = Weight "RTN","TMGGRC1",320,0) . ;"SET X0=45,XINC=10,XMAX=105 ;"X axis here is LENGTH, and Y = Weight "RTN","TMGGRC1",321,0) ELSE IF (GRAPH="WEIGHT FOR STATURE") DO "RTN","TMGGRC1",322,0) . SET X0=75,XINC=5,XMAX=125 ;"X axis here is STATURE, and Y = Weight "RTN","TMGGRC1",323,0) ELSE IF (GRAPH="WHO-WEIGHT FOR LENGTH") DO "RTN","TMGGRC1",324,0) . SET X0=65,XINC=5,XMAX=130 "RTN","TMGGRC1",325,0) ELSE DO "RTN","TMGGRC1",326,0) . IF MODE=1 SET X0=0,XINC=1,XMAX=36 "RTN","TMGGRC1",327,0) . ELSE IF MODE=2 SET X0=24,XINC=12,XMAX=240 "RTN","TMGGRC1",328,0) . ELSE IF MODE=3 SET X0=0,XINC=2,XMAX=60 "RTN","TMGGRC1",329,0) . ELSE IF MODE=4 SET X0=0,XINC=1,XMAX=24 "RTN","TMGGRC1",330,0) . ELSE IF MODE=5 SET X0=24,XINC=2,XMAX=60 "RTN","TMGGRC1",331,0) . ELSE IF MODE=6 SET X0=0,XINC=1,XMAX=6 "RTN","TMGGRC1",332,0) . ELSE IF MODE=7 SET X0=6,XINC=2,XMAX=24 "RTN","TMGGRC1",333,0) . ELSE SET X0=0,XINC=1,XMAX=3 "RTN","TMGGRC1",334,0) SET RLINES=$GET(RLINES,"5,10,25,50,75,95") "RTN","TMGGRC1",335,0) SET X=X0 "RTN","TMGGRC1",336,0) NEW ZARRAY,Z "RTN","TMGGRC1",337,0) NEW ABORT SET ABORT=0 "RTN","TMGGRC1",338,0) FOR DO SET X=X+XINC QUIT:(X>XMAX)!ABORT "RTN","TMGGRC1",339,0) . IF +$$GETLMS^TMGGRCU(IEN,X,GENDER,.L,.M,.S)<0 SET ABORT=1 QUIT "RTN","TMGGRC1",340,0) . NEW P,PCTLNUM "RTN","TMGGRC1",341,0) . FOR PCTLNUM=1:1:$LENGTH(RLINES,",") DO "RTN","TMGGRC1",342,0) . . SET P=+$PIECE(RLINES,",",PCTLNUM) QUIT:(P'>0) "RTN","TMGGRC1",343,0) . . IF $GET(ZARRAY(P))="" SET ZARRAY(P)=$$PCTL2Z^TMGGRCU(P) "RTN","TMGGRC1",344,0) . . SET Z=ZARRAY(P) "RTN","TMGGRC1",345,0) . . NEW VAL SET VAL=$$LMSZ2Y^TMGGRCU(L,M,S,Z) "RTN","TMGGRC1",346,0) . . SET VAL=+$JUSTIFY(VAL,0,2) "RTN","TMGGRC1",347,0) . . SET ARRAY(P,X)=X_"^"_VAL "RTN","TMGGRC1",348,0) ; "RTN","TMGGRC1",349,0) CMRFQT QUIT "RTN","TMGGRC2") 0^6^B190054215 "RTN","TMGGRC2",1,0) TMGGRC2 ;TMG/kst-Work with Growth Chart Data ;10/5/10 ; 9/27/11 9:41am "RTN","TMGGRC2",2,0) ;;1.0;TMG-LIB;**1,17**;10/5/10;Build 23 "RTN","TMGGRC2",3,0) ; "RTN","TMGGRC2",4,0) ;"Code for working with pediatric growth chart data. "RTN","TMGGRC2",5,0) ;"This helps generate javascript code to pass back to WebBrowser "RTN","TMGGRC2",6,0) ; "RTN","TMGGRC2",7,0) ;"Kevin Toppenberg MD and Eddie Hagood "RTN","TMGGRC2",8,0) ;"(C) 10/5/10 "RTN","TMGGRC2",9,0) ;"Released under: GNU General Public License (GPL) "RTN","TMGGRC2",10,0) ; "RTN","TMGGRC2",11,0) ;"======================================================================= "RTN","TMGGRC2",12,0) ;" RPC -- Public Functions. "RTN","TMGGRC2",13,0) ;"======================================================================= "RTN","TMGGRC2",14,0) ;"TMGGRAPH(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --Height %tile (child) "RTN","TMGGRC2",15,0) ;"TMGGCLNI(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --Length %tile (infant) "RTN","TMGGRC2",16,0) ;"TMGGCHTC(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE)-- Height %tile (child) "RTN","TMGGRC2",17,0) ;"TMGGCHDC(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --Head circ %tile "RTN","TMGGRC2",18,0) ;"TMGGCWTI(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --Wt %tile (infant) "RTN","TMGGRC2",19,0) ;"TMGGCWTC(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --Wt %tile (child) "RTN","TMGGRC2",20,0) ;"TMGGCBMI(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --BMI percentile (infant) <-- not used (no LMS data avail from CDC) "RTN","TMGGRC2",21,0) ;"TMGGCBMC(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --BMI %tile (child) "RTN","TMGGRC2",22,0) ;"TMGGCWHL(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --Wt %tile for Length (infant) "RTN","TMGGRC2",23,0) ;"TMGGCWHS(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --Wt %tile for Stature (child) "RTN","TMGGRC2",24,0) ;"<============= WHO GRAPH ENTRY POINTS =================> "RTN","TMGGRC2",25,0) ;"TMGWHOBA(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO BMI for Age. "RTN","TMGGRC2",26,0) ;"TMGWBAB2(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO BMI Birth To 2 Years "RTN","TMGGRC2",27,0) ;"TMGWBAB5(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO BMI Birth To 5 Years "RTN","TMGGRC2",28,0) ;"TMGWBA25(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO BMI 2 To 5 Years "RTN","TMGGRC2",29,0) ;" "RTN","TMGGRC2",30,0) ;"TMGWHOHA(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Height for Age. "RTN","TMGGRC2",31,0) ;"TMGWHAB6(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Height Birth to 6 Months. "RTN","TMGGRC2",32,0) ;"TMGWHAB2(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Height Birth to 2 Years. "RTN","TMGGRC2",33,0) ;"TMGWHA62(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Height 6 Months to 2 Years. "RTN","TMGGRC2",34,0) ;"TMGWHA25(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Height 2 Years to 5 Years. "RTN","TMGGRC2",35,0) ;"TMGWHAB5(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Height Birth to 5 Years. "RTN","TMGGRC2",36,0) ;" "RTN","TMGGRC2",37,0) ;"TMGWHOWA(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Weight for Age. "RTN","TMGGRC2",38,0) ;"TMGWWAB6(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Weight Birth to 6 Months. "RTN","TMGGRC2",39,0) ;"TMGWWAB2(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Weight Birth to 2 Years. "RTN","TMGGRC2",40,0) ;"TMGWWA62(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Weight 6 Months to 2 Years. "RTN","TMGGRC2",41,0) ;"TMGWWAB5(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Weight Birth to 5 Years. "RTN","TMGGRC2",42,0) ;"TMGWWA25(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Weight 2 Years to 5 Years. "RTN","TMGGRC2",43,0) ;" "RTN","TMGGRC2",44,0) ;"TMGWHOHC(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Head Circumference for Age. "RTN","TMGGRC2",45,0) ;"TMGWHCBT(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Head Circumference Birth to Thirteen. "RTN","TMGGRC2",46,0) ;"TMGWHCB2(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Head Circumference Birth to 2 Years. "RTN","TMGGRC2",47,0) ;"TMGWHCB5(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Head Circumference Birth to 5 Years. "RTN","TMGGRC2",48,0) ;" "RTN","TMGGRC2",49,0) ;"TMGWHOWL(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Weight for Length. "RTN","TMGGRC2",50,0) ;"TMGWHOWS(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) --WHO Weight from Stature. "RTN","TMGGRC2",51,0) ;"ADDRPT -- install (add) the TMG GROWTH CHART MENU to ORWRP REPORT LIST. "RTN","TMGGRC2",52,0) ; "RTN","TMGGRC2",53,0) ;"======================================================================= "RTN","TMGGRC2",54,0) ; "RTN","TMGGRC2",55,0) TMGGRAPH(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",56,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",57,0) ;"Input: ROOT -- Pass by NAME. This is where output goes "RTN","TMGGRC2",58,0) ;" DFN -- Patient DFN ; ICN for foriegn sites "RTN","TMGGRC2",59,0) ;" ID -- "RTN","TMGGRC2",60,0) ;" ALPHA -- Start date (lieu of DTRANGE) "RTN","TMGGRC2",61,0) ;" OMEGA -- End date (lieu of DTRANGE) "RTN","TMGGRC2",62,0) ;" DTRANGE -- # days back from today "RTN","TMGGRC2",63,0) ;" REMOTE -- "RTN","TMGGRC2",64,0) ;" MAX -- "RTN","TMGGRC2",65,0) ;" ORFHIE -- "RTN","TMGGRC2",66,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",67,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"CH-HT") "RTN","TMGGRC2",68,0) QUIT "RTN","TMGGRC2",69,0) ; "RTN","TMGGRC2",70,0) TMGGCLNI(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",71,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",72,0) ;" For Length percentile for age (infant) "RTN","TMGGRC2",73,0) ;"Input: (Same as TMGGRAPH, see above) "RTN","TMGGRC2",74,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",75,0) ; "RTN","TMGGRC2",76,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"INF-LN") "RTN","TMGGRC2",77,0) QUIT "RTN","TMGGRC2",78,0) ; "RTN","TMGGRC2",79,0) TMGGCWTI(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",80,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",81,0) ;" For Weight percentile for age (infant) "RTN","TMGGRC2",82,0) ;"Input: (Same as TMGGRAPH, see above) "RTN","TMGGRC2",83,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",84,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"INF-WT") "RTN","TMGGRC2",85,0) QUIT "RTN","TMGGRC2",86,0) ; "RTN","TMGGRC2",87,0) TMGGCHDC(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",88,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",89,0) ;" For Head Circumference percentile for age "RTN","TMGGRC2",90,0) ;"Input: (Same as TMGGRAPH, see above) "RTN","TMGGRC2",91,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",92,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"INF-HC") "RTN","TMGGRC2",93,0) QUIT "RTN","TMGGRC2",94,0) ; "RTN","TMGGRC2",95,0) TMGGCBMI(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",96,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",97,0) ;" For BMI percentile for age (infant) "RTN","TMGGRC2",98,0) ;"Input: (Same as TMGGRAPH, see above) "RTN","TMGGRC2",99,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",100,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"INF-BMI") "RTN","TMGGRC2",101,0) QUIT "RTN","TMGGRC2",102,0) ; "RTN","TMGGRC2",103,0) TMGGCWHL(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",104,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",105,0) ;" For Weight percentile for Length (infant) "RTN","TMGGRC2",106,0) ;"Input: (Same as TMGGRAPH, see above) "RTN","TMGGRC2",107,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",108,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"INF-WT4L") "RTN","TMGGRC2",109,0) QUIT "RTN","TMGGRC2",110,0) ; "RTN","TMGGRC2",111,0) TMGGCHTC(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",112,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",113,0) ;" For Height percentile for age (child) "RTN","TMGGRC2",114,0) ;"Input: (Same as TMGGRAPH, see above) "RTN","TMGGRC2",115,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",116,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"CH-HT") "RTN","TMGGRC2",117,0) QUIT "RTN","TMGGRC2",118,0) ; "RTN","TMGGRC2",119,0) TMGGCWTC(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",120,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",121,0) ;" For Weight percentile for age (child) "RTN","TMGGRC2",122,0) ;"Input: (Same as TMGGRAPH, see above) "RTN","TMGGRC2",123,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",124,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"CH-WT") "RTN","TMGGRC2",125,0) QUIT "RTN","TMGGRC2",126,0) ; "RTN","TMGGRC2",127,0) TMGGCBMC(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",128,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",129,0) ;" For BMI percentile for age (child) "RTN","TMGGRC2",130,0) ;"Input: (Same as TMGGRAPH, see above) "RTN","TMGGRC2",131,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",132,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"CH-BMI") "RTN","TMGGRC2",133,0) QUIT "RTN","TMGGRC2",134,0) ; "RTN","TMGGRC2",135,0) TMGGCWHS(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",136,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",137,0) ;" For Weight percentile for stature (child) "RTN","TMGGRC2",138,0) ;"Input: (Same as TMGGRAPH, see above) "RTN","TMGGRC2",139,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",140,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"CH-WT4S") "RTN","TMGGRC2",141,0) QUIT "RTN","TMGGRC2",142,0) ; "RTN","TMGGRC2",143,0) ;"WHO - BMI ENTRY POINTS "RTN","TMGGRC2",144,0) TMGWHOBA(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",145,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",146,0) ;" For WHO BMI by Age "RTN","TMGGRC2",147,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",148,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",149,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-BA") "RTN","TMGGRC2",150,0) QUIT "RTN","TMGGRC2",151,0) ; "RTN","TMGGRC2",152,0) TMGWBAB2(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",153,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",154,0) ;" For WHO BMI by Age "RTN","TMGGRC2",155,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",156,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",157,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-BA-B2") "RTN","TMGGRC2",158,0) QUIT "RTN","TMGGRC2",159,0) ; "RTN","TMGGRC2",160,0) TMGWBAB5(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",161,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",162,0) ;" For WHO BMI by Age "RTN","TMGGRC2",163,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",164,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",165,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-BA-B5") "RTN","TMGGRC2",166,0) QUIT "RTN","TMGGRC2",167,0) ; "RTN","TMGGRC2",168,0) TMGWBA25(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",169,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",170,0) ;" For WHO BMI by Age "RTN","TMGGRC2",171,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",172,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",173,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-BA-25") "RTN","TMGGRC2",174,0) QUIT "RTN","TMGGRC2",175,0) ; "RTN","TMGGRC2",176,0) ;"WHO - Height for Age Entry Points "RTN","TMGGRC2",177,0) TMGWHOHA(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",178,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",179,0) ;" For WHO Height by Age "RTN","TMGGRC2",180,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",181,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",182,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-HA") "RTN","TMGGRC2",183,0) QUIT "RTN","TMGGRC2",184,0) ; "RTN","TMGGRC2",185,0) TMGWHAB6(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",186,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",187,0) ;" For WHO Height by Age "RTN","TMGGRC2",188,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",189,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",190,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-HA-B6") "RTN","TMGGRC2",191,0) QUIT "RTN","TMGGRC2",192,0) ; "RTN","TMGGRC2",193,0) TMGWHAB2(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",194,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",195,0) ;" For WHO Height by Age "RTN","TMGGRC2",196,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",197,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",198,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-HA-B2") "RTN","TMGGRC2",199,0) QUIT "RTN","TMGGRC2",200,0) ; "RTN","TMGGRC2",201,0) TMGWHA62(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",202,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",203,0) ;" For WHO Height by Age "RTN","TMGGRC2",204,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",205,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",206,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-HA-62") "RTN","TMGGRC2",207,0) QUIT "RTN","TMGGRC2",208,0) ; "RTN","TMGGRC2",209,0) TMGWHA25(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",210,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",211,0) ;" For WHO Height by Age "RTN","TMGGRC2",212,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",213,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",214,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-HA-25") "RTN","TMGGRC2",215,0) QUIT "RTN","TMGGRC2",216,0) ; "RTN","TMGGRC2",217,0) TMGWHAB5(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",218,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",219,0) ;" For WHO Height by Age "RTN","TMGGRC2",220,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",221,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",222,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-HA-B5") "RTN","TMGGRC2",223,0) QUIT "RTN","TMGGRC2",224,0) ; "RTN","TMGGRC2",225,0) ;"WHO - Weight for age Entry Points "RTN","TMGGRC2",226,0) TMGWHOWA(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",227,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",228,0) ;" For WHO Weight by Age "RTN","TMGGRC2",229,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",230,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",231,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-WA") "RTN","TMGGRC2",232,0) QUIT "RTN","TMGGRC2",233,0) ; "RTN","TMGGRC2",234,0) TMGWWAB6(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",235,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",236,0) ;" For WHO Weight by Age "RTN","TMGGRC2",237,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",238,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",239,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-WA-B6") "RTN","TMGGRC2",240,0) QUIT "RTN","TMGGRC2",241,0) ; "RTN","TMGGRC2",242,0) TMGWWAB2(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",243,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",244,0) ;" For WHO Weight by Age "RTN","TMGGRC2",245,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",246,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",247,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-WA-B2") "RTN","TMGGRC2",248,0) QUIT "RTN","TMGGRC2",249,0) ; "RTN","TMGGRC2",250,0) TMGWWA62(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",251,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",252,0) ;" For WHO Weight by Age "RTN","TMGGRC2",253,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",254,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",255,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-WA-62") "RTN","TMGGRC2",256,0) QUIT "RTN","TMGGRC2",257,0) ; "RTN","TMGGRC2",258,0) TMGWWAB5(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",259,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",260,0) ;" For WHO Weight by Age "RTN","TMGGRC2",261,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",262,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",263,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-WA-B5") "RTN","TMGGRC2",264,0) QUIT "RTN","TMGGRC2",265,0) ; "RTN","TMGGRC2",266,0) TMGWWA25(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",267,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",268,0) ;" For WHO Weight by Age "RTN","TMGGRC2",269,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",270,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",271,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-WA-25") "RTN","TMGGRC2",272,0) QUIT "RTN","TMGGRC2",273,0) ; "RTN","TMGGRC2",274,0) ;"WHO - Head Circumference Entry Points "RTN","TMGGRC2",275,0) TMGWHOHC(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",276,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",277,0) ;" For WHO Head Circumference by Age "RTN","TMGGRC2",278,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",279,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",280,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-HC") "RTN","TMGGRC2",281,0) QUIT "RTN","TMGGRC2",282,0) ; "RTN","TMGGRC2",283,0) TMGWHCBT(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",284,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",285,0) ;" For WHO Head Circumference by Age "RTN","TMGGRC2",286,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",287,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",288,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-HC-BT") "RTN","TMGGRC2",289,0) QUIT "RTN","TMGGRC2",290,0) ; "RTN","TMGGRC2",291,0) TMGWHCB2(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",292,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",293,0) ;" For WHO Head Circumference by Age "RTN","TMGGRC2",294,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",295,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",296,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-HC-B2") "RTN","TMGGRC2",297,0) QUIT "RTN","TMGGRC2",298,0) ; "RTN","TMGGRC2",299,0) TMGWHCB5(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",300,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",301,0) ;" For WHO Head Circumference by Age "RTN","TMGGRC2",302,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",303,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",304,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-HC-B5") "RTN","TMGGRC2",305,0) QUIT "RTN","TMGGRC2",306,0) ; "RTN","TMGGRC2",307,0) TMGWHOWL(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",308,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",309,0) ;" For WHO Weight for Length "RTN","TMGGRC2",310,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",311,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",312,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-WL") "RTN","TMGGRC2",313,0) QUIT "RTN","TMGGRC2",314,0) ; "RTN","TMGGRC2",315,0) TMGWHOWS(ROOT,DFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,MAX,ORFHIE) ; "RTN","TMGGRC2",316,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2",317,0) ;" For WHO Weight for Stature "RTN","TMGGRC2",318,0) ;"Input (Same as TMGGRAPH, see above) "RTN","TMGGRC2",319,0) ;"Result: None. Output goes into @ROOT "RTN","TMGGRC2",320,0) DO TMGCOMGR^TMGGRC2A(.ROOT,"WHO-WS") "RTN","TMGGRC2",321,0) QUIT "RTN","TMGGRC2",322,0) ; "RTN","TMGGRC2",323,0) ADDRPT ; "RTN","TMGGRC2",324,0) DO ADDRPT^TMGGRC2C "RTN","TMGGRC2",325,0) QUIT "RTN","TMGGRC2A") 0^23^B137060007 "RTN","TMGGRC2A",1,0) TMGGRC2A ;TMG/kst-Work with Growth Chart Data ;10/5/10 ; 9/27/11 9:41am "RTN","TMGGRC2A",2,0) ;;1.0;TMG-LIB;**1,17**;10/5/10;Build 23 "RTN","TMGGRC2A",3,0) ; "RTN","TMGGRC2A",4,0) ;"Code for working with pediatric growth chart data. "RTN","TMGGRC2A",5,0) ;"This helps generate javascript code to pass back to WebBrowser "RTN","TMGGRC2A",6,0) ; "RTN","TMGGRC2A",7,0) ;"Kevin Toppenberg MD and Eddie Hagood "RTN","TMGGRC2A",8,0) ;"(C) 10/5/10 "RTN","TMGGRC2A",9,0) ;"Released under: GNU General Public License (GPL) "RTN","TMGGRC2A",10,0) ; "RTN","TMGGRC2A",11,0) ;"======================================================================= "RTN","TMGGRC2A",12,0) ;"PRIVATE API FUNCTIONS "RTN","TMGGRC2A",13,0) ;"======================================================================= "RTN","TMGGRC2A",14,0) ;"TMGCOMGR(ROOT,GRAPHTYP) --Common graphic entry point "RTN","TMGGRC2A",15,0) ;"SETITEM(ROOT,X) -- set output into ROOT "RTN","TMGGRC2A",16,0) ;"ADDSECT(LABEL,MODULES,ROOT) -- send out section of code, from LABEL until EOF found "RTN","TMGGRC2A",17,0) ;"GETPAT(DFN,AGE,GENDER,DOB,TMGERR) -- ensure Patient variables are setup. "RTN","TMGGRC2A",18,0) ;"======================================================================= "RTN","TMGGRC2A",19,0) ; "RTN","TMGGRC2A",20,0) TMGCOMGR(ROOT,GRAPHTYP) ; "RTN","TMGGRC2A",21,0) ;"Purpose: Entry point, as called from CPRS REPORT system "RTN","TMGGRC2A",22,0) ;"Input: ROOT -- Pass by NAME. This is where output goes "RTN","TMGGRC2A",23,0) ;" GRAPHTYP -- Graph Type. Legend: "RTN","TMGGRC2A",24,0) ;" CH-HT (1) -- Height percentile for age (child) "RTN","TMGGRC2A",25,0) ;" INF-HC (2) -- Head Circumference percentile for age "RTN","TMGGRC2A",26,0) ;" CH-WT (3) -- Weight percentile for age (child) "RTN","TMGGRC2A",27,0) ;" CH-BMI (4) -- BMI percentile for age (child) "RTN","TMGGRC2A",28,0) ;" INF-WT4L (5) - Weight percentile for Length (infant) "RTN","TMGGRC2A",29,0) ;" CH-WT4S (5.5)- Weight percentile for Stature (child) "RTN","TMGGRC2A",30,0) ;" INF-BMI (6) -- BMI percentile for age (infant) "RTN","TMGGRC2A",31,0) ;" INF-WT (7) -- Weight percentile for age (infant) "RTN","TMGGRC2A",32,0) ;" INF-LN (8) -- Length percentile for age (infant) "RTN","TMGGRC2A",33,0) ;" WHO-BA (9) -- WHO BMI by Age "RTN","TMGGRC2A",34,0) ;" WHO-HA (10) -- WHO Height by Age "RTN","TMGGRC2A",35,0) ;" WHO-WA (11) -- WHO Weight by Age "RTN","TMGGRC2A",36,0) ;" WHO-HC (12) -- WHO Head Circumference by Age "RTN","TMGGRC2A",37,0) ;" WHO-WL (13) -- WHO Weight for Length "RTN","TMGGRC2A",38,0) ;" WHO-WS (14) -- WHO Weight for Stature "RTN","TMGGRC2A",39,0) ;"Results: None "RTN","TMGGRC2A",40,0) ;"Output: @ROOT is filled "RTN","TMGGRC2A",41,0) ; "RTN","TMGGRC2A",42,0) NEW TMGERR,AGE,GENDER,TMGERR,DOB "RTN","TMGGRC2A",43,0) DO GETPAT(.DFN,.AGE,.GENDER,.DOB,.TMGERR) "RTN","TMGGRC2A",44,0) DO CHECKTYP(.GRAPHTYP,.TMGERR) GOTO:($D(TMGERR)) TGERR "RTN","TMGGRC2A",45,0) DO ADDSECT("TOP","TMGGRC3A",.ROOT) "RTN","TMGGRC2A",46,0) DO ADDSECT("GLIB","TMGGRC3A,TMGGRC3B,TMGGRC3C,TMGGRC3D,TMGGRC3E",.ROOT) "RTN","TMGGRC2A",47,0) DO ADDSECT("SCRIPT","TMGGRC3F",.ROOT) "RTN","TMGGRC2A",48,0) DO SETGRAPH(ROOT,AGE,GENDER,GRAPHTYP,.TMGERR) GOTO:($D(TMGERR)) TGERR "RTN","TMGGRC2A",49,0) DO SETLINES^TMGGRC2B(ROOT,DFN,DOB,AGE,GENDER,GRAPHTYP,.TMGERR) GOTO:($D(TMGERR)) TGERR "RTN","TMGGRC2A",50,0) GOTO TGDN "RTN","TMGGRC2A",51,0) TGERR DO SETITEM(ROOT,.TMGERR) "RTN","TMGGRC2A",52,0) TGDN DO ADDSECT("ENDING","TMGGRC3F",.ROOT) "RTN","TMGGRC2A",53,0) QUIT "RTN","TMGGRC2A",54,0) ; "RTN","TMGGRC2A",55,0) CHECKTYP(GRAPHTYP,TMGERR) ; "RTN","TMGGRC2A",56,0) SET GRAPHTYP=$GET(GRAPHTYP) "RTN","TMGGRC2A",57,0) IF ("INF;CH;WHO"'[$P(GRAPHTYP,"-",1))!("HT;HC;WT;BMI;WT4L;WT4S;LN;BA;HA;WA;WL;WS"'[$P(GRAPHTYP,";",2)) DO "RTN","TMGGRC2A",58,0) . SET TMGERR="Error: Invalid chart type request: '"_GRAPHTYP_"'" "RTN","TMGGRC2A",59,0) QUIT "RTN","TMGGRC2A",60,0) ; "RTN","TMGGRC2A",61,0) SETITEM(ROOT,X) ; -- set item in list "RTN","TMGGRC2A",62,0) SET @ROOT@($ORDER(@ROOT@(9999),-1)+1)=X "RTN","TMGGRC2A",63,0) QUIT "RTN","TMGGRC2A",64,0) ; "RTN","TMGGRC2A",65,0) ADDSECT(LABEL,MODULES,ROOT) ; "RTN","TMGGRC2A",66,0) ;"Purpose: To send out section of code, from LABEL until EOF found "RTN","TMGGRC2A",67,0) ;"Input: LABEL -- e.g. "L1", "L2" etc. Must match labels in TMGGRC3* "RTN","TMGGRC2A",68,0) ;" MODULES -- one or more routine names. If multiple, separate by commas "RTN","TMGGRC2A",69,0) ;" e.g. 'TMGGRC3A,TMGGRC3B' "RTN","TMGGRC2A",70,0) NEW I,LINE,REF "RTN","TMGGRC2A",71,0) NEW DONE SET DONE=0 "RTN","TMGGRC2A",72,0) NEW MODNUM SET MODNUM=$LENGTH(MODULES,",") "RTN","TMGGRC2A",73,0) NEW MODI,MODL "RTN","TMGGRC2A",74,0) FOR MODI=1:1:MODNUM DO QUIT:DONE "RTN","TMGGRC2A",75,0) . SET MODL=$$TRIM^XLFSTR($PIECE(MODULES,",",MODI)) "RTN","TMGGRC2A",76,0) . NEW CONT SET CONT=0 "RTN","TMGGRC2A",77,0) . FOR I=1:1 QUIT:DONE!CONT DO "RTN","TMGGRC2A",78,0) . . SET REF=LABEL_"+"_I_"^"_MODL "RTN","TMGGRC2A",79,0) . . SET LINE=$TEXT(@REF) "RTN","TMGGRC2A",80,0) . . ;"SET LINE=$TEXT(@LABEL+I^TMGGRC3) "RTN","TMGGRC2A",81,0) . . IF LINE="" SET DONE=1 QUIT "RTN","TMGGRC2A",82,0) . . SET LINE=$PIECE(LINE,";;",2,99) "RTN","TMGGRC2A",83,0) . . IF $$TRIM^XLFSTR(LINE)="EOF" SET DONE=1 QUIT "RTN","TMGGRC2A",84,0) . . IF $$TRIM^XLFSTR(LINE)="CONTINUED" SET CONT=1 QUIT "RTN","TMGGRC2A",85,0) . . DO SETITEM(.ROOT,LINE) "RTN","TMGGRC2A",86,0) QUIT "RTN","TMGGRC2A",87,0) ; "RTN","TMGGRC2A",88,0) GETPAT(DFN,AGE,GENDER,DOB,TMGERR) ; "RTN","TMGGRC2A",89,0) ;"Purpose: To ensure Patient variables are setup. "RTN","TMGGRC2A",90,0) ;"Input: DFN -- The patient to get info from "RTN","TMGGRC2A",91,0) ;" AGE -- PASS BY REFERENCE, AN OUT PARAMETER "RTN","TMGGRC2A",92,0) ;" GENDER -- PASS BY REFERENCE, AN OUT PARAMETER "RTN","TMGGRC2A",93,0) ;" DOB -- PASS BY REFERENCE, AN OUT PARAMETER "RTN","TMGGRC2A",94,0) ;" TMGERR -- PASS BY REFERENCE, AN OUT PARAMETER "RTN","TMGGRC2A",95,0) ;"Result: None "RTN","TMGGRC2A",96,0) IF +$GET(DFN)'>0 DO QUIT "RTN","TMGGRC2A",97,0) . SET TMGERR="Error: Patient ID 'DFN' not defined. Contact administrator." "RTN","TMGGRC2A",98,0) SET AGE=+$$GET1^DIQ(2,DFN_",",.033) ;"returns calculated field, INTEGER yrs "RTN","TMGGRC2A",99,0) SET DOB=$PIECE($GET(^DPT(DFN,0)),"^",3) "RTN","TMGGRC2A",100,0) IF AGE<18 DO "RTN","TMGGRC2A",101,0) . NEW %,X,X1,X2,%Y "RTN","TMGGRC2A",102,0) . DO NOW^%DTC "RTN","TMGGRC2A",103,0) . SET X1=X ;"now "RTN","TMGGRC2A",104,0) . SET X2=DOB "RTN","TMGGRC2A",105,0) . DO ^%DTC ;"result out in X (days delta) "RTN","TMGGRC2A",106,0) . IF %Y=0 QUIT ;"dates are unworkable "RTN","TMGGRC2A",107,0) . SET AGE=+$JUSTIFY(X/365,0,4) "RTN","TMGGRC2A",108,0) SET GENDER=$PIECE($GET(^DPT(DFN,0)),"^",2) "RTN","TMGGRC2A",109,0) IF GENDER="" DO QUIT "RTN","TMGGRC2A",110,0) . SET TMGERR="Error: Patient SEX not defined." "RTN","TMGGRC2A",111,0) QUIT "RTN","TMGGRC2A",112,0) ; "RTN","TMGGRC2A",113,0) SETGRAPH(ROOT,AGEYR,GENDER,GRAPHTYP,TMGERR) ; "RTN","TMGGRC2A",114,0) ;"Purpose: Setup labels, range etc for graph. This will customize "RTN","TMGGRC2A",115,0) ;" The graph based on patients age--which will determine which "RTN","TMGGRC2A",116,0) ;" which graph should be displayed. "RTN","TMGGRC2A",117,0) ;"Input: ROOT -- Pass by NAME. This is where output goes "RTN","TMGGRC2A",118,0) ;" AGEYR -- Patient age in *YEARS* "RTN","TMGGRC2A",119,0) ;" GENDER -- Patient SEX -- Should be 'M' OR 'F' "RTN","TMGGRC2A",120,0) ;" GRAPHTYP -- Graph Type, See above for documentation "RTN","TMGGRC2A",121,0) ;" TMGERR -- PASS BY REFERENCE. An OUT Parameter. "RTN","TMGGRC2A",122,0) ;"Results: None "RTN","TMGGRC2A",123,0) ;"Output: @ROOT is filled "RTN","TMGGRC2A",124,0) NEW TITLE,XMIN,XMAX,XTITLE,YMIN,YMAX,YTITLE,XINC,YINC "RTN","TMGGRC2A",125,0) SET XINC=1,YINC=5 "RTN","TMGGRC2A",126,0) SET GRAPHTYP=$GET(GRAPHTYP) "RTN","TMGGRC2A",127,0) ; "RTN","TMGGRC2A",128,0) SET TITLE="PHYSICAL GROWTH PERCENTILES" "RTN","TMGGRC2A",129,0) IF GRAPHTYP["INF-" DO "RTN","TMGGRC2A",130,0) . SET XMIN=0,XMAX=36 "RTN","TMGGRC2A",131,0) . SET XTITLE="AGE (MONTHS)" "RTN","TMGGRC2A",132,0) ELSE DO "RTN","TMGGRC2A",133,0) . SET XMIN=1,XMAX=22 "RTN","TMGGRC2A",134,0) . SET XTITLE="AGE (YEARS)" "RTN","TMGGRC2A",135,0) ; "RTN","TMGGRC2A",136,0) IF GRAPHTYP="INF-LN" DO "RTN","TMGGRC2A",137,0) . SET TITLE="LENGTH "_TITLE "RTN","TMGGRC2A",138,0) . SET YTITLE="LENGTH (cm)" "RTN","TMGGRC2A",139,0) . SET YMIN=40,YMAX=110 "RTN","TMGGRC2A",140,0) ELSE IF GRAPHTYP="INF-WT" DO "RTN","TMGGRC2A",141,0) . SET TITLE="WEIGHT "_TITLE "RTN","TMGGRC2A",142,0) . SET YTITLE="WEIGHT (kg)" "RTN","TMGGRC2A",143,0) . SET YMIN=2,YMAX=18 "RTN","TMGGRC2A",144,0) . SET XMIN=0,XMAX=40 "RTN","TMGGRC2A",145,0) ELSE IF GRAPHTYP="INF-HC" DO "RTN","TMGGRC2A",146,0) . SET TITLE="HEAD CIRCUMFERENCE "_TITLE "RTN","TMGGRC2A",147,0) . SET YMIN=30,YMAX=55 "RTN","TMGGRC2A",148,0) . SET YTITLE="HEAD CIRC (cm)" "RTN","TMGGRC2A",149,0) . SET XMIN=0,XMAX=40 "RTN","TMGGRC2A",150,0) ELSE IF GRAPHTYP="INF-BMI" DO "RTN","TMGGRC2A",151,0) . SET TITLE="BODY MASS INDEX "_TITLE "RTN","TMGGRC2A",152,0) . SET YTITLE="BMI (kg/m^2)" "RTN","TMGGRC2A",153,0) . SET YMIN=1,YMAX=20 "RTN","TMGGRC2A",154,0) ELSE IF GRAPHTYP="INF-WT4L" DO "RTN","TMGGRC2A",155,0) . SET TITLE="WEIGHT FOR LENGTH "_TITLE "RTN","TMGGRC2A",156,0) . SET YTITLE="WEIGHT (kg)" "RTN","TMGGRC2A",157,0) . SET YMIN=10,YMAX=19 "RTN","TMGGRC2A",158,0) . SET XTITLE="LENGTH (cm)" "RTN","TMGGRC2A",159,0) . SET XMIN=80,XMAX=100 "RTN","TMGGRC2A",160,0) . SET XINC=1,YINC=1 "RTN","TMGGRC2A",161,0) ELSE IF GRAPHTYP="CH-HT" DO "RTN","TMGGRC2A",162,0) . SET TITLE="STATURE "_TITLE "RTN","TMGGRC2A",163,0) . SET YTITLE="STATURE (cm)" "RTN","TMGGRC2A",164,0) . SET YMIN=70,YMAX=200 "RTN","TMGGRC2A",165,0) ELSE IF GRAPHTYP="CH-WT" DO "RTN","TMGGRC2A",166,0) . SET TITLE="WEIGHT "_TITLE "RTN","TMGGRC2A",167,0) . SET YTITLE="WEIGHT (kg)" "RTN","TMGGRC2A",168,0) . SET YMIN=10,YMAX=100 "RTN","TMGGRC2A",169,0) ELSE IF GRAPHTYP="CH-BMI" DO "RTN","TMGGRC2A",170,0) . SET TITLE="BODY MASS INDEX "_TITLE "RTN","TMGGRC2A",171,0) . SET YTITLE="BMI (kg/m^2)" "RTN","TMGGRC2A",172,0) . SET YMIN=13,YMAX=35 "RTN","TMGGRC2A",173,0) ELSE IF GRAPHTYP="CH-WT4S" DO "RTN","TMGGRC2A",174,0) . SET TITLE="WEIGHT FOR STATURE "_TITLE "RTN","TMGGRC2A",175,0) . SET YTITLE="WEIGHT (kg)" "RTN","TMGGRC2A",176,0) . SET YMIN=0,YMAX=20 "RTN","TMGGRC2A",177,0) . SET XTITLE="STATURE (cm)" "RTN","TMGGRC2A",178,0) . SET XMIN=60,XMAX=150 "RTN","TMGGRC2A",179,0) ELSE IF GRAPHTYP["WHO-BA" DO "RTN","TMGGRC2A",180,0) . IF $PIECE(GRAPHTYP,"-",3)="B2" DO "RTN","TMGGRC2A",181,0) . . SET TITLE="BMI-for-Age (Birth to 2 Years)" "RTN","TMGGRC2A",182,0) . . SET YMIN=1,YMAX=21 "RTN","TMGGRC2A",183,0) . . SET XMIN=0,XMAX=25 "RTN","TMGGRC2A",184,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="B5" DO "RTN","TMGGRC2A",185,0) . . SET TITLE="BMI-for-Age (Birth to 5 Years)" "RTN","TMGGRC2A",186,0) . . SET YMIN=10,YMAX=21 "RTN","TMGGRC2A",187,0) . . SET XMIN=0,XMAX=61 "RTN","TMGGRC2A",188,0) . . SET XINC=2,YINC=1 "RTN","TMGGRC2A",189,0) . ELSE DO "RTN","TMGGRC2A",190,0) . . SET TITLE="BMI-for-Age (2 Years to 5 Years)" "RTN","TMGGRC2A",191,0) . . SET YMIN=12,YMAX=20 "RTN","TMGGRC2A",192,0) . . SET XMIN=23,XMAX=61 "RTN","TMGGRC2A",193,0) . . SET XINC=2,YINC=1 "RTN","TMGGRC2A",194,0) . SET YTITLE="BMI (kg/m^2)" "RTN","TMGGRC2A",195,0) . SET XTITLE="AGE (MONTHS)" "RTN","TMGGRC2A",196,0) ELSE IF GRAPHTYP["WHO-HA" DO "RTN","TMGGRC2A",197,0) . IF $PIECE(GRAPHTYP,"-",3)="B6" DO "RTN","TMGGRC2A",198,0) . . SET TITLE="Length-for-Age (Birth to 6 Months)" "RTN","TMGGRC2A",199,0) . . SET YMIN=45,YMAX=76 "RTN","TMGGRC2A",200,0) . . SET XMIN=0,XMAX=6 "RTN","TMGGRC2A",201,0) . . SET XINC=1,YINC=5 "RTN","TMGGRC2A",202,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="B2" DO "RTN","TMGGRC2A",203,0) . . SET TITLE="Length-for-Age (Birth to 2 Years)" "RTN","TMGGRC2A",204,0) . . SET YMIN=45,YMAX=95 "RTN","TMGGRC2A",205,0) . . SET XMIN=0,XMAX=25 "RTN","TMGGRC2A",206,0) . . SET XINC=1,YINC=5 "RTN","TMGGRC2A",207,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="62" DO "RTN","TMGGRC2A",208,0) . . SET TITLE="Length-for-Age (6 Months to 2 Years)" "RTN","TMGGRC2A",209,0) . . SET YMIN=60,YMAX=95 "RTN","TMGGRC2A",210,0) . . SET XMIN=6,XMAX=25 "RTN","TMGGRC2A",211,0) . SET XINC=1,YINC=5 "RTN","TMGGRC2A",212,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="25" DO "RTN","TMGGRC2A",213,0) . . SET TITLE="Length-for-Age (2 Years to 5 Years)" "RTN","TMGGRC2A",214,0) . . SET YMIN=75,YMAX=120 "RTN","TMGGRC2A",215,0) . . SET XMIN=23,XMAX=61 "RTN","TMGGRC2A",216,0) . . SET XINC=2,YINC=5 "RTN","TMGGRC2A",217,0) . ELSE DO "RTN","TMGGRC2A",218,0) . . SET TITLE="Length-for-Age (Birth to 5 Years)" "RTN","TMGGRC2A",219,0) . . SET YMIN=40,YMAX=125 "RTN","TMGGRC2A",220,0) . . SET XMIN=0,XMAX=61 "RTN","TMGGRC2A",221,0) . . SET XINC=2,YINC=5 "RTN","TMGGRC2A",222,0) . SET YTITLE="LENGTH (cm)" "RTN","TMGGRC2A",223,0) . SET XTITLE="AGE (MONTHS)" "RTN","TMGGRC2A",224,0) ELSE IF GRAPHTYP["WHO-WA" DO "RTN","TMGGRC2A",225,0) . IF $PIECE(GRAPHTYP,"-",3)="B6" DO "RTN","TMGGRC2A",226,0) . . SET TITLE="Weight-for-Age (Birth to 6 Months)" "RTN","TMGGRC2A",227,0) . . SET YMIN=0,YMAX=10 "RTN","TMGGRC2A",228,0) . . SET XMIN=0,XMAX=6 "RTN","TMGGRC2A",229,0) . . SET XINC=1,YINC=1 "RTN","TMGGRC2A",230,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="B2" DO "RTN","TMGGRC2A",231,0) . . SET TITLE="Weight-for-Age (Birth to 2 Years)" "RTN","TMGGRC2A",232,0) . . SET YMIN=0,YMAX=16 "RTN","TMGGRC2A",233,0) . . SET XMIN=0,XMAX=25 "RTN","TMGGRC2A",234,0) . . SET XINC=1,YINC=1 "RTN","TMGGRC2A",235,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="62" DO "RTN","TMGGRC2A",236,0) . . SET TITLE="Weight-for-Age (6 Months to 2 Years)" "RTN","TMGGRC2A",237,0) . . SET YMIN=5,YMAX=16 "RTN","TMGGRC2A",238,0) . . SET XMIN=6,XMAX=25 "RTN","TMGGRC2A",239,0) . . SET XINC=1,YINC=1 "RTN","TMGGRC2A",240,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="25" DO "RTN","TMGGRC2A",241,0) . . SET TITLE="Weight-for-Age (2 Years to 5 Years)" "RTN","TMGGRC2A",242,0) . . SET YMIN=8,YMAX=26 "RTN","TMGGRC2A",243,0) . . SET XMIN=23,XMAX=61 "RTN","TMGGRC2A",244,0) . . SET XINC=2,YINC=1 "RTN","TMGGRC2A",245,0) . ELSE DO "RTN","TMGGRC2A",246,0) . . SET TITLE="Weight-for-Age (Birth to 5 Years)" "RTN","TMGGRC2A",247,0) . . SET YMIN=0,YMAX=25 "RTN","TMGGRC2A",248,0) . . SET XMIN=0,XMAX=61 "RTN","TMGGRC2A",249,0) . . SET XINC=2,YINC=2 "RTN","TMGGRC2A",250,0) . SET YTITLE="WEIGHT (kg)" "RTN","TMGGRC2A",251,0) . SET XTITLE="AGE (MONTHS)" "RTN","TMGGRC2A",252,0) ELSE IF GRAPHTYP["WHO-HC" DO "RTN","TMGGRC2A",253,0) . IF $PIECE(GRAPHTYP,"-",3)="BT" DO "RTN","TMGGRC2A",254,0) . . SET TITLE="Head circumference-for-Age (Birth to 13 Weeks)" "RTN","TMGGRC2A",255,0) . . SET YMIN=31,YMAX=43 "RTN","TMGGRC2A",256,0) . . SET XMIN=0,XMAX=3.25 "RTN","TMGGRC2A",257,0) . . SET XINC=.25,YINC=1 "RTN","TMGGRC2A",258,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="B2" DO "RTN","TMGGRC2A",259,0) . . SET TITLE="Head circumference-for-Age (Birth to 2 Years)" "RTN","TMGGRC2A",260,0) . . SET YMIN=31,YMAX=51 "RTN","TMGGRC2A",261,0) . . SET XMIN=0,XMAX=25 "RTN","TMGGRC2A",262,0) . . SET XINC=2,YINC=1 "RTN","TMGGRC2A",263,0) . ELSE DO "RTN","TMGGRC2A",264,0) . . SET TITLE="Head circumference-for-Age (Birth to 5 Years)" "RTN","TMGGRC2A",265,0) . . SET YMIN=31,YMAX=53 "RTN","TMGGRC2A",266,0) . . SET XMIN=0,XMAX=61 "RTN","TMGGRC2A",267,0) . . SET XINC=2,YINC=2 "RTN","TMGGRC2A",268,0) . SET YTITLE="HEAD CIRC (cm)" "RTN","TMGGRC2A",269,0) . SET XTITLE="AGE (MONTHS)" "RTN","TMGGRC2A",270,0) ELSE IF GRAPHTYP["WHO-WL" DO "RTN","TMGGRC2A",271,0) . SET TITLE="Weight-for-height " "RTN","TMGGRC2A",272,0) . SET YTITLE="WEIGHT (kg)" "RTN","TMGGRC2A",273,0) . SET YMIN=5,YMAX=29 "RTN","TMGGRC2A",274,0) . SET XTITLE="LENGTH (cm)" "RTN","TMGGRC2A",275,0) . SET XMIN=65,XMAX=130 "RTN","TMGGRC2A",276,0) . SET XINC=5,YINC=2 "RTN","TMGGRC2A",277,0) ELSE IF GRAPHTYP["WHO-WS" DO "RTN","TMGGRC2A",278,0) . SET TITLE="WHO - WEIGHT FOR STATURE "_TITLE "RTN","TMGGRC2A",279,0) . SET YTITLE="WEIGHT (kg)" "RTN","TMGGRC2A",280,0) . SET YMIN=0,YMAX=20 "RTN","TMGGRC2A",281,0) . SET XTITLE="STATURE (cm)" "RTN","TMGGRC2A",282,0) . SET XMIN=60,XMAX=150 "RTN","TMGGRC2A",283,0) . SET XMIN=0,XMAX=60 "RTN","TMGGRC2A",284,0) . SET XTITLE="AGE (MONTHS)" "RTN","TMGGRC2A",285,0) ; "RTN","TMGGRC2A",286,0) NEW GENDERTITLE "RTN","TMGGRC2A",287,0) IF GENDER="F" SET GENDERTITLE="GIRLS " "RTN","TMGGRC2A",288,0) ELSE SET GENDERTITLE="BOYS " "RTN","TMGGRC2A",289,0) IF $PIECE(GRAPHTYP,"-",1)="WHO" SET TITLE=TITLE_" -- "_GENDERTITLE_" -- WHO DATA" "RTN","TMGGRC2A",290,0) ELSE SET TITLE=GENDERTITLE_TITLE "RTN","TMGGRC2A",291,0) ; "RTN","TMGGRC2A",292,0) NEW SOURCE,ACCESSDT "RTN","TMGGRC2A",293,0) IF GRAPHTYP["WHO" DO "RTN","TMGGRC2A",294,0) . SET SOURCE="http://www.who.int/childgrowth/standards/en/" "RTN","TMGGRC2A",295,0) . SET ACCESSDT="2/1/2011" "RTN","TMGGRC2A",296,0) ELSE DO "RTN","TMGGRC2A",297,0) . SET SOURCE="http://www.cdc.gov/growthcharts/percentile_data_files.htm" "RTN","TMGGRC2A",298,0) . SET ACCESSDT="10/21/2010" "RTN","TMGGRC2A",299,0) DO SETGRAPH^TMGGRC3F(.ROOT,TITLE,XMIN,XMAX,XTITLE,YMIN,YMAX,YTITLE,XINC,YINC,SOURCE,ACCESSDT,GRAPHTYP) ; "RTN","TMGGRC2A",300,0) ; "RTN","TMGGRC2A",301,0) ; JS to draw separation line below; not drawn here. Actual call in SetupGraph produced in TMGGRC3. "RTN","TMGGRC2A",302,0) IF GRAPHTYP="WHO-HA-B5" DO ADDWHOL1^TMGGRC3F(.ROOT) ; JS to Draw line to separate height/length (doesn't actually draw line) "RTN","TMGGRC2A",303,0) IF GRAPHTYP="WHO-BA-B5" DO ADDWHOL2^TMGGRC3F(.ROOT) ; JS to Draw line to separate height/length (doesn't actually draw line) "RTN","TMGGRC2A",304,0) QUIT "RTN","TMGGRC2A",305,0) ; "RTN","TMGGRC2B") 0^24^B135547639 "RTN","TMGGRC2B",1,0) TMGGRC2B ;TMG/kst-Work with Growth Chart Data ;10/5/10 ; 9/27/11 9:41am "RTN","TMGGRC2B",2,0) ;;1.0;TMG-LIB;**1,17**;10/5/10;Build 23 "RTN","TMGGRC2B",3,0) ; "RTN","TMGGRC2B",4,0) ;"Code for working with pediatric growth chart data. "RTN","TMGGRC2B",5,0) ;"This helps generate javascript code to pass back to WebBrowser "RTN","TMGGRC2B",6,0) ; "RTN","TMGGRC2B",7,0) ;"Kevin Toppenberg MD and Eddie Hagood "RTN","TMGGRC2B",8,0) ;"(C) 10/5/10 "RTN","TMGGRC2B",9,0) ;"Released under: GNU General Public License (GPL) "RTN","TMGGRC2B",10,0) ; "RTN","TMGGRC2B",11,0) ;"======================================================================= "RTN","TMGGRC2B",12,0) ;"PRIVATE API FUNCTIONS "RTN","TMGGRC2B",13,0) ;"======================================================================= "RTN","TMGGRC2B",14,0) ;"SETGRAPH(ROOT,AGEYR,GENDER,GRAPHTYP,TMGERR) --Setup labels, range etc for graph. "RTN","TMGGRC2B",15,0) ;"SETLINES(ROOT,DFN,DOB,AGEYR,GENDER,GRAPHTYP,TMGERR) -- send out data for REFERENCE lines. "RTN","TMGGRC2B",16,0) ;"SETRLINE(ROOT,AGEYR,GENDER,GRAPHTYP,TMGERR) -- send out data for REFERENCE lines. "RTN","TMGGRC2B",17,0) ;"SETPLINE(ROOT,DFN,DOB,AGEYR,GENDER,GRAPHTYP,TMGERR) -- send out data for PATIENT data line. "RTN","TMGGRC2B",18,0) ;"GETDATA(DFN,VITIEN,DOB,STARTDT,ENDDT,GRAPHTYP,ARRAY) --populate ARRAY with desired vitals data for date range "RTN","TMGGRC2B",19,0) ;"CVTMETRC(VITIEN,DATA) -- convert English measurements to metric "RTN","TMGGRC2B",20,0) ;"GETDATES(DOB,MONMIN,MAXMON,STARTDT,ENDDT) --Convert DOB + age range into absolute starting and ending date "RTN","TMGGRC2B",21,0) ;"======================================================================= "RTN","TMGGRC2B",22,0) ; "RTN","TMGGRC2B",23,0) SETLINES(ROOT,DFN,DOB,AGEYR,GENDER,GRAPHTYP,TMGERR) ; "RTN","TMGGRC2B",24,0) ;"Purpose: to send out data for REFERENCE lines. "RTN","TMGGRC2B",25,0) ;"Input: ROOT -- Pass by NAME. This is where output goes "RTN","TMGGRC2B",26,0) ;" DFN -- Patient DFN "RTN","TMGGRC2B",27,0) ;" DOB -- Patient DOB "RTN","TMGGRC2B",28,0) ;" AGEYR -- Patient age in *YEARS* "RTN","TMGGRC2B",29,0) ;" GENDER -- Patient SEX -- Should be 'M' OR 'F' "RTN","TMGGRC2B",30,0) ;" GRAPHTYP -- Graph Type, See above for documentation "RTN","TMGGRC2B",31,0) ;" TMGERR -- PASS BY REFERENCE. An OUT Parameter. "RTN","TMGGRC2B",32,0) ;"Results: None "RTN","TMGGRC2B",33,0) ;"Output: @ROOT is filled "RTN","TMGGRC2B",34,0) DO STRTLINE^TMGGRC3F(.ROOT) ; "RTN","TMGGRC2B",35,0) DO SETRLINE(ROOT,AGE,GENDER,GRAPHTYP,.TMGERR) QUIT:($D(TMGERR)) "RTN","TMGGRC2B",36,0) DO SETPLINE(ROOT,DFN,DOB,AGE,GENDER,GRAPHTYP,.TMGERR) QUIT:($D(TMGERR)) "RTN","TMGGRC2B",37,0) DO ENDLINES^TMGGRC3F(ROOT) ; "RTN","TMGGRC2B",38,0) QUIT "RTN","TMGGRC2B",39,0) ; "RTN","TMGGRC2B",40,0) SETRLINE(ROOT,AGEYR,GENDER,GRAPHTYP,TMGERR) ; "RTN","TMGGRC2B",41,0) ;"Purpose: to send out data for REFERENCE lines. "RTN","TMGGRC2B",42,0) ;"Input: ROOT -- Pass by NAME. This is where output goes "RTN","TMGGRC2B",43,0) ;" AGEYR -- Patient age in *YEARS* "RTN","TMGGRC2B",44,0) ;" GENDER -- Patient SEX -- Should be 'M' OR 'F' "RTN","TMGGRC2B",45,0) ;" GRAPHTYP -- Graph Type, See above for documentation "RTN","TMGGRC2B",46,0) ;" TMGERR -- PASS BY REFERENCE. An OUT Parameter. "RTN","TMGGRC2B",47,0) ;"Results: None "RTN","TMGGRC2B",48,0) ;"Output: @ROOT is filled "RTN","TMGGRC2B",49,0) NEW ARRAY "RTN","TMGGRC2B",50,0) SET GRAPHTYP=$GET(GRAPHTYP) "RTN","TMGGRC2B",51,0) ;"Get normal curves values -- ARRAY(%tile,Age)=x^y "RTN","TMGGRC2B",52,0) IF GRAPHTYP["INF-" DO "RTN","TMGGRC2B",53,0) . IF GRAPHTYP="INF-LN" DO LENREF^TMGGRC1(1,GENDER,.ARRAY) QUIT "RTN","TMGGRC2B",54,0) . IF GRAPHTYP="INF-WT" DO WTREF^TMGGRC1(1,GENDER,.ARRAY) QUIT "RTN","TMGGRC2B",55,0) . IF GRAPHTYP="INF-HC" DO HCREF^TMGGRC1(1,GENDER,.ARRAY) QUIT "RTN","TMGGRC2B",56,0) . IF GRAPHTYP="INF-BMI" DO BMIREF^TMGGRC1(1,GENDER,.ARRAY,"5,10,25,50,60,75,80,85,90,95") QUIT "RTN","TMGGRC2B",57,0) . IF GRAPHTYP="INF-WT4L" DO WTLENREF^TMGGRC1(1,GENDER,.ARRAY,"5,10,25,50,75,80,90,95") QUIT "RTN","TMGGRC2B",58,0) ELSE IF GRAPHTYP["WHO" DO "RTN","TMGGRC2B",59,0) . NEW MODE "RTN","TMGGRC2B",60,0) . IF $PIECE(GRAPHTYP,"-",3)="BT" SET MODE=8 "RTN","TMGGRC2B",61,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="62" SET MODE=7 "RTN","TMGGRC2B",62,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="B2" SET MODE=4 "RTN","TMGGRC2B",63,0) . ELSE IF ($PIECE(GRAPHTYP,"-",3)="25")!(GRAPHTYP="WHO-WL") SET MODE=5 "RTN","TMGGRC2B",64,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="B6" SET MODE=6 "RTN","TMGGRC2B",65,0) . ELSE SET MODE=3 "RTN","TMGGRC2B",66,0) . IF GRAPHTYP["WHO-BA" DO WHBMIREF^TMGGRC1(MODE,GENDER,.ARRAY,"3,15,50,85,97") QUIT "RTN","TMGGRC2B",67,0) . IF GRAPHTYP["WHO-HA" DO WHHAREF^TMGGRC1(MODE,GENDER,.ARRAY,"3,15,50,85,97") QUIT "RTN","TMGGRC2B",68,0) . IF GRAPHTYP["WHO-WA" DO WHWAREF^TMGGRC1(MODE,GENDER,.ARRAY,"3,15,50,85,97") QUIT "RTN","TMGGRC2B",69,0) . IF GRAPHTYP["WHO-HC" DO WHHCREF^TMGGRC1(MODE,GENDER,.ARRAY,"3,15,50,85,97") QUIT "RTN","TMGGRC2B",70,0) . IF GRAPHTYP["WHO-WL" DO WHWLREF^TMGGRC1(MODE,GENDER,.ARRAY,"3,15,50,85,97") QUIT "RTN","TMGGRC2B",71,0) . IF GRAPHTYP["WHO-WS" DO WHWSREF^TMGGRC1(MODE,GENDER,.ARRAY,"3,15,50,85,97") QUIT "RTN","TMGGRC2B",72,0) ELSE DO "RTN","TMGGRC2B",73,0) . IF GRAPHTYP="CH-HT" DO LENREF^TMGGRC1(2,GENDER,.ARRAY) QUIT "RTN","TMGGRC2B",74,0) . IF GRAPHTYP="CH-WT" DO WTREF^TMGGRC1(2,GENDER,.ARRAY,"5,10,25,50,60,75,80,85,90,95") QUIT "RTN","TMGGRC2B",75,0) . IF GRAPHTYP="CH-BMI" DO BMIREF^TMGGRC1(2,GENDER,.ARRAY,"5,10,25,50,60,75,80,85,90,95") QUIT "RTN","TMGGRC2B",76,0) . IF GRAPHTYP="CH-WT4S" DO WTLENREF^TMGGRC1(2,GENDER,.ARRAY) QUIT "RTN","TMGGRC2B",77,0) . IF GRAPHTYP="CH-WT4S" DO WTLENREF^TMGGRC1(2,GENDER,.ARRAY) QUIT "RTN","TMGGRC2B",78,0) ; "RTN","TMGGRC2B",79,0) NEW PCTL SET PCTL=0 "RTN","TMGGRC2B",80,0) NEW LABLX SET LABLX="" "RTN","TMGGRC2B",81,0) ;"Loop through each normal line (e.g. 5th %tile, then 10th%tile etc... "RTN","TMGGRC2B",82,0) ;"-----------------------ehs change--------------------- "RTN","TMGGRC2B",83,0) NEW IILINE,REFLINE ;declare new variable "RTN","TMGGRC2B",84,0) FOR IILINE=1:1 SET PCTL=$ORDER(ARRAY(PCTL)) QUIT:(PCTL="") DO ;make IILINE counter to count the number of lines "RTN","TMGGRC2B",85,0) . NEW LINE "RTN","TMGGRC2B",86,0) . IF LABLX="" DO "RTN","TMGGRC2B",87,0) . . NEW J FOR J=1:1:2 SET LABLX=$ORDER(ARRAY(PCTL,LABLX),-1) "RTN","TMGGRC2B",88,0) . NEW X SET X="" ;"X Usually stores months, except in Weight For Length/Stature graphs "RTN","TMGGRC2B",89,0) . FOR SET X=$ORDER(ARRAY(PCTL,X)) QUIT:(X="") DO "RTN","TMGGRC2B",90,0) . . NEW VAL SET VAL=ARRAY(PCTL,X) "RTN","TMGGRC2B",91,0) . . IF X=LABLX SET VAL=VAL_"^"_$$SETSUFIX^TMGGRCU(PCTL) "RTN","TMGGRC2B",92,0) . . NEW XVAL SET XVAL=X "RTN","TMGGRC2B",93,0) . . IF GRAPHTYP["CH-" DO "RTN","TMGGRC2B",94,0) . . . SET XVAL=+$JUSTIFY(X/12,0,1) "RTN","TMGGRC2B",95,0) . . . SET $PIECE(VAL,"^",1)=XVAL "RTN","TMGGRC2B",96,0) . . SET LINE(XVAL)=VAL "RTN","TMGGRC2B",97,0) . ;"Add one reference/normal line "RTN","TMGGRC2B",98,0) . SET REFLINE=1 ;set the value of REFLINE to be 1 "RTN","TMGGRC2B",99,0) . IF (IILINE=4&(GRAPHTYP["CH-"!(GRAPHTYP["INF-")))!(IILINE=3&(GRAPHTYP["WHO-")) SET REFLINE=2 ;the if statment that detect the 50% tile line in all graphs "RTN","TMGGRC2B",100,0) . DO ADDLINE^TMGGRC3F(.ROOT,.LINE,REFLINE) ;" Add Data Set for a reference Line "RTN","TMGGRC2B",101,0) QUIT "RTN","TMGGRC2B",102,0) ;"----------------------------------------------------end ehs change---------------------------------------- "RTN","TMGGRC2B",103,0) SETPLINE(ROOT,DFN,DOB,AGEYR,GENDER,GRAPHTYP,TMGERR) ; "RTN","TMGGRC2B",104,0) ;"Purpose: to send out data for PATIENT data line. "RTN","TMGGRC2B",105,0) ;"Input: ROOT -- Pass by NAME. This is where output goes "RTN","TMGGRC2B",106,0) ;" DFN -- Patient DFN "RTN","TMGGRC2B",107,0) ;" DOB -- Patient DOB "RTN","TMGGRC2B",108,0) ;" AGEYR -- Patient age in *YEARS* "RTN","TMGGRC2B",109,0) ;" GENDER -- Patient SEX -- Should be 'M' OR 'F' "RTN","TMGGRC2B",110,0) ;" GRAPHTYP -- Graph Type, See above for documentation "RTN","TMGGRC2B",111,0) ;" TMGERR -- PASS BY REFERENCE. An OUT Parameter. "RTN","TMGGRC2B",112,0) ;"Results: None "RTN","TMGGRC2B",113,0) ;"Output: @ROOT is filled "RTN","TMGGRC2B",114,0) ; "RTN","TMGGRC2B",115,0) NEW STARTDT,ENDDT,ARRAY,VITIEN,RESULT "RTN","TMGGRC2B",116,0) SET GRAPHTYP=$GET(GRAPHTYP) "RTN","TMGGRC2B",117,0) IF GRAPHTYP["INF-" DO "RTN","TMGGRC2B",118,0) . DO GETDATES^TMGGRC2C(DOB,0,36,.STARTDT,.ENDDT) ; "RTN","TMGGRC2B",119,0) ELSE IF GRAPHTYP["WHO" DO "RTN","TMGGRC2B",120,0) . ;"//kt Eddie -- fix. If called with WHO-BA, then no 3rd piece, and STARTDT and ENDDT not set --> error "RTN","TMGGRC2B",121,0) . IF $PIECE(GRAPHTYP,"-",3)="BT" DO GETDATES^TMGGRC2C(DOB,0,3.25,.STARTDT,.ENDDT) ; "RTN","TMGGRC2B",122,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="62" DO GETDATES^TMGGRC2C(DOB,6,24,.STARTDT,.ENDDT) ; "RTN","TMGGRC2B",123,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="B2" DO GETDATES^TMGGRC2C(DOB,0,24,.STARTDT,.ENDDT) ; "RTN","TMGGRC2B",124,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="25" DO GETDATES^TMGGRC2C(DOB,24,60,.STARTDT,.ENDDT) ; "RTN","TMGGRC2B",125,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="B6" DO GETDATES^TMGGRC2C(DOB,0,7,.STARTDT,.ENDDT) ; "RTN","TMGGRC2B",126,0) . ELSE IF $PIECE(GRAPHTYP,"-",3)="B5" DO GETDATES^TMGGRC2C(DOB,0,60,.STARTDT,.ENDDT) ; "RTN","TMGGRC2B",127,0) . ELSE IF GRAPHTYP["WHO-WL" DO GETDATES^TMGGRC2C(DOB,24,60,.STARTDT,.ENDDT) ; "RTN","TMGGRC2B",128,0) ELSE DO "RTN","TMGGRC2B",129,0) . DO GETDATES^TMGGRC2C(DOB,24,240,.STARTDT,.ENDDT) ; "RTN","TMGGRC2B",130,0) ; "RTN","TMGGRC2B",131,0) IF (GRAPHTYP["-HT")!(GRAPHTYP["WHO-HA")!(GRAPHTYP["-LN") DO "RTN","TMGGRC2B",132,0) . SET VITIEN=+$ORDER(^GMRD(120.51,"B","HEIGHT",0)) "RTN","TMGGRC2B",133,0) ELSE IF (GRAPHTYP["-HC")!(GRAPHTYP["WHO-HC") DO "RTN","TMGGRC2B",134,0) . SET VITIEN=+$ORDER(^GMRD(120.51,"B","CIRCUMFERENCE/GIRTH",0)) "RTN","TMGGRC2B",135,0) ELSE IF (GRAPHTYP["-WT")!(GRAPHTYP["WHO-WA") DO "RTN","TMGGRC2B",136,0) . SET VITIEN=+$ORDER(^GMRD(120.51,"B","WEIGHT",0)) "RTN","TMGGRC2B",137,0) ELSE IF (GRAPHTYP["-BMI")!(GRAPHTYP["WHO-BA") DO "RTN","TMGGRC2B",138,0) . SET VITIEN="BMI" "RTN","TMGGRC2B",139,0) ELSE SET VITIEN=0 "RTN","TMGGRC2B",140,0) SET RESULT=$$GETDATA(DFN,VITIEN,DOB,.STARTDT,.ENDDT,GRAPHTYP,.ARRAY) ; "RTN","TMGGRC2B",141,0) ;"NEW MODE SET MODE=$SELECT(GRAPHTYP["-WT4":1,(1=1):2) "RTN","TMGGRC2B",142,0) DO ADDLINE^TMGGRC3F(.ROOT,.ARRAY,0) ;" Add PATIENT Data Set "RTN","TMGGRC2B",143,0) DO ADDTABLE^TMGGRC3F(.ROOT,.ARRAY,GRAPHTYP) ;" Add Table of Patient Data Set "RTN","TMGGRC2B",144,0) QUIT "RTN","TMGGRC2B",145,0) ; "RTN","TMGGRC2B",146,0) GETDATA(DFN,VITIEN,DOB,STARTDT,ENDDT,GRAPHTYP,ARRAY) ; "RTN","TMGGRC2B",147,0) ;"Purpose: To populate ARRAY with desired vitals data for date range "RTN","TMGGRC2B",148,0) ;"Input: DFN -- The IEN in PATIENT file for patient "RTN","TMGGRC2B",149,0) ;" VITIEN -- The IEN in 120.51 specifying which vital type to return (e.g. HEIGHT, vs WEIGHT etc. "RTN","TMGGRC2B",150,0) ;" There is no BMI vital type. If vital type is BMI then VITIEN will equal BMI. "RTN","TMGGRC2B",151,0) ;" DOB -- Patient's DOB -- in FMDate format "RTN","TMGGRC2B",152,0) ;" STARTDT -- Start of desired date range, in FMDate format "RTN","TMGGRC2B",153,0) ;" ENDDT -- End of desired date range, in FMDate format "RTN","TMGGRC2B",154,0) ;" GRAPHTYP -- Graph Type, See above for documentation "RTN","TMGGRC2B",155,0) ;" ARRAY -- PASS BY REFERENCE, AN OUT PARAMETER. See format below. "RTN","TMGGRC2B",156,0) ;"Result: RESULT: -1^MESSAGE OR 1^MESSAGE "RTN","TMGGRC2B",157,0) ;"Output: ARRAY filled as follows. Format: "RTN","TMGGRC2B",158,0) ;" NOTE: AGE is in months if GRAPHTYP["INF-", otherwise it is in years "RTN","TMGGRC2B",159,0) ;" ARRAY(Index#)=Age^ValueInMetric^^DateOfValue^^%tile "RTN","TMGGRC2B",160,0) ;" or ARRAY(Index#)=HeightOrStatureInCm^WeightInKg^^DateOfValue^Age^%tile if GRAPHTYP["-WT4" "RTN","TMGGRC2B",161,0) ;"NOTE: Vitals are store in English format, and needs to be converted to metric "RTN","TMGGRC2B",162,0) ;"NOTE: If desired vital type is BMI, then it will have to be calculated here, I think... "RTN","TMGGRC2B",163,0) ; "RTN","TMGGRC2B",164,0) ;"Use index --> ^PXRMINDX(120.5,"PI",DFN,MEASUREMENT_IEN,DATE/TIME,IEN) "RTN","TMGGRC2B",165,0) ;" e.g. ^PXRMINDX(120.5,"PI",DFN,VITIEN,DATE/TIME,IENofStoredVitals "RTN","TMGGRC2B",166,0) NEW THISDT SET THISDT=0 "RTN","TMGGRC2B",167,0) NEW IDX SET IDX=1 "RTN","TMGGRC2B",168,0) KILL ARRAY "RTN","TMGGRC2B",169,0) NEW GENDER SET GENDER=$PIECE($GET(^DPT(DFN,0)),"^",2) "RTN","TMGGRC2B",170,0) SET RESULT="1^SUCCESSFUL" "RTN","TMGGRC2B",171,0) IF (VITIEN="BMI")!(GRAPHTYP["-WT4")!(GRAPHTYP["WHO-BA")!(GRAPHTYP["WHO-WL")!(GRAPHTYP["WHO-WS") DO "RTN","TMGGRC2B",172,0) . NEW HTTYPE,WTTYPE "RTN","TMGGRC2B",173,0) . SET HTTYPE=+$ORDER(^GMRD(120.51,"B","HEIGHT",0)) "RTN","TMGGRC2B",174,0) . SET WTTYPE=+$ORDER(^GMRD(120.51,"B","WEIGHT",0)) "RTN","TMGGRC2B",175,0) . FOR SET THISDT=$ORDER(^PXRMINDX(120.5,"PI",DFN,WTTYPE,THISDT)) QUIT:(+THISDT'>0)!(+RESULT=-1) DO "RTN","TMGGRC2B",176,0) . . NEW THISDTEX DO "RTN","TMGGRC2B",177,0) . . . NEW Y SET Y=THISDT\1 ;"Trim off Time "RTN","TMGGRC2B",178,0) . . . X ^DD("DD") ;"Y output as: e.g. "JUL 20,1969" "RTN","TMGGRC2B",179,0) . . . SET THISDTEX=Y "RTN","TMGGRC2B",180,0) . . NEW HTIEN,HTDATE,HEIGHT "RTN","TMGGRC2B",181,0) . . SET HTDATE=+$ORDER(^PXRMINDX(120.5,"PI",DFN,HTTYPE,THISDT\1)) QUIT:HTDATE'>0 "RTN","TMGGRC2B",182,0) . . IF (HTDATE\1)'=(THISDT\1) QUIT "RTN","TMGGRC2B",183,0) . . SET HTIEN=+$ORDER(^PXRMINDX(120.5,"PI",DFN,HTTYPE,HTDATE,0)) "RTN","TMGGRC2B",184,0) . . SET HEIGHT=$PIECE($GET(^GMR(120.5,HTIEN,0)),"^",8) ;"English (not metric) units here "RTN","TMGGRC2B",185,0) . . IF HEIGHT'>0 DO QUIT "RTN","TMGGRC2B",186,0) . . . SET RESULT="-1^NO HEIGHT RECORDED TO CALCULATE BMI" "RTN","TMGGRC2B",187,0) . . IF (THISDT'ENDDT) DO "RTN","TMGGRC2B",188,0) . . . NEW RECIEN SET RECIEN=0 "RTN","TMGGRC2B",189,0) . . . FOR SET RECIEN=+$ORDER(^PXRMINDX(120.5,"PI",DFN,WTTYPE,THISDT,RECIEN)) QUIT:(+RECIEN'>0) DO "RTN","TMGGRC2B",190,0) . . . . NEW X1,X2,METDATA "RTN","TMGGRC2B",191,0) . . . . SET X2=DOB "RTN","TMGGRC2B",192,0) . . . . SET X1=$PIECE($GET(^GMR(120.5,RECIEN,0)),"^",1) "RTN","TMGGRC2B",193,0) . . . . DO ^%DTC ;"OUTPUT X=X1-X2, in days "RTN","TMGGRC2B",194,0) . . . . NEW AGE SET AGE=X ;Days "RTN","TMGGRC2B",195,0) . . . . NEW AGEYR SET AGEYR=X/365 ;"+$JUSTIFY(X/365,0,1) ;"in years "RTN","TMGGRC2B",196,0) . . . . IF GRAPHTYP["CH-" SET AGE=AGEYR "RTN","TMGGRC2B",197,0) . . . . ELSE SET AGE=X/30 ;"+$JUSTIFY(X/30,0,1) ;"in months "RTN","TMGGRC2B",198,0) . . . . NEW L SET L=+$ORDER(^PXRMINDX(120.5,"PI",DFN,WTTYPE,THISDT,0)) "RTN","TMGGRC2B",199,0) . . . . NEW WEIGHT SET WEIGHT=$PIECE($GET(^GMR(120.5,L,0)),"^",8) ;"English units "RTN","TMGGRC2B",200,0) . . . . NEW PCTL SET PCTL="" "RTN","TMGGRC2B",201,0) . . . . IF (GRAPHTYP["-WT4")!(GRAPHTYP["WHO-WL")!(GRAPHTYP["WHO-WS") DO "RTN","TMGGRC2B",202,0) . . . . . SET METDATA=$$CVTMETRC^TMGGRC2C("W4LS",WEIGHT_"^"_HEIGHT) ;"returns 'Ht^Wt' "RTN","TMGGRC2B",203,0) . . . . . SET PCTL=$$PCTILE^TMGGRC2C(GRAPHTYP,AGEYR,GENDER,WEIGHT/2.2,HEIGHT*2.54) "RTN","TMGGRC2B",204,0) . . . . . SET ARRAY(IDX)=METDATA_"^^"_THISDTEX_"^"_AGE_"^"_PCTL ;"HeightOrStatureInCm^WeightInKg^^DateOfValue^Age^%tile "RTN","TMGGRC2B",205,0) . . . . ELSE DO ;"BMI "RTN","TMGGRC2B",206,0) . . . . . SET METDATA=$$CVTMETRC^TMGGRC2C("BMI",WEIGHT_"^"_HEIGHT) "RTN","TMGGRC2B",207,0) . . . . . SET PCTL=$$PCTILE^TMGGRC2C(GRAPHTYP,AGEYR,GENDER,METDATA) "RTN","TMGGRC2B",208,0) . . . . . SET ARRAY(IDX)=AGE_"^"_METDATA_"^^"_THISDTEX_"^^"_PCTL ;"Age^ValueInMetric^^DateOfValue^^%tile "RTN","TMGGRC2B",209,0) . . . . SET IDX=IDX+1 "RTN","TMGGRC2B",210,0) ELSE DO "RTN","TMGGRC2B",211,0) . FOR SET THISDT=$ORDER(^PXRMINDX(120.5,"PI",DFN,VITIEN,THISDT)) QUIT:(+THISDT'>0) DO "RTN","TMGGRC2B",212,0) . . IF (THISDT'ENDDT) DO "RTN","TMGGRC2B",213,0) . . . NEW THISDTEX DO "RTN","TMGGRC2B",214,0) . . . . NEW Y SET Y=THISDT\1 ;"Trim off Time "RTN","TMGGRC2B",215,0) . . . . X ^DD("DD") ;"Y output as: e.g. "JUL 20,1969" "RTN","TMGGRC2B",216,0) . . . . SET THISDTEX=Y "RTN","TMGGRC2B",217,0) . . . NEW RECIEN SET RECIEN=0 "RTN","TMGGRC2B",218,0) . . . FOR SET RECIEN=+$ORDER(^PXRMINDX(120.5,"PI",DFN,VITIEN,THISDT,RECIEN)) QUIT:(+RECIEN'>0) DO "RTN","TMGGRC2B",219,0) . . . . NEW X1,X2,METDATA "RTN","TMGGRC2B",220,0) . . . . SET X2=DOB "RTN","TMGGRC2B",221,0) . . . . SET X1=$PIECE($GET(^GMR(120.5,RECIEN,0)),"^",1) "RTN","TMGGRC2B",222,0) . . . . DO ^%DTC "RTN","TMGGRC2B",223,0) . . . . NEW AGE SET AGE=X ;Days "RTN","TMGGRC2B",224,0) . . . . NEW AGEYR SET AGEYR=X/365 ;"+$JUSTIFY(X/365,0,1) ;"in years "RTN","TMGGRC2B",225,0) . . . . IF GRAPHTYP["CH-" SET AGE=AGEYR "RTN","TMGGRC2B",226,0) . . . . ELSE SET AGE=X/30 ;"+$JUSTIFY(X/30,0,1) ;"in months "RTN","TMGGRC2B",227,0) . . . . SET METDATA=$$CVTMETRC^TMGGRC2C(VITIEN,$PIECE($GET(^GMR(120.5,RECIEN,0)),"^",8)) "RTN","TMGGRC2B",228,0) . . . . NEW PCTL SET PCTL=$$PCTILE^TMGGRC2C(GRAPHTYP,AGEYR,GENDER,METDATA) "RTN","TMGGRC2B",229,0) . . . . SET ARRAY(IDX)=AGE_"^"_METDATA_"^^"_THISDTEX_"^^"_PCTL ;"Age^ValueInMetric^^DateOfValue^^%tile "RTN","TMGGRC2B",230,0) . . . . SET IDX=IDX+1 "RTN","TMGGRC2B",231,0) QUIT RESULT "RTN","TMGGRC2B",232,0) ; "RTN","TMGGRC2C") 0^25^B70356251 "RTN","TMGGRC2C",1,0) TMGGRC2C ;TMG/kst-Work with Growth Chart Data ;10/5/10 ; 9/27/11 9:41am "RTN","TMGGRC2C",2,0) ;;1.0;TMG-LIB;**1,17**;10/5/10;Build 23 "RTN","TMGGRC2C",3,0) ; "RTN","TMGGRC2C",4,0) ;"Code for working with pediatric growth chart data. "RTN","TMGGRC2C",5,0) ;"This helps generate javascript code to pass back to WebBrowser "RTN","TMGGRC2C",6,0) ; "RTN","TMGGRC2C",7,0) ;"Kevin Toppenberg MD and Eddie Hagood "RTN","TMGGRC2C",8,0) ;"(C) 10/5/10 "RTN","TMGGRC2C",9,0) ;"Released under: GNU General Public License (GPL) "RTN","TMGGRC2C",10,0) ; "RTN","TMGGRC2C",11,0) ;"======================================================================= "RTN","TMGGRC2C",12,0) ;"PRIVATE API FUNCTIONS "RTN","TMGGRC2C",13,0) ;"======================================================================= "RTN","TMGGRC2C",14,0) ;"PCTILE(GRAPHTYP,AGEYR,GENDER,VALUE,V2) -- Return percentile of value for graph "RTN","TMGGRC2C",15,0) ;"CVTMETRC(VITIEN,DATA) -- convert English measurements to metric "RTN","TMGGRC2C",16,0) ;"GETDATES(DOB,MONMIN,MAXMON,STARTDT,ENDDT) --Convert DOB + age range into absolute starting and ending date "RTN","TMGGRC2C",17,0) ;"ADDRPT -- Entry point not taking result variable, for KIDS "RTN","TMGGRC2C",18,0) ;"ADDRPT0(RESULT) -- install (add) the TMG GROWTH CHART MENU to ORWRP REPORT LIST. "RTN","TMGGRC2C",19,0) ;"======================================================================= "RTN","TMGGRC2C",20,0) ; "RTN","TMGGRC2C",21,0) PCTILE(GRAPHTYP,AGEYR,GENDER,VALUE,V2) ; "RTN","TMGGRC2C",22,0) ;"Purpose: Return percentile of value for graph "RTN","TMGGRC2C",23,0) NEW RESULT SET RESULT="" "RTN","TMGGRC2C",24,0) IF GRAPHTYP["-LN" SET RESULT=$$LENPCTL^TMGGRC1(AGEYR,GENDER,VALUE) GOTO PCTDN "RTN","TMGGRC2C",25,0) IF GRAPHTYP["-WT4" SET RESULT=$$WTLENPCT^TMGGRC1(AGEYR,GENDER,VALUE,V2) GOTO PCTDN "RTN","TMGGRC2C",26,0) IF GRAPHTYP["-WT" SET RESULT=$$WTPCTL^TMGGRC1(AGEYR,GENDER,VALUE) GOTO PCTDN "RTN","TMGGRC2C",27,0) IF GRAPHTYP["-HC" SET RESULT=$$HCPCTL^TMGGRC1(AGEYR,GENDER,VALUE) GOTO PCTDN "RTN","TMGGRC2C",28,0) IF GRAPHTYP["-BMI" SET RESULT=$$BMIPCTL^TMGGRC1(AGEYR,GENDER,VALUE) GOTO PCTDN "RTN","TMGGRC2C",29,0) IF GRAPHTYP["-HT" SET RESULT=$$LENPCTL^TMGGRC1(AGEYR,GENDER,VALUE) GOTO PCTDN "RTN","TMGGRC2C",30,0) IF GRAPHTYP["WHO-BA" SET RESULT=$$WHBAPCTL^TMGGRC1(AGEYR,GENDER,VALUE) GOTO PCTDN "RTN","TMGGRC2C",31,0) IF GRAPHTYP["WHO-HA" SET RESULT=$$WHHAPCTL^TMGGRC1(AGEYR,GENDER,VALUE) GOTO PCTDN "RTN","TMGGRC2C",32,0) IF GRAPHTYP["WHO-WA" SET RESULT=$$WHWAPCTL^TMGGRC1(AGEYR,GENDER,VALUE) GOTO PCTDN "RTN","TMGGRC2C",33,0) IF GRAPHTYP["WHO-HC" SET RESULT=$$WHHCPCTL^TMGGRC1(AGEYR,GENDER,VALUE) GOTO PCTDN "RTN","TMGGRC2C",34,0) IF GRAPHTYP["WHO-WL" SET RESULT=$$WHWLPCTL^TMGGRC1(AGEYR,GENDER,VALUE,V2) GOTO PCTDN "RTN","TMGGRC2C",35,0) IF GRAPHTYP["WHO-WS" SET RESULT=$$WHWSPCTL^TMGGRC1(AGEYR,GENDER,VALUE) GOTO PCTDN "RTN","TMGGRC2C",36,0) PCTDN QUIT RESULT "RTN","TMGGRC2C",37,0) ; "RTN","TMGGRC2C",38,0) ; "RTN","TMGGRC2C",39,0) CVTMETRC(VITIEN,DATA) ;"CONVERT METRIC "RTN","TMGGRC2C",40,0) ;"Purpose: To convert us measurements to metric "RTN","TMGGRC2C",41,0) ;"Input: VITIEN -- The IEN in 120.51 specifying which vital type to return (e.g. HEIGHT, vs WEIGHT etc. "RTN","TMGGRC2C",42,0) ;" There is no BMI vital type. If vital type is BMI then VITIEN will equal BMI. "RTN","TMGGRC2C",43,0) ;" DATA -- In US measurement. "RTN","TMGGRC2C",44,0) ;" If VITIEN is BMI, then DATA is expected to equal WEIGHT(lbs)^HEIGHT(in) "RTN","TMGGRC2C",45,0) ;"Result: Data converted into metric measurement units "RTN","TMGGRC2C",46,0) ;"Output: None "RTN","TMGGRC2C",47,0) NEW VITTYPE,RESULT "RTN","TMGGRC2C",48,0) NEW HEIGHT,WEIGHT "RTN","TMGGRC2C",49,0) SET RESULT=DATA "RTN","TMGGRC2C",50,0) IF DATA=0 GOTO CMETQT "RTN","TMGGRC2C",51,0) IF +VITIEN=VITIEN DO "RTN","TMGGRC2C",52,0) . SET VITTYPE=$PIECE($GET(^GMRD(120.51,VITIEN,0)),"^",2) "RTN","TMGGRC2C",53,0) ELSE DO "RTN","TMGGRC2C",54,0) . SET WEIGHT=$PIECE(DATA,"^",1) "RTN","TMGGRC2C",55,0) . SET HEIGHT=$PIECE(DATA,"^",2) "RTN","TMGGRC2C",56,0) . SET VITTYPE=VITIEN "RTN","TMGGRC2C",57,0) ; "RTN","TMGGRC2C",58,0) IF VITTYPE="HT" DO "RTN","TMGGRC2C",59,0) . SET RESULT=DATA*2.54 ;"in to cm "RTN","TMGGRC2C",60,0) . SET RESULT=$JUSTIFY(RESULT,0,0) ;"round to nearest integer "RTN","TMGGRC2C",61,0) ELSE IF VITTYPE="WT" DO "RTN","TMGGRC2C",62,0) . SET RESULT=DATA*0.45359237 ;"lbs to kg "RTN","TMGGRC2C",63,0) ; . SET RESULT=$JUSTIFY(RESULT,0,1) ;"round to nearest tenth - smh "RTN","TMGGRC2C",64,0) ELSE IF VITTYPE="CG" DO "RTN","TMGGRC2C",65,0) . SET RESULT=DATA*2.54 ;"in to cm "RTN","TMGGRC2C",66,0) . SET RESULT=$JUSTIFY(RESULT,0,1) ;"round to nearest tenth "RTN","TMGGRC2C",67,0) ELSE IF VITTYPE="BMI" DO "RTN","TMGGRC2C",68,0) . ;"NOTE: BMI= weight(kg) / height(m) sq. "RTN","TMGGRC2C",69,0) . IF HEIGHT'>0 SET RESULT=0 QUIT "RTN","TMGGRC2C",70,0) . SET RESULT=(WEIGHT*0.4545)/((HEIGHT*0.0254)**2) "RTN","TMGGRC2C",71,0) . SET RESULT=$JUSTIFY(RESULT,0,1) ;"round to nearest tenth "RTN","TMGGRC2C",72,0) ELSE IF VITTYPE="W4LS" DO "RTN","TMGGRC2C",73,0) . SET RESULT=+$JUSTIFY(HEIGHT*2.54,0,1)_"^"_+$JUSTIFY(WEIGHT*0.4545,0,1) "RTN","TMGGRC2C",74,0) CMETQT QUIT RESULT "RTN","TMGGRC2C",75,0) ; "RTN","TMGGRC2C",76,0) ; "RTN","TMGGRC2C",77,0) GETDATES(DOB,MONMIN,MAXMON,STARTDT,ENDDT) ; "RTN","TMGGRC2C",78,0) ;"Purpose: Convert DOB + age range into absolute starting and ending date "RTN","TMGGRC2C",79,0) ;"Input: DOB -- The patient's date of birth, in FMDate format "RTN","TMGGRC2C",80,0) ;" MONMIN -- the patient's age (months) at the beginning of desired date range "RTN","TMGGRC2C",81,0) ;" MONMAX -- the patient's age (months) at the end of desired date range "RTN","TMGGRC2C",82,0) ;" STARTDT -- PASS BY REFERENCE, AN OUT PARAMETERS "RTN","TMGGRC2C",83,0) ;" ENDDT -- PASS BY REFERENCE, AN OUT PARAMETERS "RTN","TMGGRC2C",84,0) ;"Result: none "RTN","TMGGRC2C",85,0) ;"Output: STARTDT AND ENDDT are filled with beginning and ending dates, in FMDate format "RTN","TMGGRC2C",86,0) ;" "RTN","TMGGRC2C",87,0) NEW X1,X2,X "RTN","TMGGRC2C",88,0) ;"Calc Start Date "RTN","TMGGRC2C",89,0) SET X1=DOB "RTN","TMGGRC2C",90,0) SET X2=MONMIN*30 ;"Convert to num of days "RTN","TMGGRC2C",91,0) D C^%DTC "RTN","TMGGRC2C",92,0) SET STARTDT=X "RTN","TMGGRC2C",93,0) ;Calc End Date "RTN","TMGGRC2C",94,0) SET X1=DOB "RTN","TMGGRC2C",95,0) SET X2=MAXMON*30 ;"Convert to num of days "RTN","TMGGRC2C",96,0) D C^%DTC "RTN","TMGGRC2C",97,0) SET ENDDT=X "RTN","TMGGRC2C",98,0) QUIT "RTN","TMGGRC2C",99,0) ; "RTN","TMGGRC2C",100,0) ; "RTN","TMGGRC2C",101,0) ;"=================================================================== "RTN","TMGGRC2C",102,0) ;"=================================================================== "RTN","TMGGRC2C",103,0) ADDRPT ; "RTN","TMGGRC2C",104,0) ;"Purpose: Entry point not taking result variable, for KIDS "RTN","TMGGRC2C",105,0) NEW RESULT "RTN","TMGGRC2C",106,0) DO ADDRPT0(.RESULT) "RTN","TMGGRC2C",107,0) QUIT "RTN","TMGGRC2C",108,0) ; "RTN","TMGGRC2C",109,0) ; "RTN","TMGGRC2C",110,0) ADDRPT0(RESULT) ;" //elh "RTN","TMGGRC2C",111,0) ;"Purpose: To install (add) the TMG GROWTH CHART MENU to ORWRP REPORT LIST. "RTN","TMGGRC2C",112,0) ;" This will make the reports show up in CPRS "RTN","TMGGRC2C",113,0) ;" The heirarchy is: System(SYS),User,Package(PKG),Division(DIV). To ensure that the "RTN","TMGGRC2C",114,0) ;" Menu is displayed, the entries will be tested top down until the highest "RTN","TMGGRC2C",115,0) ;" heirarchy is found, excluding User. The entry will be placed there. "RTN","TMGGRC2C",116,0) ;"Input: None "RTN","TMGGRC2C",117,0) ;"Output: None "RTN","TMGGRC2C",118,0) ;"Result: 1^Successful or -1^Error Message "RTN","TMGGRC2C",119,0) NEW PKG SET PKG="DIC(9.4," "RTN","TMGGRC2C",120,0) NEW SYS SET SYS="DIC(4.2," "RTN","TMGGRC2C",121,0) NEW DIV SET DIV="DIC(4," "RTN","TMGGRC2C",122,0) NEW DONE SET DONE=0 "RTN","TMGGRC2C",123,0) NEW RPTIEN SET RPTIEN=+$ORDER(^XTV(8989.51,"B","ORWRP REPORT LIST",0)) "RTN","TMGGRC2C",124,0) NEW FOUND SET FOUND="" "RTN","TMGGRC2C",125,0) NEW HIERARCHY "RTN","TMGGRC2C",126,0) ;" "RTN","TMGGRC2C",127,0) ;"GET THE HIERARCHY STRUCTURE "RTN","TMGGRC2C",128,0) NEW I SET I=0 "RTN","TMGGRC2C",129,0) FOR SET I=$ORDER(^XTV(8989.51,RPTIEN,30,I)) QUIT:+I'>0 DO "RTN","TMGGRC2C",130,0) . SET HIERARCHY(0)=$GET(^XTV(8989.51,RPTIEN,30,I,0)) "RTN","TMGGRC2C",131,0) . SET HIERARCHY($PIECE(HIERARCHY(0),"^",1))=$PIECE(HIERARCHY(0),"^",2) "RTN","TMGGRC2C",132,0) ;" "RTN","TMGGRC2C",133,0) ;"SORT THROUGH THE HIERARCHY AND PLACE THE TOP TWO IN HIERARCHY(1) AND HIERARCHY(2) RESPECTIVELY "RTN","TMGGRC2C",134,0) SET I=0 "RTN","TMGGRC2C",135,0) NEW COUNTER SET COUNTER=1 "RTN","TMGGRC2C",136,0) NEW FILE "RTN","TMGGRC2C",137,0) FOR SET I=$ORDER(HIERARCHY(I)) QUIT:+I'>0 DO "RTN","TMGGRC2C",138,0) . SET FILE=HIERARCHY(I) "RTN","TMGGRC2C",139,0) . IF FILE'=200 DO ;"EXCLUDE THE USER REPOET MENU "RTN","TMGGRC2C",140,0) . . IF FILE[4.2 DO ;"SYSTEM "RTN","TMGGRC2C",141,0) . . . SET HIERARCHY(COUNTER)=SYS_"^SYS" "RTN","TMGGRC2C",142,0) . . . SET COUNTER=COUNTER+1 "RTN","TMGGRC2C",143,0) . . ELSE IF FILE[9.4 DO ;"PACKAGE "RTN","TMGGRC2C",144,0) . . . SET HIERARCHY(COUNTER)=PKG_"^PKG" "RTN","TMGGRC2C",145,0) . . . SET COUNTER=COUNTER+1 "RTN","TMGGRC2C",146,0) . . ELSE IF FILE[4 DO ;"DIVISION "RTN","TMGGRC2C",147,0) . . . SET HIERARCHY(COUNTER)=DIV_"^DIV" "RTN","TMGGRC2C",148,0) . . . SET COUNTER=COUNTER+1 "RTN","TMGGRC2C",149,0) ;" "RTN","TMGGRC2C",150,0) ;"TEST FOR HIGHEST USED HIERARCHY "RTN","TMGGRC2C",151,0) NEW DATA SET DATA=0 "RTN","TMGGRC2C",152,0) NEW DATASTRING "RTN","TMGGRC2C",153,0) FOR SET DATA=$ORDER(^XTV(8989.5,"AC",RPTIEN,DATA)) QUIT:(+DATA'>0)!DONE DO "RTN","TMGGRC2C",154,0) . IF DATA[$PIECE(HIERARCHY(1),"^",1) DO "RTN","TMGGRC2C",155,0) . . SET FOUND=$PIECE(HIERARCHY(1),"^",2) "RTN","TMGGRC2C",156,0) . . SET DATASTRING=DATA "RTN","TMGGRC2C",157,0) . . SET DONE=1 "RTN","TMGGRC2C",158,0) . ELSE IF DATA[$PIECE(HIERARCHY(2),"^",1) DO "RTN","TMGGRC2C",159,0) . . SET FOUND=$PIECE(HIERARCHY(2),"^",2) "RTN","TMGGRC2C",160,0) . . SET DATASTRING=DATA "RTN","TMGGRC2C",161,0) . ELSE DO "RTN","TMGGRC2C",162,0) . . SET DATASTRING=DATA "RTN","TMGGRC2C",163,0) IF FOUND="" SET FOUND=$PIECE(HIERARCHY(3),"^",2) "RTN","TMGGRC2C",164,0) ;" "RTN","TMGGRC2C",165,0) ;"FIND THE FIRST AVAILABLE SEQUENCE "RTN","TMGGRC2C",166,0) SET COUNTER=0 "RTN","TMGGRC2C",167,0) SET DONE=0 "RTN","TMGGRC2C",168,0) NEW FIRSTSEQ SET FIRSTSEQ=0 "RTN","TMGGRC2C",169,0) FOR SET COUNTER=$ORDER(^XTV(8989.5,"AC",RPTIEN,DATASTRING,COUNTER)) QUIT:(+COUNTER'>0)!DONE DO "RTN","TMGGRC2C",170,0) . SET FIRSTSEQ=FIRSTSEQ+1 "RTN","TMGGRC2C",171,0) . IF COUNTER'=FIRSTSEQ SET DONE=1 "RTN","TMGGRC2C",172,0) ;" "RTN","TMGGRC2C",173,0) ;"ATTEMPT ADDITIONS AND RETURN RESULTS "RTN","TMGGRC2C",174,0) NEW ERROR,TEMP "RTN","TMGGRC2C",175,0) D EN^XPAR(FOUND,"ORWRP REPORT LIST",FIRSTSEQ,"TMG GROWTH CHARTS",.ERROR) "RTN","TMGGRC2C",176,0) IF ERROR=0 DO "RTN","TMGGRC2C",177,0) . SET TEMP=1 "RTN","TMGGRC2C",178,0) ELSE DO "RTN","TMGGRC2C",179,0) . SET TEMP="-1^"_$PIECE(ERROR,"^",2) "RTN","TMGGRC2C",180,0) ;" "RTN","TMGGRC2C",181,0) ;"FIND THE SECOND AVAILABLE SEQUENCE "RTN","TMGGRC2C",182,0) ;"SET DONE=0 "RTN","TMGGRC2C",183,0) ;"SET COUNTER=0 "RTN","TMGGRC2C",184,0) NEW SECONDSEQ SET SECONDSEQ=0 "RTN","TMGGRC2C",185,0) ;"FOR SET COUNTER=$ORDER(^XTV(8989.5,"AC",RPTIEN,DATASTRING,COUNTER)) QUIT:(+COUNTER'>0)!DONE DO "RTN","TMGGRC2C",186,0) ;". SET SECONDSEQ=SECONDSEQ+1 "RTN","TMGGRC2C",187,0) ;". IF COUNTER'=SECONDSEQ SET DONE=1 "RTN","TMGGRC2C",188,0) ;" "RTN","TMGGRC2C",189,0) ;"ATTEMPT SECOND ADDITION "RTN","TMGGRC2C",190,0) ;"D EN^XPAR(FOUND,"ORWRP REPORT LIST",SECONDSEQ,"TMG WHO GROWTH CHARTS",.ERROR) "RTN","TMGGRC2C",191,0) SET SECONDSEQ=FIRSTSEQ_".1" "RTN","TMGGRC2C",192,0) DO EN^XPAR(FOUND,"ORWRP REPORT LIST",SECONDSEQ,"TMG WHO GROWTH CHARTS",.ERROR) "RTN","TMGGRC2C",193,0) IF (ERROR=0)&(TEMP=1) DO "RTN","TMGGRC2C",194,0) . SET RESULT="1^SUCCESSFUL" "RTN","TMGGRC2C",195,0) ELSE DO "RTN","TMGGRC2C",196,0) . SET RESULT="-1^" "RTN","TMGGRC2C",197,0) . IF TEMP'=1 DO "RTN","TMGGRC2C",198,0) . . SET RESULT=RESULT_"CDC-"_$PIECE(ERROR,"^",2) "RTN","TMGGRC2C",199,0) . IF ERROR'=0 DO "RTN","TMGGRC2C",200,0) . . SET RESULT=RESULT_"WHO-"_$PIECE(ERROR,"^",2) "RTN","TMGGRC2C",201,0) QUIT "RTN","TMGGRC3A") 0^17^B83124690 "RTN","TMGGRC3A",1,0) TMGGRC3A ;TMG/kst-Growth Chart Javascript code ;7/17/12 "RTN","TMGGRC3A",2,0) ;;1.0;TMG-LIB;**1,17**;10/5/10;Build 23 "RTN","TMGGRC3A",3,0) ; "RTN","TMGGRC3A",4,0) ;"Code for working with pediatric growth chart data. "RTN","TMGGRC3A",5,0) ;"This is javascript code that is sent to WebBrowser in CPRS "RTN","TMGGRC3A",6,0) ; "RTN","TMGGRC3A",7,0) ;"Eddie Hagood and Kevin Toppenberg MD "RTN","TMGGRC3A",8,0) ;"(C) 10/5/10 "RTN","TMGGRC3A",9,0) ;"Released under: GNU General Public License (GPL) "RTN","TMGGRC3A",10,0) ; "RTN","TMGGRC3A",11,0) ;"======================================================================= "RTN","TMGGRC3A",12,0) ;" RPC -- Public Functions. "RTN","TMGGRC3A",13,0) ;"======================================================================= "RTN","TMGGRC3A",14,0) ; "RTN","TMGGRC3A",15,0) TOP ; "RTN","TMGGRC3A",16,0) ;; "RTN","TMGGRC3A",17,0) ;;PATIENT GROWTH CHART "RTN","TMGGRC3A",18,0) ;; "RTN","TMGGRC3A",19,0) ;; "RTN","TMGGRC3A",20,0) ;; "RTN","TMGGRC3A",21,0) ;; "RTN","TMGGRC3A",22,0) ;; "RTN","TMGGRC3A",23,0) ;; "RTN","TMGGRC3A",24,0) ;; "RTN","TMGGRC3A",25,0) ;;EOF "RTN","TMGGRC3A",26,0) GLIB ; "RTN","TMGGRC3A",27,0) ;; "RTN","TMGGRC3E",130,0) ;;EOF "RTN","TMGGRC3E",131,0) ;"==================================================================== "RTN","TMGGRC3F") 0^22^B207653088 "RTN","TMGGRC3F",1,0) TMGGRC3F ;TMG/kst-Growth Chart Javascript code ;7/17/12 "RTN","TMGGRC3F",2,0) ;;1.0;TMG-LIB;**1,17**;10/5/10;Build 23 "RTN","TMGGRC3F",3,0) ; "RTN","TMGGRC3F",4,0) SCRIPT ; "RTN","TMGGRC3F",5,0) ;; "RTN","TMGGRC3F",342,0) ;; "RTN","TMGGRC3F",343,0) ;;
"RTN","TMGGRC3F",344,0) ;;

Graphs developed by Family Physicians of Greeneville (TMG), "RTN","TMGGRC3F",345,0) ;; utilizing XYGraph.js by J. Gebelein "RTN","TMGGRC3F",346,0) ;;

"RTN","TMGGRC3F",347,0) ;; "RTN","TMGGRC3F",348,0) ;; "RTN","TMGGRC3F",349,0) ;;EOF "RTN","TMGGRC3F",350,0) ; "RTN","TMGGRC3F",351,0) XSCRIPT ; "RTN","TMGGRC3F",352,0) ;;