FHINI03X ; ; 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,1270,1)
;;=2.84^.49^5.24^30^90.5^^^138^.94^18^28^321^15^.18^.047^.45^^6354^25.2^.043
;;^UTILITY(U,$J,112,1270,2)
;;=.114^.672^.053^.086^14.3^0^.096^.125^0^.063^.036^.235^635^.94
;;^UTILITY(U,$J,112,1270,3)
;;=.035^.127^.17^.199^.17^.027^.038^.146^.101^.156^.158^.06^.143^.254^.323^.137^.169^.12
;;^UTILITY(U,$J,112,1270,4)
;;=0^.002^.002^.053^0^.002^.034^.001
;;^UTILITY(U,$J,112,1270,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1271,0)
;;=KALE, FRZ, CKD W/SALT^11-791^cups^130^100^N
;;^UTILITY(U,$J,112,1271,1)
;;=2.84^.49^5.24^30^90.5^^^138^.94^18^28^321^251^.18^.047^.45^^6354^25.2^.043
;;^UTILITY(U,$J,112,1271,2)
;;=.114^.672^.053^.086^14.3^0^.096^.125^0^.063^.036^.235^635^.94
;;^UTILITY(U,$J,112,1271,3)
;;=.035^.127^.17^.199^.17^.027^.038^.146^.101^.156^.158^.06^.143^.254^.323^.137^.169^.12
;;^UTILITY(U,$J,112,1271,4)
;;=0^.002^.002^.053^0^.002^.034^.001
;;^UTILITY(U,$J,112,1271,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1272,0)
;;=BEEF, KIDNEYS, SIMMERED^13-324^oz.^28.3^43^N
;;^UTILITY(U,$J,112,1272,1)
;;=25.48^3.44^.96^144^68.83^^^17^7.31^18^306^179^134^4.22^.68^.185^^1241^.8^.19
;;^UTILITY(U,$J,112,1272,2)
;;=4.06^6.02^1.69^.52^98^51.3^.4^.01^387^1.09^.74^.74^373^1.29^^^0
;;^UTILITY(U,$J,112,1272,3)
;;=.347^1.231^1.04^2.043^1.696^.53^.077^1.223^.958^1.59^1.496^.665^1.431^2.251^2.968^1.553^1.455^1.248
;;^UTILITY(U,$J,112,1272,4)
;;=.01^.01^.06^.47^.04^.51^.61^.33
;;^UTILITY(U,$J,112,1272,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1273,0)
;;=KINGFISH, RAW^1164-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1273,1)
;;=18.3^3^0^105^77.3^^^12^.6^^180^250^83^^^^^100^3^.06
;;^UTILITY(U,$J,112,1273,2)
;;=.17^1.7^^^^^0^^55^1
;;^UTILITY(U,$J,112,1273,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1274,0)
;;=KOHLRABI, RAW^11-241^cups^140^46^N
;;^UTILITY(U,$J,112,1274,1)
;;=1.7^.1^6.2^27^91^^^24^.4^19^46^350^20^.03^.129^.139^^36^62^.05
;;^UTILITY(U,$J,112,1274,2)
;;=.02^.4^.165^.15^16.1^0^.02^.026^0^.013^.007^.048^4^1^^^3.6
;;^UTILITY(U,$J,112,1274,3)
;;=.01^.049^.078^.067^.056^.013^.007^.039^^.05^.105^.019
;;^UTILITY(U,$J,112,1274,4)
;;=0^0^0^.011^0^.001^.007^0
;;^UTILITY(U,$J,112,1274,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1275,0)
;;=KOHLRABI, CKD WO/SALT^11-242^cups^165^100^N
;;^UTILITY(U,$J,112,1275,1)
;;=1.8^.11^6.69^29^90.3^^^25^.4^19^45^340^21^.31^.132^.142^^35^54^.04
;;^UTILITY(U,$J,112,1275,2)
;;=.02^.39^.16^.154^12.1^0^.022^.028^0^.014^.008^.053^4^1.1^^^1.1
;;^UTILITY(U,$J,112,1275,3)
;;=.011^.052^.083^.071^.059^.014^.007^.041^^.053^.111^.02
;;^UTILITY(U,$J,112,1275,4)
;;=0^0^.001^.012^0^.001^.008^0
;;^UTILITY(U,$J,112,1275,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1276,0)
;;=KOHLRABI, CKD W/SALT^11-793^cups^165^100^N
;;^UTILITY(U,$J,112,1276,1)
;;=1.8^.11^6.69^29^90.3^^^25^.4^19^45^340^257^.31^.132^.142^^35^54^.04
;;^UTILITY(U,$J,112,1276,2)
;;=.02^.39^.16^.154^12.1^0^.022^.028^0^.014^.008^.053^4^1.1
;;^UTILITY(U,$J,112,1276,3)
;;=.011^.052^.083^.071^.059^.014^.007^.041^^.053^.111^.02
;;^UTILITY(U,$J,112,1276,4)
;;=0^0^.001^.012^0^.001^.008^0
;;^UTILITY(U,$J,112,1276,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1277,0)
;;=TROUT, RAINBOW, RAW^15-115^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1277,1)
;;=20.48^3.46^0^119^71.87^^^67^.7^31^271^481^31^1.08^.109^.158^^62^2.4^.123
;;^UTILITY(U,$J,112,1277,2)
;;=.105^5.384^.928^.406^12^4.45^.239^.119^59^.722^1.129^1.237^19^1.31^^^0
;;^UTILITY(U,$J,112,1277,3)
;;=.229^.898^.944^1.664^1.881^.606^.22^.799^.691^1.055^1.225^.603^1.239^2.097^3.057^.983^.724^.836
;;^UTILITY(U,$J,112,1277,4)
;;=^.011^.079^.421^.203^.139^.614^.109
;;^UTILITY(U,$J,112,1277,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1278,0)
;;=LAMB, LEG, PRIME, TOT ED, ROASTED^1180-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1278,1)
;;=23.9^24^0^319^50.4^^^10^1.6^^195^267.7^58.6^^^^^0^0^.14
;;^UTILITY(U,$J,112,1278,2)
;;=.25^5.2^^^^^.72^^98^13.44
;;^UTILITY(U,$J,112,1278,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1279,0)
;;=LAMB, LEG, PRIME, TRIMMED, ROASTED^1182-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1279,1)
;;=28.6^7.7^0^192^61.6^^^12^2.2^^237^320.3^70.1^^^^^0^0^.16
;;^UTILITY(U,$J,112,1279,2)
;;=.3^6.1^^^^^.23^^100^4.31
;;^UTILITY(U,$J,112,1279,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1280,0)
;;=LAMB, LEG, CHOICE, TOT ED, ROASTED^17-012^oz.^28.3^78^N
;;^UTILITY(U,$J,112,1280,1)
;;=25.55^16.48^0^258^57.48^^^11^1.98^24^191^313^66^4.4^.115^.024^.15^0^0^.1
FHINI03X ; ; 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,1270,1)
+2 ;;=2.84^.49^5.24^30^90.5^^^138^.94^18^28^321^15^.18^.047^.45^^6354^25.2^.043
+3 ;;^UTILITY(U,$J,112,1270,2)
+4 ;;=.114^.672^.053^.086^14.3^0^.096^.125^0^.063^.036^.235^635^.94
+5 ;;^UTILITY(U,$J,112,1270,3)
+6 ;;=.035^.127^.17^.199^.17^.027^.038^.146^.101^.156^.158^.06^.143^.254^.323^.137^.169^.12
+7 ;;^UTILITY(U,$J,112,1270,4)
+8 ;;=0^.002^.002^.053^0^.002^.034^.001
+9 ;;^UTILITY(U,$J,112,1270,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,1271,0)
+12 ;;=KALE, FRZ, CKD W/SALT^11-791^cups^130^100^N
+13 ;;^UTILITY(U,$J,112,1271,1)
+14 ;;=2.84^.49^5.24^30^90.5^^^138^.94^18^28^321^251^.18^.047^.45^^6354^25.2^.043
+15 ;;^UTILITY(U,$J,112,1271,2)
+16 ;;=.114^.672^.053^.086^14.3^0^.096^.125^0^.063^.036^.235^635^.94
+17 ;;^UTILITY(U,$J,112,1271,3)
+18 ;;=.035^.127^.17^.199^.17^.027^.038^.146^.101^.156^.158^.06^.143^.254^.323^.137^.169^.12
+19 ;;^UTILITY(U,$J,112,1271,4)
+20 ;;=0^.002^.002^.053^0^.002^.034^.001
+21 ;;^UTILITY(U,$J,112,1271,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,1272,0)
+24 ;;=BEEF, KIDNEYS, SIMMERED^13-324^oz.^28.3^43^N
+25 ;;^UTILITY(U,$J,112,1272,1)
+26 ;;=25.48^3.44^.96^144^68.83^^^17^7.31^18^306^179^134^4.22^.68^.185^^1241^.8^.19
+27 ;;^UTILITY(U,$J,112,1272,2)
+28 ;;=4.06^6.02^1.69^.52^98^51.3^.4^.01^387^1.09^.74^.74^373^1.29^^^0
+29 ;;^UTILITY(U,$J,112,1272,3)
+30 ;;=.347^1.231^1.04^2.043^1.696^.53^.077^1.223^.958^1.59^1.496^.665^1.431^2.251^2.968^1.553^1.455^1.248
+31 ;;^UTILITY(U,$J,112,1272,4)
+32 ;;=.01^.01^.06^.47^.04^.51^.61^.33
+33 ;;^UTILITY(U,$J,112,1272,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,1273,0)
+36 ;;=KINGFISH, RAW^1164-0^oz.^28.3^^N
+37 ;;^UTILITY(U,$J,112,1273,1)
+38 ;;=18.3^3^0^105^77.3^^^12^.6^^180^250^83^^^^^100^3^.06
+39 ;;^UTILITY(U,$J,112,1273,2)
+40 ;;=.17^1.7^^^^^0^^55^1
+41 ;;^UTILITY(U,$J,112,1273,20)
+42 ;;=USDA Std. Reference, Release 8
+43 ;;^UTILITY(U,$J,112,1274,0)
+44 ;;=KOHLRABI, RAW^11-241^cups^140^46^N
+45 ;;^UTILITY(U,$J,112,1274,1)
+46 ;;=1.7^.1^6.2^27^91^^^24^.4^19^46^350^20^.03^.129^.139^^36^62^.05
+47 ;;^UTILITY(U,$J,112,1274,2)
+48 ;;=.02^.4^.165^.15^16.1^0^.02^.026^0^.013^.007^.048^4^1^^^3.6
+49 ;;^UTILITY(U,$J,112,1274,3)
+50 ;;=.01^.049^.078^.067^.056^.013^.007^.039^^.05^.105^.019
+51 ;;^UTILITY(U,$J,112,1274,4)
+52 ;;=0^0^0^.011^0^.001^.007^0
+53 ;;^UTILITY(U,$J,112,1274,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,1275,0)
+56 ;;=KOHLRABI, CKD WO/SALT^11-242^cups^165^100^N
+57 ;;^UTILITY(U,$J,112,1275,1)
+58 ;;=1.8^.11^6.69^29^90.3^^^25^.4^19^45^340^21^.31^.132^.142^^35^54^.04
+59 ;;^UTILITY(U,$J,112,1275,2)
+60 ;;=.02^.39^.16^.154^12.1^0^.022^.028^0^.014^.008^.053^4^1.1^^^1.1
+61 ;;^UTILITY(U,$J,112,1275,3)
+62 ;;=.011^.052^.083^.071^.059^.014^.007^.041^^.053^.111^.02
+63 ;;^UTILITY(U,$J,112,1275,4)
+64 ;;=0^0^.001^.012^0^.001^.008^0
+65 ;;^UTILITY(U,$J,112,1275,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,1276,0)
+68 ;;=KOHLRABI, CKD W/SALT^11-793^cups^165^100^N
+69 ;;^UTILITY(U,$J,112,1276,1)
+70 ;;=1.8^.11^6.69^29^90.3^^^25^.4^19^45^340^257^.31^.132^.142^^35^54^.04
+71 ;;^UTILITY(U,$J,112,1276,2)
+72 ;;=.02^.39^.16^.154^12.1^0^.022^.028^0^.014^.008^.053^4^1.1
+73 ;;^UTILITY(U,$J,112,1276,3)
+74 ;;=.011^.052^.083^.071^.059^.014^.007^.041^^.053^.111^.02
+75 ;;^UTILITY(U,$J,112,1276,4)
+76 ;;=0^0^.001^.012^0^.001^.008^0
+77 ;;^UTILITY(U,$J,112,1276,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,1277,0)
+80 ;;=TROUT, RAINBOW, RAW^15-115^oz.^28.3^100^N
+81 ;;^UTILITY(U,$J,112,1277,1)
+82 ;;=20.48^3.46^0^119^71.87^^^67^.7^31^271^481^31^1.08^.109^.158^^62^2.4^.123
+83 ;;^UTILITY(U,$J,112,1277,2)
+84 ;;=.105^5.384^.928^.406^12^4.45^.239^.119^59^.722^1.129^1.237^19^1.31^^^0
+85 ;;^UTILITY(U,$J,112,1277,3)
+86 ;;=.229^.898^.944^1.664^1.881^.606^.22^.799^.691^1.055^1.225^.603^1.239^2.097^3.057^.983^.724^.836
+87 ;;^UTILITY(U,$J,112,1277,4)
+88 ;;=^.011^.079^.421^.203^.139^.614^.109
+89 ;;^UTILITY(U,$J,112,1277,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,1278,0)
+92 ;;=LAMB, LEG, PRIME, TOT ED, ROASTED^1180-0^oz.^28.3^^N
+93 ;;^UTILITY(U,$J,112,1278,1)
+94 ;;=23.9^24^0^319^50.4^^^10^1.6^^195^267.7^58.6^^^^^0^0^.14
+95 ;;^UTILITY(U,$J,112,1278,2)
+96 ;;=.25^5.2^^^^^.72^^98^13.44
+97 ;;^UTILITY(U,$J,112,1278,20)
+98 ;;=USDA Std. Reference, Release 8
+99 ;;^UTILITY(U,$J,112,1279,0)
+100 ;;=LAMB, LEG, PRIME, TRIMMED, ROASTED^1182-0^oz.^28.3^^N
+101 ;;^UTILITY(U,$J,112,1279,1)
+102 ;;=28.6^7.7^0^192^61.6^^^12^2.2^^237^320.3^70.1^^^^^0^0^.16
+103 ;;^UTILITY(U,$J,112,1279,2)
+104 ;;=.3^6.1^^^^^.23^^100^4.31
+105 ;;^UTILITY(U,$J,112,1279,20)
+106 ;;=USDA Std. Reference, Release 8
+107 ;;^UTILITY(U,$J,112,1280,0)
+108 ;;=LAMB, LEG, CHOICE, TOT ED, ROASTED^17-012^oz.^28.3^78^N
+109 ;;^UTILITY(U,$J,112,1280,1)
+110 ;;=25.55^16.48^0^258^57.48^^^11^1.98^24^191^313^66^4.4^.115^.024^.15^0^0^.1
