- 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