VistA Analysis » VistA Reference » RPCs » ORWPCE GET TREATMENT TYPE

ORWPCE GET TREATMENT TYPE

Returns the list of active treatments.

Properties

Property	Value
Label	TRTTYPE
MUMPS Implementation	ORWPCE2
Return Type	ARRAY

MUMPS Method Description

Property Value

Method TRTTYPE^ORWPCE2

Method Comment get the list of active treatments

Code

Property	Value
Method	TRTTYPE^ORWPCE2
Method Comment	get the list of active treatments
Code	`N IEN,CNT,BINDEX S (IEN,CNT,BINDEX)=0 F S BINDEX=$O(^AUTTTRT("B",BINDEX)) Q:BINDEX']"" F S IEN=$O(^(BINDEX,IEN)) Q:'+IEN I $D(^AUTTTRT(IEN,0))#2,+$P(^(0),"^",4)=0 S CNT=CNT+1,ORWLST(CNT)=IEN_"^"_$P(^(0),"^")`

 N IEN,CNT,BINDEX S (IEN,CNT,BINDEX)=0
 F  S BINDEX=$O(^AUTTTRT("B",BINDEX)) Q:BINDEX']""  F  S IEN=$O(^(BINDEX,IEN)) Q:'+IEN  I $D(^AUTTTRT(IEN,0))#2,+$P(^(0),"^",4)=0 S CNT=CNT+1,ORWLST(CNT)=IEN_"^"_$P(^(0),"^")

CPRS

File Type	Description
NOT OSEHRA CPRS

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