commit fe644965080d6f13da0aebe043e6f1c0eebf7555 Author: sam Date: Fri Aug 3 22:16:15 2012 +0000 TMG Growth Charts integrated within CPRS diff --git a/TMG-1.0-17.KIDS b/TMG-1.0-17.KIDS new file mode 100644 index 0000000..579fe83 --- /dev/null +++ b/TMG-1.0-17.KIDS @@ -0,0 +1,21246 @@ +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) + ;;