FHINI0N7 ; ; 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,"BUL",32,0)
;;=FHDIREQ^Dietetic Consultation Request
;;^UTILITY(U,$J,"BUL",32,1,0)
;;=^^3^3^2920323^^^^
;;^UTILITY(U,$J,"BUL",32,1,1,0)
;;=You have a |1| request.
;;^UTILITY(U,$J,"BUL",32,1,2,0)
;;=Patient is |3| on ward |4|, room |2|.
;;^UTILITY(U,$J,"BUL",32,1,3,0)
;;=|5|
;;^UTILITY(U,$J,"BUL",32,3,0)
;;=^^2^2^2920323^^^^
;;^UTILITY(U,$J,"BUL",32,3,1,0)
;;=Bulletin Ward Clinician when consult is entered on a
;;^UTILITY(U,$J,"BUL",32,3,2,0)
;;=patient on a ward for which the clinician is responsible.
;;^UTILITY(U,$J,"BUL",32,4,0)
;;=^3.64A^2^5
;;^UTILITY(U,$J,"BUL",32,4,1,0)
;;=1
;;^UTILITY(U,$J,"BUL",32,4,1,1,0)
;;=^^1^1^2850427^^
;;^UTILITY(U,$J,"BUL",32,4,1,1,1,0)
;;=Type of consultation requested; from file 119.52
;;^UTILITY(U,$J,"BUL",32,4,2,0)
;;=2
;;^UTILITY(U,$J,"BUL",32,4,2,1,0)
;;=^^1^1^2920323^^
;;^UTILITY(U,$J,"BUL",32,4,2,1,1,0)
;;=Room-Bed
;;^UTILITY(U,$J,"BUL",32,4,3,0)
;;=3
;;^UTILITY(U,$J,"BUL",32,4,3,1,0)
;;=^^1^1^2850427^^
;;^UTILITY(U,$J,"BUL",32,4,3,1,1,0)
;;=Patient name
;;^UTILITY(U,$J,"BUL",32,4,4,0)
;;=4
;;^UTILITY(U,$J,"BUL",32,4,4,1,0)
;;=^^1^1^2850427^^
;;^UTILITY(U,$J,"BUL",32,4,4,1,1,0)
;;=Current ward of patient
;;^UTILITY(U,$J,"BUL",32,4,5,0)
;;=5
;;^UTILITY(U,$J,"BUL",32,4,5,1,0)
;;=^^1^1^2891226^^^^
;;^UTILITY(U,$J,"BUL",32,4,5,1,1,0)
;;=Comment by person ordering
;;^UTILITY(U,$J,"BUL",33,0)
;;=FHDIORD^Diet Order
;;^UTILITY(U,$J,"BUL",33,1,0)
;;=^^3^3^2940119^^^^
;;^UTILITY(U,$J,"BUL",33,1,1,0)
;;=|1| on ward |2|, room |5| has been ordered
;;^UTILITY(U,$J,"BUL",33,1,2,0)
;;=|3|
;;^UTILITY(U,$J,"BUL",33,1,3,0)
;;=Effective |4|
;;^UTILITY(U,$J,"BUL",33,3,0)
;;=^^2^2^2940119^^^^
;;^UTILITY(U,$J,"BUL",33,3,1,0)
;;=Bulletin Ward Clinician when 'Bulletinized' Diet Order
;;^UTILITY(U,$J,"BUL",33,3,2,0)
;;=is entered.
;;^UTILITY(U,$J,"BUL",33,4,0)
;;=^3.64A^5^5
;;^UTILITY(U,$J,"BUL",33,4,1,0)
;;=1
;;^UTILITY(U,$J,"BUL",33,4,1,1,0)
;;=^^1^1^2940119^^
;;^UTILITY(U,$J,"BUL",33,4,1,1,1,0)
;;=Patient name
;;^UTILITY(U,$J,"BUL",33,4,2,0)
;;=2
;;^UTILITY(U,$J,"BUL",33,4,2,1,0)
;;=^^1^1^2940119^^
;;^UTILITY(U,$J,"BUL",33,4,2,1,1,0)
;;=Current ward
;;^UTILITY(U,$J,"BUL",33,4,3,0)
;;=3
;;^UTILITY(U,$J,"BUL",33,4,3,1,0)
;;=^^1^1^2940119^^
;;^UTILITY(U,$J,"BUL",33,4,3,1,1,0)
;;=Diet order
;;^UTILITY(U,$J,"BUL",33,4,4,0)
;;=4
;;^UTILITY(U,$J,"BUL",33,4,4,1,0)
;;=^^1^1^2940119^^^^
;;^UTILITY(U,$J,"BUL",33,4,4,1,1,0)
;;=Effective date of diet order
;;^UTILITY(U,$J,"BUL",33,4,5,0)
;;=5
;;^UTILITY(U,$J,"BUL",33,4,5,1,0)
;;=^^1^1^2940119^^^^
;;^UTILITY(U,$J,"BUL",33,4,5,1,1,0)
;;=Room-Bed
;;^UTILITY(U,$J,"BUL",34,0)
;;=FHDITF^Tubefeeding Order
;;^UTILITY(U,$J,"BUL",34,1,0)
;;=^^4^4^2930527^^^^
;;^UTILITY(U,$J,"BUL",34,1,1,0)
;;=You have a Tubefeeding Order for |1| ( |2| )
;;^UTILITY(U,$J,"BUL",34,1,2,0)
;;=on ward |3|, room |4|
;;^UTILITY(U,$J,"BUL",34,1,3,0)
;;=
;;^UTILITY(U,$J,"BUL",34,1,4,0)
;;=|5|
;;^UTILITY(U,$J,"BUL",34,3,0)
;;=^^1^1^2930527^^^^
;;^UTILITY(U,$J,"BUL",34,3,1,0)
;;=Bulletin to alert Ward Clinician of Tubefeeding Order.
;;^UTILITY(U,$J,"BUL",34,4,0)
;;=^3.64A^5^5
;;^UTILITY(U,$J,"BUL",34,4,1,0)
;;=1
;;^UTILITY(U,$J,"BUL",34,4,1,1,0)
;;=^^1^1^2850908^
;;^UTILITY(U,$J,"BUL",34,4,1,1,1,0)
;;=Patient Name
;;^UTILITY(U,$J,"BUL",34,4,2,0)
;;=2
;;^UTILITY(U,$J,"BUL",34,4,2,1,0)
;;=^^1^1^2850908^
;;^UTILITY(U,$J,"BUL",34,4,2,1,1,0)
;;=Last 4 SSN digits
;;^UTILITY(U,$J,"BUL",34,4,3,0)
;;=3
;;^UTILITY(U,$J,"BUL",34,4,3,1,0)
;;=^^1^1^2850908^^
;;^UTILITY(U,$J,"BUL",34,4,3,1,1,0)
;;=Ward Name
;;^UTILITY(U,$J,"BUL",34,4,4,0)
;;=4
;;^UTILITY(U,$J,"BUL",34,4,4,1,0)
;;=^^1^1^2901219^^
;;^UTILITY(U,$J,"BUL",34,4,4,1,1,0)
;;=Room-Bed
;;^UTILITY(U,$J,"BUL",34,4,5,0)
;;=5
;;^UTILITY(U,$J,"BUL",34,4,5,1,0)
;;=^^1^1^2930527^^^^
;;^UTILITY(U,$J,"BUL",34,4,5,1,1,0)
;;=Comment indicating whether tray order and SF were cancelled.
;;^UTILITY(U,$J,"BUL",69,0)
;;=FHDIOO^Additional Order
;;^UTILITY(U,$J,"BUL",69,1,0)
;;=^^5^5^2920323^^^^
;;^UTILITY(U,$J,"BUL",69,1,1,0)
;;=|6| Additional Order: |1|
;;^UTILITY(U,$J,"BUL",69,1,2,0)
;;=
;;^UTILITY(U,$J,"BUL",69,1,3,0)
;;= |3|, |4|, |2|
;;^UTILITY(U,$J,"BUL",69,1,4,0)
;;=
;;^UTILITY(U,$J,"BUL",69,1,5,0)
;;=Comment: |5|
;;^UTILITY(U,$J,"BUL",69,3,0)
;;=^^1^1^2920323^^^
;;^UTILITY(U,$J,"BUL",69,3,1,0)
;;=Bulletin to alert Ward Clinician of Additional Order.
;;^UTILITY(U,$J,"BUL",69,4,0)
;;=^3.64A^6^1
;;^UTILITY(U,$J,"BUL",69,4,6,0)
;;=6
;;^UTILITY(U,$J,"BUL",69,4,6,1,0)
;;=^^1^1^2920323^^^
;;^UTILITY(U,$J,"BUL",69,4,6,1,1,0)
;;=Comment to indicate approval or disapproval for the Additional Order.
FHINI0N7 ; ; 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,"BUL",32,0)
+2 ;;=FHDIREQ^Dietetic Consultation Request
+3 ;;^UTILITY(U,$J,"BUL",32,1,0)
+4 ;;=^^3^3^2920323^^^^
+5 ;;^UTILITY(U,$J,"BUL",32,1,1,0)
+6 ;;=You have a |1| request.
+7 ;;^UTILITY(U,$J,"BUL",32,1,2,0)
+8 ;;=Patient is |3| on ward |4|, room |2|.
+9 ;;^UTILITY(U,$J,"BUL",32,1,3,0)
+10 ;;=|5|
+11 ;;^UTILITY(U,$J,"BUL",32,3,0)
+12 ;;=^^2^2^2920323^^^^
+13 ;;^UTILITY(U,$J,"BUL",32,3,1,0)
+14 ;;=Bulletin Ward Clinician when consult is entered on a
+15 ;;^UTILITY(U,$J,"BUL",32,3,2,0)
+16 ;;=patient on a ward for which the clinician is responsible.
+17 ;;^UTILITY(U,$J,"BUL",32,4,0)
+18 ;;=^3.64A^2^5
+19 ;;^UTILITY(U,$J,"BUL",32,4,1,0)
+20 ;;=1
+21 ;;^UTILITY(U,$J,"BUL",32,4,1,1,0)
+22 ;;=^^1^1^2850427^^
+23 ;;^UTILITY(U,$J,"BUL",32,4,1,1,1,0)
+24 ;;=Type of consultation requested; from file 119.52
+25 ;;^UTILITY(U,$J,"BUL",32,4,2,0)
+26 ;;=2
+27 ;;^UTILITY(U,$J,"BUL",32,4,2,1,0)
+28 ;;=^^1^1^2920323^^
+29 ;;^UTILITY(U,$J,"BUL",32,4,2,1,1,0)
+30 ;;=Room-Bed
+31 ;;^UTILITY(U,$J,"BUL",32,4,3,0)
+32 ;;=3
+33 ;;^UTILITY(U,$J,"BUL",32,4,3,1,0)
+34 ;;=^^1^1^2850427^^
+35 ;;^UTILITY(U,$J,"BUL",32,4,3,1,1,0)
+36 ;;=Patient name
+37 ;;^UTILITY(U,$J,"BUL",32,4,4,0)
+38 ;;=4
+39 ;;^UTILITY(U,$J,"BUL",32,4,4,1,0)
+40 ;;=^^1^1^2850427^^
+41 ;;^UTILITY(U,$J,"BUL",32,4,4,1,1,0)
+42 ;;=Current ward of patient
+43 ;;^UTILITY(U,$J,"BUL",32,4,5,0)
+44 ;;=5
+45 ;;^UTILITY(U,$J,"BUL",32,4,5,1,0)
+46 ;;=^^1^1^2891226^^^^
+47 ;;^UTILITY(U,$J,"BUL",32,4,5,1,1,0)
+48 ;;=Comment by person ordering
+49 ;;^UTILITY(U,$J,"BUL",33,0)
+50 ;;=FHDIORD^Diet Order
+51 ;;^UTILITY(U,$J,"BUL",33,1,0)
+52 ;;=^^3^3^2940119^^^^
+53 ;;^UTILITY(U,$J,"BUL",33,1,1,0)
+54 ;;=|1| on ward |2|, room |5| has been ordered
+55 ;;^UTILITY(U,$J,"BUL",33,1,2,0)
+56 ;;=|3|
+57 ;;^UTILITY(U,$J,"BUL",33,1,3,0)
+58 ;;=Effective |4|
+59 ;;^UTILITY(U,$J,"BUL",33,3,0)
+60 ;;=^^2^2^2940119^^^^
+61 ;;^UTILITY(U,$J,"BUL",33,3,1,0)
+62 ;;=Bulletin Ward Clinician when 'Bulletinized' Diet Order
+63 ;;^UTILITY(U,$J,"BUL",33,3,2,0)
+64 ;;=is entered.
+65 ;;^UTILITY(U,$J,"BUL",33,4,0)
+66 ;;=^3.64A^5^5
+67 ;;^UTILITY(U,$J,"BUL",33,4,1,0)
+68 ;;=1
+69 ;;^UTILITY(U,$J,"BUL",33,4,1,1,0)
+70 ;;=^^1^1^2940119^^
+71 ;;^UTILITY(U,$J,"BUL",33,4,1,1,1,0)
+72 ;;=Patient name
+73 ;;^UTILITY(U,$J,"BUL",33,4,2,0)
+74 ;;=2
+75 ;;^UTILITY(U,$J,"BUL",33,4,2,1,0)
+76 ;;=^^1^1^2940119^^
+77 ;;^UTILITY(U,$J,"BUL",33,4,2,1,1,0)
+78 ;;=Current ward
+79 ;;^UTILITY(U,$J,"BUL",33,4,3,0)
+80 ;;=3
+81 ;;^UTILITY(U,$J,"BUL",33,4,3,1,0)
+82 ;;=^^1^1^2940119^^
+83 ;;^UTILITY(U,$J,"BUL",33,4,3,1,1,0)
+84 ;;=Diet order
+85 ;;^UTILITY(U,$J,"BUL",33,4,4,0)
+86 ;;=4
+87 ;;^UTILITY(U,$J,"BUL",33,4,4,1,0)
+88 ;;=^^1^1^2940119^^^^
+89 ;;^UTILITY(U,$J,"BUL",33,4,4,1,1,0)
+90 ;;=Effective date of diet order
+91 ;;^UTILITY(U,$J,"BUL",33,4,5,0)
+92 ;;=5
+93 ;;^UTILITY(U,$J,"BUL",33,4,5,1,0)
+94 ;;=^^1^1^2940119^^^^
+95 ;;^UTILITY(U,$J,"BUL",33,4,5,1,1,0)
+96 ;;=Room-Bed
+97 ;;^UTILITY(U,$J,"BUL",34,0)
+98 ;;=FHDITF^Tubefeeding Order
+99 ;;^UTILITY(U,$J,"BUL",34,1,0)
+100 ;;=^^4^4^2930527^^^^
+101 ;;^UTILITY(U,$J,"BUL",34,1,1,0)
+102 ;;=You have a Tubefeeding Order for |1| ( |2| )
+103 ;;^UTILITY(U,$J,"BUL",34,1,2,0)
+104 ;;=on ward |3|, room |4|
+105 ;;^UTILITY(U,$J,"BUL",34,1,3,0)
+106 ;;=
+107 ;;^UTILITY(U,$J,"BUL",34,1,4,0)
+108 ;;=|5|
+109 ;;^UTILITY(U,$J,"BUL",34,3,0)
+110 ;;=^^1^1^2930527^^^^
+111 ;;^UTILITY(U,$J,"BUL",34,3,1,0)
+112 ;;=Bulletin to alert Ward Clinician of Tubefeeding Order.
+113 ;;^UTILITY(U,$J,"BUL",34,4,0)
+114 ;;=^3.64A^5^5
+115 ;;^UTILITY(U,$J,"BUL",34,4,1,0)
+116 ;;=1
+117 ;;^UTILITY(U,$J,"BUL",34,4,1,1,0)
+118 ;;=^^1^1^2850908^
+119 ;;^UTILITY(U,$J,"BUL",34,4,1,1,1,0)
+120 ;;=Patient Name
+121 ;;^UTILITY(U,$J,"BUL",34,4,2,0)
+122 ;;=2
+123 ;;^UTILITY(U,$J,"BUL",34,4,2,1,0)
+124 ;;=^^1^1^2850908^
+125 ;;^UTILITY(U,$J,"BUL",34,4,2,1,1,0)
+126 ;;=Last 4 SSN digits
+127 ;;^UTILITY(U,$J,"BUL",34,4,3,0)
+128 ;;=3
+129 ;;^UTILITY(U,$J,"BUL",34,4,3,1,0)
+130 ;;=^^1^1^2850908^^
+131 ;;^UTILITY(U,$J,"BUL",34,4,3,1,1,0)
+132 ;;=Ward Name
+133 ;;^UTILITY(U,$J,"BUL",34,4,4,0)
+134 ;;=4
+135 ;;^UTILITY(U,$J,"BUL",34,4,4,1,0)
+136 ;;=^^1^1^2901219^^
+137 ;;^UTILITY(U,$J,"BUL",34,4,4,1,1,0)
+138 ;;=Room-Bed
+139 ;;^UTILITY(U,$J,"BUL",34,4,5,0)
+140 ;;=5
+141 ;;^UTILITY(U,$J,"BUL",34,4,5,1,0)
+142 ;;=^^1^1^2930527^^^^
+143 ;;^UTILITY(U,$J,"BUL",34,4,5,1,1,0)
+144 ;;=Comment indicating whether tray order and SF were cancelled.
+145 ;;^UTILITY(U,$J,"BUL",69,0)
+146 ;;=FHDIOO^Additional Order
+147 ;;^UTILITY(U,$J,"BUL",69,1,0)
+148 ;;=^^5^5^2920323^^^^
+149 ;;^UTILITY(U,$J,"BUL",69,1,1,0)
+150 ;;=|6| Additional Order: |1|
+151 ;;^UTILITY(U,$J,"BUL",69,1,2,0)
+152 ;;=
+153 ;;^UTILITY(U,$J,"BUL",69,1,3,0)
+154 ;;= |3|, |4|, |2|
+155 ;;^UTILITY(U,$J,"BUL",69,1,4,0)
+156 ;;=
+157 ;;^UTILITY(U,$J,"BUL",69,1,5,0)
+158 ;;=Comment: |5|
+159 ;;^UTILITY(U,$J,"BUL",69,3,0)
+160 ;;=^^1^1^2920323^^^
+161 ;;^UTILITY(U,$J,"BUL",69,3,1,0)
+162 ;;=Bulletin to alert Ward Clinician of Additional Order.
+163 ;;^UTILITY(U,$J,"BUL",69,4,0)
+164 ;;=^3.64A^6^1
+165 ;;^UTILITY(U,$J,"BUL",69,4,6,0)
+166 ;;=6
+167 ;;^UTILITY(U,$J,"BUL",69,4,6,1,0)
+168 ;;=^^1^1^2920323^^^
+169 ;;^UTILITY(U,$J,"BUL",69,4,6,1,1,0)
+170 ;;=Comment to indicate approval or disapproval for the Additional Order.
