FHINI04S ; ; 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,1610,0)
;;=FRANKFURTERS, CKD^1999-0^franks^44^100^N
;;^UTILITY(U,$J,112,1610,1)
;;=12.4^27.2^1.6^304^57.3^^^5^1.5^^102^220^1100^^^^^0^0^.15
;;^UTILITY(U,$J,112,1610,2)
;;=.2^2.5^^^^^1^^62^11^^^^1.5
;;^UTILITY(U,$J,112,1610,4)
;;=^^^^^^11
;;^UTILITY(U,$J,112,1610,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1611,0)
;;=APPLES, RAW^9-003^fruits^138^92^N
;;^UTILITY(U,$J,112,1611,1)
;;=.19^.36^15.25^59^83.93^^^7^.18^5^7^115^0^.04^.041^.045^.59^53^5.7^.017
;;^UTILITY(U,$J,112,1611,2)
;;=.014^.077^.061^.048^2.8^0^.087^.018^0^.058^.015^.105^5^.26^^^2
;;^UTILITY(U,$J,112,1611,3)
;;=.002^.007^.008^.012^.012^.002^.003^.005^.004^.009^.006^.003^.007^.034^.02^.008^.007^.008
;;^UTILITY(U,$J,112,1611,4)
;;=^.001^.002^.048^.001^.007^.014^^4^.3
;;^UTILITY(U,$J,112,1611,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1612,0)
;;=APPLES, RAW, WO/SKIN^9-004^fruits^128^85^N
;;^UTILITY(U,$J,112,1612,1)
;;=.15^.31^14.84^57^84.46^^^4^.07^3^7^113^0^.04^.031^.023^.27^44^4^.017
;;^UTILITY(U,$J,112,1612,2)
;;=.01^.091^.057^.046^.4^0^.075^.016^0^.051^.013^.091^4^.24^^^1.9
;;^UTILITY(U,$J,112,1612,3)
;;=.001^.005^.006^.009^.009^.002^.002^.004^.003^.007^.005^.002^.005^.026^.016^.006^.005^.006
;;^UTILITY(U,$J,112,1612,4)
;;=^.001^.001^.042^.001^.006^.012^^.4
;;^UTILITY(U,$J,112,1612,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1613,0)
;;=APPLES, RAW, PARED, BOILED^9-005^cups^172^100^N
;;^UTILITY(U,$J,112,1613,1)
;;=.26^.36^13.64^53^85.47^^^5^.19^3^8^88^1^.04^.035^.118^^44^.2^.016
;;^UTILITY(U,$J,112,1613,2)
;;=.012^.095^.046^.044^.6^0^.086^.018^0^.058^.014^.104^4^.28^^^2.4
;;^UTILITY(U,$J,112,1613,3)
;;=.002^.009^.01^.016^.016^.003^.004^.007^.005^.012^.008^.004^.009^.046^.027^.01^.009^.011
;;^UTILITY(U,$J,112,1613,4)
;;=^.001^.002^.048^.001^.007^.014
;;^UTILITY(U,$J,112,1613,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1614,0)
;;=APPLES, RAW, PARED, MICROWAVE^9-006^cups^170^100^N
;;^UTILITY(U,$J,112,1614,1)
;;=.28^.42^14.41^56^84.63^^^5^.17^3^8^93^1^.04^.046^.142^^40^.3^.017
;;^UTILITY(U,$J,112,1614,2)
;;=.011^.061^.046^.046^.6^0^.101^.021^0^.068^.017^.122^4^.26^^^2.8
;;^UTILITY(U,$J,112,1614,3)
;;=.003^.01^.011^.017^.018^.003^.004^.008^.005^.013^.009^.004^.01^.049^.029^.011^.01^.011
;;^UTILITY(U,$J,112,1614,4)
;;=^.001^.002^.056^.001^.009^.016
;;^UTILITY(U,$J,112,1614,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1615,0)
;;=APPLES, CND, SWEETENED^9-007^cups^204^100^N
;;^UTILITY(U,$J,112,1615,1)
;;=.18^.49^16.7^67^82.36^^^4^.23^2^5^68^3^.03^.053^.153^^51^.4^.009
;;^UTILITY(U,$J,112,1615,2)
;;=.01^.073^.031^.044^.3^0^.119^.025^0^.08^.02^.144^5^.27^^^1.7
;;^UTILITY(U,$J,112,1615,3)
;;=.002^.006^.007^.011^.011^.002^.002^.005^.003^.008^.006^.003^.006^.031^.018^.007^.006^.007
;;^UTILITY(U,$J,112,1615,4)
;;=^.001^.002^.066^.001^.01^.019
;;^UTILITY(U,$J,112,1615,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1616,0)
;;=APPLES, DRIED, UNCKD^9-011^rings^6.4^100^N
;;^UTILITY(U,$J,112,1616,1)
;;=.93^.32^65.89^243^31.76^^^14^1.4^16^38^450^87^.2^.191^.09^^0^3.9^0
;;^UTILITY(U,$J,112,1616,2)
;;=.159^.927^.245^.125^0^0^.077^.016^0^.052^.013^.093^0^1.1^^^8.7
;;^UTILITY(U,$J,112,1616,3)
;;=.009^.033^.037^.057^.058^.009^.012^.026^.017^.043^.029^.015^.033^.162^.097^.037^.032^.038
;;^UTILITY(U,$J,112,1616,4)
;;=^.001^.001^.043^.001^.007^.012
;;^UTILITY(U,$J,112,1616,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1617,0)
;;=APPLES, DRIED, STEWED, WO/SUGAR^9-012^cups^256^210^N
;;^UTILITY(U,$J,112,1617,1)
;;=.22^.07^15.32^57^84.13^^^3^.33^4^9^105^20^.05^.044^.021^^17^1^.006
;;^UTILITY(U,$J,112,1617,2)
;;=.019^.129^.057^.05^0^0^.018^.004^0^.012^.003^.022^2^.26^^^2
;;^UTILITY(U,$J,112,1617,3)
;;=.002^.008^.008^.013^.013^.002^.003^.006^.004^.01^.007^.003^.008^.037^.022^.008^.007^.009
;;^UTILITY(U,$J,112,1617,4)
;;=^^^.01^^.002^.003
;;^UTILITY(U,$J,112,1617,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1618,0)
;;=APPLES, DRIED, STEWED, W/SUGAR^9-013^cups^280^189^N
;;^UTILITY(U,$J,112,1618,1)
;;=.2^.07^20.73^83^78.76^^^3^.31^3^8^98^19^.04^.042^.02^^16^.9^.006
;;^UTILITY(U,$J,112,1618,2)
;;=.018^.121^.054^.047^0^0^.017^.004^0^.011^.003^.02^2^.24
;;^UTILITY(U,$J,112,1618,3)
;;=.002^.007^.008^.012^.013^.002^.003^.006^.004^.009^.006^.003^.007^.035^.021^.008^.007^.008
;;^UTILITY(U,$J,112,1618,4)
;;=^^^.009^^.001^.003
FHINI04S ; ; 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,1610,0)
+2 ;;=FRANKFURTERS, CKD^1999-0^franks^44^100^N
+3 ;;^UTILITY(U,$J,112,1610,1)
+4 ;;=12.4^27.2^1.6^304^57.3^^^5^1.5^^102^220^1100^^^^^0^0^.15
+5 ;;^UTILITY(U,$J,112,1610,2)
+6 ;;=.2^2.5^^^^^1^^62^11^^^^1.5
+7 ;;^UTILITY(U,$J,112,1610,4)
+8 ;;=^^^^^^11
+9 ;;^UTILITY(U,$J,112,1610,20)
+10 ;;=USDA Std. Reference, Release 8
+11 ;;^UTILITY(U,$J,112,1611,0)
+12 ;;=APPLES, RAW^9-003^fruits^138^92^N
+13 ;;^UTILITY(U,$J,112,1611,1)
+14 ;;=.19^.36^15.25^59^83.93^^^7^.18^5^7^115^0^.04^.041^.045^.59^53^5.7^.017
+15 ;;^UTILITY(U,$J,112,1611,2)
+16 ;;=.014^.077^.061^.048^2.8^0^.087^.018^0^.058^.015^.105^5^.26^^^2
+17 ;;^UTILITY(U,$J,112,1611,3)
+18 ;;=.002^.007^.008^.012^.012^.002^.003^.005^.004^.009^.006^.003^.007^.034^.02^.008^.007^.008
+19 ;;^UTILITY(U,$J,112,1611,4)
+20 ;;=^.001^.002^.048^.001^.007^.014^^4^.3
+21 ;;^UTILITY(U,$J,112,1611,20)
+22 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+23 ;;^UTILITY(U,$J,112,1612,0)
+24 ;;=APPLES, RAW, WO/SKIN^9-004^fruits^128^85^N
+25 ;;^UTILITY(U,$J,112,1612,1)
+26 ;;=.15^.31^14.84^57^84.46^^^4^.07^3^7^113^0^.04^.031^.023^.27^44^4^.017
+27 ;;^UTILITY(U,$J,112,1612,2)
+28 ;;=.01^.091^.057^.046^.4^0^.075^.016^0^.051^.013^.091^4^.24^^^1.9
+29 ;;^UTILITY(U,$J,112,1612,3)
+30 ;;=.001^.005^.006^.009^.009^.002^.002^.004^.003^.007^.005^.002^.005^.026^.016^.006^.005^.006
+31 ;;^UTILITY(U,$J,112,1612,4)
+32 ;;=^.001^.001^.042^.001^.006^.012^^.4
+33 ;;^UTILITY(U,$J,112,1612,20)
+34 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+35 ;;^UTILITY(U,$J,112,1613,0)
+36 ;;=APPLES, RAW, PARED, BOILED^9-005^cups^172^100^N
+37 ;;^UTILITY(U,$J,112,1613,1)
+38 ;;=.26^.36^13.64^53^85.47^^^5^.19^3^8^88^1^.04^.035^.118^^44^.2^.016
+39 ;;^UTILITY(U,$J,112,1613,2)
+40 ;;=.012^.095^.046^.044^.6^0^.086^.018^0^.058^.014^.104^4^.28^^^2.4
+41 ;;^UTILITY(U,$J,112,1613,3)
+42 ;;=.002^.009^.01^.016^.016^.003^.004^.007^.005^.012^.008^.004^.009^.046^.027^.01^.009^.011
+43 ;;^UTILITY(U,$J,112,1613,4)
+44 ;;=^.001^.002^.048^.001^.007^.014
+45 ;;^UTILITY(U,$J,112,1613,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1614,0)
+48 ;;=APPLES, RAW, PARED, MICROWAVE^9-006^cups^170^100^N
+49 ;;^UTILITY(U,$J,112,1614,1)
+50 ;;=.28^.42^14.41^56^84.63^^^5^.17^3^8^93^1^.04^.046^.142^^40^.3^.017
+51 ;;^UTILITY(U,$J,112,1614,2)
+52 ;;=.011^.061^.046^.046^.6^0^.101^.021^0^.068^.017^.122^4^.26^^^2.8
+53 ;;^UTILITY(U,$J,112,1614,3)
+54 ;;=.003^.01^.011^.017^.018^.003^.004^.008^.005^.013^.009^.004^.01^.049^.029^.011^.01^.011
+55 ;;^UTILITY(U,$J,112,1614,4)
+56 ;;=^.001^.002^.056^.001^.009^.016
+57 ;;^UTILITY(U,$J,112,1614,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,1615,0)
+60 ;;=APPLES, CND, SWEETENED^9-007^cups^204^100^N
+61 ;;^UTILITY(U,$J,112,1615,1)
+62 ;;=.18^.49^16.7^67^82.36^^^4^.23^2^5^68^3^.03^.053^.153^^51^.4^.009
+63 ;;^UTILITY(U,$J,112,1615,2)
+64 ;;=.01^.073^.031^.044^.3^0^.119^.025^0^.08^.02^.144^5^.27^^^1.7
+65 ;;^UTILITY(U,$J,112,1615,3)
+66 ;;=.002^.006^.007^.011^.011^.002^.002^.005^.003^.008^.006^.003^.006^.031^.018^.007^.006^.007
+67 ;;^UTILITY(U,$J,112,1615,4)
+68 ;;=^.001^.002^.066^.001^.01^.019
+69 ;;^UTILITY(U,$J,112,1615,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,1616,0)
+72 ;;=APPLES, DRIED, UNCKD^9-011^rings^6.4^100^N
+73 ;;^UTILITY(U,$J,112,1616,1)
+74 ;;=.93^.32^65.89^243^31.76^^^14^1.4^16^38^450^87^.2^.191^.09^^0^3.9^0
+75 ;;^UTILITY(U,$J,112,1616,2)
+76 ;;=.159^.927^.245^.125^0^0^.077^.016^0^.052^.013^.093^0^1.1^^^8.7
+77 ;;^UTILITY(U,$J,112,1616,3)
+78 ;;=.009^.033^.037^.057^.058^.009^.012^.026^.017^.043^.029^.015^.033^.162^.097^.037^.032^.038
+79 ;;^UTILITY(U,$J,112,1616,4)
+80 ;;=^.001^.001^.043^.001^.007^.012
+81 ;;^UTILITY(U,$J,112,1616,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,1617,0)
+84 ;;=APPLES, DRIED, STEWED, WO/SUGAR^9-012^cups^256^210^N
+85 ;;^UTILITY(U,$J,112,1617,1)
+86 ;;=.22^.07^15.32^57^84.13^^^3^.33^4^9^105^20^.05^.044^.021^^17^1^.006
+87 ;;^UTILITY(U,$J,112,1617,2)
+88 ;;=.019^.129^.057^.05^0^0^.018^.004^0^.012^.003^.022^2^.26^^^2
+89 ;;^UTILITY(U,$J,112,1617,3)
+90 ;;=.002^.008^.008^.013^.013^.002^.003^.006^.004^.01^.007^.003^.008^.037^.022^.008^.007^.009
+91 ;;^UTILITY(U,$J,112,1617,4)
+92 ;;=^^^.01^^.002^.003
+93 ;;^UTILITY(U,$J,112,1617,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,1618,0)
+96 ;;=APPLES, DRIED, STEWED, W/SUGAR^9-013^cups^280^189^N
+97 ;;^UTILITY(U,$J,112,1618,1)
+98 ;;=.2^.07^20.73^83^78.76^^^3^.31^3^8^98^19^.04^.042^.02^^16^.9^.006
+99 ;;^UTILITY(U,$J,112,1618,2)
+100 ;;=.018^.121^.054^.047^0^0^.017^.004^0^.011^.003^.02^2^.24
+101 ;;^UTILITY(U,$J,112,1618,3)
+102 ;;=.002^.007^.008^.012^.013^.002^.003^.006^.004^.009^.006^.003^.007^.035^.021^.008^.007^.008
+103 ;;^UTILITY(U,$J,112,1618,4)
+104 ;;=^^^.009^^.001^.003
