©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
DGENLR ;ALB/RMO - Patient Enrollment - Reader Utilities;26 JUN 1997 10:00 am
Source file <DGENLR.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | PAUSE^VALM1 (SET,WRITE)^VALM10 $$PARSE^VALM2 |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASKQ | ||
| LAST(DGCNT) | ;
|
|
| EN(DGNOD0,DGSUB,DGSELY) | ;select entities from secondary list
; Input -- DGNOD0 Selection in XQORNOD0 format ; DGSUB Secondary list subscript ; Output -- DGSELY Selection array |
|
| ENQ | ||
| SEL(DGNOD0,DGSUB,DGSELY) | ;Process secondary list selection
; Input -- DGNOD0 Selection in XQORNOD0 format ; DGSUB Secondary list subscript ; Output -- DGSELY Selection array |
|
| SETTOP(TOP) | ;
|
|
| SELQ | ||
| ASK(DGCNT) | ;Ask user to select from list
; Input -- DGCNT Number of entities ; Output -- Selection |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DGENIDX" | EN+8, EN+24, SEL+7, SEL+21, LAST+7, LAST+11 |
| Name | Line Occurrences |
|---|---|
| $$ASK | SEL+13 |
| $$LAST | ASK+4 |
| ASKQ | ASK+7 |
| ENQ | EN+11, EN+18 |
| SEL | EN+28 |
| SELQ | SEL+7, SEL+16, SEL+24 |
| SETTOP | EN+25 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LAST+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGBEG | SEL+4~, SEL+7*, SEL+10, SEL+21 |
| DGCNT | EN+4~, EN+8*, EN+11, EN+18, EN+22, SEL+13, ASK~, ASK+4, ASK+6, LAST~ , LAST+7 |
| DGEND | SEL+4~, SEL+7*, SEL+10, SEL+21 |
| DGERR | SEL+4~, SEL+19*, SEL+23*, SEL+24 |
| DGNOD0 | EN~, EN+12, EN+18, EN+28, SEL~, SEL+10 |
| DGSELY | EN~, EN+28, SEL~ |
| DGSELY( | SEL+27* |
| DGSELY("ERR" | EN+14*, SEL+24* |
| DGSELY("^" | SEL+16* |
| DGSELY(1 | EN+18* |
| DGSUB | EN~, EN+8, EN+28, SEL~, SEL+7, SEL+21 |
| DIR | ASK+3~ |
| DIR("A" | ASK+5* |
| DIR(0 | ASK+6* |
| DIRUT | ASK+3~ |
| DTOUT | ASK+3~, ASK+7 |
| DUOUT | ASK+3~, ASK+7 |
| I | SEL+4~, SEL+20*, SEL+27* |
| ITEM | LAST+4~, LAST+10*, LAST+11*, LAST+12 |
| LAST | ASK+3~, ASK+4*, ASK+6 |
| LINE | LAST+4~, LAST+11*, SETTOP+3~, SETTOP+7*, SETTOP+8, SETTOP+9 |
| TOP | EN+23~, EN+24*, EN+25, SETTOP~, SETTOP+4, SETTOP+6 |
| U | EN+18, ASK+6 |
| >> VALMBG | SETTOP+4, SETTOP+6*, SETTOP+7 |
| >> VALMCNT | SETTOP+5 |
| >> VALMLST | EN+25, LAST+7, LAST+11, SETTOP+4*, SETTOP+5*, SETTOP+8, SETTOP+9 |
| X | SEL+4~, SEL+20*, SEL+21, SEL+22, SEL+27*, ASK+3~ |
| Y | SEL+4~, SEL+10*, SEL+13*, SEL+16, SEL+20, SEL+27, ASK+3~, ASK+7*, ASKQ |