FHINI09B ; ; 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,6440,2)
;;=.06^.09
;;^UTILITY(U,$J,112,6440,20)
;;=Bowes & Church, 13th ed. DOE: 112984 #516
;;^UTILITY(U,$J,112,6441,0)
;;=SALAD, SPICED BEET^^oz.^28.35
;;^UTILITY(U,$J,112,6441,1)
;;=.93^.15^15.91^64.26^82^^^18.6^.66^^16.8^153.57^394.63^^^^^18.36^2.75^.01
;;^UTILITY(U,$J,112,6441,2)
;;=.03^.09^^^^^0^^0^0
;;^UTILITY(U,$J,112,6441,20)
;;=Bay Pines recipe, non-std. DOE: 112984 #516
;;^UTILITY(U,$J,112,6442,0)
;;=SALAD, CABBAGE & MARSHMALLOW^^oz.^28.35
;;^UTILITY(U,$J,112,6442,1)
;;=1.23^4.67^14.02^95.94^79.46^^^34.1^.44^4.51^26.26^176.06^75.76^.05^.02^.34^.36^103.22^27.96^.07
;;^UTILITY(U,$J,112,6442,2)
;;=.04^.27^.05^.02^2.04^.01^1.72^.12^2.34^.49^.86^1.6^^^^^.25
;;^UTILITY(U,$J,112,6442,20)
;;=Bay Pines recipe, non-std. DOE: 112984 #516
;;^UTILITY(U,$J,112,6443,0)
;;=SALAD, DIXIE RELISH^^servings^74.91
;;^UTILITY(U,$J,112,6443,1)
;;=1.064^14.5^4.522^148.96^78.47^^^32.94^.61^10.51^24.6^196.78^210.52^.16^.027^.106^3.99^177.19^33.66^.04
;;^UTILITY(U,$J,112,6443,2)
;;=.027^.226^.16^.173^30.03^.04^9.44^.532^10.64^1.596^2.39^9.975^^^^^.798
;;^UTILITY(U,$J,112,6443,20)
;;=BAY PINES RECIPE 5/20/86
;;^UTILITY(U,$J,112,6444,0)
;;=SYRUP, DIET (FEATHERWEIGHT)^^tbsp.^15
;;^UTILITY(U,$J,112,6444,1)
;;=0^0^15.34^60
;;^UTILITY(U,$J,112,6444,20)
;;=Bowes & Church 13th ed. DOE: 113084 #516
;;^UTILITY(U,$J,112,6445,0)
;;=SALAD, MOLDED CRANBERRY, CC^^servings^65.83
;;^UTILITY(U,$J,112,6445,1)
;;=.15^0^2.89^10.6^96.8^^^4.12^.06^1.19^3.53^36.18^8.09^.03^.02^.03^^24.18^3.78^.02
;;^UTILITY(U,$J,112,6445,2)
;;=0^.05^.05^.02^.6^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,6445,20)
;;=Bay Pines recipe, non-std. DOE: 120484 #516
;;^UTILITY(U,$J,112,6446,0)
;;=APRICOTS, PUREED^^oz.^28.35
;;^UTILITY(U,$J,112,6446,1)
;;=.8^.1^10.2^47^^^^5^.9^3^3^150^7^.03^.01^.02^^2520^3^.02
;;^UTILITY(U,$J,112,6446,2)
;;=.02^.5
;;^UTILITY(U,$J,112,6446,20)
;;=Larsen Company, Green Bay, WI Prod. Lit. Oct 73. DOE: 121784 #516
;;^UTILITY(U,$J,112,6447,0)
;;=ASPARAGUS, PUREED^^oz.^28.35
;;^UTILITY(U,$J,112,6447,1)
;;=1.2^.1^2.8^19^^^^19^3^11^39^151^4^.8^.07^.06^^435^9.9^.06
;;^UTILITY(U,$J,112,6447,2)
;;=.1^.8
;;^UTILITY(U,$J,112,6447,20)
;;=Larsen Co.,Green Bay,WI Prod. Lit. Oct 73. DOE:121784 #516
;;^UTILITY(U,$J,112,6448,0)
;;=BEETS, PUREED^^oz.^28.35
;;^UTILITY(U,$J,112,6448,1)
;;=.8^.1^7.4^35^^^^17^.27^19^21^163^25^.24^.05^.26^^20^10.4^0
;;^UTILITY(U,$J,112,6448,2)
;;=.06^.2
;;^UTILITY(U,$J,112,6448,20)
;;=Larsen Co.Green Bay, WI. Prod. Lit. Oct 73. DOE: 121784 #516
;;^UTILITY(U,$J,112,6449,0)
;;=CARROTS, PUREED^^oz.^28.35
;;^UTILITY(U,$J,112,6449,1)
;;=.4^.1^5.7^26^^^^19^.11^8^21^230^20^.18^.02^.07^^13000^1.4^.02
;;^UTILITY(U,$J,112,6449,2)
;;=.01^.41
;;^UTILITY(U,$J,112,6449,20)
;;=Larsen Co. Green Bay WI, Prod. Lit. Oct 73. DOE:121784 #516
;;^UTILITY(U,$J,112,6450,0)
;;=CORN, PUREED^^oz.^28.35
;;^UTILITY(U,$J,112,6450,1)
;;=1.3^.2^17.5^79^^^^5^.27^21^77^220^5^.85^.04^.04^^167^7^.01
;;^UTILITY(U,$J,112,6450,2)
;;=.07^1.38
;;^UTILITY(U,$J,112,6450,20)
;;=Larsen Co. Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
;;^UTILITY(U,$J,112,6451,0)
;;=BEANS, GREEN, PUREED^^oz.^28.35
;;^UTILITY(U,$J,112,6451,1)
;;=.8^.2^5^27^^^^26^.7^17^21^151^4^.22^.09^.21^^400^5.6^.02
;;^UTILITY(U,$J,112,6451,2)
;;=.09^.34
;;^UTILITY(U,$J,112,6451,20)
;;=Larsen Co.Green Bay WI, Prod. Lit. Oct 73. DOE:121784 #516
;;^UTILITY(U,$J,112,6452,0)
;;=PEAS, PUREED^^oz.^28.35
;;^UTILITY(U,$J,112,6452,1)
;;=2.2^.2^9.5^48^^^^14^.7^19^75^167^3^.78^.13^.07^^435^8.6^.07
;;^UTILITY(U,$J,112,6452,2)
;;=.09^1.87
;;^UTILITY(U,$J,112,6452,20)
;;=Larsen Co. Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
;;^UTILITY(U,$J,112,6453,0)
;;=PEACHES, PUREED^^oz.^28.35
;;^UTILITY(U,$J,112,6453,1)
;;=1.4^.1^13.6^65^^^^5^.7^3^3^140^4^.02^.01^.02^^810^3^.01
;;^UTILITY(U,$J,112,6453,2)
;;=.06^1.5
;;^UTILITY(U,$J,112,6453,20)
;;=Larsen Co.Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
;;^UTILITY(U,$J,112,6454,0)
;;=PEARS, PUREED^^oz.^28.35
;;^UTILITY(U,$J,112,6454,1)
;;=.6^.4^11.9^56^^^^11^2.6^14^21^170^5^.18^.2^.02^^50^6^.02
;;^UTILITY(U,$J,112,6454,2)
;;=.04^.42
;;^UTILITY(U,$J,112,6454,20)
;;=Larsen Co.Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
;;^UTILITY(U,$J,112,6455,0)
;;=SPINACH, PUREED^^oz.^28.35
;;^UTILITY(U,$J,112,6455,1)
;;=1.1^.2^2.5^18^^^^67^1.2^82^46^580^10^.94^.04^.51^^5100^4.9^.03
;;^UTILITY(U,$J,112,6455,2)
;;=.17^.46
;;^UTILITY(U,$J,112,6455,20)
;;=Larsen Co. Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
;;^UTILITY(U,$J,112,6456,0)
;;=SQUASH, PUREED^^oz.^28.35
FHINI09B ; ; 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,6440,2)
+2 ;;=.06^.09
+3 ;;^UTILITY(U,$J,112,6440,20)
+4 ;;=Bowes & Church, 13th ed. DOE: 112984 #516
+5 ;;^UTILITY(U,$J,112,6441,0)
+6 ;;=SALAD, SPICED BEET^^oz.^28.35
+7 ;;^UTILITY(U,$J,112,6441,1)
+8 ;;=.93^.15^15.91^64.26^82^^^18.6^.66^^16.8^153.57^394.63^^^^^18.36^2.75^.01
+9 ;;^UTILITY(U,$J,112,6441,2)
+10 ;;=.03^.09^^^^^0^^0^0
+11 ;;^UTILITY(U,$J,112,6441,20)
+12 ;;=Bay Pines recipe, non-std. DOE: 112984 #516
+13 ;;^UTILITY(U,$J,112,6442,0)
+14 ;;=SALAD, CABBAGE & MARSHMALLOW^^oz.^28.35
+15 ;;^UTILITY(U,$J,112,6442,1)
+16 ;;=1.23^4.67^14.02^95.94^79.46^^^34.1^.44^4.51^26.26^176.06^75.76^.05^.02^.34^.36^103.22^27.96^.07
+17 ;;^UTILITY(U,$J,112,6442,2)
+18 ;;=.04^.27^.05^.02^2.04^.01^1.72^.12^2.34^.49^.86^1.6^^^^^.25
+19 ;;^UTILITY(U,$J,112,6442,20)
+20 ;;=Bay Pines recipe, non-std. DOE: 112984 #516
+21 ;;^UTILITY(U,$J,112,6443,0)
+22 ;;=SALAD, DIXIE RELISH^^servings^74.91
+23 ;;^UTILITY(U,$J,112,6443,1)
+24 ;;=1.064^14.5^4.522^148.96^78.47^^^32.94^.61^10.51^24.6^196.78^210.52^.16^.027^.106^3.99^177.19^33.66^.04
+25 ;;^UTILITY(U,$J,112,6443,2)
+26 ;;=.027^.226^.16^.173^30.03^.04^9.44^.532^10.64^1.596^2.39^9.975^^^^^.798
+27 ;;^UTILITY(U,$J,112,6443,20)
+28 ;;=BAY PINES RECIPE 5/20/86
+29 ;;^UTILITY(U,$J,112,6444,0)
+30 ;;=SYRUP, DIET (FEATHERWEIGHT)^^tbsp.^15
+31 ;;^UTILITY(U,$J,112,6444,1)
+32 ;;=0^0^15.34^60
+33 ;;^UTILITY(U,$J,112,6444,20)
+34 ;;=Bowes & Church 13th ed. DOE: 113084 #516
+35 ;;^UTILITY(U,$J,112,6445,0)
+36 ;;=SALAD, MOLDED CRANBERRY, CC^^servings^65.83
+37 ;;^UTILITY(U,$J,112,6445,1)
+38 ;;=.15^0^2.89^10.6^96.8^^^4.12^.06^1.19^3.53^36.18^8.09^.03^.02^.03^^24.18^3.78^.02
+39 ;;^UTILITY(U,$J,112,6445,2)
+40 ;;=0^.05^.05^.02^.6^0^0^0^0^0^0^0
+41 ;;^UTILITY(U,$J,112,6445,20)
+42 ;;=Bay Pines recipe, non-std. DOE: 120484 #516
+43 ;;^UTILITY(U,$J,112,6446,0)
+44 ;;=APRICOTS, PUREED^^oz.^28.35
+45 ;;^UTILITY(U,$J,112,6446,1)
+46 ;;=.8^.1^10.2^47^^^^5^.9^3^3^150^7^.03^.01^.02^^2520^3^.02
+47 ;;^UTILITY(U,$J,112,6446,2)
+48 ;;=.02^.5
+49 ;;^UTILITY(U,$J,112,6446,20)
+50 ;;=Larsen Company, Green Bay, WI Prod. Lit. Oct 73. DOE: 121784 #516
+51 ;;^UTILITY(U,$J,112,6447,0)
+52 ;;=ASPARAGUS, PUREED^^oz.^28.35
+53 ;;^UTILITY(U,$J,112,6447,1)
+54 ;;=1.2^.1^2.8^19^^^^19^3^11^39^151^4^.8^.07^.06^^435^9.9^.06
+55 ;;^UTILITY(U,$J,112,6447,2)
+56 ;;=.1^.8
+57 ;;^UTILITY(U,$J,112,6447,20)
+58 ;;=Larsen Co.,Green Bay,WI Prod. Lit. Oct 73. DOE:121784 #516
+59 ;;^UTILITY(U,$J,112,6448,0)
+60 ;;=BEETS, PUREED^^oz.^28.35
+61 ;;^UTILITY(U,$J,112,6448,1)
+62 ;;=.8^.1^7.4^35^^^^17^.27^19^21^163^25^.24^.05^.26^^20^10.4^0
+63 ;;^UTILITY(U,$J,112,6448,2)
+64 ;;=.06^.2
+65 ;;^UTILITY(U,$J,112,6448,20)
+66 ;;=Larsen Co.Green Bay, WI. Prod. Lit. Oct 73. DOE: 121784 #516
+67 ;;^UTILITY(U,$J,112,6449,0)
+68 ;;=CARROTS, PUREED^^oz.^28.35
+69 ;;^UTILITY(U,$J,112,6449,1)
+70 ;;=.4^.1^5.7^26^^^^19^.11^8^21^230^20^.18^.02^.07^^13000^1.4^.02
+71 ;;^UTILITY(U,$J,112,6449,2)
+72 ;;=.01^.41
+73 ;;^UTILITY(U,$J,112,6449,20)
+74 ;;=Larsen Co. Green Bay WI, Prod. Lit. Oct 73. DOE:121784 #516
+75 ;;^UTILITY(U,$J,112,6450,0)
+76 ;;=CORN, PUREED^^oz.^28.35
+77 ;;^UTILITY(U,$J,112,6450,1)
+78 ;;=1.3^.2^17.5^79^^^^5^.27^21^77^220^5^.85^.04^.04^^167^7^.01
+79 ;;^UTILITY(U,$J,112,6450,2)
+80 ;;=.07^1.38
+81 ;;^UTILITY(U,$J,112,6450,20)
+82 ;;=Larsen Co. Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
+83 ;;^UTILITY(U,$J,112,6451,0)
+84 ;;=BEANS, GREEN, PUREED^^oz.^28.35
+85 ;;^UTILITY(U,$J,112,6451,1)
+86 ;;=.8^.2^5^27^^^^26^.7^17^21^151^4^.22^.09^.21^^400^5.6^.02
+87 ;;^UTILITY(U,$J,112,6451,2)
+88 ;;=.09^.34
+89 ;;^UTILITY(U,$J,112,6451,20)
+90 ;;=Larsen Co.Green Bay WI, Prod. Lit. Oct 73. DOE:121784 #516
+91 ;;^UTILITY(U,$J,112,6452,0)
+92 ;;=PEAS, PUREED^^oz.^28.35
+93 ;;^UTILITY(U,$J,112,6452,1)
+94 ;;=2.2^.2^9.5^48^^^^14^.7^19^75^167^3^.78^.13^.07^^435^8.6^.07
+95 ;;^UTILITY(U,$J,112,6452,2)
+96 ;;=.09^1.87
+97 ;;^UTILITY(U,$J,112,6452,20)
+98 ;;=Larsen Co. Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
+99 ;;^UTILITY(U,$J,112,6453,0)
+100 ;;=PEACHES, PUREED^^oz.^28.35
+101 ;;^UTILITY(U,$J,112,6453,1)
+102 ;;=1.4^.1^13.6^65^^^^5^.7^3^3^140^4^.02^.01^.02^^810^3^.01
+103 ;;^UTILITY(U,$J,112,6453,2)
+104 ;;=.06^1.5
+105 ;;^UTILITY(U,$J,112,6453,20)
+106 ;;=Larsen Co.Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
+107 ;;^UTILITY(U,$J,112,6454,0)
+108 ;;=PEARS, PUREED^^oz.^28.35
+109 ;;^UTILITY(U,$J,112,6454,1)
+110 ;;=.6^.4^11.9^56^^^^11^2.6^14^21^170^5^.18^.2^.02^^50^6^.02
+111 ;;^UTILITY(U,$J,112,6454,2)
+112 ;;=.04^.42
+113 ;;^UTILITY(U,$J,112,6454,20)
+114 ;;=Larsen Co.Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
+115 ;;^UTILITY(U,$J,112,6455,0)
+116 ;;=SPINACH, PUREED^^oz.^28.35
+117 ;;^UTILITY(U,$J,112,6455,1)
+118 ;;=1.1^.2^2.5^18^^^^67^1.2^82^46^580^10^.94^.04^.51^^5100^4.9^.03
+119 ;;^UTILITY(U,$J,112,6455,2)
+120 ;;=.17^.46
+121 ;;^UTILITY(U,$J,112,6455,20)
+122 ;;=Larsen Co. Green Bay WI. Prod. Lit. Oct 73. DOE:121784 #516
+123 ;;^UTILITY(U,$J,112,6456,0)
+124 ;;=SQUASH, PUREED^^oz.^28.35
