©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
DGREGTE2 ;ALB/BAJ,TDM - Temporary & Confidential Address Support Routine; 02/27/2006 ; 12/24/08 12:12pm
Source file <DGREGTE2.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | ($$CNTRYI,$$FORIEN)^DGADDUTL $$CNTY^DGREGAZL ^DGREGTE2 |
| VA Fileman | 2 | GETS^DIQ ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETOLD(DGCMP,DFN,TYPE) | ;populate array with existing address info
|
|
| FLDDAT | ; Table of field values STRUCTURE --> Description;;Type;Variable Name;Field Number
|
|
| INPT1(DFN,FORGN,PSTR) | ; address input prompts
|
|
| INIT | ; initialize variables
; This tag reads the table at FLDDAT (below) to set relationship between ; variables and Field numbers. ; ; Set up array of fields needed |
|
| SURE() | ; Are you sure prompt
|
|
| SKIP(DGN,DGINPUT) | ; determine whether or not to skip the prompt
|
|
| FLDPRMPT | ;Table of prompts and responses STRUCTURE --> Description;;Field;Old Value;New Value;Response Code
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | GETOLD+6 |
| ^HL(779.004 - [#779.004] | GETOLD+7 |
| Name | Line Occurrences |
|---|---|
| $$INPT1 | GETOLD+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CCIEN | GETOLD+1~, GETOLD+6*, GETOLD+7, GETOLD+8, GETOLD+15 |
| CCNTRY | GETOLD+1~, GETOLD+7* |
| CFORGN | GETOLD+1~, GETOLD+2*, GETOLD+8*, GETOLD+10, GETOLD+17 |
| CFSTR | GETOLD+1~, GETOLD+10*, GETOLD+13, GETOLD+14 |
| COUNTRY | GETOLD+1~, GETOLD+15*, GETOLD+16 |
| DFN | GETOLD~, GETOLD+6, GETOLD+10, GETOLD+13, GETOLD+14, GETOLD+18, GETOLD+19, INPT1~ |
| DGCIEN | GETOLD+1~, GETOLD+18*, GETOLD+20 |
| DGCMP | GETOLD~ |
| DGCMP("OLD" | GETOLD+14*, GETOLD+16*, GETOLD+22* |
| DGCNTY | GETOLD+1~, GETOLD+20*, GETOLD+21*, GETOLD+22 |
| DGCURR | GETOLD+1~ |
| DGCURR(2 | GETOLD+14, GETOLD+18, GETOLD+19 |
| DGINPUT | SKIP~ |
| DGINPUT( | SKIP+3, SKIP+5 |
| DGN | SKIP~, SKIP+4, SKIP+6 |
| DGST | GETOLD+1~, GETOLD+19*, GETOLD+20 |
| DIR | SURE+1~ |
| DIR("A" | SURE+4* |
| DIR("B" | SURE+3* |
| DIR(0 | SURE+2* |
| DIRUT | SURE+1~ |
| DTOUT | SURE+1~ |
| DUOUT | SURE+1~ |
| >> FCITY | INPT1+4, INPT1+5, INPT1+6 |
| >> FCNTRY | GETOLD+16, INPT1+4 |
| >> FCOUNTY | GETOLD+18, GETOLD+22, INPT1+4, INPT1+5 |
| FDESC | GETOLD+1~, GETOLD+2* |
| FNODE | GETOLD+1~, GETOLD+4*, GETOLD+6 |
| FNUM | INIT+5~, INIT+7*, INIT+8 |
| FORGN | INPT1~, INPT1+6 |
| FPECE | GETOLD+1~, GETOLD+5*, GETOLD+6 |
| >> FPHONE | INPT1+4, INPT1+5, INPT1+6 |
| >> FPROV | INPT1+4, INPT1+6 |
| >> FPSTAL | INPT1+4, INPT1+6 |
| >> FSLINE1 | INPT1+4, INPT1+5, INPT1+6, SKIP+3 |
| >> FSLINE2 | INPT1+4, INPT1+5, INPT1+6, SKIP+4, SKIP+5 |
| >> FSLINE3 | INPT1+4, INPT1+5, INPT1+6, SKIP+6 |
| >> FSTATE | GETOLD+19, INPT1+4, INPT1+5 |
| FSTR | INPT1+1~, INPT1+5*, INPT1+6*, INPT1+7 |
| FTYPE | INIT+5~, INIT+7*, INIT+8 |
| >> FZIP | INPT1+4, INPT1+5 |
| I | INIT+5~, INIT+6*, INIT+10!, INIT+11* |
| L | GETOLD+1~, GETOLD+14* |
| NULL | SKIP+1~, SKIP+3*, SKIP+4, SKIP+5*, SKIP+6 |
| PSTR | INPT1~, INPT1+4* |
| RFLD | INIT+5~, INIT+12*, INIT+13 |
| >> RPROC( | INIT+13* |
| SKIP | SKIP+1~, SKIP+2*, SKIP+4*, SKIP+6*, SKIP+7 |
| T | GETOLD+1~, GETOLD+14*, INIT+5~, INIT+6*, INIT+7, INIT+10!, INIT+11*, INIT+12, INIT+13 |
| TYPE | GETOLD~, GETOLD+2, GETOLD+4, GETOLD+5, INIT+8 |
| U | GETOLD+6, GETOLD+22 |
| VNAME | INIT+5~, INIT+7*, INIT+8 |
| X | SURE+1~ |
| Y | SURE+1~, SURE+6 |
| Name | Field # of Occurrence |
|---|---|
| $T(FLDDAT+I^DGREGTE2 | INIT+6 |
| $T(FLDPRMPT+I^DGREGTE2 | INIT+11 |