IBINI0CI ; ; 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,"DIBT",802,2,2,"F")
;;=2930505.99999^T
;;^UTILITY(U,$J,"DIBT",802,2,2,"IX")
;;=^IBE(354.3,"B",^IBE(354.3,^2
;;^UTILITY(U,$J,"DIBT",802,2,2,"T")
;;=2930506.9999^T
;;^UTILITY(U,$J,"DIBT",803,0)
;;=IB BILLING PATIENT BY STATUS^2930324.0819^@^354^1453^@^2930421
;;^UTILITY(U,$J,"DIBT",803,2,1)
;;=354^.04^COPAY INCOME EXEMPTION STATUS^@+^
;;^UTILITY(U,$J,"DIBT",803,2,1,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",803,2,1,"F")
;;=@z^A
;;^UTILITY(U,$J,"DIBT",803,2,1,"IX")
;;=^IBA(354,"AEX",^IBA(354,^2
;;^UTILITY(U,$J,"DIBT",803,2,1,"T")
;;=Z^Z
;;^UTILITY(U,$J,"DIBT",803,2,2)
;;=354^.03^COPAY EXEMPTION STATUS DATE^'@^
;;^UTILITY(U,$J,"DIBT",803,2,2,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",803,2,2,"F")
;;=2900628.99999^T-999
;;^UTILITY(U,$J,"DIBT",803,2,2,"IX")
;;=^IBA(354,"AD",^IBA(354,^2
;;^UTILITY(U,$J,"DIBT",803,2,2,"T")
;;=2930324.9999^T
;;^UTILITY(U,$J,"DIBT",803,2,3)
;;=354^^PATIENT NAME^@".01^
;;^UTILITY(U,$J,"DIBT",803,2,3,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",803,2,3,"CM")
;;=S X(3)=$P($G(^DPT(+D0,0)),U)
;;^UTILITY(U,$J,"DIBT",803,2,3,"F")
;;=@z^A
;;^UTILITY(U,$J,"DIBT",803,2,3,"T")
;;=Z^Z
;;^UTILITY(U,$J,"DIBT",804,0)
;;=IB BILLING PATIENT BY REASON^2930324.0857^@^354^1453^@^2930507
;;^UTILITY(U,$J,"DIBT",804,2,1)
;;=354^^COPAY EXEMPTION REASON^@+".05^
;;^UTILITY(U,$J,"DIBT",804,2,1,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",804,2,1,"CM")
;;=S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"") S X=$S('$D(^IBE(354.2,+$P(Y(1),U,5),0)):"",1:$P(^(0),U,1)) I D0>0 S X(1)=X
;;^UTILITY(U,$J,"DIBT",804,2,1,"F")
;;=@z^A
;;^UTILITY(U,$J,"DIBT",804,2,1,"T")
;;=ZZZZ^ZZZZ
;;^UTILITY(U,$J,"DIBT",804,2,2)
;;=354^.03^COPAY EXEMPTION STATUS DATE^'@^
;;^UTILITY(U,$J,"DIBT",804,2,2,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",804,2,2,"F")
;;=2920323.99999^T-365
;;^UTILITY(U,$J,"DIBT",804,2,2,"IX")
;;=^IBA(354,"AD",^IBA(354,^2
;;^UTILITY(U,$J,"DIBT",804,2,2,"T")
;;=2930324.9999^T
;;^UTILITY(U,$J,"DIBT",804,2,3)
;;=354^^PATIENT NAME^@".01^
;;^UTILITY(U,$J,"DIBT",804,2,3,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",804,2,3,"CM")
;;=S X(3)=$P($G(^DPT(+D0,0)),U)
;;^UTILITY(U,$J,"DIBT",804,2,3,"F")
;;=@z^A
;;^UTILITY(U,$J,"DIBT",804,2,3,"T")
;;=ZZZZ^ZZZZ
;;^UTILITY(U,$J,"DIBT",819,0)
;;=IB BILLING PAT W/INCOME^2930408.1559^@^354^1453^@^2930427
;;^UTILITY(U,$J,"DIBT",819,2,1)
;;=354^^COPAY EXEMPTION REASON^@+".05^
;;^UTILITY(U,$J,"DIBT",819,2,1,"CM")
;;=S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"") S X=$S('$D(^IBE(354.2,+$P(Y(1),U,5),0)):"",1:$P(^(0),U,1)) I D0>0 S X(1)=X
;;^UTILITY(U,$J,"DIBT",819,2,1,"F")
;;=NO INCOME DAT@z^NO INCOME DATA
;;^UTILITY(U,$J,"DIBT",819,2,1,"T")
;;=NO INCOME DATA^NO INCOME DATA
;;^UTILITY(U,$J,"DIBT",819,2,2)
;;=354^.03^COPAY EXEMPTION STATUS DATE^'@^
;;^UTILITY(U,$J,"DIBT",819,2,2,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",819,2,2,"F")
;;=2930406.99999^T-1
;;^UTILITY(U,$J,"DIBT",819,2,2,"IX")
;;=^IBA(354,"AD",^IBA(354,^2
;;^UTILITY(U,$J,"DIBT",819,2,2,"T")
;;=2930408.9999^T
;;^UTILITY(U,$J,"DIBT",819,2,3)
;;=354^^PATIENT NAME^@".01^
;;^UTILITY(U,$J,"DIBT",819,2,3,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",819,2,3,"CM")
;;=S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S X(3)=X
;;^UTILITY(U,$J,"DIBT",819,2,3,"F")
;;=@z^A
;;^UTILITY(U,$J,"DIBT",819,2,3,"T")
;;=Z^Z
;;^UTILITY(U,$J,"DIBT",820,0)
;;=IB EXEMPT PATIENTS^2930423.1557^@^354^0^@^2930510
;;^UTILITY(U,$J,"DIBT",820,2,1)
;;=354^.04^COPAY INCOME EXEMPTION STATUS^@+^
;;^UTILITY(U,$J,"DIBT",820,2,1,"F")
;;=.99999^1
;;^UTILITY(U,$J,"DIBT",820,2,1,"IX")
;;=^IBA(354,"AEX",^IBA(354,^2
IBINI0CI ; ; 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,"DIBT",802,2,2,"F")
+2 ;;=2930505.99999^T
+3 ;;^UTILITY(U,$J,"DIBT",802,2,2,"IX")
+4 ;;=^IBE(354.3,"B",^IBE(354.3,^2
+5 ;;^UTILITY(U,$J,"DIBT",802,2,2,"T")
+6 ;;=2930506.9999^T
+7 ;;^UTILITY(U,$J,"DIBT",803,0)
+8 ;;=IB BILLING PATIENT BY STATUS^2930324.0819^@^354^1453^@^2930421
+9 ;;^UTILITY(U,$J,"DIBT",803,2,1)
+10 ;;=354^.04^COPAY INCOME EXEMPTION STATUS^@+^
+11 ;;^UTILITY(U,$J,"DIBT",803,2,1,"ASK")
+12 ;;=
+13 ;;^UTILITY(U,$J,"DIBT",803,2,1,"F")
+14 ;;=@z^A
+15 ;;^UTILITY(U,$J,"DIBT",803,2,1,"IX")
+16 ;;=^IBA(354,"AEX",^IBA(354,^2
+17 ;;^UTILITY(U,$J,"DIBT",803,2,1,"T")
+18 ;;=Z^Z
+19 ;;^UTILITY(U,$J,"DIBT",803,2,2)
+20 ;;=354^.03^COPAY EXEMPTION STATUS DATE^'@^
+21 ;;^UTILITY(U,$J,"DIBT",803,2,2,"ASK")
+22 ;;=
+23 ;;^UTILITY(U,$J,"DIBT",803,2,2,"F")
+24 ;;=2900628.99999^T-999
+25 ;;^UTILITY(U,$J,"DIBT",803,2,2,"IX")
+26 ;;=^IBA(354,"AD",^IBA(354,^2
+27 ;;^UTILITY(U,$J,"DIBT",803,2,2,"T")
+28 ;;=2930324.9999^T
+29 ;;^UTILITY(U,$J,"DIBT",803,2,3)
+30 ;;=354^^PATIENT NAME^@".01^
+31 ;;^UTILITY(U,$J,"DIBT",803,2,3,"ASK")
+32 ;;=
+33 ;;^UTILITY(U,$J,"DIBT",803,2,3,"CM")
+34 ;;=S X(3)=$P($G(^DPT(+D0,0)),U)
+35 ;;^UTILITY(U,$J,"DIBT",803,2,3,"F")
+36 ;;=@z^A
+37 ;;^UTILITY(U,$J,"DIBT",803,2,3,"T")
+38 ;;=Z^Z
+39 ;;^UTILITY(U,$J,"DIBT",804,0)
+40 ;;=IB BILLING PATIENT BY REASON^2930324.0857^@^354^1453^@^2930507
+41 ;;^UTILITY(U,$J,"DIBT",804,2,1)
+42 ;;=354^^COPAY EXEMPTION REASON^@+".05^
+43 ;;^UTILITY(U,$J,"DIBT",804,2,1,"ASK")
+44 ;;=
+45 ;;^UTILITY(U,$J,"DIBT",804,2,1,"CM")
+46 ;;=S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"") S X=$S('$D(^IBE(354.2,+$P(Y(1),U,5),0)):"",1:$P(^(0),U,1)) I D0>0 S X(1)=X
+47 ;;^UTILITY(U,$J,"DIBT",804,2,1,"F")
+48 ;;=@z^A
+49 ;;^UTILITY(U,$J,"DIBT",804,2,1,"T")
+50 ;;=ZZZZ^ZZZZ
+51 ;;^UTILITY(U,$J,"DIBT",804,2,2)
+52 ;;=354^.03^COPAY EXEMPTION STATUS DATE^'@^
+53 ;;^UTILITY(U,$J,"DIBT",804,2,2,"ASK")
+54 ;;=
+55 ;;^UTILITY(U,$J,"DIBT",804,2,2,"F")
+56 ;;=2920323.99999^T-365
+57 ;;^UTILITY(U,$J,"DIBT",804,2,2,"IX")
+58 ;;=^IBA(354,"AD",^IBA(354,^2
+59 ;;^UTILITY(U,$J,"DIBT",804,2,2,"T")
+60 ;;=2930324.9999^T
+61 ;;^UTILITY(U,$J,"DIBT",804,2,3)
+62 ;;=354^^PATIENT NAME^@".01^
+63 ;;^UTILITY(U,$J,"DIBT",804,2,3,"ASK")
+64 ;;=
+65 ;;^UTILITY(U,$J,"DIBT",804,2,3,"CM")
+66 ;;=S X(3)=$P($G(^DPT(+D0,0)),U)
+67 ;;^UTILITY(U,$J,"DIBT",804,2,3,"F")
+68 ;;=@z^A
+69 ;;^UTILITY(U,$J,"DIBT",804,2,3,"T")
+70 ;;=ZZZZ^ZZZZ
+71 ;;^UTILITY(U,$J,"DIBT",819,0)
+72 ;;=IB BILLING PAT W/INCOME^2930408.1559^@^354^1453^@^2930427
+73 ;;^UTILITY(U,$J,"DIBT",819,2,1)
+74 ;;=354^^COPAY EXEMPTION REASON^@+".05^
+75 ;;^UTILITY(U,$J,"DIBT",819,2,1,"CM")
+76 ;;=S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"") S X=$S('$D(^IBE(354.2,+$P(Y(1),U,5),0)):"",1:$P(^(0),U,1)) I D0>0 S X(1)=X
+77 ;;^UTILITY(U,$J,"DIBT",819,2,1,"F")
+78 ;;=NO INCOME DAT@z^NO INCOME DATA
+79 ;;^UTILITY(U,$J,"DIBT",819,2,1,"T")
+80 ;;=NO INCOME DATA^NO INCOME DATA
+81 ;;^UTILITY(U,$J,"DIBT",819,2,2)
+82 ;;=354^.03^COPAY EXEMPTION STATUS DATE^'@^
+83 ;;^UTILITY(U,$J,"DIBT",819,2,2,"ASK")
+84 ;;=
+85 ;;^UTILITY(U,$J,"DIBT",819,2,2,"F")
+86 ;;=2930406.99999^T-1
+87 ;;^UTILITY(U,$J,"DIBT",819,2,2,"IX")
+88 ;;=^IBA(354,"AD",^IBA(354,^2
+89 ;;^UTILITY(U,$J,"DIBT",819,2,2,"T")
+90 ;;=2930408.9999^T
+91 ;;^UTILITY(U,$J,"DIBT",819,2,3)
+92 ;;=354^^PATIENT NAME^@".01^
+93 ;;^UTILITY(U,$J,"DIBT",819,2,3,"ASK")
+94 ;;=
+95 ;;^UTILITY(U,$J,"DIBT",819,2,3,"CM")
+96 ;;=S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D0>0 S X(3)=X
+97 ;;^UTILITY(U,$J,"DIBT",819,2,3,"F")
+98 ;;=@z^A
+99 ;;^UTILITY(U,$J,"DIBT",819,2,3,"T")
+100 ;;=Z^Z
+101 ;;^UTILITY(U,$J,"DIBT",820,0)
+102 ;;=IB EXEMPT PATIENTS^2930423.1557^@^354^0^@^2930510
+103 ;;^UTILITY(U,$J,"DIBT",820,2,1)
+104 ;;=354^.04^COPAY INCOME EXEMPTION STATUS^@+^
+105 ;;^UTILITY(U,$J,"DIBT",820,2,1,"F")
+106 ;;=.99999^1
+107 ;;^UTILITY(U,$J,"DIBT",820,2,1,"IX")
+108 ;;=^IBA(354,"AEX",^IBA(354,^2
