FHINI0NH ; ; 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",1447,1,2,0)
;;=and status of a consult.
;;^UTILITY(U,$J,"OPT",1447,25)
;;=EN2^FHORC2
;;^UTILITY(U,$J,"OPT",1447,"U")
;;=CONSULT INQUIRY
;;^UTILITY(U,$J,"OPT",1448,0)
;;=FHORC4^Clear/Cancel/Reassign a Consult^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1448,1,0)
;;=^^2^2^2880716^^
;;^UTILITY(U,$J,"OPT",1448,1,1,0)
;;=This option allows a clinician to clear (complete) a consult,
;;^UTILITY(U,$J,"OPT",1448,1,2,0)
;;=cancel it, or assign it to another clinician.
;;^UTILITY(U,$J,"OPT",1448,25)
;;=EN1^FHORC2
;;^UTILITY(U,$J,"OPT",1448,"U")
;;=CLEAR/CANCEL/REASSIGN A CONSUL
;;^UTILITY(U,$J,"OPT",1449,0)
;;=FHORCM^Dietetic Consults^^M^^^^^^^^
;;^UTILITY(U,$J,"OPT",1449,1,0)
;;=^^2^2^2880717^
;;^UTILITY(U,$J,"OPT",1449,1,1,0)
;;=This menu contains the majority of the Consult options and
;;^UTILITY(U,$J,"OPT",1449,1,2,0)
;;=is for routine use by the clinical dietetic staff.
;;^UTILITY(U,$J,"OPT",1449,10,0)
;;=^19.01PI^4^4
;;^UTILITY(U,$J,"OPT",1449,10,1,0)
;;=1446^AC
;;^UTILITY(U,$J,"OPT",1449,10,1,"^")
;;=FHORC2
;;^UTILITY(U,$J,"OPT",1449,10,2,0)
;;=1447^IN
;;^UTILITY(U,$J,"OPT",1449,10,2,"^")
;;=FHORC3
;;^UTILITY(U,$J,"OPT",1449,10,3,0)
;;=1448^CC
;;^UTILITY(U,$J,"OPT",1449,10,3,"^")
;;=FHORC4
;;^UTILITY(U,$J,"OPT",1449,10,4,0)
;;=1435^OC
;;^UTILITY(U,$J,"OPT",1449,10,4,"^")
;;=FHORC1
;;^UTILITY(U,$J,"OPT",1449,99)
;;=56496,40714
;;^UTILITY(U,$J,"OPT",1449,"U")
;;=DIETETIC CONSULTS
;;^UTILITY(U,$J,"OPT",1450,0)
;;=FHORTF1^Enter/Edit Tubefeeding Products^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1450,1,0)
;;=^^2^2^2920505^^^
;;^UTILITY(U,$J,"OPT",1450,1,1,0)
;;=This option allows for the creation/editing of products in the
;;^UTILITY(U,$J,"OPT",1450,1,2,0)
;;=Tubefeeding file (118.2).
;;^UTILITY(U,$J,"OPT",1450,25)
;;=EN1^FHORT3
;;^UTILITY(U,$J,"OPT",1450,"U")
;;=ENTER/EDIT TUBEFEEDING PRODUCT
;;^UTILITY(U,$J,"OPT",1451,0)
;;=FHORTF2^List Tubefeeding Products^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1451,1,0)
;;=^^3^3^2950302^^^
;;^UTILITY(U,$J,"OPT",1451,1,1,0)
;;=This option will list all tubefeeding products in the
;;^UTILITY(U,$J,"OPT",1451,1,2,0)
;;=Tubefeeding file (118.2) along with all associated data
;;^UTILITY(U,$J,"OPT",1451,1,3,0)
;;=elements.
;;^UTILITY(U,$J,"OPT",1451,25)
;;=EN2^FHORT3
;;^UTILITY(U,$J,"OPT",1451,"U")
;;=LIST TUBEFEEDING PRODUCTS
;;^UTILITY(U,$J,"OPT",1452,0)
;;=FHORTF3^Order Tubefeeding^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1452,1,0)
;;=^^2^2^2920505^^^^
;;^UTILITY(U,$J,"OPT",1452,1,1,0)
;;=This option allows for the ordering of a tubefeeding for an
;;^UTILITY(U,$J,"OPT",1452,1,2,0)
;;=inpatient.
;;^UTILITY(U,$J,"OPT",1452,25)
;;=FHORT1
;;^UTILITY(U,$J,"OPT",1452,"U")
;;=ORDER TUBEFEEDING
;;^UTILITY(U,$J,"OPT",1453,0)
;;=FHOREL1^List Early/Late Trays^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1453,1,0)
;;=^^2^2^2930427^^^
;;^UTILITY(U,$J,"OPT",1453,1,1,0)
;;=This option will list, for a specified date and meal, all
;;^UTILITY(U,$J,"OPT",1453,1,2,0)
;;=early and late tray orders.
;;^UTILITY(U,$J,"OPT",1453,25)
;;=FHORE2
;;^UTILITY(U,$J,"OPT",1453,"U")
;;=LIST EARLY/LATE TRAYS
;;^UTILITY(U,$J,"OPT",1454,0)
;;=FHOREL2^Order Early/Late Tray^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1454,1,0)
;;=^^5^5^2880717^^
;;^UTILITY(U,$J,"OPT",1454,1,1,0)
;;=This option will allow the ordering of an early or late tray
;;^UTILITY(U,$J,"OPT",1454,1,2,0)
;;=for a patient. A series of trays, for specified days of the
;;^UTILITY(U,$J,"OPT",1454,1,3,0)
;;=week, may also be ordered in the case of patients on chemotherapy
;;^UTILITY(U,$J,"OPT",1454,1,4,0)
;;=or radiation therapy needing early or late trays on a
;;^UTILITY(U,$J,"OPT",1454,1,5,0)
;;=consistent basis.
;;^UTILITY(U,$J,"OPT",1454,25)
;;=FHORE1
;;^UTILITY(U,$J,"OPT",1454,"U")
;;=ORDER EARLY/LATE TRAY
;;^UTILITY(U,$J,"OPT",1455,0)
;;=FHOREL3^Cancel Early/Late Tray^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1455,1,0)
;;=^^2^2^2880717^
;;^UTILITY(U,$J,"OPT",1455,1,1,0)
;;=This option will allow the cancellation of an early or late
;;^UTILITY(U,$J,"OPT",1455,1,2,0)
;;=tray order. Optionally, all future orders may be cancelled.
;;^UTILITY(U,$J,"OPT",1455,25)
;;=FHORE3
;;^UTILITY(U,$J,"OPT",1455,"U")
;;=CANCEL EARLY/LATE TRAY
;;^UTILITY(U,$J,"OPT",1456,0)
;;=FHORTF4^Cancel Tubefeeding Order^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1456,1,0)
;;=^^2^2^2880717^
;;^UTILITY(U,$J,"OPT",1456,1,1,0)
;;=This option allows for the cancellation of an existing
;;^UTILITY(U,$J,"OPT",1456,1,2,0)
;;=tubefeeding order.
;;^UTILITY(U,$J,"OPT",1456,25)
;;=EN3^FHORT2
;;^UTILITY(U,$J,"OPT",1456,"U")
;;=CANCEL TUBEFEEDING ORDER
FHINI0NH ; ; 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",1447,1,2,0)
+2 ;;=and status of a consult.
+3 ;;^UTILITY(U,$J,"OPT",1447,25)
+4 ;;=EN2^FHORC2
+5 ;;^UTILITY(U,$J,"OPT",1447,"U")
+6 ;;=CONSULT INQUIRY
+7 ;;^UTILITY(U,$J,"OPT",1448,0)
+8 ;;=FHORC4^Clear/Cancel/Reassign a Consult^^R^^^^^^^^
+9 ;;^UTILITY(U,$J,"OPT",1448,1,0)
+10 ;;=^^2^2^2880716^^
+11 ;;^UTILITY(U,$J,"OPT",1448,1,1,0)
+12 ;;=This option allows a clinician to clear (complete) a consult,
+13 ;;^UTILITY(U,$J,"OPT",1448,1,2,0)
+14 ;;=cancel it, or assign it to another clinician.
+15 ;;^UTILITY(U,$J,"OPT",1448,25)
+16 ;;=EN1^FHORC2
+17 ;;^UTILITY(U,$J,"OPT",1448,"U")
+18 ;;=CLEAR/CANCEL/REASSIGN A CONSUL
+19 ;;^UTILITY(U,$J,"OPT",1449,0)
+20 ;;=FHORCM^Dietetic Consults^^M^^^^^^^^
+21 ;;^UTILITY(U,$J,"OPT",1449,1,0)
+22 ;;=^^2^2^2880717^
+23 ;;^UTILITY(U,$J,"OPT",1449,1,1,0)
+24 ;;=This menu contains the majority of the Consult options and
+25 ;;^UTILITY(U,$J,"OPT",1449,1,2,0)
+26 ;;=is for routine use by the clinical dietetic staff.
+27 ;;^UTILITY(U,$J,"OPT",1449,10,0)
+28 ;;=^19.01PI^4^4
+29 ;;^UTILITY(U,$J,"OPT",1449,10,1,0)
+30 ;;=1446^AC
+31 ;;^UTILITY(U,$J,"OPT",1449,10,1,"^")
+32 ;;=FHORC2
+33 ;;^UTILITY(U,$J,"OPT",1449,10,2,0)
+34 ;;=1447^IN
+35 ;;^UTILITY(U,$J,"OPT",1449,10,2,"^")
+36 ;;=FHORC3
+37 ;;^UTILITY(U,$J,"OPT",1449,10,3,0)
+38 ;;=1448^CC
+39 ;;^UTILITY(U,$J,"OPT",1449,10,3,"^")
+40 ;;=FHORC4
+41 ;;^UTILITY(U,$J,"OPT",1449,10,4,0)
+42 ;;=1435^OC
+43 ;;^UTILITY(U,$J,"OPT",1449,10,4,"^")
+44 ;;=FHORC1
+45 ;;^UTILITY(U,$J,"OPT",1449,99)
+46 ;;=56496,40714
+47 ;;^UTILITY(U,$J,"OPT",1449,"U")
+48 ;;=DIETETIC CONSULTS
+49 ;;^UTILITY(U,$J,"OPT",1450,0)
+50 ;;=FHORTF1^Enter/Edit Tubefeeding Products^^R^^^^^^^^
+51 ;;^UTILITY(U,$J,"OPT",1450,1,0)
+52 ;;=^^2^2^2920505^^^
+53 ;;^UTILITY(U,$J,"OPT",1450,1,1,0)
+54 ;;=This option allows for the creation/editing of products in the
+55 ;;^UTILITY(U,$J,"OPT",1450,1,2,0)
+56 ;;=Tubefeeding file (118.2).
+57 ;;^UTILITY(U,$J,"OPT",1450,25)
+58 ;;=EN1^FHORT3
+59 ;;^UTILITY(U,$J,"OPT",1450,"U")
+60 ;;=ENTER/EDIT TUBEFEEDING PRODUCT
+61 ;;^UTILITY(U,$J,"OPT",1451,0)
+62 ;;=FHORTF2^List Tubefeeding Products^^R^^^^^^^^
+63 ;;^UTILITY(U,$J,"OPT",1451,1,0)
+64 ;;=^^3^3^2950302^^^
+65 ;;^UTILITY(U,$J,"OPT",1451,1,1,0)
+66 ;;=This option will list all tubefeeding products in the
+67 ;;^UTILITY(U,$J,"OPT",1451,1,2,0)
+68 ;;=Tubefeeding file (118.2) along with all associated data
+69 ;;^UTILITY(U,$J,"OPT",1451,1,3,0)
+70 ;;=elements.
+71 ;;^UTILITY(U,$J,"OPT",1451,25)
+72 ;;=EN2^FHORT3
+73 ;;^UTILITY(U,$J,"OPT",1451,"U")
+74 ;;=LIST TUBEFEEDING PRODUCTS
+75 ;;^UTILITY(U,$J,"OPT",1452,0)
+76 ;;=FHORTF3^Order Tubefeeding^^R^^^^^^^^
+77 ;;^UTILITY(U,$J,"OPT",1452,1,0)
+78 ;;=^^2^2^2920505^^^^
+79 ;;^UTILITY(U,$J,"OPT",1452,1,1,0)
+80 ;;=This option allows for the ordering of a tubefeeding for an
+81 ;;^UTILITY(U,$J,"OPT",1452,1,2,0)
+82 ;;=inpatient.
+83 ;;^UTILITY(U,$J,"OPT",1452,25)
+84 ;;=FHORT1
+85 ;;^UTILITY(U,$J,"OPT",1452,"U")
+86 ;;=ORDER TUBEFEEDING
+87 ;;^UTILITY(U,$J,"OPT",1453,0)
+88 ;;=FHOREL1^List Early/Late Trays^^R^^^^^^^^
+89 ;;^UTILITY(U,$J,"OPT",1453,1,0)
+90 ;;=^^2^2^2930427^^^
+91 ;;^UTILITY(U,$J,"OPT",1453,1,1,0)
+92 ;;=This option will list, for a specified date and meal, all
+93 ;;^UTILITY(U,$J,"OPT",1453,1,2,0)
+94 ;;=early and late tray orders.
+95 ;;^UTILITY(U,$J,"OPT",1453,25)
+96 ;;=FHORE2
+97 ;;^UTILITY(U,$J,"OPT",1453,"U")
+98 ;;=LIST EARLY/LATE TRAYS
+99 ;;^UTILITY(U,$J,"OPT",1454,0)
+100 ;;=FHOREL2^Order Early/Late Tray^^R^^^^^^^^
+101 ;;^UTILITY(U,$J,"OPT",1454,1,0)
+102 ;;=^^5^5^2880717^^
+103 ;;^UTILITY(U,$J,"OPT",1454,1,1,0)
+104 ;;=This option will allow the ordering of an early or late tray
+105 ;;^UTILITY(U,$J,"OPT",1454,1,2,0)
+106 ;;=for a patient. A series of trays, for specified days of the
+107 ;;^UTILITY(U,$J,"OPT",1454,1,3,0)
+108 ;;=week, may also be ordered in the case of patients on chemotherapy
+109 ;;^UTILITY(U,$J,"OPT",1454,1,4,0)
+110 ;;=or radiation therapy needing early or late trays on a
+111 ;;^UTILITY(U,$J,"OPT",1454,1,5,0)
+112 ;;=consistent basis.
+113 ;;^UTILITY(U,$J,"OPT",1454,25)
+114 ;;=FHORE1
+115 ;;^UTILITY(U,$J,"OPT",1454,"U")
+116 ;;=ORDER EARLY/LATE TRAY
+117 ;;^UTILITY(U,$J,"OPT",1455,0)
+118 ;;=FHOREL3^Cancel Early/Late Tray^^R^^^^^^^^
+119 ;;^UTILITY(U,$J,"OPT",1455,1,0)
+120 ;;=^^2^2^2880717^
+121 ;;^UTILITY(U,$J,"OPT",1455,1,1,0)
+122 ;;=This option will allow the cancellation of an early or late
+123 ;;^UTILITY(U,$J,"OPT",1455,1,2,0)
+124 ;;=tray order. Optionally, all future orders may be cancelled.
+125 ;;^UTILITY(U,$J,"OPT",1455,25)
+126 ;;=FHORE3
+127 ;;^UTILITY(U,$J,"OPT",1455,"U")
+128 ;;=CANCEL EARLY/LATE TRAY
+129 ;;^UTILITY(U,$J,"OPT",1456,0)
+130 ;;=FHORTF4^Cancel Tubefeeding Order^^R^^^^^^^^
+131 ;;^UTILITY(U,$J,"OPT",1456,1,0)
+132 ;;=^^2^2^2880717^
+133 ;;^UTILITY(U,$J,"OPT",1456,1,1,0)
+134 ;;=This option allows for the cancellation of an existing
+135 ;;^UTILITY(U,$J,"OPT",1456,1,2,0)
+136 ;;=tubefeeding order.
+137 ;;^UTILITY(U,$J,"OPT",1456,25)
+138 ;;=EN3^FHORT2
+139 ;;^UTILITY(U,$J,"OPT",1456,"U")
+140 ;;=CANCEL TUBEFEEDING ORDER
