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

IBINI09R.m

Go to the documentation of this file. 
  1. IBINI09R	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(362.5)  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. 	;;^DIC(362.5,0,"GL")
  1. 	;;=^IBA(362.5,
  1. 	;;^DIC("B","IB BILL/CLAIMS PROSTHETICS",362.5)
  1. 	;;=
  1. 	;;^DIC(362.5,"%D",0)
  1. 	;;=^^3^3^2940214^^
  1. 	;;^DIC(362.5,"%D",1,0)
  1. 	;;=This file contains all prosthetic items for bills in the Bill/Claims file.
  1. 	;;^DIC(362.5,"%D",2,0)
  1. 	;;= 
  1. 	;;^DIC(362.5,"%D",3,0)
  1. 	;;=Per VHA Directive 10-93-142, this file definition should not be modified.
  1. 	;;^DD(362.5,0)
  1. 	;;=FIELD^^.04^4
  1. 	;;^DD(362.5,0,"DDA")
  1. 	;;=N
  1. 	;;^DD(362.5,0,"DT")
  1. 	;;=2931229
  1. 	;;^DD(362.5,0,"IX","AIFN",362.5,.01)
  1. 	;;=
  1. 	;;^DD(362.5,0,"IX","AIFN1",362.5,.02)
  1. 	;;=
  1. 	;;^DD(362.5,0,"IX","B",362.5,.01)
  1. 	;;=
  1. 	;;^DD(362.5,0,"NM","IB BILL/CLAIMS PROSTHETICS")
  1. 	;;=
  1. 	;;^DD(362.5,.01,0)
  1. 	;;=DELIVERY DATE^RD^^0;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(362.5,.01,1,0)
  1. 	;;=^.1
  1. 	;;^DD(362.5,.01,1,1,0)
  1. 	;;=362.5^B
  1. 	;;^DD(362.5,.01,1,1,1)
  1. 	;;=S ^IBA(362.5,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(362.5,.01,1,1,2)
  1. 	;;=K ^IBA(362.5,"B",$E(X,1,30),DA)
  1. 	;;^DD(362.5,.01,1,2,0)
  1. 	;;=362.5^AIFN^MUMPS
  1. 	;;^DD(362.5,.01,1,2,1)
  1. 	;;=S:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,"AIFN"_+$P(^(0),U,2),+X,+DA)=""
  1. 	;;^DD(362.5,.01,1,2,2)
  1. 	;;=K:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,"AIFN"_+$P(^(0),U,2),+X,+DA)
  1. 	;;^DD(362.5,.01,1,2,"%D",0)
  1. 	;;=^^1^1^2931228^
  1. 	;;^DD(362.5,.01,1,2,"%D",1,0)
  1. 	;;=Set-up for quick cross reference of all prosthetic devices on a bill.
  1. 	;;^DD(362.5,.01,1,2,"DT")
  1. 	;;=2931228
  1. 	;;^DD(362.5,.01,1,3,0)
  1. 	;;=^^TRIGGER^362.5^.04
  1. 	;;^DD(362.5,.01,1,3,1)
  1. 	;;=Q
  1. 	;;^DD(362.5,.01,1,3,2)
  1. 	;;=K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(362.5,.01,1,3,2.4)
  1. 	;;^DD(362.5,.01,1,3,2.4)
  1. 	;;=S DIH=$S($D(^IBA(362.5,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=362.5,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
  1. 	;;^DD(362.5,.01,1,3,"%D",0)
  1. 	;;=^^3^3^2931229^
  1. 	;;^DD(362.5,.01,1,3,"%D",1,0)
  1. 	;;=Deletes
  1. 	;;^DD(362.5,.01,1,3,"%D",2,0)
  1. 	;;=the Prescription Transaction Record pointer if the Delivery Date is 
  1. 	;;^DD(362.5,.01,1,3,"%D",3,0)
  1. 	;;=changed.
  1. 	;;^DD(362.5,.01,1,3,"CREATE VALUE")
  1. 	;;=NO EFFECT
  1. 	;;^DD(362.5,.01,1,3,"DELETE VALUE")
  1. 	;;=@
  1. 	;;^DD(362.5,.01,1,3,"DT")
  1. 	;;=2931229
  1. 	;;^DD(362.5,.01,1,3,"FIELD")
  1. 	;;=record
  1. 	;;^DD(362.5,.01,3)
  1. 	;;=Enter the date the item was delivered to the patient.
  1. 	;;^DD(362.5,.01,21,0)
  1. 	;;=^^2^2^2931229^^
  1. 	;;^DD(362.5,.01,21,1,0)
  1. 	;;=This is the date the prosthetic item was delivered and accepted by the
  1. 	;;^DD(362.5,.01,21,2,0)
  1. 	;;=patient.
  1. 	;;^DD(362.5,.01,"DT")
  1. 	;;=2931229
  1. 	;;^DD(362.5,.02,0)
  1. 	;;=BILL NUMBER^R*P399'^DGCR(399,^0;2^S DIC("S")="I $P(^(0),U,13)<3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  1. 	;;^DD(362.5,.02,1,0)
  1. 	;;=^.1
  1. 	;;^DD(362.5,.02,1,1,0)
  1. 	;;=362.5^AIFN1^MUMPS
  1. 	;;^DD(362.5,.02,1,1,1)
  1. 	;;=S ^IBA(362.5,"AIFN"_+X,+^IBA(362.5,+DA,0),DA)=""
  1. 	;;^DD(362.5,.02,1,1,2)
  1. 	;;=K ^IBA(362.5,"AIFN"_+X,+^IBA(362.5,+DA,0),DA)
  1. 	;;^DD(362.5,.02,1,1,"%D",0)
  1. 	;;=^^1^1^2931228^
  1. 	;;^DD(362.5,.02,1,1,"%D",1,0)
  1. 	;;=Set-up for quick cross reference of all prosthetic devices on a bill.
  1. 	;;^DD(362.5,.02,1,1,"DT")
  1. 	;;=2931228
  1. 	;;^DD(362.5,.02,3)
  1. 	;;=The bill number associated with this prosthetic item.
  1. 	;;^DD(362.5,.02,12)
  1. 	;;=Only open biils!
  1. 	;;^DD(362.5,.02,12.1)
  1. 	;;=S DIC("S")="I $P(^(0),U,13)<3"
  1. 	;;^DD(362.5,.02,"DT")
  1. 	;;=2931228
  1. 	;;^DD(362.5,.03,0)
  1. 	;;=ITEM^RP661'^RMPR(661,^0;3^Q
  1. 	;;^DD(362.5,.03,3)
  1. 	;;=Enter the prosthetic item to be added to this bill.
  1. 	;;^DD(362.5,.03,21,0)
  1. 	;;=^^1^1^2931229^^^^
  1. 	;;^DD(362.5,.03,21,1,0)
  1. 	;;=The prosthetic item added to the bill.
  1. 	;;^DD(362.5,.03,23,0)
  1. 	;;=^^2^2^2931229^^^
  1. 	;;^DD(362.5,.03,23,1,0)
  1. 	;;=This should be automatically set by the system if a prosthetic record