37 lines
719 B
Mathematica
37 lines
719 B
Mathematica
IBTUB ;ALB/AAS - UNBILLED AMOUNTS MENU ;29-SEP-94
|
|
;;2.0;INTEGRATED BILLING;**19,123**;21-MAR-94
|
|
;
|
|
% D DT^DICRW S DIK="^DOPT(""IBTUB""," G:$D(^DOPT("IBTUB",6)) A
|
|
S ^DOPT("IBTUB",0)="Unbilled Amounts Menu Options^1N^"
|
|
F I=1:1 S X=$T(@I) Q:X="" S ^DOPT("IBTUB",I,0)=$P(X,";;",2,99)
|
|
D IXALL^DIK
|
|
;
|
|
A W ! S DIC="^DOPT(""IBTUB"",",DIC(0)="QEAM" D ^DIC G:Y'>0 END D @+Y G A
|
|
G END
|
|
;
|
|
1 ;;Send Test Unbilled Amounts Bulletin
|
|
D TEST^IBTUBUL
|
|
Q
|
|
;
|
|
2 ;;Build Average Bill Amounts
|
|
D ^IBTUBAV
|
|
Q
|
|
;
|
|
3 ;;Generate Unbilled Amounts Report
|
|
D ^IBTUBO
|
|
Q
|
|
;
|
|
4 ;;View Unbilled Amounts
|
|
D ^IBTUBV
|
|
Q
|
|
;
|
|
5 ;;Auto-Generate Unbilled Amounts Report
|
|
D AUTO^IBTUBO
|
|
Q
|
|
;
|
|
6 ;;Auto-Build Average Bill Amounts
|
|
D AUTO^IBTUBAV
|
|
Q
|
|
;
|
|
END Q
|