Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
595 bytes
|
Rev | Line | |
---|
[613] | 1 | IBCBB6 ;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.