IBINI0DV ; ; 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",4135,10,2,0)
;;=4137^CT^20
;;^UTILITY(U,$J,"OPT",4135,10,2,"^")
;;=IBT EDIT TRACKING ENTRY
;;^UTILITY(U,$J,"OPT",4135,10,4,0)
;;=4138^HR^99
;;^UTILITY(U,$J,"OPT",4135,10,4,"^")
;;=IBT EDIT REVIEWS
;;^UTILITY(U,$J,"OPT",4135,10,6,0)
;;=4139^IR^50
;;^UTILITY(U,$J,"OPT",4135,10,6,"^")
;;=IBT EDIT COMMUNICATIONS
;;^UTILITY(U,$J,"OPT",4135,10,7,0)
;;=4140^AD^70
;;^UTILITY(U,$J,"OPT",4135,10,7,"^")
;;=IBT EDIT APPEALS/DENIALS
;;^UTILITY(U,$J,"OPT",4135,10,9,0)
;;=4141^RM^96
;;^UTILITY(U,$J,"OPT",4135,10,9,"^")
;;=IBT OUTPUT MENU
;;^UTILITY(U,$J,"OPT",4135,10,10,0)
;;=4142^SM^93
;;^UTILITY(U,$J,"OPT",4135,10,10,"^")
;;=IBT SUPERVISORS MENU
;;^UTILITY(U,$J,"OPT",4135,10,11,0)
;;=4143^IC^90
;;^UTILITY(U,$J,"OPT",4135,10,11,"^")
;;=IBT OUTPUT CLAIM INQUIRY
;;^UTILITY(U,$J,"OPT",4135,10,13,0)
;;=4145^PR^10
;;^UTILITY(U,$J,"OPT",4135,10,13,"^")
;;=IBT EDIT REVIEWS TO DO
;;^UTILITY(U,$J,"OPT",4135,99)
;;=55825,69299
;;^UTILITY(U,$J,"OPT",4135,"U")
;;=CLAIMS TRACKING MENU (COMBINED
;;^UTILITY(U,$J,"OPT",4136,0)
;;=IBT OUTPUT ONE ADMISSION SHEET^Single Patient Admission Sheet^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4136,1,0)
;;=^^3^3^2930627^^
;;^UTILITY(U,$J,"OPT",4136,1,1,0)
;;=This option will print an admission sheet for one patient one
;;^UTILITY(U,$J,"OPT",4136,1,2,0)
;;=admission at a time. It can be used to reprint an admission sheet
;;^UTILITY(U,$J,"OPT",4136,1,3,0)
;;=if needed.
;;^UTILITY(U,$J,"OPT",4136,25)
;;=IBTOAT
;;^UTILITY(U,$J,"OPT",4136,"U")
;;=SINGLE PATIENT ADMISSION SHEET
;;^UTILITY(U,$J,"OPT",4137,0)
;;=IBT EDIT TRACKING ENTRY^Claims Tracking Edit^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4137,1,0)
;;=^^3^3^2930907^^
;;^UTILITY(U,$J,"OPT",4137,1,1,0)
;;=This option allows enter/editing of Claims Tracking Entries. Data
;;^UTILITY(U,$J,"OPT",4137,1,2,0)
;;=associated with a CT entry may affect if or how it is billed and the
;;^UTILITY(U,$J,"OPT",4137,1,3,0)
;;=types of reviews that may be or must be entered.
;;^UTILITY(U,$J,"OPT",4137,25)
;;=IBTRE
;;^UTILITY(U,$J,"OPT",4137,"U")
;;=CLAIMS TRACKING EDIT
;;^UTILITY(U,$J,"OPT",4138,0)
;;=IBT EDIT REVIEWS^Hospital Reviews^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4138,1,0)
;;=^^3^3^2930819^^^
;;^UTILITY(U,$J,"OPT",4138,1,1,0)
;;=This option allows viewing and editing of UR reviews of claims
;;^UTILITY(U,$J,"OPT",4138,1,2,0)
;;=tracking entries. This includes pre-admission/pre-certification
;;^UTILITY(U,$J,"OPT",4138,1,3,0)
;;=reviews, continuing stay reviews, and discharge reviews.
;;^UTILITY(U,$J,"OPT",4138,25)
;;=IBTRV
;;^UTILITY(U,$J,"OPT",4138,"U")
;;=HOSPITAL REVIEWS
;;^UTILITY(U,$J,"OPT",4139,0)
;;=IBT EDIT COMMUNICATIONS^Insurance Review Edit^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4139,1,0)
;;=^^2^2^2940307^^^
;;^UTILITY(U,$J,"OPT",4139,1,1,0)
;;=This option allows enter/editing of MCCR/UR related communications that
;;^UTILITY(U,$J,"OPT",4139,1,2,0)
;;=may or may not be associated with a claims tracking entry.
;;^UTILITY(U,$J,"OPT",4139,25)
;;=IBTRC
;;^UTILITY(U,$J,"OPT",4139,"U")
;;=INSURANCE REVIEW EDIT
;;^UTILITY(U,$J,"OPT",4140,0)
;;=IBT EDIT APPEALS/DENIALS^Appeal/Denial Edit^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4140,1,0)
;;=^^2^2^2930627^
;;^UTILITY(U,$J,"OPT",4140,1,1,0)
;;=This option allows for enter/editing appeals and denials and associated
;;^UTILITY(U,$J,"OPT",4140,1,2,0)
;;=communications.
;;^UTILITY(U,$J,"OPT",4140,25)
;;=IBTRD
;;^UTILITY(U,$J,"OPT",4140,"U")
;;=APPEAL/DENIAL EDIT
IBINI0DV ; ; 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",4135,10,2,0)
+2 ;;=4137^CT^20
+3 ;;^UTILITY(U,$J,"OPT",4135,10,2,"^")
+4 ;;=IBT EDIT TRACKING ENTRY
+5 ;;^UTILITY(U,$J,"OPT",4135,10,4,0)
+6 ;;=4138^HR^99
+7 ;;^UTILITY(U,$J,"OPT",4135,10,4,"^")
+8 ;;=IBT EDIT REVIEWS
+9 ;;^UTILITY(U,$J,"OPT",4135,10,6,0)
+10 ;;=4139^IR^50
+11 ;;^UTILITY(U,$J,"OPT",4135,10,6,"^")
+12 ;;=IBT EDIT COMMUNICATIONS
+13 ;;^UTILITY(U,$J,"OPT",4135,10,7,0)
+14 ;;=4140^AD^70
+15 ;;^UTILITY(U,$J,"OPT",4135,10,7,"^")
+16 ;;=IBT EDIT APPEALS/DENIALS
+17 ;;^UTILITY(U,$J,"OPT",4135,10,9,0)
+18 ;;=4141^RM^96
+19 ;;^UTILITY(U,$J,"OPT",4135,10,9,"^")
+20 ;;=IBT OUTPUT MENU
+21 ;;^UTILITY(U,$J,"OPT",4135,10,10,0)
+22 ;;=4142^SM^93
+23 ;;^UTILITY(U,$J,"OPT",4135,10,10,"^")
+24 ;;=IBT SUPERVISORS MENU
+25 ;;^UTILITY(U,$J,"OPT",4135,10,11,0)
+26 ;;=4143^IC^90
+27 ;;^UTILITY(U,$J,"OPT",4135,10,11,"^")
+28 ;;=IBT OUTPUT CLAIM INQUIRY
+29 ;;^UTILITY(U,$J,"OPT",4135,10,13,0)
+30 ;;=4145^PR^10
+31 ;;^UTILITY(U,$J,"OPT",4135,10,13,"^")
+32 ;;=IBT EDIT REVIEWS TO DO
+33 ;;^UTILITY(U,$J,"OPT",4135,99)
+34 ;;=55825,69299
+35 ;;^UTILITY(U,$J,"OPT",4135,"U")
+36 ;;=CLAIMS TRACKING MENU (COMBINED
+37 ;;^UTILITY(U,$J,"OPT",4136,0)
+38 ;;=IBT OUTPUT ONE ADMISSION SHEET^Single Patient Admission Sheet^^R^^^^^^^^INTEGRATED BILLING
+39 ;;^UTILITY(U,$J,"OPT",4136,1,0)
+40 ;;=^^3^3^2930627^^
+41 ;;^UTILITY(U,$J,"OPT",4136,1,1,0)
+42 ;;=This option will print an admission sheet for one patient one
+43 ;;^UTILITY(U,$J,"OPT",4136,1,2,0)
+44 ;;=admission at a time. It can be used to reprint an admission sheet
+45 ;;^UTILITY(U,$J,"OPT",4136,1,3,0)
+46 ;;=if needed.
+47 ;;^UTILITY(U,$J,"OPT",4136,25)
+48 ;;=IBTOAT
+49 ;;^UTILITY(U,$J,"OPT",4136,"U")
+50 ;;=SINGLE PATIENT ADMISSION SHEET
+51 ;;^UTILITY(U,$J,"OPT",4137,0)
+52 ;;=IBT EDIT TRACKING ENTRY^Claims Tracking Edit^^R^^^^^^^^INTEGRATED BILLING
+53 ;;^UTILITY(U,$J,"OPT",4137,1,0)
+54 ;;=^^3^3^2930907^^
+55 ;;^UTILITY(U,$J,"OPT",4137,1,1,0)
+56 ;;=This option allows enter/editing of Claims Tracking Entries. Data
+57 ;;^UTILITY(U,$J,"OPT",4137,1,2,0)
+58 ;;=associated with a CT entry may affect if or how it is billed and the
+59 ;;^UTILITY(U,$J,"OPT",4137,1,3,0)
+60 ;;=types of reviews that may be or must be entered.
+61 ;;^UTILITY(U,$J,"OPT",4137,25)
+62 ;;=IBTRE
+63 ;;^UTILITY(U,$J,"OPT",4137,"U")
+64 ;;=CLAIMS TRACKING EDIT
+65 ;;^UTILITY(U,$J,"OPT",4138,0)
+66 ;;=IBT EDIT REVIEWS^Hospital Reviews^^R^^^^^^^^INTEGRATED BILLING
+67 ;;^UTILITY(U,$J,"OPT",4138,1,0)
+68 ;;=^^3^3^2930819^^^
+69 ;;^UTILITY(U,$J,"OPT",4138,1,1,0)
+70 ;;=This option allows viewing and editing of UR reviews of claims
+71 ;;^UTILITY(U,$J,"OPT",4138,1,2,0)
+72 ;;=tracking entries. This includes pre-admission/pre-certification
+73 ;;^UTILITY(U,$J,"OPT",4138,1,3,0)
+74 ;;=reviews, continuing stay reviews, and discharge reviews.
+75 ;;^UTILITY(U,$J,"OPT",4138,25)
+76 ;;=IBTRV
+77 ;;^UTILITY(U,$J,"OPT",4138,"U")
+78 ;;=HOSPITAL REVIEWS
+79 ;;^UTILITY(U,$J,"OPT",4139,0)
+80 ;;=IBT EDIT COMMUNICATIONS^Insurance Review Edit^^R^^^^^^^^INTEGRATED BILLING
+81 ;;^UTILITY(U,$J,"OPT",4139,1,0)
+82 ;;=^^2^2^2940307^^^
+83 ;;^UTILITY(U,$J,"OPT",4139,1,1,0)
+84 ;;=This option allows enter/editing of MCCR/UR related communications that
+85 ;;^UTILITY(U,$J,"OPT",4139,1,2,0)
+86 ;;=may or may not be associated with a claims tracking entry.
+87 ;;^UTILITY(U,$J,"OPT",4139,25)
+88 ;;=IBTRC
+89 ;;^UTILITY(U,$J,"OPT",4139,"U")
+90 ;;=INSURANCE REVIEW EDIT
+91 ;;^UTILITY(U,$J,"OPT",4140,0)
+92 ;;=IBT EDIT APPEALS/DENIALS^Appeal/Denial Edit^^R^^^^^^^^INTEGRATED BILLING
+93 ;;^UTILITY(U,$J,"OPT",4140,1,0)
+94 ;;=^^2^2^2930627^
+95 ;;^UTILITY(U,$J,"OPT",4140,1,1,0)
+96 ;;=This option allows for enter/editing appeals and denials and associated
+97 ;;^UTILITY(U,$J,"OPT",4140,1,2,0)
+98 ;;=communications.
+99 ;;^UTILITY(U,$J,"OPT",4140,25)
+100 ;;=IBTRD
+101 ;;^UTILITY(U,$J,"OPT",4140,"U")
+102 ;;=APPEAL/DENIAL EDIT
