IBINI00Y ; ; 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,.168,1,1,"CREATE CONDITION")
;;=S X='$P($G(^DIC(36,DA,.16)),"^",8)
;;^DD(36,.168,1,1,"CREATE VALUE")
;;=@
;;^DD(36,.168,1,1,"DELETE VALUE")
;;=NO EFFECT
;;^DD(36,.168,1,1,"DT")
;;=2931006
;;^DD(36,.168,1,1,"FIELD")
;;=#.167
;;^DD(36,.168,21,0)
;;=^^1^1^2931007^^^^
;;^DD(36,.168,21,1,0)
;;=Enter "Yes" if another insurance company processes Outpatient Claims.
;;^DD(36,.168,"DT")
;;=2931007
;;^DD(36,.169,0)
;;=CLAIMS (OPT) FAX^F^^.16;9^K:$L(X)>20!($L(X)<7) X
;;^DD(36,.169,3)
;;=Enter the fax number of the outpatient claims office with 7 - 20 characters, ex. 999-9999, 999-999-9999.
;;^DD(36,.169,21,0)
;;=^^1^1^2931122^^
;;^DD(36,.169,21,1,0)
;;=Enter the fax number of the outpatient claims office of this insurance carrier.
;;^DD(36,.169,"DT")
;;=2931122
;;^DD(36,.178,0)
;;=ANOTHER CO. PROCESS PRECERTS?^S^0:NO;1:YES;^.17;8^Q
;;^DD(36,.178,.1)
;;=Are Precerts Processed by Another Insurance Co.?
;;^DD(36,.178,1,0)
;;=^.1
;;^DD(36,.178,1,1,0)
;;=^^TRIGGER^36^.139
;;^DD(36,.178,1,1,1)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.17)),"^",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.13)):^(.13),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(36,.178,1,1,1.4)
;;^DD(36,.178,1,1,1.4)
;;=S DIH=$S($D(^DIC(36,DIV(0),.13)):^(.13),1:""),DIV=X S $P(^(.13),U,9)=DIV,DIH=36,DIG=.139 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(36,.178,1,1,2)
;;=Q
;;^DD(36,.178,1,1,"CREATE CONDITION")
;;=S X='$P($G(^DIC(36,DA,.17)),"^",8)
;;^DD(36,.178,1,1,"CREATE VALUE")
;;=@
;;^DD(36,.178,1,1,"DELETE VALUE")
;;=NO EFFECT
;;^DD(36,.178,1,1,"FIELD")
;;=#.139
;;^DD(36,.178,21,0)
;;=^^1^1^2931007^^
;;^DD(36,.178,21,1,0)
;;=Enter "Yes" if another insurance company processes precerts.
;;^DD(36,.178,"DT")
;;=2931007
;;^DD(36,.181,0)
;;=CLAIMS (RX) STREET ADDRESS 1^F^^.18;1^K:$L(X)>30!($L(X)<3) X
;;^DD(36,.181,1,0)
;;=^.1
;;^DD(36,.181,1,1,0)
;;=^^TRIGGER^36^.182
;;^DD(36,.181,1,1,1)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,1,1.4)
;;^DD(36,.181,1,1,1.4)
;;=S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,2)=DIV,DIH=36,DIG=.182 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(36,.181,1,1,2)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,1,2.4)
;;^DD(36,.181,1,1,2.4)
;;=S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,2)=DIV,DIH=36,DIG=.182 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(36,.181,1,1,"%D",0)
;;=^^1^1^2940104^^
;;^DD(36,.181,1,1,"%D",1,0)
;;=When changing or deleting CLAIMS (RX) STREET 1 delete CLAIMS (RX) STREET ADDRESS 1.
;;^DD(36,.181,1,1,"CREATE VALUE")
;;=@
;;^DD(36,.181,1,1,"DELETE VALUE")
;;=@
;;^DD(36,.181,1,1,"FIELD")
;;=#.182
;;^DD(36,.181,1,2,0)
;;=^^TRIGGER^36^.183
;;^DD(36,.181,1,2,1)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,2,1.4)
;;^DD(36,.181,1,2,1.4)
;;=S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(36,.181,1,2,2)
;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,2,2.4)
;;^DD(36,.181,1,2,2.4)
;;=S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
;;^DD(36,.181,1,2,"%D",0)
;;=^^1^1^2940104^
IBINI00Y ; ; 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,.168,1,1,"CREATE CONDITION")
+2 ;;=S X='$P($G(^DIC(36,DA,.16)),"^",8)
+3 ;;^DD(36,.168,1,1,"CREATE VALUE")
+4 ;;=@
+5 ;;^DD(36,.168,1,1,"DELETE VALUE")
+6 ;;=NO EFFECT
+7 ;;^DD(36,.168,1,1,"DT")
+8 ;;=2931006
+9 ;;^DD(36,.168,1,1,"FIELD")
+10 ;;=#.167
+11 ;;^DD(36,.168,21,0)
+12 ;;=^^1^1^2931007^^^^
+13 ;;^DD(36,.168,21,1,0)
+14 ;;=Enter "Yes" if another insurance company processes Outpatient Claims.
+15 ;;^DD(36,.168,"DT")
+16 ;;=2931007
+17 ;;^DD(36,.169,0)
+18 ;;=CLAIMS (OPT) FAX^F^^.16;9^K:$L(X)>20!($L(X)<7) X
+19 ;;^DD(36,.169,3)
+20 ;;=Enter the fax number of the outpatient claims office with 7 - 20 characters, ex. 999-9999, 999-999-9999.
+21 ;;^DD(36,.169,21,0)
+22 ;;=^^1^1^2931122^^
+23 ;;^DD(36,.169,21,1,0)
+24 ;;=Enter the fax number of the outpatient claims office of this insurance carrier.
+25 ;;^DD(36,.169,"DT")
+26 ;;=2931122
+27 ;;^DD(36,.178,0)
+28 ;;=ANOTHER CO. PROCESS PRECERTS?^S^0:NO;1:YES;^.17;8^Q
+29 ;;^DD(36,.178,.1)
+30 ;;=Are Precerts Processed by Another Insurance Co.?
+31 ;;^DD(36,.178,1,0)
+32 ;;=^.1
+33 ;;^DD(36,.178,1,1,0)
+34 ;;=^^TRIGGER^36^.139
+35 ;;^DD(36,.178,1,1,1)
+36 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.17)),"^",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.13)):^(.13),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(36,.178,1,1,1.4)
+37 ;;^DD(36,.178,1,1,1.4)
+38 ;;=S DIH=$S($D(^DIC(36,DIV(0),.13)):^(.13),1:""),DIV=X S $P(^(.13),U,9)=DIV,DIH=36,DIG=.139 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+39 ;;^DD(36,.178,1,1,2)
+40 ;;=Q
+41 ;;^DD(36,.178,1,1,"CREATE CONDITION")
+42 ;;=S X='$P($G(^DIC(36,DA,.17)),"^",8)
+43 ;;^DD(36,.178,1,1,"CREATE VALUE")
+44 ;;=@
+45 ;;^DD(36,.178,1,1,"DELETE VALUE")
+46 ;;=NO EFFECT
+47 ;;^DD(36,.178,1,1,"FIELD")
+48 ;;=#.139
+49 ;;^DD(36,.178,21,0)
+50 ;;=^^1^1^2931007^^
+51 ;;^DD(36,.178,21,1,0)
+52 ;;=Enter "Yes" if another insurance company processes precerts.
+53 ;;^DD(36,.178,"DT")
+54 ;;=2931007
+55 ;;^DD(36,.181,0)
+56 ;;=CLAIMS (RX) STREET ADDRESS 1^F^^.18;1^K:$L(X)>30!($L(X)<3) X
+57 ;;^DD(36,.181,1,0)
+58 ;;=^.1
+59 ;;^DD(36,.181,1,1,0)
+60 ;;=^^TRIGGER^36^.182
+61 ;;^DD(36,.181,1,1,1)
+62 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,1,1.4)
+63 ;;^DD(36,.181,1,1,1.4)
+64 ;;=S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,2)=DIV,DIH=36,DIG=.182 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+65 ;;^DD(36,.181,1,1,2)
+66 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,1,2.4)
+67 ;;^DD(36,.181,1,1,2.4)
+68 ;;=S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,2)=DIV,DIH=36,DIG=.182 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+69 ;;^DD(36,.181,1,1,"%D",0)
+70 ;;=^^1^1^2940104^^
+71 ;;^DD(36,.181,1,1,"%D",1,0)
+72 ;;=When changing or deleting CLAIMS (RX) STREET 1 delete CLAIMS (RX) STREET ADDRESS 1.
+73 ;;^DD(36,.181,1,1,"CREATE VALUE")
+74 ;;=@
+75 ;;^DD(36,.181,1,1,"DELETE VALUE")
+76 ;;=@
+77 ;;^DD(36,.181,1,1,"FIELD")
+78 ;;=#.182
+79 ;;^DD(36,.181,1,2,0)
+80 ;;=^^TRIGGER^36^.183
+81 ;;^DD(36,.181,1,2,1)
+82 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,2,1.4)
+83 ;;^DD(36,.181,1,2,1.4)
+84 ;;=S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+85 ;;^DD(36,.181,1,2,2)
+86 ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(36,.181,1,2,2.4)
+87 ;;^DD(36,.181,1,2,2.4)
+88 ;;=S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
+89 ;;^DD(36,.181,1,2,"%D",0)
+90 ;;=^^1^1^2940104^
