IBINI054 ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(355.5) 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.5,.18,21,1,0)
;;=Enter the dollar amount of claims against this policy for mental
;;^DD(355.5,.18,21,2,0)
;;=health services.
;;^DD(355.5,.18,"DT")
;;=2931214
;;^DD(355.5,.19,0)
;;=AMT LIFETIME MAX USED (INPT)^NJ10,2^^0;19^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
;;^DD(355.5,.19,3)
;;=Type a Dollar Amount between 0 and 9999999, 0 Decimal Digits
;;^DD(355.5,.19,21,0)
;;=^^3^3^2931214^
;;^DD(355.5,.19,21,1,0)
;;=Enter the dollar amount of inpatient claims against this policy, which
;;^DD(355.5,.19,21,2,0)
;;=can then be compared to the maxium amount available over the life of
;;^DD(355.5,.19,21,3,0)
;;=the policy.
;;^DD(355.5,.19,"DT")
;;=2931214
;;^DD(355.5,.2,0)
;;=AMT MH LIFET MAX USED (OPT)^NJ10,2^^0;20^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
;;^DD(355.5,.2,3)
;;=Type a Dollar Amount between 0 and 9999999, 0 Decimal Digits
;;^DD(355.5,.2,21,0)
;;=^^3^3^2931214^
;;^DD(355.5,.2,21,1,0)
;;=Enter the dollar amount of MH claims against this policy, which can
;;^DD(355.5,.2,21,2,0)
;;=then be compared to the maximum amount available over the life of
;;^DD(355.5,.2,21,3,0)
;;=the policy.
;;^DD(355.5,.2,"DT")
;;=2931214
;;^DD(355.5,1.01,0)
;;=DATE ENTERED^D^^1;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
;;^DD(355.5,1.01,9)
;;=^
;;^DD(355.5,1.01,21,0)
;;=^^2^2^2930713^
;;^DD(355.5,1.01,21,1,0)
;;=This is the date that this entry was created. It is automatically
;;^DD(355.5,1.01,21,2,0)
;;=triggered by the creation of the entry.
;;^DD(355.5,1.01,"DT")
;;=2930513
;;^DD(355.5,1.02,0)
;;=ENTERED BY^P200'^VA(200,^1;2^Q
;;^DD(355.5,1.02,9)
;;=^
;;^DD(355.5,1.02,21,0)
;;=^^2^2^2930713^
;;^DD(355.5,1.02,21,1,0)
;;=This is the user who created this entry. It is automatically
;;^DD(355.5,1.02,21,2,0)
;;=triggered by the creation of this entry.
;;^DD(355.5,1.02,"DT")
;;=2930513
;;^DD(355.5,1.03,0)
;;=DATE LAST VERIFIED^D^^1;3^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
;;^DD(355.5,1.03,21,0)
;;=^^2^2^2930713^
;;^DD(355.5,1.03,21,1,0)
;;=This is the date that the entry was verified. It is automatically
;;^DD(355.5,1.03,21,2,0)
;;=triggered by the verification process.
;;^DD(355.5,1.03,"DT")
;;=2930707
;;^DD(355.5,1.04,0)
;;=VERIFIED BY^P200'^VA(200,^1;4^Q
;;^DD(355.5,1.04,21,0)
;;=^^2^2^2930713^
;;^DD(355.5,1.04,21,1,0)
;;=This is the person who verified the entry. It is automatically
;;^DD(355.5,1.04,21,2,0)
;;=triggered by the verification process.
;;^DD(355.5,1.04,"DT")
;;=2930513
;;^DD(355.5,1.05,0)
;;=DATE LAST EDITED^D^^1;5^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
;;^DD(355.5,1.05,3)
;;=
;;^DD(355.5,1.05,9)
;;=^
;;^DD(355.5,1.05,21,0)
;;=^^2^2^2930713^^
;;^DD(355.5,1.05,21,1,0)
;;=This is the date that the entry was last edited. It is automatically
;;^DD(355.5,1.05,21,2,0)
;;=triggered whenever editing takes place.
;;^DD(355.5,1.05,"DT")
;;=2930707
;;^DD(355.5,1.06,0)
;;=EDITED BY^P200'^VA(200,^1;6^Q
;;^DD(355.5,1.06,9)
;;=^
;;^DD(355.5,1.06,21,0)
;;=^^2^2^2930713^
;;^DD(355.5,1.06,21,1,0)
;;=This is the name of the person who last edited the entry. It is
;;^DD(355.5,1.06,21,2,0)
;;=automatically triggered whenever editing takes place.
;;^DD(355.5,1.06,"DT")
;;=2930513
;;^DD(355.5,1.07,0)
;;=PERSON CONTACTED^RF^^1;7^K:$L(X)>30!($L(X)<3) X
;;^DD(355.5,1.07,.1)
;;=WHO DID YOU TALK TO AT THE INSURANCE COMPANY?
;;^DD(355.5,1.07,3)
;;=Answer must be 3-30 characters in length.
;;^DD(355.5,1.07,21,0)
;;=^^2^2^2930702^^^
;;^DD(355.5,1.07,21,1,0)
;;=Give the name of the person at the insurance company with whom you
IBINI054 ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(355.5)
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.5,.18,21,1,0)
+2 ;;=Enter the dollar amount of claims against this policy for mental
+3 ;;^DD(355.5,.18,21,2,0)
+4 ;;=health services.
+5 ;;^DD(355.5,.18,"DT")
+6 ;;=2931214
+7 ;;^DD(355.5,.19,0)
+8 ;;=AMT LIFETIME MAX USED (INPT)^NJ10,2^^0;19^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
+9 ;;^DD(355.5,.19,3)
+10 ;;=Type a Dollar Amount between 0 and 9999999, 0 Decimal Digits
+11 ;;^DD(355.5,.19,21,0)
+12 ;;=^^3^3^2931214^
+13 ;;^DD(355.5,.19,21,1,0)
+14 ;;=Enter the dollar amount of inpatient claims against this policy, which
+15 ;;^DD(355.5,.19,21,2,0)
+16 ;;=can then be compared to the maxium amount available over the life of
+17 ;;^DD(355.5,.19,21,3,0)
+18 ;;=the policy.
+19 ;;^DD(355.5,.19,"DT")
+20 ;;=2931214
+21 ;;^DD(355.5,.2,0)
+22 ;;=AMT MH LIFET MAX USED (OPT)^NJ10,2^^0;20^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
+23 ;;^DD(355.5,.2,3)
+24 ;;=Type a Dollar Amount between 0 and 9999999, 0 Decimal Digits
+25 ;;^DD(355.5,.2,21,0)
+26 ;;=^^3^3^2931214^
+27 ;;^DD(355.5,.2,21,1,0)
+28 ;;=Enter the dollar amount of MH claims against this policy, which can
+29 ;;^DD(355.5,.2,21,2,0)
+30 ;;=then be compared to the maximum amount available over the life of
+31 ;;^DD(355.5,.2,21,3,0)
+32 ;;=the policy.
+33 ;;^DD(355.5,.2,"DT")
+34 ;;=2931214
+35 ;;^DD(355.5,1.01,0)
+36 ;;=DATE ENTERED^D^^1;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
+37 ;;^DD(355.5,1.01,9)
+38 ;;=^
+39 ;;^DD(355.5,1.01,21,0)
+40 ;;=^^2^2^2930713^
+41 ;;^DD(355.5,1.01,21,1,0)
+42 ;;=This is the date that this entry was created. It is automatically
+43 ;;^DD(355.5,1.01,21,2,0)
+44 ;;=triggered by the creation of the entry.
+45 ;;^DD(355.5,1.01,"DT")
+46 ;;=2930513
+47 ;;^DD(355.5,1.02,0)
+48 ;;=ENTERED BY^P200'^VA(200,^1;2^Q
+49 ;;^DD(355.5,1.02,9)
+50 ;;=^
+51 ;;^DD(355.5,1.02,21,0)
+52 ;;=^^2^2^2930713^
+53 ;;^DD(355.5,1.02,21,1,0)
+54 ;;=This is the user who created this entry. It is automatically
+55 ;;^DD(355.5,1.02,21,2,0)
+56 ;;=triggered by the creation of this entry.
+57 ;;^DD(355.5,1.02,"DT")
+58 ;;=2930513
+59 ;;^DD(355.5,1.03,0)
+60 ;;=DATE LAST VERIFIED^D^^1;3^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
+61 ;;^DD(355.5,1.03,21,0)
+62 ;;=^^2^2^2930713^
+63 ;;^DD(355.5,1.03,21,1,0)
+64 ;;=This is the date that the entry was verified. It is automatically
+65 ;;^DD(355.5,1.03,21,2,0)
+66 ;;=triggered by the verification process.
+67 ;;^DD(355.5,1.03,"DT")
+68 ;;=2930707
+69 ;;^DD(355.5,1.04,0)
+70 ;;=VERIFIED BY^P200'^VA(200,^1;4^Q
+71 ;;^DD(355.5,1.04,21,0)
+72 ;;=^^2^2^2930713^
+73 ;;^DD(355.5,1.04,21,1,0)
+74 ;;=This is the person who verified the entry. It is automatically
+75 ;;^DD(355.5,1.04,21,2,0)
+76 ;;=triggered by the verification process.
+77 ;;^DD(355.5,1.04,"DT")
+78 ;;=2930513
+79 ;;^DD(355.5,1.05,0)
+80 ;;=DATE LAST EDITED^D^^1;5^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
+81 ;;^DD(355.5,1.05,3)
+82 ;;=
+83 ;;^DD(355.5,1.05,9)
+84 ;;=^
+85 ;;^DD(355.5,1.05,21,0)
+86 ;;=^^2^2^2930713^^
+87 ;;^DD(355.5,1.05,21,1,0)
+88 ;;=This is the date that the entry was last edited. It is automatically
+89 ;;^DD(355.5,1.05,21,2,0)
+90 ;;=triggered whenever editing takes place.
+91 ;;^DD(355.5,1.05,"DT")
+92 ;;=2930707
+93 ;;^DD(355.5,1.06,0)
+94 ;;=EDITED BY^P200'^VA(200,^1;6^Q
+95 ;;^DD(355.5,1.06,9)
+96 ;;=^
+97 ;;^DD(355.5,1.06,21,0)
+98 ;;=^^2^2^2930713^
+99 ;;^DD(355.5,1.06,21,1,0)
+100 ;;=This is the name of the person who last edited the entry. It is
+101 ;;^DD(355.5,1.06,21,2,0)
+102 ;;=automatically triggered whenever editing takes place.
+103 ;;^DD(355.5,1.06,"DT")
+104 ;;=2930513
+105 ;;^DD(355.5,1.07,0)
+106 ;;=PERSON CONTACTED^RF^^1;7^K:$L(X)>30!($L(X)<3) X
+107 ;;^DD(355.5,1.07,.1)
+108 ;;=WHO DID YOU TALK TO AT THE INSURANCE COMPANY?
+109 ;;^DD(355.5,1.07,3)
+110 ;;=Answer must be 3-30 characters in length.
+111 ;;^DD(355.5,1.07,21,0)
+112 ;;=^^2^2^2930702^^^
+113 ;;^DD(355.5,1.07,21,1,0)
+114 ;;=Give the name of the person at the insurance company with whom you
