IBTUB.m

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 ---IBTUB   755     printed  Apr 09, 2024@21:04:55                                                                                                                                                                                                        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