©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
APCLOS21 ; IHS/CMI/LAB - continuuation of APCLOS2 ;
Source file <APCLOS21.m>
| Package | Total | Caller Graph |
|---|---|---|
| Patient Care Component Reports | 2 | APCLOS2 APCLVLU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PIDD(P,D) | ;EP - Is patient P private insurance MEDICARE D eligible on date D. 1= yes, 0=no.
; I = IEN ; Y = 1:yes, 0:no ; X = Pointer to INSURER file. |
|
| THIRD | ;ENTRY POINT
|
|
| MCRA2 | ;
|
|
| MCD | ;
|
|
| PIDDX | ;
|
|
| PI | ;
|
|
| MCRA | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNMCR - [#9000003] | MCRA+2, MCRA+5, MCRA2+1, MCRA2+2, MCRA2+3 |
| ^AUPNPAT - [#9000001] | PIDD+10 |
| ^AUPNPRVT - [#9000006] | PIDD+11, PIDD+14, PIDD+15, PIDD+16, PIDD+21, PIDD+22 |
| ^AUTNINS - [#9999999.18] | PIDD+18, PIDD+19 |
| ^DPT - [#2] | MCRA+3, MCRA+4, PIDD+8, PIDD+9, PIDD+12 |
| ^XTMP( | THIRD+8, THIRD+18, MCRA+7, PI+1, MCD+1 |
| Name | Line Occurrences |
|---|---|
| $$PIDD | THIRD+7, THIRD+17 |
| MCD | THIRD+9, THIRD+19 |
| MCRA | THIRD+2, THIRD+3, THIRD+5, THIRD+11, THIRD+12, THIRD+15 |
| MCRA2 | MCRA+5 |
| PI | THIRD+9, THIRD+19 |
| PIDDX | PIDD+8, PIDD+9, PIDD+10, PIDD+11, PIDD+12 |
| Name | Field # of Occurrence |
|---|---|
| ^( | THIRD+8*, THIRD+18*, MCRA+4, MCRA+7*, PIDD+12 |
| ^("MCD" | MCD+1* |
| ^("PI" | PI+1* |
| ^(0 | MCRA2+3, PIDD+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APCLACE | THIRD+1*, THIRD+7, THIRD+10*, THIRD+17, MCRA2+3, PI+1, MCD+1 |
| >> APCLACED | THIRD+1*, THIRD+10*, MCRA+4, MCRA2+2 |
| >> APCLBTH | THIRD+8, THIRD+18, MCRA+7, PI+1, MCD+1 |
| >> APCLFYB | THIRD+1 |
| >> APCLFYE | THIRD+1 |
| APCLGOT | THIRD+6, THIRD+16, MCRA+1!, MCRA+5!, MCRA+6, MCRA2+4* |
| >> APCLJOB | THIRD+8, THIRD+18, MCRA+7, PI+1, MCD+1 |
| >> APCLMCR | THIRD+2*, THIRD+3*, THIRD+4*, THIRD+8, THIRD+11*, THIRD+12*, THIRD+14*, THIRD+18, MCRA+7 |
| >> APCLMDFN | MCRA+5*, MCRA2+1, MCRA2+2, MCRA2+3 |
| >> APCLOS | THIRD+1*, THIRD+8, THIRD+10*, THIRD+18, MCRA+7, PI+1, MCD+1 |
| >> APCLPYB | THIRD+10 |
| >> APCLPYE | THIRD+10 |
| >> APCLVAL | THIRD+2*, THIRD+3*, THIRD+4*, THIRD+11*, THIRD+12*, THIRD+14*, MCRA2+1 |
| D | PIDD~, PIDD+5, PIDD+12, PIDD+21, PIDD+22 |
| >> DFN | THIRD+7, THIRD+17, MCRA+2, MCRA+3, MCRA+4, MCRA+5, MCRA2+1, MCRA2+2, MCRA2+3, PI+1 , MCD+1 |
| >> G | PIDD+17*, PIDD+18*, PIDD+19*, PIDD+20 |
| I | PIDD+6~, PIDD+13*, PIDD+14*, PIDD+15, PIDD+16, PIDD+21, PIDD+22 |
| P | PIDD~, PIDD+4, PIDD+8, PIDD+9, PIDD+10, PIDD+11, PIDD+12, PIDD+14, PIDD+15, PIDD+16 , PIDD+21, PIDD+22 |
| U | MCRA+4, MCRA2+1, MCRA2+2, MCRA2+3, PIDD+7*, PIDD+9, PIDD+12, PIDD+15, PIDD+16, PIDD+18 , PIDD+19, PIDD+21, PIDD+22 |
| X | THIRD+7*, THIRD+8, THIRD+17*, THIRD+18, PIDD+6~, PIDD+16*, PIDD+18, PIDD+19 |
| Y | PIDD+6~, PIDD+7*, PIDD+23*, PIDDX+1 |