FHINI0NI.m

FHINI0NI	; ; 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",1457,0)

	;;=FHNO8^Enter/Edit Bulk Ward Feedings^^R^^^^^^^^

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

	;;=^^2^2^2941019^^^^

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

	;;=This option allows for adding/editing bulk feeding items to be

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

	;;=delivered to each ward.

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

	;;=FHNO4

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

	;;=ENTER/EDIT BULK WARD FEEDINGS

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

	;;=FHPRO2^Enter/Edit Dietetic Wards^^R^^^^^^^^

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

	;;=^^3^3^2940413^^^^

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

	;;=This option allows for creating/editing of wards in the

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

	;;=Dietetics Ward file (119.6). Wards are selected from those

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

	;;=defined by the MAS ADT system.

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

	;;=EN2^FHPRO

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

	;;=ENTER/EDIT DIETETIC WARDS

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

	;;=FHORD7^List Diets^^R^^^^^^^^

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

	;;=^^2^2^2880714^

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

	;;=This option will list all diets contained in the Diets file (111)

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

	;;=along with all associated data elements.

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

	;;=EN2^FHORD

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

	;;=LIST DIETS

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

	;;=FHORC5^Enter/Edit Ward Assignments^^R^^^^^^^^

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

	;;=^^3^3^2880716^^

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

	;;=This option allows for the assignment of clinicians to each

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

	;;=ward. This assignment will be used to assign consults arising

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

	;;=from that ward to the indicated clinician.

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

	;;=EN9^FHORC5

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

	;;=55481,41901

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

	;;=ENTER/EDIT WARD ASSIGNMENTS

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

	;;=FHORD9^Patient Profile^^R^^^^^^^^

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

	;;=^^5^5^2950929^^^^

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

	;;=This option will produce a comprehensive display of most

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

	;;=dietetic orders and data associated with a patient's

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

	;;=admission. It includes diet orders, active or saved consults,

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

	;;=early/late tray requests for the next 72 hours, standing

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

	;;=orders, tubefeedings, supplemental feedings, etc.

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

	;;=FHORD6

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

	;;=PATIENT PROFILE

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

	;;=FHNO9^Review Bulk Ward Feedings^^R^^^^^^^^

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

	;;=^^2^2^2880717^^

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

	;;=This option will display the bulk ward supplemental feeding

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

	;;=items currently ordered for any selected ward.

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

	;;=EN2^FHNO4

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

	;;=REVIEW BULK WARD FEEDINGS

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

	;;=FHNO10^Print Bulk Feedings/Cost Report^^R^^^^^^^^

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

	;;=^^4^4^2911212^^^

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

	;;=This option will produce a delivery listing or labels

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

	;;=for all bulk supplemental feedings for all wards served by a

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

	;;=Supplemental Feeding Site. A cost report and consolidated pick

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

	;;=list will also be produced.

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

	;;=FHNO41

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

	;;=PRINT BULK FEEDINGS/COST REPOR

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

	;;=FHORI1^Enter/Edit Isolation/Precaution Types^^R^^^^^^^^

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

	;;=^^2^2^2880717^

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

	;;=This option allows for the creation/editing of entries in the

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

	;;=Isolation/Precaution Type file (119.4).

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

	;;=EN1^FHORD4

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

	;;=ENTER/EDIT ISOLATION/PRECAUTIO

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

	;;=FHORI2^List Isolation/Precaution Types^^R^^^^^^^^

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

	;;=^^3^3^2880717^

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

	;;=This option will list all of the current entries in the

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

	;;=Isolation/Precaution Type file (119.4) along with the

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

	;;=associated data elements.

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

	;;=EN2^FHORD4

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

	;;=LIST ISOLATION/PRECAUTION TYPE

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

	;;=FHORCX^Consult Management^^M^^^^^^^^

FHINI0NI  ; ; 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",1457,0)

 +2       ;;=FHNO8^Enter/Edit Bulk Ward Feedings^^R^^^^^^^^

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

 +4       ;;=^^2^2^2941019^^^^

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

 +6       ;;=This option allows for adding/editing bulk feeding items to be

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

 +8       ;;=delivered to each ward.

 +9       ;;^UTILITY(U,$J,"OPT",1457,25)

 +10      ;;=FHNO4

 +11      ;;^UTILITY(U,$J,"OPT",1457,"U")

 +12      ;;=ENTER/EDIT BULK WARD FEEDINGS

 +13      ;;^UTILITY(U,$J,"OPT",1458,0)

 +14      ;;=FHPRO2^Enter/Edit Dietetic Wards^^R^^^^^^^^

 +15      ;;^UTILITY(U,$J,"OPT",1458,1,0)

 +16      ;;=^^3^3^2940413^^^^

 +17      ;;^UTILITY(U,$J,"OPT",1458,1,1,0)

 +18      ;;=This option allows for creating/editing of wards in the

 +19      ;;^UTILITY(U,$J,"OPT",1458,1,2,0)

 +20      ;;=Dietetics Ward file (119.6). Wards are selected from those

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

 +22      ;;=defined by the MAS ADT system.

 +23      ;;^UTILITY(U,$J,"OPT",1458,25)

 +24      ;;=EN2^FHPRO

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

 +26      ;;=ENTER/EDIT DIETETIC WARDS

 +27      ;;^UTILITY(U,$J,"OPT",1459,0)

 +28      ;;=FHORD7^List Diets^^R^^^^^^^^

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

 +30      ;;=^^2^2^2880714^

 +31      ;;^UTILITY(U,$J,"OPT",1459,1,1,0)

 +32      ;;=This option will list all diets contained in the Diets file (111)

 +33      ;;^UTILITY(U,$J,"OPT",1459,1,2,0)

 +34      ;;=along with all associated data elements.

 +35      ;;^UTILITY(U,$J,"OPT",1459,25)

 +36      ;;=EN2^FHORD

 +37      ;;^UTILITY(U,$J,"OPT",1459,"U")

 +38      ;;=LIST DIETS

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

 +40      ;;=FHORC5^Enter/Edit Ward Assignments^^R^^^^^^^^

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

 +42      ;;=^^3^3^2880716^^

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

 +44      ;;=This option allows for the assignment of clinicians to each

 +45      ;;^UTILITY(U,$J,"OPT",1460,1,2,0)

 +46      ;;=ward. This assignment will be used to assign consults arising

 +47      ;;^UTILITY(U,$J,"OPT",1460,1,3,0)

 +48      ;;=from that ward to the indicated clinician.

 +49      ;;^UTILITY(U,$J,"OPT",1460,25)

 +50      ;;=EN9^FHORC5

 +51      ;;^UTILITY(U,$J,"OPT",1460,99)

 +52      ;;=55481,41901

 +53      ;;^UTILITY(U,$J,"OPT",1460,"U")

 +54      ;;=ENTER/EDIT WARD ASSIGNMENTS

 +55      ;;^UTILITY(U,$J,"OPT",1461,0)

 +56      ;;=FHORD9^Patient Profile^^R^^^^^^^^

 +57      ;;^UTILITY(U,$J,"OPT",1461,1,0)

 +58      ;;=^^5^5^2950929^^^^

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

 +60      ;;=This option will produce a comprehensive display of most

 +61      ;;^UTILITY(U,$J,"OPT",1461,1,2,0)

 +62      ;;=dietetic orders and data associated with a patient's

 +63      ;;^UTILITY(U,$J,"OPT",1461,1,3,0)

 +64      ;;=admission. It includes diet orders, active or saved consults,

 +65      ;;^UTILITY(U,$J,"OPT",1461,1,4,0)

 +66      ;;=early/late tray requests for the next 72 hours, standing

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

 +68      ;;=orders, tubefeedings, supplemental feedings, etc.

 +69      ;;^UTILITY(U,$J,"OPT",1461,25)

 +70      ;;=FHORD6

 +71      ;;^UTILITY(U,$J,"OPT",1461,"U")

 +72      ;;=PATIENT PROFILE

 +73      ;;^UTILITY(U,$J,"OPT",1462,0)

 +74      ;;=FHNO9^Review Bulk Ward Feedings^^R^^^^^^^^

 +75      ;;^UTILITY(U,$J,"OPT",1462,1,0)

 +76      ;;=^^2^2^2880717^^

 +77      ;;^UTILITY(U,$J,"OPT",1462,1,1,0)

 +78      ;;=This option will display the bulk ward supplemental feeding

 +79      ;;^UTILITY(U,$J,"OPT",1462,1,2,0)

 +80      ;;=items currently ordered for any selected ward.

 +81      ;;^UTILITY(U,$J,"OPT",1462,25)

 +82      ;;=EN2^FHNO4

 +83      ;;^UTILITY(U,$J,"OPT",1462,"U")

 +84      ;;=REVIEW BULK WARD FEEDINGS

 +85      ;;^UTILITY(U,$J,"OPT",1463,0)

 +86      ;;=FHNO10^Print Bulk Feedings/Cost Report^^R^^^^^^^^

 +87      ;;^UTILITY(U,$J,"OPT",1463,1,0)

 +88      ;;=^^4^4^2911212^^^

 +89      ;;^UTILITY(U,$J,"OPT",1463,1,1,0)

 +90      ;;=This option will produce a delivery listing or labels

 +91      ;;^UTILITY(U,$J,"OPT",1463,1,2,0)

 +92      ;;=for all bulk supplemental feedings for all wards served by a

 +93      ;;^UTILITY(U,$J,"OPT",1463,1,3,0)

 +94      ;;=Supplemental Feeding Site. A cost report and consolidated pick

 +95      ;;^UTILITY(U,$J,"OPT",1463,1,4,0)

 +96      ;;=list will also be produced.

 +97      ;;^UTILITY(U,$J,"OPT",1463,25)

 +98      ;;=FHNO41

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

 +100     ;;=PRINT BULK FEEDINGS/COST REPOR

 +101     ;;^UTILITY(U,$J,"OPT",1464,0)

 +102     ;;=FHORI1^Enter/Edit Isolation/Precaution Types^^R^^^^^^^^

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

 +104     ;;=^^2^2^2880717^

 +105     ;;^UTILITY(U,$J,"OPT",1464,1,1,0)

 +106     ;;=This option allows for the creation/editing of entries in the

 +107     ;;^UTILITY(U,$J,"OPT",1464,1,2,0)

 +108     ;;=Isolation/Precaution Type file (119.4).

 +109     ;;^UTILITY(U,$J,"OPT",1464,25)

 +110     ;;=EN1^FHORD4

 +111     ;;^UTILITY(U,$J,"OPT",1464,"U")

 +112     ;;=ENTER/EDIT ISOLATION/PRECAUTIO

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

 +114     ;;=FHORI2^List Isolation/Precaution Types^^R^^^^^^^^

 +115     ;;^UTILITY(U,$J,"OPT",1465,1,0)

 +116     ;;=^^3^3^2880717^

 +117     ;;^UTILITY(U,$J,"OPT",1465,1,1,0)

 +118     ;;=This option will list all of the current entries in the

 +119     ;;^UTILITY(U,$J,"OPT",1465,1,2,0)

 +120     ;;=Isolation/Precaution Type file (119.4) along with the

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

 +122     ;;=associated data elements.

 +123     ;;^UTILITY(U,$J,"OPT",1465,25)

 +124     ;;=EN2^FHORD4

 +125     ;;^UTILITY(U,$J,"OPT",1465,"U")

 +126     ;;=LIST ISOLATION/PRECAUTION TYPE

 +127     ;;^UTILITY(U,$J,"OPT",1466,0)

 +128     ;;=FHORCX^Consult Management^^M^^^^^^^^