©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
ABPAAGS1 ;COMPILE AGED CLAIMS SUMMARY; [ 05/17/91 3:35 PM ]
Source file <ABPAAGS1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ZTLOAD | ;PROCEDURE TO LOAD BACKGROUND TASK MANAGER WITH JOB REQUEST
|
|
| MAIN | ;ENTRY POINT - CALLED BY TASK MANAGER
|
|
| EXTRACT | ;PROCEDURE TO LOOP THROUGH ALL OPEN CLAIMS
|
|
| ZTLEND | ;PROCEDURE TO KILL ALL LOCALLY USED TEMPORARY VARIABLES
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZTSK - [#14.4] | EXTRACT+18, EXTRACT+19*, EXTRACT+21, EXTRACT+22*, EXTRACT+24, EXTRACT+25*, EXTRACT+27, EXTRACT+28*, EXTRACT+29*, EXTRACT+31 , EXTRACT+33, EXTRACT+34, EXTRACT+35* |
| ^ABPVAO - [#9002270.02] | EXTRACT+5, EXTRACT+6 |
| ^ABPVAO("CS" | EXTRACT+2, EXTRACT+4 |
| ^AUTNINS - [#9999999.18] | EXTRACT+15, EXTRACT+16 |
| Name | Line Occurrences |
|---|---|
| EXTRACT | MAIN+1 |
| ZTLEND | ABPAAGS1+2, MAIN+3 |
| ZTLOAD | MAIN+2 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | EXTRACT+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | ZTLEND+2! |
| %DT | ZTLEND+1! |
| %IS | ZTLEND+1! |
| %ZIS | ZTLEND+1! |
| ABPA | ZTLEND+1! |
| ABPA("INS" | EXTRACT+11, EXTRACT+13, EXTRACT+14 |
| ABPA("IO" | ZTLOAD+1 |
| >> ABPAOPT(9 | EXTRACT+7 |
| AGE | EXTRACT+9*, EXTRACT+20, EXTRACT+23, EXTRACT+26, ZTLEND+2! |
| >> AMT | EXTRACT+17*, EXTRACT+22, EXTRACT+25, EXTRACT+28 |
| BDT | EXTRACT+9, ZTLEND+1! |
| CUR | EXTRACT+21*, EXTRACT+22, EXTRACT+24*, EXTRACT+25, EXTRACT+27*, EXTRACT+28, ZTLEND+2! |
| >> DATA | EXTRACT+6*, EXTRACT+7, EXTRACT+8, EXTRACT+10, EXTRACT+17 |
| DIC | ZTLEND+2! |
| DT | EXTRACT+9 |
| EDT | EXTRACT+9, ZTLEND+1! |
| FOUND | EXTRACT+11, EXTRACT+12*, EXTRACT+13, EXTRACT+14*, ZTLEND+2! |
| I | EXTRACT+1*, EXTRACT+30*, ZTLEND+2! |
| INSPTR | EXTRACT+10*, EXTRACT+14, EXTRACT+15, EXTRACT+16, EXTRACT+18, EXTRACT+19, EXTRACT+21, EXTRACT+22, EXTRACT+24, EXTRACT+25 , EXTRACT+27, EXTRACT+28, EXTRACT+29, ZTLEND+2! |
| INSURER | EXTRACT+10*, EXTRACT+16*, EXTRACT+29, ZTLEND+2! |
| IOP | ZTLEND+2! |
| >> J | EXTRACT+3*, EXTRACT+32*, EXTRACT+34* |
| K | EXTRACT+13*, EXTRACT+14, ZTLEND+2! |
| >> P4 | EXTRACT+34*, EXTRACT+35 |
| P5 | ZTLEND+2! |
| R | EXTRACT+1*, EXTRACT+2*, EXTRACT+4, EXTRACT+5, EXTRACT+6, EXTRACT+30*, EXTRACT+31*, EXTRACT+33, ZTLEND+2! |
| RR | EXTRACT+3*, EXTRACT+4*, EXTRACT+5, EXTRACT+6, EXTRACT+32*, EXTRACT+33*, EXTRACT+34, EXTRACT+35, ZTLEND+2! |
| X | EXTRACT+9, ZTLEND+1! |
| X1 | EXTRACT+9*, ZTLEND+2! |
| X2 | EXTRACT+7*, EXTRACT+8*, EXTRACT+9, ZTLEND+2! |
| Y | ZTLEND+1! |
| >> ZIP | EXTRACT+10*, EXTRACT+16*, EXTRACT+29 |
| ZTDESC | ZTLOAD+2*, ZTLEND+1! |
| >> ZTDTH | ZTLOAD+1* |
| ZTIO | ZTLOAD+1*, ZTLEND+1! |
| >> ZTN | ZTLOAD+1* |
| ZTRTN | ZTLOAD+1*, ZTLEND+1! |
| ZTSAVE | ZTLEND+1! |
| ZTSAVE("ABPA(" | ZTLOAD+4* |
| ZTSAVE("ABPATLE" | ZTLOAD+4* |
| ZTSAVE("BDT" | ZTLOAD+3* |
| ZTSAVE("EDT" | ZTLOAD+3* |
| ZTSAVE("ZTN" | ZTLOAD+3* |
| ZTSK | EXTRACT+18, EXTRACT+19, EXTRACT+21, EXTRACT+22, EXTRACT+24, EXTRACT+25, EXTRACT+27, EXTRACT+28, EXTRACT+29, EXTRACT+31 , EXTRACT+33, EXTRACT+34, EXTRACT+35, ZTLOAD+1, ZTLEND+1! |