source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBRCON3.m@ 1757

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 
1IBRCON3 ;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.
4START ;
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
22END ;
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.