- 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/IBCEF1.m
r628 r636 1 1 IBCEF1 ;ALB/TMP - FORMATTER SPECIFIC BILL FUNCTIONS - CONT ;30-JAN-96 2 ;;2.0;INTEGRATED BILLING;**52,124,51,137,210,155,349 ,371**;21-MAR-94;Build 572 ;;2.0;INTEGRATED BILLING;**52,124,51,137,210,155,349**;21-MAR-94;Build 46 3 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ; … … 183 183 . ; address that shows through the envelope window. 184 184 . ; 185 . ; esg - 9/13/07 - IB*2*371 - Line 1 of this box contains the print 186 . ; status (i.e. copy, 2nd notice, 3rd notice, MRA needed). 187 . ; 188 . N Z,Z1,LM,Q,ADDR,X,IBPSTAT 185 . N Z,LM,Q,ADDR,X 189 186 . S LM=$P($G(^IBE(350.9,1,1)),U,31) ; UB address column parameter 190 187 . S Z="" 191 188 . I LM S $P(Z," ",LM)="" ; beginning spaces indent 192 189 . S ADDR=$G(IBXSAVE("CADR")) ; address data string 193 . ; 194 . D F^IBCEF("N-PRINT BILL SUBMIT STATUS","IBPSTAT",,+$G(IBXIEN)) 195 . S Z1=Z I Z1="" S Z1=" " ; line 1 can't start in column 1 196 . S IBXDATA(1)=Z1_$G(IBPSTAT),Q=1 ; line 1 print status 190 . S IBXDATA(1)="",Q=1 ; line 1 is blank 197 191 . S Q=Q+1 198 192 . S IBXDATA(Q)=Z_$G(IBXSAVE("CADR_NAME")) ; line 2 payer name
Note:
See TracChangeset
for help on using the changeset viewer.