IBARXEU4 ;ALB/AAS - RX COPAY EXEMPTION CHECK IF PREVIOUSLY CANCELED ; 12-JAN-93
Source file <IBARXEU4.m>
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 |