FHINI0GR ; ; 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,10151,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10152,0)
;;=POTATO,TATER TOTS FROZEN,ORE-LDA MICROWAVE^BC-03425^4-oz.^113
;;^UTILITY(U,$J,112,10152,1)
;;=2.035^7.965^25.221^180.531^63.097^^^^.726^^^311.504^513.274^^^^^^6.195^.08
;;^UTILITY(U,$J,112,10152,2)
;;=^1.947^^^^^^^0^1.416^5.487^1.062
;;^UTILITY(U,$J,112,10152,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10153,0)
;;=POTATO,TATER TOTS W/ONIONS,FRZN,ORE-LDA^BC-03426^3-oz.^85
;;^UTILITY(U,$J,112,10153,1)
;;=2.235^7.647^23.412^170.588^64.706^^^^1.094^^^298.824^609.412^^^^^^4.706^.082
;;^UTILITY(U,$J,112,10153,2)
;;=^1.765^^^^^^^0^1.294^5.176^1.059
;;^UTILITY(U,$J,112,10153,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10154,0)
;;=POTATO PATTIES,GOLDEN,FROZEN,ORE-LDA^BC-03427^3-oz.^85
;;^UTILITY(U,$J,112,10154,1)
;;=2.118^10.706^21.765^191.765^64.118^^^^.918^^^397.647^323.529^^^^^^7.059^.082
;;^UTILITY(U,$J,112,10154,2)
;;=^1.882^^^^^^^0^1.882^7.412^1.529
;;^UTILITY(U,$J,112,10154,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10155,0)
;;=POTATO SALAD,GERMAN STYLE,CND,JOAN OF ARC^BC-03428^1/2-cup^130
;;^UTILITY(U,$J,112,10155,1)
;;=1.538^2.308^18.615^96.923^76^^^11.538^.4^^30^190.769^436.923^^^^^22.308^1.538^.038
;;^UTILITY(U,$J,112,10155,2)
;;=.023^.692^^^^^^^^^^^^^^^1.308
;;^UTILITY(U,$J,112,10155,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10156,0)
;;=POTATO SALAD,HOME STYLE,CND,JOAN OF ARC^BC-03429^1/2-cup^120
;;^UTILITY(U,$J,112,10156,1)
;;=1.583^9.5^14.167^149.167^71^^^14.167^.8^^40.833^176.667^471.667^^^^^125.833^1.667^.033
;;^UTILITY(U,$J,112,10156,2)
;;=.033^1.417^^^^^^^^^^^^^^^1.333
;;^UTILITY(U,$J,112,10156,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10157,0)
;;=POTATO,WEDGES,HOME STYLE W/PEEL,FROZEN,ORE-IDA^BC-03430^3-oz.^85
;;^UTILITY(U,$J,112,10157,1)
;;=2.353^3.294^22.235^128.235^71.059^^^^.835^^^505.882^18.824^^^^^^11.765^.094
;;^UTILITY(U,$J,112,10157,2)
;;=^2.235^^^^^^^0^.588^2.353^.353
;;^UTILITY(U,$J,112,10157,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10158,0)
;;=POTATOES & BROCCOLI W/CHEESE SCE,FROZEN,PILSBURY^BC-03431^5.5-oz.^156
;;^UTILITY(U,$J,112,10158,1)
;;=2.564^3.205^12.179^83.333^^^^^^^^250^461.538
;;^UTILITY(U,$J,112,10158,2)
;;=^^^^^^^^3.205^^^1.282
;;^UTILITY(U,$J,112,10158,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10159,0)
;;=POTATOES,AU GRATIN,FROZEN,BANQUET^BC-03432^4-oz.^113
;;^UTILITY(U,$J,112,10159,1)
;;=1.77^1.77^15.044^86.726^^^^36.283^.354^^^112.389^417.699^^^^^16.814^0^.035
;;^UTILITY(U,$J,112,10159,2)
;;=.071^.265^^^^^^^13.274
;;^UTILITY(U,$J,112,10159,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10160,0)
;;=POTATOES,AU GRATIN,FRZN,PILLSBURY^BC-03433^5.5-oz.^156
;;^UTILITY(U,$J,112,10160,1)
;;=4.487^6.41^12.821^128.205^^^^^^^^237.179^358.974
;;^UTILITY(U,$J,112,10160,2)
;;=^^^^^^^^12.821^2.564^^1.282
;;^UTILITY(U,$J,112,10160,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10161,0)
;;=POTATOES,AU GRATIN,FROZEN,STOUFFERS^BC-03434^3-oz.^85
;;^UTILITY(U,$J,112,10161,1)
;;=4.588^5.529^13.059^120^75.059^^^120^.2^^^120^450.588^^^^^30.588^1.176^.047
;;^UTILITY(U,$J,112,10161,2)
;;=.129^.353^^^^^^^15.294
;;^UTILITY(U,$J,112,10161,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10162,0)
;;=POTATOES,O'BRIEN,FRZN,ORE-IDA^BC-03435^3-oz.^85
;;^UTILITY(U,$J,112,10162,1)
;;=1.529^.118^16.353^72.941^81.294^^^17.647^.647^^^222.353^20^^^^^127.059^15.294^.094
;;^UTILITY(U,$J,112,10162,2)
;;=.035^1.529^^^^^^^0
;;^UTILITY(U,$J,112,10162,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10163,0)
;;=POTATOES,SCALLOPED,FRZN,STOUFFERS^BC-03436^3-oz.^85
;;^UTILITY(U,$J,112,10163,1)
;;=3.647^3.765^14^104.706^77.059^^^90.588^.2^^^150.588^450.588^^^^^30.588^1.176^.047
;;^UTILITY(U,$J,112,10163,2)
;;=.106^.353^^^^^^^8.235
;;^UTILITY(U,$J,112,10163,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10164,0)
;;=POTATOES,SCALLOPED,FRZN,SWANSON^BC-03437^9-oz.^255
;;^UTILITY(U,$J,112,10164,1)
;;=7.569^5.176^11.451^122.745^^^^131.765^.51^^^112.941^366.667^^^^^78.824^5.49^.141
;;^UTILITY(U,$J,112,10164,2)
;;=.118^1.098
;;^UTILITY(U,$J,112,10164,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0GR ; ; 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,10151,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,10152,0)
+4 ;;=POTATO,TATER TOTS FROZEN,ORE-LDA MICROWAVE^BC-03425^4-oz.^113
+5 ;;^UTILITY(U,$J,112,10152,1)
+6 ;;=2.035^7.965^25.221^180.531^63.097^^^^.726^^^311.504^513.274^^^^^^6.195^.08
+7 ;;^UTILITY(U,$J,112,10152,2)
+8 ;;=^1.947^^^^^^^0^1.416^5.487^1.062
+9 ;;^UTILITY(U,$J,112,10152,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,10153,0)
+12 ;;=POTATO,TATER TOTS W/ONIONS,FRZN,ORE-LDA^BC-03426^3-oz.^85
+13 ;;^UTILITY(U,$J,112,10153,1)
+14 ;;=2.235^7.647^23.412^170.588^64.706^^^^1.094^^^298.824^609.412^^^^^^4.706^.082
+15 ;;^UTILITY(U,$J,112,10153,2)
+16 ;;=^1.765^^^^^^^0^1.294^5.176^1.059
+17 ;;^UTILITY(U,$J,112,10153,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,10154,0)
+20 ;;=POTATO PATTIES,GOLDEN,FROZEN,ORE-LDA^BC-03427^3-oz.^85
+21 ;;^UTILITY(U,$J,112,10154,1)
+22 ;;=2.118^10.706^21.765^191.765^64.118^^^^.918^^^397.647^323.529^^^^^^7.059^.082
+23 ;;^UTILITY(U,$J,112,10154,2)
+24 ;;=^1.882^^^^^^^0^1.882^7.412^1.529
+25 ;;^UTILITY(U,$J,112,10154,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,10155,0)
+28 ;;=POTATO SALAD,GERMAN STYLE,CND,JOAN OF ARC^BC-03428^1/2-cup^130
+29 ;;^UTILITY(U,$J,112,10155,1)
+30 ;;=1.538^2.308^18.615^96.923^76^^^11.538^.4^^30^190.769^436.923^^^^^22.308^1.538^.038
+31 ;;^UTILITY(U,$J,112,10155,2)
+32 ;;=.023^.692^^^^^^^^^^^^^^^1.308
+33 ;;^UTILITY(U,$J,112,10155,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,10156,0)
+36 ;;=POTATO SALAD,HOME STYLE,CND,JOAN OF ARC^BC-03429^1/2-cup^120
+37 ;;^UTILITY(U,$J,112,10156,1)
+38 ;;=1.583^9.5^14.167^149.167^71^^^14.167^.8^^40.833^176.667^471.667^^^^^125.833^1.667^.033
+39 ;;^UTILITY(U,$J,112,10156,2)
+40 ;;=.033^1.417^^^^^^^^^^^^^^^1.333
+41 ;;^UTILITY(U,$J,112,10156,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,10157,0)
+44 ;;=POTATO,WEDGES,HOME STYLE W/PEEL,FROZEN,ORE-IDA^BC-03430^3-oz.^85
+45 ;;^UTILITY(U,$J,112,10157,1)
+46 ;;=2.353^3.294^22.235^128.235^71.059^^^^.835^^^505.882^18.824^^^^^^11.765^.094
+47 ;;^UTILITY(U,$J,112,10157,2)
+48 ;;=^2.235^^^^^^^0^.588^2.353^.353
+49 ;;^UTILITY(U,$J,112,10157,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,10158,0)
+52 ;;=POTATOES & BROCCOLI W/CHEESE SCE,FROZEN,PILSBURY^BC-03431^5.5-oz.^156
+53 ;;^UTILITY(U,$J,112,10158,1)
+54 ;;=2.564^3.205^12.179^83.333^^^^^^^^250^461.538
+55 ;;^UTILITY(U,$J,112,10158,2)
+56 ;;=^^^^^^^^3.205^^^1.282
+57 ;;^UTILITY(U,$J,112,10158,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,10159,0)
+60 ;;=POTATOES,AU GRATIN,FROZEN,BANQUET^BC-03432^4-oz.^113
+61 ;;^UTILITY(U,$J,112,10159,1)
+62 ;;=1.77^1.77^15.044^86.726^^^^36.283^.354^^^112.389^417.699^^^^^16.814^0^.035
+63 ;;^UTILITY(U,$J,112,10159,2)
+64 ;;=.071^.265^^^^^^^13.274
+65 ;;^UTILITY(U,$J,112,10159,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,10160,0)
+68 ;;=POTATOES,AU GRATIN,FRZN,PILLSBURY^BC-03433^5.5-oz.^156
+69 ;;^UTILITY(U,$J,112,10160,1)
+70 ;;=4.487^6.41^12.821^128.205^^^^^^^^237.179^358.974
+71 ;;^UTILITY(U,$J,112,10160,2)
+72 ;;=^^^^^^^^12.821^2.564^^1.282
+73 ;;^UTILITY(U,$J,112,10160,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,10161,0)
+76 ;;=POTATOES,AU GRATIN,FROZEN,STOUFFERS^BC-03434^3-oz.^85
+77 ;;^UTILITY(U,$J,112,10161,1)
+78 ;;=4.588^5.529^13.059^120^75.059^^^120^.2^^^120^450.588^^^^^30.588^1.176^.047
+79 ;;^UTILITY(U,$J,112,10161,2)
+80 ;;=.129^.353^^^^^^^15.294
+81 ;;^UTILITY(U,$J,112,10161,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,10162,0)
+84 ;;=POTATOES,O'BRIEN,FRZN,ORE-IDA^BC-03435^3-oz.^85
+85 ;;^UTILITY(U,$J,112,10162,1)
+86 ;;=1.529^.118^16.353^72.941^81.294^^^17.647^.647^^^222.353^20^^^^^127.059^15.294^.094
+87 ;;^UTILITY(U,$J,112,10162,2)
+88 ;;=.035^1.529^^^^^^^0
+89 ;;^UTILITY(U,$J,112,10162,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,10163,0)
+92 ;;=POTATOES,SCALLOPED,FRZN,STOUFFERS^BC-03436^3-oz.^85
+93 ;;^UTILITY(U,$J,112,10163,1)
+94 ;;=3.647^3.765^14^104.706^77.059^^^90.588^.2^^^150.588^450.588^^^^^30.588^1.176^.047
+95 ;;^UTILITY(U,$J,112,10163,2)
+96 ;;=.106^.353^^^^^^^8.235
+97 ;;^UTILITY(U,$J,112,10163,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,10164,0)
+100 ;;=POTATOES,SCALLOPED,FRZN,SWANSON^BC-03437^9-oz.^255
+101 ;;^UTILITY(U,$J,112,10164,1)
+102 ;;=7.569^5.176^11.451^122.745^^^^131.765^.51^^^112.941^366.667^^^^^78.824^5.49^.141
+103 ;;^UTILITY(U,$J,112,10164,2)
+104 ;;=.118^1.098
+105 ;;^UTILITY(U,$J,112,10164,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
