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

IBINI02K.m

Go to the documentation of this file. 
  1. IBINI02K	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(350.9)  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(350.9,1.2,"DT")
  1. 	;;=2920302
  1. 	;;^DD(350.9,1.21,0)
  1. 	;;=MEDICARE PROVIDER NUMBER^F^^1;21^K:$L(X)>8!($L(X)<1) X
  1. 	;;^DD(350.9,1.21,3)
  1. 	;;=Enter the number Medicare provided your facility.  Answer must be 1-8 characters in length.
  1. 	;;^DD(350.9,1.21,21,0)
  1. 	;;=^^2^2^2940209^^^^
  1. 	;;^DD(350.9,1.21,21,1,0)
  1. 	;;=This is the 1-8 character number provided by Medicare to the facility.
  1. 	;;^DD(350.9,1.21,21,2,0)
  1. 	;;= 
  1. 	;;^DD(350.9,1.21,22)
  1. 	;;=
  1. 	;;^DD(350.9,1.21,"DT")
  1. 	;;=2920306
  1. 	;;^DD(350.9,1.22,0)
  1. 	;;=MULTIPLE FORM TYPES^S^1:YES;0:NO;^1;22^Q
  1. 	;;^DD(350.9,1.22,3)
  1. 	;;=Enter 'Y'es if your facility uses the HCFA 1500 as well as one of the UB claim forms.
  1. 	;;^DD(350.9,1.22,21,0)
  1. 	;;=^^7^7^2940209^^^^
  1. 	;;^DD(350.9,1.22,21,1,0)
  1. 	;;=Set this field to 'YES' if the facility uses more than one health insurance
  1. 	;;^DD(350.9,1.22,21,2,0)
  1. 	;;=form type.  The UB-82 and the UB-92 are considered a single form because
  1. 	;;^DD(350.9,1.22,21,3,0)
  1. 	;;=one is replacing the other.  Therefore, if your site uses one of the UB
  1. 	;;^DD(350.9,1.22,21,4,0)
  1. 	;;=forms and the HCFA 1500 then this should be answered 'YES'.  If your site
  1. 	;;^DD(350.9,1.22,21,5,0)
  1. 	;;=is only using the UB forms (UB-82 and/or UB-92) then answer 'NO'.  If this
  1. 	;;^DD(350.9,1.22,21,6,0)
  1. 	;;=is set to 'NO' or left blank then only the UB type claim forms will be 
  1. 	;;^DD(350.9,1.22,21,7,0)
  1. 	;;=allowed.
  1. 	;;^DD(350.9,1.22,"DT")
  1. 	;;=2920414
  1. 	;;^DD(350.9,1.23,0)
  1. 	;;=CAN INITIATOR AUTHORIZE?^S^1:YES;0:NO;^1;23^Q
  1. 	;;^DD(350.9,1.23,21,0)
  1. 	;;=^^6^6^2920428^
  1. 	;;^DD(350.9,1.23,21,1,0)
  1. 	;;=Beginning with IB Version 1.5, the Review step in creating a bill has
  1. 	;;^DD(350.9,1.23,21,2,0)
  1. 	;;=been eliminated.  If this parameter is answered YES and the initiator
  1. 	;;^DD(350.9,1.23,21,3,0)
  1. 	;;=holds the IB AUTHORIZE key then the initiator
  1. 	;;^DD(350.9,1.23,21,4,0)
  1. 	;;=of the bill will be allowed to Authorize the Bill.  If this is answered
  1. 	;;^DD(350.9,1.23,21,5,0)
  1. 	;;=no then another user who holds the IB AUTHORIZE key will have to authorize
  1. 	;;^DD(350.9,1.23,21,6,0)
  1. 	;;=the bill.
  1. 	;;^DD(350.9,1.23,"DT")
  1. 	;;=2920428
  1. 	;;^DD(350.9,1.24,0)
  1. 	;;=BASC START DATE^D^^1;24^S %DT="EX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(350.9,1.24,21,0)
  1. 	;;=^^6^6^2920616^^^^
  1. 	;;^DD(350.9,1.24,21,1,0)
  1. 	;;=This is the date that facilities can begin billing Ambulatory Surgical
  1. 	;;^DD(350.9,1.24,21,2,0)
  1. 	;;=Code Rates.  The earliest date is the date that IB Version 1.5 was installed
  1. 	;;^DD(350.9,1.24,21,3,0)
  1. 	;;=at the site or the date the regulation allowing BASC billing was approved.
  1. 	;;^DD(350.9,1.24,21,4,0)
  1. 	;;=This date will be stored automatically in the file.
  1. 	;;^DD(350.9,1.24,21,5,0)
  1. 	;;= 
  1. 	;;^DD(350.9,1.24,21,6,0)
  1. 	;;=If this field is null then BASC rates will not automatically calculate.
  1. 	;;^DD(350.9,1.24,"DT")
  1. 	;;=2920506
  1. 	;;^DD(350.9,1.25,0)
  1. 	;;=DEFAULT DIVISION^P40.8^DG(40.8,^1;25^Q
  1. 	;;^DD(350.9,1.25,3)
  1. 	;;=Enter the division you wish to show as a default division when entering procedures into a bill.
  1. 	;;^DD(350.9,1.25,21,0)
  1. 	;;=^^2^2^2920526^
  1. 	;;^DD(350.9,1.25,21,1,0)
  1. 	;;=This field will be used as the default answer to the division question when
  1. 	;;^DD(350.9,1.25,21,2,0)
  1. 	;;=entering Billable Ambulatory Surgeries into a bill.
  1. 	;;^DD(350.9,1.25,"DT")
  1. 	;;=2920526
  1. 	;;^DD(350.9,1.26,0)
  1. 	;;=DEFAULT FORM TYPE^*P353'^IBE(353,^1;26^S DIC("S")="I $P(^IBE(353,Y,0),U,1)[""UB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  1. 	;;^DD(350.9,1.26,3)
  1. 	;;=Enter the form type that is most commonly used at your facility.
  1. 	;;^DD(350.9,1.26,12)
  1. 	;;=Only UB form types can be chosen.
  1. 	;;^DD(350.9,1.26,12.1)
  1. 	;;=S DIC("S")="I $P(^IBE(353,Y,0),U,1)[""UB"""