IBCEOBAR ;ALB/TMK - EOB FUNCTIONS FOR A/R ;06-JUN-02
 ;;2.0;INTEGRATED BILLING;**135**;21-MAR-94
 Q
 ;
SPL1(IB3611,IBBILL,IBBREF,IBAMT) ; Store the split amts in IB's EOB file
 N DD,DO,DIC,X,Y,DLAYGO,DA,Z,DR
 S Z=+$O(^IBM(361.1,+IB3611,8,"B",IBBILL,0))
 I Z,+$P($G(^IBM(361.1,IB3611,8,Z,0)),U,2)=+IBAMT Q  ; Duplicate
 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,"
 D FILE^DICN K DIC,DD,DO,DLAYGO
 Q
 ;