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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCEOBAR 518 printed Sep 15, 2024@21:35:30 Page 2
IBCEOBAR ;ALB/TMK - EOB FUNCTIONS FOR A/R ;06-JUN-02
+1 ;;2.0;INTEGRATED BILLING;**135**;21-MAR-94
+2 QUIT
+3 ;
SPL1(IB3611,IBBILL,IBBREF,IBAMT) ; Store the split amts in IB's EOB file
+1 NEW DD,DO,DIC,X,Y,DLAYGO,DA,Z,DR
+2 SET Z=+$ORDER(^IBM(361.1,+IB3611,8,"B",IBBILL,0))
+3 ; Duplicate
IF Z
IF +$PIECE($GET(^IBM(361.1,IB3611,8,Z,0)),U,2)=+IBAMT
QUIT
+4 SET DLAYGO=361.18
SET DA(1)=IB3611
SET DIC(0)="L"
SET X=IBBILL
SET DIC("DR")=".02////"_$JUSTIFY(+IBAMT,"",2)_$SELECT(IBBREF:";.03////"_IBBREF,1:"")
SET DIC="^IBM(361.1,"_DA(1)_",8,"
+5 DO FILE^DICN
KILL DIC,DD,DO,DLAYGO
+6 QUIT
+7 ;