FHINI0NN ; ; 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",1484,10,9,0)
;;=1519^XM
;;^UTILITY(U,$J,"OPT",1484,10,9,"^")
;;=FHPRCM
;;^UTILITY(U,$J,"OPT",1484,10,10,0)
;;=1486^AM
;;^UTILITY(U,$J,"OPT",1484,10,10,"^")
;;=FHADMR
;;^UTILITY(U,$J,"OPT",1484,10,11,0)
;;=1538^PR
;;^UTILITY(U,$J,"OPT",1484,10,11,"^")
;;=FHADM
;;^UTILITY(U,$J,"OPT",1484,10,12,0)
;;=1493^XF
;;^UTILITY(U,$J,"OPT",1484,10,12,"^")
;;=FHFILM
;;^UTILITY(U,$J,"OPT",1484,10,13,0)
;;=1503^SO
;;^UTILITY(U,$J,"OPT",1484,10,13,"^")
;;=FHSPX
;;^UTILITY(U,$J,"OPT",1484,10,14,0)
;;=1565^FP
;;^UTILITY(U,$J,"OPT",1484,10,14,"^")
;;=FHSELX
;;^UTILITY(U,$J,"OPT",1484,15)
;;=
;;^UTILITY(U,$J,"OPT",1484,20)
;;=S FHA1=4 D ^FHVER
;;^UTILITY(U,$J,"OPT",1484,99)
;;=56496,40785
;;^UTILITY(U,$J,"OPT",1484,99.1)
;;=53952,47936
;;^UTILITY(U,$J,"OPT",1484,"U")
;;=DIETETIC ADMINISTRATION
;;^UTILITY(U,$J,"OPT",1485,0)
;;=FHADMR1^Enter/Edit Served Meals^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1485,1,0)
;;=^^2^2^2920611^^
;;^UTILITY(U,$J,"OPT",1485,1,1,0)
;;=This option allows for entry and/or editing of the various values
;;^UTILITY(U,$J,"OPT",1485,1,2,0)
;;=used in the Served Ration Report.
;;^UTILITY(U,$J,"OPT",1485,25)
;;=EN1^FHADM2
;;^UTILITY(U,$J,"OPT",1485,"U")
;;=ENTER/EDIT SERVED MEALS
;;^UTILITY(U,$J,"OPT",1486,0)
;;=FHADMR^Administrative Menu^^M^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1486,1,0)
;;=^^2^2^2950307^^^^
;;^UTILITY(U,$J,"OPT",1486,1,1,0)
;;=This menu contains the various administrative and cost reports
;;^UTILITY(U,$J,"OPT",1486,1,2,0)
;;=produced by the system.
;;^UTILITY(U,$J,"OPT",1486,10,0)
;;=^19.01PI^13^11
;;^UTILITY(U,$J,"OPT",1486,10,1,0)
;;=1485^RE
;;^UTILITY(U,$J,"OPT",1486,10,1,"^")
;;=FHADMR1
;;^UTILITY(U,$J,"OPT",1486,10,2,0)
;;=1487^RR
;;^UTILITY(U,$J,"OPT",1486,10,2,"^")
;;=FHADMR2
;;^UTILITY(U,$J,"OPT",1486,10,3,0)
;;=1488^AR
;;^UTILITY(U,$J,"OPT",1486,10,3,"^")
;;=FHADMR3
;;^UTILITY(U,$J,"OPT",1486,10,6,0)
;;=1495^PE
;;^UTILITY(U,$J,"OPT",1486,10,6,"^")
;;=FHADMR4
;;^UTILITY(U,$J,"OPT",1486,10,7,0)
;;=1496^PR
;;^UTILITY(U,$J,"OPT",1486,10,7,"^")
;;=FHADMR5
;;^UTILITY(U,$J,"OPT",1486,10,8,0)
;;=1477^SR
;;^UTILITY(U,$J,"OPT",1486,10,8,"^")
;;=FHNO11
;;^UTILITY(U,$J,"OPT",1486,10,9,0)
;;=1608^RS
;;^UTILITY(U,$J,"OPT",1486,10,9,"^")
;;=FHCMRR1
;;^UTILITY(U,$J,"OPT",1486,10,10,0)
;;=1609^SP
;;^UTILITY(U,$J,"OPT",1486,10,10,"^")
;;=FHCMRR2
;;^UTILITY(U,$J,"OPT",1486,10,11,0)
;;=1627^TC
;;^UTILITY(U,$J,"OPT",1486,10,11,"^")
;;=FHORTF5C
;;^UTILITY(U,$J,"OPT",1486,10,12,0)
;;=1622^QE
;;^UTILITY(U,$J,"OPT",1486,10,12,"^")
;;=FHING12
;;^UTILITY(U,$J,"OPT",1486,10,13,0)
;;=1623^QW
;;^UTILITY(U,$J,"OPT",1486,10,13,"^")
;;=FHING13
;;^UTILITY(U,$J,"OPT",1486,15)
;;=
;;^UTILITY(U,$J,"OPT",1486,20)
;;=
;;^UTILITY(U,$J,"OPT",1486,99)
;;=56496,40735
;;^UTILITY(U,$J,"OPT",1486,"U")
;;=ADMINISTRATIVE MENU
;;^UTILITY(U,$J,"OPT",1487,0)
;;=FHADMR2^Served Meals Report^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1487,1,0)
;;=^^2^2^2941125^^^^
;;^UTILITY(U,$J,"OPT",1487,1,1,0)
;;=This option will print the Served Ration Report for any time
;;^UTILITY(U,$J,"OPT",1487,1,2,0)
;;=period specified.
;;^UTILITY(U,$J,"OPT",1487,25)
;;=EN2^FHADM21
;;^UTILITY(U,$J,"OPT",1487,"U")
;;=SERVED MEALS REPORT
;;^UTILITY(U,$J,"OPT",1488,0)
;;=FHADMR3^Additional Meals Report^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1488,1,0)
;;=^^4^4^2880717^^
;;^UTILITY(U,$J,"OPT",1488,1,1,0)
;;=This option will print the individual meal counts used in the
;;^UTILITY(U,$J,"OPT",1488,1,2,0)
;;=Served Ration Report for other than inpatients. These values
;;^UTILITY(U,$J,"OPT",1488,1,3,0)
;;=are converted to rations when used in calculations for the
;;^UTILITY(U,$J,"OPT",1488,1,4,0)
;;=Served Ration Report.
;;^UTILITY(U,$J,"OPT",1488,25)
;;=FHADM3
;;^UTILITY(U,$J,"OPT",1488,"U")
;;=ADDITIONAL MEALS REPORT
;;^UTILITY(U,$J,"OPT",1489,0)
;;=FHORD14^Reprint Diet Labels^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1489,1,0)
;;=^^2^2^2930702^^^
;;^UTILITY(U,$J,"OPT",1489,1,1,0)
;;=This option will reprint a diet card label for an individual
;;^UTILITY(U,$J,"OPT",1489,1,2,0)
;;=patient or for all patients on a specified ward.
;;^UTILITY(U,$J,"OPT",1489,25)
;;=FHORD13
;;^UTILITY(U,$J,"OPT",1489,"U")
;;=REPRINT DIET LABELS
;;^UTILITY(U,$J,"OPT",1490,0)
;;=FHSYSM^System Management^^M^^^^^^^^
;;^UTILITY(U,$J,"OPT",1490,1,0)
;;=^^5^5^2911127^^^
;;^UTILITY(U,$J,"OPT",1490,1,1,0)
;;=This menu allows a system manager to modify site parameters,
;;^UTILITY(U,$J,"OPT",1490,1,2,0)
;;=purge dietetic data, check the integrity of the dietetic
;;^UTILITY(U,$J,"OPT",1490,1,3,0)
;;=routines and file pointers, tally production diets for all
FHINI0NN ; ; 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",1484,10,9,0)
+2 ;;=1519^XM
+3 ;;^UTILITY(U,$J,"OPT",1484,10,9,"^")
+4 ;;=FHPRCM
+5 ;;^UTILITY(U,$J,"OPT",1484,10,10,0)
+6 ;;=1486^AM
+7 ;;^UTILITY(U,$J,"OPT",1484,10,10,"^")
+8 ;;=FHADMR
+9 ;;^UTILITY(U,$J,"OPT",1484,10,11,0)
+10 ;;=1538^PR
+11 ;;^UTILITY(U,$J,"OPT",1484,10,11,"^")
+12 ;;=FHADM
+13 ;;^UTILITY(U,$J,"OPT",1484,10,12,0)
+14 ;;=1493^XF
+15 ;;^UTILITY(U,$J,"OPT",1484,10,12,"^")
+16 ;;=FHFILM
+17 ;;^UTILITY(U,$J,"OPT",1484,10,13,0)
+18 ;;=1503^SO
+19 ;;^UTILITY(U,$J,"OPT",1484,10,13,"^")
+20 ;;=FHSPX
+21 ;;^UTILITY(U,$J,"OPT",1484,10,14,0)
+22 ;;=1565^FP
+23 ;;^UTILITY(U,$J,"OPT",1484,10,14,"^")
+24 ;;=FHSELX
+25 ;;^UTILITY(U,$J,"OPT",1484,15)
+26 ;;=
+27 ;;^UTILITY(U,$J,"OPT",1484,20)
+28 ;;=S FHA1=4 D ^FHVER
+29 ;;^UTILITY(U,$J,"OPT",1484,99)
+30 ;;=56496,40785
+31 ;;^UTILITY(U,$J,"OPT",1484,99.1)
+32 ;;=53952,47936
+33 ;;^UTILITY(U,$J,"OPT",1484,"U")
+34 ;;=DIETETIC ADMINISTRATION
+35 ;;^UTILITY(U,$J,"OPT",1485,0)
+36 ;;=FHADMR1^Enter/Edit Served Meals^^R^^^^^^^^
+37 ;;^UTILITY(U,$J,"OPT",1485,1,0)
+38 ;;=^^2^2^2920611^^
+39 ;;^UTILITY(U,$J,"OPT",1485,1,1,0)
+40 ;;=This option allows for entry and/or editing of the various values
+41 ;;^UTILITY(U,$J,"OPT",1485,1,2,0)
+42 ;;=used in the Served Ration Report.
+43 ;;^UTILITY(U,$J,"OPT",1485,25)
+44 ;;=EN1^FHADM2
+45 ;;^UTILITY(U,$J,"OPT",1485,"U")
+46 ;;=ENTER/EDIT SERVED MEALS
+47 ;;^UTILITY(U,$J,"OPT",1486,0)
+48 ;;=FHADMR^Administrative Menu^^M^^^^^^^^DIETETICS
+49 ;;^UTILITY(U,$J,"OPT",1486,1,0)
+50 ;;=^^2^2^2950307^^^^
+51 ;;^UTILITY(U,$J,"OPT",1486,1,1,0)
+52 ;;=This menu contains the various administrative and cost reports
+53 ;;^UTILITY(U,$J,"OPT",1486,1,2,0)
+54 ;;=produced by the system.
+55 ;;^UTILITY(U,$J,"OPT",1486,10,0)
+56 ;;=^19.01PI^13^11
+57 ;;^UTILITY(U,$J,"OPT",1486,10,1,0)
+58 ;;=1485^RE
+59 ;;^UTILITY(U,$J,"OPT",1486,10,1,"^")
+60 ;;=FHADMR1
+61 ;;^UTILITY(U,$J,"OPT",1486,10,2,0)
+62 ;;=1487^RR
+63 ;;^UTILITY(U,$J,"OPT",1486,10,2,"^")
+64 ;;=FHADMR2
+65 ;;^UTILITY(U,$J,"OPT",1486,10,3,0)
+66 ;;=1488^AR
+67 ;;^UTILITY(U,$J,"OPT",1486,10,3,"^")
+68 ;;=FHADMR3
+69 ;;^UTILITY(U,$J,"OPT",1486,10,6,0)
+70 ;;=1495^PE
+71 ;;^UTILITY(U,$J,"OPT",1486,10,6,"^")
+72 ;;=FHADMR4
+73 ;;^UTILITY(U,$J,"OPT",1486,10,7,0)
+74 ;;=1496^PR
+75 ;;^UTILITY(U,$J,"OPT",1486,10,7,"^")
+76 ;;=FHADMR5
+77 ;;^UTILITY(U,$J,"OPT",1486,10,8,0)
+78 ;;=1477^SR
+79 ;;^UTILITY(U,$J,"OPT",1486,10,8,"^")
+80 ;;=FHNO11
+81 ;;^UTILITY(U,$J,"OPT",1486,10,9,0)
+82 ;;=1608^RS
+83 ;;^UTILITY(U,$J,"OPT",1486,10,9,"^")
+84 ;;=FHCMRR1
+85 ;;^UTILITY(U,$J,"OPT",1486,10,10,0)
+86 ;;=1609^SP
+87 ;;^UTILITY(U,$J,"OPT",1486,10,10,"^")
+88 ;;=FHCMRR2
+89 ;;^UTILITY(U,$J,"OPT",1486,10,11,0)
+90 ;;=1627^TC
+91 ;;^UTILITY(U,$J,"OPT",1486,10,11,"^")
+92 ;;=FHORTF5C
+93 ;;^UTILITY(U,$J,"OPT",1486,10,12,0)
+94 ;;=1622^QE
+95 ;;^UTILITY(U,$J,"OPT",1486,10,12,"^")
+96 ;;=FHING12
+97 ;;^UTILITY(U,$J,"OPT",1486,10,13,0)
+98 ;;=1623^QW
+99 ;;^UTILITY(U,$J,"OPT",1486,10,13,"^")
+100 ;;=FHING13
+101 ;;^UTILITY(U,$J,"OPT",1486,15)
+102 ;;=
+103 ;;^UTILITY(U,$J,"OPT",1486,20)
+104 ;;=
+105 ;;^UTILITY(U,$J,"OPT",1486,99)
+106 ;;=56496,40735
+107 ;;^UTILITY(U,$J,"OPT",1486,"U")
+108 ;;=ADMINISTRATIVE MENU
+109 ;;^UTILITY(U,$J,"OPT",1487,0)
+110 ;;=FHADMR2^Served Meals Report^^R^^^^^^^^
+111 ;;^UTILITY(U,$J,"OPT",1487,1,0)
+112 ;;=^^2^2^2941125^^^^
+113 ;;^UTILITY(U,$J,"OPT",1487,1,1,0)
+114 ;;=This option will print the Served Ration Report for any time
+115 ;;^UTILITY(U,$J,"OPT",1487,1,2,0)
+116 ;;=period specified.
+117 ;;^UTILITY(U,$J,"OPT",1487,25)
+118 ;;=EN2^FHADM21
+119 ;;^UTILITY(U,$J,"OPT",1487,"U")
+120 ;;=SERVED MEALS REPORT
+121 ;;^UTILITY(U,$J,"OPT",1488,0)
+122 ;;=FHADMR3^Additional Meals Report^^R^^^^^^^^
+123 ;;^UTILITY(U,$J,"OPT",1488,1,0)
+124 ;;=^^4^4^2880717^^
+125 ;;^UTILITY(U,$J,"OPT",1488,1,1,0)
+126 ;;=This option will print the individual meal counts used in the
+127 ;;^UTILITY(U,$J,"OPT",1488,1,2,0)
+128 ;;=Served Ration Report for other than inpatients. These values
+129 ;;^UTILITY(U,$J,"OPT",1488,1,3,0)
+130 ;;=are converted to rations when used in calculations for the
+131 ;;^UTILITY(U,$J,"OPT",1488,1,4,0)
+132 ;;=Served Ration Report.
+133 ;;^UTILITY(U,$J,"OPT",1488,25)
+134 ;;=FHADM3
+135 ;;^UTILITY(U,$J,"OPT",1488,"U")
+136 ;;=ADDITIONAL MEALS REPORT
+137 ;;^UTILITY(U,$J,"OPT",1489,0)
+138 ;;=FHORD14^Reprint Diet Labels^^R^^^^^^^^
+139 ;;^UTILITY(U,$J,"OPT",1489,1,0)
+140 ;;=^^2^2^2930702^^^
+141 ;;^UTILITY(U,$J,"OPT",1489,1,1,0)
+142 ;;=This option will reprint a diet card label for an individual
+143 ;;^UTILITY(U,$J,"OPT",1489,1,2,0)
+144 ;;=patient or for all patients on a specified ward.
+145 ;;^UTILITY(U,$J,"OPT",1489,25)
+146 ;;=FHORD13
+147 ;;^UTILITY(U,$J,"OPT",1489,"U")
+148 ;;=REPRINT DIET LABELS
+149 ;;^UTILITY(U,$J,"OPT",1490,0)
+150 ;;=FHSYSM^System Management^^M^^^^^^^^
+151 ;;^UTILITY(U,$J,"OPT",1490,1,0)
+152 ;;=^^5^5^2911127^^^
+153 ;;^UTILITY(U,$J,"OPT",1490,1,1,0)
+154 ;;=This menu allows a system manager to modify site parameters,
+155 ;;^UTILITY(U,$J,"OPT",1490,1,2,0)
+156 ;;=purge dietetic data, check the integrity of the dietetic
+157 ;;^UTILITY(U,$J,"OPT",1490,1,3,0)
+158 ;;=routines and file pointers, tally production diets for all
