FHINI00M ; ; 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,66,1)
;;=1^9.97^11.38^135.645^77.27^^^9.3^.03^.33^64.2^190.5^79.2^.02^0^0^^89^0^0
;;^UTILITY(U,$J,112,66,2)
;;=0^0^0^0^0^0^.022^0^0^1.937^7.551^.027^9^.38^^^0
;;^UTILITY(U,$J,112,66,3)
;;=.015^.043^.056^.085^.068^.015^.018^.055^.037^.056^.08^.028^.047^.125^.201^.047^.06^.057
;;^UTILITY(U,$J,112,66,4)
;;=.013^.062^.019^.884^0^.976^7.559^0
;;^UTILITY(U,$J,112,66,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,67,0)
;;=CREAM SUBSTITUTE, NONDAIRY, POWDERED^1-069^tsp.^2^100^N
;;^UTILITY(U,$J,112,67,1)
;;=4.79^35.48^54.88^546.482^2.21^^^22.3^1.15^4.06^422^811.8^181.1^.51^.115^.22^^203^0^0
;;^UTILITY(U,$J,112,67,2)
;;=.165^0^0^0^0^0^.003^.01^0^32.525^.968^.014^20^2.64^^^0
;;^UTILITY(U,$J,112,67,3)
;;=.066^.203^.294^.473^.385^.145^.021^.257^.274^.343^.19^.142^.15^.339^1.088^.096^.54^.295
;;^UTILITY(U,$J,112,67,4)
;;=1.457^13.579^5.987^3.753^0^6.339^.969^0^^.6
;;^UTILITY(U,$J,112,67,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,68,0)
;;=TOPPING, NONDAIRY, POWDERED^1-070^tbsp.^1.3^100^N
;;^UTILITY(U,$J,112,68,1)
;;=4.9^39.92^52.54^577.145^1.47^^^16.6^.03^7.04^73.5^166^121.5^.08^.118^.225^^1077^0^0
;;^UTILITY(U,$J,112,68,2)
;;=0^0^0^0^0^0^.447^0^0^36.652^.6^.447^108^1.17^^^0
;;^UTILITY(U,$J,112,68,3)
;;=.068^.207^.301^.484^.394^.149^.021^.263^.28^.351^.194^.145^.153^.347^1.113^.098^.552^.301
;;^UTILITY(U,$J,112,68,4)
;;=.964^14.507^5.746^5.429^0^9.408^.6^0
;;^UTILITY(U,$J,112,68,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,69,0)
;;=TOPPING, NONDAIRY, POWDERED, 1.5 OZ PPD W/1/2 C MILK^1-071^tbsp.^4^100^N
;;^UTILITY(U,$J,112,69,1)
;;=3.6^12.41^16.53^189.047^66.65^^^90.1^.04^9.68^85.7^150.7^65.7^.27^.012^.005^^361^.68^.027
;;^UTILITY(U,$J,112,69,2)
;;=.117^.06^.226^.03^3.6^.257^.166^.034^9.8^10.684^.843^.201^49^.81^^^0
;;^UTILITY(U,$J,112,69,3)
;;=.05^.159^.219^.354^.287^.097^.028^.18^.185^.247^.134^.101^.12^.267^.776^.075^.369^.205
;;^UTILITY(U,$J,112,69,4)
;;=.302^3.704^1.682^1.993^.053^2.65^.754^0
;;^UTILITY(U,$J,112,69,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,70,0)
;;=TOPPING, NONDAIRY, PRESSURIZED^1-072^tbsp.^4^100^N
;;^UTILITY(U,$J,112,70,1)
;;=.98^22.3^16.07^263.507^60.37^^^5.3^.02^1^18.3^19.1^61.5^.01^.024^.045^^473^0^0
;;^UTILITY(U,$J,112,70,2)
;;=0^0^0^0^0^0^.241^0^0^18.912^1.927^.241^47^.28^^^0
;;^UTILITY(U,$J,112,70,3)
;;=.014^.041^.06^.097^.079^.03^.004^.053^.056^.07^.039^.029^.031^.069^.223^.02^.11^.06
;;^UTILITY(U,$J,112,70,4)
;;=.642^8.014^3.246^2.408^0^4.166^1.929^0
;;^UTILITY(U,$J,112,70,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,71,0)
;;=TOPPING, NONDAIRY, SEMISOLID, FRZ^1-073^tbsp.^4^100^N
;;^UTILITY(U,$J,112,71,1)
;;=1.25^25.31^23.05^318.281^50.21^^^6.3^.12^1.79^7.7^18.2^25.3^.03^.03^.058^^861^0^0
;;^UTILITY(U,$J,112,71,2)
;;=0^0^0^0^0^0^.305^.218^0^21.783^1.616^.523^86^.18^^^0
;;^UTILITY(U,$J,112,71,3)
;;=.017^.053^.077^.123^.101^.038^.005^.067^.072^.089^.049^.037^.039^.088^.284^.025^.141^.077
;;^UTILITY(U,$J,112,71,4)
;;=.905^8.836^3.756^3.092^.241^4.58^1.375^0
;;^UTILITY(U,$J,112,71,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,72,0)
;;=SOUR CREAM, IMITATION, NONDAIRY, CULTURED^1-074^oz.^28.3^100^N
;;^UTILITY(U,$J,112,72,1)
;;=2.4^19.52^6.63^208.463^71.15^^^2.5^.39^6.38^44.5^160.5^102^1.18^.058^.11^^0^0^0
;;^UTILITY(U,$J,112,72,2)
;;=0^0^0^0^0^0^.056^0^0^17.791^.588^.056^0^.3^^^0
;;^UTILITY(U,$J,112,72,3)
;;=.033^.101^.147^.237^.193^.073^.01^.129^.137^.172^.095^.071^.075^.17^.545^.048^.271^.148
;;^UTILITY(U,$J,112,72,4)
;;=1.006^8.138^3.364^1.981^0^2.244^.589^0
;;^UTILITY(U,$J,112,72,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,73,0)
;;=MILK SUBSTITUTES, FLUID W/HYDR VEGETABLE OILS^1-075^cups^244^100^N
;;^UTILITY(U,$J,112,73,1)
;;=1.75^3.41^6.16^61.456^88.18^^^32.5^.39^6.38^74.2^114.3^78.3^1.18^.051^.097^^0^0^.012
;;^UTILITY(U,$J,112,73,2)
;;=.088^0^0^0^0^0^.364^.039^.2^.767^1.998^.488^0^.5^^^0
;;^UTILITY(U,$J,112,73,3)
;;=.024^.074^.107^.173^.141^.053^.008^.094^.1^.125^.069^.052^.055^.124^.398^.035^.197^.108
;;^UTILITY(U,$J,112,73,4)
;;=.004^.019^.026^.412^.021^.311^1.979^0
;;^UTILITY(U,$J,112,73,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,74,0)
;;=MILK, WHOLE, PAST & RAW, FLUID, 3.3% FAT^1-077^cups^244^100^N
;;^UTILITY(U,$J,112,74,1)
;;=3.29^3.34^4.66^61.441^87.99^^^119.4^.05^13.44^93.4^151.5^49^.38^.01^.004^^126^.94^.038
;;^UTILITY(U,$J,112,74,2)
;;=.162^.084^.314^.042^5^.357^.075^.049^13.6^2.079^.965^.124^31^.72^^^0
FHINI00M ; ; 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,66,1)
+2 ;;=1^9.97^11.38^135.645^77.27^^^9.3^.03^.33^64.2^190.5^79.2^.02^0^0^^89^0^0
+3 ;;^UTILITY(U,$J,112,66,2)
+4 ;;=0^0^0^0^0^0^.022^0^0^1.937^7.551^.027^9^.38^^^0
+5 ;;^UTILITY(U,$J,112,66,3)
+6 ;;=.015^.043^.056^.085^.068^.015^.018^.055^.037^.056^.08^.028^.047^.125^.201^.047^.06^.057
+7 ;;^UTILITY(U,$J,112,66,4)
+8 ;;=.013^.062^.019^.884^0^.976^7.559^0
+9 ;;^UTILITY(U,$J,112,66,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,67,0)
+12 ;;=CREAM SUBSTITUTE, NONDAIRY, POWDERED^1-069^tsp.^2^100^N
+13 ;;^UTILITY(U,$J,112,67,1)
+14 ;;=4.79^35.48^54.88^546.482^2.21^^^22.3^1.15^4.06^422^811.8^181.1^.51^.115^.22^^203^0^0
+15 ;;^UTILITY(U,$J,112,67,2)
+16 ;;=.165^0^0^0^0^0^.003^.01^0^32.525^.968^.014^20^2.64^^^0
+17 ;;^UTILITY(U,$J,112,67,3)
+18 ;;=.066^.203^.294^.473^.385^.145^.021^.257^.274^.343^.19^.142^.15^.339^1.088^.096^.54^.295
+19 ;;^UTILITY(U,$J,112,67,4)
+20 ;;=1.457^13.579^5.987^3.753^0^6.339^.969^0^^.6
+21 ;;^UTILITY(U,$J,112,67,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,68,0)
+24 ;;=TOPPING, NONDAIRY, POWDERED^1-070^tbsp.^1.3^100^N
+25 ;;^UTILITY(U,$J,112,68,1)
+26 ;;=4.9^39.92^52.54^577.145^1.47^^^16.6^.03^7.04^73.5^166^121.5^.08^.118^.225^^1077^0^0
+27 ;;^UTILITY(U,$J,112,68,2)
+28 ;;=0^0^0^0^0^0^.447^0^0^36.652^.6^.447^108^1.17^^^0
+29 ;;^UTILITY(U,$J,112,68,3)
+30 ;;=.068^.207^.301^.484^.394^.149^.021^.263^.28^.351^.194^.145^.153^.347^1.113^.098^.552^.301
+31 ;;^UTILITY(U,$J,112,68,4)
+32 ;;=.964^14.507^5.746^5.429^0^9.408^.6^0
+33 ;;^UTILITY(U,$J,112,68,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,69,0)
+36 ;;=TOPPING, NONDAIRY, POWDERED, 1.5 OZ PPD W/1/2 C MILK^1-071^tbsp.^4^100^N
+37 ;;^UTILITY(U,$J,112,69,1)
+38 ;;=3.6^12.41^16.53^189.047^66.65^^^90.1^.04^9.68^85.7^150.7^65.7^.27^.012^.005^^361^.68^.027
+39 ;;^UTILITY(U,$J,112,69,2)
+40 ;;=.117^.06^.226^.03^3.6^.257^.166^.034^9.8^10.684^.843^.201^49^.81^^^0
+41 ;;^UTILITY(U,$J,112,69,3)
+42 ;;=.05^.159^.219^.354^.287^.097^.028^.18^.185^.247^.134^.101^.12^.267^.776^.075^.369^.205
+43 ;;^UTILITY(U,$J,112,69,4)
+44 ;;=.302^3.704^1.682^1.993^.053^2.65^.754^0
+45 ;;^UTILITY(U,$J,112,69,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,70,0)
+48 ;;=TOPPING, NONDAIRY, PRESSURIZED^1-072^tbsp.^4^100^N
+49 ;;^UTILITY(U,$J,112,70,1)
+50 ;;=.98^22.3^16.07^263.507^60.37^^^5.3^.02^1^18.3^19.1^61.5^.01^.024^.045^^473^0^0
+51 ;;^UTILITY(U,$J,112,70,2)
+52 ;;=0^0^0^0^0^0^.241^0^0^18.912^1.927^.241^47^.28^^^0
+53 ;;^UTILITY(U,$J,112,70,3)
+54 ;;=.014^.041^.06^.097^.079^.03^.004^.053^.056^.07^.039^.029^.031^.069^.223^.02^.11^.06
+55 ;;^UTILITY(U,$J,112,70,4)
+56 ;;=.642^8.014^3.246^2.408^0^4.166^1.929^0
+57 ;;^UTILITY(U,$J,112,70,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,71,0)
+60 ;;=TOPPING, NONDAIRY, SEMISOLID, FRZ^1-073^tbsp.^4^100^N
+61 ;;^UTILITY(U,$J,112,71,1)
+62 ;;=1.25^25.31^23.05^318.281^50.21^^^6.3^.12^1.79^7.7^18.2^25.3^.03^.03^.058^^861^0^0
+63 ;;^UTILITY(U,$J,112,71,2)
+64 ;;=0^0^0^0^0^0^.305^.218^0^21.783^1.616^.523^86^.18^^^0
+65 ;;^UTILITY(U,$J,112,71,3)
+66 ;;=.017^.053^.077^.123^.101^.038^.005^.067^.072^.089^.049^.037^.039^.088^.284^.025^.141^.077
+67 ;;^UTILITY(U,$J,112,71,4)
+68 ;;=.905^8.836^3.756^3.092^.241^4.58^1.375^0
+69 ;;^UTILITY(U,$J,112,71,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,72,0)
+72 ;;=SOUR CREAM, IMITATION, NONDAIRY, CULTURED^1-074^oz.^28.3^100^N
+73 ;;^UTILITY(U,$J,112,72,1)
+74 ;;=2.4^19.52^6.63^208.463^71.15^^^2.5^.39^6.38^44.5^160.5^102^1.18^.058^.11^^0^0^0
+75 ;;^UTILITY(U,$J,112,72,2)
+76 ;;=0^0^0^0^0^0^.056^0^0^17.791^.588^.056^0^.3^^^0
+77 ;;^UTILITY(U,$J,112,72,3)
+78 ;;=.033^.101^.147^.237^.193^.073^.01^.129^.137^.172^.095^.071^.075^.17^.545^.048^.271^.148
+79 ;;^UTILITY(U,$J,112,72,4)
+80 ;;=1.006^8.138^3.364^1.981^0^2.244^.589^0
+81 ;;^UTILITY(U,$J,112,72,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,73,0)
+84 ;;=MILK SUBSTITUTES, FLUID W/HYDR VEGETABLE OILS^1-075^cups^244^100^N
+85 ;;^UTILITY(U,$J,112,73,1)
+86 ;;=1.75^3.41^6.16^61.456^88.18^^^32.5^.39^6.38^74.2^114.3^78.3^1.18^.051^.097^^0^0^.012
+87 ;;^UTILITY(U,$J,112,73,2)
+88 ;;=.088^0^0^0^0^0^.364^.039^.2^.767^1.998^.488^0^.5^^^0
+89 ;;^UTILITY(U,$J,112,73,3)
+90 ;;=.024^.074^.107^.173^.141^.053^.008^.094^.1^.125^.069^.052^.055^.124^.398^.035^.197^.108
+91 ;;^UTILITY(U,$J,112,73,4)
+92 ;;=.004^.019^.026^.412^.021^.311^1.979^0
+93 ;;^UTILITY(U,$J,112,73,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,74,0)
+96 ;;=MILK, WHOLE, PAST & RAW, FLUID, 3.3% FAT^1-077^cups^244^100^N
+97 ;;^UTILITY(U,$J,112,74,1)
+98 ;;=3.29^3.34^4.66^61.441^87.99^^^119.4^.05^13.44^93.4^151.5^49^.38^.01^.004^^126^.94^.038
+99 ;;^UTILITY(U,$J,112,74,2)
+100 ;;=.162^.084^.314^.042^5^.357^.075^.049^13.6^2.079^.965^.124^31^.72^^^0