- Timestamp:
- Dec 4, 2009, 8:26:01 PM (15 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/IBCEF73.m
r628 r636 1 1 IBCEF73 ;WOIFO/SS - FORMATTER AND EXTRACTOR SPECIFIC BILL FUNCTIONS ;8/6/03 10:56am 2 ;;2.0;INTEGRATED BILLING;**232,320,358,349 ,377**;21-MAR-94;Build 232 ;;2.0;INTEGRATED BILLING;**232,320,358,349**;21-MAR-94;Build 46 3 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ; … … 174 174 D F^IBCEF("N-ALL INSURED PT RELATION","IBZ",,IBXIEN) 175 175 S IBZ=$G(IBZ(+$$COBN^IBCEF(IBXIEN))) 176 S IBZ=$$ PRELCNV^IBCNSP1(IBZ,1)176 S IBZ=$$RELATION^IBCEFG1(IBZ) 177 177 I IBZ'="18" S IBXDATA="" Q 178 178 N IBZ D F^IBCEF("N-PATIENT STREET ADDRESS 1-3","IBZ",,IBXIEN) … … 227 227 . S IBIDTYP=$P($G(^IBE(355.97,IBIDTYP,0)),"^",3) 228 228 . S:IBIDTYP="EI" IBID=$P($G(^IBA(355.9,IB3559,0)),"^",7),IBQFL=1 229 ; if nothing found yet, look in file 355.93 for Facility Default ID230 I IBID="",IBPROV["IBA(355.93" D231 .N IB0,IBFID,IBQ232 .S IB0=$G(^IBA(355.93,+IBPROV,0)) Q:IB0=""!($P(IB0,U,2)'=1) ; not a facility - bail out233 .S IBFID=$P(IB0,U,9) Q:IBFID="" ; no default id on file - bail out234 .S IBQ=$P(IB0,U,13) I +IBQ>0,$P($G(^IBE(355.97,IBQ,0)),U,3)=24 S IBID=IBFID235 .Q236 229 Q $$NOPUNCT^IBCEF(IBID) 237 230 ;
Note:
See TracChangeset
for help on using the changeset viewer.