FHINIT5.m

FHINIT5	; ; 11-OCT-1995

	;;5.0;Dietetics;;Oct 11, 1995

	K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:88 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1

	Q

IXF	;;DIETETICS^FH

	;;111sI;DIETS;^FH(111,;0;y;y;;n;;;y;m;y

	;;

	;;111.1;DIET PATTERNS;^FH(111.1,;0;y;y;;n;;;n

	;;

	;;112;FOOD NUTRIENTS;^FHNU(;0;y;y;;n;;;y;o;n

	;;

	;;112.2;RDA VALUES;^FH(112.2,;0;y;y;;n;;;y;o;n

	;;

	;;112.6I;USER MENU;^FHUM(;0;y;y;;n;;;n

	;;

	;;113;INGREDIENT;^FHING(;0;y;y;;n;;;y;m;y

	;;

	;;113.1;STORAGE LOCATION;^FH(113.1,;0;y;y;;n;;;n

	;;

	;;113.2;VENDOR;^FH(113.2,;0;y;y;;n;;;y;m;y

	;;

	;;114;RECIPE;^FH(114,;0;y;y;;n;;;y;m;y

	;;

	;;114.1I;RECIPE CATEGORY;^FH(114.1,;0;y;y;;n;;;y;m;y

	;;

	;;114.2;PREPARATION AREA;^FH(114.2,;0;y;y;;n;;;y;m;y

	;;

	;;114.3;SERVING UTENSIL;^FH(114.3,;0;y;y;;n;;;y;m;y

	;;

	;;114.4;EQUIPMENT;^FH(114.4,;0;y;y;;n;;;y;m;y

	;;

	;;115;DIETETICS PATIENT;^FHPT(;0;y;y;;n;;;n

	;;

	;;115.2sI;FOOD PREFERENCES;^FH(115.2,;0;y;y;;n;;;n

	;;

	;;115.3sI;NUTRITION CLASSIFICATION;^FH(115.3,;0;y;y;;n;;;n

	;;

	;;115.4I;NUTRITION STATUS;^FH(115.4,;0;y;y;;n;;;y;o;n

	;;

	;;115.5;DIETETIC NUTRITION PLAN;^FH(115.5,;0;y;y;;n;;;n

	;;

	;;115.6sI;ENCOUNTER TYPES;^FH(115.6,;0;y;y;;n;;;y;m;y

	;;

	;;115.7;DIETETIC ENCOUNTERS;^FHEN(;0;y;y;;n;;;n

	;;

	;;116;MENU CYCLE;^FH(116,;0;y;y;;n;;;n

	;;

	;;116.1;MEAL;^FH(116.1,;0;y;y;;n;;;n

	;;

	;;116.2sI;PRODUCTION DIET;^FH(116.2,;0;y;y;;n;;;y;m;y

	;;

	;;116.3;HOLIDAY MEALS;^FH(116.3,;0;y;y;;n;;;n

	;;

	;;117D;MEALS SERVED;^FH(117,;0;y;y;;n;;;n

	;;

	;;117.1D;STAFFING DATA;^FH(117.1,;0;y;y;;n;;;n

	;;

	;;117.2D;DIETETIC COST OF MEALS;^FH(117.2,;0;y;y;;n;;;n

	;;

	;;117.3D;ANNUAL REPORT;^FH(117.3,;0;y;y;;n;;;n

	;;

	;;117.4;DIETETIC REPORT CATEGORIES;^FH(117.4,;0;y;y;;n;;;y;o;n

	;;

	;;118sI;SUPPLEMENTAL FEEDINGS;^FH(118,;0;y;y;;n;;;y;m;y

	;;

	;;118.1sI;SUPPLEMENTAL FEEDING MENU;^FH(118.1,;0;y;y;;n;;;y;m;y

	;;

	;;118.2sI;TUBEFEEDING;^FH(118.2,;0;y;y;;n;;;y;m;y

	;;

	;;118.3sI;STANDING ORDERS;^FH(118.3,;0;y;y;;n;;;n

	;;

	;;119P;DIETITIAN TICKLER FILE;^FH(119,;0;y;y;;n;;;n

	;;

	;;119.1;UNITS;^FH(119.1,;0;y;y;;n;;;y;m;y

	;;

	;;119.4sI;ISOLATION/PRECAUTION TYPE;^FH(119.4,;0;y;y;;n;;;y;m;y

	;;

	;;119.5sI;DIETETIC CONSULTS;^FH(119.5,;0;y;y;;n;;;y;m;y

	;;

	;;119.6;DIETETICS WARD;^FH(119.6,;0;y;y;;n;;;n

	;;

	;;119.71;PRODUCTION FACILITY;^FH(119.71,;0;y;y;;n;;;n;;

	;;

	;;119.72;SERVICE POINT;^FH(119.72,;0;y;y;;n;;;n;;

	;;

	;;119.73;COMMUNICATION OFFICE;^FH(119.73,;0;y;y;;n;;;n;;

	;;

	;;119.74;SUPPLEMENTAL FEEDING SITE;^FH(119.74,;0;y;y;;n;;;n;;

	;;

	;;119.8;DIETETIC EVENTS;^FH(119.8,;0;y;y;;n;;;n

	;;

	;;119.9;FH SITE PARAMETERS;^FH(119.9,;0;y;y;;n;;;y;m;y

	;;

FHINIT5   ; ; 11-OCT-1995

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

 +2        KILL ^UTILITY("DIF",$JOB)

           SET DIFRDIFI=1

           FOR I=1:1:88

               SET ^UTILITY("DIF",$JOB,DIFRDIFI)=$TEXT(IXF+I)

               SET DIFRDIFI=DIFRDIFI+1

 +3        QUIT 

IXF       ;;DIETETICS^FH

 +1       ;;111sI;DIETS;^FH(111,;0;y;y;;n;;;y;m;y

 +2       ;;

 +3       ;;111.1;DIET PATTERNS;^FH(111.1,;0;y;y;;n;;;n

 +4       ;;

 +5       ;;112;FOOD NUTRIENTS;^FHNU(;0;y;y;;n;;;y;o;n

 +6       ;;

 +7       ;;112.2;RDA VALUES;^FH(112.2,;0;y;y;;n;;;y;o;n

 +8       ;;

 +9       ;;112.6I;USER MENU;^FHUM(;0;y;y;;n;;;n

 +10      ;;

 +11      ;;113;INGREDIENT;^FHING(;0;y;y;;n;;;y;m;y

 +12      ;;

 +13      ;;113.1;STORAGE LOCATION;^FH(113.1,;0;y;y;;n;;;n

 +14      ;;

 +15      ;;113.2;VENDOR;^FH(113.2,;0;y;y;;n;;;y;m;y

 +16      ;;

 +17      ;;114;RECIPE;^FH(114,;0;y;y;;n;;;y;m;y

 +18      ;;

 +19      ;;114.1I;RECIPE CATEGORY;^FH(114.1,;0;y;y;;n;;;y;m;y

 +20      ;;

 +21      ;;114.2;PREPARATION AREA;^FH(114.2,;0;y;y;;n;;;y;m;y

 +22      ;;

 +23      ;;114.3;SERVING UTENSIL;^FH(114.3,;0;y;y;;n;;;y;m;y

 +24      ;;

 +25      ;;114.4;EQUIPMENT;^FH(114.4,;0;y;y;;n;;;y;m;y

 +26      ;;

 +27      ;;115;DIETETICS PATIENT;^FHPT(;0;y;y;;n;;;n

 +28      ;;

 +29      ;;115.2sI;FOOD PREFERENCES;^FH(115.2,;0;y;y;;n;;;n

 +30      ;;

 +31      ;;115.3sI;NUTRITION CLASSIFICATION;^FH(115.3,;0;y;y;;n;;;n

 +32      ;;

 +33      ;;115.4I;NUTRITION STATUS;^FH(115.4,;0;y;y;;n;;;y;o;n

 +34      ;;

 +35      ;;115.5;DIETETIC NUTRITION PLAN;^FH(115.5,;0;y;y;;n;;;n

 +36      ;;

 +37      ;;115.6sI;ENCOUNTER TYPES;^FH(115.6,;0;y;y;;n;;;y;m;y

 +38      ;;

 +39      ;;115.7;DIETETIC ENCOUNTERS;^FHEN(;0;y;y;;n;;;n

 +40      ;;

 +41      ;;116;MENU CYCLE;^FH(116,;0;y;y;;n;;;n

 +42      ;;

 +43      ;;116.1;MEAL;^FH(116.1,;0;y;y;;n;;;n

 +44      ;;

 +45      ;;116.2sI;PRODUCTION DIET;^FH(116.2,;0;y;y;;n;;;y;m;y

 +46      ;;

 +47      ;;116.3;HOLIDAY MEALS;^FH(116.3,;0;y;y;;n;;;n

 +48      ;;

 +49      ;;117D;MEALS SERVED;^FH(117,;0;y;y;;n;;;n

 +50      ;;

 +51      ;;117.1D;STAFFING DATA;^FH(117.1,;0;y;y;;n;;;n

 +52      ;;

 +53      ;;117.2D;DIETETIC COST OF MEALS;^FH(117.2,;0;y;y;;n;;;n

 +54      ;;

 +55      ;;117.3D;ANNUAL REPORT;^FH(117.3,;0;y;y;;n;;;n

 +56      ;;

 +57      ;;117.4;DIETETIC REPORT CATEGORIES;^FH(117.4,;0;y;y;;n;;;y;o;n

 +58      ;;

 +59      ;;118sI;SUPPLEMENTAL FEEDINGS;^FH(118,;0;y;y;;n;;;y;m;y

 +60      ;;

 +61      ;;118.1sI;SUPPLEMENTAL FEEDING MENU;^FH(118.1,;0;y;y;;n;;;y;m;y

 +62      ;;

 +63      ;;118.2sI;TUBEFEEDING;^FH(118.2,;0;y;y;;n;;;y;m;y

 +64      ;;

 +65      ;;118.3sI;STANDING ORDERS;^FH(118.3,;0;y;y;;n;;;n

 +66      ;;

 +67      ;;119P;DIETITIAN TICKLER FILE;^FH(119,;0;y;y;;n;;;n

 +68      ;;

 +69      ;;119.1;UNITS;^FH(119.1,;0;y;y;;n;;;y;m;y

 +70      ;;

 +71      ;;119.4sI;ISOLATION/PRECAUTION TYPE;^FH(119.4,;0;y;y;;n;;;y;m;y

 +72      ;;

 +73      ;;119.5sI;DIETETIC CONSULTS;^FH(119.5,;0;y;y;;n;;;y;m;y

 +74      ;;

 +75      ;;119.6;DIETETICS WARD;^FH(119.6,;0;y;y;;n;;;n

 +76      ;;

 +77      ;;119.71;PRODUCTION FACILITY;^FH(119.71,;0;y;y;;n;;;n;;

 +78      ;;

 +79      ;;119.72;SERVICE POINT;^FH(119.72,;0;y;y;;n;;;n;;

 +80      ;;

 +81      ;;119.73;COMMUNICATION OFFICE;^FH(119.73,;0;y;y;;n;;;n;;

 +82      ;;

 +83      ;;119.74;SUPPLEMENTAL FEEDING SITE;^FH(119.74,;0;y;y;;n;;;n;;

 +84      ;;

 +85      ;;119.8;DIETETIC EVENTS;^FH(119.8,;0;y;y;;n;;;n

 +86      ;;

 +87      ;;119.9;FH SITE PARAMETERS;^FH(119.9,;0;y;y;;n;;;y;m;y

 +88      ;;