FHINI0NI ; ; 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",1457,0)
;;=FHNO8^Enter/Edit Bulk Ward Feedings^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1457,1,0)
;;=^^2^2^2941019^^^^
;;^UTILITY(U,$J,"OPT",1457,1,1,0)
;;=This option allows for adding/editing bulk feeding items to be
;;^UTILITY(U,$J,"OPT",1457,1,2,0)
;;=delivered to each ward.
;;^UTILITY(U,$J,"OPT",1457,25)
;;=FHNO4
;;^UTILITY(U,$J,"OPT",1457,"U")
;;=ENTER/EDIT BULK WARD FEEDINGS
;;^UTILITY(U,$J,"OPT",1458,0)
;;=FHPRO2^Enter/Edit Dietetic Wards^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1458,1,0)
;;=^^3^3^2940413^^^^
;;^UTILITY(U,$J,"OPT",1458,1,1,0)
;;=This option allows for creating/editing of wards in the
;;^UTILITY(U,$J,"OPT",1458,1,2,0)
;;=Dietetics Ward file (119.6). Wards are selected from those
;;^UTILITY(U,$J,"OPT",1458,1,3,0)
;;=defined by the MAS ADT system.
;;^UTILITY(U,$J,"OPT",1458,25)
;;=EN2^FHPRO
;;^UTILITY(U,$J,"OPT",1458,"U")
;;=ENTER/EDIT DIETETIC WARDS
;;^UTILITY(U,$J,"OPT",1459,0)
;;=FHORD7^List Diets^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1459,1,0)
;;=^^2^2^2880714^
;;^UTILITY(U,$J,"OPT",1459,1,1,0)
;;=This option will list all diets contained in the Diets file (111)
;;^UTILITY(U,$J,"OPT",1459,1,2,0)
;;=along with all associated data elements.
;;^UTILITY(U,$J,"OPT",1459,25)
;;=EN2^FHORD
;;^UTILITY(U,$J,"OPT",1459,"U")
;;=LIST DIETS
;;^UTILITY(U,$J,"OPT",1460,0)
;;=FHORC5^Enter/Edit Ward Assignments^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1460,1,0)
;;=^^3^3^2880716^^
;;^UTILITY(U,$J,"OPT",1460,1,1,0)
;;=This option allows for the assignment of clinicians to each
;;^UTILITY(U,$J,"OPT",1460,1,2,0)
;;=ward. This assignment will be used to assign consults arising
;;^UTILITY(U,$J,"OPT",1460,1,3,0)
;;=from that ward to the indicated clinician.
;;^UTILITY(U,$J,"OPT",1460,25)
;;=EN9^FHORC5
;;^UTILITY(U,$J,"OPT",1460,99)
;;=55481,41901
;;^UTILITY(U,$J,"OPT",1460,"U")
;;=ENTER/EDIT WARD ASSIGNMENTS
;;^UTILITY(U,$J,"OPT",1461,0)
;;=FHORD9^Patient Profile^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1461,1,0)
;;=^^5^5^2950929^^^^
;;^UTILITY(U,$J,"OPT",1461,1,1,0)
;;=This option will produce a comprehensive display of most
;;^UTILITY(U,$J,"OPT",1461,1,2,0)
;;=dietetic orders and data associated with a patient's
;;^UTILITY(U,$J,"OPT",1461,1,3,0)
;;=admission. It includes diet orders, active or saved consults,
;;^UTILITY(U,$J,"OPT",1461,1,4,0)
;;=early/late tray requests for the next 72 hours, standing
;;^UTILITY(U,$J,"OPT",1461,1,5,0)
;;=orders, tubefeedings, supplemental feedings, etc.
;;^UTILITY(U,$J,"OPT",1461,25)
;;=FHORD6
;;^UTILITY(U,$J,"OPT",1461,"U")
;;=PATIENT PROFILE
;;^UTILITY(U,$J,"OPT",1462,0)
;;=FHNO9^Review Bulk Ward Feedings^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1462,1,0)
;;=^^2^2^2880717^^
;;^UTILITY(U,$J,"OPT",1462,1,1,0)
;;=This option will display the bulk ward supplemental feeding
;;^UTILITY(U,$J,"OPT",1462,1,2,0)
;;=items currently ordered for any selected ward.
;;^UTILITY(U,$J,"OPT",1462,25)
;;=EN2^FHNO4
;;^UTILITY(U,$J,"OPT",1462,"U")
;;=REVIEW BULK WARD FEEDINGS
;;^UTILITY(U,$J,"OPT",1463,0)
;;=FHNO10^Print Bulk Feedings/Cost Report^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1463,1,0)
;;=^^4^4^2911212^^^
;;^UTILITY(U,$J,"OPT",1463,1,1,0)
;;=This option will produce a delivery listing or labels
;;^UTILITY(U,$J,"OPT",1463,1,2,0)
;;=for all bulk supplemental feedings for all wards served by a
;;^UTILITY(U,$J,"OPT",1463,1,3,0)
;;=Supplemental Feeding Site. A cost report and consolidated pick
;;^UTILITY(U,$J,"OPT",1463,1,4,0)
;;=list will also be produced.
;;^UTILITY(U,$J,"OPT",1463,25)
;;=FHNO41
;;^UTILITY(U,$J,"OPT",1463,"U")
;;=PRINT BULK FEEDINGS/COST REPOR
;;^UTILITY(U,$J,"OPT",1464,0)
;;=FHORI1^Enter/Edit Isolation/Precaution Types^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1464,1,0)
;;=^^2^2^2880717^
;;^UTILITY(U,$J,"OPT",1464,1,1,0)
;;=This option allows for the creation/editing of entries in the
;;^UTILITY(U,$J,"OPT",1464,1,2,0)
;;=Isolation/Precaution Type file (119.4).
;;^UTILITY(U,$J,"OPT",1464,25)
;;=EN1^FHORD4
;;^UTILITY(U,$J,"OPT",1464,"U")
;;=ENTER/EDIT ISOLATION/PRECAUTIO
;;^UTILITY(U,$J,"OPT",1465,0)
;;=FHORI2^List Isolation/Precaution Types^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1465,1,0)
;;=^^3^3^2880717^
;;^UTILITY(U,$J,"OPT",1465,1,1,0)
;;=This option will list all of the current entries in the
;;^UTILITY(U,$J,"OPT",1465,1,2,0)
;;=Isolation/Precaution Type file (119.4) along with the
;;^UTILITY(U,$J,"OPT",1465,1,3,0)
;;=associated data elements.
;;^UTILITY(U,$J,"OPT",1465,25)
;;=EN2^FHORD4
;;^UTILITY(U,$J,"OPT",1465,"U")
;;=LIST ISOLATION/PRECAUTION TYPE
;;^UTILITY(U,$J,"OPT",1466,0)
;;=FHORCX^Consult Management^^M^^^^^^^^
FHINI0NI ; ; 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",1457,0)
+2 ;;=FHNO8^Enter/Edit Bulk Ward Feedings^^R^^^^^^^^
+3 ;;^UTILITY(U,$J,"OPT",1457,1,0)
+4 ;;=^^2^2^2941019^^^^
+5 ;;^UTILITY(U,$J,"OPT",1457,1,1,0)
+6 ;;=This option allows for adding/editing bulk feeding items to be
+7 ;;^UTILITY(U,$J,"OPT",1457,1,2,0)
+8 ;;=delivered to each ward.
+9 ;;^UTILITY(U,$J,"OPT",1457,25)
+10 ;;=FHNO4
+11 ;;^UTILITY(U,$J,"OPT",1457,"U")
+12 ;;=ENTER/EDIT BULK WARD FEEDINGS
+13 ;;^UTILITY(U,$J,"OPT",1458,0)
+14 ;;=FHPRO2^Enter/Edit Dietetic Wards^^R^^^^^^^^
+15 ;;^UTILITY(U,$J,"OPT",1458,1,0)
+16 ;;=^^3^3^2940413^^^^
+17 ;;^UTILITY(U,$J,"OPT",1458,1,1,0)
+18 ;;=This option allows for creating/editing of wards in the
+19 ;;^UTILITY(U,$J,"OPT",1458,1,2,0)
+20 ;;=Dietetics Ward file (119.6). Wards are selected from those
+21 ;;^UTILITY(U,$J,"OPT",1458,1,3,0)
+22 ;;=defined by the MAS ADT system.
+23 ;;^UTILITY(U,$J,"OPT",1458,25)
+24 ;;=EN2^FHPRO
+25 ;;^UTILITY(U,$J,"OPT",1458,"U")
+26 ;;=ENTER/EDIT DIETETIC WARDS
+27 ;;^UTILITY(U,$J,"OPT",1459,0)
+28 ;;=FHORD7^List Diets^^R^^^^^^^^
+29 ;;^UTILITY(U,$J,"OPT",1459,1,0)
+30 ;;=^^2^2^2880714^
+31 ;;^UTILITY(U,$J,"OPT",1459,1,1,0)
+32 ;;=This option will list all diets contained in the Diets file (111)
+33 ;;^UTILITY(U,$J,"OPT",1459,1,2,0)
+34 ;;=along with all associated data elements.
+35 ;;^UTILITY(U,$J,"OPT",1459,25)
+36 ;;=EN2^FHORD
+37 ;;^UTILITY(U,$J,"OPT",1459,"U")
+38 ;;=LIST DIETS
+39 ;;^UTILITY(U,$J,"OPT",1460,0)
+40 ;;=FHORC5^Enter/Edit Ward Assignments^^R^^^^^^^^
+41 ;;^UTILITY(U,$J,"OPT",1460,1,0)
+42 ;;=^^3^3^2880716^^
+43 ;;^UTILITY(U,$J,"OPT",1460,1,1,0)
+44 ;;=This option allows for the assignment of clinicians to each
+45 ;;^UTILITY(U,$J,"OPT",1460,1,2,0)
+46 ;;=ward. This assignment will be used to assign consults arising
+47 ;;^UTILITY(U,$J,"OPT",1460,1,3,0)
+48 ;;=from that ward to the indicated clinician.
+49 ;;^UTILITY(U,$J,"OPT",1460,25)
+50 ;;=EN9^FHORC5
+51 ;;^UTILITY(U,$J,"OPT",1460,99)
+52 ;;=55481,41901
+53 ;;^UTILITY(U,$J,"OPT",1460,"U")
+54 ;;=ENTER/EDIT WARD ASSIGNMENTS
+55 ;;^UTILITY(U,$J,"OPT",1461,0)
+56 ;;=FHORD9^Patient Profile^^R^^^^^^^^
+57 ;;^UTILITY(U,$J,"OPT",1461,1,0)
+58 ;;=^^5^5^2950929^^^^
+59 ;;^UTILITY(U,$J,"OPT",1461,1,1,0)
+60 ;;=This option will produce a comprehensive display of most
+61 ;;^UTILITY(U,$J,"OPT",1461,1,2,0)
+62 ;;=dietetic orders and data associated with a patient's
+63 ;;^UTILITY(U,$J,"OPT",1461,1,3,0)
+64 ;;=admission. It includes diet orders, active or saved consults,
+65 ;;^UTILITY(U,$J,"OPT",1461,1,4,0)
+66 ;;=early/late tray requests for the next 72 hours, standing
+67 ;;^UTILITY(U,$J,"OPT",1461,1,5,0)
+68 ;;=orders, tubefeedings, supplemental feedings, etc.
+69 ;;^UTILITY(U,$J,"OPT",1461,25)
+70 ;;=FHORD6
+71 ;;^UTILITY(U,$J,"OPT",1461,"U")
+72 ;;=PATIENT PROFILE
+73 ;;^UTILITY(U,$J,"OPT",1462,0)
+74 ;;=FHNO9^Review Bulk Ward Feedings^^R^^^^^^^^
+75 ;;^UTILITY(U,$J,"OPT",1462,1,0)
+76 ;;=^^2^2^2880717^^
+77 ;;^UTILITY(U,$J,"OPT",1462,1,1,0)
+78 ;;=This option will display the bulk ward supplemental feeding
+79 ;;^UTILITY(U,$J,"OPT",1462,1,2,0)
+80 ;;=items currently ordered for any selected ward.
+81 ;;^UTILITY(U,$J,"OPT",1462,25)
+82 ;;=EN2^FHNO4
+83 ;;^UTILITY(U,$J,"OPT",1462,"U")
+84 ;;=REVIEW BULK WARD FEEDINGS
+85 ;;^UTILITY(U,$J,"OPT",1463,0)
+86 ;;=FHNO10^Print Bulk Feedings/Cost Report^^R^^^^^^^^
+87 ;;^UTILITY(U,$J,"OPT",1463,1,0)
+88 ;;=^^4^4^2911212^^^
+89 ;;^UTILITY(U,$J,"OPT",1463,1,1,0)
+90 ;;=This option will produce a delivery listing or labels
+91 ;;^UTILITY(U,$J,"OPT",1463,1,2,0)
+92 ;;=for all bulk supplemental feedings for all wards served by a
+93 ;;^UTILITY(U,$J,"OPT",1463,1,3,0)
+94 ;;=Supplemental Feeding Site. A cost report and consolidated pick
+95 ;;^UTILITY(U,$J,"OPT",1463,1,4,0)
+96 ;;=list will also be produced.
+97 ;;^UTILITY(U,$J,"OPT",1463,25)
+98 ;;=FHNO41
+99 ;;^UTILITY(U,$J,"OPT",1463,"U")
+100 ;;=PRINT BULK FEEDINGS/COST REPOR
+101 ;;^UTILITY(U,$J,"OPT",1464,0)
+102 ;;=FHORI1^Enter/Edit Isolation/Precaution Types^^R^^^^^^^^
+103 ;;^UTILITY(U,$J,"OPT",1464,1,0)
+104 ;;=^^2^2^2880717^
+105 ;;^UTILITY(U,$J,"OPT",1464,1,1,0)
+106 ;;=This option allows for the creation/editing of entries in the
+107 ;;^UTILITY(U,$J,"OPT",1464,1,2,0)
+108 ;;=Isolation/Precaution Type file (119.4).
+109 ;;^UTILITY(U,$J,"OPT",1464,25)
+110 ;;=EN1^FHORD4
+111 ;;^UTILITY(U,$J,"OPT",1464,"U")
+112 ;;=ENTER/EDIT ISOLATION/PRECAUTIO
+113 ;;^UTILITY(U,$J,"OPT",1465,0)
+114 ;;=FHORI2^List Isolation/Precaution Types^^R^^^^^^^^
+115 ;;^UTILITY(U,$J,"OPT",1465,1,0)
+116 ;;=^^3^3^2880717^
+117 ;;^UTILITY(U,$J,"OPT",1465,1,1,0)
+118 ;;=This option will list all of the current entries in the
+119 ;;^UTILITY(U,$J,"OPT",1465,1,2,0)
+120 ;;=Isolation/Precaution Type file (119.4) along with the
+121 ;;^UTILITY(U,$J,"OPT",1465,1,3,0)
+122 ;;=associated data elements.
+123 ;;^UTILITY(U,$J,"OPT",1465,25)
+124 ;;=EN2^FHORD4
+125 ;;^UTILITY(U,$J,"OPT",1465,"U")
+126 ;;=LIST ISOLATION/PRECAUTION TYPE
+127 ;;^UTILITY(U,$J,"OPT",1466,0)
+128 ;;=FHORCX^Consult Management^^M^^^^^^^^
