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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 3 | IB20P385 IBARXEC3 IBARXEU3 |
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 |