FHINI0JY ; ; 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,360,"I",1,0)
;;=450^1
;;^UTILITY(U,$J,114,361,0)
;;=APPLE JELLY DIET, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,361,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,361,"I",1,0)
;;=931^1^6419
;;^UTILITY(U,$J,114,362,0)
;;=CHERRY DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,362,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,362,"I",1,0)
;;=932^1^6419
;;^UTILITY(U,$J,114,363,0)
;;=RASPBERRY DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,363,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,363,"I",1,0)
;;=933^1^6419
;;^UTILITY(U,$J,114,364,0)
;;=STRAWBERRY DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,364,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,364,"I",1,0)
;;=934^1^6419
;;^UTILITY(U,$J,114,365,0)
;;=APRICOT DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,365,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,365,"I",1,0)
;;=935^1^6419
;;^UTILITY(U,$J,114,366,0)
;;=BLACKBERRY DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,366,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,366,"I",1,0)
;;=936^1^6419
;;^UTILITY(U,$J,114,367,0)
;;=ASSORTED DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,367,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,367,"I",1,0)
;;=937^1^6419
;;^UTILITY(U,$J,114,368,0)
;;=CHERRY JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,368,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,368,"I",1,0)
;;=938^1^1264
;;^UTILITY(U,$J,114,369,0)
;;=BLACKBERRY JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,369,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,369,"I",1,0)
;;=939^1^1264
;;^UTILITY(U,$J,114,370,0)
;;=APPLE JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,370,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,370,"I",1,0)
;;=940^1^1264
;;^UTILITY(U,$J,114,371,0)
;;=GRAPE JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,371,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,371,"I",1,0)
;;=941^1^1264
;;^UTILITY(U,$J,114,372,0)
;;=STRAWBERRY JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,372,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,372,"I",1,0)
;;=942^1^1264
;;^UTILITY(U,$J,114,373,0)
;;=CURRANT JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,373,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,373,"I",1,0)
;;=943^1^1264
;;^UTILITY(U,$J,114,374,0)
;;=MIXED FRUIT JELLY, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,374,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,374,"I",1,0)
;;=944^1^1264
;;^UTILITY(U,$J,114,375,0)
;;=BLUE CHEESE DRESSING, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,375,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,375,"I",1,0)
;;=25^1^393
;;^UTILITY(U,$J,114,376,0)
;;=FRENCH DRESSING, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,376,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,376,"I",1,0)
;;=120^1^382
;;^UTILITY(U,$J,114,377,0)
;;=FRENCH DRESSING, DIET IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,377,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,377,"I",1,0)
;;=122^1^386
;;^UTILITY(U,$J,114,378,0)
;;=MAPLE SYRUP, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,378,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,378,"I",1,0)
;;=259^1^1833
;;^UTILITY(U,$J,114,379,0)
;;=MAPLE SYRUP, DIET IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,379,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,379,"I",1,0)
;;=261^1^6444
;;^UTILITY(U,$J,114,380,0)
;;=CATSUP, DIET IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,380,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,380,"I",1,0)
;;=42^1^1939
;;^UTILITY(U,$J,114,381,0)
;;=CHEESE CRAX W/ PEANUT BUTTER^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,381,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,381,"I",1,0)
;;=99^1^1079
;;^UTILITY(U,$J,114,382,0)
;;=GRAHAM CRAX, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,382,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,382,"I",1,0)
;;=100^1^1076
;;^UTILITY(U,$J,114,383,0)
;;=ITALIAN CREAMY DRESSING, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,383,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,383,"I",1,0)
;;=137^1
;;^UTILITY(U,$J,114,384,0)
;;=ITALIAN DRESS, DIET IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,384,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,384,"I",1,0)
;;=920^1^388
;;^UTILITY(U,$J,114,385,0)
;;=ORANGE MARMALADE, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,385,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,385,"I",1,0)
;;=151^1^1331
;;^UTILITY(U,$J,114,386,0)
;;=PICKLE RELISH, IND^1^1-EACH^^^^13^N^^^I
;;^UTILITY(U,$J,114,386,"I",0)
;;=^114.01PA^1^1
;;^UTILITY(U,$J,114,386,"I",1,0)
;;=220^1^1445
;;^UTILITY(U,$J,114,387,0)
;;=RUSSIAN DRESSING, DIET IND^1^1-EACH^^^^13^N^^^I
FHINI0JY ; ; 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,360,"I",1,0)
+2 ;;=450^1
+3 ;;^UTILITY(U,$J,114,361,0)
+4 ;;=APPLE JELLY DIET, IND^1^1-EACH^^^^13^N^^^I
+5 ;;^UTILITY(U,$J,114,361,"I",0)
+6 ;;=^114.01PA^1^1
+7 ;;^UTILITY(U,$J,114,361,"I",1,0)
+8 ;;=931^1^6419
+9 ;;^UTILITY(U,$J,114,362,0)
+10 ;;=CHERRY DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
+11 ;;^UTILITY(U,$J,114,362,"I",0)
+12 ;;=^114.01PA^1^1
+13 ;;^UTILITY(U,$J,114,362,"I",1,0)
+14 ;;=932^1^6419
+15 ;;^UTILITY(U,$J,114,363,0)
+16 ;;=RASPBERRY DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
+17 ;;^UTILITY(U,$J,114,363,"I",0)
+18 ;;=^114.01PA^1^1
+19 ;;^UTILITY(U,$J,114,363,"I",1,0)
+20 ;;=933^1^6419
+21 ;;^UTILITY(U,$J,114,364,0)
+22 ;;=STRAWBERRY DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
+23 ;;^UTILITY(U,$J,114,364,"I",0)
+24 ;;=^114.01PA^1^1
+25 ;;^UTILITY(U,$J,114,364,"I",1,0)
+26 ;;=934^1^6419
+27 ;;^UTILITY(U,$J,114,365,0)
+28 ;;=APRICOT DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
+29 ;;^UTILITY(U,$J,114,365,"I",0)
+30 ;;=^114.01PA^1^1
+31 ;;^UTILITY(U,$J,114,365,"I",1,0)
+32 ;;=935^1^6419
+33 ;;^UTILITY(U,$J,114,366,0)
+34 ;;=BLACKBERRY DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
+35 ;;^UTILITY(U,$J,114,366,"I",0)
+36 ;;=^114.01PA^1^1
+37 ;;^UTILITY(U,$J,114,366,"I",1,0)
+38 ;;=936^1^6419
+39 ;;^UTILITY(U,$J,114,367,0)
+40 ;;=ASSORTED DIET JELLY, IND^1^1-EACH^^^^13^N^^^I
+41 ;;^UTILITY(U,$J,114,367,"I",0)
+42 ;;=^114.01PA^1^1
+43 ;;^UTILITY(U,$J,114,367,"I",1,0)
+44 ;;=937^1^6419
+45 ;;^UTILITY(U,$J,114,368,0)
+46 ;;=CHERRY JELLY, IND^1^1-EACH^^^^13^N^^^I
+47 ;;^UTILITY(U,$J,114,368,"I",0)
+48 ;;=^114.01PA^1^1
+49 ;;^UTILITY(U,$J,114,368,"I",1,0)
+50 ;;=938^1^1264
+51 ;;^UTILITY(U,$J,114,369,0)
+52 ;;=BLACKBERRY JELLY, IND^1^1-EACH^^^^13^N^^^I
+53 ;;^UTILITY(U,$J,114,369,"I",0)
+54 ;;=^114.01PA^1^1
+55 ;;^UTILITY(U,$J,114,369,"I",1,0)
+56 ;;=939^1^1264
+57 ;;^UTILITY(U,$J,114,370,0)
+58 ;;=APPLE JELLY, IND^1^1-EACH^^^^13^N^^^I
+59 ;;^UTILITY(U,$J,114,370,"I",0)
+60 ;;=^114.01PA^1^1
+61 ;;^UTILITY(U,$J,114,370,"I",1,0)
+62 ;;=940^1^1264
+63 ;;^UTILITY(U,$J,114,371,0)
+64 ;;=GRAPE JELLY, IND^1^1-EACH^^^^13^N^^^I
+65 ;;^UTILITY(U,$J,114,371,"I",0)
+66 ;;=^114.01PA^1^1
+67 ;;^UTILITY(U,$J,114,371,"I",1,0)
+68 ;;=941^1^1264
+69 ;;^UTILITY(U,$J,114,372,0)
+70 ;;=STRAWBERRY JELLY, IND^1^1-EACH^^^^13^N^^^I
+71 ;;^UTILITY(U,$J,114,372,"I",0)
+72 ;;=^114.01PA^1^1
+73 ;;^UTILITY(U,$J,114,372,"I",1,0)
+74 ;;=942^1^1264
+75 ;;^UTILITY(U,$J,114,373,0)
+76 ;;=CURRANT JELLY, IND^1^1-EACH^^^^13^N^^^I
+77 ;;^UTILITY(U,$J,114,373,"I",0)
+78 ;;=^114.01PA^1^1
+79 ;;^UTILITY(U,$J,114,373,"I",1,0)
+80 ;;=943^1^1264
+81 ;;^UTILITY(U,$J,114,374,0)
+82 ;;=MIXED FRUIT JELLY, IND^1^1-EACH^^^^13^N^^^I
+83 ;;^UTILITY(U,$J,114,374,"I",0)
+84 ;;=^114.01PA^1^1
+85 ;;^UTILITY(U,$J,114,374,"I",1,0)
+86 ;;=944^1^1264
+87 ;;^UTILITY(U,$J,114,375,0)
+88 ;;=BLUE CHEESE DRESSING, IND^1^1-EACH^^^^13^N^^^I
+89 ;;^UTILITY(U,$J,114,375,"I",0)
+90 ;;=^114.01PA^1^1
+91 ;;^UTILITY(U,$J,114,375,"I",1,0)
+92 ;;=25^1^393
+93 ;;^UTILITY(U,$J,114,376,0)
+94 ;;=FRENCH DRESSING, IND^1^1-EACH^^^^13^N^^^I
+95 ;;^UTILITY(U,$J,114,376,"I",0)
+96 ;;=^114.01PA^1^1
+97 ;;^UTILITY(U,$J,114,376,"I",1,0)
+98 ;;=120^1^382
+99 ;;^UTILITY(U,$J,114,377,0)
+100 ;;=FRENCH DRESSING, DIET IND^1^1-EACH^^^^13^N^^^I
+101 ;;^UTILITY(U,$J,114,377,"I",0)
+102 ;;=^114.01PA^1^1
+103 ;;^UTILITY(U,$J,114,377,"I",1,0)
+104 ;;=122^1^386
+105 ;;^UTILITY(U,$J,114,378,0)
+106 ;;=MAPLE SYRUP, IND^1^1-EACH^^^^13^N^^^I
+107 ;;^UTILITY(U,$J,114,378,"I",0)
+108 ;;=^114.01PA^1^1
+109 ;;^UTILITY(U,$J,114,378,"I",1,0)
+110 ;;=259^1^1833
+111 ;;^UTILITY(U,$J,114,379,0)
+112 ;;=MAPLE SYRUP, DIET IND^1^1-EACH^^^^13^N^^^I
+113 ;;^UTILITY(U,$J,114,379,"I",0)
+114 ;;=^114.01PA^1^1
+115 ;;^UTILITY(U,$J,114,379,"I",1,0)
+116 ;;=261^1^6444
+117 ;;^UTILITY(U,$J,114,380,0)
+118 ;;=CATSUP, DIET IND^1^1-EACH^^^^13^N^^^I
+119 ;;^UTILITY(U,$J,114,380,"I",0)
+120 ;;=^114.01PA^1^1
+121 ;;^UTILITY(U,$J,114,380,"I",1,0)
+122 ;;=42^1^1939
+123 ;;^UTILITY(U,$J,114,381,0)
+124 ;;=CHEESE CRAX W/ PEANUT BUTTER^1^1-EACH^^^^13^N^^^I
+125 ;;^UTILITY(U,$J,114,381,"I",0)
+126 ;;=^114.01PA^1^1
+127 ;;^UTILITY(U,$J,114,381,"I",1,0)
+128 ;;=99^1^1079
+129 ;;^UTILITY(U,$J,114,382,0)
+130 ;;=GRAHAM CRAX, IND^1^1-EACH^^^^13^N^^^I
+131 ;;^UTILITY(U,$J,114,382,"I",0)
+132 ;;=^114.01PA^1^1
+133 ;;^UTILITY(U,$J,114,382,"I",1,0)
+134 ;;=100^1^1076
+135 ;;^UTILITY(U,$J,114,383,0)
+136 ;;=ITALIAN CREAMY DRESSING, IND^1^1-EACH^^^^13^N^^^I
+137 ;;^UTILITY(U,$J,114,383,"I",0)
+138 ;;=^114.01PA^1^1
+139 ;;^UTILITY(U,$J,114,383,"I",1,0)
+140 ;;=137^1
+141 ;;^UTILITY(U,$J,114,384,0)
+142 ;;=ITALIAN DRESS, DIET IND^1^1-EACH^^^^13^N^^^I
+143 ;;^UTILITY(U,$J,114,384,"I",0)
+144 ;;=^114.01PA^1^1
+145 ;;^UTILITY(U,$J,114,384,"I",1,0)
+146 ;;=920^1^388
+147 ;;^UTILITY(U,$J,114,385,0)
+148 ;;=ORANGE MARMALADE, IND^1^1-EACH^^^^13^N^^^I
+149 ;;^UTILITY(U,$J,114,385,"I",0)
+150 ;;=^114.01PA^1^1
+151 ;;^UTILITY(U,$J,114,385,"I",1,0)
+152 ;;=151^1^1331
+153 ;;^UTILITY(U,$J,114,386,0)
+154 ;;=PICKLE RELISH, IND^1^1-EACH^^^^13^N^^^I
+155 ;;^UTILITY(U,$J,114,386,"I",0)
+156 ;;=^114.01PA^1^1
+157 ;;^UTILITY(U,$J,114,386,"I",1,0)
+158 ;;=220^1^1445
+159 ;;^UTILITY(U,$J,114,387,0)
+160 ;;=RUSSIAN DRESSING, DIET IND^1^1-EACH^^^^13^N^^^I
