FHINI0K0 ; ; 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,408,0)
;;=GRAPEFRUIT JUICE, 6OZ IND^1^1-EACH^^^^1^N^^^I^^.2
;;^UTILITY(U,$J,114,408,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,408,"I",1,0)
;;=143^1^1692
;;^UTILITY(U,$J,114,409,0)
;;=LEMON JUICE, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,409,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,409,"I",1,0)
;;=146^1^1708
;;^UTILITY(U,$J,114,410,0)
;;=PRUNE JUICE, 6OZ IND^1^1-EACH^^^^1^N^^^I
;;^UTILITY(U,$J,114,410,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,410,"I",1,0)
;;=147^1^1790
;;^UTILITY(U,$J,114,411,0)
;;=MUSTARD, DIET IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,411,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,411,"I",1,0)
;;=162^1
;;^UTILITY(U,$J,114,412,0)
;;=GINGER ALE, DIET IND^1^1-EACH^^^^11^N^^^I^^.17
;;^UTILITY(U,$J,114,412,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,412,"I",1,0)
;;=295^1
;;^UTILITY(U,$J,114,413,0)
;;=CANNED CREAM OF CELERY SOUP^15^6-FLOZ^20 MIN^^10^10^N^A-100^^C^^.087
;;^UTILITY(U,$J,114,413,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,413,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,413,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,413,"I",1,0)
;;=509^.39063^547^.39063
;;^UTILITY(U,$J,114,413,"I",2,0)
;;=847^.39063^2021
;;^UTILITY(U,$J,114,413,"X",0)
;;=^^2^2^2890727^
;;^UTILITY(U,$J,114,413,"X",1,0)
;;=1) COMBINE WATER AND SOUP. BLEND WELL.
;;^UTILITY(U,$J,114,413,"X",2,0)
;;=2) HEAT THROUGH. SERVE HOT.
;;^UTILITY(U,$J,114,414,0)
;;=SODA CRACKERS, DIET IND^1^1-EACH^^^^3^N
;;^UTILITY(U,$J,114,414,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,414,"I",1,0)
;;=296^1^6423
;;^UTILITY(U,$J,114,415,0)
;;=SHREDDED OAT CEREAL, IND^1^1-EACH^^^^2^N
;;^UTILITY(U,$J,114,415,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,415,"I",1,0)
;;=318^1^1172^.062
;;^UTILITY(U,$J,114,416,0)
;;=CANNED CREAM OF PEA SOUP^15^6-FLOZ^20 MIN^^10^10^N^A-101^^C
;;^UTILITY(U,$J,114,416,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,416,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,416,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,416,"I",1,0)
;;=244^.39063^567^3.62387451
;;^UTILITY(U,$J,114,416,"I",2,0)
;;=847^.39063^2021
;;^UTILITY(U,$J,114,416,"X",0)
;;=^^2^2^2890727^
;;^UTILITY(U,$J,114,416,"X",1,0)
;;=1) COMBINE WATER AND SOUP. BLEND WELL.
;;^UTILITY(U,$J,114,416,"X",2,0)
;;=2) HEAT THROUGH. SERVE HOT.
;;^UTILITY(U,$J,114,417,0)
;;=WAFER COOKIES W/ CREAM^1^1-EACH^^^^3^N
;;^UTILITY(U,$J,114,417,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,417,"I",1,0)
;;=387^1^1023
;;^UTILITY(U,$J,114,418,0)
;;=PINEAPPLE JUICE, 6OZ IND^1^1-EACH^^^^1^N^^^I^^.2
;;^UTILITY(U,$J,114,418,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,418,"I",1,0)
;;=388^1^1775
;;^UTILITY(U,$J,114,419,0)
;;=CANNED CREAM OF MUSHROOM SOUP^15^6-FLOZ^20 MIN^^10^10^N^A-104^^C^^.103
;;^UTILITY(U,$J,114,419,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,419,"E",1,0)
;;=7
;;^UTILITY(U,$J,114,419,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,419,"I",1,0)
;;=245^.39063^562^.39063
;;^UTILITY(U,$J,114,419,"I",2,0)
;;=847^.39063^2021
;;^UTILITY(U,$J,114,419,"X",0)
;;=^^2^2^2890727^
;;^UTILITY(U,$J,114,419,"X",1,0)
;;=1) COMBINE WATER AND SOUP. BLEND WELL.
;;^UTILITY(U,$J,114,419,"X",2,0)
;;=2) HEAT THROUGH. SERVE HOT.
;;^UTILITY(U,$J,114,420,0)
;;=WAFER COOKIES CHOC/VAN IND^1^1-EACH^^^^3^N
;;^UTILITY(U,$J,114,420,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,420,"I",1,0)
;;=415^1^1024
;;^UTILITY(U,$J,114,421,0)
;;=CORN CHIPS IND^1^1-EACH^^^^3^N
;;^UTILITY(U,$J,114,421,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,421,"I",1,0)
;;=428^1^6439
;;^UTILITY(U,$J,114,422,0)
;;=GRITS^50^4-FLOZ^20 MIN^^9^2^N^C-60^^S^^.011
;;^UTILITY(U,$J,114,422,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,422,"E",1,0)
;;=6
;;^UTILITY(U,$J,114,422,"I",0)
;;=^114.01PA^3^3
;;^UTILITY(U,$J,114,422,"I",1,0)
;;=331^2.25^1156^2.25
;;^UTILITY(U,$J,114,422,"I",2,0)
;;=847^1.25^2021
;;^UTILITY(U,$J,114,422,"I",3,0)
;;=230^.09375^1598^.09375
;;^UTILITY(U,$J,114,422,"X",0)
;;=^^3^3^2890727^
;;^UTILITY(U,$J,114,422,"X",1,0)
;;=1) ADD SALT TO WATER. BRING TO BOIL.
;;^UTILITY(U,$J,114,422,"X",2,0)
;;=2) ADD CEREAL GRADUALLY, STIRRING TO PREVENT LUMPING.
;;^UTILITY(U,$J,114,422,"X",3,0)
;;=3) BRING TO BOIL AND COOK REQUIRED TIME. STIR AS NEEDED.
;;^UTILITY(U,$J,114,423,0)
;;=SEAFOOD SAUCE, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,423,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,423,"I",1,0)
;;=481^1
;;^UTILITY(U,$J,114,424,0)
;;=POTATO CHIPS IND^1^1-EACH^^^^7^N
;;^UTILITY(U,$J,114,424,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,424,"I",1,0)
;;=514^1^1529
;;^UTILITY(U,$J,114,425,0)
;;=LS GRITS^50^4-FLOZ^20 MIN^^9^2^N^C-61^^S^^.011
FHINI0K0 ; ; 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,408,0)
+2 ;;=GRAPEFRUIT JUICE, 6OZ IND^1^1-EACH^^^^1^N^^^I^^.2
+3 ;;^UTILITY(U,$J,114,408,"I",0)
+4 ;;=^114.01PA^1^1
+5 ;;^UTILITY(U,$J,114,408,"I",1,0)
+6 ;;=143^1^1692
+7 ;;^UTILITY(U,$J,114,409,0)
+8 ;;=LEMON JUICE, IND^1^1-EACH^^^^13^N^^^I
+9 ;;^UTILITY(U,$J,114,409,"I",0)
+10 ;;=^114.01PA^1^1
+11 ;;^UTILITY(U,$J,114,409,"I",1,0)
+12 ;;=146^1^1708
+13 ;;^UTILITY(U,$J,114,410,0)
+14 ;;=PRUNE JUICE, 6OZ IND^1^1-EACH^^^^1^N^^^I
+15 ;;^UTILITY(U,$J,114,410,"I",0)
+16 ;;=^114.01PA^1^1
+17 ;;^UTILITY(U,$J,114,410,"I",1,0)
+18 ;;=147^1^1790
+19 ;;^UTILITY(U,$J,114,411,0)
+20 ;;=MUSTARD, DIET IND^1^1-EACH^^^^13^N^^^I
+21 ;;^UTILITY(U,$J,114,411,"I",0)
+22 ;;=^114.01PA^1^1
+23 ;;^UTILITY(U,$J,114,411,"I",1,0)
+24 ;;=162^1
+25 ;;^UTILITY(U,$J,114,412,0)
+26 ;;=GINGER ALE, DIET IND^1^1-EACH^^^^11^N^^^I^^.17
+27 ;;^UTILITY(U,$J,114,412,"I",0)
+28 ;;=^114.01PA^1^1
+29 ;;^UTILITY(U,$J,114,412,"I",1,0)
+30 ;;=295^1
+31 ;;^UTILITY(U,$J,114,413,0)
+32 ;;=CANNED CREAM OF CELERY SOUP^15^6-FLOZ^20 MIN^^10^10^N^A-100^^C^^.087
+33 ;;^UTILITY(U,$J,114,413,"E",0)
+34 ;;=^114.05P^1^1
+35 ;;^UTILITY(U,$J,114,413,"E",1,0)
+36 ;;=7
+37 ;;^UTILITY(U,$J,114,413,"I",0)
+38 ;;=^114.01PA^2^2
+39 ;;^UTILITY(U,$J,114,413,"I",1,0)
+40 ;;=509^.39063^547^.39063
+41 ;;^UTILITY(U,$J,114,413,"I",2,0)
+42 ;;=847^.39063^2021
+43 ;;^UTILITY(U,$J,114,413,"X",0)
+44 ;;=^^2^2^2890727^
+45 ;;^UTILITY(U,$J,114,413,"X",1,0)
+46 ;;=1) COMBINE WATER AND SOUP. BLEND WELL.
+47 ;;^UTILITY(U,$J,114,413,"X",2,0)
+48 ;;=2) HEAT THROUGH. SERVE HOT.
+49 ;;^UTILITY(U,$J,114,414,0)
+50 ;;=SODA CRACKERS, DIET IND^1^1-EACH^^^^3^N
+51 ;;^UTILITY(U,$J,114,414,"I",0)
+52 ;;=^114.01PA^1^1
+53 ;;^UTILITY(U,$J,114,414,"I",1,0)
+54 ;;=296^1^6423
+55 ;;^UTILITY(U,$J,114,415,0)
+56 ;;=SHREDDED OAT CEREAL, IND^1^1-EACH^^^^2^N
+57 ;;^UTILITY(U,$J,114,415,"I",0)
+58 ;;=^114.01PA^1^1
+59 ;;^UTILITY(U,$J,114,415,"I",1,0)
+60 ;;=318^1^1172^.062
+61 ;;^UTILITY(U,$J,114,416,0)
+62 ;;=CANNED CREAM OF PEA SOUP^15^6-FLOZ^20 MIN^^10^10^N^A-101^^C
+63 ;;^UTILITY(U,$J,114,416,"E",0)
+64 ;;=^114.05P^1^1
+65 ;;^UTILITY(U,$J,114,416,"E",1,0)
+66 ;;=7
+67 ;;^UTILITY(U,$J,114,416,"I",0)
+68 ;;=^114.01PA^2^2
+69 ;;^UTILITY(U,$J,114,416,"I",1,0)
+70 ;;=244^.39063^567^3.62387451
+71 ;;^UTILITY(U,$J,114,416,"I",2,0)
+72 ;;=847^.39063^2021
+73 ;;^UTILITY(U,$J,114,416,"X",0)
+74 ;;=^^2^2^2890727^
+75 ;;^UTILITY(U,$J,114,416,"X",1,0)
+76 ;;=1) COMBINE WATER AND SOUP. BLEND WELL.
+77 ;;^UTILITY(U,$J,114,416,"X",2,0)
+78 ;;=2) HEAT THROUGH. SERVE HOT.
+79 ;;^UTILITY(U,$J,114,417,0)
+80 ;;=WAFER COOKIES W/ CREAM^1^1-EACH^^^^3^N
+81 ;;^UTILITY(U,$J,114,417,"I",0)
+82 ;;=^114.01PA^1^1
+83 ;;^UTILITY(U,$J,114,417,"I",1,0)
+84 ;;=387^1^1023
+85 ;;^UTILITY(U,$J,114,418,0)
+86 ;;=PINEAPPLE JUICE, 6OZ IND^1^1-EACH^^^^1^N^^^I^^.2
+87 ;;^UTILITY(U,$J,114,418,"I",0)
+88 ;;=^114.01PA^1^1
+89 ;;^UTILITY(U,$J,114,418,"I",1,0)
+90 ;;=388^1^1775
+91 ;;^UTILITY(U,$J,114,419,0)
+92 ;;=CANNED CREAM OF MUSHROOM SOUP^15^6-FLOZ^20 MIN^^10^10^N^A-104^^C^^.103
+93 ;;^UTILITY(U,$J,114,419,"E",0)
+94 ;;=^114.05P^1^1
+95 ;;^UTILITY(U,$J,114,419,"E",1,0)
+96 ;;=7
+97 ;;^UTILITY(U,$J,114,419,"I",0)
+98 ;;=^114.01PA^2^2
+99 ;;^UTILITY(U,$J,114,419,"I",1,0)
+100 ;;=245^.39063^562^.39063
+101 ;;^UTILITY(U,$J,114,419,"I",2,0)
+102 ;;=847^.39063^2021
+103 ;;^UTILITY(U,$J,114,419,"X",0)
+104 ;;=^^2^2^2890727^
+105 ;;^UTILITY(U,$J,114,419,"X",1,0)
+106 ;;=1) COMBINE WATER AND SOUP. BLEND WELL.
+107 ;;^UTILITY(U,$J,114,419,"X",2,0)
+108 ;;=2) HEAT THROUGH. SERVE HOT.
+109 ;;^UTILITY(U,$J,114,420,0)
+110 ;;=WAFER COOKIES CHOC/VAN IND^1^1-EACH^^^^3^N
+111 ;;^UTILITY(U,$J,114,420,"I",0)
+112 ;;=^114.01PA^1^1
+113 ;;^UTILITY(U,$J,114,420,"I",1,0)
+114 ;;=415^1^1024
+115 ;;^UTILITY(U,$J,114,421,0)
+116 ;;=CORN CHIPS IND^1^1-EACH^^^^3^N
+117 ;;^UTILITY(U,$J,114,421,"I",0)
+118 ;;=^114.01PA^1^1
+119 ;;^UTILITY(U,$J,114,421,"I",1,0)
+120 ;;=428^1^6439
+121 ;;^UTILITY(U,$J,114,422,0)
+122 ;;=GRITS^50^4-FLOZ^20 MIN^^9^2^N^C-60^^S^^.011
+123 ;;^UTILITY(U,$J,114,422,"E",0)
+124 ;;=^114.05P^1^1
+125 ;;^UTILITY(U,$J,114,422,"E",1,0)
+126 ;;=6
+127 ;;^UTILITY(U,$J,114,422,"I",0)
+128 ;;=^114.01PA^3^3
+129 ;;^UTILITY(U,$J,114,422,"I",1,0)
+130 ;;=331^2.25^1156^2.25
+131 ;;^UTILITY(U,$J,114,422,"I",2,0)
+132 ;;=847^1.25^2021
+133 ;;^UTILITY(U,$J,114,422,"I",3,0)
+134 ;;=230^.09375^1598^.09375
+135 ;;^UTILITY(U,$J,114,422,"X",0)
+136 ;;=^^3^3^2890727^
+137 ;;^UTILITY(U,$J,114,422,"X",1,0)
+138 ;;=1) ADD SALT TO WATER. BRING TO BOIL.
+139 ;;^UTILITY(U,$J,114,422,"X",2,0)
+140 ;;=2) ADD CEREAL GRADUALLY, STIRRING TO PREVENT LUMPING.
+141 ;;^UTILITY(U,$J,114,422,"X",3,0)
+142 ;;=3) BRING TO BOIL AND COOK REQUIRED TIME. STIR AS NEEDED.
+143 ;;^UTILITY(U,$J,114,423,0)
+144 ;;=SEAFOOD SAUCE, IND^1^1-EACH^^^^13^N^^^I
+145 ;;^UTILITY(U,$J,114,423,"I",0)
+146 ;;=^114.01PA^1^1
+147 ;;^UTILITY(U,$J,114,423,"I",1,0)
+148 ;;=481^1
+149 ;;^UTILITY(U,$J,114,424,0)
+150 ;;=POTATO CHIPS IND^1^1-EACH^^^^7^N
+151 ;;^UTILITY(U,$J,114,424,"I",0)
+152 ;;=^114.01PA^1^1
+153 ;;^UTILITY(U,$J,114,424,"I",1,0)
+154 ;;=514^1^1529
+155 ;;^UTILITY(U,$J,114,425,0)
+156 ;;=LS GRITS^50^4-FLOZ^20 MIN^^9^2^N^C-61^^S^^.011
