FHINI0O3 ; ; 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",1610,1,1,0)
;;=This option allows the user to print a seven days menu containing
;;^UTILITY(U,$J,"OPT",1610,1,2,0)
;;=the individual recipes under a selected Recipe Category for one
;;^UTILITY(U,$J,"OPT",1610,1,3,0)
;;=Production Diet or all to be served at breakfast, noon, and evening
;;^UTILITY(U,$J,"OPT",1610,1,4,0)
;;=for each of the seven days. The meals from which the recipes are
;;^UTILITY(U,$J,"OPT",1610,1,5,0)
;;=taken, are those that are or will be effective during the week chosen.
;;^UTILITY(U,$J,"OPT",1610,25)
;;=FHPRC9
;;^UTILITY(U,$J,"OPT",1610,"U")
;;=PRINT WEEKLY MENU BLOCKS
;;^UTILITY(U,$J,"OPT",1611,0)
;;=FHADR1^Enter/Edit Facility Profile^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1611,1,0)
;;=^^3^3^2930406^^^^
;;^UTILITY(U,$J,"OPT",1611,1,1,0)
;;=This option allows the user to enter or edit the facility Profile
;;^UTILITY(U,$J,"OPT",1611,1,2,0)
;;=along with the Special Medical Programs, Primary Delivery System,
;;^UTILITY(U,$J,"OPT",1611,1,3,0)
;;=and Cook Chill.
;;^UTILITY(U,$J,"OPT",1611,25)
;;=EN1^FHADR1
;;^UTILITY(U,$J,"OPT",1611,"U")
;;=ENTER/EDIT FACILITY PROFILE
;;^UTILITY(U,$J,"OPT",1612,0)
;;=FHADR2^Enter/Edit Type of Service^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1612,1,0)
;;=^^3^3^2920306^^^^
;;^UTILITY(U,$J,"OPT",1612,1,1,0)
;;=This option allows the user to enter or edit the number of Proposed
;;^UTILITY(U,$J,"OPT",1612,1,2,0)
;;=Patients' Meals currently served at Bedside, in a Cafeteria, and
;;^UTILITY(U,$J,"OPT",1612,1,3,0)
;;=at Dining Room.
;;^UTILITY(U,$J,"OPT",1612,25)
;;=FHADR2
;;^UTILITY(U,$J,"OPT",1612,99)
;;=55545,47198
;;^UTILITY(U,$J,"OPT",1612,"U")
;;=ENTER/EDIT TYPE OF SERVICE
;;^UTILITY(U,$J,"OPT",1613,0)
;;=FHADR3^Enter/Edit Hospital Outpatient Visits^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1613,1,0)
;;=^^3^3^2930126^^^^
;;^UTILITY(U,$J,"OPT",1613,1,1,0)
;;=This option allows the user to enter or edit the number of
;;^UTILITY(U,$J,"OPT",1613,1,2,0)
;;=Outpatient visits to the Hospital and the Satellite Clinic
;;^UTILITY(U,$J,"OPT",1613,1,3,0)
;;=locations and the number of Outpatients that visit them.
;;^UTILITY(U,$J,"OPT",1613,25)
;;=EN1^FHADR3
;;^UTILITY(U,$J,"OPT",1613,"U")
;;=ENTER/EDIT HOSPITAL OUTPATIENT
;;^UTILITY(U,$J,"OPT",1614,0)
;;=FHADR4^Enter/Edit Staffing FTEE^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1614,1,0)
;;=^^3^3^2920227^^^
;;^UTILITY(U,$J,"OPT",1614,1,1,0)
;;=This option allows the user to enter or edit the Staffing FTEE
;;^UTILITY(U,$J,"OPT",1614,1,2,0)
;;=of Clinical, Administrative, Support Staff, Supervisory, and
;;^UTILITY(U,$J,"OPT",1614,1,3,0)
;;=Measured.
;;^UTILITY(U,$J,"OPT",1614,25)
;;=EN1^FHADR7
;;^UTILITY(U,$J,"OPT",1614,"U")
;;=ENTER/EDIT STAFFING FTEE
;;^UTILITY(U,$J,"OPT",1615,0)
;;=FHADR5^Enter the Snapshot date for Modified Diets^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1615,1,0)
;;=^^3^3^2920316^^^^
;;^UTILITY(U,$J,"OPT",1615,1,1,0)
;;=This option allows the user to enter a Sunday as the
;;^UTILITY(U,$J,"OPT",1615,1,2,0)
;;=Snapshot date to tabulate the Average number of patients that have
;;^UTILITY(U,$J,"OPT",1615,1,3,0)
;;=Modified Diet for the week Prior from that Sunday of each quarter.
;;^UTILITY(U,$J,"OPT",1615,25)
;;=EN1^FHADR6
;;^UTILITY(U,$J,"OPT",1615,"U")
;;=ENTER THE SNAPSHOT DATE FOR MO
;;^UTILITY(U,$J,"OPT",1616,0)
;;=FHADR6^Enter/Edit Cost Per Diem^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1616,1,0)
;;=^^5^5^2920316^^^^
;;^UTILITY(U,$J,"OPT",1616,1,1,0)
;;=This option allows the user to enter or edit the Cost Per Diem
;;^UTILITY(U,$J,"OPT",1616,1,2,0)
;;=per Patient. The Cost include Total Personal Service Cost of
;;^UTILITY(U,$J,"OPT",1616,1,3,0)
;;=Technicians, Dietitians, Wageboard, and Clerical, Subsistence,
;;^UTILITY(U,$J,"OPT",1616,1,4,0)
;;=and Operating Supplies. In addition, the cumulative Fiscal
;;^UTILITY(U,$J,"OPT",1616,1,5,0)
;;=Year totals presented on the 830 Report will need to be entered.
;;^UTILITY(U,$J,"OPT",1616,25)
;;=EN1^FHADR8
;;^UTILITY(U,$J,"OPT",1616,"U")
;;=ENTER/EDIT COST PER DIEM
;;^UTILITY(U,$J,"OPT",1617,0)
;;=FHADR7^Enter/Edit Dietetic Satisfaction Survey^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1617,1,0)
;;=^^3^3^2931230^^^^
;;^UTILITY(U,$J,"OPT",1617,1,1,0)
;;=This option allows the user to enter or edit the service
;;^UTILITY(U,$J,"OPT",1617,1,2,0)
;;=Satisfaction data which result from the Dietetic
;;^UTILITY(U,$J,"OPT",1617,1,3,0)
;;=Survey taken by the facility.
;;^UTILITY(U,$J,"OPT",1617,25)
;;=EN1^FHADR9
FHINI0O3 ; ; 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",1610,1,1,0)
+2 ;;=This option allows the user to print a seven days menu containing
+3 ;;^UTILITY(U,$J,"OPT",1610,1,2,0)
+4 ;;=the individual recipes under a selected Recipe Category for one
+5 ;;^UTILITY(U,$J,"OPT",1610,1,3,0)
+6 ;;=Production Diet or all to be served at breakfast, noon, and evening
+7 ;;^UTILITY(U,$J,"OPT",1610,1,4,0)
+8 ;;=for each of the seven days. The meals from which the recipes are
+9 ;;^UTILITY(U,$J,"OPT",1610,1,5,0)
+10 ;;=taken, are those that are or will be effective during the week chosen.
+11 ;;^UTILITY(U,$J,"OPT",1610,25)
+12 ;;=FHPRC9
+13 ;;^UTILITY(U,$J,"OPT",1610,"U")
+14 ;;=PRINT WEEKLY MENU BLOCKS
+15 ;;^UTILITY(U,$J,"OPT",1611,0)
+16 ;;=FHADR1^Enter/Edit Facility Profile^^R^^^^^^^^DIETETICS
+17 ;;^UTILITY(U,$J,"OPT",1611,1,0)
+18 ;;=^^3^3^2930406^^^^
+19 ;;^UTILITY(U,$J,"OPT",1611,1,1,0)
+20 ;;=This option allows the user to enter or edit the facility Profile
+21 ;;^UTILITY(U,$J,"OPT",1611,1,2,0)
+22 ;;=along with the Special Medical Programs, Primary Delivery System,
+23 ;;^UTILITY(U,$J,"OPT",1611,1,3,0)
+24 ;;=and Cook Chill.
+25 ;;^UTILITY(U,$J,"OPT",1611,25)
+26 ;;=EN1^FHADR1
+27 ;;^UTILITY(U,$J,"OPT",1611,"U")
+28 ;;=ENTER/EDIT FACILITY PROFILE
+29 ;;^UTILITY(U,$J,"OPT",1612,0)
+30 ;;=FHADR2^Enter/Edit Type of Service^^R^^^^^^^^DIETETICS
+31 ;;^UTILITY(U,$J,"OPT",1612,1,0)
+32 ;;=^^3^3^2920306^^^^
+33 ;;^UTILITY(U,$J,"OPT",1612,1,1,0)
+34 ;;=This option allows the user to enter or edit the number of Proposed
+35 ;;^UTILITY(U,$J,"OPT",1612,1,2,0)
+36 ;;=Patients' Meals currently served at Bedside, in a Cafeteria, and
+37 ;;^UTILITY(U,$J,"OPT",1612,1,3,0)
+38 ;;=at Dining Room.
+39 ;;^UTILITY(U,$J,"OPT",1612,25)
+40 ;;=FHADR2
+41 ;;^UTILITY(U,$J,"OPT",1612,99)
+42 ;;=55545,47198
+43 ;;^UTILITY(U,$J,"OPT",1612,"U")
+44 ;;=ENTER/EDIT TYPE OF SERVICE
+45 ;;^UTILITY(U,$J,"OPT",1613,0)
+46 ;;=FHADR3^Enter/Edit Hospital Outpatient Visits^^R^^^^^^^^DIETETICS
+47 ;;^UTILITY(U,$J,"OPT",1613,1,0)
+48 ;;=^^3^3^2930126^^^^
+49 ;;^UTILITY(U,$J,"OPT",1613,1,1,0)
+50 ;;=This option allows the user to enter or edit the number of
+51 ;;^UTILITY(U,$J,"OPT",1613,1,2,0)
+52 ;;=Outpatient visits to the Hospital and the Satellite Clinic
+53 ;;^UTILITY(U,$J,"OPT",1613,1,3,0)
+54 ;;=locations and the number of Outpatients that visit them.
+55 ;;^UTILITY(U,$J,"OPT",1613,25)
+56 ;;=EN1^FHADR3
+57 ;;^UTILITY(U,$J,"OPT",1613,"U")
+58 ;;=ENTER/EDIT HOSPITAL OUTPATIENT
+59 ;;^UTILITY(U,$J,"OPT",1614,0)
+60 ;;=FHADR4^Enter/Edit Staffing FTEE^^R^^^^^^^^DIETETICS
+61 ;;^UTILITY(U,$J,"OPT",1614,1,0)
+62 ;;=^^3^3^2920227^^^
+63 ;;^UTILITY(U,$J,"OPT",1614,1,1,0)
+64 ;;=This option allows the user to enter or edit the Staffing FTEE
+65 ;;^UTILITY(U,$J,"OPT",1614,1,2,0)
+66 ;;=of Clinical, Administrative, Support Staff, Supervisory, and
+67 ;;^UTILITY(U,$J,"OPT",1614,1,3,0)
+68 ;;=Measured.
+69 ;;^UTILITY(U,$J,"OPT",1614,25)
+70 ;;=EN1^FHADR7
+71 ;;^UTILITY(U,$J,"OPT",1614,"U")
+72 ;;=ENTER/EDIT STAFFING FTEE
+73 ;;^UTILITY(U,$J,"OPT",1615,0)
+74 ;;=FHADR5^Enter the Snapshot date for Modified Diets^^R^^^^^^^^DIETETICS
+75 ;;^UTILITY(U,$J,"OPT",1615,1,0)
+76 ;;=^^3^3^2920316^^^^
+77 ;;^UTILITY(U,$J,"OPT",1615,1,1,0)
+78 ;;=This option allows the user to enter a Sunday as the
+79 ;;^UTILITY(U,$J,"OPT",1615,1,2,0)
+80 ;;=Snapshot date to tabulate the Average number of patients that have
+81 ;;^UTILITY(U,$J,"OPT",1615,1,3,0)
+82 ;;=Modified Diet for the week Prior from that Sunday of each quarter.
+83 ;;^UTILITY(U,$J,"OPT",1615,25)
+84 ;;=EN1^FHADR6
+85 ;;^UTILITY(U,$J,"OPT",1615,"U")
+86 ;;=ENTER THE SNAPSHOT DATE FOR MO
+87 ;;^UTILITY(U,$J,"OPT",1616,0)
+88 ;;=FHADR6^Enter/Edit Cost Per Diem^^R^^^^^^^^DIETETICS
+89 ;;^UTILITY(U,$J,"OPT",1616,1,0)
+90 ;;=^^5^5^2920316^^^^
+91 ;;^UTILITY(U,$J,"OPT",1616,1,1,0)
+92 ;;=This option allows the user to enter or edit the Cost Per Diem
+93 ;;^UTILITY(U,$J,"OPT",1616,1,2,0)
+94 ;;=per Patient. The Cost include Total Personal Service Cost of
+95 ;;^UTILITY(U,$J,"OPT",1616,1,3,0)
+96 ;;=Technicians, Dietitians, Wageboard, and Clerical, Subsistence,
+97 ;;^UTILITY(U,$J,"OPT",1616,1,4,0)
+98 ;;=and Operating Supplies. In addition, the cumulative Fiscal
+99 ;;^UTILITY(U,$J,"OPT",1616,1,5,0)
+100 ;;=Year totals presented on the 830 Report will need to be entered.
+101 ;;^UTILITY(U,$J,"OPT",1616,25)
+102 ;;=EN1^FHADR8
+103 ;;^UTILITY(U,$J,"OPT",1616,"U")
+104 ;;=ENTER/EDIT COST PER DIEM
+105 ;;^UTILITY(U,$J,"OPT",1617,0)
+106 ;;=FHADR7^Enter/Edit Dietetic Satisfaction Survey^^R^^^^^^^^DIETETICS
+107 ;;^UTILITY(U,$J,"OPT",1617,1,0)
+108 ;;=^^3^3^2931230^^^^
+109 ;;^UTILITY(U,$J,"OPT",1617,1,1,0)
+110 ;;=This option allows the user to enter or edit the service
+111 ;;^UTILITY(U,$J,"OPT",1617,1,2,0)
+112 ;;=Satisfaction data which result from the Dietetic
+113 ;;^UTILITY(U,$J,"OPT",1617,1,3,0)
+114 ;;=Survey taken by the facility.
+115 ;;^UTILITY(U,$J,"OPT",1617,25)
+116 ;;=EN1^FHADR9
