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

IBINI04X.m

Go to the documentation of this file. 
  1. IBINI04X	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(355.4)  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. 	;;^DD(355.4,3.04,0)
  1. 	;;=HOME HEALTH MED. EQUIPMENT (%)^NJ3,0^^3;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(355.4,3.04,3)
  1. 	;;=Type a Number between 0 and 100, 0 Decimal Digits
  1. 	;;^DD(355.4,3.04,21,0)
  1. 	;;=^^2^2^2930607^
  1. 	;;^DD(355.4,3.04,21,1,0)
  1. 	;;=If this policy provides a benefit for medical equipment used in
  1. 	;;^DD(355.4,3.04,21,2,0)
  1. 	;;=home health care services, this is the percentage of that benefit.
  1. 	;;^DD(355.4,3.04,"DT")
  1. 	;;=2930513
  1. 	;;^DD(355.4,3.05,0)
  1. 	;;=HOME HEALTH VISIT DEFINITION^F^^3;5^K:$L(X)>30!($L(X)<3) X
  1. 	;;^DD(355.4,3.05,3)
  1. 	;;=Answer must be 3-30 characters in length.
  1. 	;;^DD(355.4,3.05,21,0)
  1. 	;;=^^2^2^2930607^^
  1. 	;;^DD(355.4,3.05,21,1,0)
  1. 	;;=If this policy provides for home health visits, this defines the
  1. 	;;^DD(355.4,3.05,21,2,0)
  1. 	;;=nature of the visits.
  1. 	;;^DD(355.4,3.05,"DT")
  1. 	;;=2930513
  1. 	;;^DD(355.4,3.06,0)
  1. 	;;=OCCUPATIONAL THERAPY # VISITS^NJ3,0^^3;6^K:+X'=X!(X>365)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(355.4,3.06,3)
  1. 	;;=Type a Number between 0 and 365, 0 Decimal Digits
  1. 	;;^DD(355.4,3.06,21,0)
  1. 	;;=^^2^2^2930826^
  1. 	;;^DD(355.4,3.06,21,1,0)
  1. 	;;=If this policy has a benefit for occupational therapy, then this is
  1. 	;;^DD(355.4,3.06,21,2,0)
  1. 	;;=the maximum number of OT visits that the policy allows in one year.
  1. 	;;^DD(355.4,3.06,"DT")
  1. 	;;=2930826
  1. 	;;^DD(355.4,3.07,0)
  1. 	;;=PHYSICAL THERAPY # VISITS^NJ3,0^^3;7^K:+X'=X!(X>365)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(355.4,3.07,3)
  1. 	;;=Type a Number between 0 and 365, 0 Decimal Digits
  1. 	;;^DD(355.4,3.07,21,0)
  1. 	;;=^^2^2^2930826^
  1. 	;;^DD(355.4,3.07,21,1,0)
  1. 	;;=If this policy has a benefit for physical therapy, then this is the
  1. 	;;^DD(355.4,3.07,21,2,0)
  1. 	;;=maximum number of PT visits that the policy allows in one year.
  1. 	;;^DD(355.4,3.07,"DT")
  1. 	;;=2930826
  1. 	;;^DD(355.4,3.08,0)
  1. 	;;=SPEECH THERAPY # VISITS^NJ3,0^^3;8^K:+X'=X!(X>365)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(355.4,3.08,3)
  1. 	;;=Type a Number between 0 and 365, 0 Decimal Digits
  1. 	;;^DD(355.4,3.08,21,0)
  1. 	;;=^^2^2^2930826^
  1. 	;;^DD(355.4,3.08,21,1,0)
  1. 	;;=If this policy has a benefit for speech therapy, then this is the
  1. 	;;^DD(355.4,3.08,21,2,0)
  1. 	;;=maximum number of ST visits that the policy allows in one year.
  1. 	;;^DD(355.4,3.08,"DT")
  1. 	;;=2930826
  1. 	;;^DD(355.4,3.09,0)
  1. 	;;=MEDICATION COUNSELING # VISITS^NJ3,0^^3;9^K:+X'=X!(X>365)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(355.4,3.09,3)
  1. 	;;=Type a Number between 0 and 365, 0 Decimal Digits
  1. 	;;^DD(355.4,3.09,21,0)
  1. 	;;=^^2^2^2940213^^
  1. 	;;^DD(355.4,3.09,21,1,0)
  1. 	;;=If this policy has a benefit for medication counseling, then this is the
  1. 	;;^DD(355.4,3.09,21,2,0)
  1. 	;;=maximum number of MC visits that the policy allows in one year.
  1. 	;;^DD(355.4,3.09,"DT")
  1. 	;;=2930826
  1. 	;;^DD(355.4,4.01,0)
  1. 	;;=HOSPICE ANNUAL DEDUCTIBLE^NJ9,2^^4;1^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  1. 	;;^DD(355.4,4.01,3)
  1. 	;;=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
  1. 	;;^DD(355.4,4.01,21,0)
  1. 	;;=^^4^4^2930607^
  1. 	;;^DD(355.4,4.01,21,1,0)
  1. 	;;=If this policy provides hospice services, this is the amount that
  1. 	;;^DD(355.4,4.01,21,2,0)
  1. 	;;=the policy does not cover in claims.  This information will be used
  1. 	;;^DD(355.4,4.01,21,3,0)
  1. 	;;=in calculating whether reimbursement for claims against this policy
  1. 	;;^DD(355.4,4.01,21,4,0)
  1. 	;;=are appropriate.
  1. 	;;^DD(355.4,4.01,"DT")
  1. 	;;=2930513
  1. 	;;^DD(355.4,4.02,0)
  1. 	;;=HOSPICE INPATIENT ANNUAL MAX^NJ9,2^^4;2^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
  1. 	;;^DD(355.4,4.02,3)
  1. 	;;=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
  1. 	;;^DD(355.4,4.02,21,0)
  1. 	;;=^^2^2^2930607^
  1. 	;;^DD(355.4,4.02,21,1,0)
  1. 	;;=If this policy provides hospice inpatient services, this is the