IBINI0AA ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(399) 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(399,64,21,1,0)
;;=This is the first ICD diagnosis code associated with this billing episode.
;;^DD(399,64,23,0)
;;=^^2^2^2931117^
;;^DD(399,64,23,1,0)
;;=Replaced by a diagnosis file (362.3) with IB v2.0. "*" for deletion
;;^DD(399,64,23,2,0)
;;=on 11/10/93.
;;^DD(399,64,"DT")
;;=2931110
;;^DD(399,65,0)
;;=*ICD DIAGNOSIS CODE (2)^P80'^ICD9(^C;15^Q
;;^DD(399,65,.1)
;;=ICD DIAGNOSIS CODE (2)
;;^DD(399,65,3)
;;=Enter the ICD diagnosis code which pertains to this billing episode.
;;^DD(399,65,21,0)
;;=^^1^1^2931117^^
;;^DD(399,65,21,1,0)
;;=This is the second ICD diagnosis code associated with this billing episode.
;;^DD(399,65,23,0)
;;=^^2^2^2931117^
;;^DD(399,65,23,1,0)
;;=Replaced by a diagnosis file (362.3) with IB v2.0. "*" for deletion
;;^DD(399,65,23,2,0)
;;=on 11/10/93.
;;^DD(399,65,"DT")
;;=2931110
;;^DD(399,66,0)
;;=*ICD DIAGNOSIS CODE (3)^P80'^ICD9(^C;16^Q
;;^DD(399,66,.1)
;;=ICD DIAGNOSIS CODE (3)
;;^DD(399,66,3)
;;=Enter the ICD diagnosis code which pertains to this billing episode.
;;^DD(399,66,21,0)
;;=^^1^1^2931117^^
;;^DD(399,66,21,1,0)
;;=This is the third ICD diagnosis code associated with this billing episode.
;;^DD(399,66,23,0)
;;=^^2^2^2931117^
;;^DD(399,66,23,1,0)
;;=Replaced by a diagnosis file (362.3) with IB v2.0. "*" for deletion
;;^DD(399,66,23,2,0)
;;=on 11/10/93.
;;^DD(399,66,"DT")
;;=2931110
;;^DD(399,67,0)
;;=*ICD DIAGNOSIS CODE (4)^P80'^ICD9(^C;17^Q
;;^DD(399,67,.1)
;;=ICD DIAGNOSIS CODE (4)
;;^DD(399,67,3)
;;=Enter the ICD diagnosis code which pertains to this billing episode.
;;^DD(399,67,21,0)
;;=^^1^1^2931117^^
;;^DD(399,67,21,1,0)
;;=This is the fourth ICD diagnosis code associated with this billing episode.
;;^DD(399,67,23,0)
;;=^^2^2^2931117^
;;^DD(399,67,23,1,0)
;;=Replaced by a diagnosis file (362.3) with IB v2.0. "*" for deletion
;;^DD(399,67,23,2,0)
;;=on 11/10/93.
;;^DD(399,67,"DT")
;;=2931110
;;^DD(399,68,0)
;;=*ICD DIAGNOSIS CODE (5)^P80'^ICD9(^C;18^Q
;;^DD(399,68,.1)
;;=ICD DIAGNOSIS CODE (5)
;;^DD(399,68,3)
;;=Enter the ICD diagnosis code which pertains to this billing episode.
;;^DD(399,68,21,0)
;;=^^1^1^2931117^^
;;^DD(399,68,21,1,0)
;;=This is the fifth ICD diagnosis code associated with this billing episode.
;;^DD(399,68,23,0)
;;=^^2^2^2931117^
;;^DD(399,68,23,1,0)
;;=Replaced by a diagnosis file (362.3) with IB v2.0. "*" for deletion
;;^DD(399,68,23,2,0)
;;=on 11/10/93.
;;^DD(399,68,"DT")
;;=2931110
;;^DD(399,101,0)
;;=PRIMARY INSURANCE CARRIER^R*P36'X^DIC(36,^M;1^D DD^IBCNS S DIC("S")="I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""AIC"",+Y))" D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X
;;^DD(399,101,1,0)
;;=^.1
;;^DD(399,101,1,1,0)
;;=399^AI1^MUMPS
;;^DD(399,101,1,1,1)
;;=D MAILA^IBCU5
;;^DD(399,101,1,1,2)
;;=Q
;;^DD(399,101,1,1,"%D",0)
;;=^^9^9^2931220^^^^
;;^DD(399,101,1,1,"%D",1,0)
;;= - calls MAILA to set mailing address (399,104-109,121) to primary
;;^DD(399,101,1,1,"%D",2,0)
;;= insurer's address
;;^DD(399,101,1,1,"%D",3,0)
;;=
;;^DD(399,101,1,1,"%D",4,0)
;;=NOTE: I1 and AIC x-refs now set by field 112.
;;^DD(399,101,1,1,"%D",5,0)
;;=If X is one of the patients active/valid insurance companies:
;;^DD(399,101,1,1,"%D",6,0)
;;= - sets the node "I1" to detailed data on the insurance company
;;^DD(399,101,1,1,"%D",7,0)
;;= (2,.312, entire node .01-17)
;;^DD(399,101,1,1,"%D",8,0)
;;= - sets x-ref "AIC": subfile x-ref of insurance carriers (399,101-103)
;;^DD(399,101,1,1,"%D",9,0)
;;=
;;^DD(399,101,1,1,"DT")
;;=2931220
;;^DD(399,101,1,2,0)
;;=399^AREV4^MUMPS
IBINI0AA ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(399)
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(399,64,21,1,0)
+2 ;;=This is the first ICD diagnosis code associated with this billing episode.
+3 ;;^DD(399,64,23,0)
+4 ;;=^^2^2^2931117^
+5 ;;^DD(399,64,23,1,0)
+6 ;;=Replaced by a diagnosis file (362.3) with IB v2.0. "*" for deletion
+7 ;;^DD(399,64,23,2,0)
+8 ;;=on 11/10/93.
+9 ;;^DD(399,64,"DT")
+10 ;;=2931110
+11 ;;^DD(399,65,0)
+12 ;;=*ICD DIAGNOSIS CODE (2)^P80'^ICD9(^C;15^Q
+13 ;;^DD(399,65,.1)
+14 ;;=ICD DIAGNOSIS CODE (2)
+15 ;;^DD(399,65,3)
+16 ;;=Enter the ICD diagnosis code which pertains to this billing episode.
+17 ;;^DD(399,65,21,0)
+18 ;;=^^1^1^2931117^^
+19 ;;^DD(399,65,21,1,0)
+20 ;;=This is the second ICD diagnosis code associated with this billing episode.
+21 ;;^DD(399,65,23,0)
+22 ;;=^^2^2^2931117^
+23 ;;^DD(399,65,23,1,0)
+24 ;;=Replaced by a diagnosis file (362.3) with IB v2.0. "*" for deletion
+25 ;;^DD(399,65,23,2,0)
+26 ;;=on 11/10/93.
+27 ;;^DD(399,65,"DT")
+28 ;;=2931110
+29 ;;^DD(399,66,0)
+30 ;;=*ICD DIAGNOSIS CODE (3)^P80'^ICD9(^C;16^Q
+31 ;;^DD(399,66,.1)
+32 ;;=ICD DIAGNOSIS CODE (3)
+33 ;;^DD(399,66,3)
+34 ;;=Enter the ICD diagnosis code which pertains to this billing episode.
+35 ;;^DD(399,66,21,0)
+36 ;;=^^1^1^2931117^^
+37 ;;^DD(399,66,21,1,0)
+38 ;;=This is the third ICD diagnosis code associated with this billing episode.
+39 ;;^DD(399,66,23,0)
+40 ;;=^^2^2^2931117^
+41 ;;^DD(399,66,23,1,0)
+42 ;;=Replaced by a diagnosis file (362.3) with IB v2.0. "*" for deletion
+43 ;;^DD(399,66,23,2,0)
+44 ;;=on 11/10/93.
+45 ;;^DD(399,66,"DT")
+46 ;;=2931110
+47 ;;^DD(399,67,0)
+48 ;;=*ICD DIAGNOSIS CODE (4)^P80'^ICD9(^C;17^Q
+49 ;;^DD(399,67,.1)
+50 ;;=ICD DIAGNOSIS CODE (4)
+51 ;;^DD(399,67,3)
+52 ;;=Enter the ICD diagnosis code which pertains to this billing episode.
+53 ;;^DD(399,67,21,0)
+54 ;;=^^1^1^2931117^^
+55 ;;^DD(399,67,21,1,0)
+56 ;;=This is the fourth ICD diagnosis code associated with this billing episode.
+57 ;;^DD(399,67,23,0)
+58 ;;=^^2^2^2931117^
+59 ;;^DD(399,67,23,1,0)
+60 ;;=Replaced by a diagnosis file (362.3) with IB v2.0. "*" for deletion
+61 ;;^DD(399,67,23,2,0)
+62 ;;=on 11/10/93.
+63 ;;^DD(399,67,"DT")
+64 ;;=2931110
+65 ;;^DD(399,68,0)
+66 ;;=*ICD DIAGNOSIS CODE (5)^P80'^ICD9(^C;18^Q
+67 ;;^DD(399,68,.1)
+68 ;;=ICD DIAGNOSIS CODE (5)
+69 ;;^DD(399,68,3)
+70 ;;=Enter the ICD diagnosis code which pertains to this billing episode.
+71 ;;^DD(399,68,21,0)
+72 ;;=^^1^1^2931117^^
+73 ;;^DD(399,68,21,1,0)
+74 ;;=This is the fifth ICD diagnosis code associated with this billing episode.
+75 ;;^DD(399,68,23,0)
+76 ;;=^^2^2^2931117^
+77 ;;^DD(399,68,23,1,0)
+78 ;;=Replaced by a diagnosis file (362.3) with IB v2.0. "*" for deletion
+79 ;;^DD(399,68,23,2,0)
+80 ;;=on 11/10/93.
+81 ;;^DD(399,68,"DT")
+82 ;;=2931110
+83 ;;^DD(399,101,0)
+84 ;;=PRIMARY INSURANCE CARRIER^R*P36'X^DIC(36,^M;1^D DD^IBCNS S DIC("S")="I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""AIC"",+Y))" D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X
+85 ;;^DD(399,101,1,0)
+86 ;;=^.1
+87 ;;^DD(399,101,1,1,0)
+88 ;;=399^AI1^MUMPS
+89 ;;^DD(399,101,1,1,1)
+90 ;;=D MAILA^IBCU5
+91 ;;^DD(399,101,1,1,2)
+92 ;;=Q
+93 ;;^DD(399,101,1,1,"%D",0)
+94 ;;=^^9^9^2931220^^^^
+95 ;;^DD(399,101,1,1,"%D",1,0)
+96 ;;= - calls MAILA to set mailing address (399,104-109,121) to primary
+97 ;;^DD(399,101,1,1,"%D",2,0)
+98 ;;= insurer's address
+99 ;;^DD(399,101,1,1,"%D",3,0)
+100 ;;=
+101 ;;^DD(399,101,1,1,"%D",4,0)
+102 ;;=NOTE: I1 and AIC x-refs now set by field 112.
+103 ;;^DD(399,101,1,1,"%D",5,0)
+104 ;;=If X is one of the patients active/valid insurance companies:
+105 ;;^DD(399,101,1,1,"%D",6,0)
+106 ;;= - sets the node "I1" to detailed data on the insurance company
+107 ;;^DD(399,101,1,1,"%D",7,0)
+108 ;;= (2,.312, entire node .01-17)
+109 ;;^DD(399,101,1,1,"%D",8,0)
+110 ;;= - sets x-ref "AIC": subfile x-ref of insurance carriers (399,101-103)
+111 ;;^DD(399,101,1,1,"%D",9,0)
+112 ;;=
+113 ;;^DD(399,101,1,1,"DT")
+114 ;;=2931220
+115 ;;^DD(399,101,1,2,0)
+116 ;;=399^AREV4^MUMPS
