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