- 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/IBRFN3.m
r628 r636 1 1 IBRFN3 ;ALB/ARH - PASS BILL/CLAIM TO AR ;3/18/96 2 ;;2.0;INTEGRATED BILLING;**61,133,210,309 ,389**;21-MAR-94;Build 63 ;;Per VHA Directive 2004-038, this routine should not be modified.2 ;;2.0;INTEGRATED BILLING;**61,133,210,309**;21-MAR-94 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 ; Returns information on the bill passed in, all data returned in external format, for AR's RC project … … 122 122 .. S IBX=IBTMP(IBI,IBK) 123 123 .. S IBJ=IBJ+1,ARRAY("PRD")=IBJ 124 .. S ARRAY("PRD",IBJ)=$ $PINB^IBCSC5B(+IBX)_U_IBI124 .. S ARRAY("PRD",IBJ)=$P($$PIN^IBCSC5B(IBK),U,2)_U_IBI 125 125 ; 126 126 CC ; condition related to employment, auto accident (place), other accident
Note:
See TracChangeset
for help on using the changeset viewer.