IBJDF7H ;ALB/MR - REPAYMENT PLAN REPORT (HELP);14-AUG-00
;;2.0;INTEGRATED BILLING;**123,240**;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 ; - 'Sort Patients by (N)AME... ' prompt (Offset=1).
;; Enter: 'N' - 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=8).
;; 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=16).
;; 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*
;
; - 'Current or Defaulted Repayment Plan...' prompt (Offset=23).
;; Enter the type of Repayment Plan to be listed:
;;
;; 'C' - To Current Repayment Plan
;; 'D' - To Defaulted Repayment Plan
;; 'B' - To Both (Current and Defaulted)
;; '^' - To quit this option
;;*END*
;
; - 'Minimum number of days defaulted:' prompt (Offset=32).
;; Please, enter the minimum number of days defaulted on a payment
;; for a Repayment Plan to be considered defaulted. The Repayment
;; Plans with no defaulted payments or that defaulted fewer days
;; than the number entered here, will be considered current.
;;*END*
;
; - 'MCCR or NON-MCCR Receivables..." prompt (Offset=39).
;; Enter the type of receivables to be listed:
;;
;; 'M' - To MCCR Receivables
;; 'N' - To NON-MCCR Receivables
;;
;; The NON-MCCR Categories are:
;;
;; TRICARE TRICARE Patient TRICARE Third Party
;; CHAMPVA CHAMPVA Subsistence CHAMPVA Third Party
;; Ex-Employee Current Employee Military
;; Vendor Interagency Sharing Agreements
;; Federal Agencies-refund Federal Agencies-reimbursement
;;
;; All the others are MCCR.
;;*END*
; - 'Do you want to print TOTAL by Patient?' prompt (Offset=55).
;; Enter: 'Y' - To print the total for patients with more
;; than one entry
;; 'N' - To NOT print the total by patient
;; '^' - To quit this option
;;*END*
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBJDF7H 2789 printed Sep 23, 2025@19:59:22 Page 2
IBJDF7H ;ALB/MR - REPAYMENT PLAN REPORT (HELP);14-AUG-00
+1 ;;2.0;INTEGRATED BILLING;**123,240**;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 ; - 'Sort Patients by (N)AME... ' prompt (Offset=1).
+1 ;; Enter: 'N' - To select and sort patients by name
+2 ;; 'L' - To select and sort patients by the last 4
+3 ;; of the SSN
+4 ;; '^' - To quit this option
+5 ;;*END*
+6 ;
+7 ; - 'START WITH PATIENT...' prompt (Offset=8).
+8 ;; Enter a valid field value, or
+9 ;; '@' - To include null values
+10 ;; '<CR>' - To start from the 'first' value for this field
+11 ;; '^' - To quit this option
+12 ;;*END*
+13 ;
+14 ; - 'GO TO PATIENT' prompt (Offset=16).
+15 ;; Enter a valid field value, or
+16 ;; '@' - To include only null values, if 'Start with'
+17 ;; value is @
+18 ;; '<CR>' - To go to the 'last' value for this field
+19 ;; '^' - To quit this option
+20 ;;*END*
+21 ;
+22 ; - 'Current or Defaulted Repayment Plan...' prompt (Offset=23).
+23 ;; Enter the type of Repayment Plan to be listed:
+24 ;;
+25 ;; 'C' - To Current Repayment Plan
+26 ;; 'D' - To Defaulted Repayment Plan
+27 ;; 'B' - To Both (Current and Defaulted)
+28 ;; '^' - To quit this option
+29 ;;*END*
+30 ;
+31 ; - 'Minimum number of days defaulted:' prompt (Offset=32).
+32 ;; Please, enter the minimum number of days defaulted on a payment
+33 ;; for a Repayment Plan to be considered defaulted. The Repayment
+34 ;; Plans with no defaulted payments or that defaulted fewer days
+35 ;; than the number entered here, will be considered current.
+36 ;;*END*
+37 ;
+38 ; - 'MCCR or NON-MCCR Receivables..." prompt (Offset=39).
+39 ;; Enter the type of receivables to be listed:
+40 ;;
+41 ;; 'M' - To MCCR Receivables
+42 ;; 'N' - To NON-MCCR Receivables
+43 ;;
+44 ;; The NON-MCCR Categories are:
+45 ;;
+46 ;; TRICARE TRICARE Patient TRICARE Third Party
+47 ;; CHAMPVA CHAMPVA Subsistence CHAMPVA Third Party
+48 ;; Ex-Employee Current Employee Military
+49 ;; Vendor Interagency Sharing Agreements
+50 ;; Federal Agencies-refund Federal Agencies-reimbursement
+51 ;;
+52 ;; All the others are MCCR.
+53 ;;*END*
+54 ; - 'Do you want to print TOTAL by Patient?' prompt (Offset=55).
+55 ;; Enter: 'Y' - To print the total for patients with more
+56 ;; than one entry
+57 ;; 'N' - To NOT print the total by patient
+58 ;; '^' - To quit this option
+59 ;;*END*
