FHINI01Y ; ; 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,502,2)
;;=.069^1.371^.14^.04^5^.1^.39^.02^7^.6^.9^.42^250^1.54
;;^UTILITY(U,$J,112,502,4)
;;=^0^.02^.44^.12^.12^.75^0
;;^UTILITY(U,$J,112,502,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,503,0)
;;=SOUP, CLAM CHOWDER, MANHATTAN STYLE, CND, CHUNKY, R-T-S^6-027^cups^240^100^N
;;^UTILITY(U,$J,112,503,1)
;;=3.02^1.41^7.84^56^86.04^^^28^1.1^8^35^160^417^.7^.1^.1^^1372^5.1^.024
;;^UTILITY(U,$J,112,503,2)
;;=.026^.77^.1^.11^3.9^3.3^.03^.02^6^.88^.41^.05^137^1.69^^^1.2
;;^UTILITY(U,$J,112,503,4)
;;=.04^.04^.14^.37^.03^.17^.35
;;^UTILITY(U,$J,112,503,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,504,0)
;;=SOUP, CRAB, CND, READY-TO-SERVE^6-034^cups^244^100^N
;;^UTILITY(U,$J,112,504,1)
;;=2.25^.62^4.22^31^91.5^^^27^.5^6^36^134^506^.6^.2^.2^^207^0^.08
;;^UTILITY(U,$J,112,504,2)
;;=.03^.55^.12^.05^6^.08^.15^.01^4^.16^.28^.16^21^1.41^^^.3
;;^UTILITY(U,$J,112,504,4)
;;=^^0^.09^^.07^.28
;;^UTILITY(U,$J,112,504,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,505,0)
;;=SOUP, ESCAROLE, CND, READY-TO-SERVE^6-035^cups^248^100^N
;;^UTILITY(U,$J,112,505,1)
;;=.62^.73^.72^11^96.89^^^13^.3^2^32^107^1558^.9^.15^.5^^875^1.8^.03
;;^UTILITY(U,$J,112,505,2)
;;=.02^.93^.07^.09^14^.2^.14^.01^1^.22^.33^.15^88^1.04
;;^UTILITY(U,$J,112,505,4)
;;=^0^.01^.16^.04^.04^.27^0
;;^UTILITY(U,$J,112,505,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,506,0)
;;=SOUP, GAZPACHO, CND, READY-TO-SERVE^6-036^cups^244^100^N
;;^UTILITY(U,$J,112,506,1)
;;=3.56^.92^.32^23^93.77^^^10^.4^3^15^92^485^.1^.06^.3^^82^1.3^.02
;;^UTILITY(U,$J,112,506,2)
;;=.01^.38^.07^.06^4^0^.53^.01^0^.12^.22^.54^8^1.43^^^1.5
;;^UTILITY(U,$J,112,506,4)
;;=^^^.1^^.02^.22
;;^UTILITY(U,$J,112,506,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,507,0)
;;=SOUP, LENTIL W/HAM, CND, READY-TO-SERVE^6-037^cups^248^100^N
;;^UTILITY(U,$J,112,507,1)
;;=3.74^1.12^8.16^56^85.75^^^17^1.07^9^74^144^532^.3^.07^.12^^145^1.7^.07
;;^UTILITY(U,$J,112,507,2)
;;=.045^.545^.14^.09^20^.12^.12^.01^3^.45^.52^.13^14^1.24
;;^UTILITY(U,$J,112,507,4)
;;=0^0^.02^.27^.03^.16^.47
;;^UTILITY(U,$J,112,507,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,508,0)
;;=SOUP, MINISTRONE, CND, CHUNKY, READY-TO-SERVE^6-039^cups^240^100^N
;;^UTILITY(U,$J,112,508,1)
;;=2.13^1.17^8.64^53^86.72^^^25^.74^6^46^255^360^.6^.1^.3^^1813^2^.023
;;^UTILITY(U,$J,112,508,2)
;;=.049^.491^.3^.1^13^0^.09^.02^2^.62^.38^.11^181^1.35^^^.8
;;^UTILITY(U,$J,112,508,4)
;;=.02^.03^.09^.27^.02^.14^.35
;;^UTILITY(U,$J,112,508,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,509,0)
;;=SOUP, TURKEY, CHUNKY, READY-TO-SERVE^6-064^cups^236^100^N
;;^UTILITY(U,$J,112,509,1)
;;=4.33^1.87^5.96^57^86.37^^^21^.81^10^44^153^391^.9^.1^.1^^3032^2.7^.015
;;^UTILITY(U,$J,112,509,2)
;;=.045^1.52^.39^.13^4.7^.9^.44^.02^4^.52^.75^.46^303^1.47
;;^UTILITY(U,$J,112,509,3)
;;=.042^.171^.218^.331^.343^.091^.045^.177^.13^.234^.225^.101^.267^.424^.775^.252^.198^.151
;;^UTILITY(U,$J,112,509,4)
;;=^^.02^.39^.11^.09^.65
;;^UTILITY(U,$J,112,509,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,510,0)
;;=SOUP, VEGETABLE, CND, CHUNKY, READY-TO-SERVE^6-067^cups^240^100^N
;;^UTILITY(U,$J,112,510,1)
;;=1.46^1.54^7.92^51^87.58^^^23^.68^3^30^165^421^1.3^.1^.2^^2449^2.5^.03
;;^UTILITY(U,$J,112,510,2)
;;=.027^.5^.14^.08^6.9^0^.54^.04^0^.23^.66^.58^245^1.5^^^.5
;;^UTILITY(U,$J,112,510,3)
;;=.011^.045^.067^.113^.079^.011^.011^.067^.034^.079^.079^.034^.079^.191^.309^.056^.056^.056
;;^UTILITY(U,$J,112,510,4)
;;=^^0^.15^.01^.08^.66
;;^UTILITY(U,$J,112,510,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,511,0)
;;=SOUP, BEEF, CND, CHUNKY, READY-TO-SERVE^6-070^cups^240^100^N
;;^UTILITY(U,$J,112,511,1)
;;=4.89^2.14^8.15^71^83.34^^^13^.97^2^50^140^361^1.1^.1^.1^^1088^2.9^.024
;;^UTILITY(U,$J,112,511,2)
;;=.063^1.127^.18^.055^5.6^.26^.07^.01^6^1.06^.89^.09^109^1.49^^^.6
;;^UTILITY(U,$J,112,511,3)
;;=.047^.194^.247^.374^.387^.103^.051^.201^.147^.265^.254^.115^.302^.479^.875^.285^.224^.17
;;^UTILITY(U,$J,112,511,4)
;;=^.02^.08^.53^.09^.4^.77
;;^UTILITY(U,$J,112,511,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,512,0)
;;=SOUP, BEEF BROTH OR BOUILLON, POWDER, DRY^6-075^cups^3.0^100^N
;;^UTILITY(U,$J,112,512,1)
;;=15.97^8.89^23.65^238^3.27^^^60^1^51^320^446^16982^0^0^.459^^50^0^.07
;;^UTILITY(U,$J,112,512,2)
;;=.243^4.467^.3^.2^32^1^.281^.05^10^4.32^3.616^.332^5^48.22^^^0
;;^UTILITY(U,$J,112,512,4)
;;=^.08^.332^2.22^.372^1.688^3.215
FHINI01Y ; ; 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,502,2)
+2 ;;=.069^1.371^.14^.04^5^.1^.39^.02^7^.6^.9^.42^250^1.54
+3 ;;^UTILITY(U,$J,112,502,4)
+4 ;;=^0^.02^.44^.12^.12^.75^0
+5 ;;^UTILITY(U,$J,112,502,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,503,0)
+8 ;;=SOUP, CLAM CHOWDER, MANHATTAN STYLE, CND, CHUNKY, R-T-S^6-027^cups^240^100^N
+9 ;;^UTILITY(U,$J,112,503,1)
+10 ;;=3.02^1.41^7.84^56^86.04^^^28^1.1^8^35^160^417^.7^.1^.1^^1372^5.1^.024
+11 ;;^UTILITY(U,$J,112,503,2)
+12 ;;=.026^.77^.1^.11^3.9^3.3^.03^.02^6^.88^.41^.05^137^1.69^^^1.2
+13 ;;^UTILITY(U,$J,112,503,4)
+14 ;;=.04^.04^.14^.37^.03^.17^.35
+15 ;;^UTILITY(U,$J,112,503,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,504,0)
+18 ;;=SOUP, CRAB, CND, READY-TO-SERVE^6-034^cups^244^100^N
+19 ;;^UTILITY(U,$J,112,504,1)
+20 ;;=2.25^.62^4.22^31^91.5^^^27^.5^6^36^134^506^.6^.2^.2^^207^0^.08
+21 ;;^UTILITY(U,$J,112,504,2)
+22 ;;=.03^.55^.12^.05^6^.08^.15^.01^4^.16^.28^.16^21^1.41^^^.3
+23 ;;^UTILITY(U,$J,112,504,4)
+24 ;;=^^0^.09^^.07^.28
+25 ;;^UTILITY(U,$J,112,504,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,505,0)
+28 ;;=SOUP, ESCAROLE, CND, READY-TO-SERVE^6-035^cups^248^100^N
+29 ;;^UTILITY(U,$J,112,505,1)
+30 ;;=.62^.73^.72^11^96.89^^^13^.3^2^32^107^1558^.9^.15^.5^^875^1.8^.03
+31 ;;^UTILITY(U,$J,112,505,2)
+32 ;;=.02^.93^.07^.09^14^.2^.14^.01^1^.22^.33^.15^88^1.04
+33 ;;^UTILITY(U,$J,112,505,4)
+34 ;;=^0^.01^.16^.04^.04^.27^0
+35 ;;^UTILITY(U,$J,112,505,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,506,0)
+38 ;;=SOUP, GAZPACHO, CND, READY-TO-SERVE^6-036^cups^244^100^N
+39 ;;^UTILITY(U,$J,112,506,1)
+40 ;;=3.56^.92^.32^23^93.77^^^10^.4^3^15^92^485^.1^.06^.3^^82^1.3^.02
+41 ;;^UTILITY(U,$J,112,506,2)
+42 ;;=.01^.38^.07^.06^4^0^.53^.01^0^.12^.22^.54^8^1.43^^^1.5
+43 ;;^UTILITY(U,$J,112,506,4)
+44 ;;=^^^.1^^.02^.22
+45 ;;^UTILITY(U,$J,112,506,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,507,0)
+48 ;;=SOUP, LENTIL W/HAM, CND, READY-TO-SERVE^6-037^cups^248^100^N
+49 ;;^UTILITY(U,$J,112,507,1)
+50 ;;=3.74^1.12^8.16^56^85.75^^^17^1.07^9^74^144^532^.3^.07^.12^^145^1.7^.07
+51 ;;^UTILITY(U,$J,112,507,2)
+52 ;;=.045^.545^.14^.09^20^.12^.12^.01^3^.45^.52^.13^14^1.24
+53 ;;^UTILITY(U,$J,112,507,4)
+54 ;;=0^0^.02^.27^.03^.16^.47
+55 ;;^UTILITY(U,$J,112,507,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,508,0)
+58 ;;=SOUP, MINISTRONE, CND, CHUNKY, READY-TO-SERVE^6-039^cups^240^100^N
+59 ;;^UTILITY(U,$J,112,508,1)
+60 ;;=2.13^1.17^8.64^53^86.72^^^25^.74^6^46^255^360^.6^.1^.3^^1813^2^.023
+61 ;;^UTILITY(U,$J,112,508,2)
+62 ;;=.049^.491^.3^.1^13^0^.09^.02^2^.62^.38^.11^181^1.35^^^.8
+63 ;;^UTILITY(U,$J,112,508,4)
+64 ;;=.02^.03^.09^.27^.02^.14^.35
+65 ;;^UTILITY(U,$J,112,508,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,509,0)
+68 ;;=SOUP, TURKEY, CHUNKY, READY-TO-SERVE^6-064^cups^236^100^N
+69 ;;^UTILITY(U,$J,112,509,1)
+70 ;;=4.33^1.87^5.96^57^86.37^^^21^.81^10^44^153^391^.9^.1^.1^^3032^2.7^.015
+71 ;;^UTILITY(U,$J,112,509,2)
+72 ;;=.045^1.52^.39^.13^4.7^.9^.44^.02^4^.52^.75^.46^303^1.47
+73 ;;^UTILITY(U,$J,112,509,3)
+74 ;;=.042^.171^.218^.331^.343^.091^.045^.177^.13^.234^.225^.101^.267^.424^.775^.252^.198^.151
+75 ;;^UTILITY(U,$J,112,509,4)
+76 ;;=^^.02^.39^.11^.09^.65
+77 ;;^UTILITY(U,$J,112,509,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,510,0)
+80 ;;=SOUP, VEGETABLE, CND, CHUNKY, READY-TO-SERVE^6-067^cups^240^100^N
+81 ;;^UTILITY(U,$J,112,510,1)
+82 ;;=1.46^1.54^7.92^51^87.58^^^23^.68^3^30^165^421^1.3^.1^.2^^2449^2.5^.03
+83 ;;^UTILITY(U,$J,112,510,2)
+84 ;;=.027^.5^.14^.08^6.9^0^.54^.04^0^.23^.66^.58^245^1.5^^^.5
+85 ;;^UTILITY(U,$J,112,510,3)
+86 ;;=.011^.045^.067^.113^.079^.011^.011^.067^.034^.079^.079^.034^.079^.191^.309^.056^.056^.056
+87 ;;^UTILITY(U,$J,112,510,4)
+88 ;;=^^0^.15^.01^.08^.66
+89 ;;^UTILITY(U,$J,112,510,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,511,0)
+92 ;;=SOUP, BEEF, CND, CHUNKY, READY-TO-SERVE^6-070^cups^240^100^N
+93 ;;^UTILITY(U,$J,112,511,1)
+94 ;;=4.89^2.14^8.15^71^83.34^^^13^.97^2^50^140^361^1.1^.1^.1^^1088^2.9^.024
+95 ;;^UTILITY(U,$J,112,511,2)
+96 ;;=.063^1.127^.18^.055^5.6^.26^.07^.01^6^1.06^.89^.09^109^1.49^^^.6
+97 ;;^UTILITY(U,$J,112,511,3)
+98 ;;=.047^.194^.247^.374^.387^.103^.051^.201^.147^.265^.254^.115^.302^.479^.875^.285^.224^.17
+99 ;;^UTILITY(U,$J,112,511,4)
+100 ;;=^.02^.08^.53^.09^.4^.77
+101 ;;^UTILITY(U,$J,112,511,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,512,0)
+104 ;;=SOUP, BEEF BROTH OR BOUILLON, POWDER, DRY^6-075^cups^3.0^100^N
+105 ;;^UTILITY(U,$J,112,512,1)
+106 ;;=15.97^8.89^23.65^238^3.27^^^60^1^51^320^446^16982^0^0^.459^^50^0^.07
+107 ;;^UTILITY(U,$J,112,512,2)
+108 ;;=.243^4.467^.3^.2^32^1^.281^.05^10^4.32^3.616^.332^5^48.22^^^0
+109 ;;^UTILITY(U,$J,112,512,4)
+110 ;;=^.08^.332^2.22^.372^1.688^3.215
