IB20PT5 ;ALB/CPM - IB V2.0 POST-INIT ONE-TIME ITEMS ; 03-SEP-93
Source file <IB20PT5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACHG | ; Clean up any IB ACTION CHARGE (#350.2) nodes left hanging.
|
|
| DEF | ; Enter default billing form type.
|
|
| BASC | ; Update the BASC start date to 10/1/99.
|
|
| STAT | ; Set new entries into the IB ACTION STATUS (#350.21) file.
|
|
| CCMG | ; Update the central collection mailgroup in file #350.9
|
|
| CRES | ; Update the cancellation reason MT CHARGE EDITED in file #350.3
|
|
| FT | ; Update called routine for form type HCFA 1500
|
|
| PSO | ; Update the eligibility logic for PSO SC RX COPAY NEW
|
|
| NEWCODE | ;;S X=0,X1="",X2="" G:'$D(VAEL) 1^IBAERR I VAEL(4),+VAEL(3),'IBDOM S X=$S($P(VAEL(3),"^",2)<50:2,1:0) I X S:$$RXEXMT^IBARXEU0(DFN,DT) X=0 I X S X2=$P(^IBE(350.1,DA,0),"^",4) D COST^IBAUTL
|
|
| ABP | ; Set auto biller parameters.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(350.21 - [#350.21] | Classic Fileman Calls |
| ^IBE(350.3 - [#350.3] | Classic Fileman Calls |
| ^IBE(350.9 - [#350.9] | Classic Fileman Calls |
| ^IBE(353 - [#353] | Classic Fileman Calls |
| ^IBE(356.6 - [#356.6] | Classic Fileman Calls |