FHINI0K9 ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(114.1) 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.1)
;;=^FH(114.1,
;;^UTILITY(U,$J,114.1,0)
;;=RECIPE CATEGORY^114.1I^45^45
;;^UTILITY(U,$J,114.1,1,0)
;;=APPETIZER^A1^3
;;^UTILITY(U,$J,114.1,2,0)
;;=CEREAL^C1^9
;;^UTILITY(U,$J,114.1,3,0)
;;=DESSERT^DR1^30
;;^UTILITY(U,$J,114.1,4,0)
;;=ENTREE I^E1^15
;;^UTILITY(U,$J,114.1,5,0)
;;=BRK. ENTREE^BE1^12
;;^UTILITY(U,$J,114.1,6,0)
;;=SAUCE/GRAVY^SG1^18
;;^UTILITY(U,$J,114.1,7,0)
;;=STARCH^ST1^21
;;^UTILITY(U,$J,114.1,8,0)
;;=SALAD^SA1^27
;;^UTILITY(U,$J,114.1,9,0)
;;=VEGETABLE I^V1^24
;;^UTILITY(U,$J,114.1,10,0)
;;=SOUP^SP1^6
;;^UTILITY(U,$J,114.1,11,0)
;;=BEVERAGE^BV1^36
;;^UTILITY(U,$J,114.1,12,0)
;;=BREAD^BR1^33
;;^UTILITY(U,$J,114.1,13,0)
;;=CONDIMENT^CD1^39
;;^UTILITY(U,$J,114.1,14,0)
;;=ENTREE II^E2^15
;;^UTILITY(U,$J,114.1,15,0)
;;=GARNISH^G1
;;^UTILITY(U,$J,114.1,16,0)
;;=VEGETABLE II^V2^24
;;^UTILITY(U,$J,114.1,17,0)
;;=JUICE I^J1^2
;;^UTILITY(U,$J,114.1,18,0)
;;=JUICE II^J2^2
;;^UTILITY(U,$J,114.1,19,0)
;;=JUICE III^J3^2
;;^UTILITY(U,$J,114.1,20,0)
;;=SALAD DRESSING^SD1
;;^UTILITY(U,$J,114.1,21,0)
;;=DIET SUPP.^DS1
;;^UTILITY(U,$J,114.1,22,0)
;;=DESSERT GARNISH^DG1
;;^UTILITY(U,$J,114.1,23,0)
;;=FRUIT I^FR1^3
;;^UTILITY(U,$J,114.1,24,0)
;;=FRUIT II^FR2^3
;;^UTILITY(U,$J,114.1,25,0)
;;=FRUIT III^FR3^3
;;^UTILITY(U,$J,114.1,26,0)
;;=MARGARINE^MR1
;;^UTILITY(U,$J,114.1,27,0)
;;=MILK^M1
;;^UTILITY(U,$J,114.1,28,0)
;;=CREAM^CR1
;;^UTILITY(U,$J,114.1,29,0)
;;=EGG^EG1
;;^UTILITY(U,$J,114.1,30,0)
;;=BREAKFAST MEAT^BM1^37
;;^UTILITY(U,$J,114.1,31,0)
;;=BRK. CONDIMENT^BC1
;;^UTILITY(U,$J,114.1,32,0)
;;=BRK. ENTREE II^BE2^12
;;^UTILITY(U,$J,114.1,33,0)
;;=CEREAL II^C2^9
;;^UTILITY(U,$J,114.1,34,0)
;;=CEREAL III^C3^9
;;^UTILITY(U,$J,114.1,35,0)
;;=DESSERT II^DR2^30
;;^UTILITY(U,$J,114.1,36,0)
;;=DESSERT III^DR3^30
;;^UTILITY(U,$J,114.1,37,0)
;;=DIET SUPP. II^DS2
;;^UTILITY(U,$J,114.1,38,0)
;;=EGG II^EG2
;;^UTILITY(U,$J,114.1,39,0)
;;=EGG III^EG3
;;^UTILITY(U,$J,114.1,40,0)
;;=ENTREE III^E3^15
;;^UTILITY(U,$J,114.1,41,0)
;;=SALAD II^SA2^27
;;^UTILITY(U,$J,114.1,42,0)
;;=SALAD III^SA3^27
;;^UTILITY(U,$J,114.1,43,0)
;;=STARCH II^ST2^21
;;^UTILITY(U,$J,114.1,44,0)
;;=STARCH III^ST3^21
;;^UTILITY(U,$J,114.1,45,0)
;;=VEGETABLE III^V3^24
FHINI0K9 ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(114.1)
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.1)
+2 ;;=^FH(114.1,
+3 ;;^UTILITY(U,$J,114.1,0)
+4 ;;=RECIPE CATEGORY^114.1I^45^45
+5 ;;^UTILITY(U,$J,114.1,1,0)
+6 ;;=APPETIZER^A1^3
+7 ;;^UTILITY(U,$J,114.1,2,0)
+8 ;;=CEREAL^C1^9
+9 ;;^UTILITY(U,$J,114.1,3,0)
+10 ;;=DESSERT^DR1^30
+11 ;;^UTILITY(U,$J,114.1,4,0)
+12 ;;=ENTREE I^E1^15
+13 ;;^UTILITY(U,$J,114.1,5,0)
+14 ;;=BRK. ENTREE^BE1^12
+15 ;;^UTILITY(U,$J,114.1,6,0)
+16 ;;=SAUCE/GRAVY^SG1^18
+17 ;;^UTILITY(U,$J,114.1,7,0)
+18 ;;=STARCH^ST1^21
+19 ;;^UTILITY(U,$J,114.1,8,0)
+20 ;;=SALAD^SA1^27
+21 ;;^UTILITY(U,$J,114.1,9,0)
+22 ;;=VEGETABLE I^V1^24
+23 ;;^UTILITY(U,$J,114.1,10,0)
+24 ;;=SOUP^SP1^6
+25 ;;^UTILITY(U,$J,114.1,11,0)
+26 ;;=BEVERAGE^BV1^36
+27 ;;^UTILITY(U,$J,114.1,12,0)
+28 ;;=BREAD^BR1^33
+29 ;;^UTILITY(U,$J,114.1,13,0)
+30 ;;=CONDIMENT^CD1^39
+31 ;;^UTILITY(U,$J,114.1,14,0)
+32 ;;=ENTREE II^E2^15
+33 ;;^UTILITY(U,$J,114.1,15,0)
+34 ;;=GARNISH^G1
+35 ;;^UTILITY(U,$J,114.1,16,0)
+36 ;;=VEGETABLE II^V2^24
+37 ;;^UTILITY(U,$J,114.1,17,0)
+38 ;;=JUICE I^J1^2
+39 ;;^UTILITY(U,$J,114.1,18,0)
+40 ;;=JUICE II^J2^2
+41 ;;^UTILITY(U,$J,114.1,19,0)
+42 ;;=JUICE III^J3^2
+43 ;;^UTILITY(U,$J,114.1,20,0)
+44 ;;=SALAD DRESSING^SD1
+45 ;;^UTILITY(U,$J,114.1,21,0)
+46 ;;=DIET SUPP.^DS1
+47 ;;^UTILITY(U,$J,114.1,22,0)
+48 ;;=DESSERT GARNISH^DG1
+49 ;;^UTILITY(U,$J,114.1,23,0)
+50 ;;=FRUIT I^FR1^3
+51 ;;^UTILITY(U,$J,114.1,24,0)
+52 ;;=FRUIT II^FR2^3
+53 ;;^UTILITY(U,$J,114.1,25,0)
+54 ;;=FRUIT III^FR3^3
+55 ;;^UTILITY(U,$J,114.1,26,0)
+56 ;;=MARGARINE^MR1
+57 ;;^UTILITY(U,$J,114.1,27,0)
+58 ;;=MILK^M1
+59 ;;^UTILITY(U,$J,114.1,28,0)
+60 ;;=CREAM^CR1
+61 ;;^UTILITY(U,$J,114.1,29,0)
+62 ;;=EGG^EG1
+63 ;;^UTILITY(U,$J,114.1,30,0)
+64 ;;=BREAKFAST MEAT^BM1^37
+65 ;;^UTILITY(U,$J,114.1,31,0)
+66 ;;=BRK. CONDIMENT^BC1
+67 ;;^UTILITY(U,$J,114.1,32,0)
+68 ;;=BRK. ENTREE II^BE2^12
+69 ;;^UTILITY(U,$J,114.1,33,0)
+70 ;;=CEREAL II^C2^9
+71 ;;^UTILITY(U,$J,114.1,34,0)
+72 ;;=CEREAL III^C3^9
+73 ;;^UTILITY(U,$J,114.1,35,0)
+74 ;;=DESSERT II^DR2^30
+75 ;;^UTILITY(U,$J,114.1,36,0)
+76 ;;=DESSERT III^DR3^30
+77 ;;^UTILITY(U,$J,114.1,37,0)
+78 ;;=DIET SUPP. II^DS2
+79 ;;^UTILITY(U,$J,114.1,38,0)
+80 ;;=EGG II^EG2
+81 ;;^UTILITY(U,$J,114.1,39,0)
+82 ;;=EGG III^EG3
+83 ;;^UTILITY(U,$J,114.1,40,0)
+84 ;;=ENTREE III^E3^15
+85 ;;^UTILITY(U,$J,114.1,41,0)
+86 ;;=SALAD II^SA2^27
+87 ;;^UTILITY(U,$J,114.1,42,0)
+88 ;;=SALAD III^SA3^27
+89 ;;^UTILITY(U,$J,114.1,43,0)
+90 ;;=STARCH II^ST2^21
+91 ;;^UTILITY(U,$J,114.1,44,0)
+92 ;;=STARCH III^ST3^21
+93 ;;^UTILITY(U,$J,114.1,45,0)
+94 ;;=VEGETABLE III^V3^24
