VistA Analysis » VistA Reference » RPCs » ORWDX1 STCHANGE

ORWDX1 STCHANGE

Properties

Property	Value
Label	STCHANGE
MUMPS Implementation	ORWDX1
Return Type	SINGLE VALUE

Input Parameters

Name	Type	Maximum Data Length	Required	Description
DFN	LITERAL
ORYARR	LIST

MUMPS Method Description

Property Value

Method STCHANGE^ORWDX1

Input Parameters DFN, ORYARR

Code

Property	Value
Method	STCHANGE^ORWDX1
Input Parameters	DFN, ORYARR
Code	`N CNT,DONE,NODE,PHARMID,STR,STATUS S ORY=0,DONE=0 I '$$PATCH^XPDUTL("PSS1.093") Q S CNT=0 F S CNT=$O(ORYARR(CNT)) Q:CNT'>0!(DONE>0) D . S NODE=$G(ORYARR(CNT)) . S PHARMID=$P(NODE,U),STATUS=$P(NODE,U,2) . I $$UP^XLFSTR(STATUS)'=$$STATUS^PSSORUTE(DFN,PHARMID) S ORY=1,DONE=1`

 N CNT,DONE,NODE,PHARMID,STR,STATUS
 S ORY=0,DONE=0
 I '$$PATCH^XPDUTL("PSS*1.0*93") Q
 S CNT=0 F  S CNT=$O(ORYARR(CNT)) Q:CNT'>0!(DONE>0)  D
 . S NODE=$G(ORYARR(CNT))
 . S PHARMID=$P(NODE,U),STATUS=$P(NODE,U,2)
 . I $$UP^XLFSTR(STATUS)'=$$STATUS^PSSORUTE(DFN,PHARMID) S ORY=1,DONE=1

CPRS

File Type	Description
Pascal File	rMeds.pas

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