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

IBINI0AR.m

Go to the documentation of this file.
  1. IBINI0AR ; ; 21-MAR-1994
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. Q:'DIFQ(399) 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(399.0304,.01,1,3,"DT")
  1. ;;=2930903
  1. ;;^DD(399.0304,.01,1,3,"FIELD")
  1. ;;=BASC BILLABLE
  1. ;;^DD(399.0304,.01,3)
  1. ;;=Procedure coding must match the PROCEDURE CODING METHOD entry for this bill.
  1. ;;^DD(399.0304,.01,4)
  1. ;;=D 3^IBCSCH1
  1. ;;^DD(399.0304,.01,7.5)
  1. ;;=D ^IBCU7
  1. ;;^DD(399.0304,.01,21,0)
  1. ;;=^^2^2^2930513^^^^
  1. ;;^DD(399.0304,.01,21,1,0)
  1. ;;=These are ICD, CPT, of HCFA procedure codes associated with the episode
  1. ;;^DD(399.0304,.01,21,2,0)
  1. ;;=of care on this bill.
  1. ;;^DD(399.0304,.01,23,0)
  1. ;;=^^1^1^2930513^^^
  1. ;;^DD(399.0304,.01,23,1,0)
  1. ;;=
  1. ;;^DD(399.0304,.01,"DT")
  1. ;;=2930903
  1. ;;^DD(399.0304,.01,"V",0)
  1. ;;=^.12P^2^2
  1. ;;^DD(399.0304,.01,"V",1,0)
  1. ;;=81^CPT^1^CPT^n^n
  1. ;;^DD(399.0304,.01,"V",2,0)
  1. ;;=80.1^ICD operation/procedure^2^ICD^n^n
  1. ;;^DD(399.0304,1,0)
  1. ;;=PROCEDURE DATE^DX^^0;2^S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),$D(IBIFN),'$$OPV2^IBCU41(X,IBIFN,1) K X
  1. ;;^DD(399.0304,1,1,0)
  1. ;;=^.1
  1. ;;^DD(399.0304,1,1,1,0)
  1. ;;=399^ASD1^MUMPS
  1. ;;^DD(399.0304,1,1,1,1)
  1. ;;=I $D(^DGCR(399,DA(1),"CP",DA,0)),+^(0),$P($P(^(0),"^",1),";",2)="ICPT(" S ^DGCR(399,"ASD",-X,+^(0),DA(1),DA)=""
  1. ;;^DD(399.0304,1,1,1,2)
  1. ;;=I $D(^DGCR(399,DA(1),"CP",DA,0)),+^(0),$P($P(^(0),"^",1),";",2)="ICPT(" K ^DGCR(399,"ASD",-X,+^(0),DA(1),DA)
  1. ;;^DD(399.0304,1,1,1,3)
  1. ;;=DO NOT DELETE
  1. ;;^DD(399.0304,1,1,1,"%D",0)
  1. ;;=^^1^1^2930617^^^
  1. ;;^DD(399.0304,1,1,1,"%D",1,0)
  1. ;;=Index procedure date and all CPT procedures.
  1. ;;^DD(399.0304,1,1,1,"DT")
  1. ;;=2920311
  1. ;;^DD(399.0304,1,1,2,0)
  1. ;;=^^TRIGGER^399.0304^4
  1. ;;^DD(399.0304,1,1,2,1)
  1. ;;=K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,"CP",D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(399.0304,1,1,2,1.1) X ^DD(399.0304,1,1,2,1.4)
  1. ;;^DD(399.0304,1,1,2,1.1)
  1. ;;=S X=DIV S X=$$CP^IBEFUNC1(DA(1),DA) I X'="" S X=1
  1. ;;^DD(399.0304,1,1,2,1.4)
  1. ;;=S DIH=$S($D(^DGCR(399,DIV(0),"CP",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=399.0304,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. ;;^DD(399.0304,1,1,2,2)
  1. ;;=K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,"CP",D1,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(399.0304,1,1,2,2.4)
  1. ;;^DD(399.0304,1,1,2,2.4)
  1. ;;=S DIH=$S($D(^DGCR(399,DIV(0),"CP",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=399.0304,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
  1. ;;^DD(399.0304,1,1,2,"%D",0)
  1. ;;=^^1^1^2930903^
  1. ;;^DD(399.0304,1,1,2,"%D",1,0)
  1. ;;=Calculate BASC Billable Status flag.
  1. ;;^DD(399.0304,1,1,2,"CREATE VALUE")
  1. ;;=S X=$$CP^IBEFUNC1(DA(1),DA) I X'="" S X=1
  1. ;;^DD(399.0304,1,1,2,"DELETE VALUE")
  1. ;;=@
  1. ;;^DD(399.0304,1,1,2,"DT")
  1. ;;=2930903
  1. ;;^DD(399.0304,1,1,2,"FIELD")
  1. ;;=BASC BILLABLE
  1. ;;^DD(399.0304,1,3)
  1. ;;=Procedure date must be within the bill's STATEMENT FROM and STATEMENT TO dates.
  1. ;;^DD(399.0304,1,21,0)
  1. ;;=^^1^1^2911025^
  1. ;;^DD(399.0304,1,21,1,0)
  1. ;;=This is the date the procedure was performed.
  1. ;;^DD(399.0304,1,"DT")
  1. ;;=2930903
  1. ;;^DD(399.0304,2,0)
  1. ;;=*ADDITIONAL PROCEDURE NAME^FI^^0;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>28!($L(X)<3)!'(X?.ANP) X
  1. ;;^DD(399.0304,2,.1)
  1. ;;=ADDITIONAL PROCEDURE NAME
  1. ;;^DD(399.0304,2,1,0)
  1. ;;=^.1^^0
  1. ;;^DD(399.0304,2,3)
  1. ;;=Answer must be 3-28 characters in length.
  1. ;;^DD(399.0304,2,9)
  1. ;;=^
  1. ;;^DD(399.0304,2,21,0)
  1. ;;=^^3^3^2920211^^^
  1. ;;^DD(399.0304,2,21,1,0)
  1. ;;=This is the name of the procedure.
  1. ;;^DD(399.0304,2,21,2,0)
  1. ;;=
  1. ;;^DD(399.0304,2,21,3,0)
  1. ;;=This field has been marked for deletion 11/4/91.
  1. ;;^DD(399.0304,2,"DT")
  1. ;;=2911104
  1. ;;^DD(399.0304,3,0)
  1. ;;=PRINT ORDER^NJ2,0X^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X I $D(X),$D(^DGCR(399,DA(1),"CP","D",X)) W !!,*7,"This number already used!" K X