Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
719 bytes
|
Line | |
---|
1 | IBTUB ;ALB/AAS - UNBILLED AMOUNTS MENU ;29-SEP-94
|
---|
2 | ;;2.0;INTEGRATED BILLING;**19,123**;21-MAR-94
|
---|
3 | ;
|
---|
4 | % D DT^DICRW S DIK="^DOPT(""IBTUB""," G:$D(^DOPT("IBTUB",6)) A
|
---|
5 | S ^DOPT("IBTUB",0)="Unbilled Amounts Menu Options^1N^"
|
---|
6 | F I=1:1 S X=$T(@I) Q:X="" S ^DOPT("IBTUB",I,0)=$P(X,";;",2,99)
|
---|
7 | D IXALL^DIK
|
---|
8 | ;
|
---|
9 | A W ! S DIC="^DOPT(""IBTUB"",",DIC(0)="QEAM" D ^DIC G:Y'>0 END D @+Y G A
|
---|
10 | G END
|
---|
11 | ;
|
---|
12 | 1 ;;Send Test Unbilled Amounts Bulletin
|
---|
13 | D TEST^IBTUBUL
|
---|
14 | Q
|
---|
15 | ;
|
---|
16 | 2 ;;Build Average Bill Amounts
|
---|
17 | D ^IBTUBAV
|
---|
18 | Q
|
---|
19 | ;
|
---|
20 | 3 ;;Generate Unbilled Amounts Report
|
---|
21 | D ^IBTUBO
|
---|
22 | Q
|
---|
23 | ;
|
---|
24 | 4 ;;View Unbilled Amounts
|
---|
25 | D ^IBTUBV
|
---|
26 | Q
|
---|
27 | ;
|
---|
28 | 5 ;;Auto-Generate Unbilled Amounts Report
|
---|
29 | D AUTO^IBTUBO
|
---|
30 | Q
|
---|
31 | ;
|
---|
32 | 6 ;;Auto-Build Average Bill Amounts
|
---|
33 | D AUTO^IBTUBAV
|
---|
34 | Q
|
---|
35 | ;
|
---|
36 | END Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.