NURSACE0 ;HIRMFO/RM-PT. CENSUS FOR CARE PLANS ;6/24/92
Source file <NURSACE0.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 |
Package | Total | Caller Graph |
---|---|---|
Nursing Service | 1 | NURCROP0 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CENSUS(BGT,EDT,RDT,SRT) | ;
; GIVEN BGT AS BEGINNING DATE FOR CENSUS, AND EDT AS ENDING DATE ; FOR CENSUS, RDT AS THE CURRENT DATE/TIME, AND SRT AS TO WHETHER ; THE DATA WILL BE BY ADMITTING LOC, OR ANY LOCATION PT WAS ON ; DURING THE LENGHT OF STAY, THIS ENTRY WILL CALCULATE THE CENSUS ; AND STORE IN ^TMP($J,"NURCEN",DFN,DGPM) ; GIVEN ARRAY NURSMAS(MASLOC) TO SCREEN OUT PARTICULAR LOCS. |
|
CHSTCEN | ; CHECK TO SEE IF PATIENT IN HOSPITAL, AND IF IS PUT IN CENSUS
|
|
MDATE(DGPM) | ; GET MOVEMENT DATE FOR MOVEMENT DGPM
|
|
TTYP(DGPM) | ; GET TRANSFER TYPE FOR MOVEMENT DGPM
|
|
CORRADM(DGPM) | ; GET CORRESPONDING ADMISSION FOR MOVEMENT DGPM
|
|
MASW(DGPM) | ; GET FREE TEXT MAS WARD FOR MOVEMENT DGPM
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPM - [#405] | CENSUS+9, MDATE+1, TTYP+1, CORRADM+1, MASW+1 |
^DGPM("AMV3" | CENSUS+8 |
^DGPM("APMV" | CHSTCEN+5 |
^DGPM("CN" | CENSUS+9 |
^DIC(42 - [#42] | MASW+1 |
^TMP($J | CENSUS+7!, CENSUS+10, CHSTCEN+2*, CHSTCEN+7* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BGT | CENSUS~, CENSUS+8, CHSTCEN+7 |
DFN | CENSUS+7~, CENSUS+8*, CENSUS+9*, CHSTCEN+2, CHSTCEN+5, CHSTCEN+7 |
DGCOR | CENSUS+7~, CHSTCEN+1*, CHSTCEN+2, CHSTCEN+5 |
DGMAS | CENSUS+7~, CHSTCEN+1*, CHSTCEN+2, CHSTCEN+6* |
DGMPM | CHSTCEN+4~, CHSTCEN+5*, CHSTCEN+6, CHSTCEN+7, CHSTCEN+8 |
DGNPM | CHSTCEN+4~, CHSTCEN+5*, CHSTCEN+7, CHSTCEN+8* |
DGPM | CENSUS+7~, CENSUS+8*, CENSUS+9*, CHSTCEN+1, CHSTCEN+2, MDATE~, MDATE+1, TTYP~, TTYP+1, CORRADM~ , CORRADM+1, MASW~, MASW+1 |
DSDT | CENSUS+7~, CENSUS+8* |
EDT | CENSUS~, CHSTCEN+2, CHSTCEN+7 |
MASW | CENSUS+7~, CENSUS+9*, CHSTCEN+1 |
MVDT | CHSTCEN+4~, CHSTCEN+5* |
>> NURSMAS( | CHSTCEN+2, CHSTCEN+7 |
NXDT | CHSTCEN+4~ |
RDT | CENSUS~, CENSUS+8 |
SRT | CENSUS~, CHSTCEN+2, CHSTCEN+3 |