©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
ABPVDG02 ;TALLY PRIVATE INSURANCE ELIG I/P ADMIT REPORT; [ 06/02/91 12:44 PM ]
Source file <ABPVDG02.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ||
| ZTLOAD | ||
| A1 | ||
| START | ||
| INIT | ||
| ZTLEND | ||
| XTRACT |
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | ZTLOAD+2 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZTSK - [#14.4] | A1+4* |
| ^AUPNPRVT - [#9000006] | A1+2 |
| ^DPT("AA" | A, A1 |
| Name | Line Occurrences |
|---|---|
| A | A1 |
| A1 | A1+2, A1+5 |
| INIT | START |
| XTRACT | START |
| ZTLOAD | START |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %IS | ZTLEND! |
| %ZIS | ZTLEND! |
| A | ZTLEND! |
| A("ADFN" | A+2*, A1*, A1+2, A1+4 |
| A("ADOS" | XTRACT*, A*, A+1, A1, A1+4 |
| ABPV | ZTLEND! |
| ABPV("BEG" | XTRACT |
| ABPV("END" | A+1 |
| ABPV("HITS" | INIT*, A1+3* |
| ABPV("IO" | ZTLOAD |
| ABPV("SITE" | A1+4 |
| ABPV("TASK" | INIT* |
| ABPV("TOTAL" | INIT*, A1+1* |
| DA | ZTLEND! |
| DIC | ZTLEND! |
| DIE | ZTLEND! |
| DR | ZTLEND+1! |
| I | ZTLEND+1! |
| R | ZTLEND+1! |
| X | ZTLEND! |
| Y | ZTLEND! |
| ZRTN | ZTLEND! |
| ZTDESC | ZTLOAD+1*, ZTLEND! |
| ZTDTH | ZTLOAD*, ZTLEND! |
| ZTIO | ZTLOAD*, ZTLEND+1! |
| >> ZTRTN | ZTLOAD* |
| ZTSAVE | ZTLEND! |
| ZTSAVE("ABPV(" | ZTLOAD* |
| ZTSK | INIT, A1+4, ZTLEND! |