FHINI04L ; ; 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,1539,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1540,0)
;;=PUDDINGS, CUSTARD DESSERT, PREP FR MIX CKD^19-170^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1540,1)
;;=4.1^4.1^17.6^122^73.2^^^146^.26^19^131^213^149^.52^.021^.005^^150^.8^.055
;;^UTILITY(U,$J,112,1540,2)
;;=.215^.119^.603^.063^8^.45^.19^.05^61^2.23^1.27^.26^33^1
;;^UTILITY(U,$J,112,1540,3)
;;=.056^.194^.233^.381^.316^.096^.047^.179^.178^.253^.158^.102^.153^.326^.769^.09^.335^.229
;;^UTILITY(U,$J,112,1540,4)
;;=.08^.09^.33^1.07^.1^.47^1.16^.01^^14.1
;;^UTILITY(U,$J,112,1540,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1541,0)
;;=PUMPKIN, CND, W/O SALT^11-424^cups^245^100^N
;;^UTILITY(U,$J,112,1541,1)
;;=1.1^.28^8.08^34^89.97^^^26^1.39^23^35^206^5^.17^.107^.149^^22056^4.2^.024
;;^UTILITY(U,$J,112,1541,2)
;;=.054^.367^.4^.056^12.3^0^.007^.008^0^.146^.037^.015^2206^.56^^^2.8
;;^UTILITY(U,$J,112,1541,3)
;;=.013^.032^.034^.051^.06^.012^.003^.035^.046^.038^.059^.017^.031^.112^.202^.029^.029^.048
;;^UTILITY(U,$J,112,1541,4)
;;=^.003^.018^.103^.018^.008^.018^^16
;;^UTILITY(U,$J,112,1541,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1542,0)
;;=PUMPKIN, CND, W/SALT^11-846^cups^245^100^N
;;^UTILITY(U,$J,112,1542,1)
;;=1.1^.28^8.08^34^89.97^^^26^1.39^23^35^206^241^.17^.107^.149^^22056^4.2
;;^UTILITY(U,$J,112,1542,2)
;;=^^^^^^.007^.008^0^.146^.037^.015^2206^.56
;;^UTILITY(U,$J,112,1542,3)
;;=.013^.032^.034^.051^.06^.012^.003^.035^.046^.038^.059^.017^.031^.112^.202^.029^.029^.048
;;^UTILITY(U,$J,112,1542,4)
;;=^.003^.018^.103^.018^.008^.018
;;^UTILITY(U,$J,112,1542,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1543,0)
;;=RABBIT, DOMESTICATED, FLESH ONLY, STEWED^17-179^cups^110^100^N
;;^UTILITY(U,$J,112,1543,1)
;;=30.38^8.41^0^206^58.82^^^20^2.37^20^226^300^37^2.37^.176^.032^^0^0^.06
;;^UTILITY(U,$J,112,1543,2)
;;=.17^7.16^.67^.34^9^6.51^1.3^.34^86^2.51^2.27^1.63^0^1.09^^^0
;;^UTILITY(U,$J,112,1543,3)
;;=.401^1.359^1.441^2.367^2.66^.76^.382^1.247^1.082^1.544^1.877^.852^1.833^2.968^4.874^1.649^1.485^1.346
;;^UTILITY(U,$J,112,1543,4)
;;=^^.22^1.89^.28^.39^1.94
;;^UTILITY(U,$J,112,1543,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1544,0)
;;=RADISHES, RAW^11-429^radishes^4.5^90^N
;;^UTILITY(U,$J,112,1544,1)
;;=.6^.54^3.59^17^94.84^^^21^.29^9^18^232^24^.3^.04^.07^^8^22.8^.005
;;^UTILITY(U,$J,112,1544,2)
;;=.045^.3^.088^.071^27^0^.016^.029^0^.03^.017^.045^1^.54^^^1.1
;;^UTILITY(U,$J,112,1544,3)
;;=.004^.029^.03^.037^.035^.007^.005^.023^.013^.032^.04^.013^.022^.048^.132^.022^.018^.021
;;^UTILITY(U,$J,112,1544,4)
;;=^^0^.026^0^.004^.016^^.1
;;^UTILITY(U,$J,112,1544,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1545,0)
;;=RADISHES, ORIENTAL, RAW^11-430^cups^88^79^N
;;^UTILITY(U,$J,112,1545,1)
;;=.6^.1^4.11^18^94.62^^^27^.4^16^23^227^21^.15^.115^.038^^0^22^.02
;;^UTILITY(U,$J,112,1545,2)
;;=.02^.2^.138^.046^28.2^0^.016^.029^0^.03^.017^.045^0^.58^^^1.6
;;^UTILITY(U,$J,112,1545,3)
;;=.003^.025^.026^.031^.03^.006^.005^.02^.011^.028^.035^.011^.019^.041^.113^.019^.015^.018
;;^UTILITY(U,$J,112,1545,4)
;;=^^0^.026^0^.004^.016
;;^UTILITY(U,$J,112,1545,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1546,0)
;;=SNAPPER, RED AND GRAY, RAW^15-101^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1546,1)
;;=20.51^1.34^0^100^76.87^^^32^.18^32^198^417^64^.36^.028^.013^^100^1.6^.046
;;^UTILITY(U,$J,112,1546,2)
;;=.003^.284^.75^.4^5^3^.019^.004^37^.285^.251^.459^30^1.31^^^0
;;^UTILITY(U,$J,112,1546,3)
;;=.23^.899^.945^1.667^1.883^.607^.22^.801^.692^1.056^1.227^.604^1.24^2.1^3.061^.984^.725^.837
;;^UTILITY(U,$J,112,1546,4)
;;=^^.036^.162^.06^.081^.165^.049^^38.2
;;^UTILITY(U,$J,112,1546,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1547,0)
;;=RENNIN TABLET, SALTS, STARCH, RENNIN ENZYME^19-225^tablet^11^100^N
;;^UTILITY(U,$J,112,1547,1)
;;=1^.1^19.8^84^6.5^^^3733^7.07^18^340^292^26050^6.36^.2^.895^^0^0^0
;;^UTILITY(U,$J,112,1547,2)
;;=0^0^0^0^0^0^^^0^^^^0^72.5
;;^UTILITY(U,$J,112,1547,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,1547,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1548,0)
;;=RENNIN DESSERT, HOME PREP WITH TABLET^19-224^cups^255^100^N
;;^UTILITY(U,$J,112,1548,1)
;;=2.9^3^11.2^82^82.2^^^110^.06^12^84^135^70^.35^.012^.003^^112^.8^.034
;;^UTILITY(U,$J,112,1548,2)
;;=.146^.075^.279^.037^4^.32^.07^.05^12^1.85^.86^.12^27^.7
;;^UTILITY(U,$J,112,1548,3)
;;=.039^.126^.169^.274^.222^.07^.026^.135^.135^.187^.101^.076^.096^.212^.585^.059^.27^.152
FHINI04L ; ; 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,1539,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,1540,0)
+4 ;;=PUDDINGS, CUSTARD DESSERT, PREP FR MIX CKD^19-170^oz.^28.3^100^N
+5 ;;^UTILITY(U,$J,112,1540,1)
+6 ;;=4.1^4.1^17.6^122^73.2^^^146^.26^19^131^213^149^.52^.021^.005^^150^.8^.055
+7 ;;^UTILITY(U,$J,112,1540,2)
+8 ;;=.215^.119^.603^.063^8^.45^.19^.05^61^2.23^1.27^.26^33^1
+9 ;;^UTILITY(U,$J,112,1540,3)
+10 ;;=.056^.194^.233^.381^.316^.096^.047^.179^.178^.253^.158^.102^.153^.326^.769^.09^.335^.229
+11 ;;^UTILITY(U,$J,112,1540,4)
+12 ;;=.08^.09^.33^1.07^.1^.47^1.16^.01^^14.1
+13 ;;^UTILITY(U,$J,112,1540,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,1541,0)
+16 ;;=PUMPKIN, CND, W/O SALT^11-424^cups^245^100^N
+17 ;;^UTILITY(U,$J,112,1541,1)
+18 ;;=1.1^.28^8.08^34^89.97^^^26^1.39^23^35^206^5^.17^.107^.149^^22056^4.2^.024
+19 ;;^UTILITY(U,$J,112,1541,2)
+20 ;;=.054^.367^.4^.056^12.3^0^.007^.008^0^.146^.037^.015^2206^.56^^^2.8
+21 ;;^UTILITY(U,$J,112,1541,3)
+22 ;;=.013^.032^.034^.051^.06^.012^.003^.035^.046^.038^.059^.017^.031^.112^.202^.029^.029^.048
+23 ;;^UTILITY(U,$J,112,1541,4)
+24 ;;=^.003^.018^.103^.018^.008^.018^^16
+25 ;;^UTILITY(U,$J,112,1541,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,1542,0)
+28 ;;=PUMPKIN, CND, W/SALT^11-846^cups^245^100^N
+29 ;;^UTILITY(U,$J,112,1542,1)
+30 ;;=1.1^.28^8.08^34^89.97^^^26^1.39^23^35^206^241^.17^.107^.149^^22056^4.2
+31 ;;^UTILITY(U,$J,112,1542,2)
+32 ;;=^^^^^^.007^.008^0^.146^.037^.015^2206^.56
+33 ;;^UTILITY(U,$J,112,1542,3)
+34 ;;=.013^.032^.034^.051^.06^.012^.003^.035^.046^.038^.059^.017^.031^.112^.202^.029^.029^.048
+35 ;;^UTILITY(U,$J,112,1542,4)
+36 ;;=^.003^.018^.103^.018^.008^.018
+37 ;;^UTILITY(U,$J,112,1542,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,1543,0)
+40 ;;=RABBIT, DOMESTICATED, FLESH ONLY, STEWED^17-179^cups^110^100^N
+41 ;;^UTILITY(U,$J,112,1543,1)
+42 ;;=30.38^8.41^0^206^58.82^^^20^2.37^20^226^300^37^2.37^.176^.032^^0^0^.06
+43 ;;^UTILITY(U,$J,112,1543,2)
+44 ;;=.17^7.16^.67^.34^9^6.51^1.3^.34^86^2.51^2.27^1.63^0^1.09^^^0
+45 ;;^UTILITY(U,$J,112,1543,3)
+46 ;;=.401^1.359^1.441^2.367^2.66^.76^.382^1.247^1.082^1.544^1.877^.852^1.833^2.968^4.874^1.649^1.485^1.346
+47 ;;^UTILITY(U,$J,112,1543,4)
+48 ;;=^^.22^1.89^.28^.39^1.94
+49 ;;^UTILITY(U,$J,112,1543,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,1544,0)
+52 ;;=RADISHES, RAW^11-429^radishes^4.5^90^N
+53 ;;^UTILITY(U,$J,112,1544,1)
+54 ;;=.6^.54^3.59^17^94.84^^^21^.29^9^18^232^24^.3^.04^.07^^8^22.8^.005
+55 ;;^UTILITY(U,$J,112,1544,2)
+56 ;;=.045^.3^.088^.071^27^0^.016^.029^0^.03^.017^.045^1^.54^^^1.1
+57 ;;^UTILITY(U,$J,112,1544,3)
+58 ;;=.004^.029^.03^.037^.035^.007^.005^.023^.013^.032^.04^.013^.022^.048^.132^.022^.018^.021
+59 ;;^UTILITY(U,$J,112,1544,4)
+60 ;;=^^0^.026^0^.004^.016^^.1
+61 ;;^UTILITY(U,$J,112,1544,20)
+62 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+63 ;;^UTILITY(U,$J,112,1545,0)
+64 ;;=RADISHES, ORIENTAL, RAW^11-430^cups^88^79^N
+65 ;;^UTILITY(U,$J,112,1545,1)
+66 ;;=.6^.1^4.11^18^94.62^^^27^.4^16^23^227^21^.15^.115^.038^^0^22^.02
+67 ;;^UTILITY(U,$J,112,1545,2)
+68 ;;=.02^.2^.138^.046^28.2^0^.016^.029^0^.03^.017^.045^0^.58^^^1.6
+69 ;;^UTILITY(U,$J,112,1545,3)
+70 ;;=.003^.025^.026^.031^.03^.006^.005^.02^.011^.028^.035^.011^.019^.041^.113^.019^.015^.018
+71 ;;^UTILITY(U,$J,112,1545,4)
+72 ;;=^^0^.026^0^.004^.016
+73 ;;^UTILITY(U,$J,112,1545,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,1546,0)
+76 ;;=SNAPPER, RED AND GRAY, RAW^15-101^oz.^28.3^100^N
+77 ;;^UTILITY(U,$J,112,1546,1)
+78 ;;=20.51^1.34^0^100^76.87^^^32^.18^32^198^417^64^.36^.028^.013^^100^1.6^.046
+79 ;;^UTILITY(U,$J,112,1546,2)
+80 ;;=.003^.284^.75^.4^5^3^.019^.004^37^.285^.251^.459^30^1.31^^^0
+81 ;;^UTILITY(U,$J,112,1546,3)
+82 ;;=.23^.899^.945^1.667^1.883^.607^.22^.801^.692^1.056^1.227^.604^1.24^2.1^3.061^.984^.725^.837
+83 ;;^UTILITY(U,$J,112,1546,4)
+84 ;;=^^.036^.162^.06^.081^.165^.049^^38.2
+85 ;;^UTILITY(U,$J,112,1546,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,1547,0)
+88 ;;=RENNIN TABLET, SALTS, STARCH, RENNIN ENZYME^19-225^tablet^11^100^N
+89 ;;^UTILITY(U,$J,112,1547,1)
+90 ;;=1^.1^19.8^84^6.5^^^3733^7.07^18^340^292^26050^6.36^.2^.895^^0^0^0
+91 ;;^UTILITY(U,$J,112,1547,2)
+92 ;;=0^0^0^0^0^0^^^0^^^^0^72.5
+93 ;;^UTILITY(U,$J,112,1547,4)
+94 ;;=^^^^^^0
+95 ;;^UTILITY(U,$J,112,1547,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,1548,0)
+98 ;;=RENNIN DESSERT, HOME PREP WITH TABLET^19-224^cups^255^100^N
+99 ;;^UTILITY(U,$J,112,1548,1)
+100 ;;=2.9^3^11.2^82^82.2^^^110^.06^12^84^135^70^.35^.012^.003^^112^.8^.034
+101 ;;^UTILITY(U,$J,112,1548,2)
+102 ;;=.146^.075^.279^.037^4^.32^.07^.05^12^1.85^.86^.12^27^.7
+103 ;;^UTILITY(U,$J,112,1548,3)
+104 ;;=.039^.126^.169^.274^.222^.07^.026^.135^.135^.187^.101^.076^.096^.212^.585^.059^.27^.152
