IBINI0DY ; ; 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",4150,1,2,0)
;;=date range. It will summarize totals by admission or discharge, cases
;;^UTILITY(U,$J,"OPT",4150,1,3,0)
;;=with insurance, billable inpatient cases, cases requiring reviews,
;;^UTILITY(U,$J,"OPT",4150,1,4,0)
;;=days approved, amount collectible approved for billing, number of days
;;^UTILITY(U,$J,"OPT",4150,1,5,0)
;;=denied, amount denied, and penalty dollars.
;;^UTILITY(U,$J,"OPT",4150,1,6,0)
;;=
;;^UTILITY(U,$J,"OPT",4150,10,0)
;;=^19.01PI^0^0
;;^UTILITY(U,$J,"OPT",4150,25)
;;=IBTOSUM
;;^UTILITY(U,$J,"OPT",4150,"U")
;;=MCCR/UR SUMMARY REPORT
;;^UTILITY(U,$J,"OPT",4151,0)
;;=IBT OUTPUT PENDING ITEMS^Pending Work Report^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4151,1,0)
;;=^^3^3^2931110^
;;^UTILITY(U,$J,"OPT",4151,1,1,0)
;;=This option will print a sorted list of Pending Reviews. It is
;;^UTILITY(U,$J,"OPT",4151,1,2,0)
;;=different from printing from the Pending Reviews option in that it
;;^UTILITY(U,$J,"OPT",4151,1,3,0)
;;=will limit the entries to just those you care to see.
;;^UTILITY(U,$J,"OPT",4151,25)
;;=IBTOPW
;;^UTILITY(U,$J,"OPT",4151,"U")
;;=PENDING WORK REPORT
;;^UTILITY(U,$J,"OPT",4152,0)
;;=IBT MANAGER MENU^Claims Tracking Master Menu^^M^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4152,1,0)
;;=^^2^2^2940207^^^^
;;^UTILITY(U,$J,"OPT",4152,1,1,0)
;;=This is the main claims tracking menu. It contains the various
;;^UTILITY(U,$J,"OPT",4152,1,2,0)
;;=user menus that can be assigned directly to UR or MCCR/UR personnel.
;;^UTILITY(U,$J,"OPT",4152,10,0)
;;=^19.01PI^4^4
;;^UTILITY(U,$J,"OPT",4152,10,1,0)
;;=4135^CT
;;^UTILITY(U,$J,"OPT",4152,10,1,"^")
;;=IBT USER COMBINED MCCR/UR MENU
;;^UTILITY(U,$J,"OPT",4152,10,2,0)
;;=4153^HR
;;^UTILITY(U,$J,"OPT",4152,10,2,"^")
;;=IBT USER MENU (HR)
;;^UTILITY(U,$J,"OPT",4152,10,3,0)
;;=4154^IR
;;^UTILITY(U,$J,"OPT",4152,10,3,"^")
;;=IBT USER MENU (IR)
;;^UTILITY(U,$J,"OPT",4152,10,4,0)
;;=4182^BI
;;^UTILITY(U,$J,"OPT",4152,10,4,"^")
;;=IBT USER MENU (BI)
;;^UTILITY(U,$J,"OPT",4152,99)
;;=55936,47661
;;^UTILITY(U,$J,"OPT",4152,"U")
;;=CLAIMS TRACKING MASTER MENU
;;^UTILITY(U,$J,"OPT",4153,0)
;;=IBT USER MENU (HR)^Claims Tracking Menu (Hospital Reviews)^^M^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4153,1,0)
;;=^^7^7^2940207^^^^
;;^UTILITY(U,$J,"OPT",4153,1,1,0)
;;=This is the main menu for UR personnel to enter Hospital Reviews into
;;^UTILITY(U,$J,"OPT",4153,1,2,0)
;;=the Claims Tracking Module.
;;^UTILITY(U,$J,"OPT",4153,1,3,0)
;;=
;;^UTILITY(U,$J,"OPT",4153,1,4,0)
;;=From the menu the claims tracking module can be edited, UR Reviews can
;;^UTILITY(U,$J,"OPT",4153,1,5,0)
;;=be entered and reports printed.
;;^UTILITY(U,$J,"OPT",4153,1,6,0)
;;=Supervisory functions will be available to those who hold the
;;^UTILITY(U,$J,"OPT",4153,1,7,0)
;;=supervisory keys.
;;^UTILITY(U,$J,"OPT",4153,10,0)
;;=^19.01PI^9^7
;;^UTILITY(U,$J,"OPT",4153,10,1,0)
;;=4143^IC
;;^UTILITY(U,$J,"OPT",4153,10,1,"^")
;;=IBT OUTPUT CLAIM INQUIRY
;;^UTILITY(U,$J,"OPT",4153,10,4,0)
;;=4141^RM
;;^UTILITY(U,$J,"OPT",4153,10,4,"^")
;;=IBT OUTPUT MENU
;;^UTILITY(U,$J,"OPT",4153,10,5,0)
;;=4138^HR
;;^UTILITY(U,$J,"OPT",4153,10,5,"^")
;;=IBT EDIT REVIEWS
;;^UTILITY(U,$J,"OPT",4153,10,6,0)
;;=4136^SP
;;^UTILITY(U,$J,"OPT",4153,10,6,"^")
;;=IBT OUTPUT ONE ADMISSION SHEET
;;^UTILITY(U,$J,"OPT",4153,10,7,0)
;;=4142^SM
;;^UTILITY(U,$J,"OPT",4153,10,7,"^")
;;=IBT SUPERVISORS MENU
;;^UTILITY(U,$J,"OPT",4153,10,8,0)
;;=4155^PR^10
IBINI0DY ; ; 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",4150,1,2,0)
+2 ;;=date range. It will summarize totals by admission or discharge, cases
+3 ;;^UTILITY(U,$J,"OPT",4150,1,3,0)
+4 ;;=with insurance, billable inpatient cases, cases requiring reviews,
+5 ;;^UTILITY(U,$J,"OPT",4150,1,4,0)
+6 ;;=days approved, amount collectible approved for billing, number of days
+7 ;;^UTILITY(U,$J,"OPT",4150,1,5,0)
+8 ;;=denied, amount denied, and penalty dollars.
+9 ;;^UTILITY(U,$J,"OPT",4150,1,6,0)
+10 ;;=
+11 ;;^UTILITY(U,$J,"OPT",4150,10,0)
+12 ;;=^19.01PI^0^0
+13 ;;^UTILITY(U,$J,"OPT",4150,25)
+14 ;;=IBTOSUM
+15 ;;^UTILITY(U,$J,"OPT",4150,"U")
+16 ;;=MCCR/UR SUMMARY REPORT
+17 ;;^UTILITY(U,$J,"OPT",4151,0)
+18 ;;=IBT OUTPUT PENDING ITEMS^Pending Work Report^^R^^^^^^^^INTEGRATED BILLING
+19 ;;^UTILITY(U,$J,"OPT",4151,1,0)
+20 ;;=^^3^3^2931110^
+21 ;;^UTILITY(U,$J,"OPT",4151,1,1,0)
+22 ;;=This option will print a sorted list of Pending Reviews. It is
+23 ;;^UTILITY(U,$J,"OPT",4151,1,2,0)
+24 ;;=different from printing from the Pending Reviews option in that it
+25 ;;^UTILITY(U,$J,"OPT",4151,1,3,0)
+26 ;;=will limit the entries to just those you care to see.
+27 ;;^UTILITY(U,$J,"OPT",4151,25)
+28 ;;=IBTOPW
+29 ;;^UTILITY(U,$J,"OPT",4151,"U")
+30 ;;=PENDING WORK REPORT
+31 ;;^UTILITY(U,$J,"OPT",4152,0)
+32 ;;=IBT MANAGER MENU^Claims Tracking Master Menu^^M^^^^^^^^INTEGRATED BILLING
+33 ;;^UTILITY(U,$J,"OPT",4152,1,0)
+34 ;;=^^2^2^2940207^^^^
+35 ;;^UTILITY(U,$J,"OPT",4152,1,1,0)
+36 ;;=This is the main claims tracking menu. It contains the various
+37 ;;^UTILITY(U,$J,"OPT",4152,1,2,0)
+38 ;;=user menus that can be assigned directly to UR or MCCR/UR personnel.
+39 ;;^UTILITY(U,$J,"OPT",4152,10,0)
+40 ;;=^19.01PI^4^4
+41 ;;^UTILITY(U,$J,"OPT",4152,10,1,0)
+42 ;;=4135^CT
+43 ;;^UTILITY(U,$J,"OPT",4152,10,1,"^")
+44 ;;=IBT USER COMBINED MCCR/UR MENU
+45 ;;^UTILITY(U,$J,"OPT",4152,10,2,0)
+46 ;;=4153^HR
+47 ;;^UTILITY(U,$J,"OPT",4152,10,2,"^")
+48 ;;=IBT USER MENU (HR)
+49 ;;^UTILITY(U,$J,"OPT",4152,10,3,0)
+50 ;;=4154^IR
+51 ;;^UTILITY(U,$J,"OPT",4152,10,3,"^")
+52 ;;=IBT USER MENU (IR)
+53 ;;^UTILITY(U,$J,"OPT",4152,10,4,0)
+54 ;;=4182^BI
+55 ;;^UTILITY(U,$J,"OPT",4152,10,4,"^")
+56 ;;=IBT USER MENU (BI)
+57 ;;^UTILITY(U,$J,"OPT",4152,99)
+58 ;;=55936,47661
+59 ;;^UTILITY(U,$J,"OPT",4152,"U")
+60 ;;=CLAIMS TRACKING MASTER MENU
+61 ;;^UTILITY(U,$J,"OPT",4153,0)
+62 ;;=IBT USER MENU (HR)^Claims Tracking Menu (Hospital Reviews)^^M^^^^^^^^INTEGRATED BILLING
+63 ;;^UTILITY(U,$J,"OPT",4153,1,0)
+64 ;;=^^7^7^2940207^^^^
+65 ;;^UTILITY(U,$J,"OPT",4153,1,1,0)
+66 ;;=This is the main menu for UR personnel to enter Hospital Reviews into
+67 ;;^UTILITY(U,$J,"OPT",4153,1,2,0)
+68 ;;=the Claims Tracking Module.
+69 ;;^UTILITY(U,$J,"OPT",4153,1,3,0)
+70 ;;=
+71 ;;^UTILITY(U,$J,"OPT",4153,1,4,0)
+72 ;;=From the menu the claims tracking module can be edited, UR Reviews can
+73 ;;^UTILITY(U,$J,"OPT",4153,1,5,0)
+74 ;;=be entered and reports printed.
+75 ;;^UTILITY(U,$J,"OPT",4153,1,6,0)
+76 ;;=Supervisory functions will be available to those who hold the
+77 ;;^UTILITY(U,$J,"OPT",4153,1,7,0)
+78 ;;=supervisory keys.
+79 ;;^UTILITY(U,$J,"OPT",4153,10,0)
+80 ;;=^19.01PI^9^7
+81 ;;^UTILITY(U,$J,"OPT",4153,10,1,0)
+82 ;;=4143^IC
+83 ;;^UTILITY(U,$J,"OPT",4153,10,1,"^")
+84 ;;=IBT OUTPUT CLAIM INQUIRY
+85 ;;^UTILITY(U,$J,"OPT",4153,10,4,0)
+86 ;;=4141^RM
+87 ;;^UTILITY(U,$J,"OPT",4153,10,4,"^")
+88 ;;=IBT OUTPUT MENU
+89 ;;^UTILITY(U,$J,"OPT",4153,10,5,0)
+90 ;;=4138^HR
+91 ;;^UTILITY(U,$J,"OPT",4153,10,5,"^")
+92 ;;=IBT EDIT REVIEWS
+93 ;;^UTILITY(U,$J,"OPT",4153,10,6,0)
+94 ;;=4136^SP
+95 ;;^UTILITY(U,$J,"OPT",4153,10,6,"^")
+96 ;;=IBT OUTPUT ONE ADMISSION SHEET
+97 ;;^UTILITY(U,$J,"OPT",4153,10,7,0)
+98 ;;=4142^SM
+99 ;;^UTILITY(U,$J,"OPT",4153,10,7,"^")
+100 ;;=IBT SUPERVISORS MENU
+101 ;;^UTILITY(U,$J,"OPT",4153,10,8,0)
+102 ;;=4155^PR^10
