- 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/IBTOBI1.m
r628 r636 1 1 IBTOBI1 ;ALB/AAS - CLAIMS TRACKING BILLING INFORMATION PRINT ;27-OCT-93 2 ;;2.0;INTEGRATED BILLING;**276 ,377**;21-MAR-94;Build 233 ;;Per VHA Directive 2004-038, this routine should not be modified.2 ;;2.0;INTEGRATED BILLING;**276**;21-MAR-94 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 % ; … … 46 46 I ($Y+8)>IOSL D HDR^IBTOBI Q:IBQUIT 47 47 BI1 W !," Billing Information " 48 N IBDGCR,IBDGCRU1,IBDGCRU,IBAMNT,IBD,I,IBIFN,IB LN,IBECME48 N IBDGCR,IBDGCRU1,IBDGCRU,IBAMNT,IBD,I,IBIFN,IBADD,IBECME 49 49 S IBIFN=+$P(IBTRND,"^",11) 50 50 S IBDGCR=$G(^DGCR(399,IBIFN,0)),IBDGCRU1=$G(^("U1")),IBDGCRU=$G(^("U")) 51 51 S IBECME=$P($P($G(^DGCR(399,IBIFN,"M1")),U,8),";") 52 52 S IBAMNT=$$BILLD^IBTRED1(IBTRN) 53 S IB LN=054 S IB LN=IBLN+1,IBD(IBLN,1)=" Initial Bill: "_$P(IBDGCR,U,1)53 S IBADD=0 54 S IBD(1,1)=" Initial Bill: "_$P(IBDGCR,"^") 55 55 I IBECME D 56 . S IBD(IBLN,1)=IBD(IBLN,1)_"e" 57 . S IBLN=IBLN+1,IBD(IBLN,1)=" ECME Number: "_IBECME 58 S IBLN=IBLN+1,IBD(IBLN,1)=" Bill Status: "_$E($$EXPAND^IBTRE(399,.13,$P(IBDGCR,U,13)),1,14) 59 S IBLN=IBLN+1,IBD(IBLN,1)=" Total Charges: $ "_$J($P(IBAMNT,"^"),8) 60 S IBLN=IBLN+1,IBD(IBLN,1)=" Amount Paid: $ "_$J($P(IBAMNT,"^",2),8) 56 . S IBADD=1 57 . S IBD(1,1)=IBD(1,1)_"e" 58 . S IBD(2,1)=" ECME Number: "_IBECME 59 S IBD(2+IBADD,1)=" Bill Status: "_$E($$EXPAND^IBTRE(399,.13,$P(IBDGCR,"^",13)),1,14) 60 S IBD(3+IBADD,1)=" Total Charges: $ "_$J($P(IBAMNT,"^"),8) 61 S IBD(4+IBADD,1)=" Amount Paid: $ "_$J($P(IBAMNT,"^",2),8) 61 62 ; 62 I $P(IBTRND,U,19) D 63 . S IBLN=IBLN+1,IBD(IBLN,1)="Reason Not Billable: "_$$EXPAND^IBTRE(356,.19,$P(IBTRND,U,19)) 64 . S IBLN=IBLN+1,IBD(IBLN,1)="Additional Comment: "_$P(IBTRND1,U,8) 65 . Q 66 ; 67 I '$P(IBTRND,U,19),$L($P(IBTRND1,U,8))>0 S IBLN=IBLN+1,IBD(IBLN,1)="Additional Comment: "_$P(IBTRND1,U,8) 63 I $P(IBTRND,"^",19) S IBD(5,1)="Reason Not Billable: "_$$EXPAND^IBTRE(356,.19,$P(IBTRND,"^",19)),IBD(6,1)="Additional Comment: "_$P(IBTRND1,"^",8) 68 64 ; 69 65 S IBD(1,2)="Estimated Recv (Pri): $ "_$J($P(IBTRND,"^",21),8) … … 71 67 S IBD(3,2)="Estimated Recv (ter): $ "_$J($P(IBTRND,"^",23),8) 72 68 S IBD(4,2)=" Means Test Charges: $ "_$J($P(IBTRND,"^",28),8) 73 ;69 I $L($P($G(^IBT(356,IBTRN,1)),U,8))>0 S IBD(5,1)="Additional Comment: "_$P($G(^IBT(356,IBTRN,1)),U,8) 74 70 S I=0 F S I=$O(IBD(I)) Q:'I W !,$G(IBD(I,1)),?39,$E($G(IBD(I,2)),1,36) 75 71 W:'IBQUIT !,?4,$TR($J(" ",IOM-8)," ","-")
Note:
See TracChangeset
for help on using the changeset viewer.