IBINI04T ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
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
Q Q
;;^DD(355.4,.02,1,1,1)
;;=S ^IBA(355.4,"C",$E(X,1,30),DA)=""
;;^DD(355.4,.02,1,1,2)
;;=K ^IBA(355.4,"C",$E(X,1,30),DA)
;;^DD(355.4,.02,1,1,"DT")
;;=2930525
;;^DD(355.4,.02,1,2,0)
;;=355.4^APY^MUMPS
;;^DD(355.4,.02,1,2,1)
;;=S:+^IBA(355.4,DA,0) ^IBA(355.4,"APY",X,-^(0),DA)=""
;;^DD(355.4,.02,1,2,2)
;;=K ^IBA(355.4,"APY",X,-^IBA(355.4,DA,0),DA)
;;^DD(355.4,.02,1,2,3)
;;=DO NOT DELETE
;;^DD(355.4,.02,1,2,"%D",0)
;;=^^1^1^2930831^^^^
;;^DD(355.4,.02,1,2,"%D",1,0)
;;=Cross-reference of all policies by calendar year.
;;^DD(355.4,.02,1,2,"DT")
;;=2930831
;;^DD(355.4,.02,21,0)
;;=^^3^3^2930604^^
;;^DD(355.4,.02,21,1,0)
;;=This is the particular health insurance policy that provides some
;;^DD(355.4,.02,21,2,0)
;;=subset of all of the possible benefits for the year selected.
;;^DD(355.4,.02,21,3,0)
;;=Enter the name of the health insurance policy.
;;^DD(355.4,.02,"DT")
;;=2930831
;;^DD(355.4,.05,0)
;;=MAX. OUT OF POCKET^NJ9,2^^0;5^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
;;^DD(355.4,.05,3)
;;=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
;;^DD(355.4,.05,21,0)
;;=^^3^3^2930825^^
;;^DD(355.4,.05,21,1,0)
;;=This is the dollar amount that this policy does not cover in claims.
;;^DD(355.4,.05,21,2,0)
;;=This information will be used in calculating whether reimbursement
;;^DD(355.4,.05,21,3,0)
;;=for claims against this policy are appropriate.
;;^DD(355.4,.05,"DT")
;;=2930825
;;^DD(355.4,.06,0)
;;=AMBULANCE COVERAGE (%)^NJ3,0^^0;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
;;^DD(355.4,.06,3)
;;=Type a Number between 0 and 100, 0 Decimal Digits
;;^DD(355.4,.06,21,0)
;;=^^2^2^2930604^
;;^DD(355.4,.06,21,1,0)
;;=If this policy provides an ambulance coverage benefit, then this is
;;^DD(355.4,.06,21,2,0)
;;=the amount of that benefit.
;;^DD(355.4,.06,"DT")
;;=2930513
;;^DD(355.4,1.01,0)
;;=DATE ENTERED^D^^1;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
;;^DD(355.4,1.01,3)
;;=
;;^DD(355.4,1.01,5,1,0)
;;=355.4^.01^3
;;^DD(355.4,1.01,9)
;;=^
;;^DD(355.4,1.01,21,0)
;;=^^2^2^2930604^^
;;^DD(355.4,1.01,21,1,0)
;;=This is the date that the information was first entered. It is
;;^DD(355.4,1.01,21,2,0)
;;=necessary to supply a time as well as date, for example "12/12/93@1300".
;;^DD(355.4,1.01,"DT")
;;=2940228
;;^DD(355.4,1.02,0)
;;=ENTERED BY^P200'^VA(200,^1;2^Q
;;^DD(355.4,1.02,3)
;;=
;;^DD(355.4,1.02,5,1,0)
;;=355.4^.01^4
;;^DD(355.4,1.02,9)
;;=^
;;^DD(355.4,1.02,21,0)
;;=^^1^1^2930607^^
;;^DD(355.4,1.02,21,1,0)
;;=This is the name of the person who entered the information.
;;^DD(355.4,1.02,"DT")
;;=2930520
;;^DD(355.4,1.03,0)
;;=DATE LAST VERIFIED^D^^1;3^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(355.4,1.03,3)
;;=
;;^DD(355.4,1.03,21,0)
;;=^^2^2^2930604^
;;^DD(355.4,1.03,21,1,0)
;;=This is the date that the information was last verified. It is
;;^DD(355.4,1.03,21,2,0)
;;=necessary to supply a time as well as date, for example "12/12/93@1300".
;;^DD(355.4,1.03,"DT")
;;=2930707
;;^DD(355.4,1.04,0)
;;=VERIFIED BY^P200'^VA(200,^1;4^Q
;;^DD(355.4,1.04,3)
;;=
;;^DD(355.4,1.04,21,0)
;;=^^2^2^2930604^
;;^DD(355.4,1.04,21,1,0)
;;=This is the name of the person who verified the information on
;;^DD(355.4,1.04,21,2,0)
;;="DATE LAST VERIFIED".
;;^DD(355.4,1.04,"DT")
;;=2930520
;;^DD(355.4,1.05,0)
;;=DATE LAST EDITED^D^^1;5^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(355.4,1.05,3)
;;=
;;^DD(355.4,1.05,9)
;;=^
;;^DD(355.4,1.05,21,0)
;;=^^2^2^2930604^^
;;^DD(355.4,1.05,21,1,0)
;;=This is the date that the information was last edited. The time must be
IBINI04T ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(355.4)
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(355.4,.02,1,1,1)
+2 ;;=S ^IBA(355.4,"C",$E(X,1,30),DA)=""
+3 ;;^DD(355.4,.02,1,1,2)
+4 ;;=K ^IBA(355.4,"C",$E(X,1,30),DA)
+5 ;;^DD(355.4,.02,1,1,"DT")
+6 ;;=2930525
+7 ;;^DD(355.4,.02,1,2,0)
+8 ;;=355.4^APY^MUMPS
+9 ;;^DD(355.4,.02,1,2,1)
+10 ;;=S:+^IBA(355.4,DA,0) ^IBA(355.4,"APY",X,-^(0),DA)=""
+11 ;;^DD(355.4,.02,1,2,2)
+12 ;;=K ^IBA(355.4,"APY",X,-^IBA(355.4,DA,0),DA)
+13 ;;^DD(355.4,.02,1,2,3)
+14 ;;=DO NOT DELETE
+15 ;;^DD(355.4,.02,1,2,"%D",0)
+16 ;;=^^1^1^2930831^^^^
+17 ;;^DD(355.4,.02,1,2,"%D",1,0)
+18 ;;=Cross-reference of all policies by calendar year.
+19 ;;^DD(355.4,.02,1,2,"DT")
+20 ;;=2930831
+21 ;;^DD(355.4,.02,21,0)
+22 ;;=^^3^3^2930604^^
+23 ;;^DD(355.4,.02,21,1,0)
+24 ;;=This is the particular health insurance policy that provides some
+25 ;;^DD(355.4,.02,21,2,0)
+26 ;;=subset of all of the possible benefits for the year selected.
+27 ;;^DD(355.4,.02,21,3,0)
+28 ;;=Enter the name of the health insurance policy.
+29 ;;^DD(355.4,.02,"DT")
+30 ;;=2930831
+31 ;;^DD(355.4,.05,0)
+32 ;;=MAX. OUT OF POCKET^NJ9,2^^0;5^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
+33 ;;^DD(355.4,.05,3)
+34 ;;=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
+35 ;;^DD(355.4,.05,21,0)
+36 ;;=^^3^3^2930825^^
+37 ;;^DD(355.4,.05,21,1,0)
+38 ;;=This is the dollar amount that this policy does not cover in claims.
+39 ;;^DD(355.4,.05,21,2,0)
+40 ;;=This information will be used in calculating whether reimbursement
+41 ;;^DD(355.4,.05,21,3,0)
+42 ;;=for claims against this policy are appropriate.
+43 ;;^DD(355.4,.05,"DT")
+44 ;;=2930825
+45 ;;^DD(355.4,.06,0)
+46 ;;=AMBULANCE COVERAGE (%)^NJ3,0^^0;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
+47 ;;^DD(355.4,.06,3)
+48 ;;=Type a Number between 0 and 100, 0 Decimal Digits
+49 ;;^DD(355.4,.06,21,0)
+50 ;;=^^2^2^2930604^
+51 ;;^DD(355.4,.06,21,1,0)
+52 ;;=If this policy provides an ambulance coverage benefit, then this is
+53 ;;^DD(355.4,.06,21,2,0)
+54 ;;=the amount of that benefit.
+55 ;;^DD(355.4,.06,"DT")
+56 ;;=2930513
+57 ;;^DD(355.4,1.01,0)
+58 ;;=DATE ENTERED^D^^1;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
+59 ;;^DD(355.4,1.01,3)
+60 ;;=
+61 ;;^DD(355.4,1.01,5,1,0)
+62 ;;=355.4^.01^3
+63 ;;^DD(355.4,1.01,9)
+64 ;;=^
+65 ;;^DD(355.4,1.01,21,0)
+66 ;;=^^2^2^2930604^^
+67 ;;^DD(355.4,1.01,21,1,0)
+68 ;;=This is the date that the information was first entered. It is
+69 ;;^DD(355.4,1.01,21,2,0)
+70 ;;=necessary to supply a time as well as date, for example "12/12/93@1300".
+71 ;;^DD(355.4,1.01,"DT")
+72 ;;=2940228
+73 ;;^DD(355.4,1.02,0)
+74 ;;=ENTERED BY^P200'^VA(200,^1;2^Q
+75 ;;^DD(355.4,1.02,3)
+76 ;;=
+77 ;;^DD(355.4,1.02,5,1,0)
+78 ;;=355.4^.01^4
+79 ;;^DD(355.4,1.02,9)
+80 ;;=^
+81 ;;^DD(355.4,1.02,21,0)
+82 ;;=^^1^1^2930607^^
+83 ;;^DD(355.4,1.02,21,1,0)
+84 ;;=This is the name of the person who entered the information.
+85 ;;^DD(355.4,1.02,"DT")
+86 ;;=2930520
+87 ;;^DD(355.4,1.03,0)
+88 ;;=DATE LAST VERIFIED^D^^1;3^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+89 ;;^DD(355.4,1.03,3)
+90 ;;=
+91 ;;^DD(355.4,1.03,21,0)
+92 ;;=^^2^2^2930604^
+93 ;;^DD(355.4,1.03,21,1,0)
+94 ;;=This is the date that the information was last verified. It is
+95 ;;^DD(355.4,1.03,21,2,0)
+96 ;;=necessary to supply a time as well as date, for example "12/12/93@1300".
+97 ;;^DD(355.4,1.03,"DT")
+98 ;;=2930707
+99 ;;^DD(355.4,1.04,0)
+100 ;;=VERIFIED BY^P200'^VA(200,^1;4^Q
+101 ;;^DD(355.4,1.04,3)
+102 ;;=
+103 ;;^DD(355.4,1.04,21,0)
+104 ;;=^^2^2^2930604^
+105 ;;^DD(355.4,1.04,21,1,0)
+106 ;;=This is the name of the person who verified the information on
+107 ;;^DD(355.4,1.04,21,2,0)
+108 ;;="DATE LAST VERIFIED".
+109 ;;^DD(355.4,1.04,"DT")
+110 ;;=2930520
+111 ;;^DD(355.4,1.05,0)
+112 ;;=DATE LAST EDITED^D^^1;5^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+113 ;;^DD(355.4,1.05,3)
+114 ;;=
+115 ;;^DD(355.4,1.05,9)
+116 ;;=^
+117 ;;^DD(355.4,1.05,21,0)
+118 ;;=^^2^2^2930604^^
+119 ;;^DD(355.4,1.05,21,1,0)
+120 ;;=This is the date that the information was last edited. The time must be
