- 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 Feb 18, 2025@23:55:32 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