©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
AGADDREG ; IHS/ASDS/EFG - ADDITIONAL REGISTRATION INFO ;
Source file <AGADDREG.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Patient Registration | 2 | (,UPDATE1)^AGED READ^AGED1 |
| Kernel | 1 | $$CJ^XLFSTR |
| VA Fileman | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VAR | ||
| EDIT | ||
| DRAW | ;EP
|
|
| END | ||
| ADD | ;Add a Patient.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNPAT - [#9000001] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPAT - [#9000001] | DRAW+1, DRAW+3 |
| Name | Line Occurrences |
|---|---|
| @( | VAR+11 |
| DRAW | VAR |
| EDIT | VAR+10 |
| END | AGADDREG+3, VAR+9 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DRAW+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AG | END! |
| AG("ED" | VAR+11 |
| AG("PG" | DRAW+1* |
| >> AGOPT(9 | AGADDREG+3, ADD+1 |
| >> AGSEENLY | VAR+1, VAR+2 |
| >> AGXTERN | VAR+11 |
| DA | EDIT*, END!, ADD+1* |
| >> DFN | DRAW+1, DRAW+3, EDIT, ADD+1 |
| DFOUT | END! |
| >> DIE | EDIT*, ADD+1* |
| DIR | VAR+1!, VAR+3! |
| DIR("A" | VAR+1*, VAR+5* |
| DIR("B" | VAR+6* |
| DLOUT | END! |
| DQOUT | END! |
| DR | EDIT*, END!, ADD+1* |
| DTOUT | VAR+8, END! |
| DUZ(2 | EDIT |
| >> I | DRAW+3* |
| IOM | DRAW+2 |
| Y | VAR+8, VAR+9, VAR+10, END! |