FHINI033 ; ; 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,951,4)
;;=^^.001^.035^.001^.004^.029
;;^UTILITY(U,$J,112,951,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,952,0)
;;=CELERY, CKD W/SALT^11-764^cups^150^100^N
;;^UTILITY(U,$J,112,952,1)
;;=.83^.16^4.01^18^94.11^^^42^.42^12^25^284^327^.14^.036^.106^^132^6.1^.043
;;^UTILITY(U,$J,112,952,2)
;;=.047^.319^.195^.086^22^0^.075^^0^.04^.03^.075^13^.9
;;^UTILITY(U,$J,112,952,3)
;;=.011^.024^.025^.039^.032^.007^.005^.024^.011^.033^.024^.014^.027^.141^.107^.026^.022^.024
;;^UTILITY(U,$J,112,952,4)
;;=^^.001^.035^.001^.004^.029
;;^UTILITY(U,$J,112,952,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,953,0)
;;=CHARD, SWISS, RAW^11-147^cups^36^92^N
;;^UTILITY(U,$J,112,953,1)
;;=1.8^.2^3.74^19^92.66^^^51^1.8^81^46^379^213^.36^.179^.366^^3300^30^.04
;;^UTILITY(U,$J,112,953,2)
;;=.09^.4^.172^.099^13.8^0^^^0^^^^330^1.6^^^1.6
;;^UTILITY(U,$J,112,953,3)
;;=.017^.083^.147^.13^.099^.019^^.11^^.11^.117^.036
;;^UTILITY(U,$J,112,953,4)
;;=^^^^^^^^830
;;^UTILITY(U,$J,112,953,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,954,0)
;;=CHARD, SWISS, CKD WO/SALT^11-148^cups^175^100^N
;;^UTILITY(U,$J,112,954,1)
;;=1.88^.08^4.14^20^92.65^^^58^2.26^86^33^549^179^.33^.163^.334^^3139^18^.034
;;^UTILITY(U,$J,112,954,2)
;;=.086^.36^.163^.085^8.6^0^^^0^^^^314^1.26^^^2.1
;;^UTILITY(U,$J,112,954,3)
;;=.018^.086^.154^.135^.103^.02^^.114^^.114^.122^.038
;;^UTILITY(U,$J,112,954,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,955,0)
;;=CHARD, SWISS, CKD W/SALT^11-765^cups^175^100^N
;;^UTILITY(U,$J,112,955,1)
;;=1.88^.08^4.14^20^92.65^^^58^2.26^86^33^549^415^.33^.163^.334^^3139^18^.034
;;^UTILITY(U,$J,112,955,2)
;;=.086^.36^.163^.085^8.6^0^^^0^^^^314^1.26
;;^UTILITY(U,$J,112,955,3)
;;=.018^.086^.154^.135^.103^.02^^.114^^.114^.122^.038
;;^UTILITY(U,$J,112,955,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,956,0)
;;=CHARLOTTE RUSSE, WITH LADY FINGERS, WHIPPED CREAM FILLING^641-0^servings^114^100^N
;;^UTILITY(U,$J,112,956,1)
;;=5.9^14.6^33.5^286^45.5^^^46^1^^91^64^43^^^^^740^.3^.11
;;^UTILITY(U,$J,112,956,2)
;;=.15^.7^^^^^.6^^197^7.26^^^^.5
;;^UTILITY(U,$J,112,956,4)
;;=^^^^^^5.17
;;^UTILITY(U,$J,112,956,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,957,0)
;;=CHAYOTE, RAW (PEAR-SHAPED VEG, SQUASH FAMILY)^11-149^cups^132^99^N
;;^UTILITY(U,$J,112,957,1)
;;=.9^.3^5.4^24^93^^^19^.4^14^26^150^4^.35^.123^.189^^56^11^.03
;;^UTILITY(U,$J,112,957,2)
;;=.04^.5^.483^.132^27.6^0^^^0^^^^6^.4^^^3
;;^UTILITY(U,$J,112,957,3)
;;=.012^.044^.048^.084^.043^.001^^.052^.035^.069^.038^.016^.056^.101^.137^.045^.048^.051
;;^UTILITY(U,$J,112,957,4)
;;=^^^^^^^^200
;;^UTILITY(U,$J,112,957,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,958,0)
;;=CHEESE FONDUE, FROM HOME RECIPE^658-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,958,1)
;;=14.8^18.3^10^265^54.2^^^317^1.2^^294^165^542^^^^^880^0^.06
;;^UTILITY(U,$J,112,958,2)
;;=.34^.2^^^^^2^^224^9^^^^2.7
;;^UTILITY(U,$J,112,958,4)
;;=^^^^^^7
;;^UTILITY(U,$J,112,958,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,959,0)
;;=CHEESE SOUFFLE, FROM HOME RECIPE^659-0^servings^110^100^N
;;^UTILITY(U,$J,112,959,1)
;;=9.9^17.1^6.2^218^65^^^201^1^^195^121^364^^^^^800^0^.05
;;^UTILITY(U,$J,112,959,2)
;;=.24^.2^^^^^.65^^185^8.62^^^^1.8
;;^UTILITY(U,$J,112,959,4)
;;=^^^^^^6
;;^UTILITY(U,$J,112,959,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,960,0)
;;=CHEESE STRAWS, MADE W/VEG-S^660-1^pieces^6^100^N
;;^UTILITY(U,$J,112,960,1)
;;=11.2^29.9^34.5^453^21.7^^^259^2.2^^206^63^721^^^^^390^0^.23
;;^UTILITY(U,$J,112,960,2)
;;=.31^2.1^^^^^4.66^^32^10.61^^^^2.7
;;^UTILITY(U,$J,112,960,4)
;;=^^^^^^13.07
;;^UTILITY(U,$J,112,960,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,961,0)
;;=CHEESE STRAWS, MADE W/LARD^660-2^pieces^6^100^N
;;^UTILITY(U,$J,112,961,1)
;;=11.2^29.9^34.5^453^21.7^^^259^2.2^^206^63^721^^^^^390^0^.23
;;^UTILITY(U,$J,112,961,2)
;;=.31^2.1^^^^^2.39^^54^13.1^^^^2.7
;;^UTILITY(U,$J,112,961,4)
;;=^^^^^^12.32
;;^UTILITY(U,$J,112,961,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,962,0)
;;=CHERRIES, MARASCHINO^675-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,962,1)
;;=.2^.2^29.4^116^70^^^15^.3^^13^126^1^^^^^0^0^0
;;^UTILITY(U,$J,112,962,2)
;;=0^0^^^^^0^^0^0^^^^.2
;;^UTILITY(U,$J,112,962,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,962,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,963,0)
;;=CHEWING GUM^19-163^pieces^1.7^100^N
;;^UTILITY(U,$J,112,963,1)
;;=0^.3^96.7^341^2.6^^^0^0^0^0^4^6^0^0^0^^0^0^0
FHINI033 ; ; 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,951,4)
+2 ;;=^^.001^.035^.001^.004^.029
+3 ;;^UTILITY(U,$J,112,951,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,952,0)
+6 ;;=CELERY, CKD W/SALT^11-764^cups^150^100^N
+7 ;;^UTILITY(U,$J,112,952,1)
+8 ;;=.83^.16^4.01^18^94.11^^^42^.42^12^25^284^327^.14^.036^.106^^132^6.1^.043
+9 ;;^UTILITY(U,$J,112,952,2)
+10 ;;=.047^.319^.195^.086^22^0^.075^^0^.04^.03^.075^13^.9
+11 ;;^UTILITY(U,$J,112,952,3)
+12 ;;=.011^.024^.025^.039^.032^.007^.005^.024^.011^.033^.024^.014^.027^.141^.107^.026^.022^.024
+13 ;;^UTILITY(U,$J,112,952,4)
+14 ;;=^^.001^.035^.001^.004^.029
+15 ;;^UTILITY(U,$J,112,952,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,953,0)
+18 ;;=CHARD, SWISS, RAW^11-147^cups^36^92^N
+19 ;;^UTILITY(U,$J,112,953,1)
+20 ;;=1.8^.2^3.74^19^92.66^^^51^1.8^81^46^379^213^.36^.179^.366^^3300^30^.04
+21 ;;^UTILITY(U,$J,112,953,2)
+22 ;;=.09^.4^.172^.099^13.8^0^^^0^^^^330^1.6^^^1.6
+23 ;;^UTILITY(U,$J,112,953,3)
+24 ;;=.017^.083^.147^.13^.099^.019^^.11^^.11^.117^.036
+25 ;;^UTILITY(U,$J,112,953,4)
+26 ;;=^^^^^^^^830
+27 ;;^UTILITY(U,$J,112,953,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,954,0)
+30 ;;=CHARD, SWISS, CKD WO/SALT^11-148^cups^175^100^N
+31 ;;^UTILITY(U,$J,112,954,1)
+32 ;;=1.88^.08^4.14^20^92.65^^^58^2.26^86^33^549^179^.33^.163^.334^^3139^18^.034
+33 ;;^UTILITY(U,$J,112,954,2)
+34 ;;=.086^.36^.163^.085^8.6^0^^^0^^^^314^1.26^^^2.1
+35 ;;^UTILITY(U,$J,112,954,3)
+36 ;;=.018^.086^.154^.135^.103^.02^^.114^^.114^.122^.038
+37 ;;^UTILITY(U,$J,112,954,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,955,0)
+40 ;;=CHARD, SWISS, CKD W/SALT^11-765^cups^175^100^N
+41 ;;^UTILITY(U,$J,112,955,1)
+42 ;;=1.88^.08^4.14^20^92.65^^^58^2.26^86^33^549^415^.33^.163^.334^^3139^18^.034
+43 ;;^UTILITY(U,$J,112,955,2)
+44 ;;=.086^.36^.163^.085^8.6^0^^^0^^^^314^1.26
+45 ;;^UTILITY(U,$J,112,955,3)
+46 ;;=.018^.086^.154^.135^.103^.02^^.114^^.114^.122^.038
+47 ;;^UTILITY(U,$J,112,955,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,956,0)
+50 ;;=CHARLOTTE RUSSE, WITH LADY FINGERS, WHIPPED CREAM FILLING^641-0^servings^114^100^N
+51 ;;^UTILITY(U,$J,112,956,1)
+52 ;;=5.9^14.6^33.5^286^45.5^^^46^1^^91^64^43^^^^^740^.3^.11
+53 ;;^UTILITY(U,$J,112,956,2)
+54 ;;=.15^.7^^^^^.6^^197^7.26^^^^.5
+55 ;;^UTILITY(U,$J,112,956,4)
+56 ;;=^^^^^^5.17
+57 ;;^UTILITY(U,$J,112,956,20)
+58 ;;=USDA Std. Reference, Release 8
+59 ;;^UTILITY(U,$J,112,957,0)
+60 ;;=CHAYOTE, RAW (PEAR-SHAPED VEG, SQUASH FAMILY)^11-149^cups^132^99^N
+61 ;;^UTILITY(U,$J,112,957,1)
+62 ;;=.9^.3^5.4^24^93^^^19^.4^14^26^150^4^.35^.123^.189^^56^11^.03
+63 ;;^UTILITY(U,$J,112,957,2)
+64 ;;=.04^.5^.483^.132^27.6^0^^^0^^^^6^.4^^^3
+65 ;;^UTILITY(U,$J,112,957,3)
+66 ;;=.012^.044^.048^.084^.043^.001^^.052^.035^.069^.038^.016^.056^.101^.137^.045^.048^.051
+67 ;;^UTILITY(U,$J,112,957,4)
+68 ;;=^^^^^^^^200
+69 ;;^UTILITY(U,$J,112,957,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,958,0)
+72 ;;=CHEESE FONDUE, FROM HOME RECIPE^658-0^oz.^28.3^100^N
+73 ;;^UTILITY(U,$J,112,958,1)
+74 ;;=14.8^18.3^10^265^54.2^^^317^1.2^^294^165^542^^^^^880^0^.06
+75 ;;^UTILITY(U,$J,112,958,2)
+76 ;;=.34^.2^^^^^2^^224^9^^^^2.7
+77 ;;^UTILITY(U,$J,112,958,4)
+78 ;;=^^^^^^7
+79 ;;^UTILITY(U,$J,112,958,20)
+80 ;;=USDA Std. Reference, Release 8
+81 ;;^UTILITY(U,$J,112,959,0)
+82 ;;=CHEESE SOUFFLE, FROM HOME RECIPE^659-0^servings^110^100^N
+83 ;;^UTILITY(U,$J,112,959,1)
+84 ;;=9.9^17.1^6.2^218^65^^^201^1^^195^121^364^^^^^800^0^.05
+85 ;;^UTILITY(U,$J,112,959,2)
+86 ;;=.24^.2^^^^^.65^^185^8.62^^^^1.8
+87 ;;^UTILITY(U,$J,112,959,4)
+88 ;;=^^^^^^6
+89 ;;^UTILITY(U,$J,112,959,20)
+90 ;;=USDA Std. Reference, Release 8
+91 ;;^UTILITY(U,$J,112,960,0)
+92 ;;=CHEESE STRAWS, MADE W/VEG-S^660-1^pieces^6^100^N
+93 ;;^UTILITY(U,$J,112,960,1)
+94 ;;=11.2^29.9^34.5^453^21.7^^^259^2.2^^206^63^721^^^^^390^0^.23
+95 ;;^UTILITY(U,$J,112,960,2)
+96 ;;=.31^2.1^^^^^4.66^^32^10.61^^^^2.7
+97 ;;^UTILITY(U,$J,112,960,4)
+98 ;;=^^^^^^13.07
+99 ;;^UTILITY(U,$J,112,960,20)
+100 ;;=USDA Std. Reference, Release 8
+101 ;;^UTILITY(U,$J,112,961,0)
+102 ;;=CHEESE STRAWS, MADE W/LARD^660-2^pieces^6^100^N
+103 ;;^UTILITY(U,$J,112,961,1)
+104 ;;=11.2^29.9^34.5^453^21.7^^^259^2.2^^206^63^721^^^^^390^0^.23
+105 ;;^UTILITY(U,$J,112,961,2)
+106 ;;=.31^2.1^^^^^2.39^^54^13.1^^^^2.7
+107 ;;^UTILITY(U,$J,112,961,4)
+108 ;;=^^^^^^12.32
+109 ;;^UTILITY(U,$J,112,961,20)
+110 ;;=USDA Std. Reference, Release 8
+111 ;;^UTILITY(U,$J,112,962,0)
+112 ;;=CHERRIES, MARASCHINO^675-0^oz.^28.3^100^N
+113 ;;^UTILITY(U,$J,112,962,1)
+114 ;;=.2^.2^29.4^116^70^^^15^.3^^13^126^1^^^^^0^0^0
+115 ;;^UTILITY(U,$J,112,962,2)
+116 ;;=0^0^^^^^0^^0^0^^^^.2
+117 ;;^UTILITY(U,$J,112,962,4)
+118 ;;=^^^^^^0
+119 ;;^UTILITY(U,$J,112,962,20)
+120 ;;=USDA Std. Reference, Release 8
+121 ;;^UTILITY(U,$J,112,963,0)
+122 ;;=CHEWING GUM^19-163^pieces^1.7^100^N
+123 ;;^UTILITY(U,$J,112,963,1)
+124 ;;=0^.3^96.7^341^2.6^^^0^0^0^0^4^6^0^0^0^^0^0^0
