IBINI0D8 ; ; 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",1237,1,2,0)
;;=the form alignment in the printer may be checked.
;;^UTILITY(U,$J,"OPT",1237,25)
;;=IBCF1TP
;;^UTILITY(U,$J,"OPT",1237,"U")
;;=UB-82 TEST PATTERN PRINT
;;^UTILITY(U,$J,"OPT",2248,0)
;;=IB COPY AND CANCEL^Copy and Cancel^^R^^IB AUTHORIZE^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",2248,1,0)
;;=^^2^2^2900306^^^^
;;^UTILITY(U,$J,"OPT",2248,1,1,0)
;;=This option will allow cancelling a bill and then will create an exact
;;^UTILITY(U,$J,"OPT",2248,1,2,0)
;;=duplicate bill except its status will be ENTERED/NOT REVIEWED.
;;^UTILITY(U,$J,"OPT",2248,25)
;;=IBCCC
;;^UTILITY(U,$J,"OPT",2248,"U")
;;=COPY AND CANCEL
;;^UTILITY(U,$J,"OPT",2300,0)
;;=IB LIST ALL BILLS FOR PAT.^List all Bills for a Patient^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",2300,1,0)
;;=^^1^1^2900427^
;;^UTILITY(U,$J,"OPT",2300,1,1,0)
;;=This option will print a list of all bills for one patient.
;;^UTILITY(U,$J,"OPT",2300,25)
;;=IBOA31
;;^UTILITY(U,$J,"OPT",2300,"U")
;;=LIST ALL BILLS FOR A PATIENT
;;^UTILITY(U,$J,"OPT",2311,0)
;;=IB BILLING RATES FILE^Enter/Edit Billing Rates^^R^^IB SUPERVISOR^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",2311,1,0)
;;=^^2^2^2940207^^^^
;;^UTILITY(U,$J,"OPT",2311,1,1,0)
;;=This option allows enter/edit of Billing Rates that will be used in the
;;^UTILITY(U,$J,"OPT",2311,1,2,0)
;;=automatic calculation of costs when preparing a third party bill.
;;^UTILITY(U,$J,"OPT",2311,25)
;;=IBEBR
;;^UTILITY(U,$J,"OPT",2311,"U")
;;=ENTER/EDIT BILLING RATES
;;^UTILITY(U,$J,"OPT",2320,0)
;;=IB RETURN BILL LIST^Returned Bill List^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",2320,1,0)
;;=^^3^3^2940207^^
;;^UTILITY(U,$J,"OPT",2320,1,1,0)
;;=This option will generate a list of bills returned by Accounts Receivable
;;^UTILITY(U,$J,"OPT",2320,1,2,0)
;;=to MCCR. The output should be directed to a printer as this report may
;;^UTILITY(U,$J,"OPT",2320,1,3,0)
;;=take a few minutes to print.
;;^UTILITY(U,$J,"OPT",2320,25)
;;=RETN^PRCALST
;;^UTILITY(U,$J,"OPT",2320,"U")
;;=RETURNED BILL LIST
;;^UTILITY(U,$J,"OPT",2321,0)
;;=IB FAST ENTER BILLING RATES^Fast Enter of New Billing Rates^^R^^IB SUPERVISOR^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",2321,1,0)
;;=^^2^2^2900525^^
;;^UTILITY(U,$J,"OPT",2321,1,1,0)
;;=This option is designed to speed the entry of new billing rates for
;;^UTILITY(U,$J,"OPT",2321,1,2,0)
;;=a fiscal year.
;;^UTILITY(U,$J,"OPT",2321,25)
;;=IBCBR
;;^UTILITY(U,$J,"OPT",2321,"U")
;;=FAST ENTER OF NEW BILLING RATE
;;^UTILITY(U,$J,"OPT",2322,0)
;;=IB LIST BILLS FOR EPISODE^Episode of Care Bill List^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",2322,1,0)
;;=^^1^1^2900529^^
;;^UTILITY(U,$J,"OPT",2322,1,1,0)
;;=This option will list all bills related to an episode of care
;;^UTILITY(U,$J,"OPT",2322,25)
;;=IBOBL
;;^UTILITY(U,$J,"OPT",2322,"U")
;;=EPISODE OF CARE BILL LIST
;;^UTILITY(U,$J,"OPT",2324,0)
;;=IB LIST OF BILLING RATES^Billing Rates List^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",2324,1,0)
;;=^^1^1^2920304^^^
;;^UTILITY(U,$J,"OPT",2324,1,1,0)
;;=This option will print a list of Billing Rates by Effective date.
;;^UTILITY(U,$J,"OPT",2324,25)
;;=IBORAT
;;^UTILITY(U,$J,"OPT",2324,60)
;;=
;;^UTILITY(U,$J,"OPT",2324,62)
;;=
;;^UTILITY(U,$J,"OPT",2324,63)
;;=
;;^UTILITY(U,$J,"OPT",2324,64)
;;=
;;^UTILITY(U,$J,"OPT",2324,65)
;;=
;;^UTILITY(U,$J,"OPT",2324,66)
;;=
;;^UTILITY(U,$J,"OPT",2324,"U")
;;=BILLING RATES LIST
;;^UTILITY(U,$J,"OPT",2328,0)
;;=IB EDIT RETURNED BILL^Edit Returned Bill^^R^^IB EDIT^^^^^^INTEGRATED BILLING
IBINI0D8 ; ; 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",1237,1,2,0)
+2 ;;=the form alignment in the printer may be checked.
+3 ;;^UTILITY(U,$J,"OPT",1237,25)
+4 ;;=IBCF1TP
+5 ;;^UTILITY(U,$J,"OPT",1237,"U")
+6 ;;=UB-82 TEST PATTERN PRINT
+7 ;;^UTILITY(U,$J,"OPT",2248,0)
+8 ;;=IB COPY AND CANCEL^Copy and Cancel^^R^^IB AUTHORIZE^^^^^^INTEGRATED BILLING
+9 ;;^UTILITY(U,$J,"OPT",2248,1,0)
+10 ;;=^^2^2^2900306^^^^
+11 ;;^UTILITY(U,$J,"OPT",2248,1,1,0)
+12 ;;=This option will allow cancelling a bill and then will create an exact
+13 ;;^UTILITY(U,$J,"OPT",2248,1,2,0)
+14 ;;=duplicate bill except its status will be ENTERED/NOT REVIEWED.
+15 ;;^UTILITY(U,$J,"OPT",2248,25)
+16 ;;=IBCCC
+17 ;;^UTILITY(U,$J,"OPT",2248,"U")
+18 ;;=COPY AND CANCEL
+19 ;;^UTILITY(U,$J,"OPT",2300,0)
+20 ;;=IB LIST ALL BILLS FOR PAT.^List all Bills for a Patient^^R^^^^^^^^INTEGRATED BILLING
+21 ;;^UTILITY(U,$J,"OPT",2300,1,0)
+22 ;;=^^1^1^2900427^
+23 ;;^UTILITY(U,$J,"OPT",2300,1,1,0)
+24 ;;=This option will print a list of all bills for one patient.
+25 ;;^UTILITY(U,$J,"OPT",2300,25)
+26 ;;=IBOA31
+27 ;;^UTILITY(U,$J,"OPT",2300,"U")
+28 ;;=LIST ALL BILLS FOR A PATIENT
+29 ;;^UTILITY(U,$J,"OPT",2311,0)
+30 ;;=IB BILLING RATES FILE^Enter/Edit Billing Rates^^R^^IB SUPERVISOR^^^^^^INTEGRATED BILLING
+31 ;;^UTILITY(U,$J,"OPT",2311,1,0)
+32 ;;=^^2^2^2940207^^^^
+33 ;;^UTILITY(U,$J,"OPT",2311,1,1,0)
+34 ;;=This option allows enter/edit of Billing Rates that will be used in the
+35 ;;^UTILITY(U,$J,"OPT",2311,1,2,0)
+36 ;;=automatic calculation of costs when preparing a third party bill.
+37 ;;^UTILITY(U,$J,"OPT",2311,25)
+38 ;;=IBEBR
+39 ;;^UTILITY(U,$J,"OPT",2311,"U")
+40 ;;=ENTER/EDIT BILLING RATES
+41 ;;^UTILITY(U,$J,"OPT",2320,0)
+42 ;;=IB RETURN BILL LIST^Returned Bill List^^R^^^^^^^^INTEGRATED BILLING
+43 ;;^UTILITY(U,$J,"OPT",2320,1,0)
+44 ;;=^^3^3^2940207^^
+45 ;;^UTILITY(U,$J,"OPT",2320,1,1,0)
+46 ;;=This option will generate a list of bills returned by Accounts Receivable
+47 ;;^UTILITY(U,$J,"OPT",2320,1,2,0)
+48 ;;=to MCCR. The output should be directed to a printer as this report may
+49 ;;^UTILITY(U,$J,"OPT",2320,1,3,0)
+50 ;;=take a few minutes to print.
+51 ;;^UTILITY(U,$J,"OPT",2320,25)
+52 ;;=RETN^PRCALST
+53 ;;^UTILITY(U,$J,"OPT",2320,"U")
+54 ;;=RETURNED BILL LIST
+55 ;;^UTILITY(U,$J,"OPT",2321,0)
+56 ;;=IB FAST ENTER BILLING RATES^Fast Enter of New Billing Rates^^R^^IB SUPERVISOR^^^^^^INTEGRATED BILLING
+57 ;;^UTILITY(U,$J,"OPT",2321,1,0)
+58 ;;=^^2^2^2900525^^
+59 ;;^UTILITY(U,$J,"OPT",2321,1,1,0)
+60 ;;=This option is designed to speed the entry of new billing rates for
+61 ;;^UTILITY(U,$J,"OPT",2321,1,2,0)
+62 ;;=a fiscal year.
+63 ;;^UTILITY(U,$J,"OPT",2321,25)
+64 ;;=IBCBR
+65 ;;^UTILITY(U,$J,"OPT",2321,"U")
+66 ;;=FAST ENTER OF NEW BILLING RATE
+67 ;;^UTILITY(U,$J,"OPT",2322,0)
+68 ;;=IB LIST BILLS FOR EPISODE^Episode of Care Bill List^^R^^^^^^^^INTEGRATED BILLING
+69 ;;^UTILITY(U,$J,"OPT",2322,1,0)
+70 ;;=^^1^1^2900529^^
+71 ;;^UTILITY(U,$J,"OPT",2322,1,1,0)
+72 ;;=This option will list all bills related to an episode of care
+73 ;;^UTILITY(U,$J,"OPT",2322,25)
+74 ;;=IBOBL
+75 ;;^UTILITY(U,$J,"OPT",2322,"U")
+76 ;;=EPISODE OF CARE BILL LIST
+77 ;;^UTILITY(U,$J,"OPT",2324,0)
+78 ;;=IB LIST OF BILLING RATES^Billing Rates List^^R^^^^^^^^INTEGRATED BILLING
+79 ;;^UTILITY(U,$J,"OPT",2324,1,0)
+80 ;;=^^1^1^2920304^^^
+81 ;;^UTILITY(U,$J,"OPT",2324,1,1,0)
+82 ;;=This option will print a list of Billing Rates by Effective date.
+83 ;;^UTILITY(U,$J,"OPT",2324,25)
+84 ;;=IBORAT
+85 ;;^UTILITY(U,$J,"OPT",2324,60)
+86 ;;=
+87 ;;^UTILITY(U,$J,"OPT",2324,62)
+88 ;;=
+89 ;;^UTILITY(U,$J,"OPT",2324,63)
+90 ;;=
+91 ;;^UTILITY(U,$J,"OPT",2324,64)
+92 ;;=
+93 ;;^UTILITY(U,$J,"OPT",2324,65)
+94 ;;=
+95 ;;^UTILITY(U,$J,"OPT",2324,66)
+96 ;;=
+97 ;;^UTILITY(U,$J,"OPT",2324,"U")
+98 ;;=BILLING RATES LIST
+99 ;;^UTILITY(U,$J,"OPT",2328,0)
+100 ;;=IB EDIT RETURNED BILL^Edit Returned Bill^^R^^IB EDIT^^^^^^INTEGRATED BILLING
