IBINI0DI ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,"OPT",3373,10,14,0)
;;=4132^HOLD
;;^UTILITY(U,$J,"OPT",3373,10,14,"^")
;;=IB MT ON HOLD MENU
;;^UTILITY(U,$J,"OPT",3373,99)
;;=55922,52531
;;^UTILITY(U,$J,"OPT",3373,"U")
;;=AUTOMATED MEANS TEST BILLING M
;;^UTILITY(U,$J,"OPT",3374,0)
;;=IB OUTPUT MANAGEMENT REPORTS^Management Reports (Billing) Menu^^M^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",3374,1,0)
;;=^^2^2^2940207^^^^
;;^UTILITY(U,$J,"OPT",3374,1,1,0)
;;=This menu contains reports that provide statistics or lists of bills
;;^UTILITY(U,$J,"OPT",3374,1,2,0)
;;=that can be used in managing the Billing program.
;;^UTILITY(U,$J,"OPT",3374,10,0)
;;=^19.01IP^11^10
;;^UTILITY(U,$J,"OPT",3374,10,1,0)
;;=2513^BILL
;;^UTILITY(U,$J,"OPT",3374,10,1,"^")
;;=IB OUTPUT STATISTICAL REPORT
;;^UTILITY(U,$J,"OPT",3374,10,3,0)
;;=3346^PROD
;;^UTILITY(U,$J,"OPT",3374,10,3,"^")
;;=IB OUTPUT CLK PROD
;;^UTILITY(U,$J,"OPT",3374,10,4,0)
;;=2324^RATE
;;^UTILITY(U,$J,"OPT",3374,10,4,"^")
;;=IB LIST OF BILLING RATES
;;^UTILITY(U,$J,"OPT",3374,10,5,0)
;;=3235^RCT
;;^UTILITY(U,$J,"OPT",3374,10,5,"^")
;;=IB REV CODE TOTALS
;;^UTILITY(U,$J,"OPT",3374,10,6,0)
;;=1215^STAT
;;^UTILITY(U,$J,"OPT",3374,10,6,"^")
;;=IB BILL STATUS REPORT
;;^UTILITY(U,$J,"OPT",3374,10,7,0)
;;=1223^TOTL
;;^UTILITY(U,$J,"OPT",3374,10,7,"^")
;;=IB BILLING TOTALS REPORT
;;^UTILITY(U,$J,"OPT",3374,10,8,0)
;;=3367^TREN
;;^UTILITY(U,$J,"OPT",3374,10,8,"^")
;;=IB OUTPUT TREND REPORT
;;^UTILITY(U,$J,"OPT",3374,10,9,0)
;;=3383^COMM
;;^UTILITY(U,$J,"OPT",3374,10,9,"^")
;;=IB OUTPUT MOST COMMON OPT CPT
;;^UTILITY(U,$J,"OPT",3374,10,10,0)
;;=3402^UNBB
;;^UTILITY(U,$J,"OPT",3374,10,10,"^")
;;=IB OUTPUT UNBILLED BASC
;;^UTILITY(U,$J,"OPT",3374,10,11,0)
;;=4170^RANK
;;^UTILITY(U,$J,"OPT",3374,10,11,"^")
;;=IB OUTPUT RANK CARRIERS
;;^UTILITY(U,$J,"OPT",3374,99)
;;=55768,44400
;;^UTILITY(U,$J,"OPT",3374,"U")
;;=MANAGEMENT REPORTS (BILLING) M
;;^UTILITY(U,$J,"OPT",3375,0)
;;=IB MT CLOCK MAINTENANCE^Patient Billing Clock Maintenance^^R^^IB AUTHORIZE^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",3375,1,0)
;;=^^1^1^2920722^^^^
;;^UTILITY(U,$J,"OPT",3375,1,1,0)
;;=This option will allow adding or editing of Patient Billing Clocks.
;;^UTILITY(U,$J,"OPT",3375,20)
;;=
;;^UTILITY(U,$J,"OPT",3375,25)
;;=IBEMTBC
;;^UTILITY(U,$J,"OPT",3375,"U")
;;=PATIENT BILLING CLOCK MAINTENA
;;^UTILITY(U,$J,"OPT",3376,0)
;;=IB FLAG CONTINUOUS PATIENTS^Add/Edit Pts. Continuously Hospitalized Since 1986^^R^^IB AUTHORIZE^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",3376,1,0)
;;=^^7^7^2920722^^^
;;^UTILITY(U,$J,"OPT",3376,1,1,0)
;;=This option can be used to add or edit entries in the file of patient
;;^UTILITY(U,$J,"OPT",3376,1,2,0)
;;=continuously hospitalized since 1986. These patients are exempt from
;;^UTILITY(U,$J,"OPT",3376,1,3,0)
;;=the co-payment portion of the means test but may still be charged the
;;^UTILITY(U,$J,"OPT",3376,1,4,0)
;;=per diem. The automated category C billing software will exempt these
;;^UTILITY(U,$J,"OPT",3376,1,5,0)
;;=patients from the co-payments. In order to be considered continuously
;;^UTILITY(U,$J,"OPT",3376,1,6,0)
;;=hospitalized the patient must not have changed levels of care, i.e., gone
;;^UTILITY(U,$J,"OPT",3376,1,7,0)
;;=from a NHCU to the hospital.
;;^UTILITY(U,$J,"OPT",3376,25)
;;=IBECPF
;;^UTILITY(U,$J,"OPT",3376,"U")
;;=ADD/EDIT PTS. CONTINUOUSLY HOS
;;^UTILITY(U,$J,"OPT",3377,0)
;;=IB MT CLOCK INQUIRY^Patient Billing Clock Inquiry^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",3377,1,0)
;;=^^2^2^2920722^^^
IBINI0DI ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,"OPT",3373,10,14,0)
+2 ;;=4132^HOLD
+3 ;;^UTILITY(U,$J,"OPT",3373,10,14,"^")
+4 ;;=IB MT ON HOLD MENU
+5 ;;^UTILITY(U,$J,"OPT",3373,99)
+6 ;;=55922,52531
+7 ;;^UTILITY(U,$J,"OPT",3373,"U")
+8 ;;=AUTOMATED MEANS TEST BILLING M
+9 ;;^UTILITY(U,$J,"OPT",3374,0)
+10 ;;=IB OUTPUT MANAGEMENT REPORTS^Management Reports (Billing) Menu^^M^^^^^^^^INTEGRATED BILLING
+11 ;;^UTILITY(U,$J,"OPT",3374,1,0)
+12 ;;=^^2^2^2940207^^^^
+13 ;;^UTILITY(U,$J,"OPT",3374,1,1,0)
+14 ;;=This menu contains reports that provide statistics or lists of bills
+15 ;;^UTILITY(U,$J,"OPT",3374,1,2,0)
+16 ;;=that can be used in managing the Billing program.
+17 ;;^UTILITY(U,$J,"OPT",3374,10,0)
+18 ;;=^19.01IP^11^10
+19 ;;^UTILITY(U,$J,"OPT",3374,10,1,0)
+20 ;;=2513^BILL
+21 ;;^UTILITY(U,$J,"OPT",3374,10,1,"^")
+22 ;;=IB OUTPUT STATISTICAL REPORT
+23 ;;^UTILITY(U,$J,"OPT",3374,10,3,0)
+24 ;;=3346^PROD
+25 ;;^UTILITY(U,$J,"OPT",3374,10,3,"^")
+26 ;;=IB OUTPUT CLK PROD
+27 ;;^UTILITY(U,$J,"OPT",3374,10,4,0)
+28 ;;=2324^RATE
+29 ;;^UTILITY(U,$J,"OPT",3374,10,4,"^")
+30 ;;=IB LIST OF BILLING RATES
+31 ;;^UTILITY(U,$J,"OPT",3374,10,5,0)
+32 ;;=3235^RCT
+33 ;;^UTILITY(U,$J,"OPT",3374,10,5,"^")
+34 ;;=IB REV CODE TOTALS
+35 ;;^UTILITY(U,$J,"OPT",3374,10,6,0)
+36 ;;=1215^STAT
+37 ;;^UTILITY(U,$J,"OPT",3374,10,6,"^")
+38 ;;=IB BILL STATUS REPORT
+39 ;;^UTILITY(U,$J,"OPT",3374,10,7,0)
+40 ;;=1223^TOTL
+41 ;;^UTILITY(U,$J,"OPT",3374,10,7,"^")
+42 ;;=IB BILLING TOTALS REPORT
+43 ;;^UTILITY(U,$J,"OPT",3374,10,8,0)
+44 ;;=3367^TREN
+45 ;;^UTILITY(U,$J,"OPT",3374,10,8,"^")
+46 ;;=IB OUTPUT TREND REPORT
+47 ;;^UTILITY(U,$J,"OPT",3374,10,9,0)
+48 ;;=3383^COMM
+49 ;;^UTILITY(U,$J,"OPT",3374,10,9,"^")
+50 ;;=IB OUTPUT MOST COMMON OPT CPT
+51 ;;^UTILITY(U,$J,"OPT",3374,10,10,0)
+52 ;;=3402^UNBB
+53 ;;^UTILITY(U,$J,"OPT",3374,10,10,"^")
+54 ;;=IB OUTPUT UNBILLED BASC
+55 ;;^UTILITY(U,$J,"OPT",3374,10,11,0)
+56 ;;=4170^RANK
+57 ;;^UTILITY(U,$J,"OPT",3374,10,11,"^")
+58 ;;=IB OUTPUT RANK CARRIERS
+59 ;;^UTILITY(U,$J,"OPT",3374,99)
+60 ;;=55768,44400
+61 ;;^UTILITY(U,$J,"OPT",3374,"U")
+62 ;;=MANAGEMENT REPORTS (BILLING) M
+63 ;;^UTILITY(U,$J,"OPT",3375,0)
+64 ;;=IB MT CLOCK MAINTENANCE^Patient Billing Clock Maintenance^^R^^IB AUTHORIZE^^^^^^INTEGRATED BILLING
+65 ;;^UTILITY(U,$J,"OPT",3375,1,0)
+66 ;;=^^1^1^2920722^^^^
+67 ;;^UTILITY(U,$J,"OPT",3375,1,1,0)
+68 ;;=This option will allow adding or editing of Patient Billing Clocks.
+69 ;;^UTILITY(U,$J,"OPT",3375,20)
+70 ;;=
+71 ;;^UTILITY(U,$J,"OPT",3375,25)
+72 ;;=IBEMTBC
+73 ;;^UTILITY(U,$J,"OPT",3375,"U")
+74 ;;=PATIENT BILLING CLOCK MAINTENA
+75 ;;^UTILITY(U,$J,"OPT",3376,0)
+76 ;;=IB FLAG CONTINUOUS PATIENTS^Add/Edit Pts. Continuously Hospitalized Since 1986^^R^^IB AUTHORIZE^^^^^^INTEGRATED BILLING
+77 ;;^UTILITY(U,$J,"OPT",3376,1,0)
+78 ;;=^^7^7^2920722^^^
+79 ;;^UTILITY(U,$J,"OPT",3376,1,1,0)
+80 ;;=This option can be used to add or edit entries in the file of patient
+81 ;;^UTILITY(U,$J,"OPT",3376,1,2,0)
+82 ;;=continuously hospitalized since 1986. These patients are exempt from
+83 ;;^UTILITY(U,$J,"OPT",3376,1,3,0)
+84 ;;=the co-payment portion of the means test but may still be charged the
+85 ;;^UTILITY(U,$J,"OPT",3376,1,4,0)
+86 ;;=per diem. The automated category C billing software will exempt these
+87 ;;^UTILITY(U,$J,"OPT",3376,1,5,0)
+88 ;;=patients from the co-payments. In order to be considered continuously
+89 ;;^UTILITY(U,$J,"OPT",3376,1,6,0)
+90 ;;=hospitalized the patient must not have changed levels of care, i.e., gone
+91 ;;^UTILITY(U,$J,"OPT",3376,1,7,0)
+92 ;;=from a NHCU to the hospital.
+93 ;;^UTILITY(U,$J,"OPT",3376,25)
+94 ;;=IBECPF
+95 ;;^UTILITY(U,$J,"OPT",3376,"U")
+96 ;;=ADD/EDIT PTS. CONTINUOUSLY HOS
+97 ;;^UTILITY(U,$J,"OPT",3377,0)
+98 ;;=IB MT CLOCK INQUIRY^Patient Billing Clock Inquiry^^R^^^^^^^^INTEGRATED BILLING
+99 ;;^UTILITY(U,$J,"OPT",3377,1,0)
+100 ;;=^^2^2^2920722^^^
