Routine: ECXNUT1

Information

ECXNUT1 ;ALB/JRC Nutrition DSS Extract ; 9/4/09 8:59am

Source file <ECXNUT1.m>

Name	Comments	DBIA/ICR reference
GETMEALS	;get patient meals ; variable names: ordate - regular diet order date ; sdate - diet order npo/withhold date ; norder - "sf" or "so" order date ; note: there is a relationship ; between "sf", "so" and regular diets ; adate - admission date ; ddate - discharge date
INPPD
INPSF	;create supplemental feeding meals if they exist
INPSO	;create standing order meals if they exist
INPTF	;Get inpatient tube feedings
OPRM	;Get outpatient recurring meals
OPSO	;Get outpatient standing orders
OPSF	;Get outpatient supplemental feedings
OPTF	;Get outpatient tube feedings
OPSM	;Get outpatient special meals
OPGM	;Get outpatient guest meals
GETDATES()	;Get admit, discharge, npo/withhold dates,for "inp", "sf" and "so" ; return in string i.e. stop date^admission date^discharge date ; input: ecxadm - movement file ien ; fhdfn - nutrition patient file (#115)
NEWORDER(TYPE,DATE)	;Look for new order for inpatient meal type if exist ; Input ecxadm - movement # ; fhdfn - nutrition file (#115) fhdfn ; date - starting order date to begin lookup ; type - meal type "sf", "so", or "pd" ; Output: new order date and time for specific meal type
MEALCHK	;CHECK IF MEAL IS ON HOLD