- IBINI0DU ; ; 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",4130,"U")
- ;;=LIST SPECIAL INPATIENT BILLING
- ;;^UTILITY(U,$J,"OPT",4132,0)
- ;;=IB MT ON HOLD MENU^On Hold Menu^^M^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"OPT",4132,1,0)
- ;;=^^4^4^2930826^^^^
- ;;^UTILITY(U,$J,"OPT",4132,1,1,0)
- ;;=This menu is used to group all options which are used to manage
- ;;^UTILITY(U,$J,"OPT",4132,1,2,0)
- ;;=Integrated Billing actions which are placed on hold because the
- ;;^UTILITY(U,$J,"OPT",4132,1,3,0)
- ;;=patient has insurance coverage or because the outpatient copay
- ;;^UTILITY(U,$J,"OPT",4132,1,4,0)
- ;;=rate is over one year old.
- ;;^UTILITY(U,$J,"OPT",4132,10,0)
- ;;=^19.01IP^5^5
- ;;^UTILITY(U,$J,"OPT",4132,10,1,0)
- ;;=4127^LIST
- ;;^UTILITY(U,$J,"OPT",4132,10,1,"^")
- ;;=IB MT LIST HELD (RATE) CHARGES
- ;;^UTILITY(U,$J,"OPT",4132,10,2,0)
- ;;=4128^WAIT
- ;;^UTILITY(U,$J,"OPT",4132,10,2,"^")
- ;;=IB MT REL HELD (RATE) CHARGES
- ;;^UTILITY(U,$J,"OPT",4132,10,3,0)
- ;;=3436^HOLD
- ;;^UTILITY(U,$J,"OPT",4132,10,3,"^")
- ;;=IB MT RELEASE CHARGES
- ;;^UTILITY(U,$J,"OPT",4132,10,4,0)
- ;;=3437^HELD
- ;;^UTILITY(U,$J,"OPT",4132,10,4,"^")
- ;;=IB OUTPUT HELD CHARGES
- ;;^UTILITY(U,$J,"OPT",4132,10,5,0)
- ;;=3546^PASS
- ;;^UTILITY(U,$J,"OPT",4132,10,5,"^")
- ;;=IB MT PASS CONV CHARGES
- ;;^UTILITY(U,$J,"OPT",4132,99)
- ;;=55880,85934
- ;;^UTILITY(U,$J,"OPT",4132,"U")
- ;;=ON HOLD MENU
- ;;^UTILITY(U,$J,"OPT",4133,0)
- ;;=IB MT FLAG OPT PARAMS^Flag Stop Codes/Dispositions/Clinics^^R^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"OPT",4133,1,0)
- ;;=^^4^4^2930831^^
- ;;^UTILITY(U,$J,"OPT",4133,1,1,0)
- ;;=This option is used to flag stop codes, dispositions, and clinics
- ;;^UTILITY(U,$J,"OPT",4133,1,2,0)
- ;;=which the site has determined to be exempt from the Means Test
- ;;^UTILITY(U,$J,"OPT",4133,1,3,0)
- ;;=outpatient copayment charge. These parameters are all flagged
- ;;^UTILITY(U,$J,"OPT",4133,1,4,0)
- ;;=by date and may be inactivated and re-activated.
- ;;^UTILITY(U,$J,"OPT",4133,25)
- ;;=EN^IBEMTF
- ;;^UTILITY(U,$J,"OPT",4133,"U")
- ;;=FLAG STOP CODES/DISPOSITIONS/C
- ;;^UTILITY(U,$J,"OPT",4134,0)
- ;;=IB MT LIST FLAGGED PARAMS^List Flagged Stop Codes/Dispositions/Clinics^^R^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"OPT",4134,1,0)
- ;;=^^2^2^2930831^
- ;;^UTILITY(U,$J,"OPT",4134,1,1,0)
- ;;=This output is used to generate a list of all stop codes, dispositions,
- ;;^UTILITY(U,$J,"OPT",4134,1,2,0)
- ;;=and clinics which are inactive as of a user-specified date.
- ;;^UTILITY(U,$J,"OPT",4134,25)
- ;;=EN^IBEMTF2
- ;;^UTILITY(U,$J,"OPT",4134,"U")
- ;;=LIST FLAGGED STOP CODES/DISPOS
- ;;^UTILITY(U,$J,"OPT",4135,0)
- ;;=IBT USER COMBINED MCCR/UR MENU^Claims Tracking Menu (Combined Functions)^^M^^^^^^^^INTEGRATED BILLING
- ;;^UTILITY(U,$J,"OPT",4135,1,0)
- ;;=^^8^8^2940207^^^^
- ;;^UTILITY(U,$J,"OPT",4135,1,1,0)
- ;;=This is the main menu for MCCR/UR persons who do both Hospital UR
- ;;^UTILITY(U,$J,"OPT",4135,1,2,0)
- ;;=and MCCR UR (Insurance UR). It contains all the options necessary
- ;;^UTILITY(U,$J,"OPT",4135,1,3,0)
- ;;=to do both hospital and Insurance Reviews.
- ;;^UTILITY(U,$J,"OPT",4135,1,4,0)
- ;;=
- ;;^UTILITY(U,$J,"OPT",4135,1,5,0)
- ;;=From this menu the claims tracking module can be edited, UR Reviews can
- ;;^UTILITY(U,$J,"OPT",4135,1,6,0)
- ;;=be entered, Insurance Reviews can be entered an reports printed.
- ;;^UTILITY(U,$J,"OPT",4135,1,7,0)
- ;;=Supervisory functions will be available to those who hold the
- ;;^UTILITY(U,$J,"OPT",4135,1,8,0)
- ;;=supervisory keys.
- ;;^UTILITY(U,$J,"OPT",4135,10,0)
- ;;=^19.01PI^13^9
- ;;^UTILITY(U,$J,"OPT",4135,10,1,0)
- ;;=4136^SP^30
- ;;^UTILITY(U,$J,"OPT",4135,10,1,"^")
- ;;=IBT OUTPUT ONE ADMISSION SHEET
- IBINI0DU ; ; 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",4130,"U")
- +2 ;;=LIST SPECIAL INPATIENT BILLING
- +3 ;;^UTILITY(U,$J,"OPT",4132,0)
- +4 ;;=IB MT ON HOLD MENU^On Hold Menu^^M^^^^^^^^INTEGRATED BILLING
- +5 ;;^UTILITY(U,$J,"OPT",4132,1,0)
- +6 ;;=^^4^4^2930826^^^^
- +7 ;;^UTILITY(U,$J,"OPT",4132,1,1,0)
- +8 ;;=This menu is used to group all options which are used to manage
- +9 ;;^UTILITY(U,$J,"OPT",4132,1,2,0)
- +10 ;;=Integrated Billing actions which are placed on hold because the
- +11 ;;^UTILITY(U,$J,"OPT",4132,1,3,0)
- +12 ;;=patient has insurance coverage or because the outpatient copay
- +13 ;;^UTILITY(U,$J,"OPT",4132,1,4,0)
- +14 ;;=rate is over one year old.
- +15 ;;^UTILITY(U,$J,"OPT",4132,10,0)
- +16 ;;=^19.01IP^5^5
- +17 ;;^UTILITY(U,$J,"OPT",4132,10,1,0)
- +18 ;;=4127^LIST
- +19 ;;^UTILITY(U,$J,"OPT",4132,10,1,"^")
- +20 ;;=IB MT LIST HELD (RATE) CHARGES
- +21 ;;^UTILITY(U,$J,"OPT",4132,10,2,0)
- +22 ;;=4128^WAIT
- +23 ;;^UTILITY(U,$J,"OPT",4132,10,2,"^")
- +24 ;;=IB MT REL HELD (RATE) CHARGES
- +25 ;;^UTILITY(U,$J,"OPT",4132,10,3,0)
- +26 ;;=3436^HOLD
- +27 ;;^UTILITY(U,$J,"OPT",4132,10,3,"^")
- +28 ;;=IB MT RELEASE CHARGES
- +29 ;;^UTILITY(U,$J,"OPT",4132,10,4,0)
- +30 ;;=3437^HELD
- +31 ;;^UTILITY(U,$J,"OPT",4132,10,4,"^")
- +32 ;;=IB OUTPUT HELD CHARGES
- +33 ;;^UTILITY(U,$J,"OPT",4132,10,5,0)
- +34 ;;=3546^PASS
- +35 ;;^UTILITY(U,$J,"OPT",4132,10,5,"^")
- +36 ;;=IB MT PASS CONV CHARGES
- +37 ;;^UTILITY(U,$J,"OPT",4132,99)
- +38 ;;=55880,85934
- +39 ;;^UTILITY(U,$J,"OPT",4132,"U")
- +40 ;;=ON HOLD MENU
- +41 ;;^UTILITY(U,$J,"OPT",4133,0)
- +42 ;;=IB MT FLAG OPT PARAMS^Flag Stop Codes/Dispositions/Clinics^^R^^^^^^^^INTEGRATED BILLING
- +43 ;;^UTILITY(U,$J,"OPT",4133,1,0)
- +44 ;;=^^4^4^2930831^^
- +45 ;;^UTILITY(U,$J,"OPT",4133,1,1,0)
- +46 ;;=This option is used to flag stop codes, dispositions, and clinics
- +47 ;;^UTILITY(U,$J,"OPT",4133,1,2,0)
- +48 ;;=which the site has determined to be exempt from the Means Test
- +49 ;;^UTILITY(U,$J,"OPT",4133,1,3,0)
- +50 ;;=outpatient copayment charge. These parameters are all flagged
- +51 ;;^UTILITY(U,$J,"OPT",4133,1,4,0)
- +52 ;;=by date and may be inactivated and re-activated.
- +53 ;;^UTILITY(U,$J,"OPT",4133,25)
- +54 ;;=EN^IBEMTF
- +55 ;;^UTILITY(U,$J,"OPT",4133,"U")
- +56 ;;=FLAG STOP CODES/DISPOSITIONS/C
- +57 ;;^UTILITY(U,$J,"OPT",4134,0)
- +58 ;;=IB MT LIST FLAGGED PARAMS^List Flagged Stop Codes/Dispositions/Clinics^^R^^^^^^^^INTEGRATED BILLING
- +59 ;;^UTILITY(U,$J,"OPT",4134,1,0)
- +60 ;;=^^2^2^2930831^
- +61 ;;^UTILITY(U,$J,"OPT",4134,1,1,0)
- +62 ;;=This output is used to generate a list of all stop codes, dispositions,
- +63 ;;^UTILITY(U,$J,"OPT",4134,1,2,0)
- +64 ;;=and clinics which are inactive as of a user-specified date.
- +65 ;;^UTILITY(U,$J,"OPT",4134,25)
- +66 ;;=EN^IBEMTF2
- +67 ;;^UTILITY(U,$J,"OPT",4134,"U")
- +68 ;;=LIST FLAGGED STOP CODES/DISPOS
- +69 ;;^UTILITY(U,$J,"OPT",4135,0)
- +70 ;;=IBT USER COMBINED MCCR/UR MENU^Claims Tracking Menu (Combined Functions)^^M^^^^^^^^INTEGRATED BILLING
- +71 ;;^UTILITY(U,$J,"OPT",4135,1,0)
- +72 ;;=^^8^8^2940207^^^^
- +73 ;;^UTILITY(U,$J,"OPT",4135,1,1,0)
- +74 ;;=This is the main menu for MCCR/UR persons who do both Hospital UR
- +75 ;;^UTILITY(U,$J,"OPT",4135,1,2,0)
- +76 ;;=and MCCR UR (Insurance UR). It contains all the options necessary
- +77 ;;^UTILITY(U,$J,"OPT",4135,1,3,0)
- +78 ;;=to do both hospital and Insurance Reviews.
- +79 ;;^UTILITY(U,$J,"OPT",4135,1,4,0)
- +80 ;;=
- +81 ;;^UTILITY(U,$J,"OPT",4135,1,5,0)
- +82 ;;=From this menu the claims tracking module can be edited, UR Reviews can
- +83 ;;^UTILITY(U,$J,"OPT",4135,1,6,0)
- +84 ;;=be entered, Insurance Reviews can be entered an reports printed.
- +85 ;;^UTILITY(U,$J,"OPT",4135,1,7,0)
- +86 ;;=Supervisory functions will be available to those who hold the
- +87 ;;^UTILITY(U,$J,"OPT",4135,1,8,0)
- +88 ;;=supervisory keys.
- +89 ;;^UTILITY(U,$J,"OPT",4135,10,0)
- +90 ;;=^19.01PI^13^9
- +91 ;;^UTILITY(U,$J,"OPT",4135,10,1,0)
- +92 ;;=4136^SP^30
- +93 ;;^UTILITY(U,$J,"OPT",4135,10,1,"^")
- +94 ;;=IBT OUTPUT ONE ADMISSION SHEET
