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