- 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 Mar 13, 2025@21:28:03 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*
