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

IBINI07F.m

Go to the documentation of this file. 
  1. IBINI07F	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(356.94)  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.94,.03,1,3,"%D",2,0)
  1. 	;;=by provider.
  1. 	;;^DD(356.94,.03,1,3,"DT")
  1. 	;;=2940222
  1. 	;;^DD(356.94,.03,12)
  1. 	;;=Must be a provder.
  1. 	;;^DD(356.94,.03,12.1)
  1. 	;;=S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U,1),+Y))"
  1. 	;;^DD(356.94,.03,21,0)
  1. 	;;=^^2^2^2940202^
  1. 	;;^DD(356.94,.03,21,1,0)
  1. 	;;=Enter the name of the provider who is responsible for care of this 
  1. 	;;^DD(356.94,.03,21,2,0)
  1. 	;;=patient.
  1. 	;;^DD(356.94,.03,"DT")
  1. 	;;=2940222
  1. 	;;^DD(356.94,.04,0)
  1. 	;;=TYPE PROVIDER^R*S^1:ATTENDING;2:PROVIDER;3:ADMITTING;^0;4^Q
  1. 	;;^DD(356.94,.04,1,0)
  1. 	;;=^.1
  1. 	;;^DD(356.94,.04,1,1,0)
  1. 	;;=356.94^ADG2^MUMPS
  1. 	;;^DD(356.94,.04,1,1,1)
  1. 	;;=S:X=3&($P(^IBT(356.94,DA,0),U,2))&($P(^(0),U,3)) ^IBT(356.94,"ADG",+$P(^(0),U,2),+$P(^(0),U,3),DA)=""
  1. 	;;^DD(356.94,.04,1,1,2)
  1. 	;;=K ^IBT(356.94,"ADG",+$P(^IBT(356.94,DA,0),U,2),+$P(^(0),U,3),DA)
  1. 	;;^DD(356.94,.04,1,1,"%D",0)
  1. 	;;=^^2^2^2940222^
  1. 	;;^DD(356.94,.04,1,1,"%D",1,0)
  1. 	;;=Cross reference of all admitting provider entries by admission movement,
  1. 	;;^DD(356.94,.04,1,1,"%D",2,0)
  1. 	;;=by provider.
  1. 	;;^DD(356.94,.04,1,1,"DT")
  1. 	;;=2940222
  1. 	;;^DD(356.94,.04,1,2,0)
  1. 	;;=356.94^ATP1^MUMPS
  1. 	;;^DD(356.94,.04,1,2,1)
  1. 	;;=S:$P(^IBT(356.94,DA,0),U,2) ^IBT(356.94,"ATP",+$P(^(0),U,2),X,DA)=""
  1. 	;;^DD(356.94,.04,1,2,2)
  1. 	;;=K ^IBT(356.94,"ATP",+$P(^IBT(356.94,DA,0),U,2),X,DA)
  1. 	;;^DD(356.94,.04,1,2,"%D",0)
  1. 	;;=^^2^2^2940222^
  1. 	;;^DD(356.94,.04,1,2,"%D",1,0)
  1. 	;;=Cross reference of all inpatient provider entries by admission movement
  1. 	;;^DD(356.94,.04,1,2,"%D",2,0)
  1. 	;;=by type of provider.
  1. 	;;^DD(356.94,.04,1,2,"DT")
  1. 	;;=2940222
  1. 	;;^DD(356.94,.04,12)
  1. 	;;=Only one admitting physician allowed.
  1. 	;;^DD(356.94,.04,12.1)
  1. 	;;=S DIC("S")="I $$DICS^IBTRE5(Y)"
  1. 	;;^DD(356.94,.04,21,0)
  1. 	;;=^^18^18^2940202^
  1. 	;;^DD(356.94,.04,21,1,0)
  1. 	;;=Enter whether this physician is an attending physician, admitting
  1. 	;;^DD(356.94,.04,21,2,0)
  1. 	;;=physician, or the daily care provider (or resident).
  1. 	;;^DD(356.94,.04,21,3,0)
  1. 	;;= 
  1. 	;;^DD(356.94,.04,21,4,0)
  1. 	;;=It may be that the admitting physician is different from either the
  1. 	;;^DD(356.94,.04,21,5,0)
  1. 	;;=attending or provider.  If the admission to acure care does not meet UR
  1. 	;;^DD(356.94,.04,21,6,0)
  1. 	;;=criteria, it is important to track the admitting physician.
  1. 	;;^DD(356.94,.04,21,7,0)
  1. 	;;= 
  1. 	;;^DD(356.94,.04,21,8,0)
  1. 	;;=The attending physician is the physician responsible for the care of
  1. 	;;^DD(356.94,.04,21,9,0)
  1. 	;;=the patient, more than one physician may be the attending.
  1. 	;;^DD(356.94,.04,21,10,0)
  1. 	;;= 
  1. 	;;^DD(356.94,.04,21,11,0)
  1. 	;;=The provider is the physician directly providing patient care.  In
  1. 	;;^DD(356.94,.04,21,12,0)
  1. 	;;=affiliated hospitals this can be a resident or intern who is not 
  1. 	;;^DD(356.94,.04,21,13,0)
  1. 	;;=necessarily responsible (the attending is responsible).
  1. 	;;^DD(356.94,.04,21,14,0)
  1. 	;;= 
  1. 	;;^DD(356.94,.04,21,15,0)
  1. 	;;=Because UR reviews are done every day, it is important to be able
  1. 	;;^DD(356.94,.04,21,16,0)
  1. 	;;=to accurately track attendings and providers related to care that
  1. 	;;^DD(356.94,.04,21,17,0)
  1. 	;;=does not meet critea.  
  1. 	;;^DD(356.94,.04,21,18,0)
  1. 	;;= 
  1. 	;;^DD(356.94,.04,"DT")
  1. 	;;=2940222