©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
ABPVRX02 ;EXTRACT RX VISITS FOR RX BILLING SUMMARY;[ 06/02/91 9:38 AM ]
Source file <ABPVRX02.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ZTLOAD | ||
| START | ||
| INIT | ||
| ZTLEND | ||
| C3 | ||
| C2 | ||
| C1 | ||
| XTRACT |
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | ZTLOAD+2 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZTSK - [#14.4] | C3+4* |
| ^AUPNPAT - [#9000001] | C3+3 |
| ^AUPNPRVT - [#9000006] | C2+2, C2+4, C3 |
| ^PSDRUG - [#50] | C2+3 |
| ^PSRX - [#52] | C2, C2+1, C2+3 |
| ^PSRX("AD" | XTRACT, C1 |
| Name | Line Occurrences |
|---|---|
| C1 | XTRACT |
| C2 | C1 |
| C3 | C2+4 |
| INIT | START |
| XTRACT | START |
| ZTLOAD | START |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | C2+3, C3+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %IS | ZTLEND! |
| %ZIS | ZTLEND! |
| A | ZTLEND! |
| ABPV | ZTLEND! |
| ABPV("BEG" | INIT |
| ABPV("END" | INIT |
| ABPV("IO" | ZTLOAD |
| ABPV("SITE" | C3+3 |
| ABPV("TASK" | INIT* |
| ABPVDRG | C2+3*, ZTLEND+1! |
| ABPVFD | INIT*, XTRACT, ZTLEND+1! |
| ABPVHRN | C3+3*, C3+4, ZTLEND+2! |
| ABPVPDFN | C1*, C2, C2+1, C2+3, C3+4, ZTLEND+1! |
| ABPVPRV | C3*, C3+1, ZTLEND+1! |
| ABPVPRVE | C3+1*, ZTLEND+2! |
| ABPVPRVI | C2+4*, C3, ZTLEND+1! |
| ABPVPRVS | C3+1*, C3+2, ZTLEND+2! |
| ABPVS | XTRACT*, C1, C3+1, C3+2, C3+4, ZTLEND+1! |
| ABPVSD | INIT*, XTRACT, ZTLEND+1! |
| DA | ZTLEND! |
| DFN | C2+1*, C2+2, C2+4, C3, C3+3, C3+4, ZTLEND+2! |
| DIC | ZTLEND! |
| DIE | ZTLEND! |
| DR | ZTLEND+1! |
| I | XTRACT*, ZTLEND+1! |
| >> J | C1* |
| K | C2+4*, ZTLEND+2! |
| 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, C3+4, ZTLEND! |