©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
DGRURB ; ALB/SCK - LIST MANAGER INTERFACE FOR ROOM-BED TRANSLATION; 16-FEB-2000
Source file <DGRURB.m>
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 1 | DGRU ENTER/EDIT ROOM-BED TRAN |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for DGRU ROOM-BED
|
|
| HDR | ; -- header code
|
|
| EXITSC | ||
| RAI(DGIEN) | ; Screening logic for room lookup. Associated ward must have the
; RAI/MDS WARD field = "Yes" |
|
| ADD | ; Add a new room-bed translation value
|
|
| INIT | ; -- init variables and list array
; Variables ; DGIEN - ien of the file #46.13 entry ; DGNODE - Zero node of file #46.13 ; DGCNT - Count of entries in the LM array ; DGTRN - File #46.13 ien^translated Room-Bed^Bed description ; DGRM - Room-Bed name in external format |
|
| EXIT | ; -- exit code
|
|
| DEL | ; Delete an existing room-bed translation value
|
|
| SET(X,DGCNT,DGIEN) | ;
|
|
| HELP | ; -- help code
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DG(405.4 - [#405.4] | GET1^DIQ |
| ^DIC(42 - [#42] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(405.4 - [#405.4] | RAI+5 |
| ^DGRU(46.13 | INIT+16, INIT+17 |
| ^TMP("DGRURB" | INIT+10!, EXIT+1!, DEL+14, SET+2*, SET+3*, SET+4* |
| ^TMP("DGRUSRT" | INIT+11!, INIT+19*, INIT+23, INIT+25, INIT+26, EXIT+2! |
| Name | Line Occurrences |
|---|---|
| EXITSC | RAI+5 |
| INIT | ADD+24, DEL+17 |
| SET | INIT+31 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DEL+1~, DEL+14* |
| DGCNT | INIT+8~, INIT+22*, INIT+27, INIT+31, INIT+32*, SET~, SET+3, SET+4 |
| DGIEN | INIT+8~, INIT+15*, INIT+16*, INIT+17, INIT+19, INIT+24*, INIT+25*, INIT+26, RAI~, RAI+5 , SET~, SET+3 |
| DGNDX | RAI+2~, RAI+4*, RAI+5*, RAI+6 |
| DGNODE | INIT+8~, INIT+17*, INIT+18, INIT+19 |
| DGOK | RAI+2~, RAI+4*, RAI+5, RAI+6*, EXITSC |
| DGRM | INIT+8~, INIT+22*, INIT+23*, INIT+25, INIT+26, INIT+28 |
| DGRUCNT | EN+2~ |
| DGTR | ADD+1~, ADD+18*, ADD+21 |
| DGTRN | INIT+8~, INIT+26*, INIT+29, INIT+30, INIT+31 |
| DGVM | ADD+1~, ADD+8*, ADD+20 |
| DIK | DEL+1~, DEL+15* |
| DIR | ADD+1~, ADD+6!, ADD+16!, DEL+11! |
| DIR("?" | ADD+13*, ADD+14*, ADD+15* |
| DIR("A" | ADD+4*, ADD+12*, DEL+9* |
| DIR("B" | DEL+10* |
| DIR("S" | ADD+5* |
| DIR(0 | ADD+4*, ADD+11*, DEL+9* |
| DIRUT | ADD+1~, ADD+7, ADD+10!, ADD+17, DEL+12 |
| FDA | ADD+1~ |
| FDA(1 | ADD+20*, ADD+21* |
| VALMBCK | EN+2~ |
| VALMCNT | EN+2~, INIT+15*, SET+1*, SET+2, SET+3, SET+4 |
| VALMEVL | EN+1! |
| VALMHDR | EN+2~ |
| VALMHDR(1 | HDR+1* |
| VALMHDR(2 | HDR+2* |
| VALMI | EN+2~, DEL+5*, DEL+6*, DEL+7, DEL+14 |
| VALMY | EN+2~ |
| VALMY( | DEL+6 |
| X | INIT+8~, INIT+27*, INIT+28*, INIT+29*, INIT+30*, INIT+31, HELP+1*, SET~, SET+2 |
| XQORNOD | EN+2~ |
| XQORNOD(0 | DEL+4 |
| XQORS | EN+1! |
| >> Y | ADD+8, ADD+18, DEL+13 |