IBARXEU4 ;ALB/AAS - RX COPAY EXEMPTION CHECK IF PREVIOUSLY CANCELED ; 12-JAN-93
Source file <IBARXEU4.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 3 | ^IBAERR $$STDATE^IBARXEU $$MINUS^IBARXEU0 |
| Accounts Receivable | 1 | EN1^PRCAX |
| VA FileMan | 1 | ^DIE |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CANDT | ; -- set beginning and ending dates
; input dfn =: patient internal number ; ibedt =: end date to cancel ; ibdt =: beging date to cancel |
|
| CANDTQ | ||
| CONV | ; -- see if conversion done
|
|
| CONVQ | ||
| ARCAN(DFN,IBSTAT,IBDT,IBEDT) | ; -- process cancellation with ar logic here
|
|
| ARCANQ | ||
| UPCAN | ; -- update canceled date fields
|
|
| UPCANQ |
| FileNo | Call Tags |
|---|---|
| ^IBA(354.1 - [#354.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA(354.1 - [#354.1] | CANDT+11, ARCAN+12, UPCAN+3, UPCAN+4 |
| ^IBE(350.9 - [#350.9] | CONV+2 |
| ^TMP("IB-ERROR" | ARCAN+24* |
| Name | Field # of Occurrence |
|---|---|
| ^( | UPCAN+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | UPCAN+3*, UPCAN+4, UPCAN+7! |
| DFN | CANDT+11, CONV+3, ARCAN~, ARCAN+12, ARCAN+23, ARCAN+24, UPCAN+3, UPCAN+5 |
| DIC | UPCAN+7! |
| DIE | UPCAN+2*, UPCAN+7! |
| DR | UPCAN+2*, UPCAN+7! |
| DT | CANDT+15, ARCAN+9 |
| >> ERR | ARCAN+22*, ARCAN+23, ARCAN+24 |
| >> IBCANDT | CANDT+17* |
| IBDT | CANDT+12*, CANDT+15*, CANDT+16*, CANDT+17, CONV+6*, ARCAN~, ARCAN+9*, ARCAN+13*, ARCAN+16, ARCAN+23 , UPCAN+2 |
| IBEDT | CANDT+17, ARCAN~, ARCAN+9*, ARCAN+16, ARCAN+23, UPCAN+2 |
| IBEXERR | ARCAN+24*! |
| >> IBJOB | ARCAN+24* |
| IBSTAT | ARCAN~, ARCAN+7 |
| IBWHER | ARCAN+21~, ARCAN+22* |
| X | CANDT+7~, CANDT+11*, CANDT+12, CONV+1~, CONV+2*, CONV+3, ARCAN+12*, ARCAN+13, UPCAN+7! |
| X2 | UPCAN+1~, UPCAN+4*, UPCAN+5 |