FHIPST19.m

FHIPST19	; HISC/NCA - Recipe Category Items 1 ;5/16/94  15:51

	;;5.0;Dietetics;;Oct 11, 1995

	F I=1:1 S A=$P($T(ITEMS+I),";",3,99) Q:A=""  I $P(A,"^",2)'="" S ^TMP($J,"FHREC",CTR)=A,CTR=CTR+1

	Q

ITEMS	;;

	;;APPETIZER^A1^3

	;;CEREAL^C1^9

	;;DESSERT^DR1^30

	;;ENTREE I^E1^15

	;;BRK. ENTREE^BE1^12

	;;SAUCE/GRAVY^SG1^18

	;;STARCH^ST1^21

	;;SALAD^SA1^27

	;;VEGETABLE I^V1^24

	;;SOUP^SP1^6

	;;BEVERAGE^BV1^36

	;;BREAD^BR1^33

	;;CONDIMENT^CD1^39

	;;ENTREE II^E2^15

	;;GARNISH^G1

	;;VEGETABLE II^V2^24

	;;JUICE I^J1^2

	;;JUICE II^J2^2

	;;JUICE III^J3^2

	;;SALAD DRESSING^SD1

	;;DIET SUPP.^DS1

	;;DESSERT GARNISH^DG1

	;;FRUIT I^FR1^3

	;;FRUIT II^FR2^3

	;;FRUIT III^FR3^3

	;;MARGARINE^MR1

	;;MILK^M1

	;;CREAM^CR1

	;;EGG^EG1

	;;BREAKFAST MEAT^BM1^37

	;;BRK. CONDIMENT^BC1

	;;BRK. ENTREE II^BE2^12

	;;CEREAL II^C2^9

	;;CEREAL III^C3^9

	;;DESSERT II^DR2^30

	;;DESSERT III^DR3^30

	;;DIET SUPP. II^DS2

	;;EGG II^EG2

	;;EGG III^EG3

	;;ENTREE III^E3^15

	;;SALAD II^SA2^27

	;;SALAD III^SA3^27

	;;STARCH II^ST2^21

	;;STARCH III^ST3^21

	;;VEGETABLE III^V3^24

FHIPST19  ; HISC/NCA - Recipe Category Items 1 ;5/16/94  15:51

 +1       ;;5.0;Dietetics;;Oct 11, 1995

 +2        FOR I=1:1

               SET A=$PIECE($TEXT(ITEMS+I),";",3,99)

               IF A=""

                   QUIT 

               IF $PIECE(A,"^",2)'=""

                   SET ^TMP($JOB,"FHREC",CTR)=A

                   SET CTR=CTR+1

 +3        QUIT 

ITEMS     ;;

 +1       ;;APPETIZER^A1^3

 +2       ;;CEREAL^C1^9

 +3       ;;DESSERT^DR1^30

 +4       ;;ENTREE I^E1^15

 +5       ;;BRK. ENTREE^BE1^12

 +6       ;;SAUCE/GRAVY^SG1^18

 +7       ;;STARCH^ST1^21

 +8       ;;SALAD^SA1^27

 +9       ;;VEGETABLE I^V1^24

 +10      ;;SOUP^SP1^6

 +11      ;;BEVERAGE^BV1^36

 +12      ;;BREAD^BR1^33

 +13      ;;CONDIMENT^CD1^39

 +14      ;;ENTREE II^E2^15

 +15      ;;GARNISH^G1

 +16      ;;VEGETABLE II^V2^24

 +17      ;;JUICE I^J1^2

 +18      ;;JUICE II^J2^2

 +19      ;;JUICE III^J3^2

 +20      ;;SALAD DRESSING^SD1

 +21      ;;DIET SUPP.^DS1

 +22      ;;DESSERT GARNISH^DG1

 +23      ;;FRUIT I^FR1^3

 +24      ;;FRUIT II^FR2^3

 +25      ;;FRUIT III^FR3^3

 +26      ;;MARGARINE^MR1

 +27      ;;MILK^M1

 +28      ;;CREAM^CR1

 +29      ;;EGG^EG1

 +30      ;;BREAKFAST MEAT^BM1^37

 +31      ;;BRK. CONDIMENT^BC1

 +32      ;;BRK. ENTREE II^BE2^12

 +33      ;;CEREAL II^C2^9

 +34      ;;CEREAL III^C3^9

 +35      ;;DESSERT II^DR2^30

 +36      ;;DESSERT III^DR3^30

 +37      ;;DIET SUPP. II^DS2

 +38      ;;EGG II^EG2

 +39      ;;EGG III^EG3

 +40      ;;ENTREE III^E3^15

 +41      ;;SALAD II^SA2^27

 +42      ;;SALAD III^SA3^27

 +43      ;;STARCH II^ST2^21

 +44      ;;STARCH III^ST3^21

 +45      ;;VEGETABLE III^V3^24