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

IBINI067.m

Go to the documentation of this file. 
  1. IBINI067	; ; 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,.23,"DT")
  1. 	;;=2930610
  1. 	;;^DD(356.2,.24,0)
  1. 	;;=NEXT REVIEW DATE^D^^0;24^S %DT="EX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(356.2,.24,1,0)
  1. 	;;=^.1
  1. 	;;^DD(356.2,.24,1,1,0)
  1. 	;;=356.2^APEND
  1. 	;;^DD(356.2,.24,1,1,1)
  1. 	;;=S ^IBT(356.2,"APEND",$E(X,1,30),DA)=""
  1. 	;;^DD(356.2,.24,1,1,2)
  1. 	;;=K ^IBT(356.2,"APEND",$E(X,1,30),DA)
  1. 	;;^DD(356.2,.24,1,1,"%D",0)
  1. 	;;=^^1^1^2930804^
  1. 	;;^DD(356.2,.24,1,1,"%D",1,0)
  1. 	;;=This cross-refence is used to find contacts that need futher action.
  1. 	;;^DD(356.2,.24,1,1,"DT")
  1. 	;;=2930804
  1. 	;;^DD(356.2,.24,5,1,0)
  1. 	;;=356.2^.13^1
  1. 	;;^DD(356.2,.24,5,2,0)
  1. 	;;=356.2^.16^1
  1. 	;;^DD(356.2,.24,5,3,0)
  1. 	;;=356.2^.19^2
  1. 	;;^DD(356.2,.24,5,4,0)
  1. 	;;=356.2^.1^1
  1. 	;;^DD(356.2,.24,21,0)
  1. 	;;=^^9^9^2940213^^
  1. 	;;^DD(356.2,.24,21,1,0)
  1. 	;;=This is the date that this should show up on your Pending Work list.  If
  1. 	;;^DD(356.2,.24,21,2,0)
  1. 	;;=you have entered an admission review with a next review date in three
  1. 	;;^DD(356.2,.24,21,3,0)
  1. 	;;=days, you will, in three days, have either a continued stay review or
  1. 	;;^DD(356.2,.24,21,4,0)
  1. 	;;=a discharge review to do depending on the patient's status.  If this
  1. 	;;^DD(356.2,.24,21,5,0)
  1. 	;;=is a denial contact an the next review date is in three days, in three
  1. 	;;^DD(356.2,.24,21,6,0)
  1. 	;;=days you will show and appeal that needs to be done.  Etc.
  1. 	;;^DD(356.2,.24,21,7,0)
  1. 	;;= 
  1. 	;;^DD(356.2,.24,21,8,0)
  1. 	;;=If no entry is in this field then you will not be reminded of pending
  1. 	;;^DD(356.2,.24,21,9,0)
  1. 	;;=work.
  1. 	;;^DD(356.2,.24,"DT")
  1. 	;;=2930804
  1. 	;;^DD(356.2,.25,0)
  1. 	;;=NUMBER OF DAYS PENDING APPEAL^NJ3,0^^0;25^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(356.2,.25,3)
  1. 	;;=Type a Number between 1 and 999, 0 Decimal Digits
  1. 	;;^DD(356.2,.25,21,0)
  1. 	;;=^^3^3^2930806^
  1. 	;;^DD(356.2,.25,21,1,0)
  1. 	;;=If the insurance company denied reimbursement for days of care, either
  1. 	;;^DD(356.2,.25,21,2,0)
  1. 	;;=in part or in total, and you are appealing that denial, then enter the
  1. 	;;^DD(356.2,.25,21,3,0)
  1. 	;;=number of days being appealed.
  1. 	;;^DD(356.2,.25,"DT")
  1. 	;;=2930812
  1. 	;;^DD(356.2,.26,0)
  1. 	;;=OUTPATIENT TREATMENT^F^^0;26^K:$L(X)>20!($L(X)<3) X
  1. 	;;^DD(356.2,.26,3)
  1. 	;;=Answer must be 3-20 characters in length.
  1. 	;;^DD(356.2,.26,21,0)
  1. 	;;=^^4^4^2940213^^
  1. 	;;^DD(356.2,.26,21,1,0)
  1. 	;;=If this contact is to determine if a particular outpatient
  1. 	;;^DD(356.2,.26,21,2,0)
  1. 	;;=treatment will be authorized for reimbursement, this is the 
  1. 	;;^DD(356.2,.26,21,3,0)
  1. 	;;=outpatient treatment that is authorized.  Enter the free-text
  1. 	;;^DD(356.2,.26,21,4,0)
  1. 	;;=description of the outpatient treatment.
  1. 	;;^DD(356.2,.26,"DT")
  1. 	;;=2930610
  1. 	;;^DD(356.2,.27,0)
  1. 	;;=TREATMENT AUTHORIZED^S^1:YES;0:NO;^0;27^Q
  1. 	;;^DD(356.2,.27,21,0)
  1. 	;;=^^5^5^2940213^^^
  1. 	;;^DD(356.2,.27,21,1,0)
  1. 	;;=Entry 'YES' if this was authorized or 'NO' if it was not authorized.
  1. 	;;^DD(356.2,.27,21,2,0)
  1. 	;;= 
  1. 	;;^DD(356.2,.27,21,3,0)
  1. 	;;=If this contact is to determine if a particular outpatient 
  1. 	;;^DD(356.2,.27,21,4,0)
  1. 	;;=treatment is authorized for reimbursement, then this is
  1. 	;;^DD(356.2,.27,21,5,0)
  1. 	;;=whether or not the treatment was authorized.  
  1. 	;;^DD(356.2,.27,"DT")
  1. 	;;=2930610
  1. 	;;^DD(356.2,.28,0)
  1. 	;;=AUTHORIZATION NUMBER^F^^0;28^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<3) X
  1. 	;;^DD(356.2,.28,1,0)
  1. 	;;=^.1
  1. 	;;^DD(356.2,.28,1,1,0)
  1. 	;;=356.2^APRE1^MUMPS
  1. 	;;^DD(356.2,.28,1,1,1)
  1. 	;;=S:$P(^IBT(356.2,DA,0),U,2) ^IBT(356.2,"APRE",+$P(^(0),U,2),X,DA)=""
  1. 	;;^DD(356.2,.28,1,1,2)
  1. 	;;=K ^IBT(356.2,"APRE",+$P(^IBT(356.2,DA,0),U,2),X,DA)
  1. 	;;^DD(356.2,.28,1,1,"%D",0)
  1. 	;;=^^1^1^2930729^
  1. 	;;^DD(356.2,.28,1,1,"%D",1,0)
  1. 	;;=Cross-reference of pre-cert numbers by tracking id.