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^
