; CHECK TO SEE IF A DISCHARGE EXISTS BETWEEN CENSUS DATE AND NOW
IFTXFR
; FIND IF PATIENT TRANSFERRED TO DIFFERENT NURSING LOCATION BETWEEN
; A CERTAIN CUTOFF DATE AND NURCENDT
STUTL
; SETS NLOC=NURSING LOCATION CORR. TO PT. LOC. AT NURCENDT.
NLOC
; GET NURSING LOCATION
IFADM
; CHECK TO SEE IF AN ADMISSION EXISTS FROM NURCENDT< ADMISSION < NOW
CALC
; CALCULATE PATIENT CENSUS FOR NURCENDT=DATE/TIME OF CENSUS
; NURCUTDT=$S(D/T FOR CUTOFF TXFR DATE OR 0 FOR NO CUTOFF)
; RETURNS ^TMP($J,"NURCEN",NLOC,DFN)=""