IBCBB6.m

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 ---IBCBB6   705     printed  Apr 09, 2024@21:19:42                                                                                                                                                                                                       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