VistA Routine: AHIBIL00


AHIBIL00        ;NCH/RLP  Bill/Claims screen Inpatients              27-Aug-03
        ;
        ; --- Routine is a SCREEN for Option AHI CBI BILL INPAT
        ; ---                                AHI CBI BILL OUTPAT
        ; --- File: 399 BILL/CLAIMS
        ;
EN      I $D(^DGCR(399,D0,"CP")) D  ;
        . S D1=0 F  S D1=+$O(^DGCR(399,D0,"CP",D1)) Q:'D1  D  ;
        . . S ExtProc=$$EXTERNAL^DIDU(399.0304,.01,"",$P($G(^DGCR(399,D0,"CP",D1
,0)),U,1))
        . . I ExtProc<70000!(ExtProc>89999) S HIT=1
        . . E  S HIT=0