source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEOBAR.m@ 1751

Last change on this file since 1751 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 506 bytes
Line 
1IBCEOBAR ;ALB/TMK - EOB FUNCTIONS FOR A/R ;06-JUN-02
2 ;;2.0;INTEGRATED BILLING;**135**;21-MAR-94
3 Q
4 ;
5SPL1(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 ;
Note: See TracBrowser for help on using the repository browser.