Global: ^IBA(362.5

This is the date the prosthetic item was delivered and accepted by the patient.

1)= S ^IBA(362.5,"B",$E(X,1,30),DA)=""

2)= K ^IBA(362.5,"B",$E(X,1,30),DA)

1)= S:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,"AIFN"_+$P(^(0),U,2),+X,+DA)=""

2)= K:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,"AIFN"_+$P(^(0),U,2),+X,+DA)

Set-up for quick cross reference of all prosthetic devices on a bill.

1)= Q

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)

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

CREATE VALUE)= NO EFFECT

DELETE VALUE)= @

FIELD)= record

Deletes the Prescription Transaction Record pointer if the Delivery Date is changed.

1)= S ^IBA(362.5,"AIFN"_+X,+^IBA(362.5,+DA,0),DA)=""

2)= K ^IBA(362.5,"AIFN"_+X,+^IBA(362.5,+DA,0),DA)

Set-up for quick cross reference of all prosthetic devices on a bill.

The prosthetic item added to the bill.

This should be automatically set by the system if a prosthetic record is chosen.

This is the Prosthetic record for this item transaction.

This should be automatically set by the system if a prosthetic record is chosen.  This is not required because not all items may be from prosthetics, such as fee basis charges.