- 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/IBCNS1.m
r628 r636 1 1 IBCNS1 ;ALB/AAS - INSURANCE MANAGEMENT SUPPORTED FUNCTIONS ;22-JULY-91 2 ;;2.0;INTEGRATED BILLING;**28,60,52,85,107,51,137,240 ,371**;21-MAR-94;Build 573 ;;Per VHA Directive 2004-038, this routine should not be modified.2 ;;2.0;INTEGRATED BILLING;**28,60,52,85,107,51,137,240**;21-MAR-94 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 INSURED(DFN,IBINDT) ; -- Is patient insured … … 108 108 ; var(x,3) =: ^dpt(dfn,.312,x,3) 109 109 ; var(x,4) =: ^dpt(dfn,.312,x,4) 110 ; var(x,5) =: ^dpt(dfn,.312,x,5)111 110 ; var(x,355.3) =: ^iba(355.3,$p(var(x,0),"^",18),0) 112 111 ; var("S",COB sequence,x) =: (null) as an xref for COB … … 123 122 .S @VAR@(X,3)=$G(^DPT(DFN,.312,X,3)) 124 123 .S @VAR@(X,4)=$G(^DPT(DFN,.312,X,4)) 125 .S @VAR@(X,5)=$G(^DPT(DFN,.312,X,5))126 124 .S @VAR@(X,355.3)=$G(^IBA(355.3,+$P($G(^DPT(DFN,.312,X,0)),"^",18),0)) 127 125 .I $G(SOP) D
Note:
See TracChangeset
for help on using the changeset viewer.