source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCBB6.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 595 bytes
RevLine 
[613]1IBCBB6 ;ALB/BGA - CONT. OF MEDICARE EDIT CHECKS ;08/12/98
2 ;;2.0;INTEGRATED BILLING;**51**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified
4 ;
5 ; Occurrence Span Codes and Dates
6 ; occ span 74 req admit and discharge of hosp stays for bill types
7 ; 13x,23x,72x,74x,75x
8 ;I $D(IBOCSP(74)),"^13^23^72^74^75^"[(U_IBTOB12_U),('IBZADMIT!'IBZDISCH) S IBQUIT=$$IBER^IBCBB3(.IBER,169) Q:IBQUIT
9 ; Internal Control Number (ICN) or Document Control Number (DCN)
10 I ($E(IBTOB,3)=7!($E(IBTOB,3)=8)),$P(IBNDUF3,U,4)="" S IBQUIT=$$IBER^IBCBB3(.IBER,174) Q:IBQUIT
11 ;
12 D ^IBCBB7
13 Q
Note: See TracBrowser for help on using the repository browser.