FHINI018 ; ; 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,254,3)
;;=.321^1.18^1.201^2.086^2.346^.678^.329^1.043^.891^1.412^1.671^1.012^1.548^2.404^4.02^1.416^1.148^1.085
;;^UTILITY(U,$J,112,254,4)
;;=.01^.01^.22^3.91^.5^2.08^6.83^.05
;;^UTILITY(U,$J,112,254,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,255,0)
;;=PORK, TOP LOIN, TRIMMED, PAN-FRIED^10-181^oz.^28.3^53^N
;;^UTILITY(U,$J,112,255,1)
;;=30.48^10.5^0^225^57.62^^^22^.85^30^271^500^57^2.29^.077^.008^^6^.3^.838
;;^UTILITY(U,$J,112,255,2)
;;=.375^5.633^.857^.427^8^.67^1.13^.09^77^3.6^4.6^1.29^2^1.37^^^0
;;^UTILITY(U,$J,112,255,3)
;;=.387^1.392^1.427^2.445^2.741^.807^.389^1.217^1.062^1.653^1.895^1.218^1.776^2.827^4.771^1.447^1.224^1.259
;;^UTILITY(U,$J,112,255,4)
;;=.01^.01^.12^2.27^.33^1.13^4.15^.04
;;^UTILITY(U,$J,112,255,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,256,0)
;;=HAM, BONELESS, EXTRA LEAN & REG, ROASTED^10-183^oz.^28.3^100^N
;;^UTILITY(U,$J,112,256,1)
;;=21.97^7.66^.5^165^65.75^^^8^1.4^19^248^362^1385^2.63^.119^.046^^0^22^.739
;;^UTILITY(U,$J,112,256,2)
;;=.28^5.324^.597^.35^3^.68^.9^.17^57^2.61^3.74^1.07^0^4.11^^^0
;;^UTILITY(U,$J,112,256,3)
;;=.243^.901^.888^1.607^1.718^.535^.304^.875^.664^.878^1.316^.726^1.196^1.919^3.303^1.053^.865^.83
;;^UTILITY(U,$J,112,256,4)
;;=.03^.02^.13^1.57^.37^.86^3.37^0
;;^UTILITY(U,$J,112,256,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,257,0)
;;=HAM, CND, EXTRA LEAN & REG, ROASTED^10-185^oz.^28.3^100^N
;;^UTILITY(U,$J,112,257,1)
;;=20.94^8.43^.49^167^66.52^^^7^1.07^20^221^351^1068^2.32^.078^.026^^0^22.9^.961
;;^UTILITY(U,$J,112,257,2)
;;=.251^5.032^.625^.4^5^.83^.81^.09^41^2.81^4.06^.9^0^3.63^^^0
;;^UTILITY(U,$J,112,257,3)
;;=.237^.934^.901^1.628^1.799^.546^.247^.807^.686^.938^1.296^.827^1.195^1.933^3.092^1.025^.891^.814
;;^UTILITY(U,$J,112,257,4)
;;=.03^.02^.09^1.8^.28^.88^3.78^0
;;^UTILITY(U,$J,112,257,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,258,0)
;;=PORK, TOP LOIN, TOT ED, PAN-FRIED^10-186^oz.^28.3^75^N
;;^UTILITY(U,$J,112,258,1)
;;=29^14.83^0^257^54.84^^^21^.81^28^262^479^55^2.2^.075^.007^^7^.3^.796
;;^UTILITY(U,$J,112,258,2)
;;=.353^5.381^.813^.403^8^.65^1.51^.1^78^5.3^6.45^1.7^2^1.32^^^0
;;^UTILITY(U,$J,112,258,3)
;;=.359^1.31^1.337^2.31^2.596^.755^.365^1.153^.993^1.563^1.829^1.132^1.701^2.666^4.473^1.495^1.23^1.198
;;^UTILITY(U,$J,112,258,4)
;;=.01^.01^.18^3.3^.43^1.7^5.84^.04
;;^UTILITY(U,$J,112,258,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,259,0)
;;=ALLSPICE, GROUND^2-001^tsp.^1.9^100^N
;;^UTILITY(U,$J,112,259,1)
;;=6.09^8.685^72.119^262.635^8.459^^^660.571^7.057^134.717^113.25^1044^77^1.005^.553^2.943^^540^39.2^.101
;;^UTILITY(U,$J,112,259,2)
;;=.063^2.86^^^^0^2.29^.07^0^2.55^.66^2.36^54^4.647^^^21.6
;;^UTILITY(U,$J,112,259,4)
;;=^^.02^.49^^1.99^.66
;;^UTILITY(U,$J,112,259,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,260,0)
;;=ANISE SEED^2-002^tsp.^2.1^100^N
;;^UTILITY(U,$J,112,260,1)
;;=17.6^15.901^50.018^337.279^9.535^^^645.6^36.96^170^440^1441^15.533^5.3^.91^2.3^^311^21^.34
;;^UTILITY(U,$J,112,260,2)
;;=.29^3.06^.797^.34^10^0^3.15^^0^^9.78^3.15^31^6.946^^^14.6
;;^UTILITY(U,$J,112,260,4)
;;=^^^^^^9.78
;;^UTILITY(U,$J,112,260,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,261,0)
;;=BASIL, GROUND^2-003^tsp.^1.4^100^N
;;^UTILITY(U,$J,112,261,1)
;;=14.367^3.977^60.957^251.214^6.432^^^2113.333^42^422^490^3432.857^34.225^5.82^1.367^3.167^^9375^61.22^.148
;;^UTILITY(U,$J,112,261,2)
;;=.316^6.948^^^^0^^^0^^^^937.5^14.267^^^17.7
;;^UTILITY(U,$J,112,261,3)
;;=.221^.588^.588^1.078^.618^.202^.159^.733^.432^.717^.662^.287^.747^1.696^1.565^.69^.588^.561
;;^UTILITY(U,$J,112,261,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,262,0)
;;=BAY LEAF, CRUMBLED^2-004^tsp.^0.6^100^N
;;^UTILITY(U,$J,112,262,1)
;;=7.613^8.362^74.965^313.46^5.436^^^834.25^43^120^113.333^529.2^22.75^3.7^.416^8.167^^6185^46.53^.009
;;^UTILITY(U,$J,112,262,2)
;;=.421^2.005^^^^0^1.24^1.05^0^2.28^1.64^2.29^618.5^3.624^^^26.3
;;^UTILITY(U,$J,112,262,4)
;;=.01^.53^.21^1.27^.14^.16^1.5
;;^UTILITY(U,$J,112,262,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,263,0)
;;=CARAWAY SEED^2-005^tsp.^2.1^100^N
;;^UTILITY(U,$J,112,263,1)
;;=19.77^14.59^49.9^333^9.87^^^689^16.23^258^568^1351^17^5.5^.91^1.3^^363^21^.383
;;^UTILITY(U,$J,112,263,2)
;;=.379^3.606^^^^0^3.122^.15^0^.62^7.125^3.272^36^5.87^^^38
;;^UTILITY(U,$J,112,263,3)
;;=.244^.756^.826^1.218^1.031^.361^.329^.867^.642^1.037^1.252^.55^.914^2.084^3.169^1.322^.917^.946
FHINI018 ; ; 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,254,3)
+2 ;;=.321^1.18^1.201^2.086^2.346^.678^.329^1.043^.891^1.412^1.671^1.012^1.548^2.404^4.02^1.416^1.148^1.085
+3 ;;^UTILITY(U,$J,112,254,4)
+4 ;;=.01^.01^.22^3.91^.5^2.08^6.83^.05
+5 ;;^UTILITY(U,$J,112,254,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,255,0)
+8 ;;=PORK, TOP LOIN, TRIMMED, PAN-FRIED^10-181^oz.^28.3^53^N
+9 ;;^UTILITY(U,$J,112,255,1)
+10 ;;=30.48^10.5^0^225^57.62^^^22^.85^30^271^500^57^2.29^.077^.008^^6^.3^.838
+11 ;;^UTILITY(U,$J,112,255,2)
+12 ;;=.375^5.633^.857^.427^8^.67^1.13^.09^77^3.6^4.6^1.29^2^1.37^^^0
+13 ;;^UTILITY(U,$J,112,255,3)
+14 ;;=.387^1.392^1.427^2.445^2.741^.807^.389^1.217^1.062^1.653^1.895^1.218^1.776^2.827^4.771^1.447^1.224^1.259
+15 ;;^UTILITY(U,$J,112,255,4)
+16 ;;=.01^.01^.12^2.27^.33^1.13^4.15^.04
+17 ;;^UTILITY(U,$J,112,255,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,256,0)
+20 ;;=HAM, BONELESS, EXTRA LEAN & REG, ROASTED^10-183^oz.^28.3^100^N
+21 ;;^UTILITY(U,$J,112,256,1)
+22 ;;=21.97^7.66^.5^165^65.75^^^8^1.4^19^248^362^1385^2.63^.119^.046^^0^22^.739
+23 ;;^UTILITY(U,$J,112,256,2)
+24 ;;=.28^5.324^.597^.35^3^.68^.9^.17^57^2.61^3.74^1.07^0^4.11^^^0
+25 ;;^UTILITY(U,$J,112,256,3)
+26 ;;=.243^.901^.888^1.607^1.718^.535^.304^.875^.664^.878^1.316^.726^1.196^1.919^3.303^1.053^.865^.83
+27 ;;^UTILITY(U,$J,112,256,4)
+28 ;;=.03^.02^.13^1.57^.37^.86^3.37^0
+29 ;;^UTILITY(U,$J,112,256,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,257,0)
+32 ;;=HAM, CND, EXTRA LEAN & REG, ROASTED^10-185^oz.^28.3^100^N
+33 ;;^UTILITY(U,$J,112,257,1)
+34 ;;=20.94^8.43^.49^167^66.52^^^7^1.07^20^221^351^1068^2.32^.078^.026^^0^22.9^.961
+35 ;;^UTILITY(U,$J,112,257,2)
+36 ;;=.251^5.032^.625^.4^5^.83^.81^.09^41^2.81^4.06^.9^0^3.63^^^0
+37 ;;^UTILITY(U,$J,112,257,3)
+38 ;;=.237^.934^.901^1.628^1.799^.546^.247^.807^.686^.938^1.296^.827^1.195^1.933^3.092^1.025^.891^.814
+39 ;;^UTILITY(U,$J,112,257,4)
+40 ;;=.03^.02^.09^1.8^.28^.88^3.78^0
+41 ;;^UTILITY(U,$J,112,257,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,258,0)
+44 ;;=PORK, TOP LOIN, TOT ED, PAN-FRIED^10-186^oz.^28.3^75^N
+45 ;;^UTILITY(U,$J,112,258,1)
+46 ;;=29^14.83^0^257^54.84^^^21^.81^28^262^479^55^2.2^.075^.007^^7^.3^.796
+47 ;;^UTILITY(U,$J,112,258,2)
+48 ;;=.353^5.381^.813^.403^8^.65^1.51^.1^78^5.3^6.45^1.7^2^1.32^^^0
+49 ;;^UTILITY(U,$J,112,258,3)
+50 ;;=.359^1.31^1.337^2.31^2.596^.755^.365^1.153^.993^1.563^1.829^1.132^1.701^2.666^4.473^1.495^1.23^1.198
+51 ;;^UTILITY(U,$J,112,258,4)
+52 ;;=.01^.01^.18^3.3^.43^1.7^5.84^.04
+53 ;;^UTILITY(U,$J,112,258,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,259,0)
+56 ;;=ALLSPICE, GROUND^2-001^tsp.^1.9^100^N
+57 ;;^UTILITY(U,$J,112,259,1)
+58 ;;=6.09^8.685^72.119^262.635^8.459^^^660.571^7.057^134.717^113.25^1044^77^1.005^.553^2.943^^540^39.2^.101
+59 ;;^UTILITY(U,$J,112,259,2)
+60 ;;=.063^2.86^^^^0^2.29^.07^0^2.55^.66^2.36^54^4.647^^^21.6
+61 ;;^UTILITY(U,$J,112,259,4)
+62 ;;=^^.02^.49^^1.99^.66
+63 ;;^UTILITY(U,$J,112,259,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,260,0)
+66 ;;=ANISE SEED^2-002^tsp.^2.1^100^N
+67 ;;^UTILITY(U,$J,112,260,1)
+68 ;;=17.6^15.901^50.018^337.279^9.535^^^645.6^36.96^170^440^1441^15.533^5.3^.91^2.3^^311^21^.34
+69 ;;^UTILITY(U,$J,112,260,2)
+70 ;;=.29^3.06^.797^.34^10^0^3.15^^0^^9.78^3.15^31^6.946^^^14.6
+71 ;;^UTILITY(U,$J,112,260,4)
+72 ;;=^^^^^^9.78
+73 ;;^UTILITY(U,$J,112,260,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,261,0)
+76 ;;=BASIL, GROUND^2-003^tsp.^1.4^100^N
+77 ;;^UTILITY(U,$J,112,261,1)
+78 ;;=14.367^3.977^60.957^251.214^6.432^^^2113.333^42^422^490^3432.857^34.225^5.82^1.367^3.167^^9375^61.22^.148
+79 ;;^UTILITY(U,$J,112,261,2)
+80 ;;=.316^6.948^^^^0^^^0^^^^937.5^14.267^^^17.7
+81 ;;^UTILITY(U,$J,112,261,3)
+82 ;;=.221^.588^.588^1.078^.618^.202^.159^.733^.432^.717^.662^.287^.747^1.696^1.565^.69^.588^.561
+83 ;;^UTILITY(U,$J,112,261,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,262,0)
+86 ;;=BAY LEAF, CRUMBLED^2-004^tsp.^0.6^100^N
+87 ;;^UTILITY(U,$J,112,262,1)
+88 ;;=7.613^8.362^74.965^313.46^5.436^^^834.25^43^120^113.333^529.2^22.75^3.7^.416^8.167^^6185^46.53^.009
+89 ;;^UTILITY(U,$J,112,262,2)
+90 ;;=.421^2.005^^^^0^1.24^1.05^0^2.28^1.64^2.29^618.5^3.624^^^26.3
+91 ;;^UTILITY(U,$J,112,262,4)
+92 ;;=.01^.53^.21^1.27^.14^.16^1.5
+93 ;;^UTILITY(U,$J,112,262,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,263,0)
+96 ;;=CARAWAY SEED^2-005^tsp.^2.1^100^N
+97 ;;^UTILITY(U,$J,112,263,1)
+98 ;;=19.77^14.59^49.9^333^9.87^^^689^16.23^258^568^1351^17^5.5^.91^1.3^^363^21^.383
+99 ;;^UTILITY(U,$J,112,263,2)
+100 ;;=.379^3.606^^^^0^3.122^.15^0^.62^7.125^3.272^36^5.87^^^38
+101 ;;^UTILITY(U,$J,112,263,3)
+102 ;;=.244^.756^.826^1.218^1.031^.361^.329^.867^.642^1.037^1.252^.55^.914^2.084^3.169^1.322^.917^.946
