FHINI0NY ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
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,"OPT",1564,1,0)
;;=^^2^2^2880903^
;;^UTILITY(U,$J,"OPT",1564,1,1,0)
;;=This option will display the current food preferences for a
;;^UTILITY(U,$J,"OPT",1564,1,2,0)
;;=particular patient.
;;^UTILITY(U,$J,"OPT",1564,25)
;;=EN4^FHSEL1
;;^UTILITY(U,$J,"OPT",1564,"U")
;;=DISPLAY PATIENT PREFERENCES
;;^UTILITY(U,$J,"OPT",1565,0)
;;=FHSELX^Food Preference Management^^M^^^^^^^^
;;^UTILITY(U,$J,"OPT",1565,1,0)
;;=^^1^1^2880914^^^^
;;^UTILITY(U,$J,"OPT",1565,1,1,0)
;;=This menu allows access to all of the food preference options.
;;^UTILITY(U,$J,"OPT",1565,10,0)
;;=^19.01PI^2^2
;;^UTILITY(U,$J,"OPT",1565,10,1,0)
;;=1561^EP
;;^UTILITY(U,$J,"OPT",1565,10,1,"^")
;;=FHSEL1
;;^UTILITY(U,$J,"OPT",1565,10,2,0)
;;=1562^LP
;;^UTILITY(U,$J,"OPT",1565,10,2,"^")
;;=FHSEL2
;;^UTILITY(U,$J,"OPT",1565,99)
;;=56496,40780
;;^UTILITY(U,$J,"OPT",1565,"U")
;;=FOOD PREFERENCE MANAGEMENT
;;^UTILITY(U,$J,"OPT",1566,0)
;;=FHSEL5^Tabulate Patient Meal Preferences^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1566,1,0)
;;=^^3^3^2931004^^^^
;;^UTILITY(U,$J,"OPT",1566,1,1,0)
;;=This option will tabulate patient preferences for a given
;;^UTILITY(U,$J,"OPT",1566,1,2,0)
;;=meal. It will tabulate likes and dislikes for only those recipes
;;^UTILITY(U,$J,"OPT",1566,1,3,0)
;;=appearing on the menu.
;;^UTILITY(U,$J,"OPT",1566,25)
;;=FHSEL2
;;^UTILITY(U,$J,"OPT",1566,"U")
;;=TABULATE PATIENT MEAL PREFEREN
;;^UTILITY(U,$J,"OPT",1567,0)
;;=FHPRC11^Print Daily Diet Menus^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1567,1,0)
;;=^^3^3^2920915^^
;;^UTILITY(U,$J,"OPT",1567,1,1,0)
;;=This option will print the Daily Routine and Modified Diet Menus
;;^UTILITY(U,$J,"OPT",1567,1,2,0)
;;=sheet for a given date. The items will be based upon the effective
;;^UTILITY(U,$J,"OPT",1567,1,3,0)
;;=menu cycle meals for the selected date.
;;^UTILITY(U,$J,"OPT",1567,25)
;;=FHPRC8
;;^UTILITY(U,$J,"OPT",1567,"U")
;;=PRINT DAILY DIET MENUS
;;^UTILITY(U,$J,"OPT",1568,0)
;;=FHFIL1^Print File Entries^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1568,1,0)
;;=^^2^2^2950310^^^
;;^UTILITY(U,$J,"OPT",1568,1,1,0)
;;=This option is the standard FileMan Preint option except that
;;^UTILITY(U,$J,"OPT",1568,1,2,0)
;;=it is restricted to dietetic files.
;;^UTILITY(U,$J,"OPT",1568,25)
;;=PRNT^FHSYSF
;;^UTILITY(U,$J,"OPT",1568,"U")
;;=PRINT FILE ENTRIES
;;^UTILITY(U,$J,"OPT",1569,0)
;;=FHFIL2^Search File Entries^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1569,1,0)
;;=^^2^2^2890726^
;;^UTILITY(U,$J,"OPT",1569,1,1,0)
;;=This option is the standard FileMan Search option except that
;;^UTILITY(U,$J,"OPT",1569,1,2,0)
;;=it is restricted to dietetic files.
;;^UTILITY(U,$J,"OPT",1569,25)
;;=SRCH^FHSYSF
;;^UTILITY(U,$J,"OPT",1569,"U")
;;=SEARCH FILE ENTRIES
;;^UTILITY(U,$J,"OPT",1570,0)
;;=FHFIL3^Inquire to Files^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1570,1,0)
;;=^^2^2^2890726^
;;^UTILITY(U,$J,"OPT",1570,1,1,0)
;;=This option is the standard FileMan Inquire to Files option
;;^UTILITY(U,$J,"OPT",1570,1,2,0)
;;=except that it is restricted to dietetic files.
;;^UTILITY(U,$J,"OPT",1570,25)
;;=INQ^FHSYSF
;;^UTILITY(U,$J,"OPT",1570,"U")
;;=INQUIRE TO FILES
;;^UTILITY(U,$J,"OPT",1571,0)
;;=FHFIL4^File Dictionaries^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1571,1,0)
;;=^^1^1^2901016^^
;;^UTILITY(U,$J,"OPT",1571,1,1,0)
;;=This option is the standard FileMan List File Attributes.
;;^UTILITY(U,$J,"OPT",1571,25)
;;=DIC^FHSYSF
;;^UTILITY(U,$J,"OPT",1571,"U")
;;=FILE DICTIONARIES
;;^UTILITY(U,$J,"OPT",1572,0)
;;=FHASXR^Print Screening Report^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1572,1,0)
;;=^^3^3^2891106^
;;^UTILITY(U,$J,"OPT",1572,1,1,0)
;;=This option will print a nutrition screening form for a patient;
;;^UTILITY(U,$J,"OPT",1572,1,2,0)
;;=it contains any prior assessment data and a format for recording
;;^UTILITY(U,$J,"OPT",1572,1,3,0)
;;=clinical information of interest to dietetics.
;;^UTILITY(U,$J,"OPT",1572,25)
;;=FHASXR
;;^UTILITY(U,$J,"OPT",1572,"U")
;;=PRINT SCREENING REPORT
;;^UTILITY(U,$J,"OPT",1573,0)
;;=FHASM1^Enter Assessment^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1573,1,0)
;;=^^2^2^2940407^^
;;^UTILITY(U,$J,"OPT",1573,1,1,0)
;;=This option is used to perform a nutrition assessment. The results
;;^UTILITY(U,$J,"OPT",1573,1,2,0)
;;=may optionally be saved.
;;^UTILITY(U,$J,"OPT",1573,25)
;;=FHASM1
;;^UTILITY(U,$J,"OPT",1573,"U")
;;=ENTER ASSESSMENT
;;^UTILITY(U,$J,"OPT",1574,0)
;;=FHASMR^Display Assessment^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1574,1,0)
;;=^^2^2^2901005^^
;;^UTILITY(U,$J,"OPT",1574,1,1,0)
;;=This option allows the clinician to display any nutrition
FHINI0NY ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 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,"OPT",1564,1,0)
+2 ;;=^^2^2^2880903^
+3 ;;^UTILITY(U,$J,"OPT",1564,1,1,0)
+4 ;;=This option will display the current food preferences for a
+5 ;;^UTILITY(U,$J,"OPT",1564,1,2,0)
+6 ;;=particular patient.
+7 ;;^UTILITY(U,$J,"OPT",1564,25)
+8 ;;=EN4^FHSEL1
+9 ;;^UTILITY(U,$J,"OPT",1564,"U")
+10 ;;=DISPLAY PATIENT PREFERENCES
+11 ;;^UTILITY(U,$J,"OPT",1565,0)
+12 ;;=FHSELX^Food Preference Management^^M^^^^^^^^
+13 ;;^UTILITY(U,$J,"OPT",1565,1,0)
+14 ;;=^^1^1^2880914^^^^
+15 ;;^UTILITY(U,$J,"OPT",1565,1,1,0)
+16 ;;=This menu allows access to all of the food preference options.
+17 ;;^UTILITY(U,$J,"OPT",1565,10,0)
+18 ;;=^19.01PI^2^2
+19 ;;^UTILITY(U,$J,"OPT",1565,10,1,0)
+20 ;;=1561^EP
+21 ;;^UTILITY(U,$J,"OPT",1565,10,1,"^")
+22 ;;=FHSEL1
+23 ;;^UTILITY(U,$J,"OPT",1565,10,2,0)
+24 ;;=1562^LP
+25 ;;^UTILITY(U,$J,"OPT",1565,10,2,"^")
+26 ;;=FHSEL2
+27 ;;^UTILITY(U,$J,"OPT",1565,99)
+28 ;;=56496,40780
+29 ;;^UTILITY(U,$J,"OPT",1565,"U")
+30 ;;=FOOD PREFERENCE MANAGEMENT
+31 ;;^UTILITY(U,$J,"OPT",1566,0)
+32 ;;=FHSEL5^Tabulate Patient Meal Preferences^^R^^^^^^^^
+33 ;;^UTILITY(U,$J,"OPT",1566,1,0)
+34 ;;=^^3^3^2931004^^^^
+35 ;;^UTILITY(U,$J,"OPT",1566,1,1,0)
+36 ;;=This option will tabulate patient preferences for a given
+37 ;;^UTILITY(U,$J,"OPT",1566,1,2,0)
+38 ;;=meal. It will tabulate likes and dislikes for only those recipes
+39 ;;^UTILITY(U,$J,"OPT",1566,1,3,0)
+40 ;;=appearing on the menu.
+41 ;;^UTILITY(U,$J,"OPT",1566,25)
+42 ;;=FHSEL2
+43 ;;^UTILITY(U,$J,"OPT",1566,"U")
+44 ;;=TABULATE PATIENT MEAL PREFEREN
+45 ;;^UTILITY(U,$J,"OPT",1567,0)
+46 ;;=FHPRC11^Print Daily Diet Menus^^R^^^^^^^^
+47 ;;^UTILITY(U,$J,"OPT",1567,1,0)
+48 ;;=^^3^3^2920915^^
+49 ;;^UTILITY(U,$J,"OPT",1567,1,1,0)
+50 ;;=This option will print the Daily Routine and Modified Diet Menus
+51 ;;^UTILITY(U,$J,"OPT",1567,1,2,0)
+52 ;;=sheet for a given date. The items will be based upon the effective
+53 ;;^UTILITY(U,$J,"OPT",1567,1,3,0)
+54 ;;=menu cycle meals for the selected date.
+55 ;;^UTILITY(U,$J,"OPT",1567,25)
+56 ;;=FHPRC8
+57 ;;^UTILITY(U,$J,"OPT",1567,"U")
+58 ;;=PRINT DAILY DIET MENUS
+59 ;;^UTILITY(U,$J,"OPT",1568,0)
+60 ;;=FHFIL1^Print File Entries^^R^^^^^^^^
+61 ;;^UTILITY(U,$J,"OPT",1568,1,0)
+62 ;;=^^2^2^2950310^^^
+63 ;;^UTILITY(U,$J,"OPT",1568,1,1,0)
+64 ;;=This option is the standard FileMan Preint option except that
+65 ;;^UTILITY(U,$J,"OPT",1568,1,2,0)
+66 ;;=it is restricted to dietetic files.
+67 ;;^UTILITY(U,$J,"OPT",1568,25)
+68 ;;=PRNT^FHSYSF
+69 ;;^UTILITY(U,$J,"OPT",1568,"U")
+70 ;;=PRINT FILE ENTRIES
+71 ;;^UTILITY(U,$J,"OPT",1569,0)
+72 ;;=FHFIL2^Search File Entries^^R^^^^^^^^
+73 ;;^UTILITY(U,$J,"OPT",1569,1,0)
+74 ;;=^^2^2^2890726^
+75 ;;^UTILITY(U,$J,"OPT",1569,1,1,0)
+76 ;;=This option is the standard FileMan Search option except that
+77 ;;^UTILITY(U,$J,"OPT",1569,1,2,0)
+78 ;;=it is restricted to dietetic files.
+79 ;;^UTILITY(U,$J,"OPT",1569,25)
+80 ;;=SRCH^FHSYSF
+81 ;;^UTILITY(U,$J,"OPT",1569,"U")
+82 ;;=SEARCH FILE ENTRIES
+83 ;;^UTILITY(U,$J,"OPT",1570,0)
+84 ;;=FHFIL3^Inquire to Files^^R^^^^^^^^
+85 ;;^UTILITY(U,$J,"OPT",1570,1,0)
+86 ;;=^^2^2^2890726^
+87 ;;^UTILITY(U,$J,"OPT",1570,1,1,0)
+88 ;;=This option is the standard FileMan Inquire to Files option
+89 ;;^UTILITY(U,$J,"OPT",1570,1,2,0)
+90 ;;=except that it is restricted to dietetic files.
+91 ;;^UTILITY(U,$J,"OPT",1570,25)
+92 ;;=INQ^FHSYSF
+93 ;;^UTILITY(U,$J,"OPT",1570,"U")
+94 ;;=INQUIRE TO FILES
+95 ;;^UTILITY(U,$J,"OPT",1571,0)
+96 ;;=FHFIL4^File Dictionaries^^R^^^^^^^^
+97 ;;^UTILITY(U,$J,"OPT",1571,1,0)
+98 ;;=^^1^1^2901016^^
+99 ;;^UTILITY(U,$J,"OPT",1571,1,1,0)
+100 ;;=This option is the standard FileMan List File Attributes.
+101 ;;^UTILITY(U,$J,"OPT",1571,25)
+102 ;;=DIC^FHSYSF
+103 ;;^UTILITY(U,$J,"OPT",1571,"U")
+104 ;;=FILE DICTIONARIES
+105 ;;^UTILITY(U,$J,"OPT",1572,0)
+106 ;;=FHASXR^Print Screening Report^^R^^^^^^^^
+107 ;;^UTILITY(U,$J,"OPT",1572,1,0)
+108 ;;=^^3^3^2891106^
+109 ;;^UTILITY(U,$J,"OPT",1572,1,1,0)
+110 ;;=This option will print a nutrition screening form for a patient;
+111 ;;^UTILITY(U,$J,"OPT",1572,1,2,0)
+112 ;;=it contains any prior assessment data and a format for recording
+113 ;;^UTILITY(U,$J,"OPT",1572,1,3,0)
+114 ;;=clinical information of interest to dietetics.
+115 ;;^UTILITY(U,$J,"OPT",1572,25)
+116 ;;=FHASXR
+117 ;;^UTILITY(U,$J,"OPT",1572,"U")
+118 ;;=PRINT SCREENING REPORT
+119 ;;^UTILITY(U,$J,"OPT",1573,0)
+120 ;;=FHASM1^Enter Assessment^^R^^^^^^^^DIETETICS
+121 ;;^UTILITY(U,$J,"OPT",1573,1,0)
+122 ;;=^^2^2^2940407^^
+123 ;;^UTILITY(U,$J,"OPT",1573,1,1,0)
+124 ;;=This option is used to perform a nutrition assessment. The results
+125 ;;^UTILITY(U,$J,"OPT",1573,1,2,0)
+126 ;;=may optionally be saved.
+127 ;;^UTILITY(U,$J,"OPT",1573,25)
+128 ;;=FHASM1
+129 ;;^UTILITY(U,$J,"OPT",1573,"U")
+130 ;;=ENTER ASSESSMENT
+131 ;;^UTILITY(U,$J,"OPT",1574,0)
+132 ;;=FHASMR^Display Assessment^^R^^^^^^^^
+133 ;;^UTILITY(U,$J,"OPT",1574,1,0)
+134 ;;=^^2^2^2901005^^
+135 ;;^UTILITY(U,$J,"OPT",1574,1,1,0)
+136 ;;=This option allows the clinician to display any nutrition
