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