FHINI037 ; ; 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,994,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,995,0)
;;=COFFEE, INSTANT, BEVERAGE^14-215^6-oz cups^180^100^N
;;^UTILITY(U,$J,112,995,1)
;;=.1^0^.4^2^99^^^3^.05^4^3^36^3^.03^.007^.018^^0^0^0
;;^UTILITY(U,$J,112,995,2)
;;=.001^.283^.001^0^0^0^.002^0^0^.002^0^.002^0^.1^^32
;;^UTILITY(U,$J,112,995,3)
;;=0^.001^.002^.005^.001^0^.002^.003^.002^.003^.001^.002^.003^.005^.02^.004^.004^.001
;;^UTILITY(U,$J,112,995,4)
;;=^^^.001^^0^0
;;^UTILITY(U,$J,112,995,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,997,0)
;;=COLESLAW^11-159^cups^120^100^N
;;^UTILITY(U,$J,112,997,1)
;;=1.29^2.61^12.41^69^81.5^^^45^.59^10^32^181^23^.2^.023^.097^^635^32.7^.066
;;^UTILITY(U,$J,112,997,2)
;;=.062^.272^.128^.126^26.5^0^1.171^.175^8^.385^.708^1.351^82^2.19
;;^UTILITY(U,$J,112,997,3)
;;=.017^.048^.061^.082^.072^.019^.015^.047^.034^.062^.07^.029^.046^.121^.253^.037^.155^.064
;;^UTILITY(U,$J,112,997,4)
;;=^.004^.004^.28^.003^.096^.701
;;^UTILITY(U,$J,112,997,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,998,0)
;;=COLLARDS, RAW^11-161^cups^186^57^N
;;^UTILITY(U,$J,112,998,1)
;;=1.57^.22^7.11^31^90.55^^^29^.19^9^10^169^20^.13^.039^.276^^3330^23.3^.029
;;^UTILITY(U,$J,112,998,2)
;;=.064^.374^.064^.067^12^0^^^0^^^^333^.55^^^3.7
;;^UTILITY(U,$J,112,998,3)
;;=.02^.055^.064^.097^.075^.021^.016^.056^.042^.077^.08^.03^.067^.12^.131^.06^.067^.05
;;^UTILITY(U,$J,112,998,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,999,0)
;;=COLLARDS, CKD, WO/SALT, WO/STEMS^11-162^cups^190^100^N
;;^UTILITY(U,$J,112,999,1)
;;=1.35^.19^6.13^27^91.86^^^23^.16^7^8^131^16^.11^.032^.226^^2727^12.1^.021
;;^UTILITY(U,$J,112,999,2)
;;=.052^.29^.052^.052^6^0^^^0^^^^273^.47^^^2
;;^UTILITY(U,$J,112,999,3)
;;=.018^.048^.055^.084^.064^.018^.014^.048^.037^.066^.069^.026^.058^.104^.113^.052^.058^.044
;;^UTILITY(U,$J,112,999,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1000,0)
;;=COLLARDS, CKD, W/SALT^11-768^cups^145^100^N
;;^UTILITY(U,$J,112,1000,1)
;;=1.35^.19^6.13^27^91.86^^^23^.16^7^8^131^252^.11^.032^.226^^2727^12.1^.021
;;^UTILITY(U,$J,112,1000,2)
;;=.052^.29^.052^.052^6^0^^^0^^^^273^.47
;;^UTILITY(U,$J,112,1000,3)
;;=.018^.048^.055^.084^.064^.018^.014^.048^.037^.066^.069^.026^.058^.104^.113^.052^.058^.044
;;^UTILITY(U,$J,112,1000,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1001,0)
;;=COLLARDS, FRZ, BOILED, WO/SALT^11-164^cups^170^100^N
;;^UTILITY(U,$J,112,1001,1)
;;=2.97^.41^7.11^36^88.47^^^210^1.12^30^27^251^50^.27^.055^.663^^5981^26.4^.047
;;^UTILITY(U,$J,112,1001,2)
;;=.115^.635^.115^.114^76.1^0^^^0^^^^598^1.05
;;^UTILITY(U,$J,112,1001,3)
;;=.038^.105^.121^.184^.141^.04^.03^.105^.08^.145^.152^.057^.127^.228^.248^.114^.126^.095
;;^UTILITY(U,$J,112,1001,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1002,0)
;;=COLLARDS, FRZ, BOILED, W/SALT^11-769^cups^170^100^N
;;^UTILITY(U,$J,112,1002,1)
;;=2.97^.41^7.11^36^88.47^^^210^1.12^30^27^251^286^.27^.055^.663^^5981^26.4^.047
;;^UTILITY(U,$J,112,1002,2)
;;=.115^.635^.115^.114^76.1^0^^^0^^^^598^1.05
;;^UTILITY(U,$J,112,1002,3)
;;=.038^.105^.121^.184^.141^.04^.03^.105^.08^.145^.152^.057^.127^.228^.248^.114^.126^.095
;;^UTILITY(U,$J,112,1002,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1003,0)
;;=COOKIES, ASSORTED, COMMERCIAL^812-0^cookies^9^100^N
;;^UTILITY(U,$J,112,1003,1)
;;=5.1^20.2^71^480^2.6^^^37^.7^^163^67^365^^^^^80^0^.03
;;^UTILITY(U,$J,112,1003,2)
;;=.05^.4^^^^^1^^39^4^^^^1.1
;;^UTILITY(U,$J,112,1003,4)
;;=^^^^^^10
;;^UTILITY(U,$J,112,1003,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1004,0)
;;=BROWNIES, W/NUTS, BKD FROM HOME RECIPE, ENR^18-154^pieces^20^100^N
;;^UTILITY(U,$J,112,1004,1)
;;=6.2^29.1^50.2^466^12.6^^^57^1.84^53^132^176^343^.97^.388^.587^^765^.3^.141
;;^UTILITY(U,$J,112,1004,2)
;;=.19^.982^.328^.094^15^.16^8.446^.932^73^7.319^10.839^9.412^199^1.6
;;^UTILITY(U,$J,112,1004,3)
;;=.078^.228^.265^.447^.283^.132^.125^.298^.215^.323^.433^.136^.271^.516^1.203^.238^.362^.352
;;^UTILITY(U,$J,112,1004,4)
;;=.001^.001^.074^4.158^.068^3.037^10.71^.027
;;^UTILITY(U,$J,112,1004,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1005,0)
;;=BROWNIES, W/NUTS, FRZ, W/CHOC-IC, ENR^814-2^pieces^24.5^100^N
;;^UTILITY(U,$J,112,1005,1)
;;=4.9^20.6^60.7^419^12.5^^^40^1.7^^125^179^200^^^^^220^.2^.13
;;^UTILITY(U,$J,112,1005,2)
;;=.11^.7^^^^^2.29^^39^6.96^^^^1.3
;;^UTILITY(U,$J,112,1005,4)
;;=^^^^^^9.76
;;^UTILITY(U,$J,112,1005,20)
;;=USDA Std. Reference, Release 8
FHINI037 ; ; 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,994,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,995,0)
+4 ;;=COFFEE, INSTANT, BEVERAGE^14-215^6-oz cups^180^100^N
+5 ;;^UTILITY(U,$J,112,995,1)
+6 ;;=.1^0^.4^2^99^^^3^.05^4^3^36^3^.03^.007^.018^^0^0^0
+7 ;;^UTILITY(U,$J,112,995,2)
+8 ;;=.001^.283^.001^0^0^0^.002^0^0^.002^0^.002^0^.1^^32
+9 ;;^UTILITY(U,$J,112,995,3)
+10 ;;=0^.001^.002^.005^.001^0^.002^.003^.002^.003^.001^.002^.003^.005^.02^.004^.004^.001
+11 ;;^UTILITY(U,$J,112,995,4)
+12 ;;=^^^.001^^0^0
+13 ;;^UTILITY(U,$J,112,995,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,997,0)
+16 ;;=COLESLAW^11-159^cups^120^100^N
+17 ;;^UTILITY(U,$J,112,997,1)
+18 ;;=1.29^2.61^12.41^69^81.5^^^45^.59^10^32^181^23^.2^.023^.097^^635^32.7^.066
+19 ;;^UTILITY(U,$J,112,997,2)
+20 ;;=.062^.272^.128^.126^26.5^0^1.171^.175^8^.385^.708^1.351^82^2.19
+21 ;;^UTILITY(U,$J,112,997,3)
+22 ;;=.017^.048^.061^.082^.072^.019^.015^.047^.034^.062^.07^.029^.046^.121^.253^.037^.155^.064
+23 ;;^UTILITY(U,$J,112,997,4)
+24 ;;=^.004^.004^.28^.003^.096^.701
+25 ;;^UTILITY(U,$J,112,997,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,998,0)
+28 ;;=COLLARDS, RAW^11-161^cups^186^57^N
+29 ;;^UTILITY(U,$J,112,998,1)
+30 ;;=1.57^.22^7.11^31^90.55^^^29^.19^9^10^169^20^.13^.039^.276^^3330^23.3^.029
+31 ;;^UTILITY(U,$J,112,998,2)
+32 ;;=.064^.374^.064^.067^12^0^^^0^^^^333^.55^^^3.7
+33 ;;^UTILITY(U,$J,112,998,3)
+34 ;;=.02^.055^.064^.097^.075^.021^.016^.056^.042^.077^.08^.03^.067^.12^.131^.06^.067^.05
+35 ;;^UTILITY(U,$J,112,998,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,999,0)
+38 ;;=COLLARDS, CKD, WO/SALT, WO/STEMS^11-162^cups^190^100^N
+39 ;;^UTILITY(U,$J,112,999,1)
+40 ;;=1.35^.19^6.13^27^91.86^^^23^.16^7^8^131^16^.11^.032^.226^^2727^12.1^.021
+41 ;;^UTILITY(U,$J,112,999,2)
+42 ;;=.052^.29^.052^.052^6^0^^^0^^^^273^.47^^^2
+43 ;;^UTILITY(U,$J,112,999,3)
+44 ;;=.018^.048^.055^.084^.064^.018^.014^.048^.037^.066^.069^.026^.058^.104^.113^.052^.058^.044
+45 ;;^UTILITY(U,$J,112,999,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1000,0)
+48 ;;=COLLARDS, CKD, W/SALT^11-768^cups^145^100^N
+49 ;;^UTILITY(U,$J,112,1000,1)
+50 ;;=1.35^.19^6.13^27^91.86^^^23^.16^7^8^131^252^.11^.032^.226^^2727^12.1^.021
+51 ;;^UTILITY(U,$J,112,1000,2)
+52 ;;=.052^.29^.052^.052^6^0^^^0^^^^273^.47
+53 ;;^UTILITY(U,$J,112,1000,3)
+54 ;;=.018^.048^.055^.084^.064^.018^.014^.048^.037^.066^.069^.026^.058^.104^.113^.052^.058^.044
+55 ;;^UTILITY(U,$J,112,1000,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,1001,0)
+58 ;;=COLLARDS, FRZ, BOILED, WO/SALT^11-164^cups^170^100^N
+59 ;;^UTILITY(U,$J,112,1001,1)
+60 ;;=2.97^.41^7.11^36^88.47^^^210^1.12^30^27^251^50^.27^.055^.663^^5981^26.4^.047
+61 ;;^UTILITY(U,$J,112,1001,2)
+62 ;;=.115^.635^.115^.114^76.1^0^^^0^^^^598^1.05
+63 ;;^UTILITY(U,$J,112,1001,3)
+64 ;;=.038^.105^.121^.184^.141^.04^.03^.105^.08^.145^.152^.057^.127^.228^.248^.114^.126^.095
+65 ;;^UTILITY(U,$J,112,1001,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,1002,0)
+68 ;;=COLLARDS, FRZ, BOILED, W/SALT^11-769^cups^170^100^N
+69 ;;^UTILITY(U,$J,112,1002,1)
+70 ;;=2.97^.41^7.11^36^88.47^^^210^1.12^30^27^251^286^.27^.055^.663^^5981^26.4^.047
+71 ;;^UTILITY(U,$J,112,1002,2)
+72 ;;=.115^.635^.115^.114^76.1^0^^^0^^^^598^1.05
+73 ;;^UTILITY(U,$J,112,1002,3)
+74 ;;=.038^.105^.121^.184^.141^.04^.03^.105^.08^.145^.152^.057^.127^.228^.248^.114^.126^.095
+75 ;;^UTILITY(U,$J,112,1002,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,1003,0)
+78 ;;=COOKIES, ASSORTED, COMMERCIAL^812-0^cookies^9^100^N
+79 ;;^UTILITY(U,$J,112,1003,1)
+80 ;;=5.1^20.2^71^480^2.6^^^37^.7^^163^67^365^^^^^80^0^.03
+81 ;;^UTILITY(U,$J,112,1003,2)
+82 ;;=.05^.4^^^^^1^^39^4^^^^1.1
+83 ;;^UTILITY(U,$J,112,1003,4)
+84 ;;=^^^^^^10
+85 ;;^UTILITY(U,$J,112,1003,20)
+86 ;;=USDA Std. Reference, Release 8
+87 ;;^UTILITY(U,$J,112,1004,0)
+88 ;;=BROWNIES, W/NUTS, BKD FROM HOME RECIPE, ENR^18-154^pieces^20^100^N
+89 ;;^UTILITY(U,$J,112,1004,1)
+90 ;;=6.2^29.1^50.2^466^12.6^^^57^1.84^53^132^176^343^.97^.388^.587^^765^.3^.141
+91 ;;^UTILITY(U,$J,112,1004,2)
+92 ;;=.19^.982^.328^.094^15^.16^8.446^.932^73^7.319^10.839^9.412^199^1.6
+93 ;;^UTILITY(U,$J,112,1004,3)
+94 ;;=.078^.228^.265^.447^.283^.132^.125^.298^.215^.323^.433^.136^.271^.516^1.203^.238^.362^.352
+95 ;;^UTILITY(U,$J,112,1004,4)
+96 ;;=.001^.001^.074^4.158^.068^3.037^10.71^.027
+97 ;;^UTILITY(U,$J,112,1004,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,1005,0)
+100 ;;=BROWNIES, W/NUTS, FRZ, W/CHOC-IC, ENR^814-2^pieces^24.5^100^N
+101 ;;^UTILITY(U,$J,112,1005,1)
+102 ;;=4.9^20.6^60.7^419^12.5^^^40^1.7^^125^179^200^^^^^220^.2^.13
+103 ;;^UTILITY(U,$J,112,1005,2)
+104 ;;=.11^.7^^^^^2.29^^39^6.96^^^^1.3
+105 ;;^UTILITY(U,$J,112,1005,4)
+106 ;;=^^^^^^9.76
+107 ;;^UTILITY(U,$J,112,1005,20)
+108 ;;=USDA Std. Reference, Release 8
