FHINI04G ; ; 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,1481,3)
;;=.216^.844^.887^1.565^1.768^.57^.206^.752^.65^.992^1.152^.567^1.165^1.972^2.875^.924^.681^.786
;;^UTILITY(U,$J,112,1481,4)
;;=^.001^.018^.078^.056^.018^.079^.028
;;^UTILITY(U,$J,112,1481,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1482,0)
;;=PIKE, WALLEYE, RAW^15-064^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1482,1)
;;=19.14^1.22^0^93^79.31^^^110^1.3^30^210^389^51^.62^.178^.8^^70^0^.27
;;^UTILITY(U,$J,112,1482,2)
;;=.16^2.3^.75^.12^15^2^.026^.014^86^.249^.294^.447^21^1.2^^^0
;;^UTILITY(U,$J,112,1482,3)
;;=.214^.839^.882^1.555^1.758^.566^.205^.747^.646^.986^1.145^.563^1.157^1.96^2.857^.919^.677^.781
;;^UTILITY(U,$J,112,1482,4)
;;=^^.018^.197^.098^.034^.196^.058
;;^UTILITY(U,$J,112,1482,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1483,0)
;;=PIMIENTOS, CND, SOL+LIQ, WO/ADDED CA SALTS^11-943^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1483,1)
;;=1.1^.3^5.1^23^93.1^^^6^1.68^6^17^158^14^.19^.049^.092^^2655^84.9^.017
;;^UTILITY(U,$J,112,1483,2)
;;=.06^.615^.01^.215^6^0^.146^.015^0^.045^.02^.161^266^.4
;;^UTILITY(U,$J,112,1483,3)
;;=.014^.04^.036^.058^.049^.013^.021^.034^.023^.046^.053^.022^.045^.157^.145^.041^.048^.044
;;^UTILITY(U,$J,112,1483,4)
;;=^0^.001^.033^.002^.011^.018
;;^UTILITY(U,$J,112,1483,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1484,0)
;;=PIMIENTOS, CND, SOL+LIQ, W/ADDED CA SALTS^1610-2^oz.^28.3^^N
;;^UTILITY(U,$J,112,1484,1)
;;=.9^.6^5.8^27^92.4^^^96^1.5^^17^225^25^^^^^2300^95^.02
;;^UTILITY(U,$J,112,1484,2)
;;=.06^.4^^^^^0^^0^0
;;^UTILITY(U,$J,112,1484,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1485,0)
;;=PINEAPPLE AND GRAPEFRUIT JUICE DRINK, CND^14-334^fl oz.^31.3^100^N
;;^UTILITY(U,$J,112,1485,1)
;;=.2^.1^11.6^47^87.9^^^7^.31^6^6^61^14^.06^.045^.413^^35^46^.03
;;^UTILITY(U,$J,112,1485,2)
;;=.016^.267^.053^.042^10.5^0^.017^.011^0^.006^.01^.028^4^.2^^^.1
;;^UTILITY(U,$J,112,1485,4)
;;=^^^.005^.001^.002^.009
;;^UTILITY(U,$J,112,1485,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1486,0)
;;=PINEAPPLE AND ORANGE JUICE DRINK, CND^14-341^fl oz.^31.3^100^N
;;^UTILITY(U,$J,112,1486,1)
;;=1.3^0^11.8^50^86.9^^^5^.27^6^4^46^3^.06^.041^.361^^531^22.5^.03
;;^UTILITY(U,$J,112,1486,2)
;;=.019^.207^.057^.047^10.9^0^0^0^0^0^0^0^53^.1^^^.1
;;^UTILITY(U,$J,112,1486,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,1486,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1487,0)
;;=PISTACHIO NUTS^12-151^oz.^28.3^50^N
;;^UTILITY(U,$J,112,1487,1)
;;=20.58^48.39^24.81^577^3.87^^^135^6.78^158^503^1093^6^1.34^1.189^.327^^233^7.2^.82
;;^UTILITY(U,$J,112,1487,2)
;;=.174^1.08^1.19^.25^58^0^7.022^.252^0^6.127^32.668^7.316^23^2.4^^^10.8
;;^UTILITY(U,$J,112,1487,3)
;;=.283^.722^.975^1.677^1.278^.381^.513^1.184^.714^1.41^2.186^.536^.994^2.116^4.916^1.095^.947^1.351
;;^UTILITY(U,$J,112,1487,4)
;;=^^.045^5.349^.286^.628^31.976^^70
;;^UTILITY(U,$J,112,1487,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1488,0)
;;=PIZZA WITH CHEESE TOPPING, BAKED FR HOME RECIPE, ENR^1628-1^sectors^65^100^N
;;^UTILITY(U,$J,112,1488,1)
;;=12^8.3^28.3^236^48.3^^^221^1^^195^130^702^^^^^630^8^.06
;;^UTILITY(U,$J,112,1488,2)
;;=.2^1^^^^^.81^^18^3.25^^^^3.1
;;^UTILITY(U,$J,112,1488,4)
;;=^^^^^^3.54
;;^UTILITY(U,$J,112,1488,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1489,0)
;;=PIZZA WITH SAUSAGE, NO CHEESE, ENR, HOME RECIPE^1629-3^sectors^67^100^N
;;^UTILITY(U,$J,112,1489,1)
;;=7.8^9.3^29.6^234^50.6^^^17^2.5^^92^168^729^^^^^560^9^.27
;;^UTILITY(U,$J,112,1489,2)
;;=.23^2.9^^^^^1.17^^19^2.71^^^^2.7
;;^UTILITY(U,$J,112,1489,4)
;;=^^^^^^4.34
;;^UTILITY(U,$J,112,1489,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1490,0)
;;=PIZZA WITH SAUSAGE, WITH CHEESE, ENR, HOME RECIPE^1629-4^sectors^67^100^N
;;^UTILITY(U,$J,112,1490,1)
;;=12.9^13.3^27.4^282^43^^^188^2.5^^205^196^668^^^^^550^9^.24
;;^UTILITY(U,$J,112,1490,2)
;;=.25^2.4^^^^^1.18^^29^3.39^^^^3.4
;;^UTILITY(U,$J,112,1490,4)
;;=^^^^^^4.68
;;^UTILITY(U,$J,112,1490,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1491,0)
;;=PIZZA WITH CHEESE TOPPING, CHILLED, BAKED, ENR^1631-2^sectors^60^100^N
;;^UTILITY(U,$J,112,1491,1)
;;=9.2^6.8^36.3^245^45.1^^^143^2.4^^148^111^633^^^^^390^6^.26
;;^UTILITY(U,$J,112,1491,2)
;;=.31^2.7^^^^^.9^^18^2.41^^^^2.6
;;^UTILITY(U,$J,112,1491,4)
;;=^^^^^^2.98
;;^UTILITY(U,$J,112,1491,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1492,0)
;;=PIZZA WITH CHEESE TOPPING, FRZ, BAKED, ENR^1633-2^sectors^57^100^N
FHINI04G ; ; 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,1481,3)
+2 ;;=.216^.844^.887^1.565^1.768^.57^.206^.752^.65^.992^1.152^.567^1.165^1.972^2.875^.924^.681^.786
+3 ;;^UTILITY(U,$J,112,1481,4)
+4 ;;=^.001^.018^.078^.056^.018^.079^.028
+5 ;;^UTILITY(U,$J,112,1481,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,1482,0)
+8 ;;=PIKE, WALLEYE, RAW^15-064^oz.^28.3^100^N
+9 ;;^UTILITY(U,$J,112,1482,1)
+10 ;;=19.14^1.22^0^93^79.31^^^110^1.3^30^210^389^51^.62^.178^.8^^70^0^.27
+11 ;;^UTILITY(U,$J,112,1482,2)
+12 ;;=.16^2.3^.75^.12^15^2^.026^.014^86^.249^.294^.447^21^1.2^^^0
+13 ;;^UTILITY(U,$J,112,1482,3)
+14 ;;=.214^.839^.882^1.555^1.758^.566^.205^.747^.646^.986^1.145^.563^1.157^1.96^2.857^.919^.677^.781
+15 ;;^UTILITY(U,$J,112,1482,4)
+16 ;;=^^.018^.197^.098^.034^.196^.058
+17 ;;^UTILITY(U,$J,112,1482,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,1483,0)
+20 ;;=PIMIENTOS, CND, SOL+LIQ, WO/ADDED CA SALTS^11-943^oz.^28.3^100^N
+21 ;;^UTILITY(U,$J,112,1483,1)
+22 ;;=1.1^.3^5.1^23^93.1^^^6^1.68^6^17^158^14^.19^.049^.092^^2655^84.9^.017
+23 ;;^UTILITY(U,$J,112,1483,2)
+24 ;;=.06^.615^.01^.215^6^0^.146^.015^0^.045^.02^.161^266^.4
+25 ;;^UTILITY(U,$J,112,1483,3)
+26 ;;=.014^.04^.036^.058^.049^.013^.021^.034^.023^.046^.053^.022^.045^.157^.145^.041^.048^.044
+27 ;;^UTILITY(U,$J,112,1483,4)
+28 ;;=^0^.001^.033^.002^.011^.018
+29 ;;^UTILITY(U,$J,112,1483,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,1484,0)
+32 ;;=PIMIENTOS, CND, SOL+LIQ, W/ADDED CA SALTS^1610-2^oz.^28.3^^N
+33 ;;^UTILITY(U,$J,112,1484,1)
+34 ;;=.9^.6^5.8^27^92.4^^^96^1.5^^17^225^25^^^^^2300^95^.02
+35 ;;^UTILITY(U,$J,112,1484,2)
+36 ;;=.06^.4^^^^^0^^0^0
+37 ;;^UTILITY(U,$J,112,1484,20)
+38 ;;=USDA Std. Reference, Release 8
+39 ;;^UTILITY(U,$J,112,1485,0)
+40 ;;=PINEAPPLE AND GRAPEFRUIT JUICE DRINK, CND^14-334^fl oz.^31.3^100^N
+41 ;;^UTILITY(U,$J,112,1485,1)
+42 ;;=.2^.1^11.6^47^87.9^^^7^.31^6^6^61^14^.06^.045^.413^^35^46^.03
+43 ;;^UTILITY(U,$J,112,1485,2)
+44 ;;=.016^.267^.053^.042^10.5^0^.017^.011^0^.006^.01^.028^4^.2^^^.1
+45 ;;^UTILITY(U,$J,112,1485,4)
+46 ;;=^^^.005^.001^.002^.009
+47 ;;^UTILITY(U,$J,112,1485,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,1486,0)
+50 ;;=PINEAPPLE AND ORANGE JUICE DRINK, CND^14-341^fl oz.^31.3^100^N
+51 ;;^UTILITY(U,$J,112,1486,1)
+52 ;;=1.3^0^11.8^50^86.9^^^5^.27^6^4^46^3^.06^.041^.361^^531^22.5^.03
+53 ;;^UTILITY(U,$J,112,1486,2)
+54 ;;=.019^.207^.057^.047^10.9^0^0^0^0^0^0^0^53^.1^^^.1
+55 ;;^UTILITY(U,$J,112,1486,4)
+56 ;;=0^0^0^0^0^0^0^0
+57 ;;^UTILITY(U,$J,112,1486,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,1487,0)
+60 ;;=PISTACHIO NUTS^12-151^oz.^28.3^50^N
+61 ;;^UTILITY(U,$J,112,1487,1)
+62 ;;=20.58^48.39^24.81^577^3.87^^^135^6.78^158^503^1093^6^1.34^1.189^.327^^233^7.2^.82
+63 ;;^UTILITY(U,$J,112,1487,2)
+64 ;;=.174^1.08^1.19^.25^58^0^7.022^.252^0^6.127^32.668^7.316^23^2.4^^^10.8
+65 ;;^UTILITY(U,$J,112,1487,3)
+66 ;;=.283^.722^.975^1.677^1.278^.381^.513^1.184^.714^1.41^2.186^.536^.994^2.116^4.916^1.095^.947^1.351
+67 ;;^UTILITY(U,$J,112,1487,4)
+68 ;;=^^.045^5.349^.286^.628^31.976^^70
+69 ;;^UTILITY(U,$J,112,1487,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,1488,0)
+72 ;;=PIZZA WITH CHEESE TOPPING, BAKED FR HOME RECIPE, ENR^1628-1^sectors^65^100^N
+73 ;;^UTILITY(U,$J,112,1488,1)
+74 ;;=12^8.3^28.3^236^48.3^^^221^1^^195^130^702^^^^^630^8^.06
+75 ;;^UTILITY(U,$J,112,1488,2)
+76 ;;=.2^1^^^^^.81^^18^3.25^^^^3.1
+77 ;;^UTILITY(U,$J,112,1488,4)
+78 ;;=^^^^^^3.54
+79 ;;^UTILITY(U,$J,112,1488,20)
+80 ;;=USDA Std. Reference, Release 8
+81 ;;^UTILITY(U,$J,112,1489,0)
+82 ;;=PIZZA WITH SAUSAGE, NO CHEESE, ENR, HOME RECIPE^1629-3^sectors^67^100^N
+83 ;;^UTILITY(U,$J,112,1489,1)
+84 ;;=7.8^9.3^29.6^234^50.6^^^17^2.5^^92^168^729^^^^^560^9^.27
+85 ;;^UTILITY(U,$J,112,1489,2)
+86 ;;=.23^2.9^^^^^1.17^^19^2.71^^^^2.7
+87 ;;^UTILITY(U,$J,112,1489,4)
+88 ;;=^^^^^^4.34
+89 ;;^UTILITY(U,$J,112,1489,20)
+90 ;;=USDA Std. Reference, Release 8
+91 ;;^UTILITY(U,$J,112,1490,0)
+92 ;;=PIZZA WITH SAUSAGE, WITH CHEESE, ENR, HOME RECIPE^1629-4^sectors^67^100^N
+93 ;;^UTILITY(U,$J,112,1490,1)
+94 ;;=12.9^13.3^27.4^282^43^^^188^2.5^^205^196^668^^^^^550^9^.24
+95 ;;^UTILITY(U,$J,112,1490,2)
+96 ;;=.25^2.4^^^^^1.18^^29^3.39^^^^3.4
+97 ;;^UTILITY(U,$J,112,1490,4)
+98 ;;=^^^^^^4.68
+99 ;;^UTILITY(U,$J,112,1490,20)
+100 ;;=USDA Std. Reference, Release 8
+101 ;;^UTILITY(U,$J,112,1491,0)
+102 ;;=PIZZA WITH CHEESE TOPPING, CHILLED, BAKED, ENR^1631-2^sectors^60^100^N
+103 ;;^UTILITY(U,$J,112,1491,1)
+104 ;;=9.2^6.8^36.3^245^45.1^^^143^2.4^^148^111^633^^^^^390^6^.26
+105 ;;^UTILITY(U,$J,112,1491,2)
+106 ;;=.31^2.7^^^^^.9^^18^2.41^^^^2.6
+107 ;;^UTILITY(U,$J,112,1491,4)
+108 ;;=^^^^^^2.98
+109 ;;^UTILITY(U,$J,112,1491,20)
+110 ;;=USDA Std. Reference, Release 8
+111 ;;^UTILITY(U,$J,112,1492,0)
+112 ;;=PIZZA WITH CHEESE TOPPING, FRZ, BAKED, ENR^1633-2^sectors^57^100^N
