IBJDF6H.m

IBJDF6H ;ALB/RB - MISCELLANEOUS BILLS FOLLOW-UP REPORT (HELP);15-APR-00

 ;;2.0;INTEGRATED BILLING;**123**;21-MAR-94

 ;

HELP W ! F  S IBTEXT=$P($T(TEXT+IBOFF),";",3) Q:IBTEXT="*END*"  D

 .W !,IBTEXT S IBOFF=IBOFF+1

 W !

 Q

 ;

TEXT ; - 'Include (A)LL active AR's...' prompt (Offset=1).

 ;;      Enter:  '<CR>' -  To include all active receivables on the

 ;;                        report

 ;;              'R'    -  To restrict receivables to those within

 ;;                        a certain age range

 ;;              '^'    -  To quit this option

 ;;*END*

 ;

 ; - 'Enter the minimum age...' prompt (Offset=9).

 ;; Enter the minimum days in which the receivable should have been in

 ;; an active status, or '^' to quit this option.

 ;;*END*

 ;

 ; - 'Enter the maximum age...' prompt (Offset=14).

 ;; Enter the maximum days in which the receivable should have been in

 ;; an active status, or '^' to quit this option.

 ;;*END*

 ;

 ; - 'Print receivables with a minimum...' prompt (Offset=19).

 ;;      Enter:  'Y'    -  To print just those receivables that are over

 ;;                        a certain balance amount.

 ;;              '<CR>' -  To skip this question

 ;;              '^'    -  To quit this option

 ;;*END*

 ;

 ; - 'Enter the minimum balance amount...' prompt (Offset=26).

 ;; Enter the minimum balance amount for the receivable, or '^' to quit

 ;; this option.

 ;;*END*

 ;

 ; - 'Include the Bill Comment history...' prompt (Offset=31).

 ;;      Enter:  '<CR>' -  To exclude the bill comment history from the

 ;;                        report

 ;;              'Y'    -  To include the bill comment history to the

 ;;                        report (This history includes the date

 ;;                        and comments from comment transactions)

 ;;              '^'    -  To quit this option

 ;;*END*

 ;

 ; - 'Print (A)ll comments...' prompt (Offset=40).

 ;;      Enter:  '<CR>' -  To print ALL comments for a receivable

 ;;              'M'    -  To print the only the most recent comment

 ;;                         entered for a receivable

 ;;              '^'    -  To quit this option

 ;;*END*

 ;

 ; - 'Minimum age of most recent...' prompt (Offset=47).

 ;; Enter the minimum age (number of days ago) of an AR's most recent

 ;; bill comment. AR's with recent comments that are at least this age

 ;; will be included on the report. Enter '<CR>' to skip this prompt,

 ;; or '^' to quit this option.

 ;;*END*

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBJDF6H   2487     printed  Feb 18, 2025@23:49:24                                                                                                                                                                                                     Page 2

IBJDF6H   ;ALB/RB - MISCELLANEOUS BILLS FOLLOW-UP REPORT (HELP);15-APR-00

 +1       ;;2.0;INTEGRATED BILLING;**123**;21-MAR-94

 +2       ;

HELP       WRITE !

           FOR 

               SET IBTEXT=$PIECE($TEXT(TEXT+IBOFF),";",3)

               if IBTEXT="*END*"

                   QUIT 

               Begin DoDot:1

 +1                WRITE !,IBTEXT

                   SET IBOFF=IBOFF+1

               End DoDot:1

 +2        WRITE !

 +3        QUIT 

 +4       ;

TEXT      ; - 'Include (A)LL active AR's...' prompt (Offset=1).

 +1       ;;      Enter:  '<CR>' -  To include all active receivables on the

 +2       ;;                        report

 +3       ;;              'R'    -  To restrict receivables to those within

 +4       ;;                        a certain age range

 +5       ;;              '^'    -  To quit this option

 +6       ;;*END*

 +7       ;

 +8       ; - 'Enter the minimum age...' prompt (Offset=9).

 +9       ;; Enter the minimum days in which the receivable should have been in

 +10      ;; an active status, or '^' to quit this option.

 +11      ;;*END*

 +12      ;

 +13      ; - 'Enter the maximum age...' prompt (Offset=14).

 +14      ;; Enter the maximum days in which the receivable should have been in

 +15      ;; an active status, or '^' to quit this option.

 +16      ;;*END*

 +17      ;

 +18      ; - 'Print receivables with a minimum...' prompt (Offset=19).

 +19      ;;      Enter:  'Y'    -  To print just those receivables that are over

 +20      ;;                        a certain balance amount.

 +21      ;;              '<CR>' -  To skip this question

 +22      ;;              '^'    -  To quit this option

 +23      ;;*END*

 +24      ;

 +25      ; - 'Enter the minimum balance amount...' prompt (Offset=26).

 +26      ;; Enter the minimum balance amount for the receivable, or '^' to quit

 +27      ;; this option.

 +28      ;;*END*

 +29      ;

 +30      ; - 'Include the Bill Comment history...' prompt (Offset=31).

 +31      ;;      Enter:  '<CR>' -  To exclude the bill comment history from the

 +32      ;;                        report

 +33      ;;              'Y'    -  To include the bill comment history to the

 +34      ;;                        report (This history includes the date

 +35      ;;                        and comments from comment transactions)

 +36      ;;              '^'    -  To quit this option

 +37      ;;*END*

 +38      ;

 +39      ; - 'Print (A)ll comments...' prompt (Offset=40).

 +40      ;;      Enter:  '<CR>' -  To print ALL comments for a receivable

 +41      ;;              'M'    -  To print the only the most recent comment

 +42      ;;                         entered for a receivable

 +43      ;;              '^'    -  To quit this option

 +44      ;;*END*

 +45      ;

 +46      ; - 'Minimum age of most recent...' prompt (Offset=47).

 +47      ;; Enter the minimum age (number of days ago) of an AR's most recent

 +48      ;; bill comment. AR's with recent comments that are at least this age

 +49      ;; will be included on the report. Enter '<CR>' to skip this prompt,

 +50      ;; or '^' to quit this option.

 +51      ;;*END*