Last change
on this file since 1757 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.1 KB
|
Line | |
---|
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.