IBINI0DX ; ; 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",4144,1,2,0)
;;=Claims Tracking Module.
;;^UTILITY(U,$J,"OPT",4144,25)
;;=IBTRP
;;^UTILITY(U,$J,"OPT",4144,"U")
;;=CLAIMS TRACKING PARAMETER EDIT
;;^UTILITY(U,$J,"OPT",4145,0)
;;=IBT EDIT REVIEWS TO DO^Pending Reviews^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4145,1,0)
;;=^^7^7^2940307^^^^
;;^UTILITY(U,$J,"OPT",4145,1,1,0)
;;=This option will list all reviews that have a next review date in the
;;^UTILITY(U,$J,"OPT",4145,1,2,0)
;;=past seven days. All screens and actions necessary to complete the
;;^UTILITY(U,$J,"OPT",4145,1,3,0)
;;=pending reviews are available from within this option. You may also
;;^UTILITY(U,$J,"OPT",4145,1,4,0)
;;=select a different date range of pending reviews if desired.
;;^UTILITY(U,$J,"OPT",4145,1,5,0)
;;=Both Hospital and Insurance reviews can be accessed with this option.
;;^UTILITY(U,$J,"OPT",4145,1,6,0)
;;=Many pending reviews may have automatically been created by the computer
;;^UTILITY(U,$J,"OPT",4145,1,7,0)
;;=when a patient is admitted.
;;^UTILITY(U,$J,"OPT",4145,20)
;;=S IBTRPRF=12 D ^IBTRPR K IBTRPRF
;;^UTILITY(U,$J,"OPT",4145,99)
;;=55774,51555
;;^UTILITY(U,$J,"OPT",4145,"U")
;;=PENDING REVIEWS
;;^UTILITY(U,$J,"OPT",4146,0)
;;=IBT OUTPUT DENIED DAYS REPORT^Days Denied Report^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4146,1,0)
;;=^^2^2^2931104^
;;^UTILITY(U,$J,"OPT",4146,1,1,0)
;;=This option prints a summary of days denied by insurance company for a
;;^UTILITY(U,$J,"OPT",4146,1,2,0)
;;=user specified date range. A summary report by service is also generated.
;;^UTILITY(U,$J,"OPT",4146,25)
;;=IBTODD
;;^UTILITY(U,$J,"OPT",4146,"U")
;;=DAYS DENIED REPORT
;;^UTILITY(U,$J,"OPT",4147,0)
;;=IBT OUTPUT UR ACTIVITY REPORT^UR Activity Report^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4147,1,0)
;;=^^2^2^2931110^^
;;^UTILITY(U,$J,"OPT",4147,1,1,0)
;;=This option prints by clinical service, information about the mccr/ur
;;^UTILITY(U,$J,"OPT",4147,1,2,0)
;;=activity.
;;^UTILITY(U,$J,"OPT",4147,25)
;;=IBTOUR
;;^UTILITY(U,$J,"OPT",4147,"U")
;;=UR ACTIVITY REPORT
;;^UTILITY(U,$J,"OPT",4148,0)
;;=IBT OUTPUT SCHED ADM W/INS^Scheduled Admissions w/Insurance^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4148,1,0)
;;=^^4^4^2940307^^^
;;^UTILITY(U,$J,"OPT",4148,1,1,0)
;;=This option will print a list of Admission that are scheduled but
;;^UTILITY(U,$J,"OPT",4148,1,2,0)
;;=not admitted and/or scheduled admissions that have been admitted.
;;^UTILITY(U,$J,"OPT",4148,1,3,0)
;;=All admissions must be for patients who were insured on their admission
;;^UTILITY(U,$J,"OPT",4148,1,4,0)
;;=date.
;;^UTILITY(U,$J,"OPT",4148,25)
;;=IBTOSA
;;^UTILITY(U,$J,"OPT",4148,"U")
;;=SCHEDULED ADMISSIONS W/INSURAN
;;^UTILITY(U,$J,"OPT",4149,0)
;;=IBT OUTPUT UNSCHE ADM W/INS^Unscheduled Admissions w/Insurance^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4149,1,0)
;;=^^2^2^2940207^^
;;^UTILITY(U,$J,"OPT",4149,1,1,0)
;;=This option will print a list of patients who were insured on their
;;^UTILITY(U,$J,"OPT",4149,1,2,0)
;;=admission date but were not scheduled admissions.
;;^UTILITY(U,$J,"OPT",4149,25)
;;=IBTOUA
;;^UTILITY(U,$J,"OPT",4149,"U")
;;=UNSCHEDULED ADMISSIONS W/INSUR
;;^UTILITY(U,$J,"OPT",4150,0)
;;=IBT OUTPUT MCCR/UR SUMMARY^MCCR/UR Summary Report^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4150,1,0)
;;=^^6^6^2940214^^^
;;^UTILITY(U,$J,"OPT",4150,1,1,0)
;;=This report can be run for either admissions or discharges for a
IBINI0DX ; ; 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",4144,1,2,0)
+2 ;;=Claims Tracking Module.
+3 ;;^UTILITY(U,$J,"OPT",4144,25)
+4 ;;=IBTRP
+5 ;;^UTILITY(U,$J,"OPT",4144,"U")
+6 ;;=CLAIMS TRACKING PARAMETER EDIT
+7 ;;^UTILITY(U,$J,"OPT",4145,0)
+8 ;;=IBT EDIT REVIEWS TO DO^Pending Reviews^^A^^^^^^^^INTEGRATED BILLING^^1
+9 ;;^UTILITY(U,$J,"OPT",4145,1,0)
+10 ;;=^^7^7^2940307^^^^
+11 ;;^UTILITY(U,$J,"OPT",4145,1,1,0)
+12 ;;=This option will list all reviews that have a next review date in the
+13 ;;^UTILITY(U,$J,"OPT",4145,1,2,0)
+14 ;;=past seven days. All screens and actions necessary to complete the
+15 ;;^UTILITY(U,$J,"OPT",4145,1,3,0)
+16 ;;=pending reviews are available from within this option. You may also
+17 ;;^UTILITY(U,$J,"OPT",4145,1,4,0)
+18 ;;=select a different date range of pending reviews if desired.
+19 ;;^UTILITY(U,$J,"OPT",4145,1,5,0)
+20 ;;=Both Hospital and Insurance reviews can be accessed with this option.
+21 ;;^UTILITY(U,$J,"OPT",4145,1,6,0)
+22 ;;=Many pending reviews may have automatically been created by the computer
+23 ;;^UTILITY(U,$J,"OPT",4145,1,7,0)
+24 ;;=when a patient is admitted.
+25 ;;^UTILITY(U,$J,"OPT",4145,20)
+26 ;;=S IBTRPRF=12 D ^IBTRPR K IBTRPRF
+27 ;;^UTILITY(U,$J,"OPT",4145,99)
+28 ;;=55774,51555
+29 ;;^UTILITY(U,$J,"OPT",4145,"U")
+30 ;;=PENDING REVIEWS
+31 ;;^UTILITY(U,$J,"OPT",4146,0)
+32 ;;=IBT OUTPUT DENIED DAYS REPORT^Days Denied Report^^R^^^^^^^^INTEGRATED BILLING
+33 ;;^UTILITY(U,$J,"OPT",4146,1,0)
+34 ;;=^^2^2^2931104^
+35 ;;^UTILITY(U,$J,"OPT",4146,1,1,0)
+36 ;;=This option prints a summary of days denied by insurance company for a
+37 ;;^UTILITY(U,$J,"OPT",4146,1,2,0)
+38 ;;=user specified date range. A summary report by service is also generated.
+39 ;;^UTILITY(U,$J,"OPT",4146,25)
+40 ;;=IBTODD
+41 ;;^UTILITY(U,$J,"OPT",4146,"U")
+42 ;;=DAYS DENIED REPORT
+43 ;;^UTILITY(U,$J,"OPT",4147,0)
+44 ;;=IBT OUTPUT UR ACTIVITY REPORT^UR Activity Report^^R^^^^^^^^INTEGRATED BILLING
+45 ;;^UTILITY(U,$J,"OPT",4147,1,0)
+46 ;;=^^2^2^2931110^^
+47 ;;^UTILITY(U,$J,"OPT",4147,1,1,0)
+48 ;;=This option prints by clinical service, information about the mccr/ur
+49 ;;^UTILITY(U,$J,"OPT",4147,1,2,0)
+50 ;;=activity.
+51 ;;^UTILITY(U,$J,"OPT",4147,25)
+52 ;;=IBTOUR
+53 ;;^UTILITY(U,$J,"OPT",4147,"U")
+54 ;;=UR ACTIVITY REPORT
+55 ;;^UTILITY(U,$J,"OPT",4148,0)
+56 ;;=IBT OUTPUT SCHED ADM W/INS^Scheduled Admissions w/Insurance^^R^^^^^^^^INTEGRATED BILLING
+57 ;;^UTILITY(U,$J,"OPT",4148,1,0)
+58 ;;=^^4^4^2940307^^^
+59 ;;^UTILITY(U,$J,"OPT",4148,1,1,0)
+60 ;;=This option will print a list of Admission that are scheduled but
+61 ;;^UTILITY(U,$J,"OPT",4148,1,2,0)
+62 ;;=not admitted and/or scheduled admissions that have been admitted.
+63 ;;^UTILITY(U,$J,"OPT",4148,1,3,0)
+64 ;;=All admissions must be for patients who were insured on their admission
+65 ;;^UTILITY(U,$J,"OPT",4148,1,4,0)
+66 ;;=date.
+67 ;;^UTILITY(U,$J,"OPT",4148,25)
+68 ;;=IBTOSA
+69 ;;^UTILITY(U,$J,"OPT",4148,"U")
+70 ;;=SCHEDULED ADMISSIONS W/INSURAN
+71 ;;^UTILITY(U,$J,"OPT",4149,0)
+72 ;;=IBT OUTPUT UNSCHE ADM W/INS^Unscheduled Admissions w/Insurance^^R^^^^^^^^INTEGRATED BILLING
+73 ;;^UTILITY(U,$J,"OPT",4149,1,0)
+74 ;;=^^2^2^2940207^^
+75 ;;^UTILITY(U,$J,"OPT",4149,1,1,0)
+76 ;;=This option will print a list of patients who were insured on their
+77 ;;^UTILITY(U,$J,"OPT",4149,1,2,0)
+78 ;;=admission date but were not scheduled admissions.
+79 ;;^UTILITY(U,$J,"OPT",4149,25)
+80 ;;=IBTOUA
+81 ;;^UTILITY(U,$J,"OPT",4149,"U")
+82 ;;=UNSCHEDULED ADMISSIONS W/INSUR
+83 ;;^UTILITY(U,$J,"OPT",4150,0)
+84 ;;=IBT OUTPUT MCCR/UR SUMMARY^MCCR/UR Summary Report^^R^^^^^^^^INTEGRATED BILLING
+85 ;;^UTILITY(U,$J,"OPT",4150,1,0)
+86 ;;=^^6^6^2940214^^^
+87 ;;^UTILITY(U,$J,"OPT",4150,1,1,0)
+88 ;;=This report can be run for either admissions or discharges for a
