©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
BDGIPL31 ; IHS/ANMC/LJF - CALCULATE LIST BY WARD/ROOM ;
Source file <BDGIPL31.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To ADT | 1 | $$ACTWD^BDGPAR |
| IHS VA Utilities | 1 | ENP^XBDIQ1 |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OOSB(Y) | ; -- bed out of service
|
|
| MULTUSE(W,R) | ; -- don't print if room-bed used by other wards
|
|
| PAT | ; set inpatients into array by ward/room
|
|
| OWD | ; -- one ward
|
|
| ROOMS(WD) | ; loop thru rooms in a ward
|
|
| INACT(Y) | ; -- ward inactive?
|
|
| PEND | ;EP; -- pending SDA/DSO/DSU patients for ward
|
|
| AWD | ; -- all wards
|
| FileNo | Call Tags |
|---|---|
| ^SRF - [#130] | GET1^DIQ |
| ^SRO(137.45 - [#137.45] | GET1^DIQ |
| ^DPT - [#2] | GET1^DIQ |
| ^DG(405.4 - [#405.4] | GET1^DIQ |
| ^DIC(42 - [#42] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(405.4 - [#405.4] | AWD+3, ROOMS+2, OOSB+1, OOSB+2, MULTUSE+3, MULTUSE+9 |
| ^DGPM("ARM" | MULTUSE+6 |
| ^DPT - [#2] | PAT+2 |
| ^DPT("CN" | AWD+7, AWD+8, OWD+4, MULTUSE+12 |
| ^DPT("RM" | MULTUSE+9 |
| ^SRF("AC" | BDGIPL31+11, PEND+3, PEND+4 |
| ^TMP("BDGIPL1" | BDGIPL31+4!, ROOMS+6*, PAT+6*, PAT+9*, PEND+21* |
| Name | Line Occurrences |
|---|---|
| $$MULTUSE | ROOMS+5 |
| $$OOSB | ROOMS+2 |
| AWD | BDGIPL31+8 |
| OWD | BDGIPL31+8 |
| PAT | AWD+8, OWD+4 |
| PEND | BDGIPL31+11 |
| ROOMS | AWD+4, OWD+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | OOSB+2 |
| ^("AINV" | OOSB+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | PEND+1~, PEND+13*, PEND+15, PEND+17 |
| >> BDGSRT | BDGIPL31+5 |
| DFN | AWD+1~, AWD+8*, OWD+1~, OWD+4*, PAT+2, PAT+6, PAT+9, PEND+1~, PEND+13*, PEND+20 , PEND+21 |
| DGRR | PEND+19~ |
| DGRR( | PEND+21 |
| DGRR(10 | PEND+20, PEND+21 |
| DGRR(26 | PEND+21 |
| DGWST | BDGIPL31+3~, BDGIPL31+5*, BDGIPL31+8, OWD+2, PEND+16 |
| DT | BDGIPL31+11, OOSB+3, PEND+2 |
| END | PEND+1~, PEND+2*, PEND+3 |
| IEN | PEND+1~, PEND+4*, PEND+7, PEND+8, PEND+10, PEND+13, PEND+14, PEND+19 |
| ORDER | ROOMS+1~, ROOMS+3*, ROOMS+6 |
| R | MULTUSE~, MULTUSE+3, MULTUSE+6, MULTUSE+9 |
| RB | ROOMS+1~, ROOMS+2*, ROOMS+4, ROOMS+5 |
| RM | PAT+1~, PAT+2*, PAT+5, PAT+6, PAT+9 |
| RMBD | ROOMS+1~, ROOMS+4*, ROOMS+6 |
| SDT | PEND+1~, PEND+2*, PEND+3*, PEND+4 |
| SRV | PEND+1~, PEND+14*, PEND+15, PEND+16, PEND+17 |
| STAT | PEND+1~, PEND+8*, PEND+9, PEND+21 |
| U | BDGIPL31+5, OOSB+3, MULTUSE+9, PEND+21 |
| W | MULTUSE~, MULTUSE+12 |
| WARD | AWD+1~, AWD+7*, AWD+8, OWD+1~, OWD+3*, OWD+4, ROOMS+1~, ROOMS+3*, ROOMS+5, ROOMS+6 , PEND+1~, PEND+15*, PEND+16, PEND+17*, PEND+21 |
| WD | AWD+1~, AWD+3*, AWD+4, OWD+1~, OWD+2*, OWD+3, ROOMS~, ROOMS+2, ROOMS+3 |
| X | OOSB+2~*, OOSB+3, MULTUSE+6~*, MULTUSE+9~*, MULTUSE+12, PEND+1~, PEND+10*, PEND+20*, PEND+21 |
| Y | OOSB~, OOSB+1, OOSB+2, INACT~, INACT+1 |