- 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/IBCEF75.m
r628 r636 1 1 IBCEF75 ;ALB/WCJ - Provider ID functions ;13 Feb 2006 2 ;;2.0;INTEGRATED BILLING;**320 ,371**;21-MAR-94;Build 573 ;; Per VHA Directive 2004-038, this routine should not be modified.2 ;;2.0;INTEGRATED BILLING;**320**;21-MAR-94 3 ;; Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 G AWAY … … 66 66 ; Secondary #2 67 67 ; If there is a ID send with quailifer (stored or computed) 68 I $ TR($P(M1,U,COB+1)," ")]"" D68 I $P(M1,U,COB+1)]"" D 69 69 . S QUAL="" 70 70 . S DAT=$P(M1,U,COB+9) … … 74 74 . S IB2=QUAL_U_$$STRIP^IBCEF76($P(M1,U,COB+1),1,,IBSTRIP) 75 75 ; 76 I $ TR($P(M1,U,COB+1)," ")="" S IB2=$$STRIP^IBCEF76($$OLDWAY(IBIFN,COB),1,,IBSTRIP)_U_$$STRIP^IBCEF76($$GET1^DIQ(350.9,1,1.05),1,,IBSTRIP)76 I $P(M1,U,COB+1)="" S IB2=$$STRIP^IBCEF76($$OLDWAY(IBIFN,COB),1,,IBSTRIP)_U_$$STRIP^IBCEF76($$GET1^DIQ(350.9,1,1.05),1,,IBSTRIP) 77 77 ; 78 78 S IDS("BILLING PRV",IBIFN,SORT1,SORT2,2)=IB2
Note:
See TracChangeset
for help on using the changeset viewer.