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
