IBINI011 ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(36) 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(36,1,"DEL",1,0)
;;=I $D(DGINS)
;;^DD(36,1,"DT")
;;=2901102
;;^DD(36,2,0)
;;=SIGNATURE REQUIRED ON BILL?^RS^0:NO;1:YES;^0;3^Q
;;^DD(36,2,3)
;;=Enter 'Yes' if a bill sent to this insurance carrier requires a manual signature or 'No' if it does not.
;;^DD(36,2,21,0)
;;=^^2^2^2911222^
;;^DD(36,2,21,1,0)
;;=Enter a yes or no in this field denoting whether a signature is required
;;^DD(36,2,21,2,0)
;;=on a bill before being submitted to the insurance carrier.
;;^DD(36,2,"DEL",1,0)
;;=I $D(DGINS)
;;^DD(36,2,"DT")
;;=2911222
;;^DD(36,10,0)
;;=SYNONYM^36.03^^10;0
;;^DD(36,11,0)
;;=REMARKS^36.011^^11;0
;;^DD(36,11,21,0)
;;=^^3^3^2931109^
;;^DD(36,11,21,1,0)
;;=You may enter unlimited free text comments about this insurance company.
;;^DD(36,11,21,2,0)
;;=It may be helpful to date ongoing comments and identify the source of
;;^DD(36,11,21,3,0)
;;=the comments.
;;^DD(36,11,"DT")
;;=2931109
;;^DD(36,30,0)
;;=*ADDRESS^36.02I^^2;0
;;^DD(36.011,0)
;;=REMARKS SUB-FIELD^^.01^1
;;^DD(36.011,0,"DT")
;;=2931109
;;^DD(36.011,0,"NM","REMARKS")
;;=
;;^DD(36.011,0,"UP")
;;=36
;;^DD(36.011,.01,0)
;;=REMARKS^W^^0;1^Q
;;^DD(36.011,.01,3)
;;=You may enter comments about this insurance company.
;;^DD(36.011,.01,"DT")
;;=2931109
;;^DD(36.02,0)
;;=*ADDRESS SUB-FIELD^^6^6
;;^DD(36.02,0,"ID",.01)
;;=I $D(^(0)) S %A=^(0) W !?3,$P(%A,U,2),",",?15," ",$S($D(^DIC(5,+$P(%A,U,3),0)):$P(^(0),U,1),1:""),?30," ",$P(%A,U,4) K %A
;;^DD(36.02,0,"IX","B",36.02,.01)
;;=
;;^DD(36.02,0,"IX","C",36.02,3)
;;=
;;^DD(36.02,0,"IX","D",36.02,2)
;;=
;;^DD(36.02,0,"NM","*ADDRESS")
;;=
;;^DD(36.02,0,"UP")
;;=36
;;^DD(36.02,.01,0)
;;=STREET^FX^^0;1^K:$L(X)>35!($L(X)<3) X I $D(X) K:'$D(DGINS) X
;;^DD(36.02,.01,1,0)
;;=^.1
;;^DD(36.02,.01,1,1,0)
;;=36.02^B
;;^DD(36.02,.01,1,1,1)
;;=S ^DIC(36,DA(1),2,"B",$E(X,1,30),DA)=""
;;^DD(36.02,.01,1,1,2)
;;=K ^DIC(36,DA(1),2,"B",$E(X,1,30),DA)
;;^DD(36.02,.01,3)
;;=ANSWER MUST BE 3-35 CHARACTERS IN LENGTH
;;^DD(36.02,.01,"DEL",1,0)
;;=I $D(DGINS)
;;^DD(36.02,.01,"DT")
;;=2880914
;;^DD(36.02,2,0)
;;=CITY^FX^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<2) X I $D(X) K:'$D(DGINS) X
;;^DD(36.02,2,1,0)
;;=^.1
;;^DD(36.02,2,1,1,0)
;;=36.02^D
;;^DD(36.02,2,1,1,1)
;;=S ^DIC(36,DA(1),2,"D",$E(X,1,30),DA)=""
;;^DD(36.02,2,1,1,2)
;;=K ^DIC(36,DA(1),2,"D",$E(X,1,30),DA)
;;^DD(36.02,2,3)
;;=ANSWER MUST BE 2-25 CHARACTERS IN LENGTH
;;^DD(36.02,2,"DEL",1,0)
;;=I $D(DGINS)
;;^DD(36.02,2,"DT")
;;=2890124
;;^DD(36.02,3,0)
;;=STATE^P5'X^DIC(5,^0;3^K:'$D(DGINS) X I $D(X) K:'$D(DGINS) X
;;^DD(36.02,3,1,0)
;;=^.1
;;^DD(36.02,3,1,1,0)
;;=36.02^C
;;^DD(36.02,3,1,1,1)
;;=S ^DIC(36,DA(1),2,"C",$E(X,1,30),DA)=""
;;^DD(36.02,3,1,1,2)
;;=K ^DIC(36,DA(1),2,"C",$E(X,1,30),DA)
;;^DD(36.02,3,"DEL",1,0)
;;=I $D(DGINS)
;;^DD(36.02,3,"DT")
;;=2880914
;;^DD(36.02,4,0)
;;=ZIP CODE^FX^^0;4^K:$L(X)>5!($L(X)<5) X I $D(X) K:'$D(DGINS) X
;;^DD(36.02,4,3)
;;=ANSWER MUST BE 5 CHARACTERS IN LENGTH
;;^DD(36.02,4,"DEL",1,0)
;;=I $D(DGINS)
;;^DD(36.02,4,"DT")
;;=2890106
;;^DD(36.02,5,0)
;;=TELEPHONE^FX^^0;5^K:$L(X)>20!($L(X)<7) X I $D(X) K:'$D(DGINS) X
;;^DD(36.02,5,3)
;;=ANSWER MUST BE 7-20 CHARACTERS IN LENGTH
;;^DD(36.02,5,"DEL",1,0)
;;=I $D(DGINS)
;;^DD(36.02,5,"DT")
;;=2890124
;;^DD(36.02,6,0)
;;=POINT TO^P36IX^DIC(36,^0;6^K:'$D(DGINS) X I $D(X) K:'$D(DGINS) X
;;^DD(36.02,6,"DEL",1,0)
;;=I $D(DGINS)
;;^DD(36.02,6,"DT")
;;=2880914
;;^DD(36.03,0)
;;=SYNONYM SUB-FIELD^^.01^1
;;^DD(36.03,0,"DT")
;;=2930326
;;^DD(36.03,0,"IX","B",36.03,.01)
;;=
IBINI011 ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(36)
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(36,1,"DEL",1,0)
+2 ;;=I $D(DGINS)
+3 ;;^DD(36,1,"DT")
+4 ;;=2901102
+5 ;;^DD(36,2,0)
+6 ;;=SIGNATURE REQUIRED ON BILL?^RS^0:NO;1:YES;^0;3^Q
+7 ;;^DD(36,2,3)
+8 ;;=Enter 'Yes' if a bill sent to this insurance carrier requires a manual signature or 'No' if it does not.
+9 ;;^DD(36,2,21,0)
+10 ;;=^^2^2^2911222^
+11 ;;^DD(36,2,21,1,0)
+12 ;;=Enter a yes or no in this field denoting whether a signature is required
+13 ;;^DD(36,2,21,2,0)
+14 ;;=on a bill before being submitted to the insurance carrier.
+15 ;;^DD(36,2,"DEL",1,0)
+16 ;;=I $D(DGINS)
+17 ;;^DD(36,2,"DT")
+18 ;;=2911222
+19 ;;^DD(36,10,0)
+20 ;;=SYNONYM^36.03^^10;0
+21 ;;^DD(36,11,0)
+22 ;;=REMARKS^36.011^^11;0
+23 ;;^DD(36,11,21,0)
+24 ;;=^^3^3^2931109^
+25 ;;^DD(36,11,21,1,0)
+26 ;;=You may enter unlimited free text comments about this insurance company.
+27 ;;^DD(36,11,21,2,0)
+28 ;;=It may be helpful to date ongoing comments and identify the source of
+29 ;;^DD(36,11,21,3,0)
+30 ;;=the comments.
+31 ;;^DD(36,11,"DT")
+32 ;;=2931109
+33 ;;^DD(36,30,0)
+34 ;;=*ADDRESS^36.02I^^2;0
+35 ;;^DD(36.011,0)
+36 ;;=REMARKS SUB-FIELD^^.01^1
+37 ;;^DD(36.011,0,"DT")
+38 ;;=2931109
+39 ;;^DD(36.011,0,"NM","REMARKS")
+40 ;;=
+41 ;;^DD(36.011,0,"UP")
+42 ;;=36
+43 ;;^DD(36.011,.01,0)
+44 ;;=REMARKS^W^^0;1^Q
+45 ;;^DD(36.011,.01,3)
+46 ;;=You may enter comments about this insurance company.
+47 ;;^DD(36.011,.01,"DT")
+48 ;;=2931109
+49 ;;^DD(36.02,0)
+50 ;;=*ADDRESS SUB-FIELD^^6^6
+51 ;;^DD(36.02,0,"ID",.01)
+52 ;;=I $D(^(0)) S %A=^(0) W !?3,$P(%A,U,2),",",?15," ",$S($D(^DIC(5,+$P(%A,U,3),0)):$P(^(0),U,1),1:""),?30," ",$P(%A,U,4) K %A
+53 ;;^DD(36.02,0,"IX","B",36.02,.01)
+54 ;;=
+55 ;;^DD(36.02,0,"IX","C",36.02,3)
+56 ;;=
+57 ;;^DD(36.02,0,"IX","D",36.02,2)
+58 ;;=
+59 ;;^DD(36.02,0,"NM","*ADDRESS")
+60 ;;=
+61 ;;^DD(36.02,0,"UP")
+62 ;;=36
+63 ;;^DD(36.02,.01,0)
+64 ;;=STREET^FX^^0;1^K:$L(X)>35!($L(X)<3) X I $D(X) K:'$D(DGINS) X
+65 ;;^DD(36.02,.01,1,0)
+66 ;;=^.1
+67 ;;^DD(36.02,.01,1,1,0)
+68 ;;=36.02^B
+69 ;;^DD(36.02,.01,1,1,1)
+70 ;;=S ^DIC(36,DA(1),2,"B",$E(X,1,30),DA)=""
+71 ;;^DD(36.02,.01,1,1,2)
+72 ;;=K ^DIC(36,DA(1),2,"B",$E(X,1,30),DA)
+73 ;;^DD(36.02,.01,3)
+74 ;;=ANSWER MUST BE 3-35 CHARACTERS IN LENGTH
+75 ;;^DD(36.02,.01,"DEL",1,0)
+76 ;;=I $D(DGINS)
+77 ;;^DD(36.02,.01,"DT")
+78 ;;=2880914
+79 ;;^DD(36.02,2,0)
+80 ;;=CITY^FX^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<2) X I $D(X) K:'$D(DGINS) X
+81 ;;^DD(36.02,2,1,0)
+82 ;;=^.1
+83 ;;^DD(36.02,2,1,1,0)
+84 ;;=36.02^D
+85 ;;^DD(36.02,2,1,1,1)
+86 ;;=S ^DIC(36,DA(1),2,"D",$E(X,1,30),DA)=""
+87 ;;^DD(36.02,2,1,1,2)
+88 ;;=K ^DIC(36,DA(1),2,"D",$E(X,1,30),DA)
+89 ;;^DD(36.02,2,3)
+90 ;;=ANSWER MUST BE 2-25 CHARACTERS IN LENGTH
+91 ;;^DD(36.02,2,"DEL",1,0)
+92 ;;=I $D(DGINS)
+93 ;;^DD(36.02,2,"DT")
+94 ;;=2890124
+95 ;;^DD(36.02,3,0)
+96 ;;=STATE^P5'X^DIC(5,^0;3^K:'$D(DGINS) X I $D(X) K:'$D(DGINS) X
+97 ;;^DD(36.02,3,1,0)
+98 ;;=^.1
+99 ;;^DD(36.02,3,1,1,0)
+100 ;;=36.02^C
+101 ;;^DD(36.02,3,1,1,1)
+102 ;;=S ^DIC(36,DA(1),2,"C",$E(X,1,30),DA)=""
+103 ;;^DD(36.02,3,1,1,2)
+104 ;;=K ^DIC(36,DA(1),2,"C",$E(X,1,30),DA)
+105 ;;^DD(36.02,3,"DEL",1,0)
+106 ;;=I $D(DGINS)
+107 ;;^DD(36.02,3,"DT")
+108 ;;=2880914
+109 ;;^DD(36.02,4,0)
+110 ;;=ZIP CODE^FX^^0;4^K:$L(X)>5!($L(X)<5) X I $D(X) K:'$D(DGINS) X
+111 ;;^DD(36.02,4,3)
+112 ;;=ANSWER MUST BE 5 CHARACTERS IN LENGTH
+113 ;;^DD(36.02,4,"DEL",1,0)
+114 ;;=I $D(DGINS)
+115 ;;^DD(36.02,4,"DT")
+116 ;;=2890106
+117 ;;^DD(36.02,5,0)
+118 ;;=TELEPHONE^FX^^0;5^K:$L(X)>20!($L(X)<7) X I $D(X) K:'$D(DGINS) X
+119 ;;^DD(36.02,5,3)
+120 ;;=ANSWER MUST BE 7-20 CHARACTERS IN LENGTH
+121 ;;^DD(36.02,5,"DEL",1,0)
+122 ;;=I $D(DGINS)
+123 ;;^DD(36.02,5,"DT")
+124 ;;=2890124
+125 ;;^DD(36.02,6,0)
+126 ;;=POINT TO^P36IX^DIC(36,^0;6^K:'$D(DGINS) X I $D(X) K:'$D(DGINS) X
+127 ;;^DD(36.02,6,"DEL",1,0)
+128 ;;=I $D(DGINS)
+129 ;;^DD(36.02,6,"DT")
+130 ;;=2880914
+131 ;;^DD(36.03,0)
+132 ;;=SYNONYM SUB-FIELD^^.01^1
+133 ;;^DD(36.03,0,"DT")
+134 ;;=2930326
+135 ;;^DD(36.03,0,"IX","B",36.03,.01)
+136 ;;=
