FHINI0O4 ; ; 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",1617,"U")
;;=ENTER/EDIT DIETETIC SATISFACTI
;;^UTILITY(U,$J,"OPT",1618,0)
;;=FHADR8^Enter/Edit Dietetic Service Equipment^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1618,1,0)
;;=^^2^2^2930126^^
;;^UTILITY(U,$J,"OPT",1618,1,1,0)
;;=This option allows the user to indicate the Dietetic System
;;^UTILITY(U,$J,"OPT",1618,1,2,0)
;;=Equipment the facility has and the Brand of the Equipment.
;;^UTILITY(U,$J,"OPT",1618,25)
;;=EN1^FHADR10
;;^UTILITY(U,$J,"OPT",1618,"U")
;;=ENTER/EDIT DIETETIC SERVICE EQ
;;^UTILITY(U,$J,"OPT",1619,0)
;;=FHADRP^Print Annual Dietetic Report^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1619,1,0)
;;=^^1^1^2920227^^^
;;^UTILITY(U,$J,"OPT",1619,1,1,0)
;;=This option allows the user to print the Annual Dietetic Report.
;;^UTILITY(U,$J,"OPT",1619,25)
;;=EN1^FHADRPT
;;^UTILITY(U,$J,"OPT",1619,"U")
;;=PRINT ANNUAL DIETETIC REPORT
;;^UTILITY(U,$J,"OPT",1620,0)
;;=FHADRS^Purge Old Annual Dietetic Data^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1620,1,0)
;;=^^2^2^2930205^^^^
;;^UTILITY(U,$J,"OPT",1620,1,1,0)
;;=This option allows the user to Purge the Annual Dietetic Data
;;^UTILITY(U,$J,"OPT",1620,1,2,0)
;;=that is prior than three years from current year.
;;^UTILITY(U,$J,"OPT",1620,25)
;;=EN1^FHADRSY
;;^UTILITY(U,$J,"OPT",1620,"U")
;;=PURGE OLD ANNUAL DIETETIC DATA
;;^UTILITY(U,$J,"OPT",1621,0)
;;=FHADRR^Annual Report Management^^M^^^^^^^^DIETETICS^^1
;;^UTILITY(U,$J,"OPT",1621,1,0)
;;=^^3^3^2930513^^^^
;;^UTILITY(U,$J,"OPT",1621,1,1,0)
;;=This menu allows access to options necessary for data collection
;;^UTILITY(U,$J,"OPT",1621,1,2,0)
;;=and calculation for the seven sections in each quarter and allows
;;^UTILITY(U,$J,"OPT",1621,1,3,0)
;;=the user to print the final report.
;;^UTILITY(U,$J,"OPT",1621,10,0)
;;=^19.01PI^11^11
;;^UTILITY(U,$J,"OPT",1621,10,1,0)
;;=1611^EA^1
;;^UTILITY(U,$J,"OPT",1621,10,1,"^")
;;=FHADR1
;;^UTILITY(U,$J,"OPT",1621,10,2,0)
;;=1612^EC^3
;;^UTILITY(U,$J,"OPT",1621,10,2,"^")
;;=FHADR2
;;^UTILITY(U,$J,"OPT",1621,10,3,0)
;;=1613^EB^2
;;^UTILITY(U,$J,"OPT",1621,10,3,"^")
;;=FHADR3
;;^UTILITY(U,$J,"OPT",1621,10,4,0)
;;=1614^ED^4
;;^UTILITY(U,$J,"OPT",1621,10,4,"^")
;;=FHADR4
;;^UTILITY(U,$J,"OPT",1621,10,5,0)
;;=1615^EE^5
;;^UTILITY(U,$J,"OPT",1621,10,5,"^")
;;=FHADR5
;;^UTILITY(U,$J,"OPT",1621,10,6,0)
;;=1616^EF^6
;;^UTILITY(U,$J,"OPT",1621,10,6,"^")
;;=FHADR6
;;^UTILITY(U,$J,"OPT",1621,10,7,0)
;;=1617^EG^7
;;^UTILITY(U,$J,"OPT",1621,10,7,"^")
;;=FHADR7
;;^UTILITY(U,$J,"OPT",1621,10,8,0)
;;=1618^EH^8
;;^UTILITY(U,$J,"OPT",1621,10,8,"^")
;;=FHADR8
;;^UTILITY(U,$J,"OPT",1621,10,9,0)
;;=1619^PR^10
;;^UTILITY(U,$J,"OPT",1621,10,9,"^")
;;=FHADRP
;;^UTILITY(U,$J,"OPT",1621,10,10,0)
;;=1620^PU^11
;;^UTILITY(U,$J,"OPT",1621,10,10,"^")
;;=FHADRS
;;^UTILITY(U,$J,"OPT",1621,10,11,0)
;;=1636^EI^9
;;^UTILITY(U,$J,"OPT",1621,10,11,"^")
;;=FHADR9
;;^UTILITY(U,$J,"OPT",1621,20)
;;=S FHA1=8 D ^FHVER
;;^UTILITY(U,$J,"OPT",1621,99)
;;=56496,40617
;;^UTILITY(U,$J,"OPT",1621,"U")
;;=ANNUAL REPORT MANAGEMENT
;;^UTILITY(U,$J,"OPT",1622,0)
;;=FHING12^Enter/Edit Current Ingredient QOH^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1622,1,0)
;;=^^2^2^2920728^^^^
;;^UTILITY(U,$J,"OPT",1622,1,1,0)
;;=This option allows user to enter/edit Quantity On Hand one at the time
;;^UTILITY(U,$J,"OPT",1622,1,2,0)
;;=or either by Food Group Order or Storage Location.
;;^UTILITY(U,$J,"OPT",1622,20)
;;=
;;^UTILITY(U,$J,"OPT",1622,25)
;;=EN1^FHREP
;;^UTILITY(U,$J,"OPT",1622,"U")
;;=ENTER/EDIT CURRENT INGREDIENT
;;^UTILITY(U,$J,"OPT",1623,0)
;;=FHING13^Display Ingredient Inventory List^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1623,1,0)
;;=^^1^1^2920915^^^^
;;^UTILITY(U,$J,"OPT",1623,1,1,0)
;;=This option allow the user to display the Inventory Worksheet or Report.
;;^UTILITY(U,$J,"OPT",1623,20)
;;=
;;^UTILITY(U,$J,"OPT",1623,25)
;;=EN2^FHREP1
;;^UTILITY(U,$J,"OPT",1623,"U")
;;=DISPLAY INGREDIENT INVENTORY L
;;^UTILITY(U,$J,"OPT",1624,0)
;;=FHASE7^List Encounters^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",1624,1,0)
;;=^^2^2^2920501^
;;^UTILITY(U,$J,"OPT",1624,1,1,0)
;;=This option will list all encounters for a single clinician
;;^UTILITY(U,$J,"OPT",1624,1,2,0)
;;=based upon a starting and ending date.
;;^UTILITY(U,$J,"OPT",1624,25)
;;=IND^FHASE1
;;^UTILITY(U,$J,"OPT",1624,"U")
;;=LIST ENCOUNTERS
;;^UTILITY(U,$J,"OPT",1625,0)
;;=FHORTF5^Preparation/Delivery of Tubefeedings^^R^^^^^^^^DIETETICS
;;^UTILITY(U,$J,"OPT",1625,1,0)
;;=^^1^1^2930415^^^^
;;^UTILITY(U,$J,"OPT",1625,1,1,0)
;;=This option produces the Preparation/Delivery and the Pull List.
FHINI0O4 ; ; 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",1617,"U")
+2 ;;=ENTER/EDIT DIETETIC SATISFACTI
+3 ;;^UTILITY(U,$J,"OPT",1618,0)
+4 ;;=FHADR8^Enter/Edit Dietetic Service Equipment^^R^^^^^^^^DIETETICS
+5 ;;^UTILITY(U,$J,"OPT",1618,1,0)
+6 ;;=^^2^2^2930126^^
+7 ;;^UTILITY(U,$J,"OPT",1618,1,1,0)
+8 ;;=This option allows the user to indicate the Dietetic System
+9 ;;^UTILITY(U,$J,"OPT",1618,1,2,0)
+10 ;;=Equipment the facility has and the Brand of the Equipment.
+11 ;;^UTILITY(U,$J,"OPT",1618,25)
+12 ;;=EN1^FHADR10
+13 ;;^UTILITY(U,$J,"OPT",1618,"U")
+14 ;;=ENTER/EDIT DIETETIC SERVICE EQ
+15 ;;^UTILITY(U,$J,"OPT",1619,0)
+16 ;;=FHADRP^Print Annual Dietetic Report^^R^^^^^^^^DIETETICS
+17 ;;^UTILITY(U,$J,"OPT",1619,1,0)
+18 ;;=^^1^1^2920227^^^
+19 ;;^UTILITY(U,$J,"OPT",1619,1,1,0)
+20 ;;=This option allows the user to print the Annual Dietetic Report.
+21 ;;^UTILITY(U,$J,"OPT",1619,25)
+22 ;;=EN1^FHADRPT
+23 ;;^UTILITY(U,$J,"OPT",1619,"U")
+24 ;;=PRINT ANNUAL DIETETIC REPORT
+25 ;;^UTILITY(U,$J,"OPT",1620,0)
+26 ;;=FHADRS^Purge Old Annual Dietetic Data^^R^^^^^^^^DIETETICS
+27 ;;^UTILITY(U,$J,"OPT",1620,1,0)
+28 ;;=^^2^2^2930205^^^^
+29 ;;^UTILITY(U,$J,"OPT",1620,1,1,0)
+30 ;;=This option allows the user to Purge the Annual Dietetic Data
+31 ;;^UTILITY(U,$J,"OPT",1620,1,2,0)
+32 ;;=that is prior than three years from current year.
+33 ;;^UTILITY(U,$J,"OPT",1620,25)
+34 ;;=EN1^FHADRSY
+35 ;;^UTILITY(U,$J,"OPT",1620,"U")
+36 ;;=PURGE OLD ANNUAL DIETETIC DATA
+37 ;;^UTILITY(U,$J,"OPT",1621,0)
+38 ;;=FHADRR^Annual Report Management^^M^^^^^^^^DIETETICS^^1
+39 ;;^UTILITY(U,$J,"OPT",1621,1,0)
+40 ;;=^^3^3^2930513^^^^
+41 ;;^UTILITY(U,$J,"OPT",1621,1,1,0)
+42 ;;=This menu allows access to options necessary for data collection
+43 ;;^UTILITY(U,$J,"OPT",1621,1,2,0)
+44 ;;=and calculation for the seven sections in each quarter and allows
+45 ;;^UTILITY(U,$J,"OPT",1621,1,3,0)
+46 ;;=the user to print the final report.
+47 ;;^UTILITY(U,$J,"OPT",1621,10,0)
+48 ;;=^19.01PI^11^11
+49 ;;^UTILITY(U,$J,"OPT",1621,10,1,0)
+50 ;;=1611^EA^1
+51 ;;^UTILITY(U,$J,"OPT",1621,10,1,"^")
+52 ;;=FHADR1
+53 ;;^UTILITY(U,$J,"OPT",1621,10,2,0)
+54 ;;=1612^EC^3
+55 ;;^UTILITY(U,$J,"OPT",1621,10,2,"^")
+56 ;;=FHADR2
+57 ;;^UTILITY(U,$J,"OPT",1621,10,3,0)
+58 ;;=1613^EB^2
+59 ;;^UTILITY(U,$J,"OPT",1621,10,3,"^")
+60 ;;=FHADR3
+61 ;;^UTILITY(U,$J,"OPT",1621,10,4,0)
+62 ;;=1614^ED^4
+63 ;;^UTILITY(U,$J,"OPT",1621,10,4,"^")
+64 ;;=FHADR4
+65 ;;^UTILITY(U,$J,"OPT",1621,10,5,0)
+66 ;;=1615^EE^5
+67 ;;^UTILITY(U,$J,"OPT",1621,10,5,"^")
+68 ;;=FHADR5
+69 ;;^UTILITY(U,$J,"OPT",1621,10,6,0)
+70 ;;=1616^EF^6
+71 ;;^UTILITY(U,$J,"OPT",1621,10,6,"^")
+72 ;;=FHADR6
+73 ;;^UTILITY(U,$J,"OPT",1621,10,7,0)
+74 ;;=1617^EG^7
+75 ;;^UTILITY(U,$J,"OPT",1621,10,7,"^")
+76 ;;=FHADR7
+77 ;;^UTILITY(U,$J,"OPT",1621,10,8,0)
+78 ;;=1618^EH^8
+79 ;;^UTILITY(U,$J,"OPT",1621,10,8,"^")
+80 ;;=FHADR8
+81 ;;^UTILITY(U,$J,"OPT",1621,10,9,0)
+82 ;;=1619^PR^10
+83 ;;^UTILITY(U,$J,"OPT",1621,10,9,"^")
+84 ;;=FHADRP
+85 ;;^UTILITY(U,$J,"OPT",1621,10,10,0)
+86 ;;=1620^PU^11
+87 ;;^UTILITY(U,$J,"OPT",1621,10,10,"^")
+88 ;;=FHADRS
+89 ;;^UTILITY(U,$J,"OPT",1621,10,11,0)
+90 ;;=1636^EI^9
+91 ;;^UTILITY(U,$J,"OPT",1621,10,11,"^")
+92 ;;=FHADR9
+93 ;;^UTILITY(U,$J,"OPT",1621,20)
+94 ;;=S FHA1=8 D ^FHVER
+95 ;;^UTILITY(U,$J,"OPT",1621,99)
+96 ;;=56496,40617
+97 ;;^UTILITY(U,$J,"OPT",1621,"U")
+98 ;;=ANNUAL REPORT MANAGEMENT
+99 ;;^UTILITY(U,$J,"OPT",1622,0)
+100 ;;=FHING12^Enter/Edit Current Ingredient QOH^^R^^^^^^^^DIETETICS
+101 ;;^UTILITY(U,$J,"OPT",1622,1,0)
+102 ;;=^^2^2^2920728^^^^
+103 ;;^UTILITY(U,$J,"OPT",1622,1,1,0)
+104 ;;=This option allows user to enter/edit Quantity On Hand one at the time
+105 ;;^UTILITY(U,$J,"OPT",1622,1,2,0)
+106 ;;=or either by Food Group Order or Storage Location.
+107 ;;^UTILITY(U,$J,"OPT",1622,20)
+108 ;;=
+109 ;;^UTILITY(U,$J,"OPT",1622,25)
+110 ;;=EN1^FHREP
+111 ;;^UTILITY(U,$J,"OPT",1622,"U")
+112 ;;=ENTER/EDIT CURRENT INGREDIENT
+113 ;;^UTILITY(U,$J,"OPT",1623,0)
+114 ;;=FHING13^Display Ingredient Inventory List^^R^^^^^^^^DIETETICS
+115 ;;^UTILITY(U,$J,"OPT",1623,1,0)
+116 ;;=^^1^1^2920915^^^^
+117 ;;^UTILITY(U,$J,"OPT",1623,1,1,0)
+118 ;;=This option allow the user to display the Inventory Worksheet or Report.
+119 ;;^UTILITY(U,$J,"OPT",1623,20)
+120 ;;=
+121 ;;^UTILITY(U,$J,"OPT",1623,25)
+122 ;;=EN2^FHREP1
+123 ;;^UTILITY(U,$J,"OPT",1623,"U")
+124 ;;=DISPLAY INGREDIENT INVENTORY L
+125 ;;^UTILITY(U,$J,"OPT",1624,0)
+126 ;;=FHASE7^List Encounters^^R^^^^^^^^
+127 ;;^UTILITY(U,$J,"OPT",1624,1,0)
+128 ;;=^^2^2^2920501^
+129 ;;^UTILITY(U,$J,"OPT",1624,1,1,0)
+130 ;;=This option will list all encounters for a single clinician
+131 ;;^UTILITY(U,$J,"OPT",1624,1,2,0)
+132 ;;=based upon a starting and ending date.
+133 ;;^UTILITY(U,$J,"OPT",1624,25)
+134 ;;=IND^FHASE1
+135 ;;^UTILITY(U,$J,"OPT",1624,"U")
+136 ;;=LIST ENCOUNTERS
+137 ;;^UTILITY(U,$J,"OPT",1625,0)
+138 ;;=FHORTF5^Preparation/Delivery of Tubefeedings^^R^^^^^^^^DIETETICS
+139 ;;^UTILITY(U,$J,"OPT",1625,1,0)
+140 ;;=^^1^1^2930415^^^^
+141 ;;^UTILITY(U,$J,"OPT",1625,1,1,0)
+142 ;;=This option produces the Preparation/Delivery and the Pull List.
