FHINI0NL ; ; 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",1475,10,3,"^")
;;=FHORD9
;;^UTILITY(U,$J,"OPT",1475,10,4,0)
;;=1438^DH
;;^UTILITY(U,$J,"OPT",1475,10,4,"^")
;;=FHORD2
;;^UTILITY(U,$J,"OPT",1475,15)
;;=
;;^UTILITY(U,$J,"OPT",1475,20)
;;=S FHA1=2 D ^FHVER
;;^UTILITY(U,$J,"OPT",1475,99)
;;=56496,40789
;;^UTILITY(U,$J,"OPT",1475,"U")
;;=DIETETIC USER
;;^UTILITY(U,$J,"OPT",1476,0)
;;=FHPATP^Dietetic Patient Profile^^M^^^^^^^^^^1
;;^UTILITY(U,$J,"OPT",1476,1,0)
;;=^^3^3^2880716^^
;;^UTILITY(U,$J,"OPT",1476,1,1,0)
;;=This option will display all of the pertinent dietetic
;;^UTILITY(U,$J,"OPT",1476,1,2,0)
;;=information about an inpatient -- diet orders, tubefeedings,
;;^UTILITY(U,$J,"OPT",1476,1,3,0)
;;=active consults, early/late trays, standing orders, etc.
;;^UTILITY(U,$J,"OPT",1476,10,0)
;;=^19.01PI^2^2
;;^UTILITY(U,$J,"OPT",1476,10,1,0)
;;=1461^PP
;;^UTILITY(U,$J,"OPT",1476,10,1,"^")
;;=FHORD9
;;^UTILITY(U,$J,"OPT",1476,10,2,0)
;;=1438^DH
;;^UTILITY(U,$J,"OPT",1476,10,2,"^")
;;=FHORD2
;;^UTILITY(U,$J,"OPT",1476,15)
;;=
;;^UTILITY(U,$J,"OPT",1476,20)
;;=S FHA1=6 D ^FHVER
;;^UTILITY(U,$J,"OPT",1476,25)
;;=
;;^UTILITY(U,$J,"OPT",1476,99)
;;=56496,40739
;;^UTILITY(U,$J,"OPT",1476,"U")
;;=DIETETIC PATIENT PROFILE
;;^UTILITY(U,$J,"OPT",1477,0)
;;=FHNO11^Supplemental Feeding Cost Report^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1477,1,0)
;;=^^2^2^2930514^^^^
;;^UTILITY(U,$J,"OPT",1477,1,1,0)
;;=This option will produce a cost report for a ward, or all wards,
;;^UTILITY(U,$J,"OPT",1477,1,2,0)
;;=based upon the supplemental feedings currently ordered.
;;^UTILITY(U,$J,"OPT",1477,25)
;;=FHNO6
;;^UTILITY(U,$J,"OPT",1477,"U")
;;=SUPPLEMENTAL FEEDING COST REPO
;;^UTILITY(U,$J,"OPT",1478,0)
;;=FHCDLST^Dietetic Lists/Reports^^M^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1478,1,0)
;;=^^3^3^2950714^^^^
;;^UTILITY(U,$J,"OPT",1478,1,1,0)
;;=This menu contains the various lists and reports most often
;;^UTILITY(U,$J,"OPT",1478,1,2,0)
;;=required by the clinical staff or the diet communications
;;^UTILITY(U,$J,"OPT",1478,1,3,0)
;;=office.
;;^UTILITY(U,$J,"OPT",1478,10,0)
;;=^19.01PI^24^17
;;^UTILITY(U,$J,"OPT",1478,10,1,0)
;;=1474^DA
;;^UTILITY(U,$J,"OPT",1478,10,1,"^")
;;=FHORD13
;;^UTILITY(U,$J,"OPT",1478,10,2,0)
;;=1472^DC
;;^UTILITY(U,$J,"OPT",1478,10,2,"^")
;;=FHORD11
;;^UTILITY(U,$J,"OPT",1478,10,3,0)
;;=1453^EL
;;^UTILITY(U,$J,"OPT",1478,10,3,"^")
;;=FHOREL1
;;^UTILITY(U,$J,"OPT",1478,10,4,0)
;;=1439^NL
;;^UTILITY(U,$J,"OPT",1478,10,4,"^")
;;=FHORD5
;;^UTILITY(U,$J,"OPT",1478,10,6,0)
;;=1471^WD
;;^UTILITY(U,$J,"OPT",1478,10,6,"^")
;;=FHORD10
;;^UTILITY(U,$J,"OPT",1478,10,8,0)
;;=1463^WP
;;^UTILITY(U,$J,"OPT",1478,10,8,"^")
;;=FHNO10
;;^UTILITY(U,$J,"OPT",1478,10,9,0)
;;=1420^LA
;;^UTILITY(U,$J,"OPT",1478,10,9,"^")
;;=FHNO2
;;^UTILITY(U,$J,"OPT",1478,10,10,0)
;;=1421^WL
;;^UTILITY(U,$J,"OPT",1478,10,10,"^")
;;=FHNO3
;;^UTILITY(U,$J,"OPT",1478,10,11,0)
;;=1489^DR
;;^UTILITY(U,$J,"OPT",1478,10,11,"^")
;;=FHORD14
;;^UTILITY(U,$J,"OPT",1478,10,12,0)
;;=1494^IL
;;^UTILITY(U,$J,"OPT",1478,10,12,"^")
;;=FHORD41
;;^UTILITY(U,$J,"OPT",1478,10,13,0)
;;=1502^SO
;;^UTILITY(U,$J,"OPT",1478,10,13,"^")
;;=FHSP5
;;^UTILITY(U,$J,"OPT",1478,10,14,0)
;;=1550^BL
;;^UTILITY(U,$J,"OPT",1478,10,14,"^")
;;=FHBIR
;;^UTILITY(U,$J,"OPT",1478,10,20,0)
;;=1628^SP
;;^UTILITY(U,$J,"OPT",1478,10,20,"^")
;;=FHSP7
;;^UTILITY(U,$J,"OPT",1478,10,21,0)
;;=1629^SL
;;^UTILITY(U,$J,"OPT",1478,10,21,"^")
;;=FHSP8
;;^UTILITY(U,$J,"OPT",1478,10,22,0)
;;=1708^TR
;;^UTILITY(U,$J,"OPT",1478,10,22,"^")
;;=FHORTFM
;;^UTILITY(U,$J,"OPT",1478,10,23,0)
;;=1635^PE
;;^UTILITY(U,$J,"OPT",1478,10,23,"^")
;;=FHORX2
;;^UTILITY(U,$J,"OPT",1478,10,24,0)
;;=1820^TT
;;^UTILITY(U,$J,"OPT",1478,10,24,"^")
;;=FHMTKM
;;^UTILITY(U,$J,"OPT",1478,99)
;;=56496,40784
;;^UTILITY(U,$J,"OPT",1478,"U")
;;=DIETETIC LISTS/REPORTS
;;^UTILITY(U,$J,"OPT",1479,0)
;;=FHTECH^Clinical Dietetics^^M^^^^^^^^^^1
;;^UTILITY(U,$J,"OPT",1479,1,0)
;;=^^2^2^2941019^^^^
;;^UTILITY(U,$J,"OPT",1479,1,1,0)
;;=This menu contains all of the various options that dietetic
;;^UTILITY(U,$J,"OPT",1479,1,2,0)
;;=technicians will require. It is the same as the FHDIET menu.
;;^UTILITY(U,$J,"OPT",1479,10,0)
;;=^19.01PI^13^12
;;^UTILITY(U,$J,"OPT",1479,10,1,0)
;;=1449^DC
;;^UTILITY(U,$J,"OPT",1479,10,1,"^")
;;=FHORCM
;;^UTILITY(U,$J,"OPT",1479,10,2,0)
;;=1440^DO
;;^UTILITY(U,$J,"OPT",1479,10,2,"^")
;;=FHORDM
;;^UTILITY(U,$J,"OPT",1479,10,3,0)
;;=1417^EA
;;^UTILITY(U,$J,"OPT",1479,10,3,"^")
;;=FHNUM
;;^UTILITY(U,$J,"OPT",1479,10,4,0)
;;=1584^NM
FHINI0NL ; ; 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",1475,10,3,"^")
+2 ;;=FHORD9
+3 ;;^UTILITY(U,$J,"OPT",1475,10,4,0)
+4 ;;=1438^DH
+5 ;;^UTILITY(U,$J,"OPT",1475,10,4,"^")
+6 ;;=FHORD2
+7 ;;^UTILITY(U,$J,"OPT",1475,15)
+8 ;;=
+9 ;;^UTILITY(U,$J,"OPT",1475,20)
+10 ;;=S FHA1=2 D ^FHVER
+11 ;;^UTILITY(U,$J,"OPT",1475,99)
+12 ;;=56496,40789
+13 ;;^UTILITY(U,$J,"OPT",1475,"U")
+14 ;;=DIETETIC USER
+15 ;;^UTILITY(U,$J,"OPT",1476,0)
+16 ;;=FHPATP^Dietetic Patient Profile^^M^^^^^^^^^^1
+17 ;;^UTILITY(U,$J,"OPT",1476,1,0)
+18 ;;=^^3^3^2880716^^
+19 ;;^UTILITY(U,$J,"OPT",1476,1,1,0)
+20 ;;=This option will display all of the pertinent dietetic
+21 ;;^UTILITY(U,$J,"OPT",1476,1,2,0)
+22 ;;=information about an inpatient -- diet orders, tubefeedings,
+23 ;;^UTILITY(U,$J,"OPT",1476,1,3,0)
+24 ;;=active consults, early/late trays, standing orders, etc.
+25 ;;^UTILITY(U,$J,"OPT",1476,10,0)
+26 ;;=^19.01PI^2^2
+27 ;;^UTILITY(U,$J,"OPT",1476,10,1,0)
+28 ;;=1461^PP
+29 ;;^UTILITY(U,$J,"OPT",1476,10,1,"^")
+30 ;;=FHORD9
+31 ;;^UTILITY(U,$J,"OPT",1476,10,2,0)
+32 ;;=1438^DH
+33 ;;^UTILITY(U,$J,"OPT",1476,10,2,"^")
+34 ;;=FHORD2
+35 ;;^UTILITY(U,$J,"OPT",1476,15)
+36 ;;=
+37 ;;^UTILITY(U,$J,"OPT",1476,20)
+38 ;;=S FHA1=6 D ^FHVER
+39 ;;^UTILITY(U,$J,"OPT",1476,25)
+40 ;;=
+41 ;;^UTILITY(U,$J,"OPT",1476,99)
+42 ;;=56496,40739
+43 ;;^UTILITY(U,$J,"OPT",1476,"U")
+44 ;;=DIETETIC PATIENT PROFILE
+45 ;;^UTILITY(U,$J,"OPT",1477,0)
+46 ;;=FHNO11^Supplemental Feeding Cost Report^^R^^^^^^^^
+47 ;;^UTILITY(U,$J,"OPT",1477,1,0)
+48 ;;=^^2^2^2930514^^^^
+49 ;;^UTILITY(U,$J,"OPT",1477,1,1,0)
+50 ;;=This option will produce a cost report for a ward, or all wards,
+51 ;;^UTILITY(U,$J,"OPT",1477,1,2,0)
+52 ;;=based upon the supplemental feedings currently ordered.
+53 ;;^UTILITY(U,$J,"OPT",1477,25)
+54 ;;=FHNO6
+55 ;;^UTILITY(U,$J,"OPT",1477,"U")
+56 ;;=SUPPLEMENTAL FEEDING COST REPO
+57 ;;^UTILITY(U,$J,"OPT",1478,0)
+58 ;;=FHCDLST^Dietetic Lists/Reports^^M^^^^^^^^DIETETICS
+59 ;;^UTILITY(U,$J,"OPT",1478,1,0)
+60 ;;=^^3^3^2950714^^^^
+61 ;;^UTILITY(U,$J,"OPT",1478,1,1,0)
+62 ;;=This menu contains the various lists and reports most often
+63 ;;^UTILITY(U,$J,"OPT",1478,1,2,0)
+64 ;;=required by the clinical staff or the diet communications
+65 ;;^UTILITY(U,$J,"OPT",1478,1,3,0)
+66 ;;=office.
+67 ;;^UTILITY(U,$J,"OPT",1478,10,0)
+68 ;;=^19.01PI^24^17
+69 ;;^UTILITY(U,$J,"OPT",1478,10,1,0)
+70 ;;=1474^DA
+71 ;;^UTILITY(U,$J,"OPT",1478,10,1,"^")
+72 ;;=FHORD13
+73 ;;^UTILITY(U,$J,"OPT",1478,10,2,0)
+74 ;;=1472^DC
+75 ;;^UTILITY(U,$J,"OPT",1478,10,2,"^")
+76 ;;=FHORD11
+77 ;;^UTILITY(U,$J,"OPT",1478,10,3,0)
+78 ;;=1453^EL
+79 ;;^UTILITY(U,$J,"OPT",1478,10,3,"^")
+80 ;;=FHOREL1
+81 ;;^UTILITY(U,$J,"OPT",1478,10,4,0)
+82 ;;=1439^NL
+83 ;;^UTILITY(U,$J,"OPT",1478,10,4,"^")
+84 ;;=FHORD5
+85 ;;^UTILITY(U,$J,"OPT",1478,10,6,0)
+86 ;;=1471^WD
+87 ;;^UTILITY(U,$J,"OPT",1478,10,6,"^")
+88 ;;=FHORD10
+89 ;;^UTILITY(U,$J,"OPT",1478,10,8,0)
+90 ;;=1463^WP
+91 ;;^UTILITY(U,$J,"OPT",1478,10,8,"^")
+92 ;;=FHNO10
+93 ;;^UTILITY(U,$J,"OPT",1478,10,9,0)
+94 ;;=1420^LA
+95 ;;^UTILITY(U,$J,"OPT",1478,10,9,"^")
+96 ;;=FHNO2
+97 ;;^UTILITY(U,$J,"OPT",1478,10,10,0)
+98 ;;=1421^WL
+99 ;;^UTILITY(U,$J,"OPT",1478,10,10,"^")
+100 ;;=FHNO3
+101 ;;^UTILITY(U,$J,"OPT",1478,10,11,0)
+102 ;;=1489^DR
+103 ;;^UTILITY(U,$J,"OPT",1478,10,11,"^")
+104 ;;=FHORD14
+105 ;;^UTILITY(U,$J,"OPT",1478,10,12,0)
+106 ;;=1494^IL
+107 ;;^UTILITY(U,$J,"OPT",1478,10,12,"^")
+108 ;;=FHORD41
+109 ;;^UTILITY(U,$J,"OPT",1478,10,13,0)
+110 ;;=1502^SO
+111 ;;^UTILITY(U,$J,"OPT",1478,10,13,"^")
+112 ;;=FHSP5
+113 ;;^UTILITY(U,$J,"OPT",1478,10,14,0)
+114 ;;=1550^BL
+115 ;;^UTILITY(U,$J,"OPT",1478,10,14,"^")
+116 ;;=FHBIR
+117 ;;^UTILITY(U,$J,"OPT",1478,10,20,0)
+118 ;;=1628^SP
+119 ;;^UTILITY(U,$J,"OPT",1478,10,20,"^")
+120 ;;=FHSP7
+121 ;;^UTILITY(U,$J,"OPT",1478,10,21,0)
+122 ;;=1629^SL
+123 ;;^UTILITY(U,$J,"OPT",1478,10,21,"^")
+124 ;;=FHSP8
+125 ;;^UTILITY(U,$J,"OPT",1478,10,22,0)
+126 ;;=1708^TR
+127 ;;^UTILITY(U,$J,"OPT",1478,10,22,"^")
+128 ;;=FHORTFM
+129 ;;^UTILITY(U,$J,"OPT",1478,10,23,0)
+130 ;;=1635^PE
+131 ;;^UTILITY(U,$J,"OPT",1478,10,23,"^")
+132 ;;=FHORX2
+133 ;;^UTILITY(U,$J,"OPT",1478,10,24,0)
+134 ;;=1820^TT
+135 ;;^UTILITY(U,$J,"OPT",1478,10,24,"^")
+136 ;;=FHMTKM
+137 ;;^UTILITY(U,$J,"OPT",1478,99)
+138 ;;=56496,40784
+139 ;;^UTILITY(U,$J,"OPT",1478,"U")
+140 ;;=DIETETIC LISTS/REPORTS
+141 ;;^UTILITY(U,$J,"OPT",1479,0)
+142 ;;=FHTECH^Clinical Dietetics^^M^^^^^^^^^^1
+143 ;;^UTILITY(U,$J,"OPT",1479,1,0)
+144 ;;=^^2^2^2941019^^^^
+145 ;;^UTILITY(U,$J,"OPT",1479,1,1,0)
+146 ;;=This menu contains all of the various options that dietetic
+147 ;;^UTILITY(U,$J,"OPT",1479,1,2,0)
+148 ;;=technicians will require. It is the same as the FHDIET menu.
+149 ;;^UTILITY(U,$J,"OPT",1479,10,0)
+150 ;;=^19.01PI^13^12
+151 ;;^UTILITY(U,$J,"OPT",1479,10,1,0)
+152 ;;=1449^DC
+153 ;;^UTILITY(U,$J,"OPT",1479,10,1,"^")
+154 ;;=FHORCM
+155 ;;^UTILITY(U,$J,"OPT",1479,10,2,0)
+156 ;;=1440^DO
+157 ;;^UTILITY(U,$J,"OPT",1479,10,2,"^")
+158 ;;=FHORDM
+159 ;;^UTILITY(U,$J,"OPT",1479,10,3,0)
+160 ;;=1417^EA
+161 ;;^UTILITY(U,$J,"OPT",1479,10,3,"^")
+162 ;;=FHNUM
+163 ;;^UTILITY(U,$J,"OPT",1479,10,4,0)
+164 ;;=1584^NM
