- 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/IBRFN4.m
r628 r636 1 1 IBRFN4 ;ALB/TMK - Supported functions for AR/IB DATA EXTRACT ;15-FEB-2005 2 ;;2.0;INTEGRATED BILLING;**301,305 ,389**;21-MAR-94;Build 63 ;;Per VHA Directive 2004-038, this routine should not be modified.2 ;;2.0;INTEGRATED BILLING;**301,305**;21-MAR-94 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 IBAREXT(IBIFN,IBD) ; Returns data for claim IBIFN for IB/AR Extract … … 51 51 .. S IBX=IBTMP(IBI,IBK) 52 52 .. S IBJ=IBJ+1 53 .. S IBD("PRD",IBJ)=$ $PINB^IBCSC5B(+IBX)_U_IBI_U_+IBTMP53 .. S IBD("PRD",IBJ)=$P($$PIN^IBCSC5B(IBK),U,2)_U_IBI_U_+IBTMP 54 54 ; 55 55 S Z=" ",IBD("IN")="",DFN=+$P(IB(0),U,2)
Note:
See TracChangeset
for help on using the changeset viewer.