©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
DGYPREG1 ;ALB/REW - POST-INIT PATIENT FILE POST-INIT CONT'D ;1-APR-93
Source file <DGYPREG1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TOTVAREP | ;End of Patient File Loop: Problem MB Fields
|
|
| END | ;
|
|
| ACTDT(DFN) | ;RETURNS LAST ACTIVE DATE
|
|
| SUM | ;
|
|
| GETID | ;
|
|
| SETUP(REP) | ;
|
|
| CFLREP | ;End of Patient File Loop: Problem CFL Fields
|
|
| CDET | ;
|
|
| MESS(TEXT,LINES) | ;ADD TO MAIL TEXT
|
|
| CSUM(REP) | ;PRINTS SUMMARY
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM("APRD" | ACTDT+7 |
| ^DGS(41.1 - [#41.1] | ACTDT+5 |
| ^DPT - [#2] | GETID+2, ACTDT+3, ACTDT+4, ACTDT+6 |
| ^TMP( | SUM+1, SUM+2 |
| ^TMP("DGBDCFL" | CDET+15 |
| ^TMP("DGBDMB" | TOTVAREP+16 |
| Name | Line Occurrences |
|---|---|
| CDET | CFLREP+3 |
| CSUM | CFLREP+3, TOTVAREP+6 |
| END | CFLREP+4, TOTVAREP+23 |
| GETID | TOTVAREP+17, CDET+16 |
| MESS | TOTVAREP+9, TOTVAREP+11, TOTVAREP+12, TOTVAREP+13, TOTVAREP+14, TOTVAREP+15, TOTVAREP+21, CSUM+3, CSUM+8, SUM+3 , CDET+4, CDET+7, CDET+9, CDET+10, CDET+11, CDET+12, CDET+13, CDET+18 |
| SETUP | CFLREP+2, TOTVAREP+5 |
| SUM | CSUM+6, CSUM+7 |
| Name | Field # of Occurrence |
|---|---|
| ^( | TOTVAREP+16, CDET+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | ACTDT+1~, ACTDT+5* |
| ACT | CSUM+2~, SUM+1*, SUM+2 |
| ACTCT | CSUM+2~, CSUM+6*, CSUM+7*, SUM+2*, SUM+3 |
| ACTDT | ACTDT+1~, ACTDT+2*, ACTDT+3*, ACTDT+4*, ACTDT+5*, ACTDT+6*, ACTDT+7* |
| CT | CSUM+2~, CSUM+6*, CSUM+7*, SUM+2*, SUM+3, CDET+14*, CDET+15* |
| DFN | TOTVAREP+16*, CSUM+2~, SUM+2*, CDET+15*, GETID+2, ACTDT~, ACTDT+3, ACTDT+4, ACTDT+5, ACTDT+6 , ACTDT+7 |
| DGACT | TOTVAREP+3~, TOTVAREP+16*, TOTVAREP+18, CDET+1~, CDET+15*, CDET+17 |
| DGCT | CDET+1~ |
| DGDJ | CFLREP+1~, TOTVAREP+1*, TOTVAREP+3~, SETUP+2* |
| DGDT | CDET+1~ |
| DGFSTDT | TOTVAREP+7, TOTVAREP+8, TOTVAREP+9, END+4!, CDET+5, CDET+6, CDET+7 |
| DGFSTINT | TOTVAREP+3~, TOTVAREP+7*, TOTVAREP+16, CDET+1~, CDET+5*, CDET+15 |
| DGL4 | TOTVAREP+3~, TOTVAREP+19, CDET+1~, CDET+18, GETID+3* |
| DGLPCT | TOTVAREP+3~, TOTVAREP+4*, TOTVAREP+16, TOTVAREP+22* |
| DGMAXPT | TOTVAREP+10, TOTVAREP+11, TOTVAREP+16, END+4!, SETUP+5*, CDET+2, CDET+8, CDET+9, CDET+15 |
| DGPNODE | GETID+1~, GETID+2*, GETID+3 |
| DGPTNM | TOTVAREP+3~, TOTVAREP+19, CDET+1~, CDET+18, GETID+3* |
| DGROOT | END+4!, SETUP+10*, SETUP+11, SETUP+12*, SETUP+13, MESS+12 |
| DGSPACE | TOTVAREP+14, TOTVAREP+19, END+4!, SETUP+4*, CSUM+3, SUM+3, CDET+12, CDET+18 |
| DGTEXT | TOTVAREP+3~, TOTVAREP+19*, TOTVAREP+20*, TOTVAREP+21, END+4! |
| >> DGTOTBD | TOTVAREP+10 |
| DGUCCT | END+4!, CSUM+5*, CSUM+6*, CSUM+7*, CDET+3, CDET+8 |
| DGUND | TOTVAREP+15, END+4!, SETUP+3*, CDET+13 |
| DGX | TOTVAREP+3~, TOTVAREP+16*, TOTVAREP+20, END+4!, CDET+15*, CDET+18 |
| DGXM | END+4!, MESS+7, MESS+11*, MESS+12 |
| DIFROM | END+1~ |
| DIR | END+4! |
| DT | CSUM+4, ACTDT+4 |
| DUZ | SETUP+8 |
| FROM | TOTVAREP+2~ |
| I | MESS+8~, MESS+10* |
| LINES | MESS~, MESS+9*, MESS+10 |
| REP | TOTVAREP+2~, SETUP~, SETUP+1, SETUP+6, SETUP+10, SETUP+14, CSUM~, CSUM+6, CSUM+7 |
| SUB | TOTVAREP+2~, CSUM+2~, CSUM+6*, CSUM+7*, SUM+1, SUM+2, SUM+3 |
| TEXT | TOTVAREP+2~, MESS~, MESS+7, MESS+12, MESS+13* |
| TO | TOTVAREP+2~ |
| U | TOTVAREP+20, CDET+18, GETID+3, ACTDT+5 |
| X | TOTVAREP+3~, TOTVAREP+18*, TOTVAREP+19, TOTVAREP+20*, CDET+1~, CDET+17*, CDET+18, ACTDT+1~, ACTDT+3*, ACTDT+5* , ACTDT+6*, ACTDT+7* |
| XMDUZ | END+4!, SETUP+7* |
| XMSUB | END+4!, SETUP+6* |
| XMTEXT | END+4!, SETUP+11* |
| XMY | END+4! |
| XMY( | SETUP+8*, SETUP+9* |
| Y | ACTDT+1~, ACTDT+6*, ACTDT+7* |
| Z | CSUM+2~, CSUM+4*, SUM+2 |