©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
NURCRL2 ;HIRMFO/RM-PT. CENSUS FOR CARE PLANS ;9/10/91
Source file <NURCRL2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MASW(DGPM) | ; GET FREE TEXT MAS WARD FOR MOVEMENT DGPM
|
|
| TTYP(DGPM) | ; GET TRANSFER TYPE FOR MOVEMENT DGPM
|
|
| CHSTCEN | ; CHECK TO SEE IF PATIENT IN HOSPITAL, AND IF IS PUT IN CENSUS
|
|
| 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. |
|
| CORRADM(DGPM) | ; GET CORRESPONDING ADMISSION FOR MOVEMENT DGPM
|
|
| MDATE(DGPM) | ; GET MOVEMENT DATE 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* |
| Name | Line Occurrences |
|---|---|
| $$CORRADM | CHSTCEN+1 |
| $$MASW | CHSTCEN+1, CHSTCEN+6, CHSTCEN+7 |
| $$MDATE | CHSTCEN+2, CHSTCEN+7 |
| $$TTYP | CHSTCEN+5 |
| CHSTCEN | CENSUS+8, CENSUS+9 |
| >> | 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 |