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

IBINI05L.m

Go to the documentation of this file. 
  1. IBINI05L	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(356)  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,.25,.1)
  1. 	;;=RANDOM SAMPLE?
  1. 	;;^DD(356,.25,3)
  1. 	;;=
  1. 	;;^DD(356,.25,21,0)
  1. 	;;=^^7^7^2930712^
  1. 	;;^DD(356,.25,21,1,0)
  1. 	;;=Enter if this is to be tracked as a Random Sample for UR purposes.  The
  1. 	;;^DD(356,.25,21,2,0)
  1. 	;;=Claims tracking module is designed to flag one admission per week
  1. 	;;^DD(356,.25,21,3,0)
  1. 	;;=each from the 3 major bedsections, Medicine, Surgery, and Psychiatry,
  1. 	;;^DD(356,.25,21,4,0)
  1. 	;;=as a random sample that is to have utilization review follow-up.  If
  1. 	;;^DD(356,.25,21,5,0)
  1. 	;;=there is not sufficient activity in your facility for the automated
  1. 	;;^DD(356,.25,21,6,0)
  1. 	;;=tracker to set up the minimum random sample, then you may manually
  1. 	;;^DD(356,.25,21,7,0)
  1. 	;;=add entires to be tracked for UR purposes.
  1. 	;;^DD(356,.25,"DT")
  1. 	;;=2930712
  1. 	;;^DD(356,.26,0)
  1. 	;;=TRACKED AS SPECIAL CONDITION^S^1:TURP;2:COPD;3:CVD;0:NONE;^0;26^Q
  1. 	;;^DD(356,.26,.1)
  1. 	;;=SPECIAL CONDITION?
  1. 	;;^DD(356,.26,3)
  1. 	;;=
  1. 	;;^DD(356,.26,21,0)
  1. 	;;=^^8^8^2940124^^^^
  1. 	;;^DD(356,.26,21,1,0)
  1. 	;;=If you are tracking special conditions for follow up by UR then
  1. 	;;^DD(356,.26,21,2,0)
  1. 	;;=indicate that this is a special condition UR case and UR will be
  1. 	;;^DD(356,.26,21,3,0)
  1. 	;;=required and the information about this case will appear on special
  1. 	;;^DD(356,.26,21,4,0)
  1. 	;;=condition reports.
  1. 	;;^DD(356,.26,21,5,0)
  1. 	;;= 
  1. 	;;^DD(356,.26,21,6,0)
  1. 	;;=The choices are:   TURP -- Transurethral Prostatectomy
  1. 	;;^DD(356,.26,21,7,0)
  1. 	;;=                   COPD -- Chronic Obstructive Pulmonary Disease
  1. 	;;^DD(356,.26,21,8,0)
  1. 	;;=                   CVD  -- Cerebrovascular Disease
  1. 	;;^DD(356,.26,"DT")
  1. 	;;=2940124
  1. 	;;^DD(356,.27,0)
  1. 	;;=TRACKED AS A LOCAL ADDITION?^S^1:YES;0:NO;^0;27^Q
  1. 	;;^DD(356,.27,.1)
  1. 	;;=LOCAL ADDITION?
  1. 	;;^DD(356,.27,3)
  1. 	;;=
  1. 	;;^DD(356,.27,21,0)
  1. 	;;=^^2^2^2930712^
  1. 	;;^DD(356,.27,21,1,0)
  1. 	;;=If this is being track as a local addition for UR purposes then
  1. 	;;^DD(356,.27,21,2,0)
  1. 	;;=enter 'YES'.
  1. 	;;^DD(356,.27,"DT")
  1. 	;;=2930624
  1. 	;;^DD(356,.28,0)
  1. 	;;=ESTIMATED MT CHARGES^NJ10,2^^0;28^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  1. 	;;^DD(356,.28,3)
  1. 	;;=Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  1. 	;;^DD(356,.28,21,0)
  1. 	;;=^^2^2^2930712^
  1. 	;;^DD(356,.28,21,1,0)
  1. 	;;=Enter the estimated amount of Means Test copayment charges that
  1. 	;;^DD(356,.28,21,2,0)
  1. 	;;=are to be paid by the patient for this case.
  1. 	;;^DD(356,.28,"DT")
  1. 	;;=2930712
  1. 	;;^DD(356,.29,0)
  1. 	;;=ESTIMATED TOTAL CHARGES^NJ10,2^^0;29^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  1. 	;;^DD(356,.29,3)
  1. 	;;=Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  1. 	;;^DD(356,.29,21,0)
  1. 	;;=^^8^8^2940213^^
  1. 	;;^DD(356,.29,21,1,0)
  1. 	;;=Enter the estimated total charges from this case.  This is the estimated
  1. 	;;^DD(356,.29,21,2,0)
  1. 	;;=total amount due the government.  
  1. 	;;^DD(356,.29,21,3,0)
  1. 	;;= 
  1. 	;;^DD(356,.29,21,4,0)
  1. 	;;=The total estimated charges minus the estimated payments from all sources
  1. 	;;^DD(356,.29,21,5,0)
  1. 	;;=will be the amount not anticipated to be reimbursed from this case.
  1. 	;;^DD(356,.29,21,6,0)
  1. 	;;=Comparing estimated receipt versus the actual amount received will
  1. 	;;^DD(356,.29,21,7,0)
  1. 	;;=help determine if all payers have sufficiently re-imbursed the 
  1. 	;;^DD(356,.29,21,8,0)
  1. 	;;=government.
  1. 	;;^DD(356,.29,"DT")
  1. 	;;=2930712
  1. 	;;^DD(356,.3,0)
  1. 	;;=ADMITTING REASON (ICD-9)^*P356.9'^IBT(356.9,^0;30^S DIC("S")="I $P(^(0),U,4)=3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  1. 	;;^DD(356,.3,12)
  1. 	;;=Must be the admitting diagnosis for this admission movement.
  1. 	;;^DD(356,.3,12.1)
  1. 	;;=S DIC("S")="I $P(^(0),U,4)=3"
  1. 	;;^DD(356,.3,21,0)
  1. 	;;=^^1^1^2930901^^