- FHINI024 ; ; 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,561,1)
- ;;=.77^.93^4.8^30^92.4^^^5^.21^4^25^38^365^.2^.1^.05^^81^0^.01
- ;;^UTILITY(U,$J,112,561,2)
- ;;=.036^.36^.05^.07^2^0^.28^.01^0^.18^.41^.29^8^1.1^^^.3
- ;;^UTILITY(U,$J,112,561,4)
- ;;=^^0^.11^.01^.07^.41
- ;;^UTILITY(U,$J,112,561,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,562,0)
- ;;=SOUP, CREAM OF MUSHROOM, CND, PREP W/EQ VOL WATER^6-443^cups^244^100^N
- ;;^UTILITY(U,$J,112,562,1)
- ;;=.95^3.68^3.81^53^90.33^^^19^.21^2^20^41^423^.243^.051^.103^^0^.4^.019
- ;;^UTILITY(U,$J,112,562,2)
- ;;=.037^.297^.12^.006^2^.02^1.71^.01^1^1^.7^1.73^0^1.16^^^.2
- ;;^UTILITY(U,$J,112,562,3)
- ;;=.014^.037^.046^.074^.052^.018^.011^.044^.036^.05^.039^.022^.038^.066^.216^.031^.08^.048
- ;;^UTILITY(U,$J,112,562,4)
- ;;=.02^.01^.07^.72^.03^.13^.66
- ;;^UTILITY(U,$J,112,562,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,563,0)
- ;;=SOUP, MUSHROOM W/BEEF STOCK, CND, PREP W/EQ VOL WATER^6-444^cups^244^100^N
- ;;^UTILITY(U,$J,112,563,1)
- ;;=1.29^1.65^3.81^35^92.08^^^4^.34^4^15^65^397^.566^.103^.154^^514^.4^.014
- ;;^UTILITY(U,$J,112,563,2)
- ;;=.039^.494^.1^.015^3.8^0^.28^.04^3^.64^.58^.32^51^1.17^^^.3
- ;;^UTILITY(U,$J,112,563,4)
- ;;=.01^.01^.05^.33^.04^.19^.52
- ;;^UTILITY(U,$J,112,563,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,564,0)
- ;;=SOUP, ONION, CND, PREP W/EQ VOL WATER^6-445^cups^241^100^N
- ;;^UTILITY(U,$J,112,564,1)
- ;;=1.56^.72^3.39^24^93.06^^^11^.28^1^5^28^437^.254^.051^.102^^0^.5^.014
- ;;^UTILITY(U,$J,112,564,2)
- ;;=.01^.249^0^.02^6.3^0^.25^.02^0^.11^.31^.27^0^1.27^^^.4
- ;;^UTILITY(U,$J,112,564,4)
- ;;=^^0^.07^0^.04^.31
- ;;^UTILITY(U,$J,112,564,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,565,0)
- ;;=SOUP, CREAM OF ONION, CND, PREP W/EQ VOL WATER^6-446^cups^244^100^N
- ;;^UTILITY(U,$J,112,565,1)
- ;;=1.13^2.16^5.2^44^90.5^^^14^.26^2^15^49^380^.06^.06^.1^^121^.5^.021
- ;;^UTILITY(U,$J,112,565,2)
- ;;=.031^.206^.12^.01^2.8^.02^.55^.04^6^.6^.86^.6^12^1.1
- ;;^UTILITY(U,$J,112,565,4)
- ;;=.01^.02^.06^.31^.02^.16^.84
- ;;^UTILITY(U,$J,112,565,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,566,0)
- ;;=SOUP, OYSTER STEW, CND, PREPARED W/EQ VOL WATER^6-448^cups^241^100^N
- ;;^UTILITY(U,$J,112,566,1)
- ;;=.87^1.59^1.69^24^94.86^^^9^.41^2^20^20^407^4.269^.661^.152^^29^1.3^.009
- ;;^UTILITY(U,$J,112,566,2)
- ;;=.015^.097^.05^.005^1^.91^.05^.01^6^1.04^.38^.07^3^.99
- ;;^UTILITY(U,$J,112,566,4)
- ;;=.05^.05^.17^.39^.02^.19^.33
- ;;^UTILITY(U,$J,112,566,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,567,0)
- ;;=SOUP, PEA, GREEN, CND, PREP W/EQ VOL WATER^6-449^cups^250^100^N
- ;;^UTILITY(U,$J,112,567,1)
- ;;=3.44^1.17^10.6^66^83.47^^^11^.78^16^50^76^395^.683^.151^.263^^81^.7^.043
- ;;^UTILITY(U,$J,112,567,2)
- ;;=.027^.496^.05^.021^.7^0^.14^.02^0^.56^.4^.15^8^1.32^^^1.1
- ;;^UTILITY(U,$J,112,567,3)
- ;;=.029^.121^.119^.249^.204^.042^.032^.151^.1^.177^.283^.068^.148^.352^.647^.137^.177^.139
- ;;^UTILITY(U,$J,112,567,4)
- ;;=.02^.02^.08^.25^.02^.12^.37
- ;;^UTILITY(U,$J,112,567,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,568,0)
- ;;=SOUP, PEA, SPLIT W/HAM, CND, PREP W/EQ VOL WATER^6-451^cups^253^100^N
- ;;^UTILITY(U,$J,112,568,1)
- ;;=4.08^1.74^11.05^75^81.77^^^9^.9^19^84^158^398^.523^.146^.265^^176^.6^.058
- ;;^UTILITY(U,$J,112,568,2)
- ;;=.03^.583^.1^.027^1^.1^.23^.02^3^.7^.71^.25^18^1.36
- ;;^UTILITY(U,$J,112,568,3)
- ;;=.04^.144^.172^.281^.275^.055^.053^.18^.126^.194^.278^.085^.191^.415^.691^.197^.185^.175
- ;;^UTILITY(U,$J,112,568,4)
- ;;=.01^.02^.06^.37^.03^.2^.66
- ;;^UTILITY(U,$J,112,568,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,569,0)
- ;;=SOUP, PEPPERPOT, CND, PREP W/EQ VOL WATER^6-452^cups^241^100^N
- ;;^UTILITY(U,$J,112,569,1)
- ;;=2.64^1.92^3.89^43^90.15^^^10^.37^2^17^63^403^.508^.051^.254^^359^.6^.022
- ;;^UTILITY(U,$J,112,569,2)
- ;;=.02^.508^.14^.025^4^.07^.13^.02^4^.85^.83^.15^36^1.4^^^.2
- ;;^UTILITY(U,$J,112,569,3)
- ;;=.017^.081^.097^.167^.129^.038^.025^.097^.065^.124^.205^.038^.194^.231^.468^.35^.248^.097
- ;;^UTILITY(U,$J,112,569,4)
- ;;=0^.01^.05^.47^.07^.31^.74
- ;;^UTILITY(U,$J,112,569,20)
- ;;=USDA Std. Reference, Release 10
- ;;^UTILITY(U,$J,112,570,0)
- ;;=SOUP, CREAM OF POTATO, CND, PREP W/EQ VOL WATER^6-453^cups^244^100^N
- ;;^UTILITY(U,$J,112,570,1)
- ;;=.72^.97^4.7^30^92.49^^^8^.2^1^19^56^410^.257^.103^.154^^118^0^.014
- ;;^UTILITY(U,$J,112,570,2)
- ;;=.015^.221^.34^.015^1.2^.02^.16^.01^2^.5^.23^.17^12^1.14^^^.2
- ;;^UTILITY(U,$J,112,570,3)
- ;;=.01^.025^.031^.048^.034^.012^.011^.034^.025^.038^.031^.016^.022^.104^.17^.022^.053^.034
- ;;^UTILITY(U,$J,112,570,4)
- ;;=.02^.02^.07^.21^.01^.08^.2
- FHINI024 ; ; 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,561,1)
- +2 ;;=.77^.93^4.8^30^92.4^^^5^.21^4^25^38^365^.2^.1^.05^^81^0^.01
- +3 ;;^UTILITY(U,$J,112,561,2)
- +4 ;;=.036^.36^.05^.07^2^0^.28^.01^0^.18^.41^.29^8^1.1^^^.3
- +5 ;;^UTILITY(U,$J,112,561,4)
- +6 ;;=^^0^.11^.01^.07^.41
- +7 ;;^UTILITY(U,$J,112,561,20)
- +8 ;;=USDA Std. Reference, Release 10
- +9 ;;^UTILITY(U,$J,112,562,0)
- +10 ;;=SOUP, CREAM OF MUSHROOM, CND, PREP W/EQ VOL WATER^6-443^cups^244^100^N
- +11 ;;^UTILITY(U,$J,112,562,1)
- +12 ;;=.95^3.68^3.81^53^90.33^^^19^.21^2^20^41^423^.243^.051^.103^^0^.4^.019
- +13 ;;^UTILITY(U,$J,112,562,2)
- +14 ;;=.037^.297^.12^.006^2^.02^1.71^.01^1^1^.7^1.73^0^1.16^^^.2
- +15 ;;^UTILITY(U,$J,112,562,3)
- +16 ;;=.014^.037^.046^.074^.052^.018^.011^.044^.036^.05^.039^.022^.038^.066^.216^.031^.08^.048
- +17 ;;^UTILITY(U,$J,112,562,4)
- +18 ;;=.02^.01^.07^.72^.03^.13^.66
- +19 ;;^UTILITY(U,$J,112,562,20)
- +20 ;;=USDA Std. Reference, Release 10
- +21 ;;^UTILITY(U,$J,112,563,0)
- +22 ;;=SOUP, MUSHROOM W/BEEF STOCK, CND, PREP W/EQ VOL WATER^6-444^cups^244^100^N
- +23 ;;^UTILITY(U,$J,112,563,1)
- +24 ;;=1.29^1.65^3.81^35^92.08^^^4^.34^4^15^65^397^.566^.103^.154^^514^.4^.014
- +25 ;;^UTILITY(U,$J,112,563,2)
- +26 ;;=.039^.494^.1^.015^3.8^0^.28^.04^3^.64^.58^.32^51^1.17^^^.3
- +27 ;;^UTILITY(U,$J,112,563,4)
- +28 ;;=.01^.01^.05^.33^.04^.19^.52
- +29 ;;^UTILITY(U,$J,112,563,20)
- +30 ;;=USDA Std. Reference, Release 10
- +31 ;;^UTILITY(U,$J,112,564,0)
- +32 ;;=SOUP, ONION, CND, PREP W/EQ VOL WATER^6-445^cups^241^100^N
- +33 ;;^UTILITY(U,$J,112,564,1)
- +34 ;;=1.56^.72^3.39^24^93.06^^^11^.28^1^5^28^437^.254^.051^.102^^0^.5^.014
- +35 ;;^UTILITY(U,$J,112,564,2)
- +36 ;;=.01^.249^0^.02^6.3^0^.25^.02^0^.11^.31^.27^0^1.27^^^.4
- +37 ;;^UTILITY(U,$J,112,564,4)
- +38 ;;=^^0^.07^0^.04^.31
- +39 ;;^UTILITY(U,$J,112,564,20)
- +40 ;;=USDA Std. Reference, Release 10
- +41 ;;^UTILITY(U,$J,112,565,0)
- +42 ;;=SOUP, CREAM OF ONION, CND, PREP W/EQ VOL WATER^6-446^cups^244^100^N
- +43 ;;^UTILITY(U,$J,112,565,1)
- +44 ;;=1.13^2.16^5.2^44^90.5^^^14^.26^2^15^49^380^.06^.06^.1^^121^.5^.021
- +45 ;;^UTILITY(U,$J,112,565,2)
- +46 ;;=.031^.206^.12^.01^2.8^.02^.55^.04^6^.6^.86^.6^12^1.1
- +47 ;;^UTILITY(U,$J,112,565,4)
- +48 ;;=.01^.02^.06^.31^.02^.16^.84
- +49 ;;^UTILITY(U,$J,112,565,20)
- +50 ;;=USDA Std. Reference, Release 10
- +51 ;;^UTILITY(U,$J,112,566,0)
- +52 ;;=SOUP, OYSTER STEW, CND, PREPARED W/EQ VOL WATER^6-448^cups^241^100^N
- +53 ;;^UTILITY(U,$J,112,566,1)
- +54 ;;=.87^1.59^1.69^24^94.86^^^9^.41^2^20^20^407^4.269^.661^.152^^29^1.3^.009
- +55 ;;^UTILITY(U,$J,112,566,2)
- +56 ;;=.015^.097^.05^.005^1^.91^.05^.01^6^1.04^.38^.07^3^.99
- +57 ;;^UTILITY(U,$J,112,566,4)
- +58 ;;=.05^.05^.17^.39^.02^.19^.33
- +59 ;;^UTILITY(U,$J,112,566,20)
- +60 ;;=USDA Std. Reference, Release 10
- +61 ;;^UTILITY(U,$J,112,567,0)
- +62 ;;=SOUP, PEA, GREEN, CND, PREP W/EQ VOL WATER^6-449^cups^250^100^N
- +63 ;;^UTILITY(U,$J,112,567,1)
- +64 ;;=3.44^1.17^10.6^66^83.47^^^11^.78^16^50^76^395^.683^.151^.263^^81^.7^.043
- +65 ;;^UTILITY(U,$J,112,567,2)
- +66 ;;=.027^.496^.05^.021^.7^0^.14^.02^0^.56^.4^.15^8^1.32^^^1.1
- +67 ;;^UTILITY(U,$J,112,567,3)
- +68 ;;=.029^.121^.119^.249^.204^.042^.032^.151^.1^.177^.283^.068^.148^.352^.647^.137^.177^.139
- +69 ;;^UTILITY(U,$J,112,567,4)
- +70 ;;=.02^.02^.08^.25^.02^.12^.37
- +71 ;;^UTILITY(U,$J,112,567,20)
- +72 ;;=USDA Std. Reference, Release 10
- +73 ;;^UTILITY(U,$J,112,568,0)
- +74 ;;=SOUP, PEA, SPLIT W/HAM, CND, PREP W/EQ VOL WATER^6-451^cups^253^100^N
- +75 ;;^UTILITY(U,$J,112,568,1)
- +76 ;;=4.08^1.74^11.05^75^81.77^^^9^.9^19^84^158^398^.523^.146^.265^^176^.6^.058
- +77 ;;^UTILITY(U,$J,112,568,2)
- +78 ;;=.03^.583^.1^.027^1^.1^.23^.02^3^.7^.71^.25^18^1.36
- +79 ;;^UTILITY(U,$J,112,568,3)
- +80 ;;=.04^.144^.172^.281^.275^.055^.053^.18^.126^.194^.278^.085^.191^.415^.691^.197^.185^.175
- +81 ;;^UTILITY(U,$J,112,568,4)
- +82 ;;=.01^.02^.06^.37^.03^.2^.66
- +83 ;;^UTILITY(U,$J,112,568,20)
- +84 ;;=USDA Std. Reference, Release 10
- +85 ;;^UTILITY(U,$J,112,569,0)
- +86 ;;=SOUP, PEPPERPOT, CND, PREP W/EQ VOL WATER^6-452^cups^241^100^N
- +87 ;;^UTILITY(U,$J,112,569,1)
- +88 ;;=2.64^1.92^3.89^43^90.15^^^10^.37^2^17^63^403^.508^.051^.254^^359^.6^.022
- +89 ;;^UTILITY(U,$J,112,569,2)
- +90 ;;=.02^.508^.14^.025^4^.07^.13^.02^4^.85^.83^.15^36^1.4^^^.2
- +91 ;;^UTILITY(U,$J,112,569,3)
- +92 ;;=.017^.081^.097^.167^.129^.038^.025^.097^.065^.124^.205^.038^.194^.231^.468^.35^.248^.097
- +93 ;;^UTILITY(U,$J,112,569,4)
- +94 ;;=0^.01^.05^.47^.07^.31^.74
- +95 ;;^UTILITY(U,$J,112,569,20)
- +96 ;;=USDA Std. Reference, Release 10
- +97 ;;^UTILITY(U,$J,112,570,0)
- +98 ;;=SOUP, CREAM OF POTATO, CND, PREP W/EQ VOL WATER^6-453^cups^244^100^N
- +99 ;;^UTILITY(U,$J,112,570,1)
- +100 ;;=.72^.97^4.7^30^92.49^^^8^.2^1^19^56^410^.257^.103^.154^^118^0^.014
- +101 ;;^UTILITY(U,$J,112,570,2)
- +102 ;;=.015^.221^.34^.015^1.2^.02^.16^.01^2^.5^.23^.17^12^1.14^^^.2
- +103 ;;^UTILITY(U,$J,112,570,3)
- +104 ;;=.01^.025^.031^.048^.034^.012^.011^.034^.025^.038^.031^.016^.022^.104^.17^.022^.053^.034
- +105 ;;^UTILITY(U,$J,112,570,4)
- +106 ;;=.02^.02^.07^.21^.01^.08^.2