FHINI0GG ; ; 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,10012,1)
;;=5.286^2.247^22.511^131.278^^^^88.106^2.159^^^179.736^387.225^^^^^0^2.203^.035
;;^UTILITY(U,$J,112,10012,2)
;;=.057^.22^^^^^^^^^^^^^^^4.581
;;^UTILITY(U,$J,112,10012,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10013,0)
;;=BEANS,CND,'N FIXINS,HUNT'S BIG JOHN^BC-03286^4-oz.^113
;;^UTILITY(U,$J,112,10013,1)
;;=4.425^5.31^23.009^150.442^^^^35.398^1.681^^^362.832^433.628^^^^^^7.965^.159
;;^UTILITY(U,$J,112,10013,2)
;;=.071^1.062^^^^^^^5.31^1.858^^.708^35.398^^^^5.31
;;^UTILITY(U,$J,112,10013,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10014,0)
;;=BEANS,CND,RANCHERO,CAMPBELL'S^BC-03287^7.8-oz.^220
;;^UTILITY(U,$J,112,10014,1)
;;=4.455^1.773^17.045^101.818^^^^44.545^1.591^^^255.455^393.182^^^^^367.727^3.182^.045
;;^UTILITY(U,$J,112,10014,2)
;;=.032^.182^^^^^^^^^^^^^^^4.682
;;^UTILITY(U,$J,112,10014,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10015,0)
;;=BEANS,CND,VEGETARIAN STYLE,VAN CAMP'S^BC-03288^cup^227
;;^UTILITY(U,$J,112,10015,1)
;;=4.802^.264^18.502^90.749^74.802^^^44.053^1.586^^^265.198^418.502^^^^^78.855^.881^.057
;;^UTILITY(U,$J,112,10015,2)
;;=.053^.441
;;^UTILITY(U,$J,112,10015,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10016,0)
;;=BEANS,CND,W/BROWN SUGAR,VAN CAMP'S^BC-03289^cup^227
;;^UTILITY(U,$J,112,10016,1)
;;=5.11^2.247^22.467^127.753^68.678^^^53.304^1.189^^^235.683^303.965^^^^^0^0^.04
;;^UTILITY(U,$J,112,10016,2)
;;=.062^.396
;;^UTILITY(U,$J,112,10016,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10017,0)
;;=BEANS,CND,W/MOLASSES&BROWN SUGAR,CAMPBELL'S^BC-03290^8-oz.^227
;;^UTILITY(U,$J,112,10017,1)
;;=4.978^1.322^21.322^116.74^^^^57.269^1.85^^^256.828^414.097^^^^^56.828^3.524^.026
;;^UTILITY(U,$J,112,10017,2)
;;=.026^.352^^^^^^^1.322^.793^^.308^^^^^5.595
;;^UTILITY(U,$J,112,10017,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10018,0)
;;=BEANS,CND,W/PORK & TOMATO SCE,CAMPBELL'S^BC-03291^8-oz.^227
;;^UTILITY(U,$J,112,10018,1)
;;=4.493^1.233^18.943^104.846^^^^42.291^1.498^^^174.009^338.767^^^^^204.846^1.322^.053
;;^UTILITY(U,$J,112,10018,2)
;;=.026^.441^^^^^^^.881^.529^^.264^^^^^4.67
;;^UTILITY(U,$J,112,10018,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10019,0)
;;=BEANS,CND,W/PORK & TOMATO SCE,JOAN OF ARC^BC-03292^1/2-cup^133
;;^UTILITY(U,$J,112,10019,1)
;;=4.211^.902^18.271^78.195^75.038^^^45.113^1.203^^60.902^161.654^318.797^^^^^27.068^.752^.038
;;^UTILITY(U,$J,112,10019,2)
;;=.03^.602^^^^^^^^^^^^^^^5.188
;;^UTILITY(U,$J,112,10019,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10020,0)
;;=BEANS,CND,W/PORK & TOMATO SCE,VAN CAMP'S^BC-03293^cup^227
;;^UTILITY(U,$J,112,10020,1)
;;=4.802^.837^18.062^95.154^74.405^^^44.053^1.89^^^248.018^440.529^^^^^72.247^.881^.053
;;^UTILITY(U,$J,112,10020,2)
;;=5.286^.441^^^^^^^0^^^^^^^^4.361
;;^UTILITY(U,$J,112,10020,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10021,0)
;;=BEANS,REFRIED,CND,GEBHARDT^BC-03294^4-oz.^113
;;^UTILITY(U,$J,112,10021,1)
;;=6.195^1.77^17.699^88.496^^^^16.814^1.681^^^115.044^433.628^^^^^^1.77^.177
;;^UTILITY(U,$J,112,10021,2)
;;=.062^.442^^^^^^^1.77^.708^^.265^^^^^5.31
;;^UTILITY(U,$J,112,10021,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10022,0)
;;=BEANS,REFRIED,CND,JALAPENO,GEBHARDT^BC-03295^4-oz.^113
;;^UTILITY(U,$J,112,10022,1)
;;=5.31^1.77^16.814^101.77^^^^32.743^1.681^^^353.982^238.938^^^^^^1.77^.159
;;^UTILITY(U,$J,112,10022,2)
;;=.062^.442^^^^^^^1.77^.619^^.265^7.08^^^^5.31
;;^UTILITY(U,$J,112,10022,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10023,0)
;;=BEANS,REFRIED,CND,SPICY,ROSARITA^BC-03296^4-oz.^113
;;^UTILITY(U,$J,112,10023,1)
;;=6.195^1.77^18.584^115.044^^^^39.823^1.77^^^407.08^407.08^^^^^^13.274^.159
;;^UTILITY(U,$J,112,10023,2)
;;=.071^.531^^^^^^^1.77^.708^^.265^17.699^^^^5.31
;;^UTILITY(U,$J,112,10023,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10024,0)
;;=BEANS,REFRIED,CND,VEGETARIAN,ROSARITA^BC-03297^4-oz.^113
;;^UTILITY(U,$J,112,10024,1)
;;=6.195^1.77^16.814^106.195^^^^37.168^2.389^^^380.531^415.929^^^^^^1.77^.177
;;^UTILITY(U,$J,112,10024,2)
;;=.062^.442^^^^^^^0^.442^^.885^0^^^^5.31
;;^UTILITY(U,$J,112,10024,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,10025,0)
;;=BEANS,REFRIED,CND,W/BACON,ROSARITA^BC-03298^4-oz.^113
FHINI0GG ; ; 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,10012,1)
+2 ;;=5.286^2.247^22.511^131.278^^^^88.106^2.159^^^179.736^387.225^^^^^0^2.203^.035
+3 ;;^UTILITY(U,$J,112,10012,2)
+4 ;;=.057^.22^^^^^^^^^^^^^^^4.581
+5 ;;^UTILITY(U,$J,112,10012,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,10013,0)
+8 ;;=BEANS,CND,'N FIXINS,HUNT'S BIG JOHN^BC-03286^4-oz.^113
+9 ;;^UTILITY(U,$J,112,10013,1)
+10 ;;=4.425^5.31^23.009^150.442^^^^35.398^1.681^^^362.832^433.628^^^^^^7.965^.159
+11 ;;^UTILITY(U,$J,112,10013,2)
+12 ;;=.071^1.062^^^^^^^5.31^1.858^^.708^35.398^^^^5.31
+13 ;;^UTILITY(U,$J,112,10013,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,10014,0)
+16 ;;=BEANS,CND,RANCHERO,CAMPBELL'S^BC-03287^7.8-oz.^220
+17 ;;^UTILITY(U,$J,112,10014,1)
+18 ;;=4.455^1.773^17.045^101.818^^^^44.545^1.591^^^255.455^393.182^^^^^367.727^3.182^.045
+19 ;;^UTILITY(U,$J,112,10014,2)
+20 ;;=.032^.182^^^^^^^^^^^^^^^4.682
+21 ;;^UTILITY(U,$J,112,10014,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,10015,0)
+24 ;;=BEANS,CND,VEGETARIAN STYLE,VAN CAMP'S^BC-03288^cup^227
+25 ;;^UTILITY(U,$J,112,10015,1)
+26 ;;=4.802^.264^18.502^90.749^74.802^^^44.053^1.586^^^265.198^418.502^^^^^78.855^.881^.057
+27 ;;^UTILITY(U,$J,112,10015,2)
+28 ;;=.053^.441
+29 ;;^UTILITY(U,$J,112,10015,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,10016,0)
+32 ;;=BEANS,CND,W/BROWN SUGAR,VAN CAMP'S^BC-03289^cup^227
+33 ;;^UTILITY(U,$J,112,10016,1)
+34 ;;=5.11^2.247^22.467^127.753^68.678^^^53.304^1.189^^^235.683^303.965^^^^^0^0^.04
+35 ;;^UTILITY(U,$J,112,10016,2)
+36 ;;=.062^.396
+37 ;;^UTILITY(U,$J,112,10016,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,10017,0)
+40 ;;=BEANS,CND,W/MOLASSES&BROWN SUGAR,CAMPBELL'S^BC-03290^8-oz.^227
+41 ;;^UTILITY(U,$J,112,10017,1)
+42 ;;=4.978^1.322^21.322^116.74^^^^57.269^1.85^^^256.828^414.097^^^^^56.828^3.524^.026
+43 ;;^UTILITY(U,$J,112,10017,2)
+44 ;;=.026^.352^^^^^^^1.322^.793^^.308^^^^^5.595
+45 ;;^UTILITY(U,$J,112,10017,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,10018,0)
+48 ;;=BEANS,CND,W/PORK & TOMATO SCE,CAMPBELL'S^BC-03291^8-oz.^227
+49 ;;^UTILITY(U,$J,112,10018,1)
+50 ;;=4.493^1.233^18.943^104.846^^^^42.291^1.498^^^174.009^338.767^^^^^204.846^1.322^.053
+51 ;;^UTILITY(U,$J,112,10018,2)
+52 ;;=.026^.441^^^^^^^.881^.529^^.264^^^^^4.67
+53 ;;^UTILITY(U,$J,112,10018,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,10019,0)
+56 ;;=BEANS,CND,W/PORK & TOMATO SCE,JOAN OF ARC^BC-03292^1/2-cup^133
+57 ;;^UTILITY(U,$J,112,10019,1)
+58 ;;=4.211^.902^18.271^78.195^75.038^^^45.113^1.203^^60.902^161.654^318.797^^^^^27.068^.752^.038
+59 ;;^UTILITY(U,$J,112,10019,2)
+60 ;;=.03^.602^^^^^^^^^^^^^^^5.188
+61 ;;^UTILITY(U,$J,112,10019,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,10020,0)
+64 ;;=BEANS,CND,W/PORK & TOMATO SCE,VAN CAMP'S^BC-03293^cup^227
+65 ;;^UTILITY(U,$J,112,10020,1)
+66 ;;=4.802^.837^18.062^95.154^74.405^^^44.053^1.89^^^248.018^440.529^^^^^72.247^.881^.053
+67 ;;^UTILITY(U,$J,112,10020,2)
+68 ;;=5.286^.441^^^^^^^0^^^^^^^^4.361
+69 ;;^UTILITY(U,$J,112,10020,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,10021,0)
+72 ;;=BEANS,REFRIED,CND,GEBHARDT^BC-03294^4-oz.^113
+73 ;;^UTILITY(U,$J,112,10021,1)
+74 ;;=6.195^1.77^17.699^88.496^^^^16.814^1.681^^^115.044^433.628^^^^^^1.77^.177
+75 ;;^UTILITY(U,$J,112,10021,2)
+76 ;;=.062^.442^^^^^^^1.77^.708^^.265^^^^^5.31
+77 ;;^UTILITY(U,$J,112,10021,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,10022,0)
+80 ;;=BEANS,REFRIED,CND,JALAPENO,GEBHARDT^BC-03295^4-oz.^113
+81 ;;^UTILITY(U,$J,112,10022,1)
+82 ;;=5.31^1.77^16.814^101.77^^^^32.743^1.681^^^353.982^238.938^^^^^^1.77^.159
+83 ;;^UTILITY(U,$J,112,10022,2)
+84 ;;=.062^.442^^^^^^^1.77^.619^^.265^7.08^^^^5.31
+85 ;;^UTILITY(U,$J,112,10022,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,10023,0)
+88 ;;=BEANS,REFRIED,CND,SPICY,ROSARITA^BC-03296^4-oz.^113
+89 ;;^UTILITY(U,$J,112,10023,1)
+90 ;;=6.195^1.77^18.584^115.044^^^^39.823^1.77^^^407.08^407.08^^^^^^13.274^.159
+91 ;;^UTILITY(U,$J,112,10023,2)
+92 ;;=.071^.531^^^^^^^1.77^.708^^.265^17.699^^^^5.31
+93 ;;^UTILITY(U,$J,112,10023,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,10024,0)
+96 ;;=BEANS,REFRIED,CND,VEGETARIAN,ROSARITA^BC-03297^4-oz.^113
+97 ;;^UTILITY(U,$J,112,10024,1)
+98 ;;=6.195^1.77^16.814^106.195^^^^37.168^2.389^^^380.531^415.929^^^^^^1.77^.177
+99 ;;^UTILITY(U,$J,112,10024,2)
+100 ;;=.062^.442^^^^^^^0^.442^^.885^0^^^^5.31
+101 ;;^UTILITY(U,$J,112,10024,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,10025,0)
+104 ;;=BEANS,REFRIED,CND,W/BACON,ROSARITA^BC-03298^4-oz.^113
