Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBINI05G

IBINI05G.m

Go to the documentation of this file. 
  1. IBINI05G	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(356)  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
  1. Q	Q
  1. 	;;^DD(356,.12,1,3,2)
  1. 	;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$BILL^IBTUTL(DA) X ^DD(356,.12,1,3,2.4)
  1. 	;;^DD(356,.12,1,3,2.4)
  1. 	;;=S DIH=$S($D(^IBT(356,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. 	;;^DD(356,.12,1,3,"%D",0)
  1. 	;;=^^4^4^2940213^^^
  1. 	;;^DD(356,.12,1,3,"%D",1,0)
  1. 	;;=Deletes the Earliest Auto Bill Date (.17) if an Other Type of Bill is
  1. 	;;^DD(356,.12,1,3,"%D",2,0)
  1. 	;;=entered, the event may need a rate type other than reimbursable ins.
  1. 	;;^DD(356,.12,1,3,"%D",3,0)
  1. 	;;=and therefore should not be billed by the automated biller.
  1. 	;;^DD(356,.12,1,3,"%D",4,0)
  1. 	;;=Re-sets EABD if Other Type of Bill is deleted.
  1. 	;;^DD(356,.12,1,3,"CREATE VALUE")
  1. 	;;=@
  1. 	;;^DD(356,.12,1,3,"DELETE VALUE")
  1. 	;;=S X=$$BILL^IBTUTL(DA)
  1. 	;;^DD(356,.12,1,3,"DT")
  1. 	;;=2930824
  1. 	;;^DD(356,.12,1,3,"FIELD")
  1. 	;;=EARLIEST AUTO BILL DATE
  1. 	;;^DD(356,.12,21,0)
  1. 	;;=^^4^4^2940213^^^^
  1. 	;;^DD(356,.12,21,1,0)
  1. 	;;=If this claims tracking entry can be billed as other than an insurance
  1. 	;;^DD(356,.12,21,2,0)
  1. 	;;=claim or a patient bill enter the type of claim.  If a patient has
  1. 	;;^DD(356,.12,21,3,0)
  1. 	;;=ever had a claim type other than insurance then special warnings may
  1. 	;;^DD(356,.12,21,4,0)
  1. 	;;=be given in the billing and claims tracking package.
  1. 	;;^DD(356,.12,"DT")
  1. 	;;=2930824
  1. 	;;^DD(356,.14,0)
  1. 	;;=SECOND OPINION REQUIRED^S^1:YES;0:NO;^0;14^Q
  1. 	;;^DD(356,.14,21,0)
  1. 	;;=^^2^2^2930712^
  1. 	;;^DD(356,.14,21,1,0)
  1. 	;;=If this patient insurance policy requires a second opinion enter 'YES'.
  1. 	;;^DD(356,.14,21,2,0)
  1. 	;;=If a second opinion is not required then enter 'NO'.
  1. 	;;^DD(356,.14,"DT")
  1. 	;;=2930609
  1. 	;;^DD(356,.15,0)
  1. 	;;=SECOND OPINION OBTAINED^S^1:YES;0:NO;^0;15^Q
  1. 	;;^DD(356,.15,3)
  1. 	;;=
  1. 	;;^DD(356,.15,21,0)
  1. 	;;=^^8^8^2940213^^
  1. 	;;^DD(356,.15,21,1,0)
  1. 	;;=If a second opinion was required by this patients' insurance policy,
  1. 	;;^DD(356,.15,21,2,0)
  1. 	;;=enter 'YES' if it was obtained or 'NO' if it was not obtained.  If
  1. 	;;^DD(356,.15,21,3,0)
  1. 	;;=a second opinion was obtained but did not meet the insurance companies
  1. 	;;^DD(356,.15,21,4,0)
  1. 	;;=criteria for any reason, enter 'NO'.
  1. 	;;^DD(356,.15,21,5,0)
  1. 	;;= 
  1. 	;;^DD(356,.15,21,6,0)
  1. 	;;=This field will be used to help determine the estimated reimbursement
  1. 	;;^DD(356,.15,21,7,0)
  1. 	;;=from the insurance carrier.  If a second opinion was not obtained
  1. 	;;^DD(356,.15,21,8,0)
  1. 	;;=certain denials and penalties may be assessed.
  1. 	;;^DD(356,.15,"DT")
  1. 	;;=2930609
  1. 	;;^DD(356,.17,0)
  1. 	;;=EARLIEST AUTO BILL DATE^D^^0;17^S %DT="EX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(356,.17,1,0)
  1. 	;;=^.1
  1. 	;;^DD(356,.17,1,1,0)
  1. 	;;=356^ABD
  1. 	;;^DD(356,.17,1,1,1)
  1. 	;;=S ^IBT(356,"ABD",$E(X,1,30),DA)=""
  1. 	;;^DD(356,.17,1,1,2)
  1. 	;;=K ^IBT(356,"ABD",$E(X,1,30),DA)
  1. 	;;^DD(356,.17,1,1,"%D",0)
  1. 	;;=^^1^1^2930709^
  1. 	;;^DD(356,.17,1,1,"%D",1,0)
  1. 	;;=Regular cross reference of auto bill date field.
  1. 	;;^DD(356,.17,1,1,"DT")
  1. 	;;=2930709
  1. 	;;^DD(356,.17,1,2,0)
  1. 	;;=356^ATOBIL1^MUMPS
  1. 	;;^DD(356,.17,1,2,1)
  1. 	;;=S:$P(^IBT(356,DA,0),U,2)&($P(^(0),U,18)) ^IBT(356,"ATOBIL",+$P(^(0),U,2),+$P(^(0),U,18),+X,DA)=""
  1. 	;;^DD(356,.17,1,2,2)
  1. 	;;=K ^IBT(356,"ATOBIL",+$P(^IBT(356,DA,0),U,2),+$P(^(0),U,18),+X,DA)
  1. 	;;^DD(356,.17,1,2,"%D",0)
  1. 	;;=^^3^3^2930824^^
  1. 	;;^DD(356,.17,1,2,"%D",1,0)
  1. 	;;=Cross-reference of all billable, non-billed events by patient, event type,
  1. 	;;^DD(356,.17,1,2,"%D",2,0)
  1. 	;;=and earliest auto bill date.  Only events with entries in this x-ref
  1. 	;;^DD(356,.17,1,2,"%D",3,0)
  1. 	;;=will be considered for inclusion on a bill by the automated biller.