NAME: AHI CBI BILL INPAT                MENU TEXT: Local CBI InPatient
  TYPE: print                           CREATOR: PETTIGREW,RANDIE L
  DIC {DIP}: DGCR(399,                  L.: 0
  FLDS: [ZZZCBIPRINT]                   BY: [AHI BILL INPAT]
  DIS(0): S HIT=0 D EN^AHIBIL00 I HIT   TIMESTAMP OF PRIMARY MENU: 59409,43285
  UPPERCASE MENU TEXT: LOCAL CBI INPATIENT


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