NURSACEN ;HIRMFO/RM,FT-PATIENT CENSUS CALCULATION ;4/30/96 15:42
Source file <NURSACEN.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM("AMV3" | CALC+6 |
| ^DGPM("ATID1" | CALCADM+1 |
| ^DGPM("ATID2" | IFTXFR+3 |
| ^DGPM("ATID3" | IFADM+1 |
| ^DPT("CN" | CALC+5 |
| ^NURSF(211.4 - [#211.4] | NLOC+3 |
| ^TMP($J | CALC+4!, CALC+7!, IFDIS+1*, STUTL+3* |
| Name | Field # of Occurrence |
|---|---|
| ^(1 | NLOC+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | CALC+3~, CALC+5*, CALC+6*, IFADM+1, IFDIS+1, CALCADM+1, STUTL+3, IFTXFR+3 |
| IOST | CALC+5, CALC+6 |
| >> NDATE | IFTXFR+3* |
| NLOC | CALC+3~, STUTL+1, STUTL+2, STUTL+3, NLOC+2*, NLOC+3*, IFTXFR+2, IFTXFR+4* |
| NLOC(0 | IFTXFR+2*, IFTXFR+4 |
| >> NURCENDT | CALC+6, IFADM+1, CALCADM+1, STUTL+1, IFTXFR+3 |
| >> NURCUTDT | STUTL+2, IFTXFR+3 |
| NURSADM | CALC+3~, IFADM+1*, IFADM+2, IFDIS+1, CALCADM+1* |
| NURSDT | CALC+3~, IFADM+1*, IFDIS+1*, CALCADM+1* |
| NURSDT(0 | CALC+6*, IFDIS+1 |
| NURSI | CALC+3~, CALC+5* |
| >> NURSMAN | STUTL+1 |
| NURSWD | CALC+3~, CALC+5* |
| U | NLOC+3 |
| VAIN | CALC+3~ |
| VAIN(4 | NLOC+3 |
| VAIN(6 | NLOC+2 |
| >> VAINDT | STUTL+1*, IFTXFR+3* |
