IBINI0CJ ; ; 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",820,2,1,"T")
;;=1^1
;;^UTILITY(U,$J,"DIBT",820,2,2)
;;=354^.03^COPAY EXEMPTION STATUS DATE^'@^
;;^UTILITY(U,$J,"DIBT",820,2,2,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",820,2,2,"F")
;;=2930413.99999^T-9
;;^UTILITY(U,$J,"DIBT",820,2,2,"IX")
;;=^IBA(354,"AD",^IBA(354,^2
;;^UTILITY(U,$J,"DIBT",820,2,2,"T")
;;=2930423.9999^T
;;^UTILITY(U,$J,"DIBT",820,2,3)
;;=354^^PATIENT NAME^@".01^
;;^UTILITY(U,$J,"DIBT",820,2,3,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",820,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",820,2,3,"F")
;;=@z^A
;;^UTILITY(U,$J,"DIBT",820,2,3,"T")
;;=Z^Z
;;^UTILITY(U,$J,"DIBT",829,0)
;;=IB EXEMPTION LETTER^2930604.1544^^354^^^2940309
;;^UTILITY(U,$J,"DIBT",845,0)
;;=IB AB COMMENTS^2940211.0941^@^362.1^10882^@^2940317
;;^UTILITY(U,$J,"DIBT",845,2,1)
;;=362.1^.05^DATE ENTERED^^;S1
;;^UTILITY(U,$J,"DIBT",845,2,1,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",845,2,1,"F")
;;=2930100.99999^1 1 93
;;^UTILITY(U,$J,"DIBT",845,2,1,"T")
;;=z^
;;^UTILITY(U,$J,"DIBT",845,2,2)
;;=362.1^^CLAIMS TRACKING ID:EVENT TYPE^@"^;S1
;;^UTILITY(U,$J,"DIBT",845,2,2,"CM")
;;=X DPP(2,"OVF0",9.2) S X=$S('$D(^IBE(356.6,+$P(Y(101),U,18),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(2)=X
;;^UTILITY(U,$J,"DIBT",845,2,2,"F")
;;=?z^@
;;^UTILITY(U,$J,"DIBT",845,2,2,"OVF0",9.2)
;;=S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(362.1,D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"")
;;^UTILITY(U,$J,"DIBT",845,2,2,"T")
;;=z^
;;^UTILITY(U,$J,"DIBT",845,2,3)
;;=362.1^^CLAIMS TRACKING ID:PATIENT^@"^;"CLAIMS TRACKING PATIENT"
;;^UTILITY(U,$J,"DIBT",845,2,3,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",845,2,3,"CM")
;;=X DPP(3,"OVF0",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(3)=X
;;^UTILITY(U,$J,"DIBT",845,2,3,"F")
;;=@z^A
;;^UTILITY(U,$J,"DIBT",845,2,3,"OVF0",9.2)
;;=S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(362.1,D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"")
;;^UTILITY(U,$J,"DIBT",845,2,3,"T")
;;=z^
;;^UTILITY(U,$J,"DIBT",845,2,4)
;;=362.1^^CLAIMS TRACKING ID:EPISODE DATE^@"^^^D
;;^UTILITY(U,$J,"DIBT",845,2,4,"CM")
;;=X DPP(4,"OVF0",9.2) S X=$P(Y(101),U,6) S D0=I(0,0) I D0>0 S X(4)=X
;;^UTILITY(U,$J,"DIBT",845,2,4,"F")
;;=?z^@
;;^UTILITY(U,$J,"DIBT",845,2,4,"OVF0",9.2)
;;=S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(362.1,D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"")
;;^UTILITY(U,$J,"DIBT",845,2,4,"T")
;;=z^
;;^UTILITY(U,$J,"DIBT",851,0)
;;=IB INACTIVE INS CO^2931104.111^@^36^1453^@^2940228
;;^UTILITY(U,$J,"DIBT",851,2,1)
;;=36^.05^INACTIVE^'@^
;;^UTILITY(U,$J,"DIBT",851,2,1,"F")
;;=.99999^1
;;^UTILITY(U,$J,"DIBT",851,2,1,"T")
;;=1^1
;;^UTILITY(U,$J,"DIBT",851,2,2)
;;=36^.01^NAME^@^;"INSURANCE COMPANY"
;;^UTILITY(U,$J,"DIBT",851,2,2,"ASK")
;;=
;;^UTILITY(U,$J,"DIBT",851,2,2,"F")
;;=@z^A
;;^UTILITY(U,$J,"DIBT",851,2,2,"IX")
;;=^DIC(36,"B",^DIC(36,^2
;;^UTILITY(U,$J,"DIBT",851,2,2,"T")
;;=Z^Z
;;^UTILITY(U,$J,"DIBT",853,0)
;;=IBNOTVER^2931129.1527^^2^^^2940309^
;;^UTILITY(U,$J,"DIBT",853,2,1)
;;=2.312^1.03^DATE LAST VERIFIED^]@^
;;^UTILITY(U,$J,"DIBT",853,2,1,2)
;;=.312
;;^UTILITY(U,$J,"DIBT",853,2,1,"F")
;;=?z^@
;;^UTILITY(U,$J,"DIBT",853,2,1,"T")
;;=@^@
;;^UTILITY(U,$J,"DIBT",853,2,2)
;;=2.312^1.01^DATE ENTERED^@^
;;^UTILITY(U,$J,"DIBT",853,2,2,2)
;;=.312
IBINI0CJ ; ; 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",820,2,1,"T")
+2 ;;=1^1
+3 ;;^UTILITY(U,$J,"DIBT",820,2,2)
+4 ;;=354^.03^COPAY EXEMPTION STATUS DATE^'@^
+5 ;;^UTILITY(U,$J,"DIBT",820,2,2,"ASK")
+6 ;;=
+7 ;;^UTILITY(U,$J,"DIBT",820,2,2,"F")
+8 ;;=2930413.99999^T-9
+9 ;;^UTILITY(U,$J,"DIBT",820,2,2,"IX")
+10 ;;=^IBA(354,"AD",^IBA(354,^2
+11 ;;^UTILITY(U,$J,"DIBT",820,2,2,"T")
+12 ;;=2930423.9999^T
+13 ;;^UTILITY(U,$J,"DIBT",820,2,3)
+14 ;;=354^^PATIENT NAME^@".01^
+15 ;;^UTILITY(U,$J,"DIBT",820,2,3,"ASK")
+16 ;;=
+17 ;;^UTILITY(U,$J,"DIBT",820,2,3,"CM")
+18 ;;=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
+19 ;;^UTILITY(U,$J,"DIBT",820,2,3,"F")
+20 ;;=@z^A
+21 ;;^UTILITY(U,$J,"DIBT",820,2,3,"T")
+22 ;;=Z^Z
+23 ;;^UTILITY(U,$J,"DIBT",829,0)
+24 ;;=IB EXEMPTION LETTER^2930604.1544^^354^^^2940309
+25 ;;^UTILITY(U,$J,"DIBT",845,0)
+26 ;;=IB AB COMMENTS^2940211.0941^@^362.1^10882^@^2940317
+27 ;;^UTILITY(U,$J,"DIBT",845,2,1)
+28 ;;=362.1^.05^DATE ENTERED^^;S1
+29 ;;^UTILITY(U,$J,"DIBT",845,2,1,"ASK")
+30 ;;=
+31 ;;^UTILITY(U,$J,"DIBT",845,2,1,"F")
+32 ;;=2930100.99999^1 1 93
+33 ;;^UTILITY(U,$J,"DIBT",845,2,1,"T")
+34 ;;=z^
+35 ;;^UTILITY(U,$J,"DIBT",845,2,2)
+36 ;;=362.1^^CLAIMS TRACKING ID:EVENT TYPE^@"^;S1
+37 ;;^UTILITY(U,$J,"DIBT",845,2,2,"CM")
+38 ;;=X DPP(2,"OVF0",9.2) S X=$S('$D(^IBE(356.6,+$P(Y(101),U,18),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(2)=X
+39 ;;^UTILITY(U,$J,"DIBT",845,2,2,"F")
+40 ;;=?z^@
+41 ;;^UTILITY(U,$J,"DIBT",845,2,2,"OVF0",9.2)
+42 ;;=S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(362.1,D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"")
+43 ;;^UTILITY(U,$J,"DIBT",845,2,2,"T")
+44 ;;=z^
+45 ;;^UTILITY(U,$J,"DIBT",845,2,3)
+46 ;;=362.1^^CLAIMS TRACKING ID:PATIENT^@"^;"CLAIMS TRACKING PATIENT"
+47 ;;^UTILITY(U,$J,"DIBT",845,2,3,"ASK")
+48 ;;=
+49 ;;^UTILITY(U,$J,"DIBT",845,2,3,"CM")
+50 ;;=X DPP(3,"OVF0",9.2) S X=$S('$D(^DPT(+$P(Y(101),U,2),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) I D0>0 S X(3)=X
+51 ;;^UTILITY(U,$J,"DIBT",845,2,3,"F")
+52 ;;=@z^A
+53 ;;^UTILITY(U,$J,"DIBT",845,2,3,"OVF0",9.2)
+54 ;;=S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(362.1,D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"")
+55 ;;^UTILITY(U,$J,"DIBT",845,2,3,"T")
+56 ;;=z^
+57 ;;^UTILITY(U,$J,"DIBT",845,2,4)
+58 ;;=362.1^^CLAIMS TRACKING ID:EPISODE DATE^@"^^^D
+59 ;;^UTILITY(U,$J,"DIBT",845,2,4,"CM")
+60 ;;=X DPP(4,"OVF0",9.2) S X=$P(Y(101),U,6) S D0=I(0,0) I D0>0 S X(4)=X
+61 ;;^UTILITY(U,$J,"DIBT",845,2,4,"F")
+62 ;;=?z^@
+63 ;;^UTILITY(U,$J,"DIBT",845,2,4,"OVF0",9.2)
+64 ;;=S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^IBA(362.1,D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"")
+65 ;;^UTILITY(U,$J,"DIBT",845,2,4,"T")
+66 ;;=z^
+67 ;;^UTILITY(U,$J,"DIBT",851,0)
+68 ;;=IB INACTIVE INS CO^2931104.111^@^36^1453^@^2940228
+69 ;;^UTILITY(U,$J,"DIBT",851,2,1)
+70 ;;=36^.05^INACTIVE^'@^
+71 ;;^UTILITY(U,$J,"DIBT",851,2,1,"F")
+72 ;;=.99999^1
+73 ;;^UTILITY(U,$J,"DIBT",851,2,1,"T")
+74 ;;=1^1
+75 ;;^UTILITY(U,$J,"DIBT",851,2,2)
+76 ;;=36^.01^NAME^@^;"INSURANCE COMPANY"
+77 ;;^UTILITY(U,$J,"DIBT",851,2,2,"ASK")
+78 ;;=
+79 ;;^UTILITY(U,$J,"DIBT",851,2,2,"F")
+80 ;;=@z^A
+81 ;;^UTILITY(U,$J,"DIBT",851,2,2,"IX")
+82 ;;=^DIC(36,"B",^DIC(36,^2
+83 ;;^UTILITY(U,$J,"DIBT",851,2,2,"T")
+84 ;;=Z^Z
+85 ;;^UTILITY(U,$J,"DIBT",853,0)
+86 ;;=IBNOTVER^2931129.1527^^2^^^2940309^
+87 ;;^UTILITY(U,$J,"DIBT",853,2,1)
+88 ;;=2.312^1.03^DATE LAST VERIFIED^]@^
+89 ;;^UTILITY(U,$J,"DIBT",853,2,1,2)
+90 ;;=.312
+91 ;;^UTILITY(U,$J,"DIBT",853,2,1,"F")
+92 ;;=?z^@
+93 ;;^UTILITY(U,$J,"DIBT",853,2,1,"T")
+94 ;;=@^@
+95 ;;^UTILITY(U,$J,"DIBT",853,2,2)
+96 ;;=2.312^1.01^DATE ENTERED^@^
+97 ;;^UTILITY(U,$J,"DIBT",853,2,2,2)
+98 ;;=.312
