Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBINI04B

IBINI04B.m

Go to the documentation of this file. 
  1. IBINI04B	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQR(354.6)  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
  1. Q	Q
  1. 	;;^UTILITY(U,$J,354.6)
  1. 	;;=^IBE(354.6,
  1. 	;;^UTILITY(U,$J,354.6,0)
  1. 	;;=IB FORM LETTER^354.6^1^1
  1. 	;;^UTILITY(U,$J,354.6,1,0)
  1. 	;;=IB NOW EXEMPT^Initial letter of Copay Exemption^1^15
  1. 	;;^UTILITY(U,$J,354.6,1,1,0)
  1. 	;;=^^25^25^2930512^^^^
  1. 	;;^UTILITY(U,$J,354.6,1,1,1,0)
  1. 	;;=Public Law 102-568 enacted on October 29, 1992, provided for an exemption
  1. 	;;^UTILITY(U,$J,354.6,1,1,2,0)
  1. 	;;=to the prescription copayment for those veterans who had income levels
  1. 	;;^UTILITY(U,$J,354.6,1,1,3,0)
  1. 	;;=less than the maximum rate of VA pension.  Charges established before 
  1. 	;;^UTILITY(U,$J,354.6,1,1,4,0)
  1. 	;;=October 29, 1992, were not exempted by the legislation.
  1. 	;;^UTILITY(U,$J,354.6,1,1,5,0)
  1. 	;;= 
  1. 	;;^UTILITY(U,$J,354.6,1,1,6,0)
  1. 	;;=We have reviewed your income and eligibility information contained in our
  1. 	;;^UTILITY(U,$J,354.6,1,1,7,0)
  1. 	;;=records and determined that you are eligible for the exemption.  We are 
  1. 	;;^UTILITY(U,$J,354.6,1,1,8,0)
  1. 	;;=currently reviewing your account and will make the appropriate adjustments
  1. 	;;^UTILITY(U,$J,354.6,1,1,9,0)
  1. 	;;=to it in the near future.  If you are eligible for a refund for payments
  1. 	;;^UTILITY(U,$J,354.6,1,1,10,0)
  1. 	;;=made on charges established since October 29, 1992, we will forward you a 
  1. 	;;^UTILITY(U,$J,354.6,1,1,11,0)
  1. 	;;=check.  While we are reviewing your account we will not be sending out a 
  1. 	;;^UTILITY(U,$J,354.6,1,1,12,0)
  1. 	;;=statement.
  1. 	;;^UTILITY(U,$J,354.6,1,1,13,0)
  1. 	;;= 
  1. 	;;^UTILITY(U,$J,354.6,1,1,14,0)
  1. 	;;=Medication copayment exemptions based upon annual income must be 
  1. 	;;^UTILITY(U,$J,354.6,1,1,15,0)
  1. 	;;=re-evaluated yearly on the anniversary of your means test or copayment 
  1. 	;;^UTILITY(U,$J,354.6,1,1,16,0)
  1. 	;;=test.  If a renewal date is shown below the 'in reply' heading you must 
  1. 	;;^UTILITY(U,$J,354.6,1,1,17,0)
  1. 	;;=complete a new copay income test by that date or you will no longer be 
  1. 	;;^UTILITY(U,$J,354.6,1,1,18,0)
  1. 	;;=considered exempt from the pharmacy copayment requirement.
  1. 	;;^UTILITY(U,$J,354.6,1,1,19,0)
  1. 	;;= 
  1. 	;;^UTILITY(U,$J,354.6,1,1,20,0)
  1. 	;;=Please do not send in any more payments until we have completed this review
  1. 	;;^UTILITY(U,$J,354.6,1,1,21,0)
  1. 	;;=and forwarded a statement to you.
  1. 	;;^UTILITY(U,$J,354.6,1,1,22,0)
  1. 	;;= 
  1. 	;;^UTILITY(U,$J,354.6,1,1,23,0)
  1. 	;;= 
  1. 	;;^UTILITY(U,$J,354.6,1,1,24,0)
  1. 	;;= 
  1. 	;;^UTILITY(U,$J,354.6,1,1,25,0)
  1. 	;;=FINANCE OFFICER
  1. 	;;^UTILITY(U,$J,354.6,1,2,0)
  1. 	;;=^^6^6^2930512^^^^
  1. 	;;^UTILITY(U,$J,354.6,1,2,1,0)
  1. 	;;=Department of Veterans Affairs Medical Center
  1. 	;;^UTILITY(U,$J,354.6,1,2,2,0)
  1. 	;;= 
  1. 	;;^UTILITY(U,$J,354.6,1,2,3,0)
  1. 	;;= 
  1. 	;;^UTILITY(U,$J,354.6,1,2,4,0)
  1. 	;;= 
  1. 	;;^UTILITY(U,$J,354.6,1,2,5,0)
  1. 	;;= 
  1. 	;;^UTILITY(U,$J,354.6,1,2,6,0)
  1. 	;;=