FHINI029 ; ; 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,614,1)
;;=1.17^.46^2.94^21^94.16^^^13^.2^3^13^12^509^.079^.014^.032^^25^.1^.028
;;^UTILITY(U,$J,112,614,2)
;;=.023^.35^.002^.003^.6^0^.13^.01^1^.1^.2^.14^2^1.27^^^.3
;;^UTILITY(U,$J,112,614,4)
;;=^0^^.07^.01^.03^.18^0
;;^UTILITY(U,$J,112,614,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,615,0)
;;=SOUP, BEEF MUSHROOM, CND, PREP W/EQ VOL WATER^6-547^cups^244^100^N
;;^UTILITY(U,$J,112,615,1)
;;=2.37^1.23^2.6^30^92.6^^^2^.36^4^14^63^386^.6^.1^.2^^0^1.9^.016
;;^UTILITY(U,$J,112,615,2)
;;=.023^.391^.09^.02^4^.08^.04^.01^3^.61^.51^.05^0^1.2
;;^UTILITY(U,$J,112,615,4)
;;=^.01^.05^.31^.05^.23^.44
;;^UTILITY(U,$J,112,615,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,616,0)
;;=SOUP, CHICKEN MUSHROOM, CND, PREP W/EQ VOL WATER, COMMER^6-549^cups^244^100^N
;;^UTILITY(U,$J,112,616,1)
;;=1.8^3.75^3.8^54^90^^^12^.36^4^11^63^386^.4^.1^.1^^465^0^.01
;;^UTILITY(U,$J,112,616,2)
;;=.046^.668^.1^.02^.1^.02^.9^.04^4^.98^1.65^.95^46^.6
;;^UTILITY(U,$J,112,616,4)
;;=0^.01^.04^.64^.1^.26^1.51^0
;;^UTILITY(U,$J,112,616,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,617,0)
;;=SAUCE, HOLLANDAISE, W/BUTTERFAT, DEHYDRATED, PREP W/WATER^6-555^cups^259.2^100^N
;;^UTILITY(U,$J,112,617,1)
;;=1.82^7.62^5.31^92^83.81^^^48^.35^3^49^48^604^.3^.05^.02^^283^.1^.02
;;^UTILITY(U,$J,112,617,2)
;;=.07^.022^.3^.2^8^.3^.25^.1^20^4.48^2.29^.36^85^1.45^^^.3
;;^UTILITY(U,$J,112,617,4)
;;=.17^.19^.69^1.97^.18^.89^2.01^.01
;;^UTILITY(U,$J,112,617,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,618,0)
;;=SOUP, TOMATO BISQUE, CND, PREP W/EQ VOL WATER^6-558^cups^247^100^N
;;^UTILITY(U,$J,112,618,1)
;;=.92^1.02^9.6^50^87.17^^^16^.33^4^24^169^424^.238^.052^.104^^292^2.4^.027
;;^UTILITY(U,$J,112,618,2)
;;=.029^.465^.05^.036^6^0^.39^.06^2^.22^.28^.45^29^1.29
;;^UTILITY(U,$J,112,618,3)
;;=.009^.027^.031^.051^.036^.012^.01^.031^.024^.035^.027^.018^.026^.08^.315^.021^.056^.036
;;^UTILITY(U,$J,112,618,4)
;;=^^.01^.12^.01^.04^.27
;;^UTILITY(U,$J,112,618,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,619,0)
;;=SOUP, TOMATO, CND, PREP W/EQ VOL WATER^6-559^cups^244^100^N
;;^UTILITY(U,$J,112,619,1)
;;=.84^.79^6.8^35^90.36^^^5^.72^3^14^108^357^.1^.103^.103^^282^27.2^.036
;;^UTILITY(U,$J,112,619,2)
;;=.021^.581^.06^.046^6^0^.32^.07^0^.15^.18^.39^28^1.21^^^.2
;;^UTILITY(U,$J,112,619,3)
;;=.008^.021^.024^.041^.021^.009^.011^.029^.017^.027^.025^.015^.023^.066^.317^.022^.055^.032
;;^UTILITY(U,$J,112,619,4)
;;=0^0^.01^.08^0^.03^.17
;;^UTILITY(U,$J,112,619,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,620,0)
;;=SAUCE, STROGANOFF, DEHYDRATED, PREP W/MILK & WATER^6-709^cups^296^100^N
;;^UTILITY(U,$J,112,620,1)
;;=3.95^3.61^11.45^92^78.17^^^176^.45^13^102^227^618^.372^.029^.07^^142^.5^.29
;;^UTILITY(U,$J,112,620,2)
;;=.26^.256^.3^.04^3^.2^.08^.05^13^2.29^1.02^.12^43^2.82
;;^UTILITY(U,$J,112,620,4)
;;=.08^.08^.39^1.03^.09^.42^.88
;;^UTILITY(U,$J,112,620,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,621,0)
;;=SAUCE, BEARNAISE, DEHYDRATED, PREP W/MILK & BUTTER^6-902^cups^254.8^100^N
;;^UTILITY(U,$J,112,621,1)
;;=3.27^26.78^6.87^275^61.25^^^90^.1^10^73^117^496^.3^.1^.02^^988^.7^.03
;;^UTILITY(U,$J,112,621,2)
;;=.1^.1^.2^.03^4^.2^.8^.4^74^16.4^7.82^1.19^297^1.83
;;^UTILITY(U,$J,112,621,4)
;;=.66^.74^2.64^6.95^.59^3.2^6.84
;;^UTILITY(U,$J,112,621,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,622,0)
;;=SAUCE, HOLLANDAISE, DEHYDRATED, PREP W/MILK & BUTTER^6-954^cups^254.8^100^N
;;^UTILITY(U,$J,112,622,1)
;;=3.25^26.8^7.05^276^61.21^^^94^.09^10^76^121^445^.3^.1^.02^^909^.6^.03
;;^UTILITY(U,$J,112,622,2)
;;=.13^.09^.2^.03^4^.2^.76^.39^74^16.43^7.83^1.15^273^1.7
;;^UTILITY(U,$J,112,622,4)
;;=^^2.64^6.97^.59^3.22^6.85
;;^UTILITY(U,$J,112,622,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,623,0)
;;=LUNCHEON MEAT, BARBEQUE LOAF^7-001^slices^23^100^N
;;^UTILITY(U,$J,112,623,1)
;;=15.84^8.9^6.4^173^64.82^^^55^1.16^17^132^329^1334^2.46^.07^.04^^68^19^.36
;;^UTILITY(U,$J,112,623,2)
;;=.248^2.266^1.57^.26^9^1.68^.72^.09^37^3.17^4.14^.81^7^4.04^^^0
;;^UTILITY(U,$J,112,623,3)
;;=.171^.684^.732^1.283^1.319^.395^.196^.64^.539^.795^.972^.517^.886^1.399^2.522^.837^.914^.677
;;^UTILITY(U,$J,112,623,4)
;;=.04^.02^.14^1.89^.35^1.09^3.8^0
;;^UTILITY(U,$J,112,623,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,624,0)
;;=SAUSAGE, BEERWURST(BEER SALAMI), BEEF^7-002^slices^6^100^N
;;^UTILITY(U,$J,112,624,1)
;;=12.4^29.9^1.7^329^52.9^^^9^1.51^12^97^174^1028^2.44^.04^.028^^0^16^.07
FHINI029 ; ; 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,614,1)
+2 ;;=1.17^.46^2.94^21^94.16^^^13^.2^3^13^12^509^.079^.014^.032^^25^.1^.028
+3 ;;^UTILITY(U,$J,112,614,2)
+4 ;;=.023^.35^.002^.003^.6^0^.13^.01^1^.1^.2^.14^2^1.27^^^.3
+5 ;;^UTILITY(U,$J,112,614,4)
+6 ;;=^0^^.07^.01^.03^.18^0
+7 ;;^UTILITY(U,$J,112,614,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,615,0)
+10 ;;=SOUP, BEEF MUSHROOM, CND, PREP W/EQ VOL WATER^6-547^cups^244^100^N
+11 ;;^UTILITY(U,$J,112,615,1)
+12 ;;=2.37^1.23^2.6^30^92.6^^^2^.36^4^14^63^386^.6^.1^.2^^0^1.9^.016
+13 ;;^UTILITY(U,$J,112,615,2)
+14 ;;=.023^.391^.09^.02^4^.08^.04^.01^3^.61^.51^.05^0^1.2
+15 ;;^UTILITY(U,$J,112,615,4)
+16 ;;=^.01^.05^.31^.05^.23^.44
+17 ;;^UTILITY(U,$J,112,615,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,616,0)
+20 ;;=SOUP, CHICKEN MUSHROOM, CND, PREP W/EQ VOL WATER, COMMER^6-549^cups^244^100^N
+21 ;;^UTILITY(U,$J,112,616,1)
+22 ;;=1.8^3.75^3.8^54^90^^^12^.36^4^11^63^386^.4^.1^.1^^465^0^.01
+23 ;;^UTILITY(U,$J,112,616,2)
+24 ;;=.046^.668^.1^.02^.1^.02^.9^.04^4^.98^1.65^.95^46^.6
+25 ;;^UTILITY(U,$J,112,616,4)
+26 ;;=0^.01^.04^.64^.1^.26^1.51^0
+27 ;;^UTILITY(U,$J,112,616,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,617,0)
+30 ;;=SAUCE, HOLLANDAISE, W/BUTTERFAT, DEHYDRATED, PREP W/WATER^6-555^cups^259.2^100^N
+31 ;;^UTILITY(U,$J,112,617,1)
+32 ;;=1.82^7.62^5.31^92^83.81^^^48^.35^3^49^48^604^.3^.05^.02^^283^.1^.02
+33 ;;^UTILITY(U,$J,112,617,2)
+34 ;;=.07^.022^.3^.2^8^.3^.25^.1^20^4.48^2.29^.36^85^1.45^^^.3
+35 ;;^UTILITY(U,$J,112,617,4)
+36 ;;=.17^.19^.69^1.97^.18^.89^2.01^.01
+37 ;;^UTILITY(U,$J,112,617,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,618,0)
+40 ;;=SOUP, TOMATO BISQUE, CND, PREP W/EQ VOL WATER^6-558^cups^247^100^N
+41 ;;^UTILITY(U,$J,112,618,1)
+42 ;;=.92^1.02^9.6^50^87.17^^^16^.33^4^24^169^424^.238^.052^.104^^292^2.4^.027
+43 ;;^UTILITY(U,$J,112,618,2)
+44 ;;=.029^.465^.05^.036^6^0^.39^.06^2^.22^.28^.45^29^1.29
+45 ;;^UTILITY(U,$J,112,618,3)
+46 ;;=.009^.027^.031^.051^.036^.012^.01^.031^.024^.035^.027^.018^.026^.08^.315^.021^.056^.036
+47 ;;^UTILITY(U,$J,112,618,4)
+48 ;;=^^.01^.12^.01^.04^.27
+49 ;;^UTILITY(U,$J,112,618,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,619,0)
+52 ;;=SOUP, TOMATO, CND, PREP W/EQ VOL WATER^6-559^cups^244^100^N
+53 ;;^UTILITY(U,$J,112,619,1)
+54 ;;=.84^.79^6.8^35^90.36^^^5^.72^3^14^108^357^.1^.103^.103^^282^27.2^.036
+55 ;;^UTILITY(U,$J,112,619,2)
+56 ;;=.021^.581^.06^.046^6^0^.32^.07^0^.15^.18^.39^28^1.21^^^.2
+57 ;;^UTILITY(U,$J,112,619,3)
+58 ;;=.008^.021^.024^.041^.021^.009^.011^.029^.017^.027^.025^.015^.023^.066^.317^.022^.055^.032
+59 ;;^UTILITY(U,$J,112,619,4)
+60 ;;=0^0^.01^.08^0^.03^.17
+61 ;;^UTILITY(U,$J,112,619,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,620,0)
+64 ;;=SAUCE, STROGANOFF, DEHYDRATED, PREP W/MILK & WATER^6-709^cups^296^100^N
+65 ;;^UTILITY(U,$J,112,620,1)
+66 ;;=3.95^3.61^11.45^92^78.17^^^176^.45^13^102^227^618^.372^.029^.07^^142^.5^.29
+67 ;;^UTILITY(U,$J,112,620,2)
+68 ;;=.26^.256^.3^.04^3^.2^.08^.05^13^2.29^1.02^.12^43^2.82
+69 ;;^UTILITY(U,$J,112,620,4)
+70 ;;=.08^.08^.39^1.03^.09^.42^.88
+71 ;;^UTILITY(U,$J,112,620,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,621,0)
+74 ;;=SAUCE, BEARNAISE, DEHYDRATED, PREP W/MILK & BUTTER^6-902^cups^254.8^100^N
+75 ;;^UTILITY(U,$J,112,621,1)
+76 ;;=3.27^26.78^6.87^275^61.25^^^90^.1^10^73^117^496^.3^.1^.02^^988^.7^.03
+77 ;;^UTILITY(U,$J,112,621,2)
+78 ;;=.1^.1^.2^.03^4^.2^.8^.4^74^16.4^7.82^1.19^297^1.83
+79 ;;^UTILITY(U,$J,112,621,4)
+80 ;;=.66^.74^2.64^6.95^.59^3.2^6.84
+81 ;;^UTILITY(U,$J,112,621,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,622,0)
+84 ;;=SAUCE, HOLLANDAISE, DEHYDRATED, PREP W/MILK & BUTTER^6-954^cups^254.8^100^N
+85 ;;^UTILITY(U,$J,112,622,1)
+86 ;;=3.25^26.8^7.05^276^61.21^^^94^.09^10^76^121^445^.3^.1^.02^^909^.6^.03
+87 ;;^UTILITY(U,$J,112,622,2)
+88 ;;=.13^.09^.2^.03^4^.2^.76^.39^74^16.43^7.83^1.15^273^1.7
+89 ;;^UTILITY(U,$J,112,622,4)
+90 ;;=^^2.64^6.97^.59^3.22^6.85
+91 ;;^UTILITY(U,$J,112,622,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,623,0)
+94 ;;=LUNCHEON MEAT, BARBEQUE LOAF^7-001^slices^23^100^N
+95 ;;^UTILITY(U,$J,112,623,1)
+96 ;;=15.84^8.9^6.4^173^64.82^^^55^1.16^17^132^329^1334^2.46^.07^.04^^68^19^.36
+97 ;;^UTILITY(U,$J,112,623,2)
+98 ;;=.248^2.266^1.57^.26^9^1.68^.72^.09^37^3.17^4.14^.81^7^4.04^^^0
+99 ;;^UTILITY(U,$J,112,623,3)
+100 ;;=.171^.684^.732^1.283^1.319^.395^.196^.64^.539^.795^.972^.517^.886^1.399^2.522^.837^.914^.677
+101 ;;^UTILITY(U,$J,112,623,4)
+102 ;;=.04^.02^.14^1.89^.35^1.09^3.8^0
+103 ;;^UTILITY(U,$J,112,623,20)
+104 ;;=USDA Std. Reference, Release 10
+105 ;;^UTILITY(U,$J,112,624,0)
+106 ;;=SAUSAGE, BEERWURST(BEER SALAMI), BEEF^7-002^slices^6^100^N
+107 ;;^UTILITY(U,$J,112,624,1)
+108 ;;=12.4^29.9^1.7^329^52.9^^^9^1.51^12^97^174^1028^2.44^.04^.028^^0^16^.07
