NURSACEN ;HIRMFO/RM,FT-PATIENT CENSUS CALCULATION ;4/30/96 15:42
Source file <NURSACEN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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)="" |
|
| IFADM | ; CHECK TO SEE IF AN ADMISSION EXISTS FROM NURCENDT< ADMISSION < NOW
|
|
| IFDIS | ; CHECK TO SEE IF A DISCHARGE EXISTS BETWEEN CENSUS DATE AND NOW
|
|
| CALCADM | ;
|
|
| STUTL | ; SETS NLOC=NURSING LOCATION CORR. TO PT. LOC. AT NURCENDT.
|
|
| NLOC | ; GET NURSING LOCATION
|
|
| IFTXFR | ; FIND IF PATIENT TRANSFERRED TO DIFFERENT NURSING LOCATION BETWEEN
; A CERTAIN CUTOFF DATE AND NURCENDT |
