Routine: IBINI0AA

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

IBINI0AA.m