- 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/IBJTBA.m
r628 r636 1 1 IBJTBA ;ALB/ARH - TPI BILL CHARGE INFO SCREEN ;01-MAR-1995 2 ;;2.0;INTEGRATED BILLING;**39,80,51,137,135,309,349 ,389**;21-MAR-94;Build62 ;;2.0;INTEGRATED BILLING;**39,80,51,137,135,309,349**;21-MAR-94;Build 46 3 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ; … … 157 157 D SET^IBCSC5B(IBIFN,.IBARRAY) 158 158 I $D(IBARRAY) D 159 . S (Z,Z0)=0 F S Z0=$O(IBARRAY(Z0)) Q:Z0="" S Z1=0 F S Z1=$O(IBARRAY(Z0,Z1)) Q:'Z1 S Z=Z+1,IBXDATA(Z)=$$DAT1^IBOUTL(Z0)_U_$E($ $PINB^IBCSC5B(+IBARRAY(Z0,Z1)),1,39)159 . S (Z,Z0)=0 F S Z0=$O(IBARRAY(Z0)) Q:Z0="" S Z1=0 F S Z1=$O(IBARRAY(Z0,Z1)) Q:'Z1 S Z=Z+1,IBXDATA(Z)=$$DAT1^IBOUTL(Z0)_U_$E($P($$PIN^IBCSC5B(Z1),U,2),1,39) 160 160 S IBD=$$SET("",IBLN) 161 161 S IBD="PROSTHETIC REFILLS: (For TPJI display only)"
Note:
See TracChangeset
for help on using the changeset viewer.