FHINI0JZ ; ; 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,387,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,387,"I",1,0)
;;=222^1^357
;;^UTILITY(U,$J,114,388,0)
;;=THOUS. ISL. DRESS, DIET IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,388,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,388,"I",1,0)
;;=267^1^1590
;;^UTILITY(U,$J,114,389,0)
;;=THOUS. ISL. DRESSING, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,389,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,389,"I",1,0)
;;=268^1^353
;;^UTILITY(U,$J,114,390,0)
;;=VINEGAR DRESSING, DIET IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,390,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,390,"I",1,0)
;;=278^1
;;^UTILITY(U,$J,114,391,0)
;;=TARTAR SAUCE, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,391,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,391,"I",1,0)
;;=301^1^1924
;;^UTILITY(U,$J,114,392,0)
;;=RUSSIAN DRESSING, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,392,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,392,"I",1,0)
;;=353^1^351
;;^UTILITY(U,$J,114,393,0)
;;=GARLIC ITAL DRESS, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,393,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,393,"I",1,0)
;;=333^1
;;^UTILITY(U,$J,114,394,0)
;;=COCKTAIL SAUCE, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,394,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,394,"I",1,0)
;;=389^1
;;^UTILITY(U,$J,114,395,0)
;;=BUTTERSCOTCH PUDDING, IND^100^1-EACH^^^^3^N^D-207^^I
;;^UTILITY(U,$J,114,395,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,395,"I",1,0)
;;=429^100^6616
;;^UTILITY(U,$J,114,395,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,395,"X",1,0)
;;=1) PLACE ON TRAY ACCORDING TO DIET AND MENU.
;;^UTILITY(U,$J,114,396,0)
;;=CHOCOLATE PUDDING, IND^100^1-EACH^^^^3^N^D-214^^I
;;^UTILITY(U,$J,114,396,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,396,"I",1,0)
;;=430^100^6617
;;^UTILITY(U,$J,114,396,"X",0)
;;=^^1^1^2890727^
;;^UTILITY(U,$J,114,396,"X",1,0)
;;=1) PLACE ON TRAY ACCORDING TO DIET AND MENU.
;;^UTILITY(U,$J,114,397,0)
;;=SOY SAUCE, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,397,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,397,"I",1,0)
;;=565^1^3025
;;^UTILITY(U,$J,114,398,0)
;;=STRAWBERRY JAM, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,398,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,398,"I",1,0)
;;=576^1^1263
;;^UTILITY(U,$J,114,399,0)
;;=STRAWBERRY ICE CREAM, IND^1^1-EACH^^^^3^N
;;^UTILITY(U,$J,114,399,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,399,"I",1,0)
;;=837^1^60
;;^UTILITY(U,$J,114,400,0)
;;=VANILLA ICE CREAM, IND^1^1-EACH^^^^3^N
;;^UTILITY(U,$J,114,400,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,400,"I",1,0)
;;=843^1^60
;;^UTILITY(U,$J,114,401,0)
;;=BLACKBERRY JAM, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,401,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,401,"I",1,0)
;;=899^1^1262
;;^UTILITY(U,$J,114,402,0)
;;=CANNED CREAM OF CHICKEN SOUP^15^6-FLOZ^20 MIN^^10^10^N^A-75^^C^^.101
;;^UTILITY(U,$J,114,402,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,402,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,402,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,402,"I",1,0)
;;=243^.39063^551^.39063
;;^UTILITY(U,$J,114,402,"I",2,0)
;;=847^.39063^2021
;;^UTILITY(U,$J,114,402,"X",0)
;;=^^2^2^2890727^
;;^UTILITY(U,$J,114,402,"X",1,0)
;;=1) COMBINE WATER AND SOUP. BLEND WELL.
;;^UTILITY(U,$J,114,402,"X",2,0)
;;=2) HEAT THROUGH. SERVE HOT.
;;^UTILITY(U,$J,114,403,0)
;;=PRODUCT 19 CEREAL, IND^1^1-EACH^^^^2^N
;;^UTILITY(U,$J,114,403,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,403,"I",1,0)
;;=49^1^1135
;;^UTILITY(U,$J,114,404,0)
;;=CHEERIOS CEREAL, IND^1^1-EACH^^^^2^N
;;^UTILITY(U,$J,114,404,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,404,"I",1,0)
;;=50^1^2714
;;^UTILITY(U,$J,114,405,0)
;;=TOTAL CEREAL, IND^1^1-EACH^^^^2^N
;;^UTILITY(U,$J,114,405,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,405,"I",1,0)
;;=59^1^1150
;;^UTILITY(U,$J,114,406,0)
;;=SUGAR SMACKS CEREAL, IND^1^1-EACH^^^^2^N
;;^UTILITY(U,$J,114,406,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,406,"I",1,0)
;;=63^1^1144^1
;;^UTILITY(U,$J,114,407,0)
;;=CANNED CREAM OF TOAMTO SOUP^15^6-FLOZ^20 MIN^^10^10^N^A-99^^C^^.069
;;^UTILITY(U,$J,114,407,"E",0)
;;=^114.05P^1^1
;;^UTILITY(U,$J,114,407,"E",1,0)
;;=5
;;^UTILITY(U,$J,114,407,"I",0)
;;=^114.01PA^2^2
;;^UTILITY(U,$J,114,407,"I",1,0)
;;=463^.39063^541^.39063
;;^UTILITY(U,$J,114,407,"I",2,0)
;;=847^.39063^2021
;;^UTILITY(U,$J,114,407,"X",0)
;;=^^3^3^2890727^
;;^UTILITY(U,$J,114,407,"X",1,0)
;;=1) COMBINE WATER AND SOUP. BLEND WELL.
;;^UTILITY(U,$J,114,407,"X",2,0)
;;=2) HEAT THROUGH. SERVE HOT.
;;^UTILITY(U,$J,114,407,"X",3,0)
;;=3) MILK CAN BE SUBSTITUTED FOR WATER TO MAKE CREAMIER.
FHINI0JZ ; ; 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,387,"I",0)
+2 ;;=^114.01PA^1^1
+3 ;;^UTILITY(U,$J,114,387,"I",1,0)
+4 ;;=222^1^357
+5 ;;^UTILITY(U,$J,114,388,0)
+6 ;;=THOUS. ISL. DRESS, DIET IND^1^1-EACH^^^^13^N^^^I
+7 ;;^UTILITY(U,$J,114,388,"I",0)
+8 ;;=^114.01PA^1^1
+9 ;;^UTILITY(U,$J,114,388,"I",1,0)
+10 ;;=267^1^1590
+11 ;;^UTILITY(U,$J,114,389,0)
+12 ;;=THOUS. ISL. DRESSING, IND^1^1-EACH^^^^13^N^^^I
+13 ;;^UTILITY(U,$J,114,389,"I",0)
+14 ;;=^114.01PA^1^1
+15 ;;^UTILITY(U,$J,114,389,"I",1,0)
+16 ;;=268^1^353
+17 ;;^UTILITY(U,$J,114,390,0)
+18 ;;=VINEGAR DRESSING, DIET IND^1^1-EACH^^^^13^N^^^I
+19 ;;^UTILITY(U,$J,114,390,"I",0)
+20 ;;=^114.01PA^1^1
+21 ;;^UTILITY(U,$J,114,390,"I",1,0)
+22 ;;=278^1
+23 ;;^UTILITY(U,$J,114,391,0)
+24 ;;=TARTAR SAUCE, IND^1^1-EACH^^^^13^N^^^I
+25 ;;^UTILITY(U,$J,114,391,"I",0)
+26 ;;=^114.01PA^1^1
+27 ;;^UTILITY(U,$J,114,391,"I",1,0)
+28 ;;=301^1^1924
+29 ;;^UTILITY(U,$J,114,392,0)
+30 ;;=RUSSIAN DRESSING, IND^1^1-EACH^^^^13^N^^^I
+31 ;;^UTILITY(U,$J,114,392,"I",0)
+32 ;;=^114.01PA^1^1
+33 ;;^UTILITY(U,$J,114,392,"I",1,0)
+34 ;;=353^1^351
+35 ;;^UTILITY(U,$J,114,393,0)
+36 ;;=GARLIC ITAL DRESS, IND^1^1-EACH^^^^13^N^^^I
+37 ;;^UTILITY(U,$J,114,393,"I",0)
+38 ;;=^114.01PA^1^1
+39 ;;^UTILITY(U,$J,114,393,"I",1,0)
+40 ;;=333^1
+41 ;;^UTILITY(U,$J,114,394,0)
+42 ;;=COCKTAIL SAUCE, IND^1^1-EACH^^^^13^N^^^I
+43 ;;^UTILITY(U,$J,114,394,"I",0)
+44 ;;=^114.01PA^1^1
+45 ;;^UTILITY(U,$J,114,394,"I",1,0)
+46 ;;=389^1
+47 ;;^UTILITY(U,$J,114,395,0)
+48 ;;=BUTTERSCOTCH PUDDING, IND^100^1-EACH^^^^3^N^D-207^^I
+49 ;;^UTILITY(U,$J,114,395,"I",0)
+50 ;;=^114.01PA^1^1
+51 ;;^UTILITY(U,$J,114,395,"I",1,0)
+52 ;;=429^100^6616
+53 ;;^UTILITY(U,$J,114,395,"X",0)
+54 ;;=^^1^1^2890727^
+55 ;;^UTILITY(U,$J,114,395,"X",1,0)
+56 ;;=1) PLACE ON TRAY ACCORDING TO DIET AND MENU.
+57 ;;^UTILITY(U,$J,114,396,0)
+58 ;;=CHOCOLATE PUDDING, IND^100^1-EACH^^^^3^N^D-214^^I
+59 ;;^UTILITY(U,$J,114,396,"I",0)
+60 ;;=^114.01PA^1^1
+61 ;;^UTILITY(U,$J,114,396,"I",1,0)
+62 ;;=430^100^6617
+63 ;;^UTILITY(U,$J,114,396,"X",0)
+64 ;;=^^1^1^2890727^
+65 ;;^UTILITY(U,$J,114,396,"X",1,0)
+66 ;;=1) PLACE ON TRAY ACCORDING TO DIET AND MENU.
+67 ;;^UTILITY(U,$J,114,397,0)
+68 ;;=SOY SAUCE, IND^1^1-EACH^^^^13^N^^^I
+69 ;;^UTILITY(U,$J,114,397,"I",0)
+70 ;;=^114.01PA^1^1
+71 ;;^UTILITY(U,$J,114,397,"I",1,0)
+72 ;;=565^1^3025
+73 ;;^UTILITY(U,$J,114,398,0)
+74 ;;=STRAWBERRY JAM, IND^1^1-EACH^^^^13^N^^^I
+75 ;;^UTILITY(U,$J,114,398,"I",0)
+76 ;;=^114.01PA^1^1
+77 ;;^UTILITY(U,$J,114,398,"I",1,0)
+78 ;;=576^1^1263
+79 ;;^UTILITY(U,$J,114,399,0)
+80 ;;=STRAWBERRY ICE CREAM, IND^1^1-EACH^^^^3^N
+81 ;;^UTILITY(U,$J,114,399,"I",0)
+82 ;;=^114.01PA^1^1
+83 ;;^UTILITY(U,$J,114,399,"I",1,0)
+84 ;;=837^1^60
+85 ;;^UTILITY(U,$J,114,400,0)
+86 ;;=VANILLA ICE CREAM, IND^1^1-EACH^^^^3^N
+87 ;;^UTILITY(U,$J,114,400,"I",0)
+88 ;;=^114.01PA^1^1
+89 ;;^UTILITY(U,$J,114,400,"I",1,0)
+90 ;;=843^1^60
+91 ;;^UTILITY(U,$J,114,401,0)
+92 ;;=BLACKBERRY JAM, IND^1^1-EACH^^^^13^N^^^I
+93 ;;^UTILITY(U,$J,114,401,"I",0)
+94 ;;=^114.01PA^1^1
+95 ;;^UTILITY(U,$J,114,401,"I",1,0)
+96 ;;=899^1^1262
+97 ;;^UTILITY(U,$J,114,402,0)
+98 ;;=CANNED CREAM OF CHICKEN SOUP^15^6-FLOZ^20 MIN^^10^10^N^A-75^^C^^.101
+99 ;;^UTILITY(U,$J,114,402,"E",0)
+100 ;;=^114.05P^1^1
+101 ;;^UTILITY(U,$J,114,402,"E",1,0)
+102 ;;=5
+103 ;;^UTILITY(U,$J,114,402,"I",0)
+104 ;;=^114.01PA^2^2
+105 ;;^UTILITY(U,$J,114,402,"I",1,0)
+106 ;;=243^.39063^551^.39063
+107 ;;^UTILITY(U,$J,114,402,"I",2,0)
+108 ;;=847^.39063^2021
+109 ;;^UTILITY(U,$J,114,402,"X",0)
+110 ;;=^^2^2^2890727^
+111 ;;^UTILITY(U,$J,114,402,"X",1,0)
+112 ;;=1) COMBINE WATER AND SOUP. BLEND WELL.
+113 ;;^UTILITY(U,$J,114,402,"X",2,0)
+114 ;;=2) HEAT THROUGH. SERVE HOT.
+115 ;;^UTILITY(U,$J,114,403,0)
+116 ;;=PRODUCT 19 CEREAL, IND^1^1-EACH^^^^2^N
+117 ;;^UTILITY(U,$J,114,403,"I",0)
+118 ;;=^114.01PA^1^1
+119 ;;^UTILITY(U,$J,114,403,"I",1,0)
+120 ;;=49^1^1135
+121 ;;^UTILITY(U,$J,114,404,0)
+122 ;;=CHEERIOS CEREAL, IND^1^1-EACH^^^^2^N
+123 ;;^UTILITY(U,$J,114,404,"I",0)
+124 ;;=^114.01PA^1^1
+125 ;;^UTILITY(U,$J,114,404,"I",1,0)
+126 ;;=50^1^2714
+127 ;;^UTILITY(U,$J,114,405,0)
+128 ;;=TOTAL CEREAL, IND^1^1-EACH^^^^2^N
+129 ;;^UTILITY(U,$J,114,405,"I",0)
+130 ;;=^114.01PA^1^1
+131 ;;^UTILITY(U,$J,114,405,"I",1,0)
+132 ;;=59^1^1150
+133 ;;^UTILITY(U,$J,114,406,0)
+134 ;;=SUGAR SMACKS CEREAL, IND^1^1-EACH^^^^2^N
+135 ;;^UTILITY(U,$J,114,406,"I",0)
+136 ;;=^114.01PA^1^1
+137 ;;^UTILITY(U,$J,114,406,"I",1,0)
+138 ;;=63^1^1144^1
+139 ;;^UTILITY(U,$J,114,407,0)
+140 ;;=CANNED CREAM OF TOAMTO SOUP^15^6-FLOZ^20 MIN^^10^10^N^A-99^^C^^.069
+141 ;;^UTILITY(U,$J,114,407,"E",0)
+142 ;;=^114.05P^1^1
+143 ;;^UTILITY(U,$J,114,407,"E",1,0)
+144 ;;=5
+145 ;;^UTILITY(U,$J,114,407,"I",0)
+146 ;;=^114.01PA^2^2
+147 ;;^UTILITY(U,$J,114,407,"I",1,0)
+148 ;;=463^.39063^541^.39063
+149 ;;^UTILITY(U,$J,114,407,"I",2,0)
+150 ;;=847^.39063^2021
+151 ;;^UTILITY(U,$J,114,407,"X",0)
+152 ;;=^^3^3^2890727^
+153 ;;^UTILITY(U,$J,114,407,"X",1,0)
+154 ;;=1) COMBINE WATER AND SOUP. BLEND WELL.
+155 ;;^UTILITY(U,$J,114,407,"X",2,0)
+156 ;;=2) HEAT THROUGH. SERVE HOT.
+157 ;;^UTILITY(U,$J,114,407,"X",3,0)
+158 ;;=3) MILK CAN BE SUBSTITUTED FOR WATER TO MAKE CREAMIER.
