VistA Analysis » VistA Reference » RPCs » ORWOR1 SETDTEXT

ORWOR1 SETDTEXT

Sets/updates the external text of an order.The updated text is also returned.

Properties

Property Value
Label SETDTEXT
MUMPS Implementation ORWOR1
Return Type ARRAY

MUMPS Method Description

Property Value
Method SETDTEXT^ORWOR1
Method Comment Set Digital Text data into file 100 & return the array
Input Parameters ORDER, ORDEA, ORSIGNER
First Comment 
ORDER = ORIFN;ACTION
ORDEA = Schedule of Drug (2-5)
ORSIGNER = DUZ of signer
Code 
 N ORSET,IFN,ACT,I
 S Y="-1^Digital Text failed to build",IFN=+ORDER,ACT=$P(ORDER,";",2)
 I '$G(ORDEA) Q
 I '$G(ORSIGNER) S ORSIGNER=DUZ
 D DIGTEXT^ORCSAVE1(IFN,ORDEA,ORSIGNER)
 S Y=0
 I '$G(ORSET) Q
 K ^OR(100,IFN,8,ACT,.2)
 F I=1:1:ORSET S (Y(I),^OR(100,IFN,8,ACT,.2,I,0))=ORSET(I)
 S ^OR(100,IFN,8,ACT,.2,0)="^^"_ORSET_"^"_ORSET_"^"_DT_"^",Y=ORSET

CPRS

File Type Description
Pascal File Orders/rOrders.pas


Document generated on August 31st 2022, 2:55:43 pm