FHINI0GQ ; ; 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,10137,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10138,0)
;;=POTATO,FRENCH FRIED,FRZN,CRINKLE CUTS,ORE-LDA^BC-03411^3-oz.^85
;;^UTILITY(U,$J,112,10138,1)
;;=2.471^7.647^26^182.353^63.294^^^^.965^^^455.294^21.176^^^^^^5.882^.106
;;^UTILITY(U,$J,112,10138,2)
;;=^2.235^^^^^^^0^1.294^5.294^1.059
;;^UTILITY(U,$J,112,10138,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10139,0)
;;=POTATO,FRENCH FRIED,FRZN,LITE CRINKLE CUTS,ORE-IDA^BC-03412^3-oz.^85
;;^UTILITY(U,$J,112,10139,1)
;;=2^2.118^19.176^104.706^75.882^^^^.824^^^365.882^25.882^^^^^^11.765^.106
;;^UTILITY(U,$J,112,10139,2)
;;=^2^^^^^^^0^.353^1.412^.353
;;^UTILITY(U,$J,112,10139,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10140,0)
;;=POTATO,FRENCH FRIED,FRZN,REGULAR CUT,ORE-LDA^BC-03413^3-oz.^85
;;^UTILITY(U,$J,112,10140,1)
;;=2.353^7.529^26.471^183.529^62.706^^^^.906^^^427.059^17.647^^^^^^8.235^.094
;;^UTILITY(U,$J,112,10140,2)
;;=^2.235^^^^^^^0^1.294^5.176^1.059
;;^UTILITY(U,$J,112,10140,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10141,0)
;;=POTATO,FRENCH FRIED,FRZN,SHOESTRING,ORE-LDA^BC-03414^3-oz.^85
;;^UTILITY(U,$J,112,10141,1)
;;=2.471^6.824^26^175.294^63.882^^^^1.094^^^391.765^18.824^^^^^^5.882^.106
;;^UTILITY(U,$J,112,10141,2)
;;=^2^^^^^^^0^1.176^4.706^.941
;;^UTILITY(U,$J,112,10141,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10142,0)
;;=POTATO,HASH BROWN,FRZN,ORE-LDA^BC-03415^3-oz.^85
;;^UTILITY(U,$J,112,10142,1)
;;=2^.118^17.647^80^79.412^^^^.753^^^451.765^31.765^^^^^^9.412^.094
;;^UTILITY(U,$J,112,10142,2)
;;=^1.882^^^^^^^0
;;^UTILITY(U,$J,112,10142,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10143,0)
;;=POTATO,HASH BROWN,FROZEN,ORE-LDA MICROWAVE^BC-03416^2-oz.^57
;;^UTILITY(U,$J,112,10143,1)
;;=2.281^11.754^22.456^205.263^62.105^^^^.947^^^382.456^233.333^^^^^^3.509^.07
;;^UTILITY(U,$J,112,10143,2)
;;=^1.579^^^^^^^0^2.105^8.246^1.579
;;^UTILITY(U,$J,112,10143,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10144,0)
;;=POTATO,HASH BROWN,SOUTHERN STYLE,FRZN,ORE-IDA^BC-03417^3-oz.^85
;;^UTILITY(U,$J,112,10144,1)
;;=1.765^.118^18.824^82.353^78.588^^^^.694^^^263.529^23.529^^^^^^5.882^.094
;;^UTILITY(U,$J,112,10144,2)
;;=^1.647^^^^^^^0
;;^UTILITY(U,$J,112,10144,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10145,0)
;;=POTATO,HASH BROWN,TOASTER,FRZN,ORE-LDA^BC-03418^1.75-oz.^50
;;^UTILITY(U,$J,112,10145,1)
;;=2^11.8^24.4^198^61.8^^^0^^^^270^346^^^^^^2^.08
;;^UTILITY(U,$J,112,10145,2)
;;=^2^^^^^^^6^5.4^4.4^.4
;;^UTILITY(U,$J,112,10145,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10146,0)
;;=POTATO,HASH BROWN W/CHEDDAR CHEESE,FRZN,ORE-IDA^BC-03419^3-oz.^85
;;^UTILITY(U,$J,112,10146,1)
;;=3.765^2.471^16^100^76.588^^^34.118^.835^^^418.824^429.412^^^^^42.353^5.882^.118
;;^UTILITY(U,$J,112,10146,2)
;;=.035^2.235^^^^^^^3.529^1.647^.706^.118
;;^UTILITY(U,$J,112,10146,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10147,0)
;;=POTATO,MASHED,FROM MIX,FRENCH'S^BC-03420^1/2-cup^105
;;^UTILITY(U,$J,112,10147,1)
;;=1.905^5.714^15.238^123.81^^^^^^^^257.143^323.81
;;^UTILITY(U,$J,112,10147,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10148,0)
;;=POTATO,MASHED,FROM MIX,HUNGRY JACK^BC-03421^1/2-cup^105
;;^UTILITY(U,$J,112,10148,1)
;;=2.857^6.667^16.19^133.333^^^^^^^^304.762^361.905
;;^UTILITY(U,$J,112,10148,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10149,0)
;;=POTATO,MASHED,FROM MIX,POTATO BUDS^BC-03422^1/2-cup^105
;;^UTILITY(U,$J,112,10149,1)
;;=2.857^5.714^16.19^123.81^^^^^^^^200^342.857
;;^UTILITY(U,$J,112,10149,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10150,0)
;;=POTATO,TATER TOTS,BACON FLAVORED,FROZEN,ORE-IDA^BC-03423^3-oz.^85
;;^UTILITY(U,$J,112,10150,1)
;;=2.941^7.647^22.706^170.588^64.588^^^16.471^.965^^^321.176^623.529^^^^^5.882^3.529^.529
;;^UTILITY(U,$J,112,10150,2)
;;=.035^1.765^^^^^^^0^1.294^5.176^1.059
;;^UTILITY(U,$J,112,10150,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10151,0)
;;=POTATO,TATER TOTS,FRZN,ORE-LDA^BC-03424^3-oz.^85
;;^UTILITY(U,$J,112,10151,1)
;;=2.118^7.765^23.294^171.765^65.059^^^^.906^^^303.529^471.765^^^^^^4.706^.071
;;^UTILITY(U,$J,112,10151,2)
;;=.012^1.647^^^^^^^0^1.412^5.412^1.059
FHINI0GQ ; ; 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,10137,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,10138,0)
+4 ;;=POTATO,FRENCH FRIED,FRZN,CRINKLE CUTS,ORE-LDA^BC-03411^3-oz.^85
+5 ;;^UTILITY(U,$J,112,10138,1)
+6 ;;=2.471^7.647^26^182.353^63.294^^^^.965^^^455.294^21.176^^^^^^5.882^.106
+7 ;;^UTILITY(U,$J,112,10138,2)
+8 ;;=^2.235^^^^^^^0^1.294^5.294^1.059
+9 ;;^UTILITY(U,$J,112,10138,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,10139,0)
+12 ;;=POTATO,FRENCH FRIED,FRZN,LITE CRINKLE CUTS,ORE-IDA^BC-03412^3-oz.^85
+13 ;;^UTILITY(U,$J,112,10139,1)
+14 ;;=2^2.118^19.176^104.706^75.882^^^^.824^^^365.882^25.882^^^^^^11.765^.106
+15 ;;^UTILITY(U,$J,112,10139,2)
+16 ;;=^2^^^^^^^0^.353^1.412^.353
+17 ;;^UTILITY(U,$J,112,10139,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,10140,0)
+20 ;;=POTATO,FRENCH FRIED,FRZN,REGULAR CUT,ORE-LDA^BC-03413^3-oz.^85
+21 ;;^UTILITY(U,$J,112,10140,1)
+22 ;;=2.353^7.529^26.471^183.529^62.706^^^^.906^^^427.059^17.647^^^^^^8.235^.094
+23 ;;^UTILITY(U,$J,112,10140,2)
+24 ;;=^2.235^^^^^^^0^1.294^5.176^1.059
+25 ;;^UTILITY(U,$J,112,10140,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,10141,0)
+28 ;;=POTATO,FRENCH FRIED,FRZN,SHOESTRING,ORE-LDA^BC-03414^3-oz.^85
+29 ;;^UTILITY(U,$J,112,10141,1)
+30 ;;=2.471^6.824^26^175.294^63.882^^^^1.094^^^391.765^18.824^^^^^^5.882^.106
+31 ;;^UTILITY(U,$J,112,10141,2)
+32 ;;=^2^^^^^^^0^1.176^4.706^.941
+33 ;;^UTILITY(U,$J,112,10141,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,10142,0)
+36 ;;=POTATO,HASH BROWN,FRZN,ORE-LDA^BC-03415^3-oz.^85
+37 ;;^UTILITY(U,$J,112,10142,1)
+38 ;;=2^.118^17.647^80^79.412^^^^.753^^^451.765^31.765^^^^^^9.412^.094
+39 ;;^UTILITY(U,$J,112,10142,2)
+40 ;;=^1.882^^^^^^^0
+41 ;;^UTILITY(U,$J,112,10142,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,10143,0)
+44 ;;=POTATO,HASH BROWN,FROZEN,ORE-LDA MICROWAVE^BC-03416^2-oz.^57
+45 ;;^UTILITY(U,$J,112,10143,1)
+46 ;;=2.281^11.754^22.456^205.263^62.105^^^^.947^^^382.456^233.333^^^^^^3.509^.07
+47 ;;^UTILITY(U,$J,112,10143,2)
+48 ;;=^1.579^^^^^^^0^2.105^8.246^1.579
+49 ;;^UTILITY(U,$J,112,10143,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,10144,0)
+52 ;;=POTATO,HASH BROWN,SOUTHERN STYLE,FRZN,ORE-IDA^BC-03417^3-oz.^85
+53 ;;^UTILITY(U,$J,112,10144,1)
+54 ;;=1.765^.118^18.824^82.353^78.588^^^^.694^^^263.529^23.529^^^^^^5.882^.094
+55 ;;^UTILITY(U,$J,112,10144,2)
+56 ;;=^1.647^^^^^^^0
+57 ;;^UTILITY(U,$J,112,10144,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,10145,0)
+60 ;;=POTATO,HASH BROWN,TOASTER,FRZN,ORE-LDA^BC-03418^1.75-oz.^50
+61 ;;^UTILITY(U,$J,112,10145,1)
+62 ;;=2^11.8^24.4^198^61.8^^^0^^^^270^346^^^^^^2^.08
+63 ;;^UTILITY(U,$J,112,10145,2)
+64 ;;=^2^^^^^^^6^5.4^4.4^.4
+65 ;;^UTILITY(U,$J,112,10145,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,10146,0)
+68 ;;=POTATO,HASH BROWN W/CHEDDAR CHEESE,FRZN,ORE-IDA^BC-03419^3-oz.^85
+69 ;;^UTILITY(U,$J,112,10146,1)
+70 ;;=3.765^2.471^16^100^76.588^^^34.118^.835^^^418.824^429.412^^^^^42.353^5.882^.118
+71 ;;^UTILITY(U,$J,112,10146,2)
+72 ;;=.035^2.235^^^^^^^3.529^1.647^.706^.118
+73 ;;^UTILITY(U,$J,112,10146,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,10147,0)
+76 ;;=POTATO,MASHED,FROM MIX,FRENCH'S^BC-03420^1/2-cup^105
+77 ;;^UTILITY(U,$J,112,10147,1)
+78 ;;=1.905^5.714^15.238^123.81^^^^^^^^257.143^323.81
+79 ;;^UTILITY(U,$J,112,10147,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,10148,0)
+82 ;;=POTATO,MASHED,FROM MIX,HUNGRY JACK^BC-03421^1/2-cup^105
+83 ;;^UTILITY(U,$J,112,10148,1)
+84 ;;=2.857^6.667^16.19^133.333^^^^^^^^304.762^361.905
+85 ;;^UTILITY(U,$J,112,10148,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,10149,0)
+88 ;;=POTATO,MASHED,FROM MIX,POTATO BUDS^BC-03422^1/2-cup^105
+89 ;;^UTILITY(U,$J,112,10149,1)
+90 ;;=2.857^5.714^16.19^123.81^^^^^^^^200^342.857
+91 ;;^UTILITY(U,$J,112,10149,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,10150,0)
+94 ;;=POTATO,TATER TOTS,BACON FLAVORED,FROZEN,ORE-IDA^BC-03423^3-oz.^85
+95 ;;^UTILITY(U,$J,112,10150,1)
+96 ;;=2.941^7.647^22.706^170.588^64.588^^^16.471^.965^^^321.176^623.529^^^^^5.882^3.529^.529
+97 ;;^UTILITY(U,$J,112,10150,2)
+98 ;;=.035^1.765^^^^^^^0^1.294^5.176^1.059
+99 ;;^UTILITY(U,$J,112,10150,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,10151,0)
+102 ;;=POTATO,TATER TOTS,FRZN,ORE-LDA^BC-03424^3-oz.^85
+103 ;;^UTILITY(U,$J,112,10151,1)
+104 ;;=2.118^7.765^23.294^171.765^65.059^^^^.906^^^303.529^471.765^^^^^^4.706^.071
+105 ;;^UTILITY(U,$J,112,10151,2)
+106 ;;=.012^1.647^^^^^^^0^1.412^5.412^1.059
