IBCEOBAR.m

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 ---IBCEOBAR   518     printed  Nov 22, 2024@17:21:32                                                                                                                                                                                                     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       ;