IBINI09R ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
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
Q Q
;;^DIC(362.5,0,"GL")
;;=^IBA(362.5,
;;^DIC("B","IB BILL/CLAIMS PROSTHETICS",362.5)
;;=
;;^DIC(362.5,"%D",0)
;;=^^3^3^2940214^^
;;^DIC(362.5,"%D",1,0)
;;=This file contains all prosthetic items for bills in the Bill/Claims file.
;;^DIC(362.5,"%D",2,0)
;;=
;;^DIC(362.5,"%D",3,0)
;;=Per VHA Directive 10-93-142, this file definition should not be modified.
;;^DD(362.5,0)
;;=FIELD^^.04^4
;;^DD(362.5,0,"DDA")
;;=N
;;^DD(362.5,0,"DT")
;;=2931229
;;^DD(362.5,0,"IX","AIFN",362.5,.01)
;;=
;;^DD(362.5,0,"IX","AIFN1",362.5,.02)
;;=
;;^DD(362.5,0,"IX","B",362.5,.01)
;;=
;;^DD(362.5,0,"NM","IB BILL/CLAIMS PROSTHETICS")
;;=
;;^DD(362.5,.01,0)
;;=DELIVERY DATE^RD^^0;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
;;^DD(362.5,.01,1,0)
;;=^.1
;;^DD(362.5,.01,1,1,0)
;;=362.5^B
;;^DD(362.5,.01,1,1,1)
;;=S ^IBA(362.5,"B",$E(X,1,30),DA)=""
;;^DD(362.5,.01,1,1,2)
;;=K ^IBA(362.5,"B",$E(X,1,30),DA)
;;^DD(362.5,.01,1,2,0)
;;=362.5^AIFN^MUMPS
;;^DD(362.5,.01,1,2,1)
;;=S:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,"AIFN"_+$P(^(0),U,2),+X,+DA)=""
;;^DD(362.5,.01,1,2,2)
;;=K:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,"AIFN"_+$P(^(0),U,2),+X,+DA)
;;^DD(362.5,.01,1,2,"%D",0)
;;=^^1^1^2931228^
;;^DD(362.5,.01,1,2,"%D",1,0)
;;=Set-up for quick cross reference of all prosthetic devices on a bill.
;;^DD(362.5,.01,1,2,"DT")
;;=2931228
;;^DD(362.5,.01,1,3,0)
;;=^^TRIGGER^362.5^.04
;;^DD(362.5,.01,1,3,1)
;;=Q
;;^DD(362.5,.01,1,3,2)
;;=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)
;;^DD(362.5,.01,1,3,2.4)
;;=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
;;^DD(362.5,.01,1,3,"%D",0)
;;=^^3^3^2931229^
;;^DD(362.5,.01,1,3,"%D",1,0)
;;=Deletes
;;^DD(362.5,.01,1,3,"%D",2,0)
;;=the Prescription Transaction Record pointer if the Delivery Date is
;;^DD(362.5,.01,1,3,"%D",3,0)
;;=changed.
;;^DD(362.5,.01,1,3,"CREATE VALUE")
;;=NO EFFECT
;;^DD(362.5,.01,1,3,"DELETE VALUE")
;;=@
;;^DD(362.5,.01,1,3,"DT")
;;=2931229
;;^DD(362.5,.01,1,3,"FIELD")
;;=record
;;^DD(362.5,.01,3)
;;=Enter the date the item was delivered to the patient.
;;^DD(362.5,.01,21,0)
;;=^^2^2^2931229^^
;;^DD(362.5,.01,21,1,0)
;;=This is the date the prosthetic item was delivered and accepted by the
;;^DD(362.5,.01,21,2,0)
;;=patient.
;;^DD(362.5,.01,"DT")
;;=2931229
;;^DD(362.5,.02,0)
;;=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
;;^DD(362.5,.02,1,0)
;;=^.1
;;^DD(362.5,.02,1,1,0)
;;=362.5^AIFN1^MUMPS
;;^DD(362.5,.02,1,1,1)
;;=S ^IBA(362.5,"AIFN"_+X,+^IBA(362.5,+DA,0),DA)=""
;;^DD(362.5,.02,1,1,2)
;;=K ^IBA(362.5,"AIFN"_+X,+^IBA(362.5,+DA,0),DA)
;;^DD(362.5,.02,1,1,"%D",0)
;;=^^1^1^2931228^
;;^DD(362.5,.02,1,1,"%D",1,0)
;;=Set-up for quick cross reference of all prosthetic devices on a bill.
;;^DD(362.5,.02,1,1,"DT")
;;=2931228
;;^DD(362.5,.02,3)
;;=The bill number associated with this prosthetic item.
;;^DD(362.5,.02,12)
;;=Only open biils!
;;^DD(362.5,.02,12.1)
;;=S DIC("S")="I $P(^(0),U,13)<3"
;;^DD(362.5,.02,"DT")
;;=2931228
;;^DD(362.5,.03,0)
;;=ITEM^RP661'^RMPR(661,^0;3^Q
;;^DD(362.5,.03,3)
;;=Enter the prosthetic item to be added to this bill.
;;^DD(362.5,.03,21,0)
;;=^^1^1^2931229^^^^
;;^DD(362.5,.03,21,1,0)
;;=The prosthetic item added to the bill.
;;^DD(362.5,.03,23,0)
;;=^^2^2^2931229^^^
;;^DD(362.5,.03,23,1,0)
;;=This should be automatically set by the system if a prosthetic record
IBINI09R ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(362.5)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^DIC(362.5,0,"GL")
+2 ;;=^IBA(362.5,
+3 ;;^DIC("B","IB BILL/CLAIMS PROSTHETICS",362.5)
+4 ;;=
+5 ;;^DIC(362.5,"%D",0)
+6 ;;=^^3^3^2940214^^
+7 ;;^DIC(362.5,"%D",1,0)
+8 ;;=This file contains all prosthetic items for bills in the Bill/Claims file.
+9 ;;^DIC(362.5,"%D",2,0)
+10 ;;=
+11 ;;^DIC(362.5,"%D",3,0)
+12 ;;=Per VHA Directive 10-93-142, this file definition should not be modified.
+13 ;;^DD(362.5,0)
+14 ;;=FIELD^^.04^4
+15 ;;^DD(362.5,0,"DDA")
+16 ;;=N
+17 ;;^DD(362.5,0,"DT")
+18 ;;=2931229
+19 ;;^DD(362.5,0,"IX","AIFN",362.5,.01)
+20 ;;=
+21 ;;^DD(362.5,0,"IX","AIFN1",362.5,.02)
+22 ;;=
+23 ;;^DD(362.5,0,"IX","B",362.5,.01)
+24 ;;=
+25 ;;^DD(362.5,0,"NM","IB BILL/CLAIMS PROSTHETICS")
+26 ;;=
+27 ;;^DD(362.5,.01,0)
+28 ;;=DELIVERY DATE^RD^^0;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
+29 ;;^DD(362.5,.01,1,0)
+30 ;;=^.1
+31 ;;^DD(362.5,.01,1,1,0)
+32 ;;=362.5^B
+33 ;;^DD(362.5,.01,1,1,1)
+34 ;;=S ^IBA(362.5,"B",$E(X,1,30),DA)=""
+35 ;;^DD(362.5,.01,1,1,2)
+36 ;;=K ^IBA(362.5,"B",$E(X,1,30),DA)
+37 ;;^DD(362.5,.01,1,2,0)
+38 ;;=362.5^AIFN^MUMPS
+39 ;;^DD(362.5,.01,1,2,1)
+40 ;;=S:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,"AIFN"_+$P(^(0),U,2),+X,+DA)=""
+41 ;;^DD(362.5,.01,1,2,2)
+42 ;;=K:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,"AIFN"_+$P(^(0),U,2),+X,+DA)
+43 ;;^DD(362.5,.01,1,2,"%D",0)
+44 ;;=^^1^1^2931228^
+45 ;;^DD(362.5,.01,1,2,"%D",1,0)
+46 ;;=Set-up for quick cross reference of all prosthetic devices on a bill.
+47 ;;^DD(362.5,.01,1,2,"DT")
+48 ;;=2931228
+49 ;;^DD(362.5,.01,1,3,0)
+50 ;;=^^TRIGGER^362.5^.04
+51 ;;^DD(362.5,.01,1,3,1)
+52 ;;=Q
+53 ;;^DD(362.5,.01,1,3,2)
+54 ;;=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)
+55 ;;^DD(362.5,.01,1,3,2.4)
+56 ;;=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
+57 ;;^DD(362.5,.01,1,3,"%D",0)
+58 ;;=^^3^3^2931229^
+59 ;;^DD(362.5,.01,1,3,"%D",1,0)
+60 ;;=Deletes
+61 ;;^DD(362.5,.01,1,3,"%D",2,0)
+62 ;;=the Prescription Transaction Record pointer if the Delivery Date is
+63 ;;^DD(362.5,.01,1,3,"%D",3,0)
+64 ;;=changed.
+65 ;;^DD(362.5,.01,1,3,"CREATE VALUE")
+66 ;;=NO EFFECT
+67 ;;^DD(362.5,.01,1,3,"DELETE VALUE")
+68 ;;=@
+69 ;;^DD(362.5,.01,1,3,"DT")
+70 ;;=2931229
+71 ;;^DD(362.5,.01,1,3,"FIELD")
+72 ;;=record
+73 ;;^DD(362.5,.01,3)
+74 ;;=Enter the date the item was delivered to the patient.
+75 ;;^DD(362.5,.01,21,0)
+76 ;;=^^2^2^2931229^^
+77 ;;^DD(362.5,.01,21,1,0)
+78 ;;=This is the date the prosthetic item was delivered and accepted by the
+79 ;;^DD(362.5,.01,21,2,0)
+80 ;;=patient.
+81 ;;^DD(362.5,.01,"DT")
+82 ;;=2931229
+83 ;;^DD(362.5,.02,0)
+84 ;;=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
+85 ;;^DD(362.5,.02,1,0)
+86 ;;=^.1
+87 ;;^DD(362.5,.02,1,1,0)
+88 ;;=362.5^AIFN1^MUMPS
+89 ;;^DD(362.5,.02,1,1,1)
+90 ;;=S ^IBA(362.5,"AIFN"_+X,+^IBA(362.5,+DA,0),DA)=""
+91 ;;^DD(362.5,.02,1,1,2)
+92 ;;=K ^IBA(362.5,"AIFN"_+X,+^IBA(362.5,+DA,0),DA)
+93 ;;^DD(362.5,.02,1,1,"%D",0)
+94 ;;=^^1^1^2931228^
+95 ;;^DD(362.5,.02,1,1,"%D",1,0)
+96 ;;=Set-up for quick cross reference of all prosthetic devices on a bill.
+97 ;;^DD(362.5,.02,1,1,"DT")
+98 ;;=2931228
+99 ;;^DD(362.5,.02,3)
+100 ;;=The bill number associated with this prosthetic item.
+101 ;;^DD(362.5,.02,12)
+102 ;;=Only open biils!
+103 ;;^DD(362.5,.02,12.1)
+104 ;;=S DIC("S")="I $P(^(0),U,13)<3"
+105 ;;^DD(362.5,.02,"DT")
+106 ;;=2931228
+107 ;;^DD(362.5,.03,0)
+108 ;;=ITEM^RP661'^RMPR(661,^0;3^Q
+109 ;;^DD(362.5,.03,3)
+110 ;;=Enter the prosthetic item to be added to this bill.
+111 ;;^DD(362.5,.03,21,0)
+112 ;;=^^1^1^2931229^^^^
+113 ;;^DD(362.5,.03,21,1,0)
+114 ;;=The prosthetic item added to the bill.
+115 ;;^DD(362.5,.03,23,0)
+116 ;;=^^2^2^2931229^^^
+117 ;;^DD(362.5,.03,23,1,0)
+118 ;;=This should be automatically set by the system if a prosthetic record
