IBONI003 ; ; 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,"PRO",463,0)
;;=IB MEANS TEST EVENT^IB Edit a means test event^^A^^^^^^^^
;;^UTILITY(U,$J,"PRO",463,1,0)
;;=^^2^2^2920403^
;;^UTILITY(U,$J,"PRO",463,1,1,0)
;;=This protocol will send a bulletin to billing when ever
;;^UTILITY(U,$J,"PRO",463,1,2,0)
;;=a change to a past means test may affect billing.
;;^UTILITY(U,$J,"PRO",463,20)
;;=D ^IBAMTED
;;^UTILITY(U,$J,"PRO",463,99)
;;=55356,43344
;;^UTILITY(U,$J,"PRO",463,"MEN","DG MEANS TEST EVENTS")
;;=463
;;^UTILITY(U,$J,"PRO",562,0)
;;=IBACM PASS CHARGE^Pass a Charge^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",562,.1)
;;=Pass
;;^UTILITY(U,$J,"PRO",562,1,0)
;;=^^2^2^2920428^
;;^UTILITY(U,$J,"PRO",562,1,1,0)
;;=This protocol passes a Category C charge to Accounts Recievable, resulting
;;^UTILITY(U,$J,"PRO",562,1,2,0)
;;=in a change in its STATUS.
;;^UTILITY(U,$J,"PRO",562,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",562,2,1,0)
;;=PC
;;^UTILITY(U,$J,"PRO",562,2,"B","PC",1)
;;=
;;^UTILITY(U,$J,"PRO",562,4)
;;=^^^Pass a Charge
;;^UTILITY(U,$J,"PRO",562,20)
;;=D PASS^IBECEA1
;;^UTILITY(U,$J,"PRO",562,99)
;;=55356,43473
;;^UTILITY(U,$J,"PRO",562,"MEN","IBACM1 MENU")
;;=562^PC^12
;;^UTILITY(U,$J,"PRO",680,0)
;;=IB EXEMPTION EVENTS^IB Exemption Event Driver^^X^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",680,1,0)
;;=^^3^3^2930121^
;;^UTILITY(U,$J,"PRO",680,1,1,0)
;;=This is the Integrated Billing Exemption Event driver. It is invoked
;;^UTILITY(U,$J,"PRO",680,1,2,0)
;;=every time an Pharmacy Co-pay Exemption is added. See routine
;;^UTILITY(U,$J,"PRO",680,1,3,0)
;;=IBARXEVT for details.
;;^UTILITY(U,$J,"PRO",680,4)
;;=^^^RX
;;^UTILITY(U,$J,"PRO",680,10,0)
;;=^101.01PA^0^1
;;^UTILITY(U,$J,"PRO",680,99)
;;=55763,56723
;;^UTILITY(U,$J,"PRO",783,0)
;;=IBACM UPDATE EVENT^Update Events^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",783,1,0)
;;=^^5^5^2940211^^
;;^UTILITY(U,$J,"PRO",783,1,1,0)
;;=This menu protocol provides the user the tools needed to adjust the
;;^UTILITY(U,$J,"PRO",783,1,2,0)
;;=Means Test billing event record which is established for inpatient
;;^UTILITY(U,$J,"PRO",783,1,3,0)
;;=billing episodes. Normally, the event record does not need to be
;;^UTILITY(U,$J,"PRO",783,1,4,0)
;;=managed, but if the system crashes or a logical error occurs, it
;;^UTILITY(U,$J,"PRO",783,1,5,0)
;;=may be necessary to adjust this record.
;;^UTILITY(U,$J,"PRO",783,4)
;;=^^^Update Events
;;^UTILITY(U,$J,"PRO",783,20)
;;=D EN^IBECEA5
;;^UTILITY(U,$J,"PRO",783,99)
;;=55924,41864
;;^UTILITY(U,$J,"PRO",784,0)
;;=IBACME EVENT MENU^Event Menu^^M^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",784,4)
;;=26^4^^Event Menu
;;^UTILITY(U,$J,"PRO",784,10,0)
;;=^101.01PA^2^2
;;^UTILITY(U,$J,"PRO",784,10,1,0)
;;=785^CS^10
;;^UTILITY(U,$J,"PRO",784,10,1,"^")
;;=IBACME CHANGE STATUS
;;^UTILITY(U,$J,"PRO",784,10,2,0)
;;=786^LC^11
;;^UTILITY(U,$J,"PRO",784,10,2,"^")
;;=IBACME LAST CALC
;;^UTILITY(U,$J,"PRO",784,26)
;;=D SHOW^VALM
;;^UTILITY(U,$J,"PRO",784,28)
;;=Select Event:
;;^UTILITY(U,$J,"PRO",784,99)
;;=55878,44550
;;^UTILITY(U,$J,"PRO",785,0)
;;=IBACME CHANGE STATUS^Change Status^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",785,1,0)
;;=^^5^5^2930826^
;;^UTILITY(U,$J,"PRO",785,1,1,0)
;;=This protocol may be used to open or close a Means Test Billing event
;;^UTILITY(U,$J,"PRO",785,1,2,0)
;;=record. If the record is opened, and the patient still admitted,
;;^UTILITY(U,$J,"PRO",785,1,3,0)
;;=Means Test billing will resume. If the patient has been discharged
IBONI003 ; ; 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,"PRO",463,0)
+2 ;;=IB MEANS TEST EVENT^IB Edit a means test event^^A^^^^^^^^
+3 ;;^UTILITY(U,$J,"PRO",463,1,0)
+4 ;;=^^2^2^2920403^
+5 ;;^UTILITY(U,$J,"PRO",463,1,1,0)
+6 ;;=This protocol will send a bulletin to billing when ever
+7 ;;^UTILITY(U,$J,"PRO",463,1,2,0)
+8 ;;=a change to a past means test may affect billing.
+9 ;;^UTILITY(U,$J,"PRO",463,20)
+10 ;;=D ^IBAMTED
+11 ;;^UTILITY(U,$J,"PRO",463,99)
+12 ;;=55356,43344
+13 ;;^UTILITY(U,$J,"PRO",463,"MEN","DG MEANS TEST EVENTS")
+14 ;;=463
+15 ;;^UTILITY(U,$J,"PRO",562,0)
+16 ;;=IBACM PASS CHARGE^Pass a Charge^^A^^^^^^^^INTEGRATED BILLING
+17 ;;^UTILITY(U,$J,"PRO",562,.1)
+18 ;;=Pass
+19 ;;^UTILITY(U,$J,"PRO",562,1,0)
+20 ;;=^^2^2^2920428^
+21 ;;^UTILITY(U,$J,"PRO",562,1,1,0)
+22 ;;=This protocol passes a Category C charge to Accounts Recievable, resulting
+23 ;;^UTILITY(U,$J,"PRO",562,1,2,0)
+24 ;;=in a change in its STATUS.
+25 ;;^UTILITY(U,$J,"PRO",562,2,0)
+26 ;;=^101.02A^1^1
+27 ;;^UTILITY(U,$J,"PRO",562,2,1,0)
+28 ;;=PC
+29 ;;^UTILITY(U,$J,"PRO",562,2,"B","PC",1)
+30 ;;=
+31 ;;^UTILITY(U,$J,"PRO",562,4)
+32 ;;=^^^Pass a Charge
+33 ;;^UTILITY(U,$J,"PRO",562,20)
+34 ;;=D PASS^IBECEA1
+35 ;;^UTILITY(U,$J,"PRO",562,99)
+36 ;;=55356,43473
+37 ;;^UTILITY(U,$J,"PRO",562,"MEN","IBACM1 MENU")
+38 ;;=562^PC^12
+39 ;;^UTILITY(U,$J,"PRO",680,0)
+40 ;;=IB EXEMPTION EVENTS^IB Exemption Event Driver^^X^^^^^^^^INTEGRATED BILLING
+41 ;;^UTILITY(U,$J,"PRO",680,1,0)
+42 ;;=^^3^3^2930121^
+43 ;;^UTILITY(U,$J,"PRO",680,1,1,0)
+44 ;;=This is the Integrated Billing Exemption Event driver. It is invoked
+45 ;;^UTILITY(U,$J,"PRO",680,1,2,0)
+46 ;;=every time an Pharmacy Co-pay Exemption is added. See routine
+47 ;;^UTILITY(U,$J,"PRO",680,1,3,0)
+48 ;;=IBARXEVT for details.
+49 ;;^UTILITY(U,$J,"PRO",680,4)
+50 ;;=^^^RX
+51 ;;^UTILITY(U,$J,"PRO",680,10,0)
+52 ;;=^101.01PA^0^1
+53 ;;^UTILITY(U,$J,"PRO",680,99)
+54 ;;=55763,56723
+55 ;;^UTILITY(U,$J,"PRO",783,0)
+56 ;;=IBACM UPDATE EVENT^Update Events^^A^^^^^^^^INTEGRATED BILLING
+57 ;;^UTILITY(U,$J,"PRO",783,1,0)
+58 ;;=^^5^5^2940211^^
+59 ;;^UTILITY(U,$J,"PRO",783,1,1,0)
+60 ;;=This menu protocol provides the user the tools needed to adjust the
+61 ;;^UTILITY(U,$J,"PRO",783,1,2,0)
+62 ;;=Means Test billing event record which is established for inpatient
+63 ;;^UTILITY(U,$J,"PRO",783,1,3,0)
+64 ;;=billing episodes. Normally, the event record does not need to be
+65 ;;^UTILITY(U,$J,"PRO",783,1,4,0)
+66 ;;=managed, but if the system crashes or a logical error occurs, it
+67 ;;^UTILITY(U,$J,"PRO",783,1,5,0)
+68 ;;=may be necessary to adjust this record.
+69 ;;^UTILITY(U,$J,"PRO",783,4)
+70 ;;=^^^Update Events
+71 ;;^UTILITY(U,$J,"PRO",783,20)
+72 ;;=D EN^IBECEA5
+73 ;;^UTILITY(U,$J,"PRO",783,99)
+74 ;;=55924,41864
+75 ;;^UTILITY(U,$J,"PRO",784,0)
+76 ;;=IBACME EVENT MENU^Event Menu^^M^^^^^^^^INTEGRATED BILLING
+77 ;;^UTILITY(U,$J,"PRO",784,4)
+78 ;;=26^4^^Event Menu
+79 ;;^UTILITY(U,$J,"PRO",784,10,0)
+80 ;;=^101.01PA^2^2
+81 ;;^UTILITY(U,$J,"PRO",784,10,1,0)
+82 ;;=785^CS^10
+83 ;;^UTILITY(U,$J,"PRO",784,10,1,"^")
+84 ;;=IBACME CHANGE STATUS
+85 ;;^UTILITY(U,$J,"PRO",784,10,2,0)
+86 ;;=786^LC^11
+87 ;;^UTILITY(U,$J,"PRO",784,10,2,"^")
+88 ;;=IBACME LAST CALC
+89 ;;^UTILITY(U,$J,"PRO",784,26)
+90 ;;=D SHOW^VALM
+91 ;;^UTILITY(U,$J,"PRO",784,28)
+92 ;;=Select Event:
+93 ;;^UTILITY(U,$J,"PRO",784,99)
+94 ;;=55878,44550
+95 ;;^UTILITY(U,$J,"PRO",785,0)
+96 ;;=IBACME CHANGE STATUS^Change Status^^A^^^^^^^^INTEGRATED BILLING
+97 ;;^UTILITY(U,$J,"PRO",785,1,0)
+98 ;;=^^5^5^2930826^
+99 ;;^UTILITY(U,$J,"PRO",785,1,1,0)
+100 ;;=This protocol may be used to open or close a Means Test Billing event
+101 ;;^UTILITY(U,$J,"PRO",785,1,2,0)
+102 ;;=record. If the record is opened, and the patient still admitted,
+103 ;;^UTILITY(U,$J,"PRO",785,1,3,0)
+104 ;;=Means Test billing will resume. If the patient has been discharged
