- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEU6.m
r628 r636 1 1 IBCEU6 ;ALB/ESG - EDI UTILITIES FOR EOB PROCESSING ;29-JUL-2003 2 ;;2.0;INTEGRATED BILLING;**155 ,371**;21-MAR-94;Build 573 ; ;Per VHA Directive 2004-038, this routine should not be modified.2 ;;2.0;INTEGRATED BILLING;**155**;21-MAR-94 3 ; 4 4 Q 5 5 ; … … 45 45 F S A=$O(^IBM(361.1,"B",IBIFN,A)) Q:'A D 46 46 . I '$$EOBELIG^IBCEU1(A) Q ; eob not eligible for secondary claim 47 . I '$D(^IBM(361.1,A,15,"AC",IBI)) Q ; this EOB does not reference VistA line# IBI48 47 . S IBA=0 49 48 . S IBDATA=$G(^IBM(361.1,A,0))
Note:
See TracChangeset
for help on using the changeset viewer.