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 |