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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBTUB 755 printed Dec 13, 2024@02:29:02 Page 2
IBTUB ;ALB/AAS - UNBILLED AMOUNTS MENU ;29-SEP-94
+1 ;;2.0;INTEGRATED BILLING;**19,123**;21-MAR-94
+2 ;
% DO DT^DICRW
SET DIK="^DOPT(""IBTUB"","
if $DATA(^DOPT("IBTUB",6))
GOTO A
+1 SET ^DOPT("IBTUB",0)="Unbilled Amounts Menu Options^1N^"
+2 FOR I=1:1
SET X=$TEXT(@I)
if X=""
QUIT
SET ^DOPT("IBTUB",I,0)=$PIECE(X,";;",2,99)
+3 DO IXALL^DIK
+4 ;
A WRITE !
SET DIC="^DOPT(""IBTUB"","
SET DIC(0)="QEAM"
DO ^DIC
if Y'>0
GOTO END
DO @+Y
GOTO A
+1 GOTO END
+2 ;
1 ;;Send Test Unbilled Amounts Bulletin
+1 DO TEST^IBTUBUL
+2 QUIT
+3 ;
2 ;;Build Average Bill Amounts
+1 DO ^IBTUBAV
+2 QUIT
+3 ;
3 ;;Generate Unbilled Amounts Report
+1 DO ^IBTUBO
+2 QUIT
+3 ;
4 ;;View Unbilled Amounts
+1 DO ^IBTUBV
+2 QUIT
+3 ;
5 ;;Auto-Generate Unbilled Amounts Report
+1 DO AUTO^IBTUBO
+2 QUIT
+3 ;
6 ;;Auto-Build Average Bill Amounts
+1 DO AUTO^IBTUBAV
+2 QUIT
+3 ;
END QUIT
