- 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/IBCF4.m
r628 r636 1 1 IBCF4 ;ALB/ARH - PRINT BILL ADDENDUM ;12-JAN-94 2 ;;2.0;INTEGRATED BILLING;**52,137,199,309 ,389**;21-MAR-94;Build 63 ;;Per VHA Directive 2004-038, this routine should not be modified.2 ;;2.0;INTEGRATED BILLING;**52,137,199,309**;21-MAR-94 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 PRXA ;get bill number then print rx refill addendums for bills … … 56 56 . S IBY=$G(^IBA(362.5,IBPIFN,0)),IBYC="" Q:IBY="" 57 57 . S IBYC=$$CHG(IBPIFN,5,.IBRC) 58 . W !,$$FMTE^XLFDT(+$P(IBY,U,1),2),?11,$J($S(IBYC:"$"_$FN(IBYC,",",2),1:""),10),?24,$ E($P(IBY,U,5),1,55)58 . W !,$$FMTE^XLFDT(+$P(IBY,U,1),2),?11,$J($S(IBYC:"$"_$FN(IBYC,",",2),1:""),10),?24,$P($$PIN^IBCSC5B(+$P(IBY,U,3)),U,2) 59 59 . S IBLN=IBLN+1 I IBLN>(IOSL-7) D PAUSE,HDR 60 60 D:'IBQUIT PAUSE
Note:
See TracChangeset
for help on using the changeset viewer.