FHINI071 ; ; 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,2452,4)
;;=.03^.03^.1^.27^.02^.1^.23^0
;;^UTILITY(U,$J,112,2452,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2453,0)
;;=BF, DESSERT, CHERRY VANILLA PUDDING, STRAINED^3-224^jars^135^100^N
;;^UTILITY(U,$J,112,2453,1)
;;=.2^.3^17.8^68^81.5^^^5^.19^2^7^34^16^.04^^^^200^1.1^.008
;;^UTILITY(U,$J,112,2453,2)
;;=.011^.038^^.011^.3^^^^^^^^20^.2^^^.3
;;^UTILITY(U,$J,112,2453,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2454,0)
;;=BF, DESSERT, CHERRY VANILLA PUDDING, JUNIOR^3-225^jars^220^100^N
;;^UTILITY(U,$J,112,2454,1)
;;=.2^.2^18.4^69^81^^^5^.17^2^7^33^15^.03^^^^200^1.1^.007
;;^UTILITY(U,$J,112,2454,2)
;;=.011^.038^^.012^.3^^^^^^^^20^.2^^^.3
;;^UTILITY(U,$J,112,2454,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2455,0)
;;=BF, DESSERT, FRUIT PUDDING, ORANGE, STR^3-226^jars^135^100^N
;;^UTILITY(U,$J,112,2455,1)
;;=1.1^.9^17.7^80^79.8^^^32^.1^5^28^86^20^.17^.05^^^115^9.1^.04
;;^UTILITY(U,$J,112,2455,2)
;;=.057^.119^.251^.027^7.8^.01^^^^^^^12^.6^^^.6
;;^UTILITY(U,$J,112,2455,3)
;;=^.045^.057^.113^.09^.015^^.042^.045^.07^.085^.031^.044^.132^.225^.027^.118^.062
;;^UTILITY(U,$J,112,2455,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2456,0)
;;=BF, DESSERT, PEACH COBBLER, STRAINED^3-227^jars^135^100^N
;;^UTILITY(U,$J,112,2456,1)
;;=.3^0^17.8^65^81.8^^^4^.1^2^5^54^7^.3^.19^^^142^20.5^.009
;;^UTILITY(U,$J,112,2456,2)
;;=.014^.259^^.007^1.1^0^^^^^^^14^.2^^^.7
;;^UTILITY(U,$J,112,2456,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2457,0)
;;=BF, DESSERT, PEACH COBBLER, JUNIOR^3-228^jars^220^100^N
;;^UTILITY(U,$J,112,2457,1)
;;=.3^0^18.3^67^81.2^^^4^.1^2^6^56^9^.03^.196^^^142^20.5^.01
;;^UTILITY(U,$J,112,2457,2)
;;=.015^.259^^.007^1.1^0^^^^^^^14^.2^^^.7
;;^UTILITY(U,$J,112,2457,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2458,0)
;;=BF, DESSERT, PEACH MELBA, STRAINED^3-229^jars^135^100^N
;;^UTILITY(U,$J,112,2458,1)
;;=.2^0^16.5^60^82.9^^^10^.33^2^5^83^9^.282^.178^^^184^31.4^.006
;;^UTILITY(U,$J,112,2458,2)
;;=.036^.343^^.006^1.9^0^^^^^^^18^.3
;;^UTILITY(U,$J,112,2458,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2459,0)
;;=BF, DESSERT, PEACH MELBA, JUNIOR^3-230^jars^220^100^N
;;^UTILITY(U,$J,112,2459,1)
;;=.3^0^16.4^60^83^^^11^.3^2^5^93^9^.28^.177^^^196^26^.007
;;^UTILITY(U,$J,112,2459,2)
;;=.03^.272^^.006^1.9^0^^^^^^^20^.4
;;^UTILITY(U,$J,112,2459,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2460,0)
;;=BF, DESSERT, PINEAPPLE ORANGE, STRAINED^3-231^jars^128^100^N
;;^UTILITY(U,$J,112,2460,1)
;;=.2^0^19.1^70^80.5^^^11^.18^4^4^47^10^.174^.02^^^57^14.3^.015
;;^UTILITY(U,$J,112,2460,2)
;;=.022^.047^.167^.035^2.6^.05^^^^^^^6^.2^^^.4
;;^UTILITY(U,$J,112,2460,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2461,0)
;;=BF, DESSERT, FRUIT PUDDING, PINEAPPLE, STR^3-233^jars^128^100^N
;;^UTILITY(U,$J,112,2461,1)
;;=1.3^.3^20.3^81^77.6^^^31^.18^9^31^81^19^.2^.023^^^40^27.2^.038
;;^UTILITY(U,$J,112,2461,2)
;;=.046^.107^.192^.04^5.2^.06^^^^^^^4^.5^^^.7
;;^UTILITY(U,$J,112,2461,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2462,0)
;;=BF, DESSERT, FRUIT PUDDING, PINEAPPLE, JNR^3-234^jars^220^100^N
;;^UTILITY(U,$J,112,2462,1)
;;=1.4^.4^21.6^87^76.1^^^34^.19^9^30^90^22^.19^.024^^^37^26.7^.042
;;^UTILITY(U,$J,112,2462,2)
;;=.048^.123^.205^.04^5.6^.06^^^^^^^4^.5^^^.8
;;^UTILITY(U,$J,112,2462,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2463,0)
;;=BF, DESSERT, FRUIT DESSERT, WO/ASCORBIC ACID, STR^3-235^jars^135^100^N
;;^UTILITY(U,$J,112,2463,1)
;;=.3^0^16^59^83.4^^^9^.22^5^7^94^14^.04^.03^^^251^2.5^.016
;;^UTILITY(U,$J,112,2463,2)
;;=.009^.143^.104^.037^3.3^0^^^^^^^25^.3^^^.6
;;^UTILITY(U,$J,112,2463,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2464,0)
;;=BF, DESSERT, FRUIT DESSERT, WO/ASCORBIC ACID, JNR^3-236^jars^220^100^N
;;^UTILITY(U,$J,112,2464,1)
;;=.3^0^17.2^63^82.2^^^9^.21^5^8^95^13^.05^.03^^^239^3^.021
;;^UTILITY(U,$J,112,2464,2)
;;=.012^.144^.1^.033^3.5^0^^^^^^^24^.3^^^.6
;;^UTILITY(U,$J,112,2464,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2465,0)
;;=BF, DESSERT, TROPICAL FRUIT, JUNIOR^3-238^jars^220^100^N
;;^UTILITY(U,$J,112,2465,1)
;;=.2^0^16.4^60^83.2^^^10^.26^5^8^58^7^.047^.028^^^20^18.8^.011
;;^UTILITY(U,$J,112,2465,2)
;;=.031^.08^.094^.031^3.3^0^^^^^^^2^.2
;;^UTILITY(U,$J,112,2465,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2466,0)
;;=BF, DESSERT, CARAMEL PUDDING, STRAINED^3-241^jars^135^100^N
FHINI071 ; ; 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,2452,4)
+2 ;;=.03^.03^.1^.27^.02^.1^.23^0
+3 ;;^UTILITY(U,$J,112,2452,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,2453,0)
+6 ;;=BF, DESSERT, CHERRY VANILLA PUDDING, STRAINED^3-224^jars^135^100^N
+7 ;;^UTILITY(U,$J,112,2453,1)
+8 ;;=.2^.3^17.8^68^81.5^^^5^.19^2^7^34^16^.04^^^^200^1.1^.008
+9 ;;^UTILITY(U,$J,112,2453,2)
+10 ;;=.011^.038^^.011^.3^^^^^^^^20^.2^^^.3
+11 ;;^UTILITY(U,$J,112,2453,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,2454,0)
+14 ;;=BF, DESSERT, CHERRY VANILLA PUDDING, JUNIOR^3-225^jars^220^100^N
+15 ;;^UTILITY(U,$J,112,2454,1)
+16 ;;=.2^.2^18.4^69^81^^^5^.17^2^7^33^15^.03^^^^200^1.1^.007
+17 ;;^UTILITY(U,$J,112,2454,2)
+18 ;;=.011^.038^^.012^.3^^^^^^^^20^.2^^^.3
+19 ;;^UTILITY(U,$J,112,2454,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,2455,0)
+22 ;;=BF, DESSERT, FRUIT PUDDING, ORANGE, STR^3-226^jars^135^100^N
+23 ;;^UTILITY(U,$J,112,2455,1)
+24 ;;=1.1^.9^17.7^80^79.8^^^32^.1^5^28^86^20^.17^.05^^^115^9.1^.04
+25 ;;^UTILITY(U,$J,112,2455,2)
+26 ;;=.057^.119^.251^.027^7.8^.01^^^^^^^12^.6^^^.6
+27 ;;^UTILITY(U,$J,112,2455,3)
+28 ;;=^.045^.057^.113^.09^.015^^.042^.045^.07^.085^.031^.044^.132^.225^.027^.118^.062
+29 ;;^UTILITY(U,$J,112,2455,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,2456,0)
+32 ;;=BF, DESSERT, PEACH COBBLER, STRAINED^3-227^jars^135^100^N
+33 ;;^UTILITY(U,$J,112,2456,1)
+34 ;;=.3^0^17.8^65^81.8^^^4^.1^2^5^54^7^.3^.19^^^142^20.5^.009
+35 ;;^UTILITY(U,$J,112,2456,2)
+36 ;;=.014^.259^^.007^1.1^0^^^^^^^14^.2^^^.7
+37 ;;^UTILITY(U,$J,112,2456,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,2457,0)
+40 ;;=BF, DESSERT, PEACH COBBLER, JUNIOR^3-228^jars^220^100^N
+41 ;;^UTILITY(U,$J,112,2457,1)
+42 ;;=.3^0^18.3^67^81.2^^^4^.1^2^6^56^9^.03^.196^^^142^20.5^.01
+43 ;;^UTILITY(U,$J,112,2457,2)
+44 ;;=.015^.259^^.007^1.1^0^^^^^^^14^.2^^^.7
+45 ;;^UTILITY(U,$J,112,2457,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,2458,0)
+48 ;;=BF, DESSERT, PEACH MELBA, STRAINED^3-229^jars^135^100^N
+49 ;;^UTILITY(U,$J,112,2458,1)
+50 ;;=.2^0^16.5^60^82.9^^^10^.33^2^5^83^9^.282^.178^^^184^31.4^.006
+51 ;;^UTILITY(U,$J,112,2458,2)
+52 ;;=.036^.343^^.006^1.9^0^^^^^^^18^.3
+53 ;;^UTILITY(U,$J,112,2458,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2459,0)
+56 ;;=BF, DESSERT, PEACH MELBA, JUNIOR^3-230^jars^220^100^N
+57 ;;^UTILITY(U,$J,112,2459,1)
+58 ;;=.3^0^16.4^60^83^^^11^.3^2^5^93^9^.28^.177^^^196^26^.007
+59 ;;^UTILITY(U,$J,112,2459,2)
+60 ;;=.03^.272^^.006^1.9^0^^^^^^^20^.4
+61 ;;^UTILITY(U,$J,112,2459,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,2460,0)
+64 ;;=BF, DESSERT, PINEAPPLE ORANGE, STRAINED^3-231^jars^128^100^N
+65 ;;^UTILITY(U,$J,112,2460,1)
+66 ;;=.2^0^19.1^70^80.5^^^11^.18^4^4^47^10^.174^.02^^^57^14.3^.015
+67 ;;^UTILITY(U,$J,112,2460,2)
+68 ;;=.022^.047^.167^.035^2.6^.05^^^^^^^6^.2^^^.4
+69 ;;^UTILITY(U,$J,112,2460,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,2461,0)
+72 ;;=BF, DESSERT, FRUIT PUDDING, PINEAPPLE, STR^3-233^jars^128^100^N
+73 ;;^UTILITY(U,$J,112,2461,1)
+74 ;;=1.3^.3^20.3^81^77.6^^^31^.18^9^31^81^19^.2^.023^^^40^27.2^.038
+75 ;;^UTILITY(U,$J,112,2461,2)
+76 ;;=.046^.107^.192^.04^5.2^.06^^^^^^^4^.5^^^.7
+77 ;;^UTILITY(U,$J,112,2461,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2462,0)
+80 ;;=BF, DESSERT, FRUIT PUDDING, PINEAPPLE, JNR^3-234^jars^220^100^N
+81 ;;^UTILITY(U,$J,112,2462,1)
+82 ;;=1.4^.4^21.6^87^76.1^^^34^.19^9^30^90^22^.19^.024^^^37^26.7^.042
+83 ;;^UTILITY(U,$J,112,2462,2)
+84 ;;=.048^.123^.205^.04^5.6^.06^^^^^^^4^.5^^^.8
+85 ;;^UTILITY(U,$J,112,2462,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,2463,0)
+88 ;;=BF, DESSERT, FRUIT DESSERT, WO/ASCORBIC ACID, STR^3-235^jars^135^100^N
+89 ;;^UTILITY(U,$J,112,2463,1)
+90 ;;=.3^0^16^59^83.4^^^9^.22^5^7^94^14^.04^.03^^^251^2.5^.016
+91 ;;^UTILITY(U,$J,112,2463,2)
+92 ;;=.009^.143^.104^.037^3.3^0^^^^^^^25^.3^^^.6
+93 ;;^UTILITY(U,$J,112,2463,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2464,0)
+96 ;;=BF, DESSERT, FRUIT DESSERT, WO/ASCORBIC ACID, JNR^3-236^jars^220^100^N
+97 ;;^UTILITY(U,$J,112,2464,1)
+98 ;;=.3^0^17.2^63^82.2^^^9^.21^5^8^95^13^.05^.03^^^239^3^.021
+99 ;;^UTILITY(U,$J,112,2464,2)
+100 ;;=.012^.144^.1^.033^3.5^0^^^^^^^24^.3^^^.6
+101 ;;^UTILITY(U,$J,112,2464,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,2465,0)
+104 ;;=BF, DESSERT, TROPICAL FRUIT, JUNIOR^3-238^jars^220^100^N
+105 ;;^UTILITY(U,$J,112,2465,1)
+106 ;;=.2^0^16.4^60^83.2^^^10^.26^5^8^58^7^.047^.028^^^20^18.8^.011
+107 ;;^UTILITY(U,$J,112,2465,2)
+108 ;;=.031^.08^.094^.031^3.3^0^^^^^^^2^.2
+109 ;;^UTILITY(U,$J,112,2465,20)
+110 ;;=USDA Std. Reference, Release 10
+111 ;;^UTILITY(U,$J,112,2466,0)
+112 ;;=BF, DESSERT, CARAMEL PUDDING, STRAINED^3-241^jars^135^100^N
