IBINI04Q ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(355.3) 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.3,.09,3)
;;=Enter the type of policy that best describes this policy.
;;^DD(355.3,.09,21,0)
;;=^^5^5^2931103^^^^
;;^DD(355.3,.09,21,1,0)
;;=Select the type of plan that best describes this plan. The type of
;;^DD(355.3,.09,21,2,0)
;;=policy will be used to determine if reimbursement for claims from the
;;^DD(355.3,.09,21,3,0)
;;=insurance carrier are appropriate.It will also be used to determine
;;^DD(355.3,.09,21,4,0)
;;=what other fields and displays are appropriate for this plan. If
;;^DD(355.3,.09,21,5,0)
;;=unknown or unsure pick the more general type of plan.
;;^DD(355.3,.09,"DT")
;;=2931103
;;^DD(355.3,.1,0)
;;=INDIVIDUAL POLICY PATIENT^P2'^DPT(^0;10^Q
;;^DD(355.3,.1,21,0)
;;=^^7^7^2940213^^^^
;;^DD(355.3,.1,21,1,0)
;;=This is the patient associated with this policy if this is an individual
;;^DD(355.3,.1,21,2,0)
;;=policy.
;;^DD(355.3,.1,21,3,0)
;;=
;;^DD(355.3,.1,21,4,0)
;;=If this is an individual policy, the system will store the patient
;;^DD(355.3,.1,21,5,0)
;;=in this field. Only one patient may be associated with an individual
;;^DD(355.3,.1,21,6,0)
;;=policy. Many patients can be associated with a group policy.
;;^DD(355.3,.1,21,7,0)
;;=
;;^DD(355.3,.1,22)
;;=
;;^DD(355.3,.1,"DT")
;;=2930601
;;^DD(355.3,1.01,0)
;;=DATE ENTERED^D^^1;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
;;^DD(355.3,1.01,5,1,0)
;;=355.3^.01^2
;;^DD(355.3,1.01,21,0)
;;=^^2^2^2931102^^^
;;^DD(355.3,1.01,21,1,0)
;;=This is the date that this policy was entered. It is triggered by
;;^DD(355.3,1.01,21,2,0)
;;=the creation of this entry.
;;^DD(355.3,1.01,"DT")
;;=2931102
;;^DD(355.3,1.02,0)
;;=ENTERED BY^P200'^VA(200,^1;2^Q
;;^DD(355.3,1.02,5,1,0)
;;=355.3^.01^3
;;^DD(355.3,1.02,21,0)
;;=^^2^2^2930603^
;;^DD(355.3,1.02,21,1,0)
;;=This is the user who created this entry. It is automatically triggered
;;^DD(355.3,1.02,21,2,0)
;;=by the creation of this entry.
;;^DD(355.3,1.02,"DT")
;;=2930603
;;^DD(355.3,1.03,0)
;;=DATE LAST VERIFIED^D^^1;3^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(355.3,1.03,21,0)
;;=^^5^5^2940213^
;;^DD(355.3,1.03,21,1,0)
;;=This is the date that this policy was last verified. A policy is
;;^DD(355.3,1.03,21,2,0)
;;=verified by selecting the Verify Policy Action on the Patient
;;^DD(355.3,1.03,21,3,0)
;;=Insurance Management screen. Generally this is the last time
;;^DD(355.3,1.03,21,4,0)
;;=that somebody contacted the insurance company and verified that
;;^DD(355.3,1.03,21,5,0)
;;=policy information is correct.
;;^DD(355.3,1.03,"DT")
;;=2930603
;;^DD(355.3,1.04,0)
;;=VERIFIED BY^P200'^VA(200,^1;4^Q
;;^DD(355.3,1.04,21,0)
;;=^^1^1^2940213^
;;^DD(355.3,1.04,21,1,0)
;;=This is the user who last verified that the policy information is correct.
;;^DD(355.3,1.04,"DT")
;;=2930603
;;^DD(355.3,1.05,0)
;;=DATE LAST EDITED^D^^1;5^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
;;^DD(355.3,1.05,21,0)
;;=^^2^2^2940213^
;;^DD(355.3,1.05,21,1,0)
;;=This is the date that this policy was last edited. It is automatically
;;^DD(355.3,1.05,21,2,0)
;;=updated any time a policy is editing using one of the options provided.
;;^DD(355.3,1.05,"DT")
;;=2930603
;;^DD(355.3,1.06,0)
;;=LAST EDITED BY^P200'^VA(200,^1;6^Q
;;^DD(355.3,1.06,21,0)
;;=^^2^2^2940213^
;;^DD(355.3,1.06,21,1,0)
;;=This is the user who last edited this policy. It is automatically
;;^DD(355.3,1.06,21,2,0)
;;=updated everytime a policy is edited using one of the options.
;;^DD(355.3,1.06,"DT")
;;=2930603
;;^DD(355.3,11,0)
;;=COMMENTS^355.311^^11;0
IBINI04Q ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(355.3)
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.3,.09,3)
+2 ;;=Enter the type of policy that best describes this policy.
+3 ;;^DD(355.3,.09,21,0)
+4 ;;=^^5^5^2931103^^^^
+5 ;;^DD(355.3,.09,21,1,0)
+6 ;;=Select the type of plan that best describes this plan. The type of
+7 ;;^DD(355.3,.09,21,2,0)
+8 ;;=policy will be used to determine if reimbursement for claims from the
+9 ;;^DD(355.3,.09,21,3,0)
+10 ;;=insurance carrier are appropriate.It will also be used to determine
+11 ;;^DD(355.3,.09,21,4,0)
+12 ;;=what other fields and displays are appropriate for this plan. If
+13 ;;^DD(355.3,.09,21,5,0)
+14 ;;=unknown or unsure pick the more general type of plan.
+15 ;;^DD(355.3,.09,"DT")
+16 ;;=2931103
+17 ;;^DD(355.3,.1,0)
+18 ;;=INDIVIDUAL POLICY PATIENT^P2'^DPT(^0;10^Q
+19 ;;^DD(355.3,.1,21,0)
+20 ;;=^^7^7^2940213^^^^
+21 ;;^DD(355.3,.1,21,1,0)
+22 ;;=This is the patient associated with this policy if this is an individual
+23 ;;^DD(355.3,.1,21,2,0)
+24 ;;=policy.
+25 ;;^DD(355.3,.1,21,3,0)
+26 ;;=
+27 ;;^DD(355.3,.1,21,4,0)
+28 ;;=If this is an individual policy, the system will store the patient
+29 ;;^DD(355.3,.1,21,5,0)
+30 ;;=in this field. Only one patient may be associated with an individual
+31 ;;^DD(355.3,.1,21,6,0)
+32 ;;=policy. Many patients can be associated with a group policy.
+33 ;;^DD(355.3,.1,21,7,0)
+34 ;;=
+35 ;;^DD(355.3,.1,22)
+36 ;;=
+37 ;;^DD(355.3,.1,"DT")
+38 ;;=2930601
+39 ;;^DD(355.3,1.01,0)
+40 ;;=DATE ENTERED^D^^1;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
+41 ;;^DD(355.3,1.01,5,1,0)
+42 ;;=355.3^.01^2
+43 ;;^DD(355.3,1.01,21,0)
+44 ;;=^^2^2^2931102^^^
+45 ;;^DD(355.3,1.01,21,1,0)
+46 ;;=This is the date that this policy was entered. It is triggered by
+47 ;;^DD(355.3,1.01,21,2,0)
+48 ;;=the creation of this entry.
+49 ;;^DD(355.3,1.01,"DT")
+50 ;;=2931102
+51 ;;^DD(355.3,1.02,0)
+52 ;;=ENTERED BY^P200'^VA(200,^1;2^Q
+53 ;;^DD(355.3,1.02,5,1,0)
+54 ;;=355.3^.01^3
+55 ;;^DD(355.3,1.02,21,0)
+56 ;;=^^2^2^2930603^
+57 ;;^DD(355.3,1.02,21,1,0)
+58 ;;=This is the user who created this entry. It is automatically triggered
+59 ;;^DD(355.3,1.02,21,2,0)
+60 ;;=by the creation of this entry.
+61 ;;^DD(355.3,1.02,"DT")
+62 ;;=2930603
+63 ;;^DD(355.3,1.03,0)
+64 ;;=DATE LAST VERIFIED^D^^1;3^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+65 ;;^DD(355.3,1.03,21,0)
+66 ;;=^^5^5^2940213^
+67 ;;^DD(355.3,1.03,21,1,0)
+68 ;;=This is the date that this policy was last verified. A policy is
+69 ;;^DD(355.3,1.03,21,2,0)
+70 ;;=verified by selecting the Verify Policy Action on the Patient
+71 ;;^DD(355.3,1.03,21,3,0)
+72 ;;=Insurance Management screen. Generally this is the last time
+73 ;;^DD(355.3,1.03,21,4,0)
+74 ;;=that somebody contacted the insurance company and verified that
+75 ;;^DD(355.3,1.03,21,5,0)
+76 ;;=policy information is correct.
+77 ;;^DD(355.3,1.03,"DT")
+78 ;;=2930603
+79 ;;^DD(355.3,1.04,0)
+80 ;;=VERIFIED BY^P200'^VA(200,^1;4^Q
+81 ;;^DD(355.3,1.04,21,0)
+82 ;;=^^1^1^2940213^
+83 ;;^DD(355.3,1.04,21,1,0)
+84 ;;=This is the user who last verified that the policy information is correct.
+85 ;;^DD(355.3,1.04,"DT")
+86 ;;=2930603
+87 ;;^DD(355.3,1.05,0)
+88 ;;=DATE LAST EDITED^D^^1;5^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
+89 ;;^DD(355.3,1.05,21,0)
+90 ;;=^^2^2^2940213^
+91 ;;^DD(355.3,1.05,21,1,0)
+92 ;;=This is the date that this policy was last edited. It is automatically
+93 ;;^DD(355.3,1.05,21,2,0)
+94 ;;=updated any time a policy is editing using one of the options provided.
+95 ;;^DD(355.3,1.05,"DT")
+96 ;;=2930603
+97 ;;^DD(355.3,1.06,0)
+98 ;;=LAST EDITED BY^P200'^VA(200,^1;6^Q
+99 ;;^DD(355.3,1.06,21,0)
+100 ;;=^^2^2^2940213^
+101 ;;^DD(355.3,1.06,21,1,0)
+102 ;;=This is the user who last edited this policy. It is automatically
+103 ;;^DD(355.3,1.06,21,2,0)
+104 ;;=updated everytime a policy is edited using one of the options.
+105 ;;^DD(355.3,1.06,"DT")
+106 ;;=2930603
+107 ;;^DD(355.3,11,0)
+108 ;;=COMMENTS^355.311^^11;0
