IBINI02Q ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(350.9) 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
;;^DD(350.9,3.12,"DT")
;;=2930107
;;^DD(350.9,3.13,0)
;;=COPAY EXEMPTION START DATE^RD^^3;13^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
;;^DD(350.9,3.13,9)
;;=^
;;^DD(350.9,3.13,21,0)
;;=^^2^2^2930114^^
;;^DD(350.9,3.13,21,1,0)
;;=This is the date/time that the Medication Copayment Exemption Conversion
;;^DD(350.9,3.13,21,2,0)
;;=started. It should not be edited.
;;^DD(350.9,3.13,"DT")
;;=2930113
;;^DD(350.9,3.14,0)
;;=COPAY EXEMPTION STOP DATE^RDI^^3;14^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
;;^DD(350.9,3.14,3)
;;=
;;^DD(350.9,3.14,9)
;;=^
;;^DD(350.9,3.14,21,0)
;;=^^4^4^2930114^^^^
;;^DD(350.9,3.14,21,1,0)
;;=This is the date/time that the conversion completed. This field
;;^DD(350.9,3.14,21,2,0)
;;=should not be edited. It will be stored by the conversion routine
;;^DD(350.9,3.14,21,3,0)
;;=when it is finished.
;;^DD(350.9,3.14,21,4,0)
;;=
;;^DD(350.9,3.14,23,0)
;;=^^9^9^2930114^^^^
;;^DD(350.9,3.14,23,1,0)
;;=If for some reason, it is necessary to restart the conversion after
;;^DD(350.9,3.14,23,2,0)
;;=this field has been populated you may delete the data in this field.
;;^DD(350.9,3.14,23,3,0)
;;=Sites should check with their supporting ISC prior to doing this. The
;;^DD(350.9,3.14,23,4,0)
;;=field, LAST DFN UPDATED (3.04) in this file may also need to be edited.
;;^DD(350.9,3.14,23,5,0)
;;=
;;^DD(350.9,3.14,23,6,0)
;;=Normally it is not recommended that the conversion be re-run after it
;;^DD(350.9,3.14,23,7,0)
;;=has run once. Re-running the conversion will not cause updating of
;;^DD(350.9,3.14,23,8,0)
;;=patients with current exemptions, nor will it cause re-cancellation
;;^DD(350.9,3.14,23,9,0)
;;=of charges cancelled previously.
;;^DD(350.9,3.14,"DT")
;;=2930113
;;^DD(350.9,3.15,0)
;;=NON-EXEMPT PATIENTS CONVERTED^NJ9,0^^3;15^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(350.9,3.15,3)
;;=Type a Number between 0 and 999999999, 0 Decimal Digits
;;^DD(350.9,3.15,9)
;;=^
;;^DD(350.9,3.15,21,0)
;;=^^2^2^2930114^
;;^DD(350.9,3.15,21,1,0)
;;=This is the count of patients in the IB Action file that had
;;^DD(350.9,3.15,21,2,0)
;;=an exemption status of Non-exempt set up during the conversion.
;;^DD(350.9,3.15,"DT")
;;=2930114
;;^DD(350.9,3.16,0)
;;=TOTAL BILLS DURING CONVERSION^NJ9,0^^3;16^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(350.9,3.16,3)
;;=Type a Number between 0 and 999999999, 0 Decimal Digits
;;^DD(350.9,3.16,9)
;;=^
;;^DD(350.9,3.16,21,0)
;;=^^3^3^2930114^
;;^DD(350.9,3.16,21,1,0)
;;=This is the total number of IB ACTION entries issued from the effective
;;^DD(350.9,3.16,21,2,0)
;;=date of the Income Exemption Legislation until the running of the
;;^DD(350.9,3.16,21,3,0)
;;=conversion that were issued to either exempt or non-exempt patients.
;;^DD(350.9,3.16,"DT")
;;=2930114
;;^DD(350.9,3.17,0)
;;=COUNT OF BILLS CANCELED^NJ9,0^^3;17^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
;;^DD(350.9,3.17,3)
;;=Type a Number between 0 and 999999999, 0 Decimal Digits
;;^DD(350.9,3.17,9)
;;=^
;;^DD(350.9,3.17,21,0)
;;=^^2^2^2930114^^
;;^DD(350.9,3.17,21,1,0)
;;=This is the count of bills actually sent to be canceled in the IB
;;^DD(350.9,3.17,21,2,0)
;;=ACTION file during the conversion.
;;^DD(350.9,3.17,"DT")
;;=2930114
;;^DD(350.9,3.18,0)
;;=INSURANCE CONVERSION COMPLETE^RDI^^3;18^S %DT="EX" D ^%DT S X=Y K:Y<1 X
;;^DD(350.9,3.18,21,0)
;;=^^5^5^2931108^
;;^DD(350.9,3.18,21,1,0)
;;=This is the date the insurance conversion completes. It is not editable.
;;^DD(350.9,3.18,21,2,0)
;;=The data should not be deleted.
IBINI02Q ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(350.9)
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 ;;^DD(350.9,3.12,"DT")
+2 ;;=2930107
+3 ;;^DD(350.9,3.13,0)
+4 ;;=COPAY EXEMPTION START DATE^RD^^3;13^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
+5 ;;^DD(350.9,3.13,9)
+6 ;;=^
+7 ;;^DD(350.9,3.13,21,0)
+8 ;;=^^2^2^2930114^^
+9 ;;^DD(350.9,3.13,21,1,0)
+10 ;;=This is the date/time that the Medication Copayment Exemption Conversion
+11 ;;^DD(350.9,3.13,21,2,0)
+12 ;;=started. It should not be edited.
+13 ;;^DD(350.9,3.13,"DT")
+14 ;;=2930113
+15 ;;^DD(350.9,3.14,0)
+16 ;;=COPAY EXEMPTION STOP DATE^RDI^^3;14^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
+17 ;;^DD(350.9,3.14,3)
+18 ;;=
+19 ;;^DD(350.9,3.14,9)
+20 ;;=^
+21 ;;^DD(350.9,3.14,21,0)
+22 ;;=^^4^4^2930114^^^^
+23 ;;^DD(350.9,3.14,21,1,0)
+24 ;;=This is the date/time that the conversion completed. This field
+25 ;;^DD(350.9,3.14,21,2,0)
+26 ;;=should not be edited. It will be stored by the conversion routine
+27 ;;^DD(350.9,3.14,21,3,0)
+28 ;;=when it is finished.
+29 ;;^DD(350.9,3.14,21,4,0)
+30 ;;=
+31 ;;^DD(350.9,3.14,23,0)
+32 ;;=^^9^9^2930114^^^^
+33 ;;^DD(350.9,3.14,23,1,0)
+34 ;;=If for some reason, it is necessary to restart the conversion after
+35 ;;^DD(350.9,3.14,23,2,0)
+36 ;;=this field has been populated you may delete the data in this field.
+37 ;;^DD(350.9,3.14,23,3,0)
+38 ;;=Sites should check with their supporting ISC prior to doing this. The
+39 ;;^DD(350.9,3.14,23,4,0)
+40 ;;=field, LAST DFN UPDATED (3.04) in this file may also need to be edited.
+41 ;;^DD(350.9,3.14,23,5,0)
+42 ;;=
+43 ;;^DD(350.9,3.14,23,6,0)
+44 ;;=Normally it is not recommended that the conversion be re-run after it
+45 ;;^DD(350.9,3.14,23,7,0)
+46 ;;=has run once. Re-running the conversion will not cause updating of
+47 ;;^DD(350.9,3.14,23,8,0)
+48 ;;=patients with current exemptions, nor will it cause re-cancellation
+49 ;;^DD(350.9,3.14,23,9,0)
+50 ;;=of charges cancelled previously.
+51 ;;^DD(350.9,3.14,"DT")
+52 ;;=2930113
+53 ;;^DD(350.9,3.15,0)
+54 ;;=NON-EXEMPT PATIENTS CONVERTED^NJ9,0^^3;15^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
+55 ;;^DD(350.9,3.15,3)
+56 ;;=Type a Number between 0 and 999999999, 0 Decimal Digits
+57 ;;^DD(350.9,3.15,9)
+58 ;;=^
+59 ;;^DD(350.9,3.15,21,0)
+60 ;;=^^2^2^2930114^
+61 ;;^DD(350.9,3.15,21,1,0)
+62 ;;=This is the count of patients in the IB Action file that had
+63 ;;^DD(350.9,3.15,21,2,0)
+64 ;;=an exemption status of Non-exempt set up during the conversion.
+65 ;;^DD(350.9,3.15,"DT")
+66 ;;=2930114
+67 ;;^DD(350.9,3.16,0)
+68 ;;=TOTAL BILLS DURING CONVERSION^NJ9,0^^3;16^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
+69 ;;^DD(350.9,3.16,3)
+70 ;;=Type a Number between 0 and 999999999, 0 Decimal Digits
+71 ;;^DD(350.9,3.16,9)
+72 ;;=^
+73 ;;^DD(350.9,3.16,21,0)
+74 ;;=^^3^3^2930114^
+75 ;;^DD(350.9,3.16,21,1,0)
+76 ;;=This is the total number of IB ACTION entries issued from the effective
+77 ;;^DD(350.9,3.16,21,2,0)
+78 ;;=date of the Income Exemption Legislation until the running of the
+79 ;;^DD(350.9,3.16,21,3,0)
+80 ;;=conversion that were issued to either exempt or non-exempt patients.
+81 ;;^DD(350.9,3.16,"DT")
+82 ;;=2930114
+83 ;;^DD(350.9,3.17,0)
+84 ;;=COUNT OF BILLS CANCELED^NJ9,0^^3;17^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
+85 ;;^DD(350.9,3.17,3)
+86 ;;=Type a Number between 0 and 999999999, 0 Decimal Digits
+87 ;;^DD(350.9,3.17,9)
+88 ;;=^
+89 ;;^DD(350.9,3.17,21,0)
+90 ;;=^^2^2^2930114^^
+91 ;;^DD(350.9,3.17,21,1,0)
+92 ;;=This is the count of bills actually sent to be canceled in the IB
+93 ;;^DD(350.9,3.17,21,2,0)
+94 ;;=ACTION file during the conversion.
+95 ;;^DD(350.9,3.17,"DT")
+96 ;;=2930114
+97 ;;^DD(350.9,3.18,0)
+98 ;;=INSURANCE CONVERSION COMPLETE^RDI^^3;18^S %DT="EX" D ^%DT S X=Y K:Y<1 X
+99 ;;^DD(350.9,3.18,21,0)
+100 ;;=^^5^5^2931108^
+101 ;;^DD(350.9,3.18,21,1,0)
+102 ;;=This is the date the insurance conversion completes. It is not editable.
+103 ;;^DD(350.9,3.18,21,2,0)
+104 ;;=The data should not be deleted.
