| 1 | IBCEOBAR ;ALB/TMK - EOB FUNCTIONS FOR A/R ;06-JUN-02
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**135**;21-MAR-94
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | SPL1(IB3611,IBBILL,IBBREF,IBAMT) ; Store the split amts in IB's EOB file
|
|---|
| 6 | N DD,DO,DIC,X,Y,DLAYGO,DA,Z,DR
|
|---|
| 7 | S Z=+$O(^IBM(361.1,+IB3611,8,"B",IBBILL,0))
|
|---|
| 8 | I Z,+$P($G(^IBM(361.1,IB3611,8,Z,0)),U,2)=+IBAMT Q ; Duplicate
|
|---|
| 9 | S DLAYGO=361.18,DA(1)=IB3611,DIC(0)="L",X=IBBILL,DIC("DR")=".02////"_$J(+IBAMT,"",2)_$S(IBBREF:";.03////"_IBBREF,1:""),DIC="^IBM(361.1,"_DA(1)_",8,"
|
|---|
| 10 | D FILE^DICN K DIC,DD,DO,DLAYGO
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
