FHINI0NR ; ; 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",1512,10,3,0)
;;=1507^IE
;;^UTILITY(U,$J,"OPT",1512,10,3,"^")
;;=FHING3
;;^UTILITY(U,$J,"OPT",1512,10,4,0)
;;=1511^LE
;;^UTILITY(U,$J,"OPT",1512,10,4,"^")
;;=FHING4
;;^UTILITY(U,$J,"OPT",1512,10,5,0)
;;=1529^IR
;;^UTILITY(U,$J,"OPT",1512,10,5,"^")
;;=FHING5
;;^UTILITY(U,$J,"OPT",1512,10,6,0)
;;=1530^UL
;;^UTILITY(U,$J,"OPT",1512,10,6,"^")
;;=FHING6
;;^UTILITY(U,$J,"OPT",1512,10,7,0)
;;=1531^VL
;;^UTILITY(U,$J,"OPT",1512,10,7,"^")
;;=FHING7
;;^UTILITY(U,$J,"OPT",1512,10,8,0)
;;=1532^LL
;;^UTILITY(U,$J,"OPT",1512,10,8,"^")
;;=FHING8
;;^UTILITY(U,$J,"OPT",1512,10,10,0)
;;=1546^IP
;;^UTILITY(U,$J,"OPT",1512,10,10,"^")
;;=FHING51
;;^UTILITY(U,$J,"OPT",1512,10,11,0)
;;=1537^RL
;;^UTILITY(U,$J,"OPT",1512,10,11,"^")
;;=FHING11
;;^UTILITY(U,$J,"OPT",1512,10,12,0)
;;=1622^QE
;;^UTILITY(U,$J,"OPT",1512,10,12,"^")
;;=FHING12
;;^UTILITY(U,$J,"OPT",1512,10,13,0)
;;=1623^QW
;;^UTILITY(U,$J,"OPT",1512,10,13,"^")
;;=FHING13
;;^UTILITY(U,$J,"OPT",1512,10,14,0)
;;=1707^IN
;;^UTILITY(U,$J,"OPT",1512,10,14,"^")
;;=FHING52
;;^UTILITY(U,$J,"OPT",1512,99)
;;=56496,40671
;;^UTILITY(U,$J,"OPT",1512,"U")
;;=INGREDIENT MANAGEMENT
;;^UTILITY(U,$J,"OPT",1513,0)
;;=FHRECM^Recipe Management^^M^^^^^^^^
;;^UTILITY(U,$J,"OPT",1513,1,0)
;;=^^2^2^2941027^^^^
;;^UTILITY(U,$J,"OPT",1513,1,1,0)
;;=This menu contains all of the options relating to the management
;;^UTILITY(U,$J,"OPT",1513,1,2,0)
;;=of recipes.
;;^UTILITY(U,$J,"OPT",1513,10,0)
;;=^19.01PI^16^16
;;^UTILITY(U,$J,"OPT",1513,10,1,0)
;;=1510^RE
;;^UTILITY(U,$J,"OPT",1513,10,1,"^")
;;=FHREC1
;;^UTILITY(U,$J,"OPT",1513,10,2,0)
;;=1520^RP
;;^UTILITY(U,$J,"OPT",1513,10,2,"^")
;;=FHREC2
;;^UTILITY(U,$J,"OPT",1513,10,3,0)
;;=1528^RL
;;^UTILITY(U,$J,"OPT",1513,10,3,"^")
;;=FHREC3
;;^UTILITY(U,$J,"OPT",1513,10,4,0)
;;=1535^PE
;;^UTILITY(U,$J,"OPT",1513,10,4,"^")
;;=FHING9
;;^UTILITY(U,$J,"OPT",1513,10,5,0)
;;=1536^PL
;;^UTILITY(U,$J,"OPT",1513,10,5,"^")
;;=FHING10
;;^UTILITY(U,$J,"OPT",1513,10,6,0)
;;=1539^CE
;;^UTILITY(U,$J,"OPT",1513,10,6,"^")
;;=FHREC4
;;^UTILITY(U,$J,"OPT",1513,10,7,0)
;;=1540^CL
;;^UTILITY(U,$J,"OPT",1513,10,7,"^")
;;=FHREC5
;;^UTILITY(U,$J,"OPT",1513,10,8,0)
;;=1542^SE
;;^UTILITY(U,$J,"OPT",1513,10,8,"^")
;;=FHREC6
;;^UTILITY(U,$J,"OPT",1513,10,9,0)
;;=1543^SL
;;^UTILITY(U,$J,"OPT",1513,10,9,"^")
;;=FHREC7
;;^UTILITY(U,$J,"OPT",1513,10,10,0)
;;=1544^EE
;;^UTILITY(U,$J,"OPT",1513,10,10,"^")
;;=FHREC8
;;^UTILITY(U,$J,"OPT",1513,10,11,0)
;;=1545^EL
;;^UTILITY(U,$J,"OPT",1513,10,11,"^")
;;=FHREC9
;;^UTILITY(U,$J,"OPT",1513,10,12,0)
;;=1548^RC
;;^UTILITY(U,$J,"OPT",1513,10,12,"^")
;;=FHREC10
;;^UTILITY(U,$J,"OPT",1513,10,13,0)
;;=1559^RU
;;^UTILITY(U,$J,"OPT",1513,10,13,"^")
;;=FHPRC10
;;^UTILITY(U,$J,"OPT",1513,10,14,0)
;;=1711^NA
;;^UTILITY(U,$J,"OPT",1513,10,14,"^")
;;=FHREC11
;;^UTILITY(U,$J,"OPT",1513,10,15,0)
;;=1712^ND
;;^UTILITY(U,$J,"OPT",1513,10,15,"^")
;;=FHREC12
;;^UTILITY(U,$J,"OPT",1513,10,16,0)
;;=1817^NL
;;^UTILITY(U,$J,"OPT",1513,10,16,"^")
;;=FHREC13
;;^UTILITY(U,$J,"OPT",1513,99)
;;=56496,40777
;;^UTILITY(U,$J,"OPT",1513,"U")
;;=RECIPE MANAGEMENT
;;^UTILITY(U,$J,"OPT",1514,0)
;;=FHPRFM^Forecasting^^M^^^^^^^^
;;^UTILITY(U,$J,"OPT",1514,1,0)
;;=^^1^1^2921005^^^^
;;^UTILITY(U,$J,"OPT",1514,1,1,0)
;;=This menu contains all of the forecasting options.
;;^UTILITY(U,$J,"OPT",1514,10,0)
;;=^19.01PI^5^3
;;^UTILITY(U,$J,"OPT",1514,10,2,0)
;;=1516^FC
;;^UTILITY(U,$J,"OPT",1514,10,2,"^")
;;=FHPRF2
;;^UTILITY(U,$J,"OPT",1514,10,4,0)
;;=1472^DC
;;^UTILITY(U,$J,"OPT",1514,10,4,"^")
;;=FHORD11
;;^UTILITY(U,$J,"OPT",1514,10,5,0)
;;=1633^DP
;;^UTILITY(U,$J,"OPT",1514,10,5,"^")
;;=FHORD15
;;^UTILITY(U,$J,"OPT",1514,99)
;;=56496,40759
;;^UTILITY(U,$J,"OPT",1514,"U")
;;=FORECASTING
;;^UTILITY(U,$J,"OPT",1515,0)
;;=FHPRF1^Enter/Edit Production Diet Percentages^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1515,1,0)
;;=^^3^3^2880718^^^
;;^UTILITY(U,$J,"OPT",1515,1,1,0)
;;=This option is part of the Forecasting module and is used to
;;^UTILITY(U,$J,"OPT",1515,1,2,0)
;;=enter and edit the percentage of total census represented by
;;^UTILITY(U,$J,"OPT",1515,1,3,0)
;;=each production diet for each day of the week.
;;^UTILITY(U,$J,"OPT",1515,25)
;;=EN1^FHPRF
;;^UTILITY(U,$J,"OPT",1515,"U")
;;=ENTER/EDIT PRODUCTION DIET PER
;;^UTILITY(U,$J,"OPT",1516,0)
;;=FHPRF2^Forecasted Diet Census^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1516,1,0)
;;=^^6^6^2950111^^^^
;;^UTILITY(U,$J,"OPT",1516,1,1,0)
;;=This option allows for the forecast of the total census for
FHINI0NR ; ; 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",1512,10,3,0)
+2 ;;=1507^IE
+3 ;;^UTILITY(U,$J,"OPT",1512,10,3,"^")
+4 ;;=FHING3
+5 ;;^UTILITY(U,$J,"OPT",1512,10,4,0)
+6 ;;=1511^LE
+7 ;;^UTILITY(U,$J,"OPT",1512,10,4,"^")
+8 ;;=FHING4
+9 ;;^UTILITY(U,$J,"OPT",1512,10,5,0)
+10 ;;=1529^IR
+11 ;;^UTILITY(U,$J,"OPT",1512,10,5,"^")
+12 ;;=FHING5
+13 ;;^UTILITY(U,$J,"OPT",1512,10,6,0)
+14 ;;=1530^UL
+15 ;;^UTILITY(U,$J,"OPT",1512,10,6,"^")
+16 ;;=FHING6
+17 ;;^UTILITY(U,$J,"OPT",1512,10,7,0)
+18 ;;=1531^VL
+19 ;;^UTILITY(U,$J,"OPT",1512,10,7,"^")
+20 ;;=FHING7
+21 ;;^UTILITY(U,$J,"OPT",1512,10,8,0)
+22 ;;=1532^LL
+23 ;;^UTILITY(U,$J,"OPT",1512,10,8,"^")
+24 ;;=FHING8
+25 ;;^UTILITY(U,$J,"OPT",1512,10,10,0)
+26 ;;=1546^IP
+27 ;;^UTILITY(U,$J,"OPT",1512,10,10,"^")
+28 ;;=FHING51
+29 ;;^UTILITY(U,$J,"OPT",1512,10,11,0)
+30 ;;=1537^RL
+31 ;;^UTILITY(U,$J,"OPT",1512,10,11,"^")
+32 ;;=FHING11
+33 ;;^UTILITY(U,$J,"OPT",1512,10,12,0)
+34 ;;=1622^QE
+35 ;;^UTILITY(U,$J,"OPT",1512,10,12,"^")
+36 ;;=FHING12
+37 ;;^UTILITY(U,$J,"OPT",1512,10,13,0)
+38 ;;=1623^QW
+39 ;;^UTILITY(U,$J,"OPT",1512,10,13,"^")
+40 ;;=FHING13
+41 ;;^UTILITY(U,$J,"OPT",1512,10,14,0)
+42 ;;=1707^IN
+43 ;;^UTILITY(U,$J,"OPT",1512,10,14,"^")
+44 ;;=FHING52
+45 ;;^UTILITY(U,$J,"OPT",1512,99)
+46 ;;=56496,40671
+47 ;;^UTILITY(U,$J,"OPT",1512,"U")
+48 ;;=INGREDIENT MANAGEMENT
+49 ;;^UTILITY(U,$J,"OPT",1513,0)
+50 ;;=FHRECM^Recipe Management^^M^^^^^^^^
+51 ;;^UTILITY(U,$J,"OPT",1513,1,0)
+52 ;;=^^2^2^2941027^^^^
+53 ;;^UTILITY(U,$J,"OPT",1513,1,1,0)
+54 ;;=This menu contains all of the options relating to the management
+55 ;;^UTILITY(U,$J,"OPT",1513,1,2,0)
+56 ;;=of recipes.
+57 ;;^UTILITY(U,$J,"OPT",1513,10,0)
+58 ;;=^19.01PI^16^16
+59 ;;^UTILITY(U,$J,"OPT",1513,10,1,0)
+60 ;;=1510^RE
+61 ;;^UTILITY(U,$J,"OPT",1513,10,1,"^")
+62 ;;=FHREC1
+63 ;;^UTILITY(U,$J,"OPT",1513,10,2,0)
+64 ;;=1520^RP
+65 ;;^UTILITY(U,$J,"OPT",1513,10,2,"^")
+66 ;;=FHREC2
+67 ;;^UTILITY(U,$J,"OPT",1513,10,3,0)
+68 ;;=1528^RL
+69 ;;^UTILITY(U,$J,"OPT",1513,10,3,"^")
+70 ;;=FHREC3
+71 ;;^UTILITY(U,$J,"OPT",1513,10,4,0)
+72 ;;=1535^PE
+73 ;;^UTILITY(U,$J,"OPT",1513,10,4,"^")
+74 ;;=FHING9
+75 ;;^UTILITY(U,$J,"OPT",1513,10,5,0)
+76 ;;=1536^PL
+77 ;;^UTILITY(U,$J,"OPT",1513,10,5,"^")
+78 ;;=FHING10
+79 ;;^UTILITY(U,$J,"OPT",1513,10,6,0)
+80 ;;=1539^CE
+81 ;;^UTILITY(U,$J,"OPT",1513,10,6,"^")
+82 ;;=FHREC4
+83 ;;^UTILITY(U,$J,"OPT",1513,10,7,0)
+84 ;;=1540^CL
+85 ;;^UTILITY(U,$J,"OPT",1513,10,7,"^")
+86 ;;=FHREC5
+87 ;;^UTILITY(U,$J,"OPT",1513,10,8,0)
+88 ;;=1542^SE
+89 ;;^UTILITY(U,$J,"OPT",1513,10,8,"^")
+90 ;;=FHREC6
+91 ;;^UTILITY(U,$J,"OPT",1513,10,9,0)
+92 ;;=1543^SL
+93 ;;^UTILITY(U,$J,"OPT",1513,10,9,"^")
+94 ;;=FHREC7
+95 ;;^UTILITY(U,$J,"OPT",1513,10,10,0)
+96 ;;=1544^EE
+97 ;;^UTILITY(U,$J,"OPT",1513,10,10,"^")
+98 ;;=FHREC8
+99 ;;^UTILITY(U,$J,"OPT",1513,10,11,0)
+100 ;;=1545^EL
+101 ;;^UTILITY(U,$J,"OPT",1513,10,11,"^")
+102 ;;=FHREC9
+103 ;;^UTILITY(U,$J,"OPT",1513,10,12,0)
+104 ;;=1548^RC
+105 ;;^UTILITY(U,$J,"OPT",1513,10,12,"^")
+106 ;;=FHREC10
+107 ;;^UTILITY(U,$J,"OPT",1513,10,13,0)
+108 ;;=1559^RU
+109 ;;^UTILITY(U,$J,"OPT",1513,10,13,"^")
+110 ;;=FHPRC10
+111 ;;^UTILITY(U,$J,"OPT",1513,10,14,0)
+112 ;;=1711^NA
+113 ;;^UTILITY(U,$J,"OPT",1513,10,14,"^")
+114 ;;=FHREC11
+115 ;;^UTILITY(U,$J,"OPT",1513,10,15,0)
+116 ;;=1712^ND
+117 ;;^UTILITY(U,$J,"OPT",1513,10,15,"^")
+118 ;;=FHREC12
+119 ;;^UTILITY(U,$J,"OPT",1513,10,16,0)
+120 ;;=1817^NL
+121 ;;^UTILITY(U,$J,"OPT",1513,10,16,"^")
+122 ;;=FHREC13
+123 ;;^UTILITY(U,$J,"OPT",1513,99)
+124 ;;=56496,40777
+125 ;;^UTILITY(U,$J,"OPT",1513,"U")
+126 ;;=RECIPE MANAGEMENT
+127 ;;^UTILITY(U,$J,"OPT",1514,0)
+128 ;;=FHPRFM^Forecasting^^M^^^^^^^^
+129 ;;^UTILITY(U,$J,"OPT",1514,1,0)
+130 ;;=^^1^1^2921005^^^^
+131 ;;^UTILITY(U,$J,"OPT",1514,1,1,0)
+132 ;;=This menu contains all of the forecasting options.
+133 ;;^UTILITY(U,$J,"OPT",1514,10,0)
+134 ;;=^19.01PI^5^3
+135 ;;^UTILITY(U,$J,"OPT",1514,10,2,0)
+136 ;;=1516^FC
+137 ;;^UTILITY(U,$J,"OPT",1514,10,2,"^")
+138 ;;=FHPRF2
+139 ;;^UTILITY(U,$J,"OPT",1514,10,4,0)
+140 ;;=1472^DC
+141 ;;^UTILITY(U,$J,"OPT",1514,10,4,"^")
+142 ;;=FHORD11
+143 ;;^UTILITY(U,$J,"OPT",1514,10,5,0)
+144 ;;=1633^DP
+145 ;;^UTILITY(U,$J,"OPT",1514,10,5,"^")
+146 ;;=FHORD15
+147 ;;^UTILITY(U,$J,"OPT",1514,99)
+148 ;;=56496,40759
+149 ;;^UTILITY(U,$J,"OPT",1514,"U")
+150 ;;=FORECASTING
+151 ;;^UTILITY(U,$J,"OPT",1515,0)
+152 ;;=FHPRF1^Enter/Edit Production Diet Percentages^^R^^^^^^^^
+153 ;;^UTILITY(U,$J,"OPT",1515,1,0)
+154 ;;=^^3^3^2880718^^^
+155 ;;^UTILITY(U,$J,"OPT",1515,1,1,0)
+156 ;;=This option is part of the Forecasting module and is used to
+157 ;;^UTILITY(U,$J,"OPT",1515,1,2,0)
+158 ;;=enter and edit the percentage of total census represented by
+159 ;;^UTILITY(U,$J,"OPT",1515,1,3,0)
+160 ;;=each production diet for each day of the week.
+161 ;;^UTILITY(U,$J,"OPT",1515,25)
+162 ;;=EN1^FHPRF
+163 ;;^UTILITY(U,$J,"OPT",1515,"U")
+164 ;;=ENTER/EDIT PRODUCTION DIET PER
+165 ;;^UTILITY(U,$J,"OPT",1516,0)
+166 ;;=FHPRF2^Forecasted Diet Census^^R^^^^^^^^
+167 ;;^UTILITY(U,$J,"OPT",1516,1,0)
+168 ;;=^^6^6^2950111^^^^
+169 ;;^UTILITY(U,$J,"OPT",1516,1,1,0)
+170 ;;=This option allows for the forecast of the total census for
