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 Apr 09, 2024@21:33:40 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 ;
