Routine: FHINI0K3

FHINI0K3	; ; 11-OCT-1995

	;;5.0;Dietetics;;Oct 11, 1995

	Q:'DIFQR(114)  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,114,457,0)

	;;=DIABETIC PEACH HALVES^50^2-EACH^^^12^3^N^D-54^^C^^.262

	;;^UTILITY(U,$J,114,457,"I",0)

	;;=^114.01PA^1^1

	;;^UTILITY(U,$J,114,457,"I",1,0)

	;;=179^19^1747^19

	;;^UTILITY(U,$J,114,457,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,457,"X",1,0)

	;;=1) PORTION INTO SERVING DISHES WITH JUICE. COVER AND CHILL TO SERVE.

	;;^UTILITY(U,$J,114,458,0)

	;;=FRESH PEACH^50^1-EACH^^^^3^N^D-57^^R

	;;^UTILITY(U,$J,114,458,"I",0)

	;;=^114.01PA^1^1

	;;^UTILITY(U,$J,114,458,"I",1,0)

	;;=970^50^1746

	;;^UTILITY(U,$J,114,458,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,458,"X",1,0)

	;;=1) WASH FRUIT. CHILL TO SERVE.

	;;^UTILITY(U,$J,114,459,0)

	;;=FRESH PEAR^100^1-EACH^^^^3^N^D-60^^R

	;;^UTILITY(U,$J,114,459,"I",0)

	;;=^114.01PA^1^1

	;;^UTILITY(U,$J,114,459,"I",1,0)

	;;=822^100^1757^92

	;;^UTILITY(U,$J,114,459,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,459,"X",1,0)

	;;=1) WASH FRUIT. CHILL TO SERVE.

	;;^UTILITY(U,$J,114,460,0)

	;;=SLICED PINEAPPLE^50^1-EACH^^^12^3^N^D-61^^C^^.077

	;;^UTILITY(U,$J,114,460,"I",0)

	;;=^114.01PA^1^1

	;;^UTILITY(U,$J,114,460,"I",1,0)

	;;=999^8^1771^8

	;;^UTILITY(U,$J,114,460,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,460,"X",1,0)

	;;=1) PORTION INTO SERVING DISH WITH JUICE. COVER AND CHILL TO SERVE.

	;;^UTILITY(U,$J,114,461,0)

	;;=DIABETIC SLICED PINEAPPLE^50^2-EACH^^^12^3^N^D-62^^C^^.092

	;;^UTILITY(U,$J,114,461,"I",0)

	;;=^114.01PA^1^1

	;;^UTILITY(U,$J,114,461,"I",1,0)

	;;=202^8^1770^8

	;;^UTILITY(U,$J,114,461,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,461,"X",1,0)

	;;=1) PORTION INTO SERVING DISHES WITH JUICE. COVER AND CHILL.

	;;^UTILITY(U,$J,114,462,0)

	;;=GREEN GAGE PLUMS^50^2-EACH^^^12^3^N^D-65^^C

	;;^UTILITY(U,$J,114,462,"I",0)

	;;=^114.01PA^1^1

	;;^UTILITY(U,$J,114,462,"I",1,0)

	;;=588^12.5

	;;^UTILITY(U,$J,114,462,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,462,"X",1,0)

	;;=1) PORTION INTO SERVING DISHES WITH JUICE. COVER AND CHILL TO SERVE.

	;;^UTILITY(U,$J,114,463,0)

	;;=PURPLE PLUMS^50^2-EACH^^^12^3^N^D-68^^C^^.068

	;;^UTILITY(U,$J,114,463,"I",0)

	;;=^114.01PA^1^1

	;;^UTILITY(U,$J,114,463,"I",1,0)

	;;=204^12.5^1783^11.875

	;;^UTILITY(U,$J,114,463,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,463,"X",1,0)

	;;=1) PORTION INTO SERVING DISHES WITH JUICE. COVER AND CHILL TO SERVE.

	;;^UTILITY(U,$J,114,464,0)

	;;=DIABETIC PURPLE PLUMS^50^2-EACH^^^12^3^N^D-69^^C^^.083

	;;^UTILITY(U,$J,114,464,"I",0)

	;;=^114.01PA^1^1

	;;^UTILITY(U,$J,114,464,"I",1,0)

	;;=205^12.5^1780^11.875

	;;^UTILITY(U,$J,114,464,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,464,"X",1,0)

	;;=1) PORTION INTO SERING DISHES WITH JUICE. COVER AND CHILL TO SERVE.

	;;^UTILITY(U,$J,114,465,0)

	;;=STEWED PRUNES^50^3-EACH^^^12^3^N^D-72^^C

	;;^UTILITY(U,$J,114,465,"I",0)

	;;=^114.01PA^1^1

	;;^UTILITY(U,$J,114,465,"I",1,0)

	;;=889^12.5^1787^10.875

	;;^UTILITY(U,$J,114,465,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,465,"X",1,0)

	;;=1) PORTION INTO SERVING DISHES. COVER AND CHILL TO SERVE.

	;;^UTILITY(U,$J,114,466,0)

	;;=DIABETIC STEWED PRUNES^50^2-EACH^^^12^3^N^D-73^^C

	;;^UTILITY(U,$J,114,466,"I",0)

	;;=^114.01PA^1^1

	;;^UTILITY(U,$J,114,466,"I",1,0)

	;;=748^12.5

	;;^UTILITY(U,$J,114,466,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,466,"X",1,0)

	;;=1) PORTION INTO SERVING DISHES. COVER AND CHILL.

	;;^UTILITY(U,$J,114,467,0)

	;;=CHERRY DRINK, DIET^32^8-FLOZ^^^^1^N^^^M^^.042

	;;^UTILITY(U,$J,114,467,"I",0)

	;;=^114.01PA^2^2

	;;^UTILITY(U,$J,114,467,"I",1,0)

	;;=1000^1

	;;^UTILITY(U,$J,114,467,"I",2,0)

	;;=847^2^2021

	;;^UTILITY(U,$J,114,467,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,467,"X",1,0)

	;;=RECONSTITUTE TO 2 GAL. PORTION AS NEEDED.

	;;^UTILITY(U,$J,114,468,0)

	;;=STEWED PRUNES DEHYDRATED^50^3-EACH^^^12^3^N^D-71^^C^^.672

	;;^UTILITY(U,$J,114,468,"I",0)

	;;=^114.01PA^1^1

	;;^UTILITY(U,$J,114,468,"I",1,0)

	;;=334^12.5^1787^10.875

	;;^UTILITY(U,$J,114,468,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,468,"X",1,0)

	;;=1) PORTION INTO SERVING DISHES.

	;;^UTILITY(U,$J,114,469,0)

	;;=FRUIT PUNCH DRINK, DIET^32^8-FLOZ^^^^1^N^^^M^^.042

	;;^UTILITY(U,$J,114,469,"I",0)

	;;=^114.01PA^2^2

	;;^UTILITY(U,$J,114,469,"I",1,0)

	;;=1001^1

	;;^UTILITY(U,$J,114,469,"I",2,0)

	;;=847^2^2021

	;;^UTILITY(U,$J,114,469,"X",0)

	;;=^^1^1^2890727^

	;;^UTILITY(U,$J,114,469,"X",1,0)

	;;=RECONSTITUTE TO 2 GAL. PORTION AS NEEDED.

	;;^UTILITY(U,$J,114,470,0)

	;;=GRAPE DRINK, DIET^32^8-FLOZ^^^^1^N^^^M^^.042

	;;^UTILITY(U,$J,114,470,"I",0)

	;;=^114.01PA^2^2

	;;^UTILITY(U,$J,114,470,"I",1,0)

	;;=1002^1

	;;^UTILITY(U,$J,114,470,"I",2,0)

	;;=847^2^2021

	;;^UTILITY(U,$J,114,470,"X",0)

	;;=^^1^1^2890727^

FHINI0K3  ; ; 11-OCT-1995

 +1       ;;5.0;Dietetics;;Oct 11, 1995

 +2        IF 'DIFQR(114)

               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,114,457,0)

 +2       ;;=DIABETIC PEACH HALVES^50^2-EACH^^^12^3^N^D-54^^C^^.262

 +3       ;;^UTILITY(U,$J,114,457,"I",0)

 +4       ;;=^114.01PA^1^1

 +5       ;;^UTILITY(U,$J,114,457,"I",1,0)

 +6       ;;=179^19^1747^19

 +7       ;;^UTILITY(U,$J,114,457,"X",0)

 +8       ;;=^^1^1^2890727^

 +9       ;;^UTILITY(U,$J,114,457,"X",1,0)

 +10      ;;=1) PORTION INTO SERVING DISHES WITH JUICE. COVER AND CHILL TO SERVE.

 +11      ;;^UTILITY(U,$J,114,458,0)

 +12      ;;=FRESH PEACH^50^1-EACH^^^^3^N^D-57^^R

 +13      ;;^UTILITY(U,$J,114,458,"I",0)

 +14      ;;=^114.01PA^1^1

 +15      ;;^UTILITY(U,$J,114,458,"I",1,0)

 +16      ;;=970^50^1746

 +17      ;;^UTILITY(U,$J,114,458,"X",0)

 +18      ;;=^^1^1^2890727^

 +19      ;;^UTILITY(U,$J,114,458,"X",1,0)

 +20      ;;=1) WASH FRUIT. CHILL TO SERVE.

 +21      ;;^UTILITY(U,$J,114,459,0)

 +22      ;;=FRESH PEAR^100^1-EACH^^^^3^N^D-60^^R

 +23      ;;^UTILITY(U,$J,114,459,"I",0)

 +24      ;;=^114.01PA^1^1

 +25      ;;^UTILITY(U,$J,114,459,"I",1,0)

 +26      ;;=822^100^1757^92

 +27      ;;^UTILITY(U,$J,114,459,"X",0)

 +28      ;;=^^1^1^2890727^

 +29      ;;^UTILITY(U,$J,114,459,"X",1,0)

 +30      ;;=1) WASH FRUIT. CHILL TO SERVE.

 +31      ;;^UTILITY(U,$J,114,460,0)

 +32      ;;=SLICED PINEAPPLE^50^1-EACH^^^12^3^N^D-61^^C^^.077

 +33      ;;^UTILITY(U,$J,114,460,"I",0)

 +34      ;;=^114.01PA^1^1

 +35      ;;^UTILITY(U,$J,114,460,"I",1,0)

 +36      ;;=999^8^1771^8

 +37      ;;^UTILITY(U,$J,114,460,"X",0)

 +38      ;;=^^1^1^2890727^

 +39      ;;^UTILITY(U,$J,114,460,"X",1,0)

 +40      ;;=1) PORTION INTO SERVING DISH WITH JUICE. COVER AND CHILL TO SERVE.

 +41      ;;^UTILITY(U,$J,114,461,0)

 +42      ;;=DIABETIC SLICED PINEAPPLE^50^2-EACH^^^12^3^N^D-62^^C^^.092

 +43      ;;^UTILITY(U,$J,114,461,"I",0)

 +44      ;;=^114.01PA^1^1

 +45      ;;^UTILITY(U,$J,114,461,"I",1,0)

 +46      ;;=202^8^1770^8

 +47      ;;^UTILITY(U,$J,114,461,"X",0)

 +48      ;;=^^1^1^2890727^

 +49      ;;^UTILITY(U,$J,114,461,"X",1,0)

 +50      ;;=1) PORTION INTO SERVING DISHES WITH JUICE. COVER AND CHILL.

 +51      ;;^UTILITY(U,$J,114,462,0)

 +52      ;;=GREEN GAGE PLUMS^50^2-EACH^^^12^3^N^D-65^^C

 +53      ;;^UTILITY(U,$J,114,462,"I",0)

 +54      ;;=^114.01PA^1^1

 +55      ;;^UTILITY(U,$J,114,462,"I",1,0)

 +56      ;;=588^12.5

 +57      ;;^UTILITY(U,$J,114,462,"X",0)

 +58      ;;=^^1^1^2890727^

 +59      ;;^UTILITY(U,$J,114,462,"X",1,0)

 +60      ;;=1) PORTION INTO SERVING DISHES WITH JUICE. COVER AND CHILL TO SERVE.

 +61      ;;^UTILITY(U,$J,114,463,0)

 +62      ;;=PURPLE PLUMS^50^2-EACH^^^12^3^N^D-68^^C^^.068

 +63      ;;^UTILITY(U,$J,114,463,"I",0)

 +64      ;;=^114.01PA^1^1

 +65      ;;^UTILITY(U,$J,114,463,"I",1,0)

 +66      ;;=204^12.5^1783^11.875

 +67      ;;^UTILITY(U,$J,114,463,"X",0)

 +68      ;;=^^1^1^2890727^

 +69      ;;^UTILITY(U,$J,114,463,"X",1,0)

 +70      ;;=1) PORTION INTO SERVING DISHES WITH JUICE. COVER AND CHILL TO SERVE.

 +71      ;;^UTILITY(U,$J,114,464,0)

 +72      ;;=DIABETIC PURPLE PLUMS^50^2-EACH^^^12^3^N^D-69^^C^^.083

 +73      ;;^UTILITY(U,$J,114,464,"I",0)

 +74      ;;=^114.01PA^1^1

 +75      ;;^UTILITY(U,$J,114,464,"I",1,0)

 +76      ;;=205^12.5^1780^11.875

 +77      ;;^UTILITY(U,$J,114,464,"X",0)

 +78      ;;=^^1^1^2890727^

 +79      ;;^UTILITY(U,$J,114,464,"X",1,0)

 +80      ;;=1) PORTION INTO SERING DISHES WITH JUICE. COVER AND CHILL TO SERVE.

 +81      ;;^UTILITY(U,$J,114,465,0)

 +82      ;;=STEWED PRUNES^50^3-EACH^^^12^3^N^D-72^^C

 +83      ;;^UTILITY(U,$J,114,465,"I",0)

 +84      ;;=^114.01PA^1^1

 +85      ;;^UTILITY(U,$J,114,465,"I",1,0)

 +86      ;;=889^12.5^1787^10.875

 +87      ;;^UTILITY(U,$J,114,465,"X",0)

 +88      ;;=^^1^1^2890727^

 +89      ;;^UTILITY(U,$J,114,465,"X",1,0)

 +90      ;;=1) PORTION INTO SERVING DISHES. COVER AND CHILL TO SERVE.

 +91      ;;^UTILITY(U,$J,114,466,0)

 +92      ;;=DIABETIC STEWED PRUNES^50^2-EACH^^^12^3^N^D-73^^C

 +93      ;;^UTILITY(U,$J,114,466,"I",0)

 +94      ;;=^114.01PA^1^1

 +95      ;;^UTILITY(U,$J,114,466,"I",1,0)

 +96      ;;=748^12.5

 +97      ;;^UTILITY(U,$J,114,466,"X",0)

 +98      ;;=^^1^1^2890727^

 +99      ;;^UTILITY(U,$J,114,466,"X",1,0)

 +100     ;;=1) PORTION INTO SERVING DISHES. COVER AND CHILL.

 +101     ;;^UTILITY(U,$J,114,467,0)

 +102     ;;=CHERRY DRINK, DIET^32^8-FLOZ^^^^1^N^^^M^^.042

 +103     ;;^UTILITY(U,$J,114,467,"I",0)

 +104     ;;=^114.01PA^2^2

 +105     ;;^UTILITY(U,$J,114,467,"I",1,0)

 +106     ;;=1000^1

 +107     ;;^UTILITY(U,$J,114,467,"I",2,0)

 +108     ;;=847^2^2021

 +109     ;;^UTILITY(U,$J,114,467,"X",0)

 +110     ;;=^^1^1^2890727^

 +111     ;;^UTILITY(U,$J,114,467,"X",1,0)

 +112     ;;=RECONSTITUTE TO 2 GAL. PORTION AS NEEDED.

 +113     ;;^UTILITY(U,$J,114,468,0)

 +114     ;;=STEWED PRUNES DEHYDRATED^50^3-EACH^^^12^3^N^D-71^^C^^.672

 +115     ;;^UTILITY(U,$J,114,468,"I",0)

 +116     ;;=^114.01PA^1^1

 +117     ;;^UTILITY(U,$J,114,468,"I",1,0)

 +118     ;;=334^12.5^1787^10.875

 +119     ;;^UTILITY(U,$J,114,468,"X",0)

 +120     ;;=^^1^1^2890727^

 +121     ;;^UTILITY(U,$J,114,468,"X",1,0)

 +122     ;;=1) PORTION INTO SERVING DISHES.

 +123     ;;^UTILITY(U,$J,114,469,0)

 +124     ;;=FRUIT PUNCH DRINK, DIET^32^8-FLOZ^^^^1^N^^^M^^.042

 +125     ;;^UTILITY(U,$J,114,469,"I",0)

 +126     ;;=^114.01PA^2^2

 +127     ;;^UTILITY(U,$J,114,469,"I",1,0)

 +128     ;;=1001^1

 +129     ;;^UTILITY(U,$J,114,469,"I",2,0)

 +130     ;;=847^2^2021

 +131     ;;^UTILITY(U,$J,114,469,"X",0)

 +132     ;;=^^1^1^2890727^

 +133     ;;^UTILITY(U,$J,114,469,"X",1,0)

 +134     ;;=RECONSTITUTE TO 2 GAL. PORTION AS NEEDED.

 +135     ;;^UTILITY(U,$J,114,470,0)

 +136     ;;=GRAPE DRINK, DIET^32^8-FLOZ^^^^1^N^^^M^^.042

 +137     ;;^UTILITY(U,$J,114,470,"I",0)

 +138     ;;=^114.01PA^2^2

 +139     ;;^UTILITY(U,$J,114,470,"I",1,0)

 +140     ;;=1002^1

 +141     ;;^UTILITY(U,$J,114,470,"I",2,0)

 +142     ;;=847^2^2021

 +143     ;;^UTILITY(U,$J,114,470,"X",0)

 +144     ;;=^^1^1^2890727^

FHINI0K3.m