©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
DGENL2 ;ALB/RMO - Patient Enrollment - Build List Area Cont.;16 JUN 1997 ; 7/8/05 1:37pm
Source file <DGENL2.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | ($$FINDPRI,$$GET)^DGENA $$EXT^DGENU $$SETSTR^VALM1 CNTRL^VALM10 |
| VA Fileman | 1 | $$EXTERNAL^DILFD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET(DGARY,DGLINE,DGTEXT,DGCOL,DGON,DGOFF,DGSUB,DGNUM,DGDATA,DGCNT) | ; -- set display array
; Input -- DGARY Global array subscript ; DGLINE Line number ; DGTEXT Text ; DGCOL Column to start at (optional) ; DGON Highlighting on (optional) ; DGOFF Highlighting off (optional) ; DGSUB Secondary list subscript (optional) ; DGNUM Selection number (optional) ; DGDATA Data associated with selection (optional) ; Output -- DGCNT Number of lines in the list |
|
| PHEART(DFN,DGENRIEN,PHENRDT) | ;find Purple Heart information based on enrollment date
|
|
| HIS(DGARY,DFN,DGENRIEN,DGLINE,DGCNT) | ;Enrollment history
; Input -- DGARY Global array subscript ; DFN Patient IEN ; DGENRIEN Enrollment IEN ; DGLINE Line number ; Output -- DGCNT Number of lines in the list |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | EXTERNAL^DILFD |
| ^DGEN(27.11 - [#27.11] | EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGEN(27.11 - [#27.11] | PHEART+6, PHEART+7, PHEART+9, PHEART+10 |
| ^DPT - [#2] | PHEART+8, PHEART+11, PHEART+16, PHEART+17, PHEART+19, PHEART+21 |
| ^TMP( | SET+13, SET+14*, SET+17* |
| Name | Line Occurrences |
|---|---|
| SET | HIS+10, HIS+14, HIS+16, HIS+22, HIS+23, HIS+24, HIS+25, HIS+26 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | SET+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | HIS~, PHEART~, PHEART+6, PHEART+8, PHEART+9, PHEART+11, PHEART+16, PHEART+17, PHEART+19, PHEART+21 |
| DGARY | HIS~, HIS+10, HIS+14, HIS+16, HIS+22, HIS+23, HIS+24, HIS+25, HIS+26, SET~ , SET+13, SET+14, SET+17 |
| DGCNT | HIS~, HIS+10, HIS+14, HIS+16, HIS+22, HIS+23, HIS+24, HIS+25, HIS+26, SET~ , SET+12* |
| DGCOL | SET~, SET+14, SET+15 |
| DGDATA | SET~, SET+17 |
| DGENR | HIS+6~, HIS+19 |
| DGENR("DATETIME" | HIS+26 |
| DGENR("EFFDATE" | HIS+23 |
| DGENR("PRIORITY" | HIS+25 |
| DGENR("STATUS" | HIS+24 |
| DGENR("SUBGRP" | HIS+25 |
| DGENRIEN | HIS~, HIS+17, PHEART~, PHEART+4, PHEART+6, PHEART+9 |
| DGLINE | HIS~, HIS+8, HIS+10, HIS+13*, HIS+14, HIS+15*, HIS+16, HIS+21*, HIS+22, HIS+23 , HIS+24, HIS+25, HIS+26, SET~, SET+12, SET+13, SET+14, SET+15, SET+17 |
| DGNUM | HIS+6~, HIS+9*, HIS+20*, HIS+22, SET~, SET+17 |
| DGOFF | SET~, SET+15 |
| DGON | SET~, SET+15 |
| DGPRIEN | HIS+6~, HIS+17*, HIS+18*, HIS+19, HIS+22 |
| DGSTART | HIS+6~, HIS+8* |
| DGSUB | SET~, SET+17 |
| DGTEXT | SET~, SET+14, SET+15 |
| >> IORVOFF | HIS+10 |
| >> IORVON | HIS+10 |
| NXTDIF | PHEART+2~, PHEART+3*, PHEART+15*, PHEART+16 |
| NXTENDT | PHEART+1~, PHEART+5*, PHEART+10*, PHEART+12, PHEART+13, PHEART+14 |
| NXTENR | PHEART+1~, PHEART+9*, PHEART+10 |
| NXTENTM | PHEART+2~, PHEART+14*, PHEART+15 |
| NXTPHDT | PHEART+2~, PHEART+11*, PHEART+12, PHEART+13, PHEART+14, PHEART+16, PHEART+17 |
| NXTPHTM | PHEART+2~, PHEART+14*, PHEART+15 |
| PHARY | PHEART+1~, PHEART+21*, PHEART+22, PHEART+23, PHEART+24 |
| PHDIERR | PHEART+1~, PHEART+22, PHEART+23, PHEART+24 |
| PHENRDT | PHEART~, PHEART+4, PHEART+8, PHEART+11, PHEART+12, PHEART+14 |
| PHENTM | PHEART+2~, PHEART+14*, PHEART+15 |
| PHI | PHEART+1~, PHEART+22*, PHEART+25 |
| PHREC | PHEART+2~, PHEART+16*, PHEART+17*, PHEART+18, PHEART+19*, PHEART+20, PHEART+21 |
| PHRR | PHEART+1~, PHEART+24*, PHEART+25 |
| PHST | PHEART+1~, PHEART+23*, PHEART+25 |
| PRVDIF | PHEART+2~, PHEART+3*, PHEART+15*, PHEART+16 |
| PRVENDT | PHEART+1~, PHEART+5*, PHEART+7* |
| PRVENR | PHEART+1~, PHEART+6*, PHEART+7 |
| PRVPHDT | PHEART+2~, PHEART+8*, PHEART+18, PHEART+19 |
| U | PHEART+3*, PHEART+7, PHEART+10, PHEART+22, PHEART+23, PHEART+24 |
| X | SET+11~, SET+13*, SET+14 |