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

IBINI068.m

Go to the documentation of this file. 
  1. IBINI068	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(356.2)  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.2,.28,1,1,"DT")
  1. 	;;=2930729
  1. 	;;^DD(356.2,.28,3)
  1. 	;;=Answer must be 3-18 characters in length.
  1. 	;;^DD(356.2,.28,21,0)
  1. 	;;=6^^6^6^2940213^
  1. 	;;^DD(356.2,.28,21,1,0)
  1. 	;;=Enter the treatment authorization number that the insurance company gave
  1. 	;;^DD(356.2,.28,21,2,0)
  1. 	;;=you during this contact.
  1. 	;;^DD(356.2,.28,21,3,0)
  1. 	;;= 
  1. 	;;^DD(356.2,.28,21,4,0)
  1. 	;;=The data in this field if it exists will be considered the Treatment
  1. 	;;^DD(356.2,.28,21,5,0)
  1. 	;;=Authorization code for this care and will automatically used by the
  1. 	;;^DD(356.2,.28,21,6,0)
  1. 	;;=billing module.
  1. 	;;^DD(356.2,.28,"DT")
  1. 	;;=2931220
  1. 	;;^DD(356.2,.29,0)
  1. 	;;=FINAL OUTCOME OF APPEAL^S^1:APPROVED;2:DENIED;3:PARITIAL APPROVAL;^0;29^Q
  1. 	;;^DD(356.2,.29,21,0)
  1. 	;;=^^5^5^2930825^
  1. 	;;^DD(356.2,.29,21,1,0)
  1. 	;;=Enter the final outcome of this appeal.  Did the insurance company
  1. 	;;^DD(356.2,.29,21,2,0)
  1. 	;;=approve, partially approve or deny this appeal?
  1. 	;;^DD(356.2,.29,21,3,0)
  1. 	;;= 
  1. 	;;^DD(356.2,.29,21,4,0)
  1. 	;;=If the appeal was approved or partially approved you may enter the
  1. 	;;^DD(356.2,.29,21,5,0)
  1. 	;;=dates that it was approved for.
  1. 	;;^DD(356.2,.29,"DT")
  1. 	;;=2930825
  1. 	;;^DD(356.2,1.01,0)
  1. 	;;=DATE ENTERED^D^^1;1^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(356.2,1.01,21,0)
  1. 	;;=^^3^3^2930806^
  1. 	;;^DD(356.2,1.01,21,1,0)
  1. 	;;=This is the date this contact was entered into the computer.  It is
  1. 	;;^DD(356.2,1.01,21,2,0)
  1. 	;;=generated when the contact is entered and is not editable by the 
  1. 	;;^DD(356.2,1.01,21,3,0)
  1. 	;;=user.
  1. 	;;^DD(356.2,1.01,22)
  1. 	;;=
  1. 	;;^DD(356.2,1.01,"DT")
  1. 	;;=2930610
  1. 	;;^DD(356.2,1.02,0)
  1. 	;;=ENTERED BY^P200'^VA(200,^1;2^Q
  1. 	;;^DD(356.2,1.02,21,0)
  1. 	;;=^^4^4^2930806^
  1. 	;;^DD(356.2,1.02,21,1,0)
  1. 	;;=This is the user who was signed on to the computer system when this
  1. 	;;^DD(356.2,1.02,21,2,0)
  1. 	;;=contact was created.  If this contact was created automatically by the
  1. 	;;^DD(356.2,1.02,21,3,0)
  1. 	;;=computer from an admission or discharge, then this might be a user from
  1. 	;;^DD(356.2,1.02,21,4,0)
  1. 	;;=IRM, MAS, or other service.
  1. 	;;^DD(356.2,1.02,"DT")
  1. 	;;=2930610
  1. 	;;^DD(356.2,1.03,0)
  1. 	;;=DATE LAST EDITED^D^^1;3^S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(356.2,1.03,21,0)
  1. 	;;=^^3^3^2940213^^
  1. 	;;^DD(356.2,1.03,21,1,0)
  1. 	;;=This is the date that this contact was last edited by a user using
  1. 	;;^DD(356.2,1.03,21,2,0)
  1. 	;;=the input options.  After every editing sequence the files are checked
  1. 	;;^DD(356.2,1.03,21,3,0)
  1. 	;;=for changes.  If any are noted then this field is updated.
  1. 	;;^DD(356.2,1.03,"DT")
  1. 	;;=2930610
  1. 	;;^DD(356.2,1.04,0)
  1. 	;;=LAST EDITED BY^P200'^VA(200,^1;4^Q
  1. 	;;^DD(356.2,1.04,21,0)
  1. 	;;=^^1^1^2930806^
  1. 	;;^DD(356.2,1.04,21,1,0)
  1. 	;;=This is the user that last edited this contact using the input screens.
  1. 	;;^DD(356.2,1.04,"DT")
  1. 	;;=2930610
  1. 	;;^DD(356.2,1.05,0)
  1. 	;;=HEALTH INSURANCE POLICY^RFXO^^1;5^K:$L(X)>30!($L(X)<1) X D:$D(X) DD^IBTRC2(X,DA)
  1. 	;;^DD(356.2,1.05,1,0)
  1. 	;;=^.1
  1. 	;;^DD(356.2,1.05,1,1,0)
  1. 	;;=^^TRIGGER^356.2^.08
  1. 	;;^DD(356.2,1.05,1,1,1)
  1. 	;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(356.2,1.05,1,1,1.1) X ^DD(356.2,1.05,1,1,1.4)
  1. 	;;^DD(356.2,1.05,1,1,1.1)
  1. 	;;=S X=DIV S X=+$$INSCO^IBTRC2(DA,$P(^IBT(356.2,DA,1),U,5))
  1. 	;;^DD(356.2,1.05,1,1,1.4)
  1. 	;;=S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=356.2,DIG=.08 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. 	;;^DD(356.2,1.05,1,1,2)
  1. 	;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(356.2,1.05,1,1,2.4)
  1. 	;;^DD(356.2,1.05,1,1,2.4)
  1. 	;;=S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=356.2,DIG=.08 D ^DICR:$N(^DD(DIH,DIG,1,0))>0