Routine: IBINI0DT

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

IBINI0DT.m