IBINI0DT ; ; 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",4120,"U")
;;=EDIT MARKING AREA (FOR SELECTI
;;^UTILITY(U,$J,"OPT",4124,0)
;;=IBDF IMPORT/EXPORT UTILITY^Import/Export Utility^^A^^^^^^^^INTEGRATED BILLING^^1
;;^UTILITY(U,$J,"OPT",4124,1,0)
;;=^^1^1^2930819^
;;^UTILITY(U,$J,"OPT",4124,1,1,0)
;;=Allows forms and blocks to be transferred between sites.
;;^UTILITY(U,$J,"OPT",4124,20)
;;=D ^IBDE
;;^UTILITY(U,$J,"OPT",4124,"U")
;;=IMPORT/EXPORT UTILITY
;;^UTILITY(U,$J,"OPT",4126,0)
;;=IB OUTPUT EMPLOYER REPORT^Employer Report^^R^^^^^^^^
;;^UTILITY(U,$J,"OPT",4126,1,0)
;;=^^2^2^2940207^^^
;;^UTILITY(U,$J,"OPT",4126,1,1,0)
;;=For patients without active insurance, this report will list the patients
;;^UTILITY(U,$J,"OPT",4126,1,2,0)
;;=and/or the spouses employer.
;;^UTILITY(U,$J,"OPT",4126,25)
;;=IBOEMP
;;^UTILITY(U,$J,"OPT",4126,"U")
;;=EMPLOYER REPORT
;;^UTILITY(U,$J,"OPT",4127,0)
;;=IB MT LIST HELD (RATE) CHARGES^List Charges Awaiting New Copay Rate^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4127,1,0)
;;=^^3^3^2930823^
;;^UTILITY(U,$J,"OPT",4127,1,1,0)
;;=This option is used to generate a list of all Means Test outpatient
;;^UTILITY(U,$J,"OPT",4127,1,2,0)
;;=copayment charges which have been placed on hold in Integrated
;;^UTILITY(U,$J,"OPT",4127,1,3,0)
;;=Billing because the outpatient copay rate is over one year old.
;;^UTILITY(U,$J,"OPT",4127,25)
;;=EN^IBEMTO1
;;^UTILITY(U,$J,"OPT",4127,"U")
;;=LIST CHARGES AWAITING NEW COPA
;;^UTILITY(U,$J,"OPT",4128,0)
;;=IB MT REL HELD (RATE) CHARGES^Release Charges Awaiting New Copay Rate^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4128,1,0)
;;=^^7^7^2930823^
;;^UTILITY(U,$J,"OPT",4128,1,1,0)
;;=This option is used to release charges which have been placed on hold
;;^UTILITY(U,$J,"OPT",4128,1,2,0)
;;=in Integrated Billing because the outpatient copay rate is over one
;;^UTILITY(U,$J,"OPT",4128,1,3,0)
;;=year old. If the new (less than one year old) rate has been entered
;;^UTILITY(U,$J,"OPT",4128,1,4,0)
;;=into the Billing table, the option will prompt the user to task off
;;^UTILITY(U,$J,"OPT",4128,1,5,0)
;;=a job which will automatically update the dollar amount and bill
;;^UTILITY(U,$J,"OPT",4128,1,6,0)
;;=all such charges. The user will receive a bulletin when the tasked
;;^UTILITY(U,$J,"OPT",4128,1,7,0)
;;=job has completed.
;;^UTILITY(U,$J,"OPT",4128,25)
;;=ENO^IBEMTO
;;^UTILITY(U,$J,"OPT",4128,"U")
;;=RELEASE CHARGES AWAITING NEW C
;;^UTILITY(U,$J,"OPT",4129,0)
;;=IB MT DISP SPECIAL CASES^Disposition Special Inpatient Billing Cases^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4129,1,0)
;;=^^2^2^2930823^
;;^UTILITY(U,$J,"OPT",4129,1,1,0)
;;=This option is used to enter the reason for not billing special inpatient
;;^UTILITY(U,$J,"OPT",4129,1,2,0)
;;=billing cases.
;;^UTILITY(U,$J,"OPT",4129,25)
;;=DISP^IBAMTI1
;;^UTILITY(U,$J,"OPT",4129,"U")
;;=DISPOSITION SPECIAL INPATIENT
;;^UTILITY(U,$J,"OPT",4130,0)
;;=IB MT LIST SPECIAL CASES^List Special Inpatient Billing Cases^^R^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"OPT",4130,1,0)
;;=^^4^4^2930823^
;;^UTILITY(U,$J,"OPT",4130,1,1,0)
;;=This option is used to list all special inpatient billing cases. After
;;^UTILITY(U,$J,"OPT",4130,1,2,0)
;;=a case has been dispositioned, the output will include either the reason
;;^UTILITY(U,$J,"OPT",4130,1,3,0)
;;=for non-billing, or all of the charges which have been billed for the
;;^UTILITY(U,$J,"OPT",4130,1,4,0)
;;=admission.
;;^UTILITY(U,$J,"OPT",4130,25)
;;=LIST^IBAMTI2
IBINI0DT ; ; 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",4120,"U")
+2 ;;=EDIT MARKING AREA (FOR SELECTI
+3 ;;^UTILITY(U,$J,"OPT",4124,0)
+4 ;;=IBDF IMPORT/EXPORT UTILITY^Import/Export Utility^^A^^^^^^^^INTEGRATED BILLING^^1
+5 ;;^UTILITY(U,$J,"OPT",4124,1,0)
+6 ;;=^^1^1^2930819^
+7 ;;^UTILITY(U,$J,"OPT",4124,1,1,0)
+8 ;;=Allows forms and blocks to be transferred between sites.
+9 ;;^UTILITY(U,$J,"OPT",4124,20)
+10 ;;=D ^IBDE
+11 ;;^UTILITY(U,$J,"OPT",4124,"U")
+12 ;;=IMPORT/EXPORT UTILITY
+13 ;;^UTILITY(U,$J,"OPT",4126,0)
+14 ;;=IB OUTPUT EMPLOYER REPORT^Employer Report^^R^^^^^^^^
+15 ;;^UTILITY(U,$J,"OPT",4126,1,0)
+16 ;;=^^2^2^2940207^^^
+17 ;;^UTILITY(U,$J,"OPT",4126,1,1,0)
+18 ;;=For patients without active insurance, this report will list the patients
+19 ;;^UTILITY(U,$J,"OPT",4126,1,2,0)
+20 ;;=and/or the spouses employer.
+21 ;;^UTILITY(U,$J,"OPT",4126,25)
+22 ;;=IBOEMP
+23 ;;^UTILITY(U,$J,"OPT",4126,"U")
+24 ;;=EMPLOYER REPORT
+25 ;;^UTILITY(U,$J,"OPT",4127,0)
+26 ;;=IB MT LIST HELD (RATE) CHARGES^List Charges Awaiting New Copay Rate^^R^^^^^^^^INTEGRATED BILLING
+27 ;;^UTILITY(U,$J,"OPT",4127,1,0)
+28 ;;=^^3^3^2930823^
+29 ;;^UTILITY(U,$J,"OPT",4127,1,1,0)
+30 ;;=This option is used to generate a list of all Means Test outpatient
+31 ;;^UTILITY(U,$J,"OPT",4127,1,2,0)
+32 ;;=copayment charges which have been placed on hold in Integrated
+33 ;;^UTILITY(U,$J,"OPT",4127,1,3,0)
+34 ;;=Billing because the outpatient copay rate is over one year old.
+35 ;;^UTILITY(U,$J,"OPT",4127,25)
+36 ;;=EN^IBEMTO1
+37 ;;^UTILITY(U,$J,"OPT",4127,"U")
+38 ;;=LIST CHARGES AWAITING NEW COPA
+39 ;;^UTILITY(U,$J,"OPT",4128,0)
+40 ;;=IB MT REL HELD (RATE) CHARGES^Release Charges Awaiting New Copay Rate^^R^^^^^^^^INTEGRATED BILLING
+41 ;;^UTILITY(U,$J,"OPT",4128,1,0)
+42 ;;=^^7^7^2930823^
+43 ;;^UTILITY(U,$J,"OPT",4128,1,1,0)
+44 ;;=This option is used to release charges which have been placed on hold
+45 ;;^UTILITY(U,$J,"OPT",4128,1,2,0)
+46 ;;=in Integrated Billing because the outpatient copay rate is over one
+47 ;;^UTILITY(U,$J,"OPT",4128,1,3,0)
+48 ;;=year old. If the new (less than one year old) rate has been entered
+49 ;;^UTILITY(U,$J,"OPT",4128,1,4,0)
+50 ;;=into the Billing table, the option will prompt the user to task off
+51 ;;^UTILITY(U,$J,"OPT",4128,1,5,0)
+52 ;;=a job which will automatically update the dollar amount and bill
+53 ;;^UTILITY(U,$J,"OPT",4128,1,6,0)
+54 ;;=all such charges. The user will receive a bulletin when the tasked
+55 ;;^UTILITY(U,$J,"OPT",4128,1,7,0)
+56 ;;=job has completed.
+57 ;;^UTILITY(U,$J,"OPT",4128,25)
+58 ;;=ENO^IBEMTO
+59 ;;^UTILITY(U,$J,"OPT",4128,"U")
+60 ;;=RELEASE CHARGES AWAITING NEW C
+61 ;;^UTILITY(U,$J,"OPT",4129,0)
+62 ;;=IB MT DISP SPECIAL CASES^Disposition Special Inpatient Billing Cases^^R^^^^^^^^INTEGRATED BILLING
+63 ;;^UTILITY(U,$J,"OPT",4129,1,0)
+64 ;;=^^2^2^2930823^
+65 ;;^UTILITY(U,$J,"OPT",4129,1,1,0)
+66 ;;=This option is used to enter the reason for not billing special inpatient
+67 ;;^UTILITY(U,$J,"OPT",4129,1,2,0)
+68 ;;=billing cases.
+69 ;;^UTILITY(U,$J,"OPT",4129,25)
+70 ;;=DISP^IBAMTI1
+71 ;;^UTILITY(U,$J,"OPT",4129,"U")
+72 ;;=DISPOSITION SPECIAL INPATIENT
+73 ;;^UTILITY(U,$J,"OPT",4130,0)
+74 ;;=IB MT LIST SPECIAL CASES^List Special Inpatient Billing Cases^^R^^^^^^^^INTEGRATED BILLING
+75 ;;^UTILITY(U,$J,"OPT",4130,1,0)
+76 ;;=^^4^4^2930823^
+77 ;;^UTILITY(U,$J,"OPT",4130,1,1,0)
+78 ;;=This option is used to list all special inpatient billing cases. After
+79 ;;^UTILITY(U,$J,"OPT",4130,1,2,0)
+80 ;;=a case has been dispositioned, the output will include either the reason
+81 ;;^UTILITY(U,$J,"OPT",4130,1,3,0)
+82 ;;=for non-billing, or all of the charges which have been billed for the
+83 ;;^UTILITY(U,$J,"OPT",4130,1,4,0)
+84 ;;=admission.
+85 ;;^UTILITY(U,$J,"OPT",4130,25)
+86 ;;=LIST^IBAMTI2