VistA Analysis » VistA Reference » RPCs » ORWDPS1 QOMEDALT

ORWDPS1 QOMEDALT

Properties

Property	Value
Label	QOMEDALT
MUMPS Implementation	ORWDPS1
Return Type	SINGLE VALUE

Input Parameters

Name	Type	Maximum Data Length	Required	Description
ODIEN	LITERAL		true

MUMPS Method Description

Property Value

Method QOMEDALT^ORWDPS1

Input Parameters ODIEN

Code

Property	Value
Method	QOMEDALT^ORWDPS1
Input Parameters	ODIEN
Code	`N ARRAY,IDIEN,ORDERID,PKG,PSTYPE,VALUE S ORY=0,PKG=+$P(^ORD(101.41,ODIEN,0),U,7) S PSTYPE=$S($$GET1^DIQ(9.4,PKG_",",1)="PSO":"O",1:"I") S ORDERID=$O(^ORD(101.41,"B","OR GTX ORDERABLE ITEM","")) Q:ORDERID'>0 S IDIEN=$O(^ORD(101.41,ODIEN,6,"D",ORDERID,"")) Q:IDIEN'>0 S VALUE=$G(^ORD(101.41,ODIEN,6,IDIEN,1)) Q:VALUE'>0 I $P($G(^ORD(101.43,VALUE,"PS")),U,6)=1 S ORY=VALUE`

 N ARRAY,IDIEN,ORDERID,PKG,PSTYPE,VALUE
 S ORY=0,PKG=+$P(^ORD(101.41,ODIEN,0),U,7)
 S PSTYPE=$S($$GET1^DIQ(9.4,PKG_",",1)="PSO":"O",1:"I")
 S ORDERID=$O(^ORD(101.41,"B","OR GTX ORDERABLE ITEM","")) Q:ORDERID'>0
 S IDIEN=$O(^ORD(101.41,ODIEN,6,"D",ORDERID,"")) Q:IDIEN'>0
 S VALUE=$G(^ORD(101.41,ODIEN,6,IDIEN,1)) Q:VALUE'>0
 I $P($G(^ORD(101.43,VALUE,"PS")),U,6)=1 S ORY=VALUE

CPRS

File Type	Description
Pascal File	Orders/rODMeds.pas

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