FHINI09A ; ; 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,6423,0)
;;=CRACKERS, LOW SODIUM (KEEBLER)^^crackers^3.2
;;^UTILITY(U,$J,112,6423,1)
;;=10^12^73^450^^^^18^4^^^^9^^^^^^^.69
;;^UTILITY(U,$J,112,6423,2)
;;=.4^5.7
;;^UTILITY(U,$J,112,6423,20)
;;=Keebler Corp. Prod. Lit. dated Jan 80. DOE: 112684 #516
;;^UTILITY(U,$J,112,6424,0)
;;=CUSTARD (SWISS MISS)^^oz.^28.35
;;^UTILITY(U,$J,112,6424,1)
;;=3.13^4.7^17.24^125.4^^^^^^^^^88.48
;;^UTILITY(U,$J,112,6424,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,6424,20)
;;=Beatrice Foods Prod. Lit. undated. DOE: 112684 #516
;;^UTILITY(U,$J,112,6425,0)
;;=POLYCOSE BEV (W/ORANGE JUICE)^^oz.^28.35
;;^UTILITY(U,$J,112,6425,1)
;;=.4^.1^30^122^79.2^^^12.92^.09^5.5^6.96^97.09^35.5^.02^.02^.01^0^39^16.45^.06
;;^UTILITY(U,$J,112,6425,2)
;;=.01^.14^.1^.03^9.05^0^0^0^0^0^0^0^^^^^.1
;;^UTILITY(U,$J,112,6425,20)
;;=Bay Pines recipe. DOE:112684 #516
;;^UTILITY(U,$J,112,6426,0)
;;=LOW PRO SLUSH^^oz.^28.35
;;^UTILITY(U,$J,112,6426,1)
;;=.7^1.3^37.3^161^67.4^^^40.38^.1^5.08^26.05^68.28^54.27^.45^0^0^0^62.4^1.3^.01
;;^UTILITY(U,$J,112,6426,2)
;;=.03^.04^.02^4.7^4.68^.05^0^0^4.7^.8^.4^0^^^^^0
;;^UTILITY(U,$J,112,6426,20)
;;=Bay Pines recipe. DOE: 112684 #516
;;^UTILITY(U,$J,112,6429,0)
;;=SAUCE, MUSTARD^^oz.^28.35
;;^UTILITY(U,$J,112,6429,1)
;;=1^7.25^32.75^195^57.05^^^40.125^1.4^.9^21.05^543.48^534.47^0^0^0^.75^279.9^.025^.05
;;^UTILITY(U,$J,112,6429,2)
;;=.025^.375^0^0^.1^0^1^0^0^4.75^.75^1
;;^UTILITY(U,$J,112,6429,20)
;;=VACO recipe E-390. DOE: 112784 #516
;;^UTILITY(U,$J,112,6430,0)
;;=MACARONI SALAD^^oz.^28.35
;;^UTILITY(U,$J,112,6430,1)
;;=4.1^5.6^23^159^71.7^^^22.86^.94^1.11^61.19^134.16^256.79^.12^^^.54^163.77^5.79^.12
;;^UTILITY(U,$J,112,6430,2)
;;=.09^.9^.15^.01^4.19^.12^2.3^.3^40.8^.9^1.5^2.6
;;^UTILITY(U,$J,112,6430,20)
;;=VA Bay Pines recipe std. DOE: 112784 #516
;;^UTILITY(U,$J,112,6431,0)
;;=SAUCE, SPAGHETTI W/ITAL SAUSAGE^^oz.^28.35
;;^UTILITY(U,$J,112,6431,1)
;;=10.3^5.75^3.95^109^79.6^^^26.07^1.78^2.59^99.33^291.7^334.3^.25^.005^.005^^627.55^10.49^.12
;;^UTILITY(U,$J,112,6431,2)
;;=.11^2.58^.045^.03^.51^.13^.3^.05^33.25^2.45^1.15^.3
;;^UTILITY(U,$J,112,6431,20)
;;=VA Bay Pines recipe, non-std. DOE: 112784 #516
;;^UTILITY(U,$J,112,6432,0)
;;=CHEESE & CRACKERS (KRAFT)^^pkg.^31.9
;;^UTILITY(U,$J,112,6432,1)
;;=12.52^25.04^28.17^406.9^^^^^^^^^1455.45
;;^UTILITY(U,$J,112,6432,20)
;;=Kraft Prod. Lit. undated. DOE: 112884 #516
;;^UTILITY(U,$J,112,6433,0)
;;=CHEESE, LOW SODIUM^^oz.^28.35
;;^UTILITY(U,$J,112,6433,1)
;;=24.71^31.77^17.65^388.3^^^^^^^^123.55^17.65
;;^UTILITY(U,$J,112,6433,20)
;;=Package Labeling. Approximate values. DOE: 112884 #516
;;^UTILITY(U,$J,112,6434,0)
;;=LOW PRO PUDDING (BAY PINES)^^servings^113
;;^UTILITY(U,$J,112,6434,1)
;;=.71^8.45^20.36^155.76^70.22^^^6.12^.23^3.95^9.95^65.04^12.49^.06^.04^.097^^425.36^1.27^.01
;;^UTILITY(U,$J,112,6434,2)
;;=.01^.25^.04^.04^1.74^0^.09^.09^0^7.25^.53^.18
;;^UTILITY(U,$J,112,6434,20)
;;=Bay Pines recipe, non-std. DOE: 112884 #516
;;^UTILITY(U,$J,112,6435,0)
;;=COOKIES, BONNIE BUTTER (LANTZ)^^pkg.^33.7
;;^UTILITY(U,$J,112,6435,1)
;;=7.3^18.38^68.7^564.3^^^^0^1.98^^^^0^^^^^^^.25
;;^UTILITY(U,$J,112,6435,2)
;;=.31^2.57
;;^UTILITY(U,$J,112,6435,20)
;;=Lantz Inc, Prod. Lit. dated Sep 77. DOE: 112884 #516
;;^UTILITY(U,$J,112,6436,0)
;;=COOKIES, NEKOT (LANTZ)^^pkg.^42.5
;;^UTILITY(U,$J,112,6436,1)
;;=14.94^23.09^57.03^509.9^^^^82^1.8^^^^326.3^^^^^^^.21
;;^UTILITY(U,$J,112,6436,2)
;;=.32^2.73
;;^UTILITY(U,$J,112,6436,20)
;;=Lantz Inc. Prod. Lit. dated Sep 77. DOE: 112884 #516
;;^UTILITY(U,$J,112,6437,0)
;;=COOKIES, OATMEAL (LANTZ)^^pkg.^30.1
;;^UTILITY(U,$J,112,6437,1)
;;=8.12^21.1^63.65^517.9^^^^0^2.2^^^^0^^^^^^^.26
;;^UTILITY(U,$J,112,6437,2)
;;=.46^1.27
;;^UTILITY(U,$J,112,6437,20)
;;=Lantz Inc.Prod. Lit. dated Sep 77. DOE: 112884 #516
;;^UTILITY(U,$J,112,6438,0)
;;=SALAD, JEWEL^^servings^90.65
;;^UTILITY(U,$J,112,6438,1)
;;=.99^.11^18.7^74.8^79.64^^^7.37^.165^6.96^4.96^80.99^33.84^.077^.044^.385^^10.274^4.257^.033
;;^UTILITY(U,$J,112,6438,2)
;;=.011^.143^.066^.033^5.632^^^^^^^^^^^^.11
;;^UTILITY(U,$J,112,6438,20)
;;=BAY PINES RECIPE 5/20/86
;;^UTILITY(U,$J,112,6439,0)
;;=CORN CHIPS, FRITOS^^oz.^28.35
;;^UTILITY(U,$J,112,6439,1)
;;=6.78^37.13^52.12^549.78^^^^124.95^1.07^60.69^185.64^82.11^721.14^1.43^^^^353.43^0^.036
;;^UTILITY(U,$J,112,6439,2)
;;=.07^.11^^^^^^^^^^8.93
;;^UTILITY(U,$J,112,6439,20)
;;=Bowes & Church 13th ed. DOE: 112984 #516
;;^UTILITY(U,$J,112,6440,0)
;;=PUDDING, LEMON, CND^^cups^226
;;^UTILITY(U,$J,112,6440,1)
;;=0^2.57^27.96^135.4^^^^6.19^.53^^19.47^8.85^124.78^^^^^17.7^.89^.02
FHINI09A ; ; 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,6423,0)
+2 ;;=CRACKERS, LOW SODIUM (KEEBLER)^^crackers^3.2
+3 ;;^UTILITY(U,$J,112,6423,1)
+4 ;;=10^12^73^450^^^^18^4^^^^9^^^^^^^.69
+5 ;;^UTILITY(U,$J,112,6423,2)
+6 ;;=.4^5.7
+7 ;;^UTILITY(U,$J,112,6423,20)
+8 ;;=Keebler Corp. Prod. Lit. dated Jan 80. DOE: 112684 #516
+9 ;;^UTILITY(U,$J,112,6424,0)
+10 ;;=CUSTARD (SWISS MISS)^^oz.^28.35
+11 ;;^UTILITY(U,$J,112,6424,1)
+12 ;;=3.13^4.7^17.24^125.4^^^^^^^^^88.48
+13 ;;^UTILITY(U,$J,112,6424,2)
+14 ;;=^^^^^^^^0
+15 ;;^UTILITY(U,$J,112,6424,20)
+16 ;;=Beatrice Foods Prod. Lit. undated. DOE: 112684 #516
+17 ;;^UTILITY(U,$J,112,6425,0)
+18 ;;=POLYCOSE BEV (W/ORANGE JUICE)^^oz.^28.35
+19 ;;^UTILITY(U,$J,112,6425,1)
+20 ;;=.4^.1^30^122^79.2^^^12.92^.09^5.5^6.96^97.09^35.5^.02^.02^.01^0^39^16.45^.06
+21 ;;^UTILITY(U,$J,112,6425,2)
+22 ;;=.01^.14^.1^.03^9.05^0^0^0^0^0^0^0^^^^^.1
+23 ;;^UTILITY(U,$J,112,6425,20)
+24 ;;=Bay Pines recipe. DOE:112684 #516
+25 ;;^UTILITY(U,$J,112,6426,0)
+26 ;;=LOW PRO SLUSH^^oz.^28.35
+27 ;;^UTILITY(U,$J,112,6426,1)
+28 ;;=.7^1.3^37.3^161^67.4^^^40.38^.1^5.08^26.05^68.28^54.27^.45^0^0^0^62.4^1.3^.01
+29 ;;^UTILITY(U,$J,112,6426,2)
+30 ;;=.03^.04^.02^4.7^4.68^.05^0^0^4.7^.8^.4^0^^^^^0
+31 ;;^UTILITY(U,$J,112,6426,20)
+32 ;;=Bay Pines recipe. DOE: 112684 #516
+33 ;;^UTILITY(U,$J,112,6429,0)
+34 ;;=SAUCE, MUSTARD^^oz.^28.35
+35 ;;^UTILITY(U,$J,112,6429,1)
+36 ;;=1^7.25^32.75^195^57.05^^^40.125^1.4^.9^21.05^543.48^534.47^0^0^0^.75^279.9^.025^.05
+37 ;;^UTILITY(U,$J,112,6429,2)
+38 ;;=.025^.375^0^0^.1^0^1^0^0^4.75^.75^1
+39 ;;^UTILITY(U,$J,112,6429,20)
+40 ;;=VACO recipe E-390. DOE: 112784 #516
+41 ;;^UTILITY(U,$J,112,6430,0)
+42 ;;=MACARONI SALAD^^oz.^28.35
+43 ;;^UTILITY(U,$J,112,6430,1)
+44 ;;=4.1^5.6^23^159^71.7^^^22.86^.94^1.11^61.19^134.16^256.79^.12^^^.54^163.77^5.79^.12
+45 ;;^UTILITY(U,$J,112,6430,2)
+46 ;;=.09^.9^.15^.01^4.19^.12^2.3^.3^40.8^.9^1.5^2.6
+47 ;;^UTILITY(U,$J,112,6430,20)
+48 ;;=VA Bay Pines recipe std. DOE: 112784 #516
+49 ;;^UTILITY(U,$J,112,6431,0)
+50 ;;=SAUCE, SPAGHETTI W/ITAL SAUSAGE^^oz.^28.35
+51 ;;^UTILITY(U,$J,112,6431,1)
+52 ;;=10.3^5.75^3.95^109^79.6^^^26.07^1.78^2.59^99.33^291.7^334.3^.25^.005^.005^^627.55^10.49^.12
+53 ;;^UTILITY(U,$J,112,6431,2)
+54 ;;=.11^2.58^.045^.03^.51^.13^.3^.05^33.25^2.45^1.15^.3
+55 ;;^UTILITY(U,$J,112,6431,20)
+56 ;;=VA Bay Pines recipe, non-std. DOE: 112784 #516
+57 ;;^UTILITY(U,$J,112,6432,0)
+58 ;;=CHEESE & CRACKERS (KRAFT)^^pkg.^31.9
+59 ;;^UTILITY(U,$J,112,6432,1)
+60 ;;=12.52^25.04^28.17^406.9^^^^^^^^^1455.45
+61 ;;^UTILITY(U,$J,112,6432,20)
+62 ;;=Kraft Prod. Lit. undated. DOE: 112884 #516
+63 ;;^UTILITY(U,$J,112,6433,0)
+64 ;;=CHEESE, LOW SODIUM^^oz.^28.35
+65 ;;^UTILITY(U,$J,112,6433,1)
+66 ;;=24.71^31.77^17.65^388.3^^^^^^^^123.55^17.65
+67 ;;^UTILITY(U,$J,112,6433,20)
+68 ;;=Package Labeling. Approximate values. DOE: 112884 #516
+69 ;;^UTILITY(U,$J,112,6434,0)
+70 ;;=LOW PRO PUDDING (BAY PINES)^^servings^113
+71 ;;^UTILITY(U,$J,112,6434,1)
+72 ;;=.71^8.45^20.36^155.76^70.22^^^6.12^.23^3.95^9.95^65.04^12.49^.06^.04^.097^^425.36^1.27^.01
+73 ;;^UTILITY(U,$J,112,6434,2)
+74 ;;=.01^.25^.04^.04^1.74^0^.09^.09^0^7.25^.53^.18
+75 ;;^UTILITY(U,$J,112,6434,20)
+76 ;;=Bay Pines recipe, non-std. DOE: 112884 #516
+77 ;;^UTILITY(U,$J,112,6435,0)
+78 ;;=COOKIES, BONNIE BUTTER (LANTZ)^^pkg.^33.7
+79 ;;^UTILITY(U,$J,112,6435,1)
+80 ;;=7.3^18.38^68.7^564.3^^^^0^1.98^^^^0^^^^^^^.25
+81 ;;^UTILITY(U,$J,112,6435,2)
+82 ;;=.31^2.57
+83 ;;^UTILITY(U,$J,112,6435,20)
+84 ;;=Lantz Inc, Prod. Lit. dated Sep 77. DOE: 112884 #516
+85 ;;^UTILITY(U,$J,112,6436,0)
+86 ;;=COOKIES, NEKOT (LANTZ)^^pkg.^42.5
+87 ;;^UTILITY(U,$J,112,6436,1)
+88 ;;=14.94^23.09^57.03^509.9^^^^82^1.8^^^^326.3^^^^^^^.21
+89 ;;^UTILITY(U,$J,112,6436,2)
+90 ;;=.32^2.73
+91 ;;^UTILITY(U,$J,112,6436,20)
+92 ;;=Lantz Inc. Prod. Lit. dated Sep 77. DOE: 112884 #516
+93 ;;^UTILITY(U,$J,112,6437,0)
+94 ;;=COOKIES, OATMEAL (LANTZ)^^pkg.^30.1
+95 ;;^UTILITY(U,$J,112,6437,1)
+96 ;;=8.12^21.1^63.65^517.9^^^^0^2.2^^^^0^^^^^^^.26
+97 ;;^UTILITY(U,$J,112,6437,2)
+98 ;;=.46^1.27
+99 ;;^UTILITY(U,$J,112,6437,20)
+100 ;;=Lantz Inc.Prod. Lit. dated Sep 77. DOE: 112884 #516
+101 ;;^UTILITY(U,$J,112,6438,0)
+102 ;;=SALAD, JEWEL^^servings^90.65
+103 ;;^UTILITY(U,$J,112,6438,1)
+104 ;;=.99^.11^18.7^74.8^79.64^^^7.37^.165^6.96^4.96^80.99^33.84^.077^.044^.385^^10.274^4.257^.033
+105 ;;^UTILITY(U,$J,112,6438,2)
+106 ;;=.011^.143^.066^.033^5.632^^^^^^^^^^^^.11
+107 ;;^UTILITY(U,$J,112,6438,20)
+108 ;;=BAY PINES RECIPE 5/20/86
+109 ;;^UTILITY(U,$J,112,6439,0)
+110 ;;=CORN CHIPS, FRITOS^^oz.^28.35
+111 ;;^UTILITY(U,$J,112,6439,1)
+112 ;;=6.78^37.13^52.12^549.78^^^^124.95^1.07^60.69^185.64^82.11^721.14^1.43^^^^353.43^0^.036
+113 ;;^UTILITY(U,$J,112,6439,2)
+114 ;;=.07^.11^^^^^^^^^^8.93
+115 ;;^UTILITY(U,$J,112,6439,20)
+116 ;;=Bowes & Church 13th ed. DOE: 112984 #516
+117 ;;^UTILITY(U,$J,112,6440,0)
+118 ;;=PUDDING, LEMON, CND^^cups^226
+119 ;;^UTILITY(U,$J,112,6440,1)
+120 ;;=0^2.57^27.96^135.4^^^^6.19^.53^^19.47^8.85^124.78^^^^^17.7^.89^.02
