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


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