IBINI040 ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(354.3) 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
;;^DIC(354.3,0,"GL")
;;=^IBE(354.3,
;;^DIC("B","BILLING THRESHOLDS",354.3)
;;=
;;^DIC(354.3,"%D",0)
;;=^^15^15^2940214^^^^
;;^DIC(354.3,"%D",1,0)
;;=This file contains the threshold amounts for the Medication Copayment
;;^DIC(354.3,"%D",2,0)
;;=Income Exemption. It may contain other types of thresholds in the
;;^DIC(354.3,"%D",3,0)
;;=future. The Medication Copayment Income Exemption legislation
;;^DIC(354.3,"%D",4,0)
;;=was effective on 30-Oct-92. The thresholds are normally effective
;;^DIC(354.3,"%D",5,0)
;;=on December 1. To simplify implementation VACO has determined that
;;^DIC(354.3,"%D",6,0)
;;=the threshold effective 1-Dec-92 would be used for the period from 30-Oct-92
;;^DIC(354.3,"%D",7,0)
;;=to 1-Dec-92.
;;^DIC(354.3,"%D",8,0)
;;=
;;^DIC(354.3,"%D",9,0)
;;=The Medication Copayment Income Exemption is based on veterans making
;;^DIC(354.3,"%D",10,0)
;;=less than the VBA rate for pension plus Aid and Attendence.
;;^DIC(354.3,"%D",11,0)
;;=
;;^DIC(354.3,"%D",12,0)
;;=
;;^DIC(354.3,"%D",13,0)
;;=
;;^DIC(354.3,"%D",14,0)
;;=
;;^DIC(354.3,"%D",15,0)
;;=Per VHA Directive 10-93-142, this file definition should not be modified.
;;^DD(354.3,0)
;;=FIELD^^.12^12
;;^DD(354.3,0,"DDA")
;;=N
;;^DD(354.3,0,"DT")
;;=2930405
;;^DD(354.3,0,"ID",.02)
;;=W " ",@("$P($P($C(59)_$S($D(^DD(354.3,.02,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)")
;;^DD(354.3,0,"ID",.03)
;;=W " ",$P(^(0),U,3)
;;^DD(354.3,0,"ID",.04)
;;=W ""
;;^DD(354.3,0,"ID",.12)
;;=W ""
;;^DD(354.3,0,"IX","AC",354.3,.02)
;;=
;;^DD(354.3,0,"IX","AIVDT",354.3,.01)
;;=
;;^DD(354.3,0,"IX","AIVDT1",354.3,.02)
;;=
;;^DD(354.3,0,"IX","B",354.3,.01)
;;=
;;^DD(354.3,0,"NM","BILLING THRESHOLDS")
;;=
;;^DD(354.3,.01,0)
;;=DATE^RD^^0;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X
;;^DD(354.3,.01,1,0)
;;=^.1
;;^DD(354.3,.01,1,1,0)
;;=354.3^B
;;^DD(354.3,.01,1,1,1)
;;=S ^IBE(354.3,"B",$E(X,1,30),DA)=""
;;^DD(354.3,.01,1,1,2)
;;=K ^IBE(354.3,"B",$E(X,1,30),DA)
;;^DD(354.3,.01,1,2,0)
;;=354.3^AIVDT^MUMPS
;;^DD(354.3,.01,1,2,1)
;;=I $P(^IBE(354.3,DA,0),"^",2) S ^IBE(354.3,"AIVDT",$P(^(0),"^",2),-X,DA)=""
;;^DD(354.3,.01,1,2,2)
;;=K ^IBE(354.3,"AIVDT",+$P(^IBE(354.3,DA,0),"^",2),-X,DA)
;;^DD(354.3,.01,1,2,"%D",0)
;;=^^2^2^2921211^
;;^DD(354.3,.01,1,2,"%D",1,0)
;;=Inverse date cross reference to rapidly retrieve the proper threshold
;;^DD(354.3,.01,1,2,"%D",2,0)
;;=prior to date x.
;;^DD(354.3,.01,1,2,"DT")
;;=2921211
;;^DD(354.3,.01,3)
;;=
;;^DD(354.3,.01,21,0)
;;=^^1^1^2921209^^^
;;^DD(354.3,.01,21,1,0)
;;=This is the effective date of this threshold.
;;^DD(354.3,.01,"DT")
;;=2921211
;;^DD(354.3,.02,0)
;;=TYPE^S^2:PENSION PLUS A&A;^0;2^Q
;;^DD(354.3,.02,1,0)
;;=^.1
;;^DD(354.3,.02,1,1,0)
;;=354.3^AC
;;^DD(354.3,.02,1,1,1)
;;=S ^IBE(354.3,"AC",$E(X,1,30),DA)=""
;;^DD(354.3,.02,1,1,2)
;;=K ^IBE(354.3,"AC",$E(X,1,30),DA)
;;^DD(354.3,.02,1,1,"DT")
;;=2930319
;;^DD(354.3,.02,1,2,0)
;;=354.3^AIVDT1^MUMPS
;;^DD(354.3,.02,1,2,1)
;;=I +^IBE(354.3,DA,0) S ^IBE(354.3,"AIVDT",X,-$P(^(0),"^"),DA)=""
;;^DD(354.3,.02,1,2,2)
;;=K ^IBE(354.3,"AIVDT",X,-$P(^IBE(354.3,DA,0),"^"),DA)
;;^DD(354.3,.02,1,2,3)
;;=DON'T DELETE
;;^DD(354.3,.02,1,2,"%D",0)
;;=^^2^2^2921211^
;;^DD(354.3,.02,1,2,"%D",1,0)
;;=Inverse date cross reference used to quickly retrieve threshold immediately
;;^DD(354.3,.02,1,2,"%D",2,0)
;;=prior to date x.
;;^DD(354.3,.02,1,2,"DT")
;;=2921211
;;^DD(354.3,.02,21,0)
;;=^^4^4^2930317^^^^
;;^DD(354.3,.02,21,1,0)
;;=This is the type of Threshold that this entry is for.
IBINI040 ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(354.3)
QUIT
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 ;;^DIC(354.3,0,"GL")
+2 ;;=^IBE(354.3,
+3 ;;^DIC("B","BILLING THRESHOLDS",354.3)
+4 ;;=
+5 ;;^DIC(354.3,"%D",0)
+6 ;;=^^15^15^2940214^^^^
+7 ;;^DIC(354.3,"%D",1,0)
+8 ;;=This file contains the threshold amounts for the Medication Copayment
+9 ;;^DIC(354.3,"%D",2,0)
+10 ;;=Income Exemption. It may contain other types of thresholds in the
+11 ;;^DIC(354.3,"%D",3,0)
+12 ;;=future. The Medication Copayment Income Exemption legislation
+13 ;;^DIC(354.3,"%D",4,0)
+14 ;;=was effective on 30-Oct-92. The thresholds are normally effective
+15 ;;^DIC(354.3,"%D",5,0)
+16 ;;=on December 1. To simplify implementation VACO has determined that
+17 ;;^DIC(354.3,"%D",6,0)
+18 ;;=the threshold effective 1-Dec-92 would be used for the period from 30-Oct-92
+19 ;;^DIC(354.3,"%D",7,0)
+20 ;;=to 1-Dec-92.
+21 ;;^DIC(354.3,"%D",8,0)
+22 ;;=
+23 ;;^DIC(354.3,"%D",9,0)
+24 ;;=The Medication Copayment Income Exemption is based on veterans making
+25 ;;^DIC(354.3,"%D",10,0)
+26 ;;=less than the VBA rate for pension plus Aid and Attendence.
+27 ;;^DIC(354.3,"%D",11,0)
+28 ;;=
+29 ;;^DIC(354.3,"%D",12,0)
+30 ;;=
+31 ;;^DIC(354.3,"%D",13,0)
+32 ;;=
+33 ;;^DIC(354.3,"%D",14,0)
+34 ;;=
+35 ;;^DIC(354.3,"%D",15,0)
+36 ;;=Per VHA Directive 10-93-142, this file definition should not be modified.
+37 ;;^DD(354.3,0)
+38 ;;=FIELD^^.12^12
+39 ;;^DD(354.3,0,"DDA")
+40 ;;=N
+41 ;;^DD(354.3,0,"DT")
+42 ;;=2930405
+43 ;;^DD(354.3,0,"ID",.02)
+44 ;;=W " ",@("$P($P($C(59)_$S($D(^DD(354.3,.02,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)")
+45 ;;^DD(354.3,0,"ID",.03)
+46 ;;=W " ",$P(^(0),U,3)
+47 ;;^DD(354.3,0,"ID",.04)
+48 ;;=W ""
+49 ;;^DD(354.3,0,"ID",.12)
+50 ;;=W ""
+51 ;;^DD(354.3,0,"IX","AC",354.3,.02)
+52 ;;=
+53 ;;^DD(354.3,0,"IX","AIVDT",354.3,.01)
+54 ;;=
+55 ;;^DD(354.3,0,"IX","AIVDT1",354.3,.02)
+56 ;;=
+57 ;;^DD(354.3,0,"IX","B",354.3,.01)
+58 ;;=
+59 ;;^DD(354.3,0,"NM","BILLING THRESHOLDS")
+60 ;;=
+61 ;;^DD(354.3,.01,0)
+62 ;;=DATE^RD^^0;1^S %DT="EX" D ^%DT S X=Y K:Y<1 X
+63 ;;^DD(354.3,.01,1,0)
+64 ;;=^.1
+65 ;;^DD(354.3,.01,1,1,0)
+66 ;;=354.3^B
+67 ;;^DD(354.3,.01,1,1,1)
+68 ;;=S ^IBE(354.3,"B",$E(X,1,30),DA)=""
+69 ;;^DD(354.3,.01,1,1,2)
+70 ;;=K ^IBE(354.3,"B",$E(X,1,30),DA)
+71 ;;^DD(354.3,.01,1,2,0)
+72 ;;=354.3^AIVDT^MUMPS
+73 ;;^DD(354.3,.01,1,2,1)
+74 ;;=I $P(^IBE(354.3,DA,0),"^",2) S ^IBE(354.3,"AIVDT",$P(^(0),"^",2),-X,DA)=""
+75 ;;^DD(354.3,.01,1,2,2)
+76 ;;=K ^IBE(354.3,"AIVDT",+$P(^IBE(354.3,DA,0),"^",2),-X,DA)
+77 ;;^DD(354.3,.01,1,2,"%D",0)
+78 ;;=^^2^2^2921211^
+79 ;;^DD(354.3,.01,1,2,"%D",1,0)
+80 ;;=Inverse date cross reference to rapidly retrieve the proper threshold
+81 ;;^DD(354.3,.01,1,2,"%D",2,0)
+82 ;;=prior to date x.
+83 ;;^DD(354.3,.01,1,2,"DT")
+84 ;;=2921211
+85 ;;^DD(354.3,.01,3)
+86 ;;=
+87 ;;^DD(354.3,.01,21,0)
+88 ;;=^^1^1^2921209^^^
+89 ;;^DD(354.3,.01,21,1,0)
+90 ;;=This is the effective date of this threshold.
+91 ;;^DD(354.3,.01,"DT")
+92 ;;=2921211
+93 ;;^DD(354.3,.02,0)
+94 ;;=TYPE^S^2:PENSION PLUS A&A;^0;2^Q
+95 ;;^DD(354.3,.02,1,0)
+96 ;;=^.1
+97 ;;^DD(354.3,.02,1,1,0)
+98 ;;=354.3^AC
+99 ;;^DD(354.3,.02,1,1,1)
+100 ;;=S ^IBE(354.3,"AC",$E(X,1,30),DA)=""
+101 ;;^DD(354.3,.02,1,1,2)
+102 ;;=K ^IBE(354.3,"AC",$E(X,1,30),DA)
+103 ;;^DD(354.3,.02,1,1,"DT")
+104 ;;=2930319
+105 ;;^DD(354.3,.02,1,2,0)
+106 ;;=354.3^AIVDT1^MUMPS
+107 ;;^DD(354.3,.02,1,2,1)
+108 ;;=I +^IBE(354.3,DA,0) S ^IBE(354.3,"AIVDT",X,-$P(^(0),"^"),DA)=""
+109 ;;^DD(354.3,.02,1,2,2)
+110 ;;=K ^IBE(354.3,"AIVDT",X,-$P(^IBE(354.3,DA,0),"^"),DA)
+111 ;;^DD(354.3,.02,1,2,3)
+112 ;;=DON'T DELETE
+113 ;;^DD(354.3,.02,1,2,"%D",0)
+114 ;;=^^2^2^2921211^
+115 ;;^DD(354.3,.02,1,2,"%D",1,0)
+116 ;;=Inverse date cross reference used to quickly retrieve threshold immediately
+117 ;;^DD(354.3,.02,1,2,"%D",2,0)
+118 ;;=prior to date x.
+119 ;;^DD(354.3,.02,1,2,"DT")
+120 ;;=2921211
+121 ;;^DD(354.3,.02,21,0)
+122 ;;=^^4^4^2930317^^^^
+123 ;;^DD(354.3,.02,21,1,0)
+124 ;;=This is the type of Threshold that this entry is for.
