- IBJDF8H ;ALB/RRG - AR PRODUCTIVITY REPORT (HELP);29-AUG-00
- ;;2.0;INTEGRATED BILLING;**123**;21-MAR-94
- ;
- HELP N IBTEXT
- F S IBTEXT=$P($T(TEXT+IBOFF),";",3) Q:IBTEXT="*END*" D
- .W !,IBTEXT S IBOFF=IBOFF+1
- W !
- Q
- ;
- TEXT ; - 'FROM Transaction Date' prompt (offset=1).
- ;; Please enter the beginning date in the range to be considered
- ;; in this report.
- ;; example: MMDDYY or 'T' = Today 'T+30' = Today + 30 days
- ;; 'T-30' = Today - 30 days
- ;; '^' - to quit this option
- ;;
- ;; NOTE: It is NOT possible to enter a future date.
- ;;*END*
- ;
- ; - 'TO Transaction Date' prompt (offset=11)
- ;; Please enter the ending date in the range to be considered in
- ;; this report.
- ;; example: MMDDYY or 'T' = Today 'T+30' - Today + 30 days
- ;; 'T-30' - Today - 30 days
- ;; '^' - to quit this option
- ;;
- ;; NOTE: This date MUST follow the date entered above.
- ;;*END*
- ;
- ; - 'Do you wish to print with Clerk name...' prompt (offset=21)
- ;; Enter: 'N' - To display clerk name
- ;; 'I' - To display clerk identifier (numeric)
- ;; '^' - To quit this option
- ;;*END*
- ;
- ; - 'Do you want to print the summary by Clerk?' prompt (offset=27)
- ;; Enter: 'Y' - Display summary by Clerk
- ;; 'N' - Do not display summary by Clerk
- ;; '^' - To quit this option
- ;;*END*
- ;
- ; - 'Start with Patient Name/Last 4 of SSN... ' prompt (Offset=33).
- ;; Enter a valid field value, or
- ;; <CR> - To start from the 'First' value of this field
- ;; '@' - To return field to null value
- ;; '^' - To quit this option
- ;;*END*
- ;
- ; - 'Go To Patient Name/Last 4 of SSN...' prompt (Offset=40).
- ;; Enter a valid field value, or
- ;; <CR> - To go to the 'last' value for this field
- ;; '@' - To return field to null value
- ;; '^' - To quit this option
- ;;*END*
- ;
- ; - 'Start with Insurance Carrier...' prompt (Offset=47).
- ;; Enter a valid field value, or
- ;; <CR> - To start from the 'first' value for this field
- ;; '@' - To return field to null value
- ;; '^' - To quit this option
- ;;*END*
- ;
- ; - 'Go to Insurance Carrier...' prompt (offset=54).
- ;; Enter a valid field value, or
- ;; <CR> - To go to the 'last' value for this field
- ;; '@' - To return field to null value
- ;; '^' - To quit this option
- ;;*END*
- ;
- ; - 'Run list for (S)pecific or (A)ll Clerks...' prompt (offset=61)
- ;; Enter: <CR> - To select ALL clerks
- ;; 'S' - To select one or more clerks
- ;; '^' - To quit this option
- ;;*END*
- ;
- ; - 'Exclude receivables referred to Regional...' prompt (offset=67)
- ;; Enter: 'N' - Do not exclude Receivables referred
- ;; to Regional Counsel
- ;; 'Y' - Exclude Receivables referred to
- ;; Regional Counsel
- ;; '^' - To quit this option
- ;;*END*
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJDF8H 3214 printed Feb 18, 2025@23:49:33 Page 2
- IBJDF8H ;ALB/RRG - AR PRODUCTIVITY REPORT (HELP);29-AUG-00
- +1 ;;2.0;INTEGRATED BILLING;**123**;21-MAR-94
- +2 ;
- HELP NEW IBTEXT
- +1 FOR
- SET IBTEXT=$PIECE($TEXT(TEXT+IBOFF),";",3)
- if IBTEXT="*END*"
- QUIT
- Begin DoDot:1
- +2 WRITE !,IBTEXT
- SET IBOFF=IBOFF+1
- End DoDot:1
- +3 WRITE !
- +4 QUIT
- +5 ;
- TEXT ; - 'FROM Transaction Date' prompt (offset=1).
- +1 ;; Please enter the beginning date in the range to be considered
- +2 ;; in this report.
- +3 ;; example: MMDDYY or 'T' = Today 'T+30' = Today + 30 days
- +4 ;; 'T-30' = Today - 30 days
- +5 ;; '^' - to quit this option
- +6 ;;
- +7 ;; NOTE: It is NOT possible to enter a future date.
- +8 ;;*END*
- +9 ;
- +10 ; - 'TO Transaction Date' prompt (offset=11)
- +11 ;; Please enter the ending date in the range to be considered in
- +12 ;; this report.
- +13 ;; example: MMDDYY or 'T' = Today 'T+30' - Today + 30 days
- +14 ;; 'T-30' - Today - 30 days
- +15 ;; '^' - to quit this option
- +16 ;;
- +17 ;; NOTE: This date MUST follow the date entered above.
- +18 ;;*END*
- +19 ;
- +20 ; - 'Do you wish to print with Clerk name...' prompt (offset=21)
- +21 ;; Enter: 'N' - To display clerk name
- +22 ;; 'I' - To display clerk identifier (numeric)
- +23 ;; '^' - To quit this option
- +24 ;;*END*
- +25 ;
- +26 ; - 'Do you want to print the summary by Clerk?' prompt (offset=27)
- +27 ;; Enter: 'Y' - Display summary by Clerk
- +28 ;; 'N' - Do not display summary by Clerk
- +29 ;; '^' - To quit this option
- +30 ;;*END*
- +31 ;
- +32 ; - 'Start with Patient Name/Last 4 of SSN... ' prompt (Offset=33).
- +33 ;; Enter a valid field value, or
- +34 ;; <CR> - To start from the 'First' value of this field
- +35 ;; '@' - To return field to null value
- +36 ;; '^' - To quit this option
- +37 ;;*END*
- +38 ;
- +39 ; - 'Go To Patient Name/Last 4 of SSN...' prompt (Offset=40).
- +40 ;; Enter a valid field value, or
- +41 ;; <CR> - To go to the 'last' value for this field
- +42 ;; '@' - To return field to null value
- +43 ;; '^' - To quit this option
- +44 ;;*END*
- +45 ;
- +46 ; - 'Start with Insurance Carrier...' prompt (Offset=47).
- +47 ;; Enter a valid field value, or
- +48 ;; <CR> - To start from the 'first' value for this field
- +49 ;; '@' - To return field to null value
- +50 ;; '^' - To quit this option
- +51 ;;*END*
- +52 ;
- +53 ; - 'Go to Insurance Carrier...' prompt (offset=54).
- +54 ;; Enter a valid field value, or
- +55 ;; <CR> - To go to the 'last' value for this field
- +56 ;; '@' - To return field to null value
- +57 ;; '^' - To quit this option
- +58 ;;*END*
- +59 ;
- +60 ; - 'Run list for (S)pecific or (A)ll Clerks...' prompt (offset=61)
- +61 ;; Enter: <CR> - To select ALL clerks
- +62 ;; 'S' - To select one or more clerks
- +63 ;; '^' - To quit this option
- +64 ;;*END*
- +65 ;
- +66 ; - 'Exclude receivables referred to Regional...' prompt (offset=67)
- +67 ;; Enter: 'N' - Do not exclude Receivables referred
- +68 ;; to Regional Counsel
- +69 ;; 'Y' - Exclude Receivables referred to
- +70 ;; Regional Counsel
- +71 ;; '^' - To quit this option
- +72 ;;*END*
- +73 ;