©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
RCDPEAR3 ;AITC/CJE - ERA Unmatched Aging Report ;
Source file <RCDPEAR3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SELPAY(RCRESPYR,RCJOB,RCPAY) | ;localize the payer filters for header display
; Input: ; RCRESPYR (pass-by-val/required) - payer filter response indicator (2=ALL, 3=SPECIFIC) ; RCJOB - job number to access the populated temporary global array in case report was tasked to run ; Output: ; RCPAY (pass-by-ref/required) - local array of payers e.g. RCPAY="ALL", RCPAY(1)="Aetna", ; or RCPAY="start payer = end payer" |
|
| RLOAD(FILE) | ; PRCA*4.5*284 - Load Payer temp global AFTER queued job starts
; Load Selected payers from local array end exit ; Input: FILE to load payers from (344.31 passed from RCDPEAR2) ; Output: ^TMP("RCPAYER") and ^TMP("RCSELPAY") arrays |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RCY( | RLOAD+10, RLOAD+16 |
| ^TMP("RCPAYER" | RLOAD+14!, RLOAD+16*, RLOAD+19, RLOAD+20, RLOAD+21 |
| ^TMP("RCSELPAY" | SELPAY+12, SELPAY+13, SELPAY+15, SELPAY+16, RLOAD+5*, RLOAD+10*, RLOAD+21* |
| Name | Field # of Occurrence |
|---|---|
| ^( | SELPAY+15, SELPAY+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | SELPAY+7~, SELPAY+11*, SELPAY+12*, SELPAY+13, RLOAD+6~, RLOAD+10*, RLOAD+15*, RLOAD+16* |
| FILE | RLOAD~, RLOAD+10, RLOAD+16 |
| I | SELPAY+7~, SELPAY+15*, SELPAY+16* |
| INDX | RLOAD+6~, RLOAD+18*, RLOAD+21* |
| NUM | RLOAD+6~, RLOAD+20*, RLOAD+21 |
| RCINSF | RLOAD+6~, RLOAD+18*, RLOAD+19*, RLOAD+20 |
| RCINST | RLOAD+6~, RLOAD+18*, RLOAD+19 |
| RCJOB | SELPAY~, SELPAY+9*, SELPAY+12, SELPAY+13, SELPAY+15, SELPAY+16 |
| RCPAY | SELPAY~, SELPAY+8*, SELPAY+15*, SELPAY+16*, RLOAD+6~, RLOAD+10*, RLOAD+15*, RLOAD+16* |
| RCPAY( | SELPAY+13* |
| >> RCPYRLST | RLOAD+5 |
| RCRESPYR | SELPAY~, SELPAY+8, SELPAY+10, RLOAD+5, RLOAD+9, RLOAD+18 |