FHINI021 ; ; 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,533,2)
;;=.095^.259^.68^.036^3.7^.2^.19^.04^9^1.52^.7^.23^27^1.47^^^.2
;;^UTILITY(U,$J,112,533,3)
;;=.033^.098^.129^.207^.162^.053^.026^.112^.103^.146^.089^.06^.078^.226^.507^.056^.21^.122
;;^UTILITY(U,$J,112,533,4)
;;=.06^.07^.24^.65^.05^.28^.61
;;^UTILITY(U,$J,112,533,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,534,0)
;;=SOUP, CREAM OF SHRIMP, CND, PREP W/EQ VOL MILK^6-256^cups^248^100^N
;;^UTILITY(U,$J,112,534,1)
;;=2.75^3.75^5.61^66^86.4^^^66^.24^9^59^100^418^.322^.055^.16^^126^.5^.026
;;^UTILITY(U,$J,112,534,2)
;;=.091^.214^.22^.18^4^.42^.09^.06^14^2.33^1.08^.14^22^1.5^^^.1
;;^UTILITY(U,$J,112,534,4)
;;=.09^.11^.38^.99^.08^.46^.94
;;^UTILITY(U,$J,112,534,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,535,0)
;;=SAUCE, CHEESE, DEHYDRATED, PREP W/MILK^6-303^cups^279.2^100^N
;;^UTILITY(U,$J,112,535,1)
;;=5.74^6.13^8.32^110^77.41^^^204^.1^17^157^198^561^.348^.03^.01^^140^.8^.053
;;^UTILITY(U,$J,112,535,2)
;;=.202^.114^.4^.05^4.5^.4^.48^.09^19^3.34^1.9^.57^42^2.41^^^.3
;;^UTILITY(U,$J,112,535,4)
;;=.11^.11^.51^1.51^.14^.66^1.7
;;^UTILITY(U,$J,112,535,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,536,0)
;;=SAUCE, CURRY, DEHYDRATED, PREP W/MILK^6-304^cups^272.3^100^N
;;^UTILITY(U,$J,112,536,1)
;;=3.92^5.4^9.44^99^79.27^^^178^.4^17^103^182^469^.4^.4^.02^^126^1^.04
;;^UTILITY(U,$J,112,536,2)
;;=.2^.2^.1^.04^6^.4^.91^.11^13^2.22^1.89^1.01^15^1.97
;;^UTILITY(U,$J,112,536,4)
;;=^^.31^1.02^.08^.48^1.78
;;^UTILITY(U,$J,112,536,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,537,0)
;;=SAUCE, MUSHROOM, DEHYDRATED, PREP W/MILK^6-306^cups^266.7^100^N
;;^UTILITY(U,$J,112,537,1)
;;=4.23^3.86^8.92^85^80.8^^^110^.2^14^62^185^575^.5^.3^.02^^115^.7^.07
;;^UTILITY(U,$J,112,537,2)
;;=.3^1.8^1.2^.07^15^.3^.36^.07^13^2.02^1.23^.41^35^2.18
;;^UTILITY(U,$J,112,537,4)
;;=^^.31^.88^.08^.41^1.11
;;^UTILITY(U,$J,112,537,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,538,0)
;;=SAUCE, WHITE, DEHYDRATED, PREP W/MILK^6-313^cups^263.8^100^N
;;^UTILITY(U,$J,112,538,1)
;;=3.87^5.1^8.11^91^81.49^^^161^.1^100^97^168^302^.208^.017^.01^^117^1^.031
;;^UTILITY(U,$J,112,538,2)
;;=.17^.2^.4^.025^6^.4^.57^.08^13^2.43^1.78^.64^35^1.44
;;^UTILITY(U,$J,112,538,4)
;;=^^.32^1.1^.07^.58^1.67
;;^UTILITY(U,$J,112,538,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,539,0)
;;=SAUCE, SOUR CREAM, DEHYDRATED, PREP W/MILK^6-348^cups^314.4^100^N
;;^UTILITY(U,$J,112,539,1)
;;=6.07^9.63^14.44^162^68.63^^^174^.2^14^99^233^320^.437^.025^.07^^152^.8^.04
;;^UTILITY(U,$J,112,539,2)
;;=.224^.177^.4^.04^5^.3^.74^.14^29^5.12^3.14^.88^46^1.23^^^1.1
;;^UTILITY(U,$J,112,539,4)
;;=.18^.2^.75^2.25^.17^1.13^2.88
;;^UTILITY(U,$J,112,539,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,540,0)
;;=SOUP, TOMATO BISQUE, CND, PREP W/EQ VOL MILK^6-358^cups^251^100^N
;;^UTILITY(U,$J,112,540,1)
;;=2.51^2.63^11.73^79^81.51^^^74^.35^10^69^241^442^.252^.056^.103^^350^2.8^.045
;;^UTILITY(U,$J,112,540,2)
;;=.107^.499^.2^.056^8.5^.17^.42^.08^9^1.25^.75^.49^44^1.63
;;^UTILITY(U,$J,112,540,3)
;;=.032^.099^.128^.207^.163^.052^.024^.108^.101^.142^.084^.061^.081^.201^.646^.055^.211^.123
;;^UTILITY(U,$J,112,540,4)
;;=.04^.05^.18^.56^.05^.24^.68
;;^UTILITY(U,$J,112,540,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,541,0)
;;=SOUP, TOMATO, CND, PREP W/EQ VOL MILK^6-359^cups^248^100^N
;;^UTILITY(U,$J,112,541,1)
;;=2.46^2.42^8.99^65^84.58^^^64^.73^9^60^181^376^.117^.106^.102^^342^27.3^.054
;;^UTILITY(U,$J,112,541,2)
;;=.1^.613^.22^.066^8.4^.18^.36^.09^7^1.17^.65^.45^44^1.55^^^.2
;;^UTILITY(U,$J,112,541,3)
;;=.031^.094^.122^.199^.149^.05^.026^.107^.096^.135^.083^.059^.078^.188^.653^.056^.212^.12
;;^UTILITY(U,$J,112,541,4)
;;=.04^.05^.18^.52^.04^.23^.58^^^.9
;;^UTILITY(U,$J,112,541,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,542,0)
;;=SOUP, CREAM OF ASPARAGUS, CND, PREP W/EQ VOL WATER^6-401^cups^244^100^N
;;^UTILITY(U,$J,112,542,1)
;;=.94^1.68^4.38^35^91.8^^^12^.33^2^16^71^402^.36^.051^.154^^182^1.1^.022
;;^UTILITY(U,$J,112,542,2)
;;=.032^.319^.05^.005^9^.02^.73^.02^2^.43^.39^.76^18^1.21^^^.2
;;^UTILITY(U,$J,112,542,3)
;;=.012^.032^.04^.067^.046^.017^.012^.039^.031^.047^.035^.02^.038^.07^.24^.028^.084^.043
;;^UTILITY(U,$J,112,542,4)
;;=.02^.02^.06^.17^.02^.09^.36
;;^UTILITY(U,$J,112,542,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,543,0)
;;=SOUP, BLACK BEAN, CND, PREP W/EQ VOL WATER^6-402^cups^247^100^N
;;^UTILITY(U,$J,112,543,1)
;;=2.28^.61^8.02^47^87.27^^^18^.87^17^43^111^485^.572^.156^.26^^205^.3^.031
FHINI021 ; ; 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,533,2)
+2 ;;=.095^.259^.68^.036^3.7^.2^.19^.04^9^1.52^.7^.23^27^1.47^^^.2
+3 ;;^UTILITY(U,$J,112,533,3)
+4 ;;=.033^.098^.129^.207^.162^.053^.026^.112^.103^.146^.089^.06^.078^.226^.507^.056^.21^.122
+5 ;;^UTILITY(U,$J,112,533,4)
+6 ;;=.06^.07^.24^.65^.05^.28^.61
+7 ;;^UTILITY(U,$J,112,533,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,534,0)
+10 ;;=SOUP, CREAM OF SHRIMP, CND, PREP W/EQ VOL MILK^6-256^cups^248^100^N
+11 ;;^UTILITY(U,$J,112,534,1)
+12 ;;=2.75^3.75^5.61^66^86.4^^^66^.24^9^59^100^418^.322^.055^.16^^126^.5^.026
+13 ;;^UTILITY(U,$J,112,534,2)
+14 ;;=.091^.214^.22^.18^4^.42^.09^.06^14^2.33^1.08^.14^22^1.5^^^.1
+15 ;;^UTILITY(U,$J,112,534,4)
+16 ;;=.09^.11^.38^.99^.08^.46^.94
+17 ;;^UTILITY(U,$J,112,534,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,535,0)
+20 ;;=SAUCE, CHEESE, DEHYDRATED, PREP W/MILK^6-303^cups^279.2^100^N
+21 ;;^UTILITY(U,$J,112,535,1)
+22 ;;=5.74^6.13^8.32^110^77.41^^^204^.1^17^157^198^561^.348^.03^.01^^140^.8^.053
+23 ;;^UTILITY(U,$J,112,535,2)
+24 ;;=.202^.114^.4^.05^4.5^.4^.48^.09^19^3.34^1.9^.57^42^2.41^^^.3
+25 ;;^UTILITY(U,$J,112,535,4)
+26 ;;=.11^.11^.51^1.51^.14^.66^1.7
+27 ;;^UTILITY(U,$J,112,535,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,536,0)
+30 ;;=SAUCE, CURRY, DEHYDRATED, PREP W/MILK^6-304^cups^272.3^100^N
+31 ;;^UTILITY(U,$J,112,536,1)
+32 ;;=3.92^5.4^9.44^99^79.27^^^178^.4^17^103^182^469^.4^.4^.02^^126^1^.04
+33 ;;^UTILITY(U,$J,112,536,2)
+34 ;;=.2^.2^.1^.04^6^.4^.91^.11^13^2.22^1.89^1.01^15^1.97
+35 ;;^UTILITY(U,$J,112,536,4)
+36 ;;=^^.31^1.02^.08^.48^1.78
+37 ;;^UTILITY(U,$J,112,536,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,537,0)
+40 ;;=SAUCE, MUSHROOM, DEHYDRATED, PREP W/MILK^6-306^cups^266.7^100^N
+41 ;;^UTILITY(U,$J,112,537,1)
+42 ;;=4.23^3.86^8.92^85^80.8^^^110^.2^14^62^185^575^.5^.3^.02^^115^.7^.07
+43 ;;^UTILITY(U,$J,112,537,2)
+44 ;;=.3^1.8^1.2^.07^15^.3^.36^.07^13^2.02^1.23^.41^35^2.18
+45 ;;^UTILITY(U,$J,112,537,4)
+46 ;;=^^.31^.88^.08^.41^1.11
+47 ;;^UTILITY(U,$J,112,537,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,538,0)
+50 ;;=SAUCE, WHITE, DEHYDRATED, PREP W/MILK^6-313^cups^263.8^100^N
+51 ;;^UTILITY(U,$J,112,538,1)
+52 ;;=3.87^5.1^8.11^91^81.49^^^161^.1^100^97^168^302^.208^.017^.01^^117^1^.031
+53 ;;^UTILITY(U,$J,112,538,2)
+54 ;;=.17^.2^.4^.025^6^.4^.57^.08^13^2.43^1.78^.64^35^1.44
+55 ;;^UTILITY(U,$J,112,538,4)
+56 ;;=^^.32^1.1^.07^.58^1.67
+57 ;;^UTILITY(U,$J,112,538,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,539,0)
+60 ;;=SAUCE, SOUR CREAM, DEHYDRATED, PREP W/MILK^6-348^cups^314.4^100^N
+61 ;;^UTILITY(U,$J,112,539,1)
+62 ;;=6.07^9.63^14.44^162^68.63^^^174^.2^14^99^233^320^.437^.025^.07^^152^.8^.04
+63 ;;^UTILITY(U,$J,112,539,2)
+64 ;;=.224^.177^.4^.04^5^.3^.74^.14^29^5.12^3.14^.88^46^1.23^^^1.1
+65 ;;^UTILITY(U,$J,112,539,4)
+66 ;;=.18^.2^.75^2.25^.17^1.13^2.88
+67 ;;^UTILITY(U,$J,112,539,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,540,0)
+70 ;;=SOUP, TOMATO BISQUE, CND, PREP W/EQ VOL MILK^6-358^cups^251^100^N
+71 ;;^UTILITY(U,$J,112,540,1)
+72 ;;=2.51^2.63^11.73^79^81.51^^^74^.35^10^69^241^442^.252^.056^.103^^350^2.8^.045
+73 ;;^UTILITY(U,$J,112,540,2)
+74 ;;=.107^.499^.2^.056^8.5^.17^.42^.08^9^1.25^.75^.49^44^1.63
+75 ;;^UTILITY(U,$J,112,540,3)
+76 ;;=.032^.099^.128^.207^.163^.052^.024^.108^.101^.142^.084^.061^.081^.201^.646^.055^.211^.123
+77 ;;^UTILITY(U,$J,112,540,4)
+78 ;;=.04^.05^.18^.56^.05^.24^.68
+79 ;;^UTILITY(U,$J,112,540,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,541,0)
+82 ;;=SOUP, TOMATO, CND, PREP W/EQ VOL MILK^6-359^cups^248^100^N
+83 ;;^UTILITY(U,$J,112,541,1)
+84 ;;=2.46^2.42^8.99^65^84.58^^^64^.73^9^60^181^376^.117^.106^.102^^342^27.3^.054
+85 ;;^UTILITY(U,$J,112,541,2)
+86 ;;=.1^.613^.22^.066^8.4^.18^.36^.09^7^1.17^.65^.45^44^1.55^^^.2
+87 ;;^UTILITY(U,$J,112,541,3)
+88 ;;=.031^.094^.122^.199^.149^.05^.026^.107^.096^.135^.083^.059^.078^.188^.653^.056^.212^.12
+89 ;;^UTILITY(U,$J,112,541,4)
+90 ;;=.04^.05^.18^.52^.04^.23^.58^^^.9
+91 ;;^UTILITY(U,$J,112,541,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,542,0)
+94 ;;=SOUP, CREAM OF ASPARAGUS, CND, PREP W/EQ VOL WATER^6-401^cups^244^100^N
+95 ;;^UTILITY(U,$J,112,542,1)
+96 ;;=.94^1.68^4.38^35^91.8^^^12^.33^2^16^71^402^.36^.051^.154^^182^1.1^.022
+97 ;;^UTILITY(U,$J,112,542,2)
+98 ;;=.032^.319^.05^.005^9^.02^.73^.02^2^.43^.39^.76^18^1.21^^^.2
+99 ;;^UTILITY(U,$J,112,542,3)
+100 ;;=.012^.032^.04^.067^.046^.017^.012^.039^.031^.047^.035^.02^.038^.07^.24^.028^.084^.043
+101 ;;^UTILITY(U,$J,112,542,4)
+102 ;;=.02^.02^.06^.17^.02^.09^.36
+103 ;;^UTILITY(U,$J,112,542,20)
+104 ;;=USDA Std. Reference, Release 10
+105 ;;^UTILITY(U,$J,112,543,0)
+106 ;;=SOUP, BLACK BEAN, CND, PREP W/EQ VOL WATER^6-402^cups^247^100^N
+107 ;;^UTILITY(U,$J,112,543,1)
+108 ;;=2.28^.61^8.02^47^87.27^^^18^.87^17^43^111^485^.572^.156^.26^^205^.3^.031
