source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEMU4.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 782 bytes
Line 
1IBCEMU4 ;ALB/ESG - MRA UTILITIES ;25-OCT-2004
2 ;;2.0;INTEGRATED BILLING;**288**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 Q
6 ;
7DENDUP(IBEOB) ; Denied for Duplicate Function
8 ; Function returns true if MRA is Denied AND Reason code 18 is present (Duplicate claim/service)
9 NEW IBX,IBM,LINE,DUP,ADJ
10 S IBX=0,IBM=$G(^IBM(361.1,+$G(IBEOB),0))
11 I $P(IBM,U,4)'=1 G DENDUPX ; not an MRA
12 I $P(IBM,U,13)'=2 G DENDUPX ; not Denied
13 ;
14 ; check line item adjustments for reason code 18
15 S LINE=0,DUP=0
16 F S LINE=$O(^IBM(361.1,IBEOB,15,LINE)) Q:'LINE D Q:DUP
17 . S ADJ=0
18 . F S ADJ=$O(^IBM(361.1,IBEOB,15,LINE,1,ADJ)) Q:'ADJ D Q:DUP
19 .. I $D(^IBM(361.1,IBEOB,15,LINE,1,ADJ,1,"B",18)) S DUP=1 Q
20 .. Q
21 . Q
22 ;
23 I DUP S IBX=1
24DENDUPX ;
25 Q IBX
26 ;
Note: See TracBrowser for help on using the repository browser.