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
