©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
DGRRPSKN ; ALB/SGG - rtnDGRR PatientServices Contact Information ;09/30/03 ; Compiled October 21, 2003 14:54:28
Source file <DGRRPSKN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DOC | ;<DataSet Name='NextOfKinAddress'
|
|
| ADSTATE() | ;
|
|
| ADZIP() | ;
|
|
| ADDRESS(DATASET,ADGLOB,ZIP4) | ;
|
|
| GETPSARY(PSARRAY) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(5 - [#5] | ADSTATE+3 |
| ^DPT - [#2] | GETPSARY+2, GETPSARY+3, GETPSARY+4, GETPSARY+5, GETPSARY+6 |
| Name | Line Occurrences |
|---|---|
| $$ADSTATE | ADDRESS+6 |
| $$ADZIP | ADDRESS+7 |
| ADDRESS | GETPSARY+2, GETPSARY+3, GETPSARY+4, GETPSARY+5, GETPSARY+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADGLOB | ADDRESS~, ADDRESS+2, ADDRESS+3, ADDRESS+4, ADDRESS+5, ADDRESS+8, ADDRESS+9, ADDRESS+10, ADDRESS+11, ADSTATE+2 , ADZIP+3 |
| CNT | GETPSARY+1~, ADDRESS+1*, ADDRESS+2*, ADDRESS+3*, ADDRESS+4*, ADDRESS+5*, ADDRESS+6*, ADDRESS+7*, ADDRESS+8*, ADDRESS+9* , ADDRESS+10*, ADDRESS+11*, ADDRESS+12* |
| DATA | ADSTATE+1~, ADSTATE+2*, ADSTATE+3*, ADSTATE+4, ADZIP+1~, ADZIP+2*, ADZIP+3*, ADZIP+4 |
| DATASET | ADDRESS~, ADDRESS+1 |
| >> GLOB( | ADZIP+2 |
| PSARRAY | GETPSARY~ |
| PSARRAY( | ADDRESS+1*, ADDRESS+2*, ADDRESS+3*, ADDRESS+4*, ADDRESS+5*, ADDRESS+6*, ADDRESS+7*, ADDRESS+8*, ADDRESS+9*, ADDRESS+10* , ADDRESS+11*, ADDRESS+12* |
| >> PTID | GETPSARY+2, GETPSARY+3, GETPSARY+4, GETPSARY+5, GETPSARY+6 |
| ZIP4 | ADDRESS~, ADZIP+2 |