©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
DGENL ;ALB/RMO,LBD - Patient Enrollment - List Manager Screen;12 JUN 1997 10:00 am ; 1/27/11 2:51pm
Source file <DGENL.m>
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 4 | DGEN DGEN1 DGENCD1 DGENPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HELP | ;Help code
|
|
| EXPND | ;Expand code
|
|
| EN(DFN) | ;Main entry point to invoke the DGEN PATIENT ENROLLMENT protocol
; Input -- DFN Patient IEN ; Output -- None |
|
| INIT | ;Init variables and list array
|
|
| EXIT | ;Exit code
|
|
| BLD | ;Build patient enrollment screen
|
|
| MESSAGE(DFN) | ;
|
|
| HDR | ;Header code
|
| Name | Field # of Occurrence |
|---|---|
| $$FINDCUR^DGENA | BLD+9 |
| EN^DGENL1 | BLD+9 |
| $$PREF^DGENPTA | HDR+6 |
| $$FINDLAST^DGENQRY | MESSAGE+5 |
| $$GET^DGENQRY | MESSAGE+6 |
| WAIT^DICD | EN+3 |
| $$EXTERNAL^DILFD | MESSAGE+7, MESSAGE+8 |
| $$GET1^DIQ | HDR+9 |
| PID^VADPT | HDR+2 |
| EN^VALM | EN+4 |
| $$SETSTR^VALM1 | HDR+5, HDR+8 |
| CLEAR^VALM1 | EXIT+2 |
| CLEAN^VALM10 | BLD+1, EXIT+1 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^DGEN(27.12 - [#27.12] | EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(391 - [#391] | HDR+4 |
| ^DPT - [#2] | HDR+3, HDR+4 |
| ^TMP("DGENIDX" | BLD+2!, EXIT+3! |
| Name | Line Occurrences |
|---|---|
| BLD | INIT+1 |
| HDR | BLD+6 |
| MESSAGE | BLD+10 |
| Name | Field # of Occurrence |
|---|---|
| ^("TYPE" | HDR+4 |
| ^(0 | HDR+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | EN~, HDR+3, HDR+4, HDR+6, HDR+9, BLD+9, BLD+10, MESSAGE~, MESSAGE+5 |
| DGPREFNM | HDR+1~, HDR+6, HDR+7 |
| DGQRY | MESSAGE+4~, MESSAGE+5*, MESSAGE+6 |
| DGQRY("NOTIFY" | MESSAGE+8 |
| DGQRY("STATUS" | MESSAGE+7 |
| NOTIFY | MESSAGE+4~, MESSAGE+8*, MESSAGE+10 |
| STATUS | MESSAGE+4~, MESSAGE+7*, MESSAGE+9 |
| U | HDR+3, HDR+4 |
| VA | HDR+1~ |
| VA("BID" | HDR+3 |
| VAERR | HDR+1~ |
| >> VALMBG | BLD+3* |
| >> VALMCNT | BLD+3*, BLD+9 |
| VALMHDR | BLD+2! |
| VALMHDR(1 | HDR+3*, HDR+5* |
| VALMHDR(2 | HDR+7*, HDR+8* |
| VALMHDR(3 | HDR+9* |
| >> VALMSG | MESSAGE+9*, MESSAGE+10* |
| X | HDR+1~, HDR+4*, HDR+5, HELP+1* |