FHINI0NJ ; ; 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",1466,1,0)
;;=^^3^3^2880717^
;;^UTILITY(U,$J,"OPT",1466,1,1,0)
;;=This menu allows access to the file management options associated
;;^UTILITY(U,$J,"OPT",1466,1,2,0)
;;=with the consult module as well as access to consult statistics
;;^UTILITY(U,$J,"OPT",1466,1,3,0)
;;=and the ability to perform mass re-assignment of consults.
;;^UTILITY(U,$J,"OPT",1466,10,0)
;;=^19.01PI^6^6
;;^UTILITY(U,$J,"OPT",1466,10,1,0)
;;=1460^WE
;;^UTILITY(U,$J,"OPT",1466,10,1,"^")
;;=FHORC5
;;^UTILITY(U,$J,"OPT",1466,10,2,0)
;;=1441^WL
;;^UTILITY(U,$J,"OPT",1466,10,2,"^")
;;=FHORC6
;;^UTILITY(U,$J,"OPT",1466,10,3,0)
;;=1442^CE
;;^UTILITY(U,$J,"OPT",1466,10,3,"^")
;;=FHORC7
;;^UTILITY(U,$J,"OPT",1466,10,4,0)
;;=1443^CL
;;^UTILITY(U,$J,"OPT",1466,10,4,"^")
;;=FHORC8
;;^UTILITY(U,$J,"OPT",1466,10,5,0)
;;=1444^CR
;;^UTILITY(U,$J,"OPT",1466,10,5,"^")
;;=FHORC9
;;^UTILITY(U,$J,"OPT",1466,10,6,0)
;;=1445^CX
;;^UTILITY(U,$J,"OPT",1466,10,6,"^")
;;=FHORC10
;;^UTILITY(U,$J,"OPT",1466,99)
;;=56496,40715
;;^UTILITY(U,$J,"OPT",1466,"U")
;;=CONSULT MANAGEMENT
;;^UTILITY(U,$J,"OPT",1467,0)
;;=FHORDX^Diet Order Management^^M^^^^^^^^
;;^UTILITY(U,$J,"OPT",1467,1,0)
;;=^^2^2^2940707^^^^
;;^UTILITY(U,$J,"OPT",1467,1,1,0)
;;=This menu allows access to all file management options
;;^UTILITY(U,$J,"OPT",1467,1,2,0)
;;=relating to diet orders, tubefeedings and isolations.
;;^UTILITY(U,$J,"OPT",1467,10,0)
;;=^19.01PI^6^6
;;^UTILITY(U,$J,"OPT",1467,10,1,0)
;;=1433^DE
;;^UTILITY(U,$J,"OPT",1467,10,1,"^")
;;=FHORD6
;;^UTILITY(U,$J,"OPT",1467,10,2,0)
;;=1464^IE
;;^UTILITY(U,$J,"OPT",1467,10,2,"^")
;;=FHORI1
;;^UTILITY(U,$J,"OPT",1467,10,3,0)
;;=1450^TE
;;^UTILITY(U,$J,"OPT",1467,10,3,"^")
;;=FHORTF1
;;^UTILITY(U,$J,"OPT",1467,10,4,0)
;;=1459^DL
;;^UTILITY(U,$J,"OPT",1467,10,4,"^")
;;=FHORD7
;;^UTILITY(U,$J,"OPT",1467,10,5,0)
;;=1465^IL
;;^UTILITY(U,$J,"OPT",1467,10,5,"^")
;;=FHORI2
;;^UTILITY(U,$J,"OPT",1467,10,6,0)
;;=1451^TL
;;^UTILITY(U,$J,"OPT",1467,10,6,"^")
;;=FHORTF2
;;^UTILITY(U,$J,"OPT",1467,99)
;;=56496,40732
;;^UTILITY(U,$J,"OPT",1467,"U")
;;=DIET ORDER MANAGEMENT
;;^UTILITY(U,$J,"OPT",1468,0)
;;=FHNUX^Energy/Nutrient Management^^M^^^^^^^^
;;^UTILITY(U,$J,"OPT",1468,1,0)
;;=^^2^2^2931027^^
;;^UTILITY(U,$J,"OPT",1468,1,1,0)
;;=This menu allows access to the file management options associated
;;^UTILITY(U,$J,"OPT",1468,1,2,0)
;;=with the Energy/Nutrient module.
;;^UTILITY(U,$J,"OPT",1468,10,0)
;;=^19.01PI^6^6
;;^UTILITY(U,$J,"OPT",1468,10,1,0)
;;=1423^NE
;;^UTILITY(U,$J,"OPT",1468,10,1,"^")
;;=FHNU6
;;^UTILITY(U,$J,"OPT",1468,10,2,0)
;;=1428^NL
;;^UTILITY(U,$J,"OPT",1468,10,2,"^")
;;=FHNU7
;;^UTILITY(U,$J,"OPT",1468,10,3,0)
;;=1432^RL
;;^UTILITY(U,$J,"OPT",1468,10,3,"^")
;;=FHNU9
;;^UTILITY(U,$J,"OPT",1468,10,4,0)
;;=1431^ML
;;^UTILITY(U,$J,"OPT",1468,10,4,"^")
;;=FHNU3
;;^UTILITY(U,$J,"OPT",1468,10,5,0)
;;=1497^RE
;;^UTILITY(U,$J,"OPT",1468,10,5,"^")
;;=FHNU11
;;^UTILITY(U,$J,"OPT",1468,10,6,0)
;;=1759^NG
;;^UTILITY(U,$J,"OPT",1468,10,6,"^")
;;=FHNU12
;;^UTILITY(U,$J,"OPT",1468,99)
;;=56496,40696
;;^UTILITY(U,$J,"OPT",1468,"U")
;;=ENERGY/NUTRIENT MANAGEMENT
;;^UTILITY(U,$J,"OPT",1469,0)
;;=FHNOX^Supplemental Feeding Management^^M^^^^^^^^
;;^UTILITY(U,$J,"OPT",1469,1,0)
;;=^^2^2^2941018^^^^
;;^UTILITY(U,$J,"OPT",1469,1,1,0)
;;=This menu contains the file management options pertaining to the
;;^UTILITY(U,$J,"OPT",1469,1,2,0)
;;=Supplemental Feedings module.
;;^UTILITY(U,$J,"OPT",1469,10,0)
;;=^19.01PI^5^5
;;^UTILITY(U,$J,"OPT",1469,10,1,0)
;;=1457^BE
;;^UTILITY(U,$J,"OPT",1469,10,1,"^")
;;=FHNO8
;;^UTILITY(U,$J,"OPT",1469,10,2,0)
;;=1424^SE
;;^UTILITY(U,$J,"OPT",1469,10,2,"^")
;;=FHNO4
;;^UTILITY(U,$J,"OPT",1469,10,3,0)
;;=1429^SL
;;^UTILITY(U,$J,"OPT",1469,10,3,"^")
;;=FHNO5
;;^UTILITY(U,$J,"OPT",1469,10,4,0)
;;=1430^ML
;;^UTILITY(U,$J,"OPT",1469,10,4,"^")
;;=FHNO7
;;^UTILITY(U,$J,"OPT",1469,10,5,0)
;;=1425^ME
;;^UTILITY(U,$J,"OPT",1469,10,5,"^")
;;=FHNO6
;;^UTILITY(U,$J,"OPT",1469,99)
;;=56496,40688
;;^UTILITY(U,$J,"OPT",1469,"U")
;;=SUPPLEMENTAL FEEDING MANAGEMEN
;;^UTILITY(U,$J,"OPT",1470,0)
;;=FHWARD^Dietetic Orders^^M^^^^^^^^DIETETICS^^1
;;^UTILITY(U,$J,"OPT",1470,1,0)
;;=^^5^5^2940107^^^^
;;^UTILITY(U,$J,"OPT",1470,1,1,0)
;;=This menu allows access to all dietetic order options normally given
;;^UTILITY(U,$J,"OPT",1470,1,2,0)
;;=to ward personnel and includes the ability to order diets, consults,
;;^UTILITY(U,$J,"OPT",1470,1,3,0)
;;=early/late trays, NPO's, tubefeedings, and enter additional
FHINI0NJ ; ; 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",1466,1,0)
+2 ;;=^^3^3^2880717^
+3 ;;^UTILITY(U,$J,"OPT",1466,1,1,0)
+4 ;;=This menu allows access to the file management options associated
+5 ;;^UTILITY(U,$J,"OPT",1466,1,2,0)
+6 ;;=with the consult module as well as access to consult statistics
+7 ;;^UTILITY(U,$J,"OPT",1466,1,3,0)
+8 ;;=and the ability to perform mass re-assignment of consults.
+9 ;;^UTILITY(U,$J,"OPT",1466,10,0)
+10 ;;=^19.01PI^6^6
+11 ;;^UTILITY(U,$J,"OPT",1466,10,1,0)
+12 ;;=1460^WE
+13 ;;^UTILITY(U,$J,"OPT",1466,10,1,"^")
+14 ;;=FHORC5
+15 ;;^UTILITY(U,$J,"OPT",1466,10,2,0)
+16 ;;=1441^WL
+17 ;;^UTILITY(U,$J,"OPT",1466,10,2,"^")
+18 ;;=FHORC6
+19 ;;^UTILITY(U,$J,"OPT",1466,10,3,0)
+20 ;;=1442^CE
+21 ;;^UTILITY(U,$J,"OPT",1466,10,3,"^")
+22 ;;=FHORC7
+23 ;;^UTILITY(U,$J,"OPT",1466,10,4,0)
+24 ;;=1443^CL
+25 ;;^UTILITY(U,$J,"OPT",1466,10,4,"^")
+26 ;;=FHORC8
+27 ;;^UTILITY(U,$J,"OPT",1466,10,5,0)
+28 ;;=1444^CR
+29 ;;^UTILITY(U,$J,"OPT",1466,10,5,"^")
+30 ;;=FHORC9
+31 ;;^UTILITY(U,$J,"OPT",1466,10,6,0)
+32 ;;=1445^CX
+33 ;;^UTILITY(U,$J,"OPT",1466,10,6,"^")
+34 ;;=FHORC10
+35 ;;^UTILITY(U,$J,"OPT",1466,99)
+36 ;;=56496,40715
+37 ;;^UTILITY(U,$J,"OPT",1466,"U")
+38 ;;=CONSULT MANAGEMENT
+39 ;;^UTILITY(U,$J,"OPT",1467,0)
+40 ;;=FHORDX^Diet Order Management^^M^^^^^^^^
+41 ;;^UTILITY(U,$J,"OPT",1467,1,0)
+42 ;;=^^2^2^2940707^^^^
+43 ;;^UTILITY(U,$J,"OPT",1467,1,1,0)
+44 ;;=This menu allows access to all file management options
+45 ;;^UTILITY(U,$J,"OPT",1467,1,2,0)
+46 ;;=relating to diet orders, tubefeedings and isolations.
+47 ;;^UTILITY(U,$J,"OPT",1467,10,0)
+48 ;;=^19.01PI^6^6
+49 ;;^UTILITY(U,$J,"OPT",1467,10,1,0)
+50 ;;=1433^DE
+51 ;;^UTILITY(U,$J,"OPT",1467,10,1,"^")
+52 ;;=FHORD6
+53 ;;^UTILITY(U,$J,"OPT",1467,10,2,0)
+54 ;;=1464^IE
+55 ;;^UTILITY(U,$J,"OPT",1467,10,2,"^")
+56 ;;=FHORI1
+57 ;;^UTILITY(U,$J,"OPT",1467,10,3,0)
+58 ;;=1450^TE
+59 ;;^UTILITY(U,$J,"OPT",1467,10,3,"^")
+60 ;;=FHORTF1
+61 ;;^UTILITY(U,$J,"OPT",1467,10,4,0)
+62 ;;=1459^DL
+63 ;;^UTILITY(U,$J,"OPT",1467,10,4,"^")
+64 ;;=FHORD7
+65 ;;^UTILITY(U,$J,"OPT",1467,10,5,0)
+66 ;;=1465^IL
+67 ;;^UTILITY(U,$J,"OPT",1467,10,5,"^")
+68 ;;=FHORI2
+69 ;;^UTILITY(U,$J,"OPT",1467,10,6,0)
+70 ;;=1451^TL
+71 ;;^UTILITY(U,$J,"OPT",1467,10,6,"^")
+72 ;;=FHORTF2
+73 ;;^UTILITY(U,$J,"OPT",1467,99)
+74 ;;=56496,40732
+75 ;;^UTILITY(U,$J,"OPT",1467,"U")
+76 ;;=DIET ORDER MANAGEMENT
+77 ;;^UTILITY(U,$J,"OPT",1468,0)
+78 ;;=FHNUX^Energy/Nutrient Management^^M^^^^^^^^
+79 ;;^UTILITY(U,$J,"OPT",1468,1,0)
+80 ;;=^^2^2^2931027^^
+81 ;;^UTILITY(U,$J,"OPT",1468,1,1,0)
+82 ;;=This menu allows access to the file management options associated
+83 ;;^UTILITY(U,$J,"OPT",1468,1,2,0)
+84 ;;=with the Energy/Nutrient module.
+85 ;;^UTILITY(U,$J,"OPT",1468,10,0)
+86 ;;=^19.01PI^6^6
+87 ;;^UTILITY(U,$J,"OPT",1468,10,1,0)
+88 ;;=1423^NE
+89 ;;^UTILITY(U,$J,"OPT",1468,10,1,"^")
+90 ;;=FHNU6
+91 ;;^UTILITY(U,$J,"OPT",1468,10,2,0)
+92 ;;=1428^NL
+93 ;;^UTILITY(U,$J,"OPT",1468,10,2,"^")
+94 ;;=FHNU7
+95 ;;^UTILITY(U,$J,"OPT",1468,10,3,0)
+96 ;;=1432^RL
+97 ;;^UTILITY(U,$J,"OPT",1468,10,3,"^")
+98 ;;=FHNU9
+99 ;;^UTILITY(U,$J,"OPT",1468,10,4,0)
+100 ;;=1431^ML
+101 ;;^UTILITY(U,$J,"OPT",1468,10,4,"^")
+102 ;;=FHNU3
+103 ;;^UTILITY(U,$J,"OPT",1468,10,5,0)
+104 ;;=1497^RE
+105 ;;^UTILITY(U,$J,"OPT",1468,10,5,"^")
+106 ;;=FHNU11
+107 ;;^UTILITY(U,$J,"OPT",1468,10,6,0)
+108 ;;=1759^NG
+109 ;;^UTILITY(U,$J,"OPT",1468,10,6,"^")
+110 ;;=FHNU12
+111 ;;^UTILITY(U,$J,"OPT",1468,99)
+112 ;;=56496,40696
+113 ;;^UTILITY(U,$J,"OPT",1468,"U")
+114 ;;=ENERGY/NUTRIENT MANAGEMENT
+115 ;;^UTILITY(U,$J,"OPT",1469,0)
+116 ;;=FHNOX^Supplemental Feeding Management^^M^^^^^^^^
+117 ;;^UTILITY(U,$J,"OPT",1469,1,0)
+118 ;;=^^2^2^2941018^^^^
+119 ;;^UTILITY(U,$J,"OPT",1469,1,1,0)
+120 ;;=This menu contains the file management options pertaining to the
+121 ;;^UTILITY(U,$J,"OPT",1469,1,2,0)
+122 ;;=Supplemental Feedings module.
+123 ;;^UTILITY(U,$J,"OPT",1469,10,0)
+124 ;;=^19.01PI^5^5
+125 ;;^UTILITY(U,$J,"OPT",1469,10,1,0)
+126 ;;=1457^BE
+127 ;;^UTILITY(U,$J,"OPT",1469,10,1,"^")
+128 ;;=FHNO8
+129 ;;^UTILITY(U,$J,"OPT",1469,10,2,0)
+130 ;;=1424^SE
+131 ;;^UTILITY(U,$J,"OPT",1469,10,2,"^")
+132 ;;=FHNO4
+133 ;;^UTILITY(U,$J,"OPT",1469,10,3,0)
+134 ;;=1429^SL
+135 ;;^UTILITY(U,$J,"OPT",1469,10,3,"^")
+136 ;;=FHNO5
+137 ;;^UTILITY(U,$J,"OPT",1469,10,4,0)
+138 ;;=1430^ML
+139 ;;^UTILITY(U,$J,"OPT",1469,10,4,"^")
+140 ;;=FHNO7
+141 ;;^UTILITY(U,$J,"OPT",1469,10,5,0)
+142 ;;=1425^ME
+143 ;;^UTILITY(U,$J,"OPT",1469,10,5,"^")
+144 ;;=FHNO6
+145 ;;^UTILITY(U,$J,"OPT",1469,99)
+146 ;;=56496,40688
+147 ;;^UTILITY(U,$J,"OPT",1469,"U")
+148 ;;=SUPPLEMENTAL FEEDING MANAGEMEN
+149 ;;^UTILITY(U,$J,"OPT",1470,0)
+150 ;;=FHWARD^Dietetic Orders^^M^^^^^^^^DIETETICS^^1
+151 ;;^UTILITY(U,$J,"OPT",1470,1,0)
+152 ;;=^^5^5^2940107^^^^
+153 ;;^UTILITY(U,$J,"OPT",1470,1,1,0)
+154 ;;=This menu allows access to all dietetic order options normally given
+155 ;;^UTILITY(U,$J,"OPT",1470,1,2,0)
+156 ;;=to ward personnel and includes the ability to order diets, consults,
+157 ;;^UTILITY(U,$J,"OPT",1470,1,3,0)
+158 ;;=early/late trays, NPO's, tubefeedings, and enter additional
