IBONI001 ; ; 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",420,0)
;;=IBACM1 DATE CHANGE^Change Date Range^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",420,1,0)
;;=^^1^1^2930305^^^^
;;^UTILITY(U,$J,"PRO",420,1,1,0)
;;=Change range of dates to search for Billable Events.
;;^UTILITY(U,$J,"PRO",420,15)
;;=D EXIT^IBECEA
;;^UTILITY(U,$J,"PRO",420,20)
;;=D DATE^IBECEA
;;^UTILITY(U,$J,"PRO",420,99)
;;=55356,43484
;;^UTILITY(U,$J,"PRO",420,"MEN","IBACM1 MENU")
;;=420^CD^11
;;^UTILITY(U,$J,"PRO",421,0)
;;=IBACM PATIENT CHANGE^Change Patient^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",421,1,0)
;;=^^1^1^2920203^^^^
;;^UTILITY(U,$J,"PRO",421,1,1,0)
;;=Change patient to search for Billable Events.
;;^UTILITY(U,$J,"PRO",421,15)
;;=D EXIT^IBECEA
;;^UTILITY(U,$J,"PRO",421,20)
;;=D PAT^IBECEA
;;^UTILITY(U,$J,"PRO",421,99)
;;=55356,43475
;;^UTILITY(U,$J,"PRO",421,"MEN","IBACM1 MENU")
;;=421^CP^10
;;^UTILITY(U,$J,"PRO",435,0)
;;=IBACM ADD CHARGE^Add a Charge^^X^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",435,1,0)
;;=^^1^1^2920427^^^^
;;^UTILITY(U,$J,"PRO",435,1,1,0)
;;=This extended protocol performs all actions for adding a charge.
;;^UTILITY(U,$J,"PRO",435,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",435,2,1,0)
;;=AC
;;^UTILITY(U,$J,"PRO",435,2,"B","AC",1)
;;=
;;^UTILITY(U,$J,"PRO",435,4)
;;=^
;;^UTILITY(U,$J,"PRO",435,10,0)
;;=^101.01PA^1^1
;;^UTILITY(U,$J,"PRO",435,10,1,0)
;;=440^^1
;;^UTILITY(U,$J,"PRO",435,10,1,"^")
;;=IBACM ADD CHARGE ONE
;;^UTILITY(U,$J,"PRO",435,15)
;;=
;;^UTILITY(U,$J,"PRO",435,20)
;;=
;;^UTILITY(U,$J,"PRO",435,99)
;;=55356,43353
;;^UTILITY(U,$J,"PRO",435,"MEN","IBACM1 MENU")
;;=435^AC^1
;;^UTILITY(U,$J,"PRO",437,0)
;;=IBACM CANCEL CHARGE^Cancel a Charge^^X^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",437,1,0)
;;=^^1^1^2920203^^^^
;;^UTILITY(U,$J,"PRO",437,1,1,0)
;;=Cancel an existing charge.
;;^UTILITY(U,$J,"PRO",437,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",437,2,1,0)
;;=CC
;;^UTILITY(U,$J,"PRO",437,2,"B","CC",1)
;;=
;;^UTILITY(U,$J,"PRO",437,10,0)
;;=^101.01PA^1^1
;;^UTILITY(U,$J,"PRO",437,10,1,0)
;;=442^^1
;;^UTILITY(U,$J,"PRO",437,10,1,"^")
;;=IBACM CANCEL CHARGE ONE
;;^UTILITY(U,$J,"PRO",437,15)
;;=K IBNOD
;;^UTILITY(U,$J,"PRO",437,20)
;;=S IBNOD(0)=XQORNOD(0)
;;^UTILITY(U,$J,"PRO",437,99)
;;=55356,43395
;;^UTILITY(U,$J,"PRO",437,"MEN","IBACM1 MENU")
;;=437^CC^3
;;^UTILITY(U,$J,"PRO",438,0)
;;=IBACM UPDATE CHARGE^Edit a Charge^^X^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",438,1,0)
;;=^^2^2^2920203^^^^
;;^UTILITY(U,$J,"PRO",438,1,1,0)
;;=This extended protocol performs all actions for updating a charge.
;;^UTILITY(U,$J,"PRO",438,1,2,0)
;;=(Cancel previous charge, add new charge.)
;;^UTILITY(U,$J,"PRO",438,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",438,2,1,0)
;;=EC
;;^UTILITY(U,$J,"PRO",438,2,"B","EC",1)
;;=
;;^UTILITY(U,$J,"PRO",438,10,0)
;;=^101.01PA^1^1
;;^UTILITY(U,$J,"PRO",438,10,1,0)
;;=443^^1
;;^UTILITY(U,$J,"PRO",438,10,1,"^")
;;=IBACM UPDATE CHARGE ONE
;;^UTILITY(U,$J,"PRO",438,15)
;;=K IBNOD
;;^UTILITY(U,$J,"PRO",438,20)
;;=S IBNOD(0)=XQORNOD(0)
;;^UTILITY(U,$J,"PRO",438,99)
;;=55356,43483
;;^UTILITY(U,$J,"PRO",438,"MEN","IBACM1 MENU")
;;=438^EC^2
;;^UTILITY(U,$J,"PRO",440,0)
;;=IBACM ADD CHARGE ONE^Add a Charge^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",440,1,0)
;;=^^1^1^2920427^^^^
;;^UTILITY(U,$J,"PRO",440,1,1,0)
;;=This protocol adds a charge to the ib action file.
;;^UTILITY(U,$J,"PRO",440,20)
;;=D ADD^IBECEA1
;;^UTILITY(U,$J,"PRO",440,99)
;;=55356,43353
;;^UTILITY(U,$J,"PRO",440,"MEN","IBACM ADD CHARGE")
;;=440^^1
IBONI001 ; ; 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",420,0)
+2 ;;=IBACM1 DATE CHANGE^Change Date Range^^A^^^^^^^^INTEGRATED BILLING
+3 ;;^UTILITY(U,$J,"PRO",420,1,0)
+4 ;;=^^1^1^2930305^^^^
+5 ;;^UTILITY(U,$J,"PRO",420,1,1,0)
+6 ;;=Change range of dates to search for Billable Events.
+7 ;;^UTILITY(U,$J,"PRO",420,15)
+8 ;;=D EXIT^IBECEA
+9 ;;^UTILITY(U,$J,"PRO",420,20)
+10 ;;=D DATE^IBECEA
+11 ;;^UTILITY(U,$J,"PRO",420,99)
+12 ;;=55356,43484
+13 ;;^UTILITY(U,$J,"PRO",420,"MEN","IBACM1 MENU")
+14 ;;=420^CD^11
+15 ;;^UTILITY(U,$J,"PRO",421,0)
+16 ;;=IBACM PATIENT CHANGE^Change Patient^^A^^^^^^^^INTEGRATED BILLING
+17 ;;^UTILITY(U,$J,"PRO",421,1,0)
+18 ;;=^^1^1^2920203^^^^
+19 ;;^UTILITY(U,$J,"PRO",421,1,1,0)
+20 ;;=Change patient to search for Billable Events.
+21 ;;^UTILITY(U,$J,"PRO",421,15)
+22 ;;=D EXIT^IBECEA
+23 ;;^UTILITY(U,$J,"PRO",421,20)
+24 ;;=D PAT^IBECEA
+25 ;;^UTILITY(U,$J,"PRO",421,99)
+26 ;;=55356,43475
+27 ;;^UTILITY(U,$J,"PRO",421,"MEN","IBACM1 MENU")
+28 ;;=421^CP^10
+29 ;;^UTILITY(U,$J,"PRO",435,0)
+30 ;;=IBACM ADD CHARGE^Add a Charge^^X^^^^^^^^INTEGRATED BILLING
+31 ;;^UTILITY(U,$J,"PRO",435,1,0)
+32 ;;=^^1^1^2920427^^^^
+33 ;;^UTILITY(U,$J,"PRO",435,1,1,0)
+34 ;;=This extended protocol performs all actions for adding a charge.
+35 ;;^UTILITY(U,$J,"PRO",435,2,0)
+36 ;;=^101.02A^1^1
+37 ;;^UTILITY(U,$J,"PRO",435,2,1,0)
+38 ;;=AC
+39 ;;^UTILITY(U,$J,"PRO",435,2,"B","AC",1)
+40 ;;=
+41 ;;^UTILITY(U,$J,"PRO",435,4)
+42 ;;=^
+43 ;;^UTILITY(U,$J,"PRO",435,10,0)
+44 ;;=^101.01PA^1^1
+45 ;;^UTILITY(U,$J,"PRO",435,10,1,0)
+46 ;;=440^^1
+47 ;;^UTILITY(U,$J,"PRO",435,10,1,"^")
+48 ;;=IBACM ADD CHARGE ONE
+49 ;;^UTILITY(U,$J,"PRO",435,15)
+50 ;;=
+51 ;;^UTILITY(U,$J,"PRO",435,20)
+52 ;;=
+53 ;;^UTILITY(U,$J,"PRO",435,99)
+54 ;;=55356,43353
+55 ;;^UTILITY(U,$J,"PRO",435,"MEN","IBACM1 MENU")
+56 ;;=435^AC^1
+57 ;;^UTILITY(U,$J,"PRO",437,0)
+58 ;;=IBACM CANCEL CHARGE^Cancel a Charge^^X^^^^^^^^INTEGRATED BILLING
+59 ;;^UTILITY(U,$J,"PRO",437,1,0)
+60 ;;=^^1^1^2920203^^^^
+61 ;;^UTILITY(U,$J,"PRO",437,1,1,0)
+62 ;;=Cancel an existing charge.
+63 ;;^UTILITY(U,$J,"PRO",437,2,0)
+64 ;;=^101.02A^1^1
+65 ;;^UTILITY(U,$J,"PRO",437,2,1,0)
+66 ;;=CC
+67 ;;^UTILITY(U,$J,"PRO",437,2,"B","CC",1)
+68 ;;=
+69 ;;^UTILITY(U,$J,"PRO",437,10,0)
+70 ;;=^101.01PA^1^1
+71 ;;^UTILITY(U,$J,"PRO",437,10,1,0)
+72 ;;=442^^1
+73 ;;^UTILITY(U,$J,"PRO",437,10,1,"^")
+74 ;;=IBACM CANCEL CHARGE ONE
+75 ;;^UTILITY(U,$J,"PRO",437,15)
+76 ;;=K IBNOD
+77 ;;^UTILITY(U,$J,"PRO",437,20)
+78 ;;=S IBNOD(0)=XQORNOD(0)
+79 ;;^UTILITY(U,$J,"PRO",437,99)
+80 ;;=55356,43395
+81 ;;^UTILITY(U,$J,"PRO",437,"MEN","IBACM1 MENU")
+82 ;;=437^CC^3
+83 ;;^UTILITY(U,$J,"PRO",438,0)
+84 ;;=IBACM UPDATE CHARGE^Edit a Charge^^X^^^^^^^^INTEGRATED BILLING
+85 ;;^UTILITY(U,$J,"PRO",438,1,0)
+86 ;;=^^2^2^2920203^^^^
+87 ;;^UTILITY(U,$J,"PRO",438,1,1,0)
+88 ;;=This extended protocol performs all actions for updating a charge.
+89 ;;^UTILITY(U,$J,"PRO",438,1,2,0)
+90 ;;=(Cancel previous charge, add new charge.)
+91 ;;^UTILITY(U,$J,"PRO",438,2,0)
+92 ;;=^101.02A^1^1
+93 ;;^UTILITY(U,$J,"PRO",438,2,1,0)
+94 ;;=EC
+95 ;;^UTILITY(U,$J,"PRO",438,2,"B","EC",1)
+96 ;;=
+97 ;;^UTILITY(U,$J,"PRO",438,10,0)
+98 ;;=^101.01PA^1^1
+99 ;;^UTILITY(U,$J,"PRO",438,10,1,0)
+100 ;;=443^^1
+101 ;;^UTILITY(U,$J,"PRO",438,10,1,"^")
+102 ;;=IBACM UPDATE CHARGE ONE
+103 ;;^UTILITY(U,$J,"PRO",438,15)
+104 ;;=K IBNOD
+105 ;;^UTILITY(U,$J,"PRO",438,20)
+106 ;;=S IBNOD(0)=XQORNOD(0)
+107 ;;^UTILITY(U,$J,"PRO",438,99)
+108 ;;=55356,43483
+109 ;;^UTILITY(U,$J,"PRO",438,"MEN","IBACM1 MENU")
+110 ;;=438^EC^2
+111 ;;^UTILITY(U,$J,"PRO",440,0)
+112 ;;=IBACM ADD CHARGE ONE^Add a Charge^^A^^^^^^^^INTEGRATED BILLING
+113 ;;^UTILITY(U,$J,"PRO",440,1,0)
+114 ;;=^^1^1^2920427^^^^
+115 ;;^UTILITY(U,$J,"PRO",440,1,1,0)
+116 ;;=This protocol adds a charge to the ib action file.
+117 ;;^UTILITY(U,$J,"PRO",440,20)
+118 ;;=D ADD^IBECEA1
+119 ;;^UTILITY(U,$J,"PRO",440,99)
+120 ;;=55356,43353
+121 ;;^UTILITY(U,$J,"PRO",440,"MEN","IBACM ADD CHARGE")
+122 ;;=440^^1
