Routine: IBINI0A0

IBINI0A0	; ; 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,.15,3)

	;;=Enter the bill that this bill was copied from.

	;;^DD(399,.15,12)

	;;=BILL MUST BE CANCELLED TO COPY

	;;^DD(399,.15,12.1)

	;;=S DIC("S")="I $P(^(0),U,13)=7"

	;;^DD(399,.15,21,0)

	;;=^^3^3^2920211^^

	;;^DD(399,.15,21,1,0)

	;;=If this bill was copied from another bill, then this will be the bill

	;;^DD(399,.15,21,2,0)

	;;=it was copied from.  This field is automatically completed by the

	;;^DD(399,.15,21,3,0)

	;;=Copy and Cancel option.

	;;^DD(399,.15,"DT")

	;;=2900126

	;;^DD(399,.16,0)

	;;=NON-VA DISCHARGE DATE^D^^0;16^S %DT="EX" D ^%DT S X=Y K:Y<1 X

	;;^DD(399,.16,3)

	;;=Enter the discharge date for this admission.  It must be since the admission    date and not in the future.

	;;^DD(399,.16,21,0)

	;;=^^3^3^2900420^

	;;^DD(399,.16,21,1,0)

	;;=This is the discharge date for NON-VA Admissions when no associated PTF

	;;^DD(399,.16,21,2,0)

	;;=record exists.  The date entered must be after the admission date and

	;;^DD(399,.16,21,3,0)

	;;=not into the future.

	;;^DD(399,.16,"DT")

	;;=2900420

	;;^DD(399,.17,0)

	;;=PRIMARY BILL^P399'^DGCR(399,^0;17^Q

	;;^DD(399,.17,1,0)

	;;=^.1

	;;^DD(399,.17,1,1,0)

	;;=399^AC

	;;^DD(399,.17,1,1,1)

	;;=S ^DGCR(399,"AC",$E(X,1,30),DA)=""

	;;^DD(399,.17,1,1,2)

	;;=K ^DGCR(399,"AC",$E(X,1,30),DA)

	;;^DD(399,.17,21,0)

	;;=^^3^3^2920211^^

	;;^DD(399,.17,21,1,0)

	;;=This is the initial bill that this episode is associated with.

	;;^DD(399,.17,21,2,0)

	;;=If an episode of care has more than one bill but multiple event dates, then

	;;^DD(399,.17,21,3,0)

	;;=this field can be used.

	;;^DD(399,.17,"DT")

	;;=2900524

	;;^DD(399,.18,0)

	;;=SC AT TIME OF CARE^FXO^^0;18^I $D(X) D YN^IBCU

	;;^DD(399,.18,2)

	;;=S Y(0)=Y S Y=$S(Y:"YES",Y=0:"NO",1:"")

	;;^DD(399,.18,2.1)

	;;=S Y=$S(Y:"YES",Y=0:"NO",1:"")

	;;^DD(399,.18,3)

	;;=Was this patient Service Connected for any condition during the timeframe of this bill?  Answer 'Yes' or 'No'.

	;;^DD(399,.18,21,0)

	;;=^^8^8^2920610^^^^

	;;^DD(399,.18,21,1,0)

	;;=Was this patient Service Connected for any condition at the time the

	;;^DD(399,.18,21,2,0)

	;;=care in the bill was rendered.  This field is used to correctly assign

	;;^DD(399,.18,21,3,0)

	;;=Accounts Receivable AMIS segments to this bill if it is a Reimbursable

	;;^DD(399,.18,21,4,0)

	;;=Insurance bill.  Answer 'Yes' or 'No'.

	;;^DD(399,.18,21,5,0)

;;=

	;;^DD(399,.18,21,6,0)

	;;=The default for this field is the current value in the SC PATIENT field

	;;^DD(399,.18,21,7,0)

	;;=of the patient file.  If this field is left blank, the default value

	;;^DD(399,.18,21,8,0)

	;;=will be used to determine the AMIS segment.

	;;^DD(399,.18,"DT")

	;;=2910913

	;;^DD(399,.19,0)

	;;=FORM TYPE^RP353'^IBE(353,^0;19^Q

	;;^DD(399,.19,1,0)

	;;=^.1

	;;^DD(399,.19,1,1,0)

	;;=^^TRIGGER^399^.09

	;;^DD(399,.19,1,1,1)

	;;=X ^DD(399,.19,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=4 X ^DD(399,.19,1,1,1.4)

	;;^DD(399,.19,1,1,1.3)

	;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,.19,1,1,69.2) S Y(1)=X S X=$P($P(Y(3),$C(59)_$P(Y(2),U,9)_":",2),$C(59),1)="",Y=X,X=Y(1),X=X&Y

	;;^DD(399,.19,1,1,1.4)

	;;=S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=399,DIG=.09 D ^DICR:$N(^DD(DIH,DIG,1,0))>0

	;;^DD(399,.19,1,1,2)

	;;=Q

	;;^DD(399,.19,1,1,69.2)

	;;=S Y(3)=$C(59)_$S($D(^DD(399,.09,0)):$P(^(0),U,3),1:""),Y(2)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$S('$D(^IBE(353,+Y(0),0)):"",1:$P(^(0),U,1))="HCFA 1500"

	;;^DD(399,.19,1,1,"%D",0)

	;;=^^2^2^2920430^

	;;^DD(399,.19,1,1,"%D",1,0)

	;;=If the HCFA 1500 claim form is used and no coding method defined, then

IBINI0A0  ; ; 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,.15,3)

 +2       ;;=Enter the bill that this bill was copied from.

 +3       ;;^DD(399,.15,12)

 +4       ;;=BILL MUST BE CANCELLED TO COPY

 +5       ;;^DD(399,.15,12.1)

 +6       ;;=S DIC("S")="I $P(^(0),U,13)=7"

 +7       ;;^DD(399,.15,21,0)

 +8       ;;=^^3^3^2920211^^

 +9       ;;^DD(399,.15,21,1,0)

 +10      ;;=If this bill was copied from another bill, then this will be the bill

 +11      ;;^DD(399,.15,21,2,0)

 +12      ;;=it was copied from.  This field is automatically completed by the

 +13      ;;^DD(399,.15,21,3,0)

 +14      ;;=Copy and Cancel option.

 +15      ;;^DD(399,.15,"DT")

 +16      ;;=2900126

 +17      ;;^DD(399,.16,0)

 +18      ;;=NON-VA DISCHARGE DATE^D^^0;16^S %DT="EX" D ^%DT S X=Y K:Y<1 X

 +19      ;;^DD(399,.16,3)

 +20      ;;=Enter the discharge date for this admission.  It must be since the admission    date and not in the future.

 +21      ;;^DD(399,.16,21,0)

 +22      ;;=^^3^3^2900420^

 +23      ;;^DD(399,.16,21,1,0)

 +24      ;;=This is the discharge date for NON-VA Admissions when no associated PTF

 +25      ;;^DD(399,.16,21,2,0)

 +26      ;;=record exists.  The date entered must be after the admission date and

 +27      ;;^DD(399,.16,21,3,0)

 +28      ;;=not into the future.

 +29      ;;^DD(399,.16,"DT")

 +30      ;;=2900420

 +31      ;;^DD(399,.17,0)

 +32      ;;=PRIMARY BILL^P399'^DGCR(399,^0;17^Q

 +33      ;;^DD(399,.17,1,0)

 +34      ;;=^.1

 +35      ;;^DD(399,.17,1,1,0)

 +36      ;;=399^AC

 +37      ;;^DD(399,.17,1,1,1)

 +38      ;;=S ^DGCR(399,"AC",$E(X,1,30),DA)=""

 +39      ;;^DD(399,.17,1,1,2)

 +40      ;;=K ^DGCR(399,"AC",$E(X,1,30),DA)

 +41      ;;^DD(399,.17,21,0)

 +42      ;;=^^3^3^2920211^^

 +43      ;;^DD(399,.17,21,1,0)

 +44      ;;=This is the initial bill that this episode is associated with.

 +45      ;;^DD(399,.17,21,2,0)

 +46      ;;=If an episode of care has more than one bill but multiple event dates, then

 +47      ;;^DD(399,.17,21,3,0)

 +48      ;;=this field can be used.

 +49      ;;^DD(399,.17,"DT")

 +50      ;;=2900524

 +51      ;;^DD(399,.18,0)

 +52      ;;=SC AT TIME OF CARE^FXO^^0;18^I $D(X) D YN^IBCU

 +53      ;;^DD(399,.18,2)

 +54      ;;=S Y(0)=Y S Y=$S(Y:"YES",Y=0:"NO",1:"")

 +55      ;;^DD(399,.18,2.1)

 +56      ;;=S Y=$S(Y:"YES",Y=0:"NO",1:"")

 +57      ;;^DD(399,.18,3)

 +58      ;;=Was this patient Service Connected for any condition during the timeframe of this bill?  Answer 'Yes' or 'No'.

 +59      ;;^DD(399,.18,21,0)

 +60      ;;=^^8^8^2920610^^^^

 +61      ;;^DD(399,.18,21,1,0)

 +62      ;;=Was this patient Service Connected for any condition at the time the

 +63      ;;^DD(399,.18,21,2,0)

 +64      ;;=care in the bill was rendered.  This field is used to correctly assign

 +65      ;;^DD(399,.18,21,3,0)

 +66      ;;=Accounts Receivable AMIS segments to this bill if it is a Reimbursable

 +67      ;;^DD(399,.18,21,4,0)

 +68      ;;=Insurance bill.  Answer 'Yes' or 'No'.

 +69      ;;^DD(399,.18,21,5,0)

 +70      ;;=

 +71      ;;^DD(399,.18,21,6,0)

 +72      ;;=The default for this field is the current value in the SC PATIENT field

 +73      ;;^DD(399,.18,21,7,0)

 +74      ;;=of the patient file.  If this field is left blank, the default value

 +75      ;;^DD(399,.18,21,8,0)

 +76      ;;=will be used to determine the AMIS segment.

 +77      ;;^DD(399,.18,"DT")

 +78      ;;=2910913

 +79      ;;^DD(399,.19,0)

 +80      ;;=FORM TYPE^RP353'^IBE(353,^0;19^Q

 +81      ;;^DD(399,.19,1,0)

 +82      ;;=^.1

 +83      ;;^DD(399,.19,1,1,0)

 +84      ;;=^^TRIGGER^399^.09

 +85      ;;^DD(399,.19,1,1,1)

 +86      ;;=X ^DD(399,.19,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=4 X ^DD(399,.19,1,1,1.4)

 +87      ;;^DD(399,.19,1,1,1.3)

 +88      ;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,.19,1,1,69.2) S Y(1)=X S X=$P($P(Y(3),$C(59)_$P(Y(2),U,9)_":",2),$C(59),1)="",Y=X,X=Y(1),X=X&Y

 +89      ;;^DD(399,.19,1,1,1.4)

 +90      ;;=S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=399,DIG=.09 D ^DICR:$N(^DD(DIH,DIG,1,0))>0

 +91      ;;^DD(399,.19,1,1,2)

 +92      ;;=Q

 +93      ;;^DD(399,.19,1,1,69.2)

 +94      ;;=S Y(3)=$C(59)_$S($D(^DD(399,.09,0)):$P(^(0),U,3),1:""),Y(2)=$S($D(^DGCR(399,D0,0)):^(0),1:"") S X=$S('$D(^IBE(353,+Y(0),0)):"",1:$P(^(0),U,1))="HCFA 1500"

 +95      ;;^DD(399,.19,1,1,"%D",0)

 +96      ;;=^^2^2^2920430^

 +97      ;;^DD(399,.19,1,1,"%D",1,0)

 +98      ;;=If the HCFA 1500 claim form is used and no coding method defined, then

IBINI0A0.m