FHINI0NF ; ; 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",1430,0)
;;=FHNO7^List Supplemental Feeding Menus^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1430,1,0)
;;=^^3^3^2880717^^^^
;;^UTILITY(U,$J,"OPT",1430,1,1,0)
;;=This option will list all supplemental feeding menus contained in the
;;^UTILITY(U,$J,"OPT",1430,1,2,0)
;;=Supplemental Feeding Menu file (118.1) along with associated
;;^UTILITY(U,$J,"OPT",1430,1,3,0)
;;=data elements.
;;^UTILITY(U,$J,"OPT",1430,25)
;;=EN7^FHNO1
;;^UTILITY(U,$J,"OPT",1430,"U")
;;=LIST SUPPLEMENTAL FEEDING MENU
;;^UTILITY(U,$J,"OPT",1431,0)
;;=FHNU3^List User Menus^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1431,1,0)
;;=^^2^2^2950313^^^^
;;^UTILITY(U,$J,"OPT",1431,1,1,0)
;;=This option will list the User Menus currently contained in the
;;^UTILITY(U,$J,"OPT",1431,1,2,0)
;;=User Menu file (112.6) by user.
;;^UTILITY(U,$J,"OPT",1431,25)
;;=EN8^FHNU
;;^UTILITY(U,$J,"OPT",1431,"U")
;;=LIST USER MENUS
;;^UTILITY(U,$J,"OPT",1432,0)
;;=FHNU9^List RDA Values^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1432,1,0)
;;=^^1^1^2880717^
;;^UTILITY(U,$J,"OPT",1432,1,1,0)
;;=This option will list the contents of the RDA Values file (112.2).
;;^UTILITY(U,$J,"OPT",1432,25)
;;=FHNU10
;;^UTILITY(U,$J,"OPT",1432,"U")
;;=LIST RDA VALUES
;;^UTILITY(U,$J,"OPT",1433,0)
;;=FHORD6^Enter/Edit Diets^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1433,1,0)
;;=^^2^2^2880714^
;;^UTILITY(U,$J,"OPT",1433,1,1,0)
;;=This option allows for the addition/editing of diet modifications
;;^UTILITY(U,$J,"OPT",1433,1,2,0)
;;=in the Diets file (111).
;;^UTILITY(U,$J,"OPT",1433,25)
;;=EN1^FHORD
;;^UTILITY(U,$J,"OPT",1433,"U")
;;=ENTER/EDIT DIETS
;;^UTILITY(U,$J,"OPT",1434,0)
;;=FHORD1^Order Diet^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1434,1,0)
;;=^^3^3^2940107^^^
;;^UTILITY(U,$J,"OPT",1434,1,1,0)
;;=This option allows for the ordering of a diet, which is composed
;;^UTILITY(U,$J,"OPT",1434,1,2,0)
;;=of up to five diet modifications. The type of service, a beginning
;;^UTILITY(U,$J,"OPT",1434,1,3,0)
;;=date/time, and an optional ending date/time are also entered.
;;^UTILITY(U,$J,"OPT",1434,25)
;;=FHORD1
;;^UTILITY(U,$J,"OPT",1434,"U")
;;=ORDER DIET
;;^UTILITY(U,$J,"OPT",1435,0)
;;=FHORC1^Order Consult^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1435,1,0)
;;=1^^1^1^2920605^
;;^UTILITY(U,$J,"OPT",1435,1,1,0)
;;=This option allows the ordering of a dietetic consult.
;;^UTILITY(U,$J,"OPT",1435,25)
;;=EN1^FHORC
;;^UTILITY(U,$J,"OPT",1435,"U")
;;=ORDER CONSULT
;;^UTILITY(U,$J,"OPT",1436,0)
;;=FHORD3^NPO/Hold Tray^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1436,1,0)
;;=^^1^1^2920318^^^^
;;^UTILITY(U,$J,"OPT",1436,1,1,0)
;;=This option allows for the entry of an NPO order.
;;^UTILITY(U,$J,"OPT",1436,25)
;;=FHORD3
;;^UTILITY(U,$J,"OPT",1436,"U")
;;=NPO/HOLD TRAY
;;^UTILITY(U,$J,"OPT",1437,0)
;;=FHORD4^Enter/Cancel Isolation/Precautions^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1437,1,0)
;;=^^3^3^2880914^^^
;;^UTILITY(U,$J,"OPT",1437,1,1,0)
;;=This option allows for placing a patient on isolation (as far
;;^UTILITY(U,$J,"OPT",1437,1,2,0)
;;=as dietetics is concerned) or removing the patient from an
;;^UTILITY(U,$J,"OPT",1437,1,3,0)
;;=existing isolation/precaution type.
;;^UTILITY(U,$J,"OPT",1437,25)
;;=FHORD4
;;^UTILITY(U,$J,"OPT",1437,"U")
;;=ENTER/CANCEL ISOLATION/PRECAUT
;;^UTILITY(U,$J,"OPT",1438,0)
;;=FHORD2^Review Diet Orders^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1438,1,0)
;;=^^3^3^2950921^^^^
;;^UTILITY(U,$J,"OPT",1438,1,1,0)
;;=This option displays all diet orders entered as well as a
;;^UTILITY(U,$J,"OPT",1438,1,2,0)
;;='dietetic time line' indicating when each diet order will
;;^UTILITY(U,$J,"OPT",1438,1,3,0)
;;=become effective.
;;^UTILITY(U,$J,"OPT",1438,25)
;;=FHORD2
;;^UTILITY(U,$J,"OPT",1438,"U")
;;=REVIEW DIET ORDERS
;;^UTILITY(U,$J,"OPT",1439,0)
;;=FHORD5^NPO/Pass List^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1439,1,0)
;;=^^2^2^2880714^
;;^UTILITY(U,$J,"OPT",1439,1,1,0)
;;=This option will produce a list of all patients who are presently
;;^UTILITY(U,$J,"OPT",1439,1,2,0)
;;=on NPO or for whom no order exists.
;;^UTILITY(U,$J,"OPT",1439,25)
;;=FHORD5
;;^UTILITY(U,$J,"OPT",1439,"U")
;;=NPO/PASS LIST
;;^UTILITY(U,$J,"OPT",1440,0)
;;=FHORDM^Diet Orders^^M^^^^^^^^^^1
;;^UTILITY(U,$J,"OPT",1440,1,0)
;;=^^3^3^2940707^^^^
;;^UTILITY(U,$J,"OPT",1440,1,1,0)
;;=This menu allows access to all Diet Order functions including
;;^UTILITY(U,$J,"OPT",1440,1,2,0)
;;=diet orders, NPO's, early/late trays, isolations,
;;^UTILITY(U,$J,"OPT",1440,1,3,0)
;;=tubefeedings, and additional orders.
;;^UTILITY(U,$J,"OPT",1440,10,0)
;;=^19.01PI^26^14
FHINI0NF ; ; 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",1430,0)
+2 ;;=FHNO7^List Supplemental Feeding Menus^^R^^^^^^^^
+3 ;;^UTILITY(U,$J,"OPT",1430,1,0)
+4 ;;=^^3^3^2880717^^^^
+5 ;;^UTILITY(U,$J,"OPT",1430,1,1,0)
+6 ;;=This option will list all supplemental feeding menus contained in the
+7 ;;^UTILITY(U,$J,"OPT",1430,1,2,0)
+8 ;;=Supplemental Feeding Menu file (118.1) along with associated
+9 ;;^UTILITY(U,$J,"OPT",1430,1,3,0)
+10 ;;=data elements.
+11 ;;^UTILITY(U,$J,"OPT",1430,25)
+12 ;;=EN7^FHNO1
+13 ;;^UTILITY(U,$J,"OPT",1430,"U")
+14 ;;=LIST SUPPLEMENTAL FEEDING MENU
+15 ;;^UTILITY(U,$J,"OPT",1431,0)
+16 ;;=FHNU3^List User Menus^^R^^^^^^^^
+17 ;;^UTILITY(U,$J,"OPT",1431,1,0)
+18 ;;=^^2^2^2950313^^^^
+19 ;;^UTILITY(U,$J,"OPT",1431,1,1,0)
+20 ;;=This option will list the User Menus currently contained in the
+21 ;;^UTILITY(U,$J,"OPT",1431,1,2,0)
+22 ;;=User Menu file (112.6) by user.
+23 ;;^UTILITY(U,$J,"OPT",1431,25)
+24 ;;=EN8^FHNU
+25 ;;^UTILITY(U,$J,"OPT",1431,"U")
+26 ;;=LIST USER MENUS
+27 ;;^UTILITY(U,$J,"OPT",1432,0)
+28 ;;=FHNU9^List RDA Values^^R^^^^^^^^
+29 ;;^UTILITY(U,$J,"OPT",1432,1,0)
+30 ;;=^^1^1^2880717^
+31 ;;^UTILITY(U,$J,"OPT",1432,1,1,0)
+32 ;;=This option will list the contents of the RDA Values file (112.2).
+33 ;;^UTILITY(U,$J,"OPT",1432,25)
+34 ;;=FHNU10
+35 ;;^UTILITY(U,$J,"OPT",1432,"U")
+36 ;;=LIST RDA VALUES
+37 ;;^UTILITY(U,$J,"OPT",1433,0)
+38 ;;=FHORD6^Enter/Edit Diets^^R^^^^^^^^
+39 ;;^UTILITY(U,$J,"OPT",1433,1,0)
+40 ;;=^^2^2^2880714^
+41 ;;^UTILITY(U,$J,"OPT",1433,1,1,0)
+42 ;;=This option allows for the addition/editing of diet modifications
+43 ;;^UTILITY(U,$J,"OPT",1433,1,2,0)
+44 ;;=in the Diets file (111).
+45 ;;^UTILITY(U,$J,"OPT",1433,25)
+46 ;;=EN1^FHORD
+47 ;;^UTILITY(U,$J,"OPT",1433,"U")
+48 ;;=ENTER/EDIT DIETS
+49 ;;^UTILITY(U,$J,"OPT",1434,0)
+50 ;;=FHORD1^Order Diet^^R^^^^^^^^
+51 ;;^UTILITY(U,$J,"OPT",1434,1,0)
+52 ;;=^^3^3^2940107^^^
+53 ;;^UTILITY(U,$J,"OPT",1434,1,1,0)
+54 ;;=This option allows for the ordering of a diet, which is composed
+55 ;;^UTILITY(U,$J,"OPT",1434,1,2,0)
+56 ;;=of up to five diet modifications. The type of service, a beginning
+57 ;;^UTILITY(U,$J,"OPT",1434,1,3,0)
+58 ;;=date/time, and an optional ending date/time are also entered.
+59 ;;^UTILITY(U,$J,"OPT",1434,25)
+60 ;;=FHORD1
+61 ;;^UTILITY(U,$J,"OPT",1434,"U")
+62 ;;=ORDER DIET
+63 ;;^UTILITY(U,$J,"OPT",1435,0)
+64 ;;=FHORC1^Order Consult^^R^^^^^^^^
+65 ;;^UTILITY(U,$J,"OPT",1435,1,0)
+66 ;;=1^^1^1^2920605^
+67 ;;^UTILITY(U,$J,"OPT",1435,1,1,0)
+68 ;;=This option allows the ordering of a dietetic consult.
+69 ;;^UTILITY(U,$J,"OPT",1435,25)
+70 ;;=EN1^FHORC
+71 ;;^UTILITY(U,$J,"OPT",1435,"U")
+72 ;;=ORDER CONSULT
+73 ;;^UTILITY(U,$J,"OPT",1436,0)
+74 ;;=FHORD3^NPO/Hold Tray^^R^^^^^^^^
+75 ;;^UTILITY(U,$J,"OPT",1436,1,0)
+76 ;;=^^1^1^2920318^^^^
+77 ;;^UTILITY(U,$J,"OPT",1436,1,1,0)
+78 ;;=This option allows for the entry of an NPO order.
+79 ;;^UTILITY(U,$J,"OPT",1436,25)
+80 ;;=FHORD3
+81 ;;^UTILITY(U,$J,"OPT",1436,"U")
+82 ;;=NPO/HOLD TRAY
+83 ;;^UTILITY(U,$J,"OPT",1437,0)
+84 ;;=FHORD4^Enter/Cancel Isolation/Precautions^^R^^^^^^^^
+85 ;;^UTILITY(U,$J,"OPT",1437,1,0)
+86 ;;=^^3^3^2880914^^^
+87 ;;^UTILITY(U,$J,"OPT",1437,1,1,0)
+88 ;;=This option allows for placing a patient on isolation (as far
+89 ;;^UTILITY(U,$J,"OPT",1437,1,2,0)
+90 ;;=as dietetics is concerned) or removing the patient from an
+91 ;;^UTILITY(U,$J,"OPT",1437,1,3,0)
+92 ;;=existing isolation/precaution type.
+93 ;;^UTILITY(U,$J,"OPT",1437,25)
+94 ;;=FHORD4
+95 ;;^UTILITY(U,$J,"OPT",1437,"U")
+96 ;;=ENTER/CANCEL ISOLATION/PRECAUT
+97 ;;^UTILITY(U,$J,"OPT",1438,0)
+98 ;;=FHORD2^Review Diet Orders^^R^^^^^^^^
+99 ;;^UTILITY(U,$J,"OPT",1438,1,0)
+100 ;;=^^3^3^2950921^^^^
+101 ;;^UTILITY(U,$J,"OPT",1438,1,1,0)
+102 ;;=This option displays all diet orders entered as well as a
+103 ;;^UTILITY(U,$J,"OPT",1438,1,2,0)
+104 ;;='dietetic time line' indicating when each diet order will
+105 ;;^UTILITY(U,$J,"OPT",1438,1,3,0)
+106 ;;=become effective.
+107 ;;^UTILITY(U,$J,"OPT",1438,25)
+108 ;;=FHORD2
+109 ;;^UTILITY(U,$J,"OPT",1438,"U")
+110 ;;=REVIEW DIET ORDERS
+111 ;;^UTILITY(U,$J,"OPT",1439,0)
+112 ;;=FHORD5^NPO/Pass List^^R^^^^^^^^
+113 ;;^UTILITY(U,$J,"OPT",1439,1,0)
+114 ;;=^^2^2^2880714^
+115 ;;^UTILITY(U,$J,"OPT",1439,1,1,0)
+116 ;;=This option will produce a list of all patients who are presently
+117 ;;^UTILITY(U,$J,"OPT",1439,1,2,0)
+118 ;;=on NPO or for whom no order exists.
+119 ;;^UTILITY(U,$J,"OPT",1439,25)
+120 ;;=FHORD5
+121 ;;^UTILITY(U,$J,"OPT",1439,"U")
+122 ;;=NPO/PASS LIST
+123 ;;^UTILITY(U,$J,"OPT",1440,0)
+124 ;;=FHORDM^Diet Orders^^M^^^^^^^^^^1
+125 ;;^UTILITY(U,$J,"OPT",1440,1,0)
+126 ;;=^^3^3^2940707^^^^
+127 ;;^UTILITY(U,$J,"OPT",1440,1,1,0)
+128 ;;=This menu allows access to all Diet Order functions including
+129 ;;^UTILITY(U,$J,"OPT",1440,1,2,0)
+130 ;;=diet orders, NPO's, early/late trays, isolations,
+131 ;;^UTILITY(U,$J,"OPT",1440,1,3,0)
+132 ;;=tubefeedings, and additional orders.
+133 ;;^UTILITY(U,$J,"OPT",1440,10,0)
+134 ;;=^19.01PI^26^14
