©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
ABPVPCC2 ;TALLY PRIVATE INSURANCE ELIG O/P VISIT REPORT; [ 06/02/91 12:51 PM ]
Source file <ABPVPCC2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ||
| INIT | ;PROCEDURE TO INITIALIZE ROUTINE SPECIFIC VARIABLES
|
|
| ZTLEND | ||
| XTRACT | ;PROCEDURE TO LOOP THROUGH THE ^AUPNVSIT FILE TO EXTRACT REQUIRED DATA
|
|
| ZTLOAD |
| FileNo | Call Tags |
|---|---|
| ^DIC(7 - [#7] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZTSK - [#14.4] | XTRACT+20, XTRACT+23* |
| ^AUPNPRVT - [#9000006] | XTRACT+18 |
| ^AUPNVPRV - [#9000010.06] | XTRACT+11, XTRACT+12, XTRACT+13 |
| ^AUPNVPRV("AD" | XTRACT+10 |
| ^AUPNVSIT - [#9000010] | XTRACT+6 |
| ^AUPNVSIT("B" | XTRACT+3, XTRACT+5 |
| ^DIC(6 - [#6] | XTRACT+14, XTRACT+15 |
| ^DIC(7 - [#7] | XTRACT+16 |
| Name | Line Occurrences |
|---|---|
| INIT | START |
| XTRACT | START |
| ZTLOAD | START |
| Name | Field # of Occurrence |
|---|---|
| ^( | XTRACT+21 |
| ^(0 | XTRACT+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %IS | ZTLEND! |
| %ZIS | ZTLEND! |
| A | ZTLEND! |
| A("DFN" | XTRACT+7*, XTRACT+18, XTRACT+20, XTRACT+21, XTRACT+23 |
| A("DOS" | XTRACT+4*, XTRACT+20, XTRACT+23 |
| A("SVCS" | XTRACT+19*, XTRACT+21*, XTRACT+22*, XTRACT+23 |
| ABPV | ZTLEND! |
| ABPV("BEG" | XTRACT+1 |
| ABPV("END" | XTRACT+1 |
| ABPV("HITS" | INIT+1*, XTRACT+22* |
| ABPV("IO" | ZTLOAD |
| ABPV("SITE" | XTRACT+20, XTRACT+23 |
| ABPV("STOP" | XTRACT+1*, XTRACT+2, XTRACT+3 |
| ABPV("TASK" | INIT+1*, XTRACT+20, XTRACT+23 |
| ABPV("TOTAL" | INIT+1*, XTRACT+17* |
| ABPVI | XTRACT+8!, XTRACT+9* |
| ABPVPRV | XTRACT+8!, XTRACT+13*, XTRACT+14, XTRACT+15 |
| ABPVPTR | XTRACT+8!, XTRACT+9*, XTRACT+10*, XTRACT+11, XTRACT+12, XTRACT+13* |
| D | INIT+2*, INIT+4! |
| DA | ZTLEND! |
| >> DATA | XTRACT+7* |
| DIC | INIT+2*, INIT+4!, ZTLEND! |
| DIC(0 | INIT+2* |
| DIE | ZTLEND! |
| DR | ZTLEND+1! |
| I | XTRACT+2*, ZTLEND+1! |
| >> J | XTRACT+4* |
| R | XTRACT+1*, XTRACT+2, XTRACT+3*, XTRACT+4, XTRACT+5, ZTLEND+1! |
| >> RR | XTRACT+4*, XTRACT+5*, XTRACT+6, XTRACT+10 |
| >> RXPROV | INIT+3*, XTRACT+8 |
| X | INIT+2*, INIT+4!, XTRACT+8!, XTRACT+15*!, XTRACT+16!, ZTLEND! |
| Y | INIT+3, INIT+4!, ZTLEND! |
| ZRTN | ZTLEND! |
| ZTDESC | ZTLOAD+1*, ZTLEND! |
| ZTDTH | ZTLOAD*, ZTLEND! |
| ZTIO | ZTLOAD*, ZTLEND+1! |
| >> ZTRTN | ZTLOAD* |
| ZTSAVE | ZTLEND! |
| ZTSAVE("ABPV(" | ZTLOAD* |
| ZTSK | INIT+1, ZTLEND! |