Routine: FHINI09L

FHINI09L	; ; 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,6608,20)

	;;=BAY PINES RECIPE 5/16/86

	;;^UTILITY(U,$J,112,6609,0)

	;;=COLONIAL CUCUMBERS^^servings^85

	;;^UTILITY(U,$J,112,6609,1)

	;;=.6^.12^3.5^14.2^95.2^^^18.6^.45^10.1^16^134^263^.21^.03^.06^^567^8.09^.02

	;;^UTILITY(U,$J,112,6609,2)

	;;=.02^.24^.2^.05^11.1^^^^^^^^^^^^.35

	;;^UTILITY(U,$J,112,6609,20)

	;;=BAY PINES STD RECIPE 5/16/86

	;;^UTILITY(U,$J,112,6610,0)

	;;=HOLLAND SALAD^^servings^86.5

	;;^UTILITY(U,$J,112,6610,1)

	;;=1.04^10.7^18.9^167^68.5^^^25.2^.64^13.4^35.3^267^227^.17^.08^.38^2.9^11166^6.8^.08

	;;^UTILITY(U,$J,112,6610,2)

	;;=.05^.58^.16^.18^10.6^.03^6.8^.5^7.8^1.16^1.7^7.3^^^^^.7

	;;^UTILITY(U,$J,112,6610,20)

	;;=BAY PINES STD RECIPE 5/16/86

	;;^UTILITY(U,$J,112,6613,0)

	;;=SHAKE N BAKE^^tbsp.^5

	;;^UTILITY(U,$J,112,6613,1)

	;;=10^12^62^600^^^^60^2^^40^60^3320^^^^^20^0^0

	;;^UTILITY(U,$J,112,6613,2)

	;;=0^0

	;;^UTILITY(U,$J,112,6613,20)

	;;=Bowes & Church, 13th ed.,c.1980. DOE:6/86  #516

	;;^UTILITY(U,$J,112,6614,0)

	;;=PUDDING, BANANA CREAM (JELLO)^^half-cups^113

	;;^UTILITY(U,$J,112,6614,1)

	;;=2.6^3.5^23.8^132^^^^70.4^0^^141^141^185^^^^^88^0^.02

	;;^UTILITY(U,$J,112,6614,2)

	;;=.12^0

	;;^UTILITY(U,$J,112,6614,20)

	;;=General Foods Prod. Lit.  Sept. 1985. DOE:6/86 #516. Vit/min. calc from %RDA.

	;;^UTILITY(U,$J,112,6615,0)

	;;=PUDDING, BUTTER PECAN (JELLO)^^half-cups^113

	;;^UTILITY(U,$J,112,6615,1)

	;;=3.5^3.5^24.6^141^^^^105.6^0^^141^150^202^^^^^88^0^.02

	;;^UTILITY(U,$J,112,6615,2)

	;;=.12^0

	;;^UTILITY(U,$J,112,6615,20)

	;;=General Foods Prod. Lit. Sept. 1985. DOE: 6/86 #516. Vit/min. calc. from %RDA.

	;;^UTILITY(U,$J,112,6616,0)

	;;=PUDDING, BUTTERSCOTCH (JELLO)^^half-cups^113

	;;^UTILITY(U,$J,112,6616,1)

	;;=2.6^3.5^23.8^132^^^^70.4^0^^141^141^229^^^^^88^0^.02

	;;^UTILITY(U,$J,112,6616,2)

	;;=.12^0

	;;^UTILITY(U,$J,112,6616,20)

	;;=General Foods Prod. Lit. Sept. 1985. DOE: 6/86 #516. Vit/min. calc. from %RDA.

	;;^UTILITY(U,$J,112,6617,0)

	;;=PUDDING, CHOCOLATE (JELLO)^^half-cups^113

	;;^UTILITY(U,$J,112,6617,1)

	;;=3.5^3.5^22^123.2^^^^70.4^0^^141^141^185^^^^^88^0^.02

	;;^UTILITY(U,$J,112,6617,2)

	;;=.12^0

	;;^UTILITY(U,$J,112,6617,20)

	;;=General Foods Prod. Lit. Sept. 1985. DOE: 6/86 #516. Vit/min. calc. from %RDA.

	;;^UTILITY(U,$J,112,6618,0)

	;;=PUDDING, LEMON (JELLO)^^half-cups^113

	;;^UTILITY(U,$J,112,6618,1)

	;;=2.6^3.5^23.8^132^^^^70.4^0^^141^141^185^^^^^88^0^.02

	;;^UTILITY(U,$J,112,6618,2)

	;;=.12^0

	;;^UTILITY(U,$J,112,6618,20)

	;;=General Foods Prod. Lit, Sept. 1985 DOE: 6/86 #516. Vit/min. calc. from %RDA.

	;;^UTILITY(U,$J,112,6619,0)

	;;=PUDDING, PISTACHIO (JELLO)^^half-cups^113

	;;^UTILITY(U,$J,112,6619,1)

	;;=3.5^4.4^24.6^150^^^^105.6^0^^141^150^194^^^^^88^0^.02

	;;^UTILITY(U,$J,112,6619,2)

	;;=.12^0

	;;^UTILITY(U,$J,112,6619,20)

	;;=General Foods Prod. Lit., Sept. 1985 DOE: 6/86 #516. Vit/min. calc. from %RDA.

	;;^UTILITY(U,$J,112,6620,0)

	;;=PUDDING, VANILLA (JELLO)^^half-cups^113

	;;^UTILITY(U,$J,112,6620,1)

	;;=2.6^3.5^23.8^132^^^^70.4^0^^141^141^185^^^^^88^0^.02

	;;^UTILITY(U,$J,112,6620,2)

	;;=.12^0

	;;^UTILITY(U,$J,112,6620,20)

	;;=General Foods Prod. Lit., Sept. 1985. DOE: 6/86 #516. Vit/min. calc. from %RDA.

	;;^UTILITY(U,$J,112,6621,0)

	;;=PUDDING POPS, CHOCOLATE (JELLO)^^pops^47.2

	;;^UTILITY(U,$J,112,6621,1)

	;;=4.2^4.2^27.6^170^^^^101.8^0^^68^191^170^^^^^0^0^0

	;;^UTILITY(U,$J,112,6621,2)

	;;=.18^0

	;;^UTILITY(U,$J,112,6621,20)

	;;=General Foods Prod Lit. Sept. 1985. DOE: 6/86. #516 Vit/min. calc. from %RDA.

	;;^UTILITY(U,$J,112,6622,0)

	;;=PUDDING POPS, VANILLA W/CHOC COAT (JELLO)^^pops^48.8

	;;^UTILITY(U,$J,112,6622,1)

	;;=4.1^16.4^30.8^267^^^^98.4^0^^66^164^103^^^^^0^0^0

	;;^UTILITY(U,$J,112,6622,2)

	;;=.17^0

	;;^UTILITY(U,$J,112,6622,20)

	;;=General Foods Prod Lit. Sept 1985.. DOE: 6/86 #516. Vit/min calc. from %RDA.

	;;^UTILITY(U,$J,112,6623,0)

	;;=PUDDING POPS, CHOC/VAN SWIRL (JELLO)^^pops^47.2

	;;^UTILITY(U,$J,112,6623,1)

	;;=4.2^4.2^27.6^170^^^^101.8^0^^68^170^138^^^^^0^0^0

	;;^UTILITY(U,$J,112,6623,2)

	;;=.18^0

	;;^UTILITY(U,$J,112,6623,20)

	;;=General Foods Prod Lit. Sept. 1985. DOE: 6/86 #516. Vit/min calc. from %RDA.

	;;^UTILITY(U,$J,112,6624,0)

	;;=PUDDING POPS, VANILLA (JELLO)^^pops^47.2

	;;^UTILITY(U,$J,112,6624,1)

	;;=4.2^4.2^27.6^148^^^^101.8^0^^68^138^106^^^^^0^0^0

	;;^UTILITY(U,$J,112,6624,2)

	;;=.18^0

	;;^UTILITY(U,$J,112,6624,20)

	;;=General Foods Prod Lit. Sept 1985. DOE: 6/86 #516. Vit/min calc. from %RDA.

	;;^UTILITY(U,$J,112,6625,0)

	;;=POSTUM^^cups^240

	;;^UTILITY(U,$J,112,6625,1)

	;;=0^0^1.3^5^^^^0^0^^6.7^40^0^^^^^0^0^0

	;;^UTILITY(U,$J,112,6625,2)

	;;=0^.27

	;;^UTILITY(U,$J,112,6625,20)

	;;=GENERAL FOODS PRODUCT LITERATURE.  SEPTEMBER, 1985.

FHINI09L  ; ; 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,6608,20)

 +2       ;;=BAY PINES RECIPE 5/16/86

 +3       ;;^UTILITY(U,$J,112,6609,0)

 +4       ;;=COLONIAL CUCUMBERS^^servings^85

 +5       ;;^UTILITY(U,$J,112,6609,1)

 +6       ;;=.6^.12^3.5^14.2^95.2^^^18.6^.45^10.1^16^134^263^.21^.03^.06^^567^8.09^.02

 +7       ;;^UTILITY(U,$J,112,6609,2)

 +8       ;;=.02^.24^.2^.05^11.1^^^^^^^^^^^^.35

 +9       ;;^UTILITY(U,$J,112,6609,20)

 +10      ;;=BAY PINES STD RECIPE 5/16/86

 +11      ;;^UTILITY(U,$J,112,6610,0)

 +12      ;;=HOLLAND SALAD^^servings^86.5

 +13      ;;^UTILITY(U,$J,112,6610,1)

 +14      ;;=1.04^10.7^18.9^167^68.5^^^25.2^.64^13.4^35.3^267^227^.17^.08^.38^2.9^11166^6.8^.08

 +15      ;;^UTILITY(U,$J,112,6610,2)

 +16      ;;=.05^.58^.16^.18^10.6^.03^6.8^.5^7.8^1.16^1.7^7.3^^^^^.7

 +17      ;;^UTILITY(U,$J,112,6610,20)

 +18      ;;=BAY PINES STD RECIPE 5/16/86

 +19      ;;^UTILITY(U,$J,112,6613,0)

 +20      ;;=SHAKE N BAKE^^tbsp.^5

 +21      ;;^UTILITY(U,$J,112,6613,1)

 +22      ;;=10^12^62^600^^^^60^2^^40^60^3320^^^^^20^0^0

 +23      ;;^UTILITY(U,$J,112,6613,2)

 +24      ;;=0^0

 +25      ;;^UTILITY(U,$J,112,6613,20)

 +26      ;;=Bowes & Church, 13th ed.,c.1980. DOE:6/86  #516

 +27      ;;^UTILITY(U,$J,112,6614,0)

 +28      ;;=PUDDING, BANANA CREAM (JELLO)^^half-cups^113

 +29      ;;^UTILITY(U,$J,112,6614,1)

 +30      ;;=2.6^3.5^23.8^132^^^^70.4^0^^141^141^185^^^^^88^0^.02

 +31      ;;^UTILITY(U,$J,112,6614,2)

 +32      ;;=.12^0

 +33      ;;^UTILITY(U,$J,112,6614,20)

 +34      ;;=General Foods Prod. Lit.  Sept. 1985. DOE:6/86 #516. Vit/min. calc from %RDA.

 +35      ;;^UTILITY(U,$J,112,6615,0)

 +36      ;;=PUDDING, BUTTER PECAN (JELLO)^^half-cups^113

 +37      ;;^UTILITY(U,$J,112,6615,1)

 +38      ;;=3.5^3.5^24.6^141^^^^105.6^0^^141^150^202^^^^^88^0^.02

 +39      ;;^UTILITY(U,$J,112,6615,2)

 +40      ;;=.12^0

 +41      ;;^UTILITY(U,$J,112,6615,20)

 +42      ;;=General Foods Prod. Lit. Sept. 1985. DOE: 6/86 #516. Vit/min. calc. from %RDA.

 +43      ;;^UTILITY(U,$J,112,6616,0)

 +44      ;;=PUDDING, BUTTERSCOTCH (JELLO)^^half-cups^113

 +45      ;;^UTILITY(U,$J,112,6616,1)

 +46      ;;=2.6^3.5^23.8^132^^^^70.4^0^^141^141^229^^^^^88^0^.02

 +47      ;;^UTILITY(U,$J,112,6616,2)

 +48      ;;=.12^0

 +49      ;;^UTILITY(U,$J,112,6616,20)

 +50      ;;=General Foods Prod. Lit. Sept. 1985. DOE: 6/86 #516. Vit/min. calc. from %RDA.

 +51      ;;^UTILITY(U,$J,112,6617,0)

 +52      ;;=PUDDING, CHOCOLATE (JELLO)^^half-cups^113

 +53      ;;^UTILITY(U,$J,112,6617,1)

 +54      ;;=3.5^3.5^22^123.2^^^^70.4^0^^141^141^185^^^^^88^0^.02

 +55      ;;^UTILITY(U,$J,112,6617,2)

 +56      ;;=.12^0

 +57      ;;^UTILITY(U,$J,112,6617,20)

 +58      ;;=General Foods Prod. Lit. Sept. 1985. DOE: 6/86 #516. Vit/min. calc. from %RDA.

 +59      ;;^UTILITY(U,$J,112,6618,0)

 +60      ;;=PUDDING, LEMON (JELLO)^^half-cups^113

 +61      ;;^UTILITY(U,$J,112,6618,1)

 +62      ;;=2.6^3.5^23.8^132^^^^70.4^0^^141^141^185^^^^^88^0^.02

 +63      ;;^UTILITY(U,$J,112,6618,2)

 +64      ;;=.12^0

 +65      ;;^UTILITY(U,$J,112,6618,20)

 +66      ;;=General Foods Prod. Lit, Sept. 1985 DOE: 6/86 #516. Vit/min. calc. from %RDA.

 +67      ;;^UTILITY(U,$J,112,6619,0)

 +68      ;;=PUDDING, PISTACHIO (JELLO)^^half-cups^113

 +69      ;;^UTILITY(U,$J,112,6619,1)

 +70      ;;=3.5^4.4^24.6^150^^^^105.6^0^^141^150^194^^^^^88^0^.02

 +71      ;;^UTILITY(U,$J,112,6619,2)

 +72      ;;=.12^0

 +73      ;;^UTILITY(U,$J,112,6619,20)

 +74      ;;=General Foods Prod. Lit., Sept. 1985 DOE: 6/86 #516. Vit/min. calc. from %RDA.

 +75      ;;^UTILITY(U,$J,112,6620,0)

 +76      ;;=PUDDING, VANILLA (JELLO)^^half-cups^113

 +77      ;;^UTILITY(U,$J,112,6620,1)

 +78      ;;=2.6^3.5^23.8^132^^^^70.4^0^^141^141^185^^^^^88^0^.02

 +79      ;;^UTILITY(U,$J,112,6620,2)

 +80      ;;=.12^0

 +81      ;;^UTILITY(U,$J,112,6620,20)

 +82      ;;=General Foods Prod. Lit., Sept. 1985. DOE: 6/86 #516. Vit/min. calc. from %RDA.

 +83      ;;^UTILITY(U,$J,112,6621,0)

 +84      ;;=PUDDING POPS, CHOCOLATE (JELLO)^^pops^47.2

 +85      ;;^UTILITY(U,$J,112,6621,1)

 +86      ;;=4.2^4.2^27.6^170^^^^101.8^0^^68^191^170^^^^^0^0^0

 +87      ;;^UTILITY(U,$J,112,6621,2)

 +88      ;;=.18^0

 +89      ;;^UTILITY(U,$J,112,6621,20)

 +90      ;;=General Foods Prod Lit. Sept. 1985. DOE: 6/86. #516 Vit/min. calc. from %RDA.

 +91      ;;^UTILITY(U,$J,112,6622,0)

 +92      ;;=PUDDING POPS, VANILLA W/CHOC COAT (JELLO)^^pops^48.8

 +93      ;;^UTILITY(U,$J,112,6622,1)

 +94      ;;=4.1^16.4^30.8^267^^^^98.4^0^^66^164^103^^^^^0^0^0

 +95      ;;^UTILITY(U,$J,112,6622,2)

 +96      ;;=.17^0

 +97      ;;^UTILITY(U,$J,112,6622,20)

 +98      ;;=General Foods Prod Lit. Sept 1985.. DOE: 6/86 #516. Vit/min calc. from %RDA.

 +99      ;;^UTILITY(U,$J,112,6623,0)

 +100     ;;=PUDDING POPS, CHOC/VAN SWIRL (JELLO)^^pops^47.2

 +101     ;;^UTILITY(U,$J,112,6623,1)

 +102     ;;=4.2^4.2^27.6^170^^^^101.8^0^^68^170^138^^^^^0^0^0

 +103     ;;^UTILITY(U,$J,112,6623,2)

 +104     ;;=.18^0

 +105     ;;^UTILITY(U,$J,112,6623,20)

 +106     ;;=General Foods Prod Lit. Sept. 1985. DOE: 6/86 #516. Vit/min calc. from %RDA.

 +107     ;;^UTILITY(U,$J,112,6624,0)

 +108     ;;=PUDDING POPS, VANILLA (JELLO)^^pops^47.2

 +109     ;;^UTILITY(U,$J,112,6624,1)

 +110     ;;=4.2^4.2^27.6^148^^^^101.8^0^^68^138^106^^^^^0^0^0

 +111     ;;^UTILITY(U,$J,112,6624,2)

 +112     ;;=.18^0

 +113     ;;^UTILITY(U,$J,112,6624,20)

 +114     ;;=General Foods Prod Lit. Sept 1985. DOE: 6/86 #516. Vit/min calc. from %RDA.

 +115     ;;^UTILITY(U,$J,112,6625,0)

 +116     ;;=POSTUM^^cups^240

 +117     ;;^UTILITY(U,$J,112,6625,1)

 +118     ;;=0^0^1.3^5^^^^0^0^^6.7^40^0^^^^^0^0^0

 +119     ;;^UTILITY(U,$J,112,6625,2)

 +120     ;;=0^.27

 +121     ;;^UTILITY(U,$J,112,6625,20)

 +122     ;;=GENERAL FOODS PRODUCT LITERATURE.  SEPTEMBER, 1985.

FHINI09L.m