FHINI078 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(112) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,112,2524,4)
;;=.011^.014^.452^3.988^.558^2.792^6.147^.013
;;^UTILITY(U,$J,112,2524,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2525,0)
;;=FF, SUNDAE, CARAMEL^21-032^sundaes^155^100^N
;;^UTILITY(U,$J,112,2525,1)
;;=4.71^5.98^31.81^196^56.5^^^122^.14^18^140^205^126^.53^.053^.06^.58^170^2.2^.04
;;^UTILITY(U,$J,112,2525,2)
;;=.19^.61^.24^.03^8^.39^.552^.074^16^2.91^1.957^.653^44^1^^^0
;;^UTILITY(U,$J,112,2525,3)
;;=.063^.202^.272^.439^.355^.112^.041^.217^.217^.301^.162^.123^.154^.34^.939^.095^.434^.244
;;^UTILITY(U,$J,112,2525,4)
;;=.1^.131^.42^1.355^.129^.639^1.754^.028
;;^UTILITY(U,$J,112,2525,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2526,0)
;;=FF, SUNDAE, HOT FUDGE^21-033^sundaes^158^100^N
;;^UTILITY(U,$J,112,2526,1)
;;=3.57^5.46^30.17^180^59.7^^^131^.37^21^144^250^115^.6^.082^.08^.42^140^1.5^.04
;;^UTILITY(U,$J,112,2526,2)
;;=.19^.68^.21^.08^6^.41^.445^.051^13^3.179^1.475^.511^36^1.1^^^0
;;^UTILITY(U,$J,112,2526,3)
;;=.045^.137^.172^.276^.224^.066^.032^.152^.143^.205^.132^.077^.119^.26^.607^.087^.257^.162
;;^UTILITY(U,$J,112,2526,4)
;;=.124^.697^.471^.993^.081^.64^1.35^.015
;;^UTILITY(U,$J,112,2526,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2527,0)
;;=FF, SUNDAE, STRAWBERRY^21-034^sundaes^153^100^N
;;^UTILITY(U,$J,112,2527,1)
;;=4.09^5.13^29.18^175^60.9^^^105^.21^16^101^177^60^.43^.05^.11^.51^145^1.3^.04
;;^UTILITY(U,$J,112,2527,2)
;;=.18^.59^.29^.05^12^.42^.594^.05^14^2.444^1.739^.667^38^.7^^^0
;;^UTILITY(U,$J,112,2527,3)
;;=.054^.174^.23^.373^.302^.094^.036^.185^.186^.255^.142^.105^.136^.321^.805^.085^.366^.209
;;^UTILITY(U,$J,112,2527,4)
;;=.087^.106^.354^1.152^.093^.528^1.564^.023
;;^UTILITY(U,$J,112,2527,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2528,0)
;;=FF, CHICKEN, BREADED AND FRIED, DARK MEAT (DRUMSTICK/THIGH)^21-035^pieces^74^77^N
;;^UTILITY(U,$J,112,2528,1)
;;=20.32^18.04^10.61^291^48.99^^^24^1.08^25^162^301^510^2.19^.08^.086^^150^0^.09
;;^UTILITY(U,$J,112,2528,2)
;;=.29^4.87^1.66^.22^6^.56^3.89^.206^112^4.763^7.385^4.272^45^2.05
;;^UTILITY(U,$J,112,2528,3)
;;=.228^.819^.988^1.466^1.57^.527^.283^.8^.65^.975^1.245^.582^1.154^1.749^3.16^1.287^1.063^.738
;;^UTILITY(U,$J,112,2528,4)
;;=^.019^.108^3.231^.579^1.405^6.718^.108
;;^UTILITY(U,$J,112,2528,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2529,0)
;;=FF, CHICKEN, BREADED AND FRIED, LIGHT MEAT (BREAST OR WING)^21-036^pieces^81.5^79^N
;;^UTILITY(U,$J,112,2529,1)
;;=21.91^18.11^12.01^303^45.7^^^37^.91^23^188^347^598^.95^.062^.095^^118^0^.09
;;^UTILITY(U,$J,112,2529,2)
;;=.18^7.35^1.59^.35^5^.41^3.84^.214^91^4.812^7.502^4.163^36^2.27
;;^UTILITY(U,$J,112,2529,3)
;;=.245^.883^1.066^1.581^1.693^.568^.305^.862^.701^1.052^1.343^.628^1.245^1.886^3.407^1.388^1.146^.796
;;^UTILITY(U,$J,112,2529,4)
;;=^.012^.106^3.272^.533^1.422^6.863^.083
;;^UTILITY(U,$J,112,2529,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2530,0)
;;=FF, CHICKEN, BREADED AND FRIED, BONELESS PIECES, PLAIN^21-037^pieces^17^100^N
;;^UTILITY(U,$J,112,2530,1)
;;=16.57^17.36^15.19^284^49.3^^^16^1.25^20^200^246^532^1.04^.166^.126^^100^.4^.09
;;^UTILITY(U,$J,112,2530,2)
;;=.14^6.72^.89^.31^11^.3^2.057^.094^60^5.438^8.527^2.203^30^1.57^^^.4
;;^UTILITY(U,$J,112,2530,3)
;;=.199^.669^.838^1.235^1.243^.438^.242^.696^.556^.816^.953^.486^.851^1.37^2.898^.768^.854^.639
;;^UTILITY(U,$J,112,2530,4)
;;=.006^.018^.215^3.108^.559^1.735^7.622^.051^^16.3
;;^UTILITY(U,$J,112,2530,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2531,0)
;;=FF, CHICKEN, BREADED AND FRIED, BNLS PIECES, W/ BARB. SAUCE^21-038^pieces^21.7^100^N
;;^UTILITY(U,$J,112,2531,1)
;;=13.19^13.82^19.25^254^51.81^^^16^1.12^19^165^245^638^.86^.133^.125^^263^.6^.08
;;^UTILITY(U,$J,112,2531,2)
;;=.12^5.4^.74^.26^21^.23^1.685^.113^47^4.285^6.742^1.838^36^1.93
;;^UTILITY(U,$J,112,2531,3)
;;=.155^.522^.654^.964^.97^.341^.189^.542^.434^.637^.744^.379^.664^1.068^2.26^.599^.666^.499
;;^UTILITY(U,$J,112,2531,4)
;;=.004^.015^.17^2.453^.44^1.362^6.033^.04
;;^UTILITY(U,$J,112,2531,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2532,0)
;;=FF, CHICKEN, BREADED AND FRIED, BNLS PIECES, W/ HONEY^21-039^pieces^19.2^100^N
;;^UTILITY(U,$J,112,2532,1)
;;=14.58^15.25^23.37^286^45.39^^^15^1.15^17^176^222^467^.94^.15^.12^^88^.4^.08
;;^UTILITY(U,$J,112,2532,2)
;;=.13^5.92^.79^.27^10^.26^1.807^.083^53^4.776^7.489^1.934^26^1.41
;;^UTILITY(U,$J,112,2532,3)
;;=.175^.588^.737^1.086^1.093^.385^.213^.612^.489^.718^.838^.427^.748^1.206^2.547^.675^.761^.562
FHINI078 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(112)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,112,2524,4)
+2 ;;=.011^.014^.452^3.988^.558^2.792^6.147^.013
+3 ;;^UTILITY(U,$J,112,2524,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,2525,0)
+6 ;;=FF, SUNDAE, CARAMEL^21-032^sundaes^155^100^N
+7 ;;^UTILITY(U,$J,112,2525,1)
+8 ;;=4.71^5.98^31.81^196^56.5^^^122^.14^18^140^205^126^.53^.053^.06^.58^170^2.2^.04
+9 ;;^UTILITY(U,$J,112,2525,2)
+10 ;;=.19^.61^.24^.03^8^.39^.552^.074^16^2.91^1.957^.653^44^1^^^0
+11 ;;^UTILITY(U,$J,112,2525,3)
+12 ;;=.063^.202^.272^.439^.355^.112^.041^.217^.217^.301^.162^.123^.154^.34^.939^.095^.434^.244
+13 ;;^UTILITY(U,$J,112,2525,4)
+14 ;;=.1^.131^.42^1.355^.129^.639^1.754^.028
+15 ;;^UTILITY(U,$J,112,2525,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2526,0)
+18 ;;=FF, SUNDAE, HOT FUDGE^21-033^sundaes^158^100^N
+19 ;;^UTILITY(U,$J,112,2526,1)
+20 ;;=3.57^5.46^30.17^180^59.7^^^131^.37^21^144^250^115^.6^.082^.08^.42^140^1.5^.04
+21 ;;^UTILITY(U,$J,112,2526,2)
+22 ;;=.19^.68^.21^.08^6^.41^.445^.051^13^3.179^1.475^.511^36^1.1^^^0
+23 ;;^UTILITY(U,$J,112,2526,3)
+24 ;;=.045^.137^.172^.276^.224^.066^.032^.152^.143^.205^.132^.077^.119^.26^.607^.087^.257^.162
+25 ;;^UTILITY(U,$J,112,2526,4)
+26 ;;=.124^.697^.471^.993^.081^.64^1.35^.015
+27 ;;^UTILITY(U,$J,112,2526,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,2527,0)
+30 ;;=FF, SUNDAE, STRAWBERRY^21-034^sundaes^153^100^N
+31 ;;^UTILITY(U,$J,112,2527,1)
+32 ;;=4.09^5.13^29.18^175^60.9^^^105^.21^16^101^177^60^.43^.05^.11^.51^145^1.3^.04
+33 ;;^UTILITY(U,$J,112,2527,2)
+34 ;;=.18^.59^.29^.05^12^.42^.594^.05^14^2.444^1.739^.667^38^.7^^^0
+35 ;;^UTILITY(U,$J,112,2527,3)
+36 ;;=.054^.174^.23^.373^.302^.094^.036^.185^.186^.255^.142^.105^.136^.321^.805^.085^.366^.209
+37 ;;^UTILITY(U,$J,112,2527,4)
+38 ;;=.087^.106^.354^1.152^.093^.528^1.564^.023
+39 ;;^UTILITY(U,$J,112,2527,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2528,0)
+42 ;;=FF, CHICKEN, BREADED AND FRIED, DARK MEAT (DRUMSTICK/THIGH)^21-035^pieces^74^77^N
+43 ;;^UTILITY(U,$J,112,2528,1)
+44 ;;=20.32^18.04^10.61^291^48.99^^^24^1.08^25^162^301^510^2.19^.08^.086^^150^0^.09
+45 ;;^UTILITY(U,$J,112,2528,2)
+46 ;;=.29^4.87^1.66^.22^6^.56^3.89^.206^112^4.763^7.385^4.272^45^2.05
+47 ;;^UTILITY(U,$J,112,2528,3)
+48 ;;=.228^.819^.988^1.466^1.57^.527^.283^.8^.65^.975^1.245^.582^1.154^1.749^3.16^1.287^1.063^.738
+49 ;;^UTILITY(U,$J,112,2528,4)
+50 ;;=^.019^.108^3.231^.579^1.405^6.718^.108
+51 ;;^UTILITY(U,$J,112,2528,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2529,0)
+54 ;;=FF, CHICKEN, BREADED AND FRIED, LIGHT MEAT (BREAST OR WING)^21-036^pieces^81.5^79^N
+55 ;;^UTILITY(U,$J,112,2529,1)
+56 ;;=21.91^18.11^12.01^303^45.7^^^37^.91^23^188^347^598^.95^.062^.095^^118^0^.09
+57 ;;^UTILITY(U,$J,112,2529,2)
+58 ;;=.18^7.35^1.59^.35^5^.41^3.84^.214^91^4.812^7.502^4.163^36^2.27
+59 ;;^UTILITY(U,$J,112,2529,3)
+60 ;;=.245^.883^1.066^1.581^1.693^.568^.305^.862^.701^1.052^1.343^.628^1.245^1.886^3.407^1.388^1.146^.796
+61 ;;^UTILITY(U,$J,112,2529,4)
+62 ;;=^.012^.106^3.272^.533^1.422^6.863^.083
+63 ;;^UTILITY(U,$J,112,2529,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2530,0)
+66 ;;=FF, CHICKEN, BREADED AND FRIED, BONELESS PIECES, PLAIN^21-037^pieces^17^100^N
+67 ;;^UTILITY(U,$J,112,2530,1)
+68 ;;=16.57^17.36^15.19^284^49.3^^^16^1.25^20^200^246^532^1.04^.166^.126^^100^.4^.09
+69 ;;^UTILITY(U,$J,112,2530,2)
+70 ;;=.14^6.72^.89^.31^11^.3^2.057^.094^60^5.438^8.527^2.203^30^1.57^^^.4
+71 ;;^UTILITY(U,$J,112,2530,3)
+72 ;;=.199^.669^.838^1.235^1.243^.438^.242^.696^.556^.816^.953^.486^.851^1.37^2.898^.768^.854^.639
+73 ;;^UTILITY(U,$J,112,2530,4)
+74 ;;=.006^.018^.215^3.108^.559^1.735^7.622^.051^^16.3
+75 ;;^UTILITY(U,$J,112,2530,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2531,0)
+78 ;;=FF, CHICKEN, BREADED AND FRIED, BNLS PIECES, W/ BARB. SAUCE^21-038^pieces^21.7^100^N
+79 ;;^UTILITY(U,$J,112,2531,1)
+80 ;;=13.19^13.82^19.25^254^51.81^^^16^1.12^19^165^245^638^.86^.133^.125^^263^.6^.08
+81 ;;^UTILITY(U,$J,112,2531,2)
+82 ;;=.12^5.4^.74^.26^21^.23^1.685^.113^47^4.285^6.742^1.838^36^1.93
+83 ;;^UTILITY(U,$J,112,2531,3)
+84 ;;=.155^.522^.654^.964^.97^.341^.189^.542^.434^.637^.744^.379^.664^1.068^2.26^.599^.666^.499
+85 ;;^UTILITY(U,$J,112,2531,4)
+86 ;;=.004^.015^.17^2.453^.44^1.362^6.033^.04
+87 ;;^UTILITY(U,$J,112,2531,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,2532,0)
+90 ;;=FF, CHICKEN, BREADED AND FRIED, BNLS PIECES, W/ HONEY^21-039^pieces^19.2^100^N
+91 ;;^UTILITY(U,$J,112,2532,1)
+92 ;;=14.58^15.25^23.37^286^45.39^^^15^1.15^17^176^222^467^.94^.15^.12^^88^.4^.08
+93 ;;^UTILITY(U,$J,112,2532,2)
+94 ;;=.13^5.92^.79^.27^10^.26^1.807^.083^53^4.776^7.489^1.934^26^1.41
+95 ;;^UTILITY(U,$J,112,2532,3)
+96 ;;=.175^.588^.737^1.086^1.093^.385^.213^.612^.489^.718^.838^.427^.748^1.206^2.547^.675^.761^.562
