IBJDF1H ;ALB/CPM - THIRD PARTY FOLLOW-UP REPORT (HELP); 09-JAN-97
;;2.0;INTEGRATED BILLING;**69,118,128,205**;21-MAR-94
;
HELP W ! F S IBTEXT=$P($T(TEXT+IBOFF),";",3) Q:IBTEXT="*END*" W !,IBTEXT S IBOFF=IBOFF+1
W !
Q
;
TEXT ; - 'Sort by division' prompt (Offset=1).
;; Enter: '<CR>' - To print the report without regard to division
;; 'Y' - To select those divisions for which a separate
;; report should be created
;; '^' - To quit this option
;;*END*
;
; - 'Run report for (S)PECIFIC...' prompt (Offset=8).
;; Enter: '<CR>' - To select a range of insurance companies
;; 'S' - To select one or more insurance companies
;; '^' - To quit this option
;;*END*
;
; - 'Start with INSURANCE COMPANY' prompt (Offset=14).
;; Enter a valid field value up to 40 characters, or
;; '@' - To include null values
;; '<CR>' - To start from the 'first' value for this field
;; '^' - To quit this option
;;*END*
;
; - 'Go to INSURANCE COMPANY' prompt (Offset=21).
;; Enter a valid field value up to 40 characters, or
;; '@' - To include only null values, if 'Start with'
;; value is @
;; '<CR>' - To go to the 'last' value for this field
;; '^' - To quit this option
;;*END*
;
; - 'Sort Patients by (N)AME... ' prompt (Offset=29).
;; Enter: '<CR>' - To select and sort patients by name
;; 'L' - To select and sort patients by the last 4
;; of the SSN
;; '^' - To quit this option
;;*END*
;
; - 'Start with PATIENT...' prompt (Offset=36).
;; Enter a valid field value, or
;; '@' - To include null values
;; '<CR>' - To start from the 'first' value for this field
;; '^' - To quit this option
;;*END*
;
; - 'Go to PATIENT...' prompt (Offset=43).
;; Enter a valid field value, or
;; '@' - To include only null values, if 'Start with'
;; value is @
;; '<CR>' - To go to the 'last' value for this field
;; '^' - To quit this option
;;*END*
;
; - 'Include (A)LL active AR's...' prompt (Offset=51).
;; 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=59).
;; 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=64).
;; 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=69).
;; 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=76).
;; Enter the minimum balance amount for the receivable, or '^' to quit
;; this option.
;;*END*
;
; - 'Include the Bill Comment history...' prompt (Offset=81).
;; 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*
;
; - 'Include receivables referred...' prompt (Offset=90).
;; Enter: '<CR>' - To exclude receivables referred to Regional
;; Counsel from the report
;; 'Y' - To include receivables referred to Regional
;; Counsel to the report (These receivables
;; will have a '*' after the current balance)
;; '^' - To quit this option
;;*END*
;
; - 'Run report for (D)ATE OF CARE or (A)CTIVE IN AR...' prompt (Offset=99).
;; Enter: '<CR>' - To calculate report by Days Active in AR
;; 'D' - To to calculate report by Date of Care
;; '^' - To quit this option
;;*END*
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJDF1H 4739 printed Nov 22, 2024@17:32:50 Page 2
IBJDF1H ;ALB/CPM - THIRD PARTY FOLLOW-UP REPORT (HELP); 09-JAN-97
+1 ;;2.0;INTEGRATED BILLING;**69,118,128,205**;21-MAR-94
+2 ;
HELP WRITE !
FOR
SET IBTEXT=$PIECE($TEXT(TEXT+IBOFF),";",3)
if IBTEXT="*END*"
QUIT
WRITE !,IBTEXT
SET IBOFF=IBOFF+1
+1 WRITE !
+2 QUIT
+3 ;
TEXT ; - 'Sort by division' prompt (Offset=1).
+1 ;; Enter: '<CR>' - To print the report without regard to division
+2 ;; 'Y' - To select those divisions for which a separate
+3 ;; report should be created
+4 ;; '^' - To quit this option
+5 ;;*END*
+6 ;
+7 ; - 'Run report for (S)PECIFIC...' prompt (Offset=8).
+8 ;; Enter: '<CR>' - To select a range of insurance companies
+9 ;; 'S' - To select one or more insurance companies
+10 ;; '^' - To quit this option
+11 ;;*END*
+12 ;
+13 ; - 'Start with INSURANCE COMPANY' prompt (Offset=14).
+14 ;; Enter a valid field value up to 40 characters, or
+15 ;; '@' - To include null values
+16 ;; '<CR>' - To start from the 'first' value for this field
+17 ;; '^' - To quit this option
+18 ;;*END*
+19 ;
+20 ; - 'Go to INSURANCE COMPANY' prompt (Offset=21).
+21 ;; Enter a valid field value up to 40 characters, or
+22 ;; '@' - To include only null values, if 'Start with'
+23 ;; value is @
+24 ;; '<CR>' - To go to the 'last' value for this field
+25 ;; '^' - To quit this option
+26 ;;*END*
+27 ;
+28 ; - 'Sort Patients by (N)AME... ' prompt (Offset=29).
+29 ;; Enter: '<CR>' - To select and sort patients by name
+30 ;; 'L' - To select and sort patients by the last 4
+31 ;; of the SSN
+32 ;; '^' - To quit this option
+33 ;;*END*
+34 ;
+35 ; - 'Start with PATIENT...' prompt (Offset=36).
+36 ;; Enter a valid field value, or
+37 ;; '@' - To include null values
+38 ;; '<CR>' - To start from the 'first' value for this field
+39 ;; '^' - To quit this option
+40 ;;*END*
+41 ;
+42 ; - 'Go to PATIENT...' prompt (Offset=43).
+43 ;; Enter a valid field value, or
+44 ;; '@' - To include only null values, if 'Start with'
+45 ;; value is @
+46 ;; '<CR>' - To go to the 'last' value for this field
+47 ;; '^' - To quit this option
+48 ;;*END*
+49 ;
+50 ; - 'Include (A)LL active AR's...' prompt (Offset=51).
+51 ;; Enter: '<CR>' - To include all active receivables on the
+52 ;; report
+53 ;; 'R' - To restrict receivables to those within
+54 ;; a certain age range
+55 ;; '^' - To quit this option
+56 ;;*END*
+57 ;
+58 ; - 'Enter the minimum age...' prompt (Offset=59).
+59 ;; Enter the minimum days in which the receivable should have been in
+60 ;; an active status, or '^' to quit this option.
+61 ;;*END*
+62 ;
+63 ; - 'Enter the maximum age...' prompt (Offset=64).
+64 ;; Enter the maximum days in which the receivable should have been in
+65 ;; an active status, or '^' to quit this option.
+66 ;;*END*
+67 ;
+68 ; - 'Print receivables with a minimum...' prompt (Offset=69).
+69 ;; Enter: 'Y' - To print just those receivables that are over
+70 ;; a certain balance amount.
+71 ;; '<CR>' - To skip this question
+72 ;; '^' - To quit this option
+73 ;;*END*
+74 ;
+75 ; - 'Enter the minimum balance amount...' prompt (Offset=76).
+76 ;; Enter the minimum balance amount for the receivable, or '^' to quit
+77 ;; this option.
+78 ;;*END*
+79 ;
+80 ; - 'Include the Bill Comment history...' prompt (Offset=81).
+81 ;; Enter: '<CR>' - To exclude the bill comment history from the
+82 ;; report
+83 ;; 'Y' - To include the bill comment history to the
+84 ;; report (This history includes the date
+85 ;; and comments from comment transactions)
+86 ;; '^' - To quit this option
+87 ;;*END*
+88 ;
+89 ; - 'Include receivables referred...' prompt (Offset=90).
+90 ;; Enter: '<CR>' - To exclude receivables referred to Regional
+91 ;; Counsel from the report
+92 ;; 'Y' - To include receivables referred to Regional
+93 ;; Counsel to the report (These receivables
+94 ;; will have a '*' after the current balance)
+95 ;; '^' - To quit this option
+96 ;;*END*
+97 ;
+98 ; - 'Run report for (D)ATE OF CARE or (A)CTIVE IN AR...' prompt (Offset=99).
+99 ;; Enter: '<CR>' - To calculate report by Days Active in AR
+100 ;; 'D' - To to calculate report by Date of Care
+101 ;; '^' - To quit this option
+102 ;;*END*
