FHINI022 ; ; 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,543,2)
;;=.022^.216^.08^.038^10^.01^.14^.04^0^.16^.22^.19^20^1.51^^^1.8
;;^UTILITY(U,$J,112,543,3)
;;=.026^.101^.116^.171^.168^.025^.024^.126^.02^.115^.134^.066^.094^.264^.456^.089^.088^.125
;;^UTILITY(U,$J,112,543,4)
;;=0^0^.01^.1^.01^.04^.21
;;^UTILITY(U,$J,112,543,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,544,0)
;;=SOUP, BEAN W/PORK, CND, PREP W/EQ VOL WATER^6-404^cups^253^100^N
;;^UTILITY(U,$J,112,544,1)
;;=3.12^2.35^9.01^68^84.16^^^32^.81^18^52^159^376^.408^.159^.265^^351^.6^.035
;;^UTILITY(U,$J,112,544,2)
;;=.013^.224^.04^.016^12.6^.02^.54^.17^1^.6^.86^.72^35^1.36^^^3.4
;;^UTILITY(U,$J,112,544,3)
;;=.033^.129^.152^.257^.212^.039^.035^.174^.093^.172^.164^.081^.156^.349^.575^.151^.141^.154
;;^UTILITY(U,$J,112,544,4)
;;=.01^.01^.03^.37^.04^.15^.81
;;^UTILITY(U,$J,112,544,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,545,0)
;;=SOUP, BEAN W/FRANKFURTERS, CND, PREP W/EQ VOL WATER^6-406^cups^250^100^N
;;^UTILITY(U,$J,112,545,1)
;;=3.99^2.79^8.8^75^83.03^^^35^.94^19^66^191^437^.473^.158^.315^^348^.4^.044
;;^UTILITY(U,$J,112,545,2)
;;=.026^.41^.04^.053^12^.03^.5^.14^5^.85^1.09^.66^35^1.39
;;^UTILITY(U,$J,112,545,3)
;;=.042^.165^.195^.329^.272^.05^.044^.223^.119^.22^.21^.104^.199^.447^.736^.193^.18^.198
;;^UTILITY(U,$J,112,545,4)
;;=^^.03^.56^.06^.24^1.01
;;^UTILITY(U,$J,112,545,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,546,0)
;;=SOUP, BEEF NOODLE, CND, PREP W/EQ VOL WATER^6-409^cups^244^100^N
;;^UTILITY(U,$J,112,546,1)
;;=1.98^1.26^3.68^34^91.99^^^6^.45^2^19^41^390^.631^.057^.112^^258^.1^.028
;;^UTILITY(U,$J,112,546,2)
;;=.024^.437^.08^.015^1.8^.08^.17^.02^2^.47^.51^.2^26^1.09^^^.3
;;^UTILITY(U,$J,112,546,3)
;;=.019^.063^.077^.129^.107^.037^.024^.08^.051^.085^.081^.046^.091^.145^.547^.093^.128^.071
;;^UTILITY(U,$J,112,546,4)
;;=^^.02^.26^.04^.16^.45
;;^UTILITY(U,$J,112,546,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,547,0)
;;=SOUP, CREAM OF CELERY, CND, PREP W/EQ VOL WATER^6-410^cups^244^100^N
;;^UTILITY(U,$J,112,547,1)
;;=.68^2.29^3.62^37^92.27^^^16^.26^3^15^50^389^.062^.058^.103^^126^.1^.012
;;^UTILITY(U,$J,112,547,2)
;;=.02^.136^.46^.005^1^.1^1^.03^6^.58^.53^1.03^13^1.15^^^.3
;;^UTILITY(U,$J,112,547,3)
;;=.008^.024^.032^.051^.03^.012^.008^.032^.022^.037^.024^.016^.025^.047^.157^.021^.057^.031
;;^UTILITY(U,$J,112,547,4)
;;=.02^.02^.08^.23^.02^.12^.49
;;^UTILITY(U,$J,112,547,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,548,0)
;;=SOUP, CHEESE, CND, PREP W/EQ VOL WATER^6-411^cups^247^100^N
;;^UTILITY(U,$J,112,548,1)
;;=2.19^4.24^4.26^63^88.12^^^57^.3^2^55^62^388^.26^.052^.104^^440^0^.007
;;^UTILITY(U,$J,112,548,2)
;;=.055^.161^.04^.01^2^0^.07^.05^12^2.7^1.2^.12^44^1.19
;;^UTILITY(U,$J,112,548,3)
;;=.029^.077^.13^.207^.154^.047^.018^.113^.101^.154^.066^.059^.071^.154^.676^.047^.231^.101
;;^UTILITY(U,$J,112,548,4)
;;=.08^.07^.43^1.25^.13^.51^1.01
;;^UTILITY(U,$J,112,548,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,549,0)
;;=SOUP, CHICKEN W/DUMPLINGS, CND, PREP W/EQ VOL WATER^6-412^cups^241^100^N
;;^UTILITY(U,$J,112,549,1)
;;=2.33^2.29^2.51^40^91.78^^^6^.26^2^25^48^357^.152^.051^.203^^215^0^.007
;;^UTILITY(U,$J,112,549,2)
;;=.03^.727^.06^.015^1^.07^.51^.01^14^.54^1.05^.54^22^1.1^^^.3
;;^UTILITY(U,$J,112,549,3)
;;=.022^.08^.101^.169^.157^.045^.03^.093^.059^.115^.121^.057^.143^.199^.631^.171^.153^.079
;;^UTILITY(U,$J,112,549,4)
;;=^^.02^.41^.1^.11^.94
;;^UTILITY(U,$J,112,549,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,550,0)
;;=SOUP, CHICKEN BROTH, CND, PREP W/EQ VOL WATER^6-413^cups^244^100^N
;;^UTILITY(U,$J,112,550,1)
;;=2.02^.57^.38^16^95.95^^^4^.21^1^30^86^318^.102^.051^.102^^0^0^.004
;;^UTILITY(U,$J,112,550,2)
;;=.029^1.372^.02^.01^2^.1^.1^.01^0^.16^.24^.11^0^1.02^^^0
;;^UTILITY(U,$J,112,550,4)
;;=^0^.01^.12^.03^.03^.2^0^^0
;;^UTILITY(U,$J,112,550,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,551,0)
;;=SOUP, CREAM OF CHICKEN, CND, PREP W/EQ VOL WATER^6-416^cups^244^100^N
;;^UTILITY(U,$J,112,551,1)
;;=1.41^3.02^3.8^48^90.62^^^14^.25^1^15^36^404^.257^.051^.154^^230^.1^.012
;;^UTILITY(U,$J,112,551,2)
;;=.025^.336^.08^.007^.7^.04^.58^.03^4^.85^1.34^.61^23^1.17^^^.1
;;^UTILITY(U,$J,112,551,3)
;;=.017^.053^.07^.108^.088^.033^.021^.063^.048^.071^.068^.038^.061^.099^.319^.056^.105^.062
;;^UTILITY(U,$J,112,551,4)
;;=.01^.01^.06^.54^.12^.17^1.21
;;^UTILITY(U,$J,112,551,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,552,0)
;;=SOUP, CHICKEN GUMBO, CND, PREP W/EQ VOL WATER^6-417^cups^244^100^N
FHINI022 ; ; 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,543,2)
+2 ;;=.022^.216^.08^.038^10^.01^.14^.04^0^.16^.22^.19^20^1.51^^^1.8
+3 ;;^UTILITY(U,$J,112,543,3)
+4 ;;=.026^.101^.116^.171^.168^.025^.024^.126^.02^.115^.134^.066^.094^.264^.456^.089^.088^.125
+5 ;;^UTILITY(U,$J,112,543,4)
+6 ;;=0^0^.01^.1^.01^.04^.21
+7 ;;^UTILITY(U,$J,112,543,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,544,0)
+10 ;;=SOUP, BEAN W/PORK, CND, PREP W/EQ VOL WATER^6-404^cups^253^100^N
+11 ;;^UTILITY(U,$J,112,544,1)
+12 ;;=3.12^2.35^9.01^68^84.16^^^32^.81^18^52^159^376^.408^.159^.265^^351^.6^.035
+13 ;;^UTILITY(U,$J,112,544,2)
+14 ;;=.013^.224^.04^.016^12.6^.02^.54^.17^1^.6^.86^.72^35^1.36^^^3.4
+15 ;;^UTILITY(U,$J,112,544,3)
+16 ;;=.033^.129^.152^.257^.212^.039^.035^.174^.093^.172^.164^.081^.156^.349^.575^.151^.141^.154
+17 ;;^UTILITY(U,$J,112,544,4)
+18 ;;=.01^.01^.03^.37^.04^.15^.81
+19 ;;^UTILITY(U,$J,112,544,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,545,0)
+22 ;;=SOUP, BEAN W/FRANKFURTERS, CND, PREP W/EQ VOL WATER^6-406^cups^250^100^N
+23 ;;^UTILITY(U,$J,112,545,1)
+24 ;;=3.99^2.79^8.8^75^83.03^^^35^.94^19^66^191^437^.473^.158^.315^^348^.4^.044
+25 ;;^UTILITY(U,$J,112,545,2)
+26 ;;=.026^.41^.04^.053^12^.03^.5^.14^5^.85^1.09^.66^35^1.39
+27 ;;^UTILITY(U,$J,112,545,3)
+28 ;;=.042^.165^.195^.329^.272^.05^.044^.223^.119^.22^.21^.104^.199^.447^.736^.193^.18^.198
+29 ;;^UTILITY(U,$J,112,545,4)
+30 ;;=^^.03^.56^.06^.24^1.01
+31 ;;^UTILITY(U,$J,112,545,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,546,0)
+34 ;;=SOUP, BEEF NOODLE, CND, PREP W/EQ VOL WATER^6-409^cups^244^100^N
+35 ;;^UTILITY(U,$J,112,546,1)
+36 ;;=1.98^1.26^3.68^34^91.99^^^6^.45^2^19^41^390^.631^.057^.112^^258^.1^.028
+37 ;;^UTILITY(U,$J,112,546,2)
+38 ;;=.024^.437^.08^.015^1.8^.08^.17^.02^2^.47^.51^.2^26^1.09^^^.3
+39 ;;^UTILITY(U,$J,112,546,3)
+40 ;;=.019^.063^.077^.129^.107^.037^.024^.08^.051^.085^.081^.046^.091^.145^.547^.093^.128^.071
+41 ;;^UTILITY(U,$J,112,546,4)
+42 ;;=^^.02^.26^.04^.16^.45
+43 ;;^UTILITY(U,$J,112,546,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,547,0)
+46 ;;=SOUP, CREAM OF CELERY, CND, PREP W/EQ VOL WATER^6-410^cups^244^100^N
+47 ;;^UTILITY(U,$J,112,547,1)
+48 ;;=.68^2.29^3.62^37^92.27^^^16^.26^3^15^50^389^.062^.058^.103^^126^.1^.012
+49 ;;^UTILITY(U,$J,112,547,2)
+50 ;;=.02^.136^.46^.005^1^.1^1^.03^6^.58^.53^1.03^13^1.15^^^.3
+51 ;;^UTILITY(U,$J,112,547,3)
+52 ;;=.008^.024^.032^.051^.03^.012^.008^.032^.022^.037^.024^.016^.025^.047^.157^.021^.057^.031
+53 ;;^UTILITY(U,$J,112,547,4)
+54 ;;=.02^.02^.08^.23^.02^.12^.49
+55 ;;^UTILITY(U,$J,112,547,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,548,0)
+58 ;;=SOUP, CHEESE, CND, PREP W/EQ VOL WATER^6-411^cups^247^100^N
+59 ;;^UTILITY(U,$J,112,548,1)
+60 ;;=2.19^4.24^4.26^63^88.12^^^57^.3^2^55^62^388^.26^.052^.104^^440^0^.007
+61 ;;^UTILITY(U,$J,112,548,2)
+62 ;;=.055^.161^.04^.01^2^0^.07^.05^12^2.7^1.2^.12^44^1.19
+63 ;;^UTILITY(U,$J,112,548,3)
+64 ;;=.029^.077^.13^.207^.154^.047^.018^.113^.101^.154^.066^.059^.071^.154^.676^.047^.231^.101
+65 ;;^UTILITY(U,$J,112,548,4)
+66 ;;=.08^.07^.43^1.25^.13^.51^1.01
+67 ;;^UTILITY(U,$J,112,548,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,549,0)
+70 ;;=SOUP, CHICKEN W/DUMPLINGS, CND, PREP W/EQ VOL WATER^6-412^cups^241^100^N
+71 ;;^UTILITY(U,$J,112,549,1)
+72 ;;=2.33^2.29^2.51^40^91.78^^^6^.26^2^25^48^357^.152^.051^.203^^215^0^.007
+73 ;;^UTILITY(U,$J,112,549,2)
+74 ;;=.03^.727^.06^.015^1^.07^.51^.01^14^.54^1.05^.54^22^1.1^^^.3
+75 ;;^UTILITY(U,$J,112,549,3)
+76 ;;=.022^.08^.101^.169^.157^.045^.03^.093^.059^.115^.121^.057^.143^.199^.631^.171^.153^.079
+77 ;;^UTILITY(U,$J,112,549,4)
+78 ;;=^^.02^.41^.1^.11^.94
+79 ;;^UTILITY(U,$J,112,549,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,550,0)
+82 ;;=SOUP, CHICKEN BROTH, CND, PREP W/EQ VOL WATER^6-413^cups^244^100^N
+83 ;;^UTILITY(U,$J,112,550,1)
+84 ;;=2.02^.57^.38^16^95.95^^^4^.21^1^30^86^318^.102^.051^.102^^0^0^.004
+85 ;;^UTILITY(U,$J,112,550,2)
+86 ;;=.029^1.372^.02^.01^2^.1^.1^.01^0^.16^.24^.11^0^1.02^^^0
+87 ;;^UTILITY(U,$J,112,550,4)
+88 ;;=^0^.01^.12^.03^.03^.2^0^^0
+89 ;;^UTILITY(U,$J,112,550,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,551,0)
+92 ;;=SOUP, CREAM OF CHICKEN, CND, PREP W/EQ VOL WATER^6-416^cups^244^100^N
+93 ;;^UTILITY(U,$J,112,551,1)
+94 ;;=1.41^3.02^3.8^48^90.62^^^14^.25^1^15^36^404^.257^.051^.154^^230^.1^.012
+95 ;;^UTILITY(U,$J,112,551,2)
+96 ;;=.025^.336^.08^.007^.7^.04^.58^.03^4^.85^1.34^.61^23^1.17^^^.1
+97 ;;^UTILITY(U,$J,112,551,3)
+98 ;;=.017^.053^.07^.108^.088^.033^.021^.063^.048^.071^.068^.038^.061^.099^.319^.056^.105^.062
+99 ;;^UTILITY(U,$J,112,551,4)
+100 ;;=.01^.01^.06^.54^.12^.17^1.21
+101 ;;^UTILITY(U,$J,112,551,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,552,0)
+104 ;;=SOUP, CHICKEN GUMBO, CND, PREP W/EQ VOL WATER^6-417^cups^244^100^N
