FHINI0O2.m

FHINI0O2	; ; 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",1601,"U")

	;;=ENTER/EDIT COMMUNICATION OFFIC

	;;^UTILITY(U,$J,"OPT",1602,0)

	;;=FHPRO10^List Production/Service/Communication Facilities^^R^^^^^^^^

	;;^UTILITY(U,$J,"OPT",1602,1,0)

	;;=^^4^4^2940826^^^^

	;;^UTILITY(U,$J,"OPT",1602,1,1,0)

	;;=This option is used to produce a series of reports on each of the

	;;^UTILITY(U,$J,"OPT",1602,1,2,0)

	;;=Production Facilities, Service Points, Communication Offices, and

	;;^UTILITY(U,$J,"OPT",1602,1,3,0)

	;;=Supplemental Feeding Sites. The reports show all parameters

	;;^UTILITY(U,$J,"OPT",1602,1,4,0)

	;;=associated with each facility.

	;;^UTILITY(U,$J,"OPT",1602,25)

	;;=FHPRW1

	;;^UTILITY(U,$J,"OPT",1602,"U")

	;;=LIST PRODUCTION/SERVICE/COMMUN

	;;^UTILITY(U,$J,"OPT",1603,0)

	;;=FHX5^Update Patient Dietetic Location^^R^^^^^^^^

	;;^UTILITY(U,$J,"OPT",1603,1,0)

	;;=^^4^4^2950121^^^^

	;;^UTILITY(U,$J,"OPT",1603,1,1,0)

	;;=This option will determine the proper Dietetic Ward based upon

	;;^UTILITY(U,$J,"OPT",1603,1,2,0)

	;;=the Room-Bed (or Default MAS Ward if necessary) and insert the

	;;^UTILITY(U,$J,"OPT",1603,1,3,0)

	;;=location into the Dietetic Patient file for the appropriate

	;;^UTILITY(U,$J,"OPT",1603,1,4,0)

	;;=admission.

	;;^UTILITY(U,$J,"OPT",1603,25)

	;;=EN1^FHXWRD

	;;^UTILITY(U,$J,"OPT",1603,"U")

	;;=UPDATE PATIENT DIETETIC LOCATI

	;;^UTILITY(U,$J,"OPT",1604,0)

	;;=FHPRO11^Enter/Edit Supplemental Fdg. Sites^^R^^^^^^^^

	;;^UTILITY(U,$J,"OPT",1604,1,0)

	;;=^^3^3^2911204^

	;;^UTILITY(U,$J,"OPT",1604,1,1,0)

	;;=This option is used to enter and edit values for Supplemental

	;;^UTILITY(U,$J,"OPT",1604,1,2,0)

	;;=Feeding Sites. These sites assemble the supplemental feeding orders

	;;^UTILITY(U,$J,"OPT",1604,1,3,0)

	;;=for the wards which are asigned to them.

	;;^UTILITY(U,$J,"OPT",1604,25)

	;;=EN8^FHPRO

	;;^UTILITY(U,$J,"OPT",1604,"U")

	;;=ENTER/EDIT SUPPLEMENTAL FDG. S

	;;^UTILITY(U,$J,"OPT",1606,0)

	;;=FHPRG^Dietetic Facilities^^M^^^^^^^^

	;;^UTILITY(U,$J,"OPT",1606,1,0)

	;;=^^2^2^2920221^

	;;^UTILITY(U,$J,"OPT",1606,1,1,0)

	;;=This is a menu which allows the manager to build basic files

	;;^UTILITY(U,$J,"OPT",1606,1,2,0)

	;;=relating to the facilities available in the Dietetic Service.

	;;^UTILITY(U,$J,"OPT",1606,10,0)

	;;=^19.01PI^8^8

	;;^UTILITY(U,$J,"OPT",1606,10,1,0)

	;;=1601^CE

	;;^UTILITY(U,$J,"OPT",1606,10,1,"^")

	;;=FHPRO9

	;;^UTILITY(U,$J,"OPT",1606,10,2,0)

	;;=1599^FE

	;;^UTILITY(U,$J,"OPT",1606,10,2,"^")

	;;=FHPRO7

	;;^UTILITY(U,$J,"OPT",1606,10,3,0)

	;;=1604^NE

	;;^UTILITY(U,$J,"OPT",1606,10,3,"^")

	;;=FHPRO11

	;;^UTILITY(U,$J,"OPT",1606,10,4,0)

	;;=1600^SE

	;;^UTILITY(U,$J,"OPT",1606,10,4,"^")

	;;=FHPRO8

	;;^UTILITY(U,$J,"OPT",1606,10,5,0)

	;;=1602^SL

	;;^UTILITY(U,$J,"OPT",1606,10,5,"^")

	;;=FHPRO10

	;;^UTILITY(U,$J,"OPT",1606,10,6,0)

	;;=1458^WE

	;;^UTILITY(U,$J,"OPT",1606,10,6,"^")

	;;=FHPRO2

	;;^UTILITY(U,$J,"OPT",1606,10,7,0)

	;;=1552^WL

	;;^UTILITY(U,$J,"OPT",1606,10,7,"^")

	;;=FHPRO6

	;;^UTILITY(U,$J,"OPT",1606,10,8,0)

	;;=1409^SP

	;;^UTILITY(U,$J,"OPT",1606,10,8,"^")

	;;=FHSITE

	;;^UTILITY(U,$J,"OPT",1606,99)

	;;=56496,40780

	;;^UTILITY(U,$J,"OPT",1606,"U")

	;;=DIETETIC FACILITIES

	;;^UTILITY(U,$J,"OPT",1607,0)

	;;=FHASNR2^Nutrition Status Matrix^^R^^^^^^^^DIETETICS

	;;^UTILITY(U,$J,"OPT",1607,1,0)

	;;=^^3^3^2930415^

	;;^UTILITY(U,$J,"OPT",1607,1,1,0)

	;;=This option allows user to print in matrix form the changes of

	;;^UTILITY(U,$J,"OPT",1607,1,2,0)

	;;=inpatients' Nutrition Statuses from admission to XX number

	;;^UTILITY(U,$J,"OPT",1607,1,3,0)

	;;=of days or a selected start date to end date.

	;;^UTILITY(U,$J,"OPT",1607,25)

	;;=FHASN3

	;;^UTILITY(U,$J,"OPT",1607,"U")

	;;=NUTRITION STATUS MATRIX

	;;^UTILITY(U,$J,"OPT",1608,0)

	;;=FHCMRR1^Enter/Edit Cost of Meals Served^^R^^^^^^^^DIETETICS

	;;^UTILITY(U,$J,"OPT",1608,1,0)

	;;=^^1^1^2920227^^^^

	;;^UTILITY(U,$J,"OPT",1608,1,1,0)

	;;=This option allows user to enter or edit Cost of Meals Served.

	;;^UTILITY(U,$J,"OPT",1608,25)

	;;=EN1^FHCMSR

	;;^UTILITY(U,$J,"OPT",1608,"U")

	;;=ENTER/EDIT COST OF MEALS SERVE

	;;^UTILITY(U,$J,"OPT",1609,0)

	;;=FHCMRR2^Cost of Meals Served Report^^R^^^^^^^^DIETETICS

	;;^UTILITY(U,$J,"OPT",1609,1,0)

	;;=^^2^2^2921014^^^

	;;^UTILITY(U,$J,"OPT",1609,1,1,0)

	;;=This option allows the user to print the Cost of Meals Served Report

	;;^UTILITY(U,$J,"OPT",1609,1,2,0)

	;;=from a selected Month/Year to a selected Month/Year.

	;;^UTILITY(U,$J,"OPT",1609,25)

	;;=EN2^FHCMSR

	;;^UTILITY(U,$J,"OPT",1609,"U")

	;;=COST OF MEALS SERVED REPORT

	;;^UTILITY(U,$J,"OPT",1610,0)

	;;=FHPRC12^Print Weekly Menu Blocks^^R^^^^^^^^DIETETICS

	;;^UTILITY(U,$J,"OPT",1610,1,0)

	;;=^^5^5^2940104^^^^

FHINI0O2  ; ; 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",1601,"U")

 +2       ;;=ENTER/EDIT COMMUNICATION OFFIC

 +3       ;;^UTILITY(U,$J,"OPT",1602,0)

 +4       ;;=FHPRO10^List Production/Service/Communication Facilities^^R^^^^^^^^

 +5       ;;^UTILITY(U,$J,"OPT",1602,1,0)

 +6       ;;=^^4^4^2940826^^^^

 +7       ;;^UTILITY(U,$J,"OPT",1602,1,1,0)

 +8       ;;=This option is used to produce a series of reports on each of the

 +9       ;;^UTILITY(U,$J,"OPT",1602,1,2,0)

 +10      ;;=Production Facilities, Service Points, Communication Offices, and

 +11      ;;^UTILITY(U,$J,"OPT",1602,1,3,0)

 +12      ;;=Supplemental Feeding Sites. The reports show all parameters

 +13      ;;^UTILITY(U,$J,"OPT",1602,1,4,0)

 +14      ;;=associated with each facility.

 +15      ;;^UTILITY(U,$J,"OPT",1602,25)

 +16      ;;=FHPRW1

 +17      ;;^UTILITY(U,$J,"OPT",1602,"U")

 +18      ;;=LIST PRODUCTION/SERVICE/COMMUN

 +19      ;;^UTILITY(U,$J,"OPT",1603,0)

 +20      ;;=FHX5^Update Patient Dietetic Location^^R^^^^^^^^

 +21      ;;^UTILITY(U,$J,"OPT",1603,1,0)

 +22      ;;=^^4^4^2950121^^^^

 +23      ;;^UTILITY(U,$J,"OPT",1603,1,1,0)

 +24      ;;=This option will determine the proper Dietetic Ward based upon

 +25      ;;^UTILITY(U,$J,"OPT",1603,1,2,0)

 +26      ;;=the Room-Bed (or Default MAS Ward if necessary) and insert the

 +27      ;;^UTILITY(U,$J,"OPT",1603,1,3,0)

 +28      ;;=location into the Dietetic Patient file for the appropriate

 +29      ;;^UTILITY(U,$J,"OPT",1603,1,4,0)

 +30      ;;=admission.

 +31      ;;^UTILITY(U,$J,"OPT",1603,25)

 +32      ;;=EN1^FHXWRD

 +33      ;;^UTILITY(U,$J,"OPT",1603,"U")

 +34      ;;=UPDATE PATIENT DIETETIC LOCATI

 +35      ;;^UTILITY(U,$J,"OPT",1604,0)

 +36      ;;=FHPRO11^Enter/Edit Supplemental Fdg. Sites^^R^^^^^^^^

 +37      ;;^UTILITY(U,$J,"OPT",1604,1,0)

 +38      ;;=^^3^3^2911204^

 +39      ;;^UTILITY(U,$J,"OPT",1604,1,1,0)

 +40      ;;=This option is used to enter and edit values for Supplemental

 +41      ;;^UTILITY(U,$J,"OPT",1604,1,2,0)

 +42      ;;=Feeding Sites. These sites assemble the supplemental feeding orders

 +43      ;;^UTILITY(U,$J,"OPT",1604,1,3,0)

 +44      ;;=for the wards which are asigned to them.

 +45      ;;^UTILITY(U,$J,"OPT",1604,25)

 +46      ;;=EN8^FHPRO

 +47      ;;^UTILITY(U,$J,"OPT",1604,"U")

 +48      ;;=ENTER/EDIT SUPPLEMENTAL FDG. S

 +49      ;;^UTILITY(U,$J,"OPT",1606,0)

 +50      ;;=FHPRG^Dietetic Facilities^^M^^^^^^^^

 +51      ;;^UTILITY(U,$J,"OPT",1606,1,0)

 +52      ;;=^^2^2^2920221^

 +53      ;;^UTILITY(U,$J,"OPT",1606,1,1,0)

 +54      ;;=This is a menu which allows the manager to build basic files

 +55      ;;^UTILITY(U,$J,"OPT",1606,1,2,0)

 +56      ;;=relating to the facilities available in the Dietetic Service.

 +57      ;;^UTILITY(U,$J,"OPT",1606,10,0)

 +58      ;;=^19.01PI^8^8

 +59      ;;^UTILITY(U,$J,"OPT",1606,10,1,0)

 +60      ;;=1601^CE

 +61      ;;^UTILITY(U,$J,"OPT",1606,10,1,"^")

 +62      ;;=FHPRO9

 +63      ;;^UTILITY(U,$J,"OPT",1606,10,2,0)

 +64      ;;=1599^FE

 +65      ;;^UTILITY(U,$J,"OPT",1606,10,2,"^")

 +66      ;;=FHPRO7

 +67      ;;^UTILITY(U,$J,"OPT",1606,10,3,0)

 +68      ;;=1604^NE

 +69      ;;^UTILITY(U,$J,"OPT",1606,10,3,"^")

 +70      ;;=FHPRO11

 +71      ;;^UTILITY(U,$J,"OPT",1606,10,4,0)

 +72      ;;=1600^SE

 +73      ;;^UTILITY(U,$J,"OPT",1606,10,4,"^")

 +74      ;;=FHPRO8

 +75      ;;^UTILITY(U,$J,"OPT",1606,10,5,0)

 +76      ;;=1602^SL

 +77      ;;^UTILITY(U,$J,"OPT",1606,10,5,"^")

 +78      ;;=FHPRO10

 +79      ;;^UTILITY(U,$J,"OPT",1606,10,6,0)

 +80      ;;=1458^WE

 +81      ;;^UTILITY(U,$J,"OPT",1606,10,6,"^")

 +82      ;;=FHPRO2

 +83      ;;^UTILITY(U,$J,"OPT",1606,10,7,0)

 +84      ;;=1552^WL

 +85      ;;^UTILITY(U,$J,"OPT",1606,10,7,"^")

 +86      ;;=FHPRO6

 +87      ;;^UTILITY(U,$J,"OPT",1606,10,8,0)

 +88      ;;=1409^SP

 +89      ;;^UTILITY(U,$J,"OPT",1606,10,8,"^")

 +90      ;;=FHSITE

 +91      ;;^UTILITY(U,$J,"OPT",1606,99)

 +92      ;;=56496,40780

 +93      ;;^UTILITY(U,$J,"OPT",1606,"U")

 +94      ;;=DIETETIC FACILITIES

 +95      ;;^UTILITY(U,$J,"OPT",1607,0)

 +96      ;;=FHASNR2^Nutrition Status Matrix^^R^^^^^^^^DIETETICS

 +97      ;;^UTILITY(U,$J,"OPT",1607,1,0)

 +98      ;;=^^3^3^2930415^

 +99      ;;^UTILITY(U,$J,"OPT",1607,1,1,0)

 +100     ;;=This option allows user to print in matrix form the changes of

 +101     ;;^UTILITY(U,$J,"OPT",1607,1,2,0)

 +102     ;;=inpatients' Nutrition Statuses from admission to XX number

 +103     ;;^UTILITY(U,$J,"OPT",1607,1,3,0)

 +104     ;;=of days or a selected start date to end date.

 +105     ;;^UTILITY(U,$J,"OPT",1607,25)

 +106     ;;=FHASN3

 +107     ;;^UTILITY(U,$J,"OPT",1607,"U")

 +108     ;;=NUTRITION STATUS MATRIX

 +109     ;;^UTILITY(U,$J,"OPT",1608,0)

 +110     ;;=FHCMRR1^Enter/Edit Cost of Meals Served^^R^^^^^^^^DIETETICS

 +111     ;;^UTILITY(U,$J,"OPT",1608,1,0)

 +112     ;;=^^1^1^2920227^^^^

 +113     ;;^UTILITY(U,$J,"OPT",1608,1,1,0)

 +114     ;;=This option allows user to enter or edit Cost of Meals Served.

 +115     ;;^UTILITY(U,$J,"OPT",1608,25)

 +116     ;;=EN1^FHCMSR

 +117     ;;^UTILITY(U,$J,"OPT",1608,"U")

 +118     ;;=ENTER/EDIT COST OF MEALS SERVE

 +119     ;;^UTILITY(U,$J,"OPT",1609,0)

 +120     ;;=FHCMRR2^Cost of Meals Served Report^^R^^^^^^^^DIETETICS

 +121     ;;^UTILITY(U,$J,"OPT",1609,1,0)

 +122     ;;=^^2^2^2921014^^^

 +123     ;;^UTILITY(U,$J,"OPT",1609,1,1,0)

 +124     ;;=This option allows the user to print the Cost of Meals Served Report

 +125     ;;^UTILITY(U,$J,"OPT",1609,1,2,0)

 +126     ;;=from a selected Month/Year to a selected Month/Year.

 +127     ;;^UTILITY(U,$J,"OPT",1609,25)

 +128     ;;=EN2^FHCMSR

 +129     ;;^UTILITY(U,$J,"OPT",1609,"U")

 +130     ;;=COST OF MEALS SERVED REPORT

 +131     ;;^UTILITY(U,$J,"OPT",1610,0)

 +132     ;;=FHPRC12^Print Weekly Menu Blocks^^R^^^^^^^^DIETETICS

 +133     ;;^UTILITY(U,$J,"OPT",1610,1,0)

 +134     ;;=^^5^5^2940104^^^^