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

IBINI069.m

Go to the documentation of this file. 
  1. IBINI069	; ; 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,1.05,1,1,"CREATE VALUE")
  1. 	;;=S X=+$$INSCO^IBTRC2(DA,$P(^IBT(356.2,DA,1),U,5))
  1. 	;;^DD(356.2,1.05,1,1,"DELETE VALUE")
  1. 	;;=@
  1. 	;;^DD(356.2,1.05,1,1,"FIELD")
  1. 	;;=#.08
  1. 	;;^DD(356.2,1.05,2)
  1. 	;;=S Y(0)=Y S Y=$$TRANS^IBTRC2(DA,Y)
  1. 	;;^DD(356.2,1.05,2.1)
  1. 	;;=S Y=$$TRANS^IBTRC2(DA,Y)
  1. 	;;^DD(356.2,1.05,3)
  1. 	;;=Select the policy for the insurance company that you contacted.
  1. 	;;^DD(356.2,1.05,4)
  1. 	;;=D DDHELP^IBTRC2(DA)
  1. 	;;^DD(356.2,1.05,5,1,0)
  1. 	;;=356.2^.05^3
  1. 	;;^DD(356.2,1.05,21,0)
  1. 	;;=^^2^2^2940213^^^^
  1. 	;;^DD(356.2,1.05,21,1,0)
  1. 	;;=Select the policy for this patient that you are contacting the insurance
  1. 	;;^DD(356.2,1.05,21,2,0)
  1. 	;;=company for.
  1. 	;;^DD(356.2,1.05,23,0)
  1. 	;;=^^4^4^2940213^^^
  1. 	;;^DD(356.2,1.05,23,1,0)
  1. 	;;=This field points to the patient insurance type field in the patient file.
  1. 	;;^DD(356.2,1.05,23,2,0)
  1. 	;;=It is used to do look-ups on the ins. type multiple and to display
  1. 	;;^DD(356.2,1.05,23,3,0)
  1. 	;;=help.  It is needed because a patient may have more than one entry with
  1. 	;;^DD(356.2,1.05,23,4,0)
  1. 	;;=the same ins. co. and same policy except for different effective dates.
  1. 	;;^DD(356.2,1.05,"DT")
  1. 	;;=2931108
  1. 	;;^DD(356.2,1.07,0)
  1. 	;;=DENY ENTIRE ADMISSION^*S^0:NO;1:YES;^1;7^Q
  1. 	;;^DD(356.2,1.07,3)
  1. 	;;=
  1. 	;;^DD(356.2,1.07,4)
  1. 	;;=D HELP^IBTUTL3(DA)
  1. 	;;^DD(356.2,1.07,12)
  1. 	;;=An entire admission can only be authorized or denied once.
  1. 	;;^DD(356.2,1.07,12.1)
  1. 	;;=S DIC("S")="I $S(Y:$$DEA^IBTUTL4(DA,Y),1:1)"
  1. 	;;^DD(356.2,1.07,21,0)
  1. 	;;=^^8^8^2940127^^^
  1. 	;;^DD(356.2,1.07,21,1,0)
  1. 	;;=If the insurance company denies the entire admission for reimbursement
  1. 	;;^DD(356.2,1.07,21,2,0)
  1. 	;;=then enter YES.  You will then not asked to enter the Care Denied From
  1. 	;;^DD(356.2,1.07,21,3,0)
  1. 	;;=and Care Denied To questions for this admission.  If you want to enter
  1. 	;;^DD(356.2,1.07,21,4,0)
  1. 	;;=the dates care was denied from and to, then answer NO.
  1. 	;;^DD(356.2,1.07,21,5,0)
  1. 	;;= 
  1. 	;;^DD(356.2,1.07,21,6,0)
  1. 	;;=If this question is answered YES, then the days denied for this episode
  1. 	;;^DD(356.2,1.07,21,7,0)
  1. 	;;=will be the admission to discharge date and any report will use the portion
  1. 	;;^DD(356.2,1.07,21,8,0)
  1. 	;;=of the episode that falls within the date range of the report.   
  1. 	;;^DD(356.2,1.07,"DT")
  1. 	;;=2940127
  1. 	;;^DD(356.2,1.08,0)
  1. 	;;=AUTHORIZE ENTIRE ADMISSION^*S^0:NO;1:YES;^1;8^Q
  1. 	;;^DD(356.2,1.08,4)
  1. 	;;=D HELP^IBTUTL3(DA)
  1. 	;;^DD(356.2,1.08,12)
  1. 	;;= An entire admission can only be authorized or denied once.
  1. 	;;^DD(356.2,1.08,12.1)
  1. 	;;=S DIC("S")="I $S(Y:$$AEA^IBTUTL4(DA,Y),1:1)"
  1. 	;;^DD(356.2,1.08,21,0)
  1. 	;;=^^8^8^2940127^^
  1. 	;;^DD(356.2,1.08,21,1,0)
  1. 	;;=If the insurance company authorizes the entire admission for reimbursement
  1. 	;;^DD(356.2,1.08,21,2,0)
  1. 	;;=then enter YES.  You will then not asked to enter the Care Authorized From
  1. 	;;^DD(356.2,1.08,21,3,0)
  1. 	;;=and Care Authorized To questions for this admission.  If you want to enter
  1. 	;;^DD(356.2,1.08,21,4,0)
  1. 	;;=the dates care was authorized from and to, then answer NO.
  1. 	;;^DD(356.2,1.08,21,5,0)
  1. 	;;= 
  1. 	;;^DD(356.2,1.08,21,6,0)
  1. 	;;=If this question is answered YES, then the days authorized for this episode
  1. 	;;^DD(356.2,1.08,21,7,0)
  1. 	;;=will be the admission to discharge date and any report will use the portion
  1. 	;;^DD(356.2,1.08,21,8,0)
  1. 	;;=of the episode that falls within the date range of the report.
  1. 	;;^DD(356.2,1.08,"DT")
  1. 	;;=2940127
  1. 	;;^DD(356.2,11,0)
  1. 	;;=COMMENTS^356.211^^11;0
  1. 	;;^DD(356.2,11,21,0)
  1. 	;;=^^3^3^2940213^^
  1. 	;;^DD(356.2,11,21,1,0)
  1. 	;;=This field is used to store long textual information about the contact.
  1. 	;;^DD(356.2,11,21,2,0)
  1. 	;;=This may be used to document specific information that is not captured