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

Last change on this file since 1764 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 719 bytes
Line 
1IBTUB ;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 ;
9A W ! S DIC="^DOPT(""IBTUB"",",DIC(0)="QEAM" D ^DIC G:Y'>0 END D @+Y G A
10 G END
11 ;
121 ;;Send Test Unbilled Amounts Bulletin
13 D TEST^IBTUBUL
14 Q
15 ;
162 ;;Build Average Bill Amounts
17 D ^IBTUBAV
18 Q
19 ;
203 ;;Generate Unbilled Amounts Report
21 D ^IBTUBO
22 Q
23 ;
244 ;;View Unbilled Amounts
25 D ^IBTUBV
26 Q
27 ;
285 ;;Auto-Generate Unbilled Amounts Report
29 D AUTO^IBTUBO
30 Q
31 ;
326 ;;Auto-Build Average Bill Amounts
33 D AUTO^IBTUBAV
34 Q
35 ;
36END Q
Note: See TracBrowser for help on using the repository browser.