FHINI062 ; ; 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,2086,0)
;;=SPINACH SOUFFLE^11-658^oz.^28.35^100^N
;;^UTILITY(U,$J,112,2086,1)
;;=8.08^13.5^2.08^161^73.94^^^169^.99^28^170^148^561^.95^.088^.807^^2545^2.2^.067
;;^UTILITY(U,$J,112,2086,2)
;;=.224^.351^.649^.088^45.5^1^2.081^.147^135^5.256^5.026^2.266^496^2.41
;;^UTILITY(U,$J,112,2086,3)
;;=.122^.337^.478^.731^.575^.219^.105^.422^.358^.529^.392^.23^.336^.603^1.602^.237^.645^.503
;;^UTILITY(U,$J,112,2086,4)
;;=.104^.1^.561^2.781^.236^1.255^4.71^.021
;;^UTILITY(U,$J,112,2086,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2087,0)
;;=ARTICHOKES, FRZ, CKD, W/SALT^11-703^buds^120^100^N
;;^UTILITY(U,$J,112,2087,1)
;;=3.11^.5^9.18^45^86.5^^^21^.56^31^61^264^289^.36^.061^.273^^164^5^.062
;;^UTILITY(U,$J,112,2087,2)
;;=.158^.915^.2^.087^118.8^0^.154^.058^0^.117^.015^.212^16^.71
;;^UTILITY(U,$J,112,2087,4)
;;=^.005^.005^.097^^.01^.015
;;^UTILITY(U,$J,112,2087,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2088,0)
;;=BROCCOLI, FLOWER CLUSTERS, RAW^11-740^cups^88^61^N
;;^UTILITY(U,$J,112,2088,1)
;;=2.98^.35^5.24^28^90.69^^^48^.88^25^66^325^27^.4^.045^.229^^3000^93.2^.065
;;^UTILITY(U,$J,112,2088,2)
;;=.119^.638^.535^.159^71^0^.038^.129^0^.054^.024^.167^300^.92
;;^UTILITY(U,$J,112,2088,3)
;;=.029^.091^.109^.131^.141^.034^.02^.084^.063^.128^.145^.05^.118^.213^.375^.095^.114^.1
;;^UTILITY(U,$J,112,2088,4)
;;=^^^.047^^.007^.024
;;^UTILITY(U,$J,112,2088,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2089,0)
;;=CABBAGE, RED, CKD, W/SALT^11-752^cups^75^100^N
;;^UTILITY(U,$J,112,2089,1)
;;=1.05^.2^4.64^21^93.6^^^37^.35^11^29^140^244^.15^.069^.129^^27^34.4^.034
;;^UTILITY(U,$J,112,2089,2)
;;=.02^.2^.22^.14^12.6^0^.039^.051^0^.026^.015^.095^3^.52
;;^UTILITY(U,$J,112,2089,3)
;;=.011^.036^.053^.054^.05^.011^.009^.034^.018^.045^.06^.021^.037^.103^.234^.023^.206^.061
;;^UTILITY(U,$J,112,2089,4)
;;=0^.001^.001^.021^0^.001^.014^0
;;^UTILITY(U,$J,112,2089,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2090,0)
;;=CARROTS, FRZ, CKD, W/SALT^11-760^cups^146^100^N
;;^UTILITY(U,$J,112,2090,1)
;;=1.19^.11^8.25^36^89.88^^^28^.47^10^26^158^295^.24^.073^.405^^17702^2.8^.027
;;^UTILITY(U,$J,112,2090,2)
;;=.037^.438^.161^.129^10.8^0^.046^.007^0^.021^.005^.053^1770^.58
;;^UTILITY(U,$J,112,2090,3)
;;=.013^.043^.047^.049^.046^.008^.01^.037^.023^.05^.049^.018^.068^.157^.232^.034^.033^.04
;;^UTILITY(U,$J,112,2090,4)
;;=^.001^.001^.016^.001^.001^.004
;;^UTILITY(U,$J,112,2090,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2091,0)
;;=CORN, CREAM STYLE, CND, DIET PK^11-772^cups^256^100^N
;;^UTILITY(U,$J,112,2091,1)
;;=1.74^.42^18.13^72^78.73^^^3^.38^17^51^134^3^.53^.052^.039^^97^4.6^.025
;;^UTILITY(U,$J,112,2091,2)
;;=.053^.96^.18^.063^44.8^0^.193^.006^0^.065^.123^.198^10^.98^^^5.5
;;^UTILITY(U,$J,112,2091,3)
;;=.012^.07^.07^.188^.074^.036^.014^.081^.066^.1^.071^.048^.159^.132^.343^.068^.158^.083
;;^UTILITY(U,$J,112,2091,4)
;;=^^^.061^^.004^.123
;;^UTILITY(U,$J,112,2091,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2092,0)
;;=MUSHROOMS, CKD, W/SALT^11-797^cups^156^100^N
;;^UTILITY(U,$J,112,2092,1)
;;=2.17^.47^5.14^27^91.08^^^6^1.74^12^87^356^238^.87^.504^.115^^0^4^.073
;;^UTILITY(U,$J,112,2092,2)
;;=.3^4.46^2.16^.095^18.2^0^.179^.001^0^.061^.008^.183^0^.99
;;^UTILITY(U,$J,112,2092,3)
;;=.051^.101^.089^.137^.227^.043^.006^.088^.048^.103^.111^.06^.168^.206^.383^.1^.158^.101
;;^UTILITY(U,$J,112,2092,4)
;;=.001^.005^.002^.03^^.01^.007
;;^UTILITY(U,$J,112,2092,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2093,0)
;;=PEAS, CHINESE (SNOW), CKD, W/SALT^11-809^cups^160^100^N
;;^UTILITY(U,$J,112,2093,1)
;;=3.27^.23^7.05^42^88.91^^^42^1.97^26^55^240^240^.37^.077^.168^^131^47.9^.128
;;^UTILITY(U,$J,112,2093,2)
;;=.076^.539^.673^.144^29.1^0^.085^.015^0^.044^.023^.1^13^.54
;;^UTILITY(U,$J,112,2093,3)
;;=.032^.115^.188^.267^.235^.013^.037^.105^.115^.319^.157^.02^.068^.267^.523^.084^.073^.146
;;^UTILITY(U,$J,112,2093,4)
;;=^^.002^.038^0^.003^.023
;;^UTILITY(U,$J,112,2093,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2094,0)
;;=PEAS AND CARROTS, CND, DIET PK^11-816^cups^255^100^N
;;^UTILITY(U,$J,112,2094,1)
;;=2.17^.27^8.48^38^88.15^^^23^.75^14^46^100^4^.58^.103^.357^^5770^6.6^.074
;;^UTILITY(U,$J,112,2094,2)
;;=.053^.581^.12^.088^18.3^0^.105^.023^0^.049^.023^.129^577^.93^^^3.3
;;^UTILITY(U,$J,112,2094,3)
;;=.016^.081^.079^.125^.123^.031^.013^.079^.045^.094^.164^.042^.098^.206^.307^.072^.069^.072
;;^UTILITY(U,$J,112,2094,4)
;;=^0^0^.043^0^.004^.022
FHINI062 ; ; 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,2086,0)
+2 ;;=SPINACH SOUFFLE^11-658^oz.^28.35^100^N
+3 ;;^UTILITY(U,$J,112,2086,1)
+4 ;;=8.08^13.5^2.08^161^73.94^^^169^.99^28^170^148^561^.95^.088^.807^^2545^2.2^.067
+5 ;;^UTILITY(U,$J,112,2086,2)
+6 ;;=.224^.351^.649^.088^45.5^1^2.081^.147^135^5.256^5.026^2.266^496^2.41
+7 ;;^UTILITY(U,$J,112,2086,3)
+8 ;;=.122^.337^.478^.731^.575^.219^.105^.422^.358^.529^.392^.23^.336^.603^1.602^.237^.645^.503
+9 ;;^UTILITY(U,$J,112,2086,4)
+10 ;;=.104^.1^.561^2.781^.236^1.255^4.71^.021
+11 ;;^UTILITY(U,$J,112,2086,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,2087,0)
+14 ;;=ARTICHOKES, FRZ, CKD, W/SALT^11-703^buds^120^100^N
+15 ;;^UTILITY(U,$J,112,2087,1)
+16 ;;=3.11^.5^9.18^45^86.5^^^21^.56^31^61^264^289^.36^.061^.273^^164^5^.062
+17 ;;^UTILITY(U,$J,112,2087,2)
+18 ;;=.158^.915^.2^.087^118.8^0^.154^.058^0^.117^.015^.212^16^.71
+19 ;;^UTILITY(U,$J,112,2087,4)
+20 ;;=^.005^.005^.097^^.01^.015
+21 ;;^UTILITY(U,$J,112,2087,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,2088,0)
+24 ;;=BROCCOLI, FLOWER CLUSTERS, RAW^11-740^cups^88^61^N
+25 ;;^UTILITY(U,$J,112,2088,1)
+26 ;;=2.98^.35^5.24^28^90.69^^^48^.88^25^66^325^27^.4^.045^.229^^3000^93.2^.065
+27 ;;^UTILITY(U,$J,112,2088,2)
+28 ;;=.119^.638^.535^.159^71^0^.038^.129^0^.054^.024^.167^300^.92
+29 ;;^UTILITY(U,$J,112,2088,3)
+30 ;;=.029^.091^.109^.131^.141^.034^.02^.084^.063^.128^.145^.05^.118^.213^.375^.095^.114^.1
+31 ;;^UTILITY(U,$J,112,2088,4)
+32 ;;=^^^.047^^.007^.024
+33 ;;^UTILITY(U,$J,112,2088,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,2089,0)
+36 ;;=CABBAGE, RED, CKD, W/SALT^11-752^cups^75^100^N
+37 ;;^UTILITY(U,$J,112,2089,1)
+38 ;;=1.05^.2^4.64^21^93.6^^^37^.35^11^29^140^244^.15^.069^.129^^27^34.4^.034
+39 ;;^UTILITY(U,$J,112,2089,2)
+40 ;;=.02^.2^.22^.14^12.6^0^.039^.051^0^.026^.015^.095^3^.52
+41 ;;^UTILITY(U,$J,112,2089,3)
+42 ;;=.011^.036^.053^.054^.05^.011^.009^.034^.018^.045^.06^.021^.037^.103^.234^.023^.206^.061
+43 ;;^UTILITY(U,$J,112,2089,4)
+44 ;;=0^.001^.001^.021^0^.001^.014^0
+45 ;;^UTILITY(U,$J,112,2089,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,2090,0)
+48 ;;=CARROTS, FRZ, CKD, W/SALT^11-760^cups^146^100^N
+49 ;;^UTILITY(U,$J,112,2090,1)
+50 ;;=1.19^.11^8.25^36^89.88^^^28^.47^10^26^158^295^.24^.073^.405^^17702^2.8^.027
+51 ;;^UTILITY(U,$J,112,2090,2)
+52 ;;=.037^.438^.161^.129^10.8^0^.046^.007^0^.021^.005^.053^1770^.58
+53 ;;^UTILITY(U,$J,112,2090,3)
+54 ;;=.013^.043^.047^.049^.046^.008^.01^.037^.023^.05^.049^.018^.068^.157^.232^.034^.033^.04
+55 ;;^UTILITY(U,$J,112,2090,4)
+56 ;;=^.001^.001^.016^.001^.001^.004
+57 ;;^UTILITY(U,$J,112,2090,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,2091,0)
+60 ;;=CORN, CREAM STYLE, CND, DIET PK^11-772^cups^256^100^N
+61 ;;^UTILITY(U,$J,112,2091,1)
+62 ;;=1.74^.42^18.13^72^78.73^^^3^.38^17^51^134^3^.53^.052^.039^^97^4.6^.025
+63 ;;^UTILITY(U,$J,112,2091,2)
+64 ;;=.053^.96^.18^.063^44.8^0^.193^.006^0^.065^.123^.198^10^.98^^^5.5
+65 ;;^UTILITY(U,$J,112,2091,3)
+66 ;;=.012^.07^.07^.188^.074^.036^.014^.081^.066^.1^.071^.048^.159^.132^.343^.068^.158^.083
+67 ;;^UTILITY(U,$J,112,2091,4)
+68 ;;=^^^.061^^.004^.123
+69 ;;^UTILITY(U,$J,112,2091,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,2092,0)
+72 ;;=MUSHROOMS, CKD, W/SALT^11-797^cups^156^100^N
+73 ;;^UTILITY(U,$J,112,2092,1)
+74 ;;=2.17^.47^5.14^27^91.08^^^6^1.74^12^87^356^238^.87^.504^.115^^0^4^.073
+75 ;;^UTILITY(U,$J,112,2092,2)
+76 ;;=.3^4.46^2.16^.095^18.2^0^.179^.001^0^.061^.008^.183^0^.99
+77 ;;^UTILITY(U,$J,112,2092,3)
+78 ;;=.051^.101^.089^.137^.227^.043^.006^.088^.048^.103^.111^.06^.168^.206^.383^.1^.158^.101
+79 ;;^UTILITY(U,$J,112,2092,4)
+80 ;;=.001^.005^.002^.03^^.01^.007
+81 ;;^UTILITY(U,$J,112,2092,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,2093,0)
+84 ;;=PEAS, CHINESE (SNOW), CKD, W/SALT^11-809^cups^160^100^N
+85 ;;^UTILITY(U,$J,112,2093,1)
+86 ;;=3.27^.23^7.05^42^88.91^^^42^1.97^26^55^240^240^.37^.077^.168^^131^47.9^.128
+87 ;;^UTILITY(U,$J,112,2093,2)
+88 ;;=.076^.539^.673^.144^29.1^0^.085^.015^0^.044^.023^.1^13^.54
+89 ;;^UTILITY(U,$J,112,2093,3)
+90 ;;=.032^.115^.188^.267^.235^.013^.037^.105^.115^.319^.157^.02^.068^.267^.523^.084^.073^.146
+91 ;;^UTILITY(U,$J,112,2093,4)
+92 ;;=^^.002^.038^0^.003^.023
+93 ;;^UTILITY(U,$J,112,2093,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2094,0)
+96 ;;=PEAS AND CARROTS, CND, DIET PK^11-816^cups^255^100^N
+97 ;;^UTILITY(U,$J,112,2094,1)
+98 ;;=2.17^.27^8.48^38^88.15^^^23^.75^14^46^100^4^.58^.103^.357^^5770^6.6^.074
+99 ;;^UTILITY(U,$J,112,2094,2)
+100 ;;=.053^.581^.12^.088^18.3^0^.105^.023^0^.049^.023^.129^577^.93^^^3.3
+101 ;;^UTILITY(U,$J,112,2094,3)
+102 ;;=.016^.081^.079^.125^.123^.031^.013^.079^.045^.094^.164^.042^.098^.206^.307^.072^.069^.072
+103 ;;^UTILITY(U,$J,112,2094,4)
+104 ;;=^0^0^.043^0^.004^.022
