IBCBB6 ;ALB/BGA - CONT. OF MEDICARE EDIT CHECKS ;08/12/98
;;2.0;INTEGRATED BILLING;**51,447**;21-MAR-94;Build 80
;;Per VHA Directive 10-93-142, this routine should not be modified
;
; Occurrence Span Codes and Dates
; occ span 74 req admit and discharge of hosp stays for bill types
; 13x,23x,72x,74x,75x
;I $D(IBOCSP(74)),"^13^23^72^74^75^"[(U_IBTOB12_U),('IBZADMIT!'IBZDISCH) S IBQUIT=$$IBER^IBCBB3(.IBER,169) Q:IBQUIT
; Internal Control Number (ICN) or Document Control Number (DCN)
; IB*2.0*447 BI Removed and replaced with a call to $$IBMICN^IBCBB13 from IBCBB1
;I ($E(IBTOB,3)=7!($E(IBTOB,3)=8)),$P(IBNDUF3,U,4)="" S IBQUIT=$$IBER^IBCBB3(.IBER,174) Q:IBQUIT
;
D ^IBCBB7
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCBB6 705 printed Oct 16, 2024@18:09:36 Page 2
IBCBB6 ;ALB/BGA - CONT. OF MEDICARE EDIT CHECKS ;08/12/98
+1 ;;2.0;INTEGRATED BILLING;**51,447**;21-MAR-94;Build 80
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified
+3 ;
+4 ; Occurrence Span Codes and Dates
+5 ; occ span 74 req admit and discharge of hosp stays for bill types
+6 ; 13x,23x,72x,74x,75x
+7 ;I $D(IBOCSP(74)),"^13^23^72^74^75^"[(U_IBTOB12_U),('IBZADMIT!'IBZDISCH) S IBQUIT=$$IBER^IBCBB3(.IBER,169) Q:IBQUIT
+8 ; Internal Control Number (ICN) or Document Control Number (DCN)
+9 ; IB*2.0*447 BI Removed and replaced with a call to $$IBMICN^IBCBB13 from IBCBB1
+10 ;I ($E(IBTOB,3)=7!($E(IBTOB,3)=8)),$P(IBNDUF3,U,4)="" S IBQUIT=$$IBER^IBCBB3(.IBER,174) Q:IBQUIT
+11 ;
+12 DO ^IBCBB7
+13 QUIT
