Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHIPST19

FHIPST19.m

Go to the documentation of this file.
  1. FHIPST19 ; HISC/NCA - Recipe Category Items 1 ;5/16/94 15:51
  1. ;;5.0;Dietetics;;Oct 11, 1995
  1. 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
  1. Q
  1. ITEMS ;;
  1. ;;APPETIZER^A1^3
  1. ;;CEREAL^C1^9
  1. ;;DESSERT^DR1^30
  1. ;;ENTREE I^E1^15
  1. ;;BRK. ENTREE^BE1^12
  1. ;;SAUCE/GRAVY^SG1^18
  1. ;;STARCH^ST1^21
  1. ;;SALAD^SA1^27
  1. ;;VEGETABLE I^V1^24
  1. ;;SOUP^SP1^6
  1. ;;BEVERAGE^BV1^36
  1. ;;BREAD^BR1^33
  1. ;;CONDIMENT^CD1^39
  1. ;;ENTREE II^E2^15
  1. ;;GARNISH^G1
  1. ;;VEGETABLE II^V2^24
  1. ;;JUICE I^J1^2
  1. ;;JUICE II^J2^2
  1. ;;JUICE III^J3^2
  1. ;;SALAD DRESSING^SD1
  1. ;;DIET SUPP.^DS1
  1. ;;DESSERT GARNISH^DG1
  1. ;;FRUIT I^FR1^3
  1. ;;FRUIT II^FR2^3
  1. ;;FRUIT III^FR3^3
  1. ;;MARGARINE^MR1
  1. ;;MILK^M1
  1. ;;CREAM^CR1
  1. ;;EGG^EG1
  1. ;;BREAKFAST MEAT^BM1^37
  1. ;;BRK. CONDIMENT^BC1
  1. ;;BRK. ENTREE II^BE2^12
  1. ;;CEREAL II^C2^9
  1. ;;CEREAL III^C3^9
  1. ;;DESSERT II^DR2^30
  1. ;;DESSERT III^DR3^30
  1. ;;DIET SUPP. II^DS2
  1. ;;EGG II^EG2
  1. ;;EGG III^EG3
  1. ;;ENTREE III^E3^15
  1. ;;SALAD II^SA2^27
  1. ;;SALAD III^SA3^27
  1. ;;STARCH II^ST2^21
  1. ;;STARCH III^ST3^21
  1. ;;VEGETABLE III^V3^24