©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
NURAMB1 ;HIRMFO/MD,FT-BATCH JOB TO UPDATE ACUITY RUN ;2/27/98 14:21
Source file <NURAMB1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1 | ; ENTRY FROM MANHOUR NIGHT SHIFT ACUITY
; SUBROUTINE TO CALCULATE ACUITY FOR HOSPITAL |
|
| ACUIT | ; LOOP THROUGH ^TMP($J,"NURCEN") TO STORE LATEST CLASS DATA IN FILE 213.4
; SETS NURSDT,NURCENDT AS THE BEGINNING AND ENDING DATES FOR SEARCH |
|
| QUIT | ;KILL VARIABLES/ROUTINE EXIT POINT
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(213.9 - [#213.9] | ACUIT+3, ACUIT+15*, ACUIT+18* |
| ^NURSA(214.6 - [#214.6] | ACUIT+8 |
| ^NURSF(211.4 - [#211.4] | ACUIT+7, ACUIT+14 |
| ^NURSF(213.3 - [#213.3] | ACUIT+6 |
| ^TMP($J | ACUIT+5, QUIT+1! |
| Name | Line Occurrences |
|---|---|
| QUIT | ACUIT+3 |
| Name | Field # of Occurrence |
|---|---|
| ^("DATE" | ACUIT+18* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BEDSECT | ACUIT+6*, ACUIT+7, ACUIT+10*, ACUIT+11* |
| >> CLASS | ACUIT+10*, ACUIT+13 |
| >> DFN | ACUIT+5*, ACUIT+15 |
| >> DFN(2 | ACUIT+5 |
| >> I | ACUIT+12* |
| IOST | ACUIT+8 |
| >> NBEDSECT | ACUIT+7* |
| >> NCLASS( | ACUIT+12*, ACUIT+13* |
| >> NCWARD | ACUIT+7*, ACUIT+10*, ACUIT+14, ACUIT+15 |
| >> NLOC | ACUIT+5*, ACUIT+7, ACUIT+8, ACUIT+9 |
| >> NURCENDT | ACUIT+4* |
| >> NURCUTDT | ACUIT+4* |
| >> NURDAT | ACUIT+8*, ACUIT+9, ACUIT+10 |
| >> NURDAY | EN1+2*, ACUIT+4 |
| >> NURSCLAS | ACUIT+8 |
| >> NURSCLAS("CL" | ACUIT+8* |
| >> NURSCLAS("WARD" | ACUIT+8* |
| >> NURSHFT | EN1+2* |
| >> NURTIME | ACUIT+3*, ACUIT+4 |
| >> NURTYPE | EN1+2* |
| >> NWARD | ACUIT+7* |
| >> NWARD(2 | ACUIT+5 |
| >> OUTSW(2 | ACUIT+2 |
| >> RPTDATE | EN1+2 |
| >> SHIFT | ACUIT+7*, ACUIT+14* |
| U | ACUIT+3, ACUIT+9, ACUIT+10, ACUIT+14, ACUIT+15, ACUIT+18 |