Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.1 KB
|
Rev | Line | |
---|
[628] | 1 | IBRCON3 ;ALB/RJS - TOP LEVEL ROUTINE FOR PASSING CONVERTED CHARGES - 4/28/92
|
---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | START ;
|
---|
| 5 | ;***
|
---|
| 6 | ;S XRTL=$ZU(0),XRTN="IBRCON3-1" D T0^%ZOSV ;start rt clock
|
---|
| 7 | S DIR(0)="SAO^1:P;2:D"
|
---|
| 8 | S DIR("A")="Pass converted charges by Patient or by Date (P/D): "
|
---|
| 9 | S DIR("?",1)="Converted charges may be passed using Patient name or"
|
---|
| 10 | S DIR("?",2)="Date selection criteria. If Patient is selected then"
|
---|
| 11 | S DIR("?",3)="all billing actions with a status of 'Converted' will"
|
---|
| 12 | S DIR("?",4)="be displayed. The user may then select which actions"
|
---|
| 13 | S DIR("?",5)="will be passed to accounts receivable. If Date is"
|
---|
| 14 | S DIR("?",6)="selected then all outpatient copay and fee service"
|
---|
| 15 | S DIR("?",7)="billing actions that were created within the date"
|
---|
| 16 | S DIR("?",8)="range selected (inclusive) and with a status of"
|
---|
| 17 | S DIR("?")="'Converted' will be passed to accounts receivable."
|
---|
| 18 | D ^DIR
|
---|
| 19 | W !
|
---|
| 20 | I Y=1 D ^IBRCON1 G END
|
---|
| 21 | I Y=2 D ^IBRCON2 G END
|
---|
| 22 | END ;
|
---|
| 23 | K DIR,Y
|
---|
| 24 | ;***
|
---|
| 25 | ;I $D(XRT0) S:'$D(XRTN) XRTN="IBRCON3" D T1^%ZOSV ;stop rt clock
|
---|
| 26 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.