- 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/IBATO1.m
r628 r636 1 1 IBATO1 ;LL/ELZ - TRANSFER PRICING REPORTS CONT. ; 18-DEC-98 2 ;;2.0;INTEGRATED BILLING;**115,266 ,389**;21-MAR-94;Build 63 ;;Per VHA Directive 2004-038, this routine should not be modified.2 ;;2.0;INTEGRATED BILLING;**115,266**;21-MAR-94 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 PAGE() ; performs page reads and returns 1 if quiting is needed … … 40 40 . S IBD(1,IBO,IBB)=$E($$EX^IBATUTL(351.61,4.01,+IBA(4)),1,18) 41 41 I $P(IBA(0),"^",12)["RMPR(660," D Q 42 . S IBD(1,IBO,IBB)=$E($ P($$PIN^IBATUTL(+$P(IBA(0),"^",12)),U,2),1,18)42 . S IBD(1,IBO,IBB)=$E($$EX^IBATUTL(351.61,4.04,$P(IBA(4),"^",4)),1,18) 43 43 S IBDATE=$P($G(^IBAT(351.61,IBIEN,0)),U,4) ; Event Date 44 44 S IBX=0 F S IBX=$O(^IBAT(351.61,IBA,3,IBX)) Q:IBX<1 D
Note:
See TracChangeset
for help on using the changeset viewer.